Install: PSJ*5.0*328

Patch Subject:  ONE-TIME ORDER ISSUE/OPTION PSJ EXP/DOSAGE WARNING
Description:

============
 This patch will resolve the following issues:
 1.  One time order appears as active after discharge
 2.  Option PSJ EXP gets an error with clinic orders
 3.  Mismatch Dosage Warning inconsistent
 Associated Ticket(s):
 =====================
 1. INC000000775082 - One time order appears as active after discharge
    I9853546FY16(d)
 2. INC000000849604 - Option PSJ EXP gets an error with clinic orders
    I9854178FY16(d)
 3. I5683562FY15 - Mismatch Dosage Warning inconsistent
 Associated NSR(s):
 ==================
 N/A
 Test Sites:
 ===========
 Oklahoma City
 Las Vegas
 Boston
 Overview:
 =========
 1. INC000000775082 - One time order appears as active after discharge
    Problem:
    ========
    An inpatient was ordered a one-time dose of an Intravenous Piggy Back
    (IVPB) Antibiotic. The order was finished by a pharmacist in the
    Intravenous (IV) package and the nurse marked it as given in Bar Code
    Medication Administration (BCMA). Before the nurse could give the
    medication the patient was discharged and transferred to another
    hospital.
    After the patient was discharged the floor nurse went into BCMA and
    marked the medication as NOT GIVEN. This resulted in the inpatient
    medication being reinstated and showing as active in the patients
    Inpatient Medication Profile even though he was discharged. The order
    no longer displayed in BCMA.
    Resolution:
    ===========
    Modifications were made to the PSJBCMA4 routine to check to see if the
    patient is still an inpatient patient.
 2. INC000000849604 - Option PSJ EXP gets an error with clinic orders
    Problem:
    ========
    Inpatient Stop Order Notices option [PSJ EXP] generates a subscript
    error when attempting to use it to search for orders in a specific
    Clinic or Clinic Group.
    Resolution:
    ===========
    Modifications were made to routines PSJEXP & PSJEXP0 to handle the
    presence of Clinic Orders.
 3. I5683562FY15 - Mismatch Dosage Warning inconsistent
    Problem:
    ========
    An order was entered for a drug with dosage of 850MG. While finishing
    the order, the dosage was modified to 3400mg. The user received the
    appropriate dosage warning message and proceeded to update the Dispense
    Drug for the correct U/D (unit dose). When the user went to verify the
    order they still received the dosage warning message.
    The problem was when the dosage was modified the unit of measure was
    entered in lower case. This caused the process to display the message
    again.
    Resolution:
    ===========
    A modification was made to routine PSJDOSE to make sure the unit of
    measure for the dosage is converted to upper case.

Use default answers for KIDS load/install questions.

Patch-Files: http://code.osehra.org/VistA.git/tree/master/Packages/Inpatient+Medications/Patches/PSJ_5.0_328

Packages/Inpatient Medications/Routines/PSJBCMA4.m

