source: FOIAVistA/trunk/g/PSD.zwr@ 1293

Last change on this file since 1293 was 628, checked in by George Lilly, 15 years ago

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