Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
Cache 13-Sep-2008 18:35:03 ZWR
^PSD(58.8,0)="DRUG ACCOUNTABILITY STATS^58.8I^1^1"
^PSD(58.8,1,0)="VAULT^M"
^PSD(58.8,"ADISP","M",1)=""
^PSD(58.8,"B","VAULT",1)=""
^PSD(58.81,0)="DRUG ACCOUNTABILITY TRANSACTION^58.81I^^0"
^PSD(58.811,0)="DRUG ACCOUNTABILITY ORDER^58.811^^"
^PSD(58.812,0)="DA UPLOAD^58.812^1^1"
^PSD(58.812,1,0)="AMERISOURCE"
^PSD(58.812,"B","AMERISOURCE",1)=""
^PSD(58.82,0)="CS ORDER STATUS^58.82^13^14"
^PSD(58.82,.5,0)="REQUESTED - NOT ORDERED"
^PSD(58.82,1,0)="ORDERED - NOT PROCESSED"
^PSD(58.82,2,0)="PROCESSED - NOT DISPENSED"
^PSD(58.82,3,0)="FILLED - NOT DELIVERED"
^PSD(58.82,4,0)="DELIVERED - ACTIVELY ON NAOU"
^PSD(58.82,5,0)="COMPLETED - GREEN SHEET READY FOR PICKUP"
^PSD(58.82,6,0)="COMPLETED - GREEN SHEET PICKED UP"
^PSD(58.82,7,0)="COMPLETED - REVIEWED"
^PSD(58.82,8,0)="COMPLETED - PENDING PROBLEM RESOLUTION"
^PSD(58.82,9,0)="CANCELLED"
^PSD(58.82,10,0)="TRANSFERRED TO ANOTHER NAOU"
^PSD(58.82,11,0)="UNDER REVIEW BY INSPECTOR"
^PSD(58.82,12,0)="LOGGED BY TRAKKER"
^PSD(58.82,13,0)="DELIVERED - PERPETUAL INVENTORY"
^PSD(58.82,"B","CANCELLED",9)=""
^PSD(58.82,"B","COMPLETED - GREEN SHEET PICKED",6)=""
^PSD(58.82,"B","COMPLETED - GREEN SHEET READY ",5)=""
^PSD(58.82,"B","COMPLETED - PENDING PROBLEM RE",8)=""
^PSD(58.82,"B","COMPLETED - REVIEWED",7)=""
^PSD(58.82,"B","DELIVERED - ACTIVELY ON NAOU",4)=""
^PSD(58.82,"B","DELIVERED - PERPETUAL INVENTOR",13)=""
^PSD(58.82,"B","FILLED - NOT DELIVERED",3)=""
^PSD(58.82,"B","LOGGED BY TRAKKER",12)=""
^PSD(58.82,"B","ORDERED - NOT PROCESSED",1)=""
^PSD(58.82,"B","PROCESSED - NOT DISPENSED",2)=""
^PSD(58.82,"B","REQUESTED - NOT ORDERED",.5)=""
^PSD(58.82,"B","TRANSFERRED TO ANOTHER NAOU",10)=""
^PSD(58.82,"B","UNDER REVIEW BY INSPECTOR",11)=""
^PSD(58.83,0)="CS COMPLETION STATUS^58.83^6^6"
^PSD(58.83,1,0)="NO DISCREPANCY"
^PSD(58.83,2,0)="TURN IN FOR DESTRUCTION"
^PSD(58.83,3,0)="RETURNED TO STOCK"
^PSD(58.83,4,0)="MATH ERROR"
^PSD(58.83,5,0)="GREEN SHEET NOT SIGNED BY NURSE"
^PSD(58.83,6,0)="OTHER - REFERRED TO PHARMACY SUPERVISOR"
^PSD(58.83,"B","GREEN SHEET NOT SIGNED BY NURSE",5)=""
^PSD(58.83,"B","MATH ERROR",4)=""
^PSD(58.83,"B","NO DISCREPANCY",1)=""
^PSD(58.83,"B","OTHER - REFERRED TO PHARMACY SUPERVISOR",6)=""
^PSD(58.83,"B","RETURNED TO STOCK",3)=""
^PSD(58.83,"B","TURN IN FOR DESTRUCTION",2)=""
^PSD(58.84,0)="DRUG ACCOUNTABILITY TRANSACTION TYPE^58.84^24^24"
^PSD(58.84,1,0)="RECEIPT INTO PHARMACY"
^PSD(58.84,2,0)="DISPENSED FROM PHARMACY"
^PSD(58.84,3,0)="RETURNED TO STOCK"
^PSD(58.84,4,0)="DESTROYED"
^PSD(58.84,5,0)="TRANSFER BETWEEN NAOUS"
^PSD(58.84,6,0)="OUTPATIENT RX"
^PSD(58.84,7,0)="CANCEL AN ORDER"
^PSD(58.84,8,0)="COMPLETE A GREEN SHEET"
^PSD(58.84,9,0)="BALANCE ADJUSTMENT"
^PSD(58.84,10,0)="RETURNED TO MANUFACTURER"
^PSD(58.84,11,0)="BALANCE INITIALIZATION"
^PSD(58.84,12,0)="INITIALIZE EXISTING GS"
^PSD(58.84,13,0)="CANCEL VERIFIED ORDER"
^PSD(58.84,14,0)="EDIT VERIFIED ORDER"
^PSD(58.84,15,0)="IV DISPENSING"
^PSD(58.84,16,0)="TRANSFER BETWEEN VAULTS"
^PSD(58.84,17,0)="LOGGED FOR PATIENT"
^PSD(58.84,18,0)="WASTED"
^PSD(58.84,19,0)="START INVENTORY (PHARMACY)"
^PSD(58.84,20,0)="COMPLETE INVENTORY (PHARMACY)"
^PSD(58.84,21,0)="START INVENTORY (INSPECTOR)"
^PSD(58.84,22,0)="COMPLETE INVENTORY (INSPECTOR)"
^PSD(58.84,23,0)="COUNT VERIFICATION"
^PSD(58.84,24,0)="TRANSFER BETWEEN PHARMACIES"
^PSD(58.84,"B","BALANCE ADJUSTMENT",9)=""
^PSD(58.84,"B","BALANCE INITIALIZATION",11)=""
^PSD(58.84,"B","CANCEL AN ORDER",7)=""
^PSD(58.84,"B","CANCEL VERIFIED ORDER",13)=""
^PSD(58.84,"B","COMPLETE A GREEN SHEET",8)=""
^PSD(58.84,"B","COMPLETE INVENTORY (INSPECTOR)",22)=""
^PSD(58.84,"B","COMPLETE INVENTORY (PHARMACY)",20)=""
^PSD(58.84,"B","COUNT VERIFICATION",23)=""
^PSD(58.84,"B","DESTROYED",4)=""
^PSD(58.84,"B","DISPENSED FROM PHARMACY",2)=""
^PSD(58.84,"B","EDIT VERIFIED ORDER",14)=""
^PSD(58.84,"B","INITIALIZE EXISTING GS",12)=""
^PSD(58.84,"B","IV DISPENSING",15)=""
^PSD(58.84,"B","LOGGED FOR PATIENT",17)=""
^PSD(58.84,"B","OUTPATIENT RX",6)=""
^PSD(58.84,"B","RECEIPT INTO PHARMACY",1)=""
^PSD(58.84,"B","RETURNED TO MANUFACTURER",10)=""
^PSD(58.84,"B","RETURNED TO STOCK",3)=""
^PSD(58.84,"B","START INVENTORY (INSPECTOR)",21)=""
^PSD(58.84,"B","START INVENTORY (PHARMACY)",19)=""
^PSD(58.84,"B","TRANSFER BETWEEN NAOUS",5)=""
^PSD(58.84,"B","TRANSFER BETWEEN PHARMACIES",24)=""
^PSD(58.84,"B","TRANSFER BETWEEN VAULTS",16)=""
^PSD(58.84,"B","WASTED",18)=""
^PSD(58.85,0)="CS WORKSHEET^58.85I^^"
^PSD(58.86,0)="CS DESTRUCTION^58.86I^^0"
^PSD(58.87,0)="CS CORRECTION LOG^58.87^^"
^PSD(58.88,0)="CS IRL PROGRAM^58.88^1^1"
^PSD(58.88,1,0)="INSPECTOR"
^PSD(58.88,1,1,0)="283^^288^288^2980402^^^^"
^PSD(58.88,1,1,1,0)="OA(300,10)                  ::File ""A"" to store record number"
^PSD(58.88,1,1,2,0)="OB(300,60)                  ::File ""B"" to store drug name"
^PSD(58.88,1,1,3,0)="OC(300,10)                  ::File ""C"" to store drug count"
^PSD(58.88,1,1,4,0)="OD(300,128)                 ::File ""D"" to store inventory data"
^PSD(58.88,1,1,5,0)="ON(9,20)                    ::"
^PSD(58.88,1,1,6,0)="OV(100,75)                  ::File ""V"" to be Variable file"
^PSD(58.88,1,1,7,0)="OE(5,20)                    ::Store location internal entry number"
^PSD(58.88,1,1,8,0)="OF(2,40)                    ::Store program variable"
^PSD(58.88,1,1,9,0)="OG(2,10)                    ::Upload conclusion file"
^PSD(58.88,1,1,10,0)="HA=0                        ::"
^PSD(58.88,1,1,11,0)="HB=0                        ::"
^PSD(58.88,1,1,12,0)="HC=0                        ::"
^PSD(58.88,1,1,13,0)="HD=0                        ::"
^PSD(58.88,1,1,14,0)="HE=0                        ::"
^PSD(58.88,1,1,15,0)="HG=0                        ::"
^PSD(58.88,1,1,16,0)="DG(0)=""++++""                ::Upload terminator"
^PSD(58.88,1,1,17,0)="DV(0)=""*""                   ::"
^PSD(58.88,1,1,18,0)="D$0=""""                      ::"
^PSD(58.88,1,1,19,0)="B1111                       ::"
^PSD(58.88,1,1,20,0)="P""Press F1 on the""          ::"
^PSD(58.88,1,1,21,0)="P""TRAKKER, to accept""       ::"
^PSD(58.88,1,1,22,0)="P""the data""                 ::"
^PSD(58.88,1,1,23,0)="P""=>""                       ::"
^PSD(58.88,1,1,24,0)="D$0=""""                      ::"
^PSD(58.88,1,1,25,0)="A;6000                      ::"
^PSD(58.88,1,1,26,0)="G#0=1.QUIT                  ::"
^PSD(58.88,1,1,27,0)="G$0=""F1"".RECEIVE            ::"
^PSD(58.88,1,1,28,0)="B10                         ::"
^PSD(58.88,1,1,29,0)="P""No data received""         ::"
^PSD(58.88,1,1,30,0)="W2                          ::"
^PSD(58.88,1,1,31,0)="G.QUIT                      ::"
^PSD(58.88,1,1,32,0)=".RECEIVE                    ::"
^PSD(58.88,1,1,33,0)="XMP,V                       ::"
^PSD(58.88,1,1,34,0)="D$0=""""                      ::"
^PSD(58.88,1,1,35,0)="VDMP;100                    ::"
^PSD(58.88,1,1,36,0)="RE                          ::"
^PSD(58.88,1,1,37,0)="D$0=""""                      ::"
^PSD(58.88,1,1,38,0)=".R1                         ::  R  1"
^PSD(58.88,1,1,39,0)="VDMP;100                    ::"
^PSD(58.88,1,1,40,0)="G#0=0.1                     ::"
^PSD(58.88,1,1,41,0)="RA                          ::"
^PSD(58.88,1,1,42,0)="VDMP;100                    ::"
^PSD(58.88,1,1,43,0)="RB                          ::"
^PSD(58.88,1,1,44,0)="VDMP;100                    ::"
^PSD(58.88,1,1,45,0)="RC                          ::"
^PSD(58.88,1,1,46,0)="G.R1                        ::"
^PSD(58.88,1,1,47,0)=".1                          ::"
^PSD(58.88,1,1,48,0)="P""\e[2JInventory Menu""      ::"
^PSD(58.88,1,1,49,0)="P""1.Perform Inventory""      ::"
^PSD(58.88,1,1,50,0)="P""2.Send Data to DHCP""      ::"
^PSD(58.88,1,1,51,0)="P""=>""                       ::"
^PSD(58.88,1,1,52,0)="D$0=""""                      ::"
^PSD(58.88,1,1,53,0)="A                           ::"
^PSD(58.88,1,1,54,0)="G$0=""2"".XMIT                ::"
^PSD(58.88,1,1,55,0)="G$0=""1"".BGN3                ::"
^PSD(58.88,1,1,56,0)="B11                         ::"
^PSD(58.88,1,1,57,0)="P""Improper Answer""          ::"
^PSD(58.88,1,1,58,0)="W2                          ::"
^PSD(58.88,1,1,59,0)="G.1                         ::"
^PSD(58.88,1,1,60,0)="HV=0                        ::"
^PSD(58.88,1,1,61,0)=".BGN2                       ::begin inventory procedure"
^PSD(58.88,1,1,62,0)="H#1=A                       ::Check to see if proper data stored in A"
^PSD(58.88,1,1,63,0)="G#1<2.ERR2                  ::If no records in file A, data was not downloaded."
^PSD(58.88,1,1,64,0)=".BGN3                       ::Ask nurse to scan his/her ID"
^PSD(58.88,1,1,65,0)="S.CLR                       ::Clear screen"
^PSD(58.88,1,1,66,0)="P""Please Identify""          ::"
^PSD(58.88,1,1,67,0)="P""your self. ""              ::"
^PSD(58.88,1,1,68,0)="P""=>""                       ::Show prompt"
^PSD(58.88,1,1,69,0)="D$0=""""                      ::Initialize $0"
^PSD(58.88,1,1,70,0)="A;6000                      ::ask for input"
^PSD(58.88,1,1,71,0)="DN(1)=$0                    ::"
^PSD(58.88,1,1,72,0)="G$0="""".1                    ::Nothing entered go back to begin"
^PSD(58.88,1,1,73,0)="G$0=""@###?##?####"".OK       ::If input matches specs goto OK"
^PSD(58.88,1,1,74,0)="B11                         ::Beep"
^PSD(58.88,1,1,75,0)="P""Improper Entry""           ::Show error message"
^PSD(58.88,1,1,76,0)="W3                          ::wait 3 seconds"
^PSD(58.88,1,1,77,0)="G.BGN3                      ::Ask for nurse ID again"
^PSD(58.88,1,1,78,0)=".OK                         ::Nurse ID is correct"
^PSD(58.88,1,1,79,0)="D$0=$0+""^""                  ::"
^PSD(58.88,1,1,80,0)="TA                          ::"
^PSD(58.88,1,1,81,0)="DF(1)=$0                    ::"
^PSD(58.88,1,1,82,0)=".BGN4                       ::Scan drug label"
^PSD(58.88,1,1,83,0)="P""Scan Drug Barcode""        ::Display prompt for drug"
^PSD(58.88,1,1,84,0)="P""=>""                       ::Show prompt"
^PSD(58.88,1,1,85,0)="D$0=""""                      ::Initialize $0"
^PSD(58.88,1,1,86,0)="A;6000                      ::ask for input"
^PSD(58.88,1,1,87,0)="G#0=1.1                     ::"
^PSD(58.88,1,1,88,0)="G$0="""".1                    ::"
^PSD(58.88,1,1,89,0)="D#1=0                       ::Set #1 equal to zero for beginning of file search"
^PSD(58.88,1,1,90,0)="LA(#1)$0#2                  ::look in file ""A"" for a match to data stored in"
^PSD(58.88,1,1,91,0)=":                           ::$0, and store that data in #2"
^PSD(58.88,1,1,92,0)="G#2=300.NOTFND             ::If entry not found inform user of no match"
^PSD(58.88,1,1,93,0)="DV(2)=A(#2)                 ::Set var. V(2) equal to transaction number"
^PSD(58.88,1,1,94,0)="DV(3)=B(#2)                 ::Set var. V(3) equal to drug name"
^PSD(58.88,1,1,95,0)=".QNTY                       ::"
^PSD(58.88,1,1,96,0)="DV(4)=C(#2)                 ::Set var. V(4) equal to count"
^PSD(58.88,1,1,97,0)=".SHOW                       ::  S  H  O  W"
^PSD(58.88,1,1,98,0)="S.CLR                       ::"
^PSD(58.88,1,1,99,0)="PV(3)                       ::Display drug name"
^PSD(58.88,1,1,100,0)="W2                          ::"
^PSD(58.88,1,1,101,0)="D$2=""Quantity: ""+V(4)       ::Set $2 equal to quantity prompt"
^PSD(58.88,1,1,102,0)="P$2                         ::Display quantity prompt and quantity"
^PSD(58.88,1,1,103,0)="D$3=""""                      ::"
^PSD(58.88,1,1,104,0)="D$3=V(4)                    ::"
^PSD(58.88,1,1,105,0)="C#8=$3                      ::"
^PSD(58.88,1,1,106,0)=".ASK                        ::Ask is correct"
^PSD(58.88,1,1,107,0)="P""Correct count ? ""         ::"
^PSD(58.88,1,1,108,0)="P""YES // ""                  ::"
^PSD(58.88,1,1,109,0)="D$0=""""                      ::Initialize $0"
^PSD(58.88,1,1,110,0)="A;6000                      ::Ask for input"
^PSD(58.88,1,1,111,0)="G#0=1.1                     ::"
^PSD(58.88,1,1,112,0)="G$0="""".UP4                  ::"
^PSD(58.88,1,1,113,0)=":GV(4)=""0"".EMPTY             ::"
^PSD(58.88,1,1,114,0)="G$0=""Y"".UP4                 ::  ''"
^PSD(58.88,1,1,115,0)="G$0=""N"".NOTOK               ::Go make adjustments if answer is ""N"""
^PSD(58.88,1,1,116,0)="B11                         ::Display error message"
^PSD(58.88,1,1,117,0)="S.CLR                       ::clear screen"
^PSD(58.88,1,1,118,0)="P""Answer with a Y,N,""       ::"
^PSD(58.88,1,1,119,0)="P""or <RET>""                 ::"
^PSD(58.88,1,1,120,0)="W3                          ::Wait three seconds"
^PSD(58.88,1,1,121,0)="G.SHOW                      ::"
^PSD(58.88,1,1,122,0)=".SUM                        ::"
^PSD(58.88,1,1,123,0)="D$0=""""                      ::"
^PSD(58.88,1,1,124,0)="S.SUM1                      ::"
^PSD(58.88,1,1,125,0)="DV(6)=""""                    ::"
^PSD(58.88,1,1,126,0)="DV(8)=""""                    ::"
^PSD(58.88,1,1,127,0)="DV(9)=""""                    ::"
^PSD(58.88,1,1,128,0)="DV(10)=""""                   ::"
^PSD(58.88,1,1,129,0)="DV(11)=""""                   ::"
^PSD(58.88,1,1,130,0)="DV(12)=""""                   ::"
^PSD(58.88,1,1,131,0)="G.BGN4                      ::"
^PSD(58.88,1,1,132,0)=".SUM1                       ::"
^PSD(58.88,1,1,133,0)="P""Updating Files""     :"
^PSD(58.88,1,1,134,0)="P""Please wait""              ::"
^PSD(58.88,1,1,135,0)="D$0=$0+N(1)                 ::1st nurse id"
^PSD(58.88,1,1,136,0)="I""^""                        ::"
^PSD(58.88,1,1,137,0)="D$0=$0+V(2)                 ::transaction number"
^PSD(58.88,1,1,138,0)="I""^""                        ::"
^PSD(58.88,1,1,139,0)="D$0=$0+V(3)                 ::drug name"
^PSD(58.88,1,1,140,0)="I""^""                        ::"
^PSD(58.88,1,1,141,0)="D$0=$0+C(#2)                ::original count"
^PSD(58.88,1,1,142,0)="I""^""                        ::"
^PSD(58.88,1,1,143,0)="D$0=$0+V(5)                 ::patient id"
^PSD(58.88,1,1,144,0)="I""^""                        ::"
^PSD(58.88,1,1,145,0)="D$0=$0+V(6)                 ::dispensed amount"
^PSD(58.88,1,1,146,0)="I""^""                        ::"
^PSD(58.88,1,1,147,0)="D$0=$0+V(7)                 ::2nd nurse"
^PSD(58.88,1,1,148,0)="I""^""                        ::"
^PSD(58.88,1,1,149,0)="D$0=$0+V(8)                 ::Correct Count"
^PSD(58.88,1,1,150,0)="I""^""                        ::"
^PSD(58.88,1,1,151,0)="D$0=$0+V(9)                 ::Wasted Amount"
^PSD(58.88,1,1,152,0)="I""^""                        ::"
^PSD(58.88,1,1,153,0)="D$0=$0+V(10)                ::Liquid dispensed"
^PSD(58.88,1,1,154,0)="I""^""                        ::"
^PSD(58.88,1,1,155,0)="D$0=$0+V(11)                ::Wasted comments"
^PSD(58.88,1,1,156,0)="I""^""                        ::"
^PSD(58.88,1,1,157,0)="D$0=$0+V(12)                ::Liquid Dispensed Comments"
^PSD(58.88,1,1,158,0)="TA                          ::Append time to data"
^PSD(58.88,1,1,159,0)="R$0D                        ::Record string $0 into file D"
^PSD(58.88,1,1,160,0)="DV(8)=""""                    ::"
^PSD(58.88,1,1,161,0)="DV(9)=""""                    ::"
^PSD(58.88,1,1,162,0)="DV(10)=""""                   ::"
^PSD(58.88,1,1,163,0)="DV(11)=""""                   ::"
^PSD(58.88,1,1,164,0)="DV(12)=""""                   ::"
^PSD(58.88,1,1,165,0)="C$3=#5                      ::"
^PSD(58.88,1,1,166,0)="DV(4)=$3                    ::Set variable drug count to adjusted count"
^PSD(58.88,1,1,167,0)="DC(#2)=$3                   ::"
^PSD(58.88,1,1,168,0)=".UP1                        ::   U  P  1"
^PSD(58.88,1,1,169,0)="D#4=0                       ::"
^PSD(58.88,1,1,170,0)="D$3=""""                      ::"
^PSD(58.88,1,1,171,0)="D$3=V(3)                    ::"
^PSD(58.88,1,1,172,0)="G.UP3                       ::"
^PSD(58.88,1,1,173,0)=".UP2                        ::   U  P  2"
^PSD(58.88,1,1,174,0)="D#4=#4+1                    ::"
^PSD(58.88,1,1,175,0)=".UP3                        ::   U  P  3"
^PSD(58.88,1,1,176,0)="G#4=#2.UP2                  ::"
^PSD(58.88,1,1,177,0)="G#4=300.DONEUP              ::"
^PSD(58.88,1,1,178,0)="D$2=""""                      ::"
^PSD(58.88,1,1,179,0)="D$2=B(#4)                   ::"
^PSD(58.88,1,1,180,0)="G$2=$3.ADJUST               ::"
^PSD(58.88,1,1,181,0)="G.UP2                       ::"
^PSD(58.88,1,1,182,0)=".ADJUST                     ::   A  D  J  U  S  T"
^PSD(58.88,1,1,183,0)="DC(#4)=V(4)                 ::"
^PSD(58.88,1,1,184,0)="G.UP2                       ::"
^PSD(58.88,1,1,185,0)=".DONEUP                     ::   D  O  N  E  U  P"
^PSD(58.88,1,1,186,0)="B11                         ::"
^PSD(58.88,1,1,187,0)="P""Adjustments""              ::"
^PSD(58.88,1,1,188,0)="P""completed""                ::"
^PSD(58.88,1,1,189,0)="W3                          ::"
^PSD(58.88,1,1,190,0)="Q                           ::"
^PSD(58.88,1,1,191,0)=".NOTOK                      ::  N O T O K"
^PSD(58.88,1,1,192,0)="S.CLR                       ::"
^PSD(58.88,1,1,193,0)="P""Enter correct count""      ::"
^PSD(58.88,1,1,194,0)="P""=>""                       ::"
^PSD(58.88,1,1,195,0)="D$0=""""                      ::"
^PSD(58.88,1,1,196,0)="N;6000                      ::"
^PSD(58.88,1,1,197,0)="G$0="""".SHOW                 ::"
^PSD(58.88,1,1,198,0)="C#5=$0                      ::"
^PSD(58.88,1,1,199,0)="DV(8)=$0                    ::"
^PSD(58.88,1,1,200,0)="D$0=""""                      ::"
^PSD(58.88,1,1,201,0)="S.SUM1                      ::"
^PSD(58.88,1,1,202,0)="G.SHOW                      ::"
^PSD(58.88,1,1,203,0)=".XMIT                       ::  X  M  I  T"
^PSD(58.88,1,1,204,0)="P""Execute the data""         ::"
^PSD(58.88,1,1,205,0)="P""upload option in""         ::"
^PSD(58.88,1,1,206,0)="P""DHCP""                     ::"
^PSD(58.88,1,1,207,0)="W3                          ::"
^PSD(58.88,1,1,208,0)="P""Press F1 to send""         ::"
^PSD(58.88,1,1,209,0)="D$0=""""                      ::"
^PSD(58.88,1,1,210,0)="A;6000                      ::"
^PSD(58.88,1,1,211,0)="G#0=1.1                     ::"
^PSD(58.88,1,1,212,0)="G$0=""F1"".SEND               ::"
^PSD(58.88,1,1,213,0)="B11                         ::"
^PSD(58.88,1,1,214,0)="P""NO DATA SENT""             ::"
^PSD(58.88,1,1,215,0)="G.1                         ::"
^PSD(58.88,1,1,216,0)=".SEND                       ::  S  E  N  D"
^PSD(58.88,1,1,217,0)="D$0=""""                      ::"
^PSD(58.88,1,1,218,0)="XMP,F                       ::"
^PSD(58.88,1,1,219,0)="XMP,E                       ::"
^PSD(58.88,1,1,220,0)="XMP,D                       ::"
^PSD(58.88,1,1,221,0)="XMP,G                       :: Transmission terminator"
^PSD(58.88,1,1,222,0)="B111                        ::"
^PSD(58.88,1,1,223,0)="P""Data sent""                ::"
^PSD(58.88,1,1,224,0)="W1                          ::"
^PSD(58.88,1,1,225,0)="G.1                         ::"
^PSD(58.88,1,1,226,0)=".ERR2                       ::   E  R  R  2"
^PSD(58.88,1,1,227,0)="S.CLR                       ::"
^PSD(58.88,1,1,228,0)="P""No data exists in""        ::"
^PSD(58.88,1,1,229,0)="P""the files where the""      ::"
^PSD(58.88,1,1,230,0)="P""downloaded data""          ::"
^PSD(58.88,1,1,231,0)="P""should be.""               ::"
^PSD(58.88,1,1,232,0)="W4                          ::"
^PSD(58.88,1,1,233,0)="S.CLR                       ::"
^PSD(58.88,1,1,234,0)="P""Execute the down-""        ::"
^PSD(58.88,1,1,235,0)="P""load procedure""           ::"
^PSD(58.88,1,1,236,0)="P""once again.""              ::"
^PSD(58.88,1,1,237,0)="W3                          ::"
^PSD(58.88,1,1,238,0)="G.1                         ::"
^PSD(58.88,1,1,239,0)=".CLR                        ::  C  L  R"
^PSD(58.88,1,1,240,0)="P""\e[2J""                    ::"
^PSD(58.88,1,1,241,0)="Q                           ::"
^PSD(58.88,1,1,242,0)=".EMPTY                      ::  E  M  P  T  Y"
^PSD(58.88,1,1,243,0)="B11                         ::"
^PSD(58.88,1,1,244,0)="S.CLR                       ::"
^PSD(58.88,1,1,245,0)="PV(3)                       ::"
^PSD(58.88,1,1,246,0)="P""is showing a zero""        ::"
^PSD(58.88,1,1,247,0)="P""count. No more can""       ::"
^PSD(58.88,1,1,248,0)="P""be dispensed.""            ::"
^PSD(58.88,1,1,249,0)="W4                          ::"
^PSD(58.88,1,1,250,0)="G.BGN4                      ::"
^PSD(58.88,1,1,251,0)=".NOTFND                     ::  N  O  T  F  N  D  1"
^PSD(58.88,1,1,252,0)="B111                        ::"
^PSD(58.88,1,1,253,0)="S.CLR                       ::"
^PSD(58.88,1,1,254,0)="P""Drug not found in""        ::"
^PSD(58.88,1,1,255,0)="P""the data that was""        ::"
^PSD(58.88,1,1,256,0)="P""downloaded.""              ::"
^PSD(58.88,1,1,257,0)="W5                          ::"
^PSD(58.88,1,1,258,0)="G.BGN4                      ::"
^PSD(58.88,1,1,259,0)=".QUIT                       ::  Q  U  I  T"
^PSD(58.88,1,1,260,0)="ER                          ::"
^PSD(58.88,1,1,261,0)=".UP4                        ::"
^PSD(58.88,1,1,262,0)="D$0=""""                      ::"
^PSD(58.88,1,1,263,0)="D$0=$0+N(1)                 ::1st nurse id"
^PSD(58.88,1,1,264,0)="I""^""                        ::"
^PSD(58.88,1,1,265,0)="D$0=$0+V(2)                 ::transaction number"
^PSD(58.88,1,1,266,0)="I""^""                        ::"
^PSD(58.88,1,1,267,0)="D$0=$0+V(3)                 ::drug name"
^PSD(58.88,1,1,268,0)="I""^""                        ::"
^PSD(58.88,1,1,269,0)="D$0=$0+C(#2)                ::original count"
^PSD(58.88,1,1,270,0)="I""^""                        ::"
^PSD(58.88,1,1,271,0)="D$0=$0+V(5)                 ::patient id"
^PSD(58.88,1,1,272,0)="I""^""                        ::"
^PSD(58.88,1,1,273,0)="D$0=$0+V(6)                 ::dispensed amount"
^PSD(58.88,1,1,274,0)="I""^""                        ::"
^PSD(58.88,1,1,275,0)="D$0=$0+V(7)                 ::2nd nurse"
^PSD(58.88,1,1,276,0)="I""^""                        ::"
^PSD(58.88,1,1,277,0)="D$0=$0+V(8)                 ::Correct Count"
^PSD(58.88,1,1,278,0)="I""^""                        ::"
^PSD(58.88,1,1,279,0)="D$0=$0+V(9)                 ::Wasted Amount"
^PSD(58.88,1,1,280,0)="I""^""                        ::"
^PSD(58.88,1,1,281,0)="D$0=$0+V(10)                ::Liquid dispensed"
^PSD(58.88,1,1,282,0)="I""^""                        ::"
^PSD(58.88,1,1,283,0)="D$0=$0+V(11)                ::Wasted comments"
^PSD(58.88,1,1,284,0)="I""^""                        ::"
^PSD(58.88,1,1,285,0)="D$0=$0+V(12)                ::Liquid Dispensed Comments"
^PSD(58.88,1,1,286,0)="TA                          ::Append time to data"
^PSD(58.88,1,1,287,0)="R$0D                        ::Record string $0 into file D"
^PSD(58.88,1,1,288,0)="G.BGN4                      ::"
^PSD(58.88,"B","INSPECTOR",1)=""
^PSD(58.89,0)="CS ERROR LOG^58.89I^^"