399 lines
22 KiB
Plaintext
399 lines
22 KiB
Plaintext
FirstRelease WVEHR VER VOE1.0
|
|
Cache 31-Jan-2008 23:07:04 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^^"
|