@@ -1,5 +1,5 @@
-PSJBCMA4 ;BIR/JLC-BCMA ORDER UPDATE FOR INPATIENT MEDS ;18 JUN 01
- ;;5.0; INPATIENT MEDICATIONS ;**63,66,58,104**;16 DEC 97
+PSJBCMA4 ;BIR/JLC - BCMA ORDER UPDATE FOR INPATIENT MEDS ;18 JUN 01
+ ;;5.0;INPATIENT MEDICATIONS ;**63,66,58,104,328**;16 DEC 97;Build 6
  ;
  ;Reference to ^DPT is supported by DBIA 10035
  ;Reference to ^PS(55 is supported by DBIA 2191
@@ -42,13 +42,15 @@
  D NOW^%DTC S PSJNOW=%
  I ON["V" D  Q
  . I '$D(^PS(55,DFN,"IV",+ON)) Q
+ . I '$P($G(^PS(55,DFN,"IV",+ON,"DSS")),U,2) N VAIP D IN5^VADPT Q:'$G(VAIP(1))
  . S PSJIEN=+ON_","_DFN_",",PSJBCMA=$$GET1^DIQ(55.01,PSJIEN,147,"I"),PSJORIG=$$GET1^DIQ(55.01,PSJIEN,116,"I")
  . S DIE="^PS(55,"_DFN_",""IV"",",DA=+ON,DA(1)=DFN
  . I PSJBCMA'=1!(PSJORIG'>PSJNOW) D IRA(0) Q
  . S PSIVACT=1,DR="116////;.03////"_PSJORIG_";100////A;147////0" D ^DIE
  . D IRA(1),EN1^PSJHL2(DFN,"SC",ON,"BCMA REINSTATED")
  I ON["U" D  Q
  . I '$D(^PS(55,DFN,5,+ON)) Q
+ . I '$P($G(^PS(55,DFN,5,+ON,8)),U,2) N VAIP D IN5^VADPT Q:'$G(VAIP(1))
  . S PSJIEN=+ON_","_DFN_",",PSJBCMA=$$GET1^DIQ(55.06,PSJIEN,123,"I"),PSJORIG=$$GET1^DIQ(55.06,PSJIEN,25,"I")
  . S DIE="^PS(55,"_DFN_",5,",DA=+ON,DA(1)=DFN
  . I PSJBCMA'=1!(PSJORIG'>PSJNOW) D URA(0) Q

Packages/Inpatient Medications/Routines/PSJDOSE.m

@@ -1,5 +1,5 @@
-PSJDOSE ;BIR/MV-POSSIBLE DOSES UTILITY ; 1/28/10 8:21am
- ;;5.0;INPATIENT MEDICATIONS ;**50,65,106,111,216,264**;16 DEC 97;Build 3
+PSJDOSE ;BIR/MV - POSSIBLE DOSES UTILITY ; 1/28/10 8:21am
+ ;;5.0;INPATIENT MEDICATIONS ;**50,65,106,111,216,264,328**;16 DEC 97;Build 6
  ;
  ; Reference to ^PSSORPH is supported by DBIA #3234.
  ;
@@ -58,7 +58,7 @@ S PSJDOSE("WARN1")="         Please verify Dosage."
  S DIR("A")=$S(+PSJX:"Select from list of Available Dosages or Enter Free Text Dose",1:"DOSAGE ORDERED")
  S:$G(PSGDO)]"" DIR("B")=PSGDO
  S DIR("?")="^D ENHLP^PSGOEM(53.1,109)" D ^DIR
- S PSJY=Y
+ S PSJY=$$UP^XLFSTR(Y)
  ;
  I $S($D(DTOUT):1,$D(DUOUT):1,$D(DIRUT):1,1:0) S PSGOROE1=1 Q
  ;

Packages/Inpatient Medications/Routines/PSJEXP.m

@@ -1,5 +1,5 @@
-PSJEXP ;BIR/CML3,KKA-MEDICATION EXPIRATION NOTICES ;13 FEB 96 / 10:04 AM
- ;;5.0; INPATIENT MEDICATIONS ;**111**;16 DEC 97
+PSJEXP ;BIR/CML3,KKA - MEDICATION EXPIRATION NOTICES ;13 FEB 96 / 10:04 AM
+ ;;5.0;INPATIENT MEDICATIONS ;**111,328**;16 DEC 97;Build 6
  ;
  ;Reference to ^PS(55 supported by DBIA #2191.
  ;
@@ -38,14 +38,14 @@
  K DIR S DIR(0)="FAO",DIR("A")="Select CLINIC: "
  S DIR("?")="^D CDIC^PSGVBW" W ! D ^DIR
 CDIC ;
- K DIC S DIC="^SC(",DIC(0)="QEMIZ" D ^DIC K DIC S:+Y>0 CL=+Y
+ K DIC S DIC="^SC(",DIC(0)="QEMIZ" D ^DIC K DIC S:+Y>0 PSJMSG=Y(0,0),CL=+Y
  W:X["?" !!,"Enter the clinic you want to use to select patients for processing.",!
  Q
 L ;
  K DIR S DIR(0)="FAO",DIR("A")="Select CLINIC GROUP: "
  S DIR("?")="^D LDIC^PSGVBW" W ! D ^DIR
 LDIC ;
- K DIC S DIC="^PS(57.8,",DIC(0)="QEMI" D ^DIC K DIC S:+Y>0 CG=+Y
+ K DIC S DIC="^PS(57.8,",DIC(0)="QEMI" D ^DIC K DIC S:+Y>0 CG=+Y,PSJMSG=$P(Y,"^",2)
  W:X["?" !!,"Enter the name of the clinic group you want to use to select patients for processing."
  Q
 LP N PSJACNWP S PSJACNWP=1 D ^PSJAC,ENUNM^PSGOU Q:'$O(^PS(55,PSGP,5,"AUS",SD))
@@ -55,15 +55,21 @@ S DIR("?")="^D LDIC^PSGVBW" W ! D ^DIR
  Q:$D(PSJSEL("TM"))&('$D(PSJSEL("TM","ALL")))&('$D(PSJSEL("TM",+TEMPTM)))
  D:CHOICE'="IV" GS D:CHOICE'="UD" GSIV
  Q
-GS F PST="C","P","R" F SD1=SD:0 S SD1=$O(^PS(55,PSGP,5,"AU",PST,SD1)) Q:'SD1!(SD1>FD)  F PSJJORD=0:0 S PSJJORD=$O(^PS(55,PSGP,5,"AU",PST,SD1,PSJJORD)) Q:'PSJJORD  I $D(^PS(55,PSGP,5,PSJJORD,0)),$P(^(0),U,9)'["D",$P(^(0),U,27)'["R" D ARSET
+GS F PST="C","P","R" F SD1=SD:0 S SD1=$O(^PS(55,PSGP,5,"AU",PST,SD1)) Q:'SD1!(SD1>FD)  F PSJJORD=0:0 S PSJJORD=$O(^PS(55,PSGP,5,"AU",PST,SD1,PSJJORD)) Q:'PSJJORD  D
+ .I $D(^PS(55,PSGP,5,PSJJORD,0)),$P(^(0),U,9)'["D",$P(^(0),U,27)'["R" D
+ ..I '$D(CL) D ARSET Q
+ ..I $D(CL),($P($G(^PS(55,PSGP,5,PSJJORD,8)),"^",2)'="") D ARSET Q
+ I $G(PSJPWDN)="" S PSJPWDN="UNKNOWN"
  I $D(^TMP("PSG",$J,$E(TM,1,10),$E(PSJPWDN,1,10),$E(PSJPRB,1,12),PPN)) S ^(PPN)=TM_"^"_PSJPWDN_"^"_PSJPRB_"^"_$P(PSGP(0),"^")_"^"_$P(PSJPSEX,"^",2)_"^"_$P(PSJPDOB,"^",2)_";"_PSJPAGE_"^"_VA("PID")_"^"_PSJPDX_"^"_PSJPWT
  ;naked reference below refers to the full global references to ^TMP on the line above
  I  S ^(PPN)=^(PPN)_"^"_$P(PSJPAD,"^",2)_"^"_$P(PSJPTD,"^",2)
  Q
 GSIV S PST="C"
  S SD1IV=SD F  S SD1IV=$O(^PS(55,PSGP,"IV","AIS",SD1IV)) Q:'SD1IV!(SD1IV>FD)  F PSJJORD=0:0 S PSJJORD=$O(^PS(55,PSGP,"IV","AIS",SD1IV,PSJJORD)) Q:'PSJJORD  D
- .I $D(^PS(55,PSGP,"IV",PSJJORD,0)),$P(^(0),U,17)'["D",$P(^PS(55,PSGP,"IV",PSJJORD,2),U,9)'["R" D ARSETIV
- I $D(^TMP("PSG",$J,$E(TM,1,10),$E(PSJPWDN,1,10),$E(PSJPRB,1,12),PPN)) S ^(PPN)=TM_"^"_PSJPWDN_"^"_PSJPRB_"^"_$P(PSGP(0),"^")_"^"_$P(PSJPSEX,"^",2)_"^"_$P(PSJPDOB,"^",2)_";"_PSJPAGE_"^"_VA("PID")_"^"_PSJPDX_"^"_PSJPWT
+ .I $D(^PS(55,PSGP,"IV",PSJJORD,0)),$P(^(0),U,17)'["D",$P(^PS(55,PSGP,"IV",PSJJORD,2),U,9)'["R" D
+ ..I '$D(CL) D ARSETIV Q
+ ..I $D(CL),($P($G(^PS(55,PSGP,"IV",PSJJORD,"DSS")),"^",2)'="") D ARSETIV Q
+  I $D(^TMP("PSG",$J,$E(TM,1,10),$E(PSJPWDN,1,10),$E(PSJPRB,1,12),PPN)) S ^(PPN)=TM_"^"_PSJPWDN_"^"_PSJPRB_"^"_$P(PSGP(0),"^")_"^"_$P(PSJPSEX,"^",2)_"^"_$P(PSJPDOB,"^",2)_";"_PSJPAGE_"^"_VA("PID")_"^"_PSJPDX_"^"_PSJPWT
  ;naked reference below refers to the full global references to ^TMP on the line above
  I  S ^(PPN)=^(PPN)_"^"_$P(PSJPAD,"^",2)_"^"_$P(PSJPTD,"^",2)
  Q

Packages/Inpatient Medications/Routines/PSJEXP0.m

@@ -1,10 +1,11 @@
-PSJEXP0 ;BIR/CML3,KKA-PRINTS MEDICATION EXPIRATION NOTICES ;13 FEB 96 / 10:04 AM
- ;;5.0; INPATIENT MEDICATIONS ;**50,58**;16 DEC 97
+PSJEXP0 ;BIR/CML3,KKA - PRINTS MEDICATION EXPIRATION NOTICES ;13 FEB 96 / 10:04 AM
+ ;;5.0;INPATIENT MEDICATIONS ;**50,58,328**;16 DEC 97;Build 6
  ;
  ; Reference to ^PS(55 is supported by DBIA# 2191.
  ;
  D NOW^%DTC S PSGDT=%,PSGOD=$$ENDTC^PSGMI(PSGDT) U IO
- I '$D(^TMP("PSG",$J)) W:IO'=(IO(0)!(IOST'["C-"))&($Y) @IOF W !!," AS OF ",PSGOD,!,"NO EXPIRED ORDERS FROM ",PSGEXPS," THROUGH ",PSGEXPF,!,"FOR ",$S(PSGSS="P":"PATIENT",PSGSS="W":"WARD",1:"WARD GROUP"),": ",PSJMSG,"." G DONE
+ I '$D(^TMP("PSG",$J)) D  G DONE
+ .W:IO'=(IO(0)!(IOST'["C-"))&($Y) @IOF W !!," AS OF ",PSGOD,!,"NO EXPIRED ORDERS FROM ",PSGEXPS," THROUGH ",PSGEXPF,!,"FOR ",$S(PSGSS="P":"PATIENT",PSGSS="W":"WARD",PSGSS="C":"CLINIC",PSGSS="L":"CLINIC GROUP",1:"WARD GROUP"),": ",PSJMSG,"."
  S PSGPDT=PSGOD,(BLF,LINE,PSSN,Q,TM,WDN,RB,PN)="",PG=0,$P(LINE,"-",81)="" K PSJDLW
  F  S TM=$O(^TMP("PSG",$J,TM)) Q:TM=""!$G(PSJDLW)  F  S WDN=$O(^TMP("PSG",$J,TM,WDN)) Q:WDN=""!$G(PSJDLW)  F  S RB=$O(^TMP("PSG",$J,TM,WDN,RB)) Q:RB=""!$G(PSJDLW)  D STRT1
  S Q=1 D:'$G(PSJDLW) NP

Packages/Kernel/Globals/%ZTSCH.zwr

@@ -1,9 +1,9 @@
 OSEHRA ZGO Export: ^%ZTSCH
-24-FEB-2017 16:59:07 ZWR
+24-FEB-2017 17:31:06 ZWR
 ^%ZTSCH("DEVTRY","//./nul")="5311138792"
 ^%ZTSCH("ER")=""
-^%ZTSCH("HOUR")="5558862210"
-^%ZTSCH("IDLE")="5558864270"
+^%ZTSCH("HOUR")="5558866064"
+^%ZTSCH("IDLE")="5558866184"
 ^%ZTSCH("IO")="5558858637^"
 ^%ZTSCH("IO","GMRA UPDATE RESOURCE")="RES"
 ^%ZTSCH("LOAD")=""
@@ -37,8 +37,8 @@ OSEHRA ZGO Export: ^%ZTSCH
 ^%ZTSCH("STARTUP","VISTA,VISTA","10Q8853")="60297,52041^^"
 ^%ZTSCH("STARTUP","VISTA,VISTA","11Q8412")="60297,52056^^"
 ^%ZTSCH("STARTUP","VISTA,VISTA","8Q9891")="59494,69903^^"
-^%ZTSCH("STOP","MGR","VISTA:CACHE")="64338,61093"
-^%ZTSCH("STOP","SUB","VISTA:CACHE")="64338,61093"
+^%ZTSCH("STOP","MGR","VISTA:CACHE")="64338,63011"
+^%ZTSCH("STOP","SUB","VISTA:CACHE")="64338,63011"
 ^%ZTSCH("SUB","VISTA:CACHE")="0"
 ^%ZTSCH("SUB","VISTA:CACHE",0)="0"
 ^%ZTSCH("WAIT")="58035,64592"

Packages/Kernel/Globals/14.4+TASKS.zwr

@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: TASKS
-24-FEB-2017 16:59:07 ZWR
-^%ZTSK(-1)="1416"
+24-FEB-2017 17:31:06 ZWR
+^%ZTSK(-1)="1420"
 ^%ZTSK(0)="TASKS^14.4^1375"
 ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
 ^%ZTSK(1001,.02)="^PLA^^"
@@ -5377,6 +5377,47 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(1416,.3,"DUZ(",0)="@"
 ^%ZTSK(1416,.3,"XQSCH")="8"
 ^%ZTSK(1416,.3,"XQY")="9891"
+^%ZTSK(1417,0)="HOUR^XUTMHR^.5^^64338,62864^64338,62864^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1417,.02)="^VISTA^^"
+^%ZTSK(1417,.03)="Taskman Hourly Job"
+^%ZTSK(1417,.04)="5558866064"
+^%ZTSK(1417,.1)="B^64338,62924^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1417,.2)=""
+^%ZTSK(1417,.21)=""
+^%ZTSK(1417,.25)=""
+^%ZTSK(1418,0)="ZTSK^XQ1^.5^VISTA^64338,62924^64338,62924^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1418,.02)="^VISTA^^"
+^%ZTSK(1418,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1418,.04)="5558866124"
+^%ZTSK(1418,.1)="B^64338,62926^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1418,.2)=""
+^%ZTSK(1418,.21)=""
+^%ZTSK(1418,.25)=""
+^%ZTSK(1418,.3,"DUZ(",0)="@"
+^%ZTSK(1418,.3,"XQSCH")="10"
+^%ZTSK(1418,.3,"XQY")="8853"
+^%ZTSK(1419,0)="ZTSK^XQ1^.5^VISTA^64338,62924^64338,62924^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1419,.02)="^VISTA^^"
+^%ZTSK(1419,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1419,.04)="5558866124"
+^%ZTSK(1419,.1)="B^64338,62928^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1419,.2)=""
+^%ZTSK(1419,.21)=""
+^%ZTSK(1419,.25)=""
+^%ZTSK(1419,.3,"DUZ(",0)="@"
+^%ZTSK(1419,.3,"XQSCH")="11"
+^%ZTSK(1419,.3,"XQY")="8412"
+^%ZTSK(1420,0)="ZTSK^XQ1^.5^VISTA^64338,62924^64338,62924^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1420,.02)="^VISTA^^"
+^%ZTSK(1420,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1420,.04)="5558866124"
+^%ZTSK(1420,.1)="B^64338,62930^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1420,.2)=""
+^%ZTSK(1420,.21)=""
+^%ZTSK(1420,.25)=""
+^%ZTSK(1420,.3,"DUZ(",0)="@"
+^%ZTSK(1420,.3,"XQSCH")="8"
+^%ZTSK(1420,.3,"XQY")="9891"
 ^%ZTSK(1082462,.1)="E^64013,39495^Interrupted While Running"
 ^%ZTSK(1082463,.1)="E^64013,39495^Interrupted While Running"
 ^%ZTSK(1082464,.1)="E^64013,39495^Interrupted While Running"

Packages/Kernel/Globals/200+NEW PERSON.zwr

@@ -1,5 +1,5 @@
 OSEHRA ZGO Export: NEW PERSON
-24-FEB-2017 17:00:31 ZWR
+24-FEB-2017 17:32:28 ZWR
 ^VA(200,0)="NEW PERSON^200Is^60^62"
 ^VA(200,.5,0)="POSTMASTER^^;^^^^^^^^^^^^^.5"
 ^VA(200,.5,1)="^^^^^^2960604^.5"
@@ -26,7 +26,7 @@ OSEHRA ZGO Export: NEW PERSON
 ^VA(200,1,0)="USER,ONE^DBA^^^^^1^^^^^^User Inactive for too long^^^1"
 ^VA(200,1,.1)="^^^^^^^^^^"
 ^VA(200,1,1)="^^^^1^^3160209^16"
-^VA(200,1,1.1)="3170224.165813^1^0^3160209"
+^VA(200,1,1.1)="3170224.173011^1^0^3160209"
 ^VA(200,1,1.2)="91"
 ^VA(200,1,2,0)="^200.02P^1^1"
 ^VA(200,1,2,1,0)="1"
@@ -284,7 +284,7 @@ OSEHRA ZGO Export: NEW PERSON
 ^VA(200,17,.1)="61472,60766^^^"
 ^VA(200,17,.15)=""
 ^VA(200,17,1)="^^^^1^^3160209^16"
-^VA(200,17,1.1)="3170224.165552^8^0^3160526^"
+^VA(200,17,1.1)="3170224.172746^8^0^3160526^"
 ^VA(200,17,1.2)="9"
 ^VA(200,17,2,0)="^200.02P^1214^1"
 ^VA(200,17,2,1214,0)="1214"

Packages/Kernel/Globals/3.5+DEVICE.zwr

@@ -1,5 +1,5 @@
 OSEHRA ZGO Export: DEVICE
-24-FEB-2017 16:59:07 ZWR
+24-FEB-2017 17:31:06 ZWR
 ^%ZIS(1,0)="DEVICE^3.5Is^53^53"
 ^%ZIS(1,1,0)="TIS51^51^1^1^^^^^TIS^^1"
 ^%ZIS(1,1,"SUBTYPE")="9"
@@ -33,7 +33,7 @@ OSEHRA ZGO Export: DEVICE
 ^%ZIS(1,9,"TYPE")="TRM"
 ^%ZIS(1,10,0)="HFS^USER$:[TEMP]TMP.DAT^1^1^^^^^"
 ^%ZIS(1,10,1)="Host File Server^^^^1^1"
-^%ZIS(1,10,5)="1011"
+^%ZIS(1,10,5)="1012"
 ^%ZIS(1,10,"IOPAR")="""WNS"""
 ^%ZIS(1,10,"SUBTYPE")="16"
 ^%ZIS(1,10,"TYPE")="HFS"
@@ -107,7 +107,7 @@ OSEHRA ZGO Export: DEVICE
 ^%ZIS(1,21,"TYPE")="RES"
 ^%ZIS(1,22,0)="TELNET^|TNT|^1^1^^^^^^^1"
 ^%ZIS(1,22,1)="TELNET"
-^%ZIS(1,22,5)="25672"
+^%ZIS(1,22,5)="25893"
 ^%ZIS(1,22,"SUBTYPE")="9"
 ^%ZIS(1,22,"TYPE")="VTRM"
 ^%ZIS(1,23,0)="OR WORKSTATION^ORDEV.DAT^0^0^^^^^^^0"