source: FOIAVistA/trunk/g/PRCT.zwr@ 1683

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

initial load of FOIAVistA 6/30/08 version
File size: 135.3 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^PRCT(446.4,0)="BARCODE PROGRAM^446.4I^5^4"
4^PRCT(446.4,1,0)="EXPENDABLE PHYSICAL COUNT^PRCPH^^PHYSICAL-PRCPBALM^^0^^2940415^6^^^1"
5^PRCT(446.4,1,1,0)="307^^308^308^2940926^^^^"
6^PRCT(446.4,1,1,1,0)=" ::RGY/WASHINGTON-ISC@ALTOONA,PA - Expendable Physical count IRL program"
7^PRCT(446.4,1,1,2,0)=" ::Version 3.01, 5/30/90"
8^PRCT(446.4,1,1,3,0)=" ::"
9^PRCT(446.4,1,1,4,0)=" ::V(2) = Record"
10^PRCT(446.4,1,1,5,0)=" ::V(4) = Quantity"
11^PRCT(446.4,1,1,6,0)=" ::"
12^PRCT(446.4,1,1,7,0)=" ::The barcode label (record) contains the inventory point with the "
13^PRCT(446.4,1,1,8,0)=" ::expendable item number. For example: IE585883 38383. The user wands the"
14^PRCT(446.4,1,1,9,0)=" ::label and then enters quantity. When the record is stored into the"
15^PRCT(446.4,1,1,10,0)=" ::inventory file on barcode reader, the quantity is appended to the end"
16^PRCT(446.4,1,1,11,0)=" ::of the record. For example: If 'IE58589 322 18' would be inventory"
17^PRCT(446.4,1,1,12,0)=" ::point 58589, part number 322 with a physical count of 18."
18^PRCT(446.4,1,1,13,0)=" ::"
19^PRCT(446.4,1,1,14,0)="OI(1000,20) ::Initialize a inventory file"
20^PRCT(446.4,1,1,15,0)="OV(5,20) ::Initialize a variable file"
21^PRCT(446.4,1,1,16,0)=" ::"
22^PRCT(446.4,1,1,17,0)=".BEG :: BEG"
23^PRCT(446.4,1,1,18,0)="P""\e[2JCurrent Program"" ::Show user program name"
24^PRCT(446.4,1,1,19,0)="P""is Expendable"" :: (cont)"
25^PRCT(446.4,1,1,20,0)="P""Physical Count."" :: (cont)"
26^PRCT(446.4,1,1,21,0)="P""Id: PRCPH"" ::Print program identifier"
27^PRCT(446.4,1,1,22,0)="W5 ::Wait five seconds to allow view of message"
28^PRCT(446.4,1,1,23,0)="H#1=I ::Set reg 1 to current rec # in invent file"
29^PRCT(446.4,1,1,24,0)="G#1>0.DAT ::If data alread exist in ivent. file warn user"
30^PRCT(446.4,1,1,25,0)="S.CLR ::Clear screen"
31^PRCT(446.4,1,1,26,0)="P""Please enter ..."" ::Ask user for ID"
32^PRCT(446.4,1,1,27,0)="P""file ID: "" :: (cont)"
33^PRCT(446.4,1,1,28,0)="A ::User input of user ID"
34^PRCT(446.4,1,1,29,0)="D$0=""ID""+$0 ::Set first record to be ID"
35^PRCT(446.4,1,1,30,0)="RI ::Store first record into inven file"
36^PRCT(446.4,1,1,31,0)=" ::"
37^PRCT(446.4,1,1,32,0)=".START :: START"
38^PRCT(446.4,1,1,33,0)="P""\e[2J1. Enter Inventory"" ::Clear screen and print menu"
39^PRCT(446.4,1,1,34,0)="P""2. Transmit Data"" :: (cont)"
40^PRCT(446.4,1,1,35,0)="P""3. Review/Delete"" :: (cont)"
41^PRCT(446.4,1,1,36,0)="P""Enter (1-3): "" :: (cont)"
42^PRCT(446.4,1,1,37,0)="D$0="""" ::Initialize input string"
43^PRCT(446.4,1,1,38,0)="A ::User input of option"
44^PRCT(446.4,1,1,39,0)="G$0=""1"".ENTER ::If Enter Inventory selected, goto entry of invent."
45^PRCT(446.4,1,1,40,0)="G$0=""2"".XMIT ::If transmit option selected, goto transmit data"
46^PRCT(446.4,1,1,41,0)="G$0=""3"".REVDEL ::If Review/Delete option selected, goto review and del record"
47^PRCT(446.4,1,1,42,0)="B00 ::Sound beep two times"
48^PRCT(446.4,1,1,43,0)="S.CLR ::Clear screen"
49^PRCT(446.4,1,1,44,0)="P""*** Error, enter a"" ::Print message of invalid input"
50^PRCT(446.4,1,1,45,0)="P""number from 1-3."" :: (cont)"
51^PRCT(446.4,1,1,46,0)="W5 ::Wait 5 seconds to allow view of message"
52^PRCT(446.4,1,1,47,0)="G.START ::Go back and display main menu"
53^PRCT(446.4,1,1,48,0)=" ::"
54^PRCT(446.4,1,1,49,0)=".ENTER :: ENTER"
55^PRCT(446.4,1,1,50,0)="H#1=I ::Set regist 1 to Num. of rec. in inven file"
56^PRCT(446.4,1,1,51,0)="G#1>995.STOP ::If invent. file full, do not allow anymore entries"
57^PRCT(446.4,1,1,52,0)="S#1>985.WARN ::If invent. file almost full, warn user"
58^PRCT(446.4,1,1,53,0)="D$0=""\e[2J IE: ""+V(2) ::Display current record"
59^PRCT(446.4,1,1,54,0)="P$0 :: (cont)"
60^PRCT(446.4,1,1,55,0)="D$0=""QTY: ""+V(4) ::Display Quantity"
61^PRCT(446.4,1,1,56,0)="P$0 :: (cont)"
62^PRCT(446.4,1,1,57,0)="P"" # "" ::Display input symbol for invent."
63^PRCT(446.4,1,1,58,0)="D$0="""" ::Initialize input variable"
64^PRCT(446.4,1,1,59,0)="A ::Allow user input of next invent. record"
65^PRCT(446.4,1,1,60,0)="G$0=""F1"".DEL ::If input is the function key 1, delete record a start over"
66^PRCT(446.4,1,1,61,0)="S$0=""."".STORE ::Store record"
67^PRCT(446.4,1,1,62,0)="G$0=""."".START ::If input a ""."", goto back to main menu"
68^PRCT(446.4,1,1,63,0)="D$1=$0M2,1 ::Get code type of entry"
69^PRCT(446.4,1,1,64,0)="G$1=""IE"".RECORD ::If code is ""IE"", goto entry of new record"
70^PRCT(446.4,1,1,65,0)="G$0="""".ENTER ::If return entered, don't accept input"
71^PRCT(446.4,1,1,66,0)="GV(2)="""".NOREC ::If qty entered with no record, goto error message"
72^PRCT(446.4,1,1,67,0)="D#1=0 ::Initialize character counter"
73^PRCT(446.4,1,1,68,0)="D#3=0 ::Initialize second number of Qty string"
74^PRCT(446.4,1,1,69,0)="D#4=0 ::Initialize first number of Qty string"
75^PRCT(446.4,1,1,70,0)="D$1="""" ::Initialize current character (CC) of Qty string"
76^PRCT(446.4,1,1,71,0)="D$2="""" ::Initialize current string of Qty string"
77^PRCT(446.4,1,1,72,0)="D$3="""" ::Initialize operand of Qty string"
78^PRCT(446.4,1,1,73,0)=".LP1 :: LP1"
79^PRCT(446.4,1,1,74,0)="D#1=#1+1 ::Increment character counter by 1"
80^PRCT(446.4,1,1,75,0)="D$1=$0M1,#1 ::Define CC of Qty string"
81^PRCT(446.4,1,1,76,0)="G$1="""".LP1Q ::If CC of Qty string is null, then end of Qty string and Quit"
82^PRCT(446.4,1,1,77,0)="C#5=$1 ::Evaluate if CC is a number"
83^PRCT(446.4,1,1,78,0)="CV(0)=#5 :: (cont)"
84^PRCT(446.4,1,1,79,0)="GV(0)=$1.NUM ::If CC a number, goto save number"
85^PRCT(446.4,1,1,80,0)="G$1=""T"".OPR ::If CC a ""T"", goto save operand string"
86^PRCT(446.4,1,1,81,0)="G$1=""U"".OPR ::If CC a ""U"", goto save operand string"
87^PRCT(446.4,1,1,82,0)=".ERROR ::If CC not a number or operand, then display invalid input"
88^PRCT(446.4,1,1,83,0)="B00 ::Sound beep two times"
89^PRCT(446.4,1,1,84,0)="S.CLR ::Clear screen"
90^PRCT(446.4,1,1,85,0)="P""*** Error, unkown"" ::Print error message"
91^PRCT(446.4,1,1,86,0)="P""operation in entry."" :: (cont)"
92^PRCT(446.4,1,1,87,0)="W5 ::Wait five seconds to allow view of message"
93^PRCT(446.4,1,1,88,0)="G.ENTER ::Goto entry of next Inventory record"
94^PRCT(446.4,1,1,89,0)=".NUM :: NUM"
95^PRCT(446.4,1,1,90,0)="D$2=$2+$1 ::Define current string of Qty string"
96^PRCT(446.4,1,1,91,0)="C#3=$2 ::Define second number of Qty string"
97^PRCT(446.4,1,1,92,0)="G.LP1 ::Go back and get next character of Qty string"
98^PRCT(446.4,1,1,93,0)=".OPR :: OPR"
99^PRCT(446.4,1,1,94,0)="G[$3]>0.ERROR ::If a operator alread exists, go to error message"
100^PRCT(446.4,1,1,95,0)="D$3=$1 ::Define operator string"
101^PRCT(446.4,1,1,96,0)="C#4=$2 ::Set first number of Qty string to current string"
102^PRCT(446.4,1,1,97,0)="D$2="""" ::Initialize current string"
103^PRCT(446.4,1,1,98,0)="G.LP1 ::Go back and get next character"
104^PRCT(446.4,1,1,99,0)=" ::"
105^PRCT(446.4,1,1,100,0)=".LP1Q :: LP1Q"
106^PRCT(446.4,1,1,101,0)="C#2=V(4) ::Define current quatity of part"
107^PRCT(446.4,1,1,102,0)="G$3=""T"".MUL ::If operator is ""T"", multiply numbers"
108^PRCT(446.4,1,1,103,0)="G$3=""U"".MIN ::If operator is a ""U"", subtract numbers"
109^PRCT(446.4,1,1,104,0)="G$3="""".PLUS ::If no operator exists, then goto add number"
110^PRCT(446.4,1,1,105,0)=".SET :: SET"
111^PRCT(446.4,1,1,106,0)="C$0=#2 ::Define current Qty"
112^PRCT(446.4,1,1,107,0)="DV(4)=$0 ::Define current Qty into local variable file"
113^PRCT(446.4,1,1,108,0)="G.ENTER ::Go back and get next inventory record"
114^PRCT(446.4,1,1,109,0)=" ::"
115^PRCT(446.4,1,1,110,0)=".MUL :: MUL"
116^PRCT(446.4,1,1,111,0)="D#3=#3*#4 ::Multiply second number entered and first number entered"
117^PRCT(446.4,1,1,112,0)="D#2=#2+#3 ::Add Muliplication to current Qty"
118^PRCT(446.4,1,1,113,0)="G.SET ::Go and set new quantity"
119^PRCT(446.4,1,1,114,0)=" ::"
120^PRCT(446.4,1,1,115,0)=".MIN :: MIN"
121^PRCT(446.4,1,1,116,0)="D#2=#2-#3 ::Subtract second number enter from current qty"
122^PRCT(446.4,1,1,117,0)="D#2=#2+#4 ::Add first number enter to current qty"
123^PRCT(446.4,1,1,118,0)="G.SET ::Go and set new quantity"
124^PRCT(446.4,1,1,119,0)=" ::"
125^PRCT(446.4,1,1,120,0)=".PLUS :: PLUS"
126^PRCT(446.4,1,1,121,0)="D#2=#2+#3 ::Add second number entered to current qty"
127^PRCT(446.4,1,1,122,0)="D#2=#2+#4 ::Add first number entered to current qty"
128^PRCT(446.4,1,1,123,0)="G.SET ::Go and set new quantity"
129^PRCT(446.4,1,1,124,0)=" ::"
130^PRCT(446.4,1,1,125,0)=".STORE :: STORE"
131^PRCT(446.4,1,1,126,0)="QV(2)="""" ::Quit provided no record"
132^PRCT(446.4,1,1,127,0)="SV(4)="""".NOQTY ::If not quantity, warn user"
133^PRCT(446.4,1,1,128,0)="D$1=$0 ::Store record into scratch variable"
134^PRCT(446.4,1,1,129,0)="D$0=V(2)+"" "" ::Create record with quantity"
135^PRCT(446.4,1,1,130,0)="D$0=$0+V(4) :: (cont)"
136^PRCT(446.4,1,1,131,0)="RI ::Store quanatity into inventory file"
137^PRCT(446.4,1,1,132,0)="D$0=$1 ::Restore record"
138^PRCT(446.4,1,1,133,0)="DV(2)="""" ::Initialize record"
139^PRCT(446.4,1,1,134,0)="DV(4)="""" ::Initialize quantity"
140^PRCT(446.4,1,1,135,0)="Q ::Quit subroutine"
141^PRCT(446.4,1,1,136,0)=" ::"
142^PRCT(446.4,1,1,137,0)=".RECORD :: RECORD"
143^PRCT(446.4,1,1,138,0)="S.STORE"
144^PRCT(446.4,1,1,139,0)="DV(2)=$0 ::Store record into scratch variable"
145^PRCT(446.4,1,1,140,0)="DV(4)="""" ::Reset QTY"
146^PRCT(446.4,1,1,141,0)="G.ENTER ::Goto entry of next record"
147^PRCT(446.4,1,1,142,0)=" ::"
148^PRCT(446.4,1,1,143,0)=".REVDEL :: REVDEL"
149^PRCT(446.4,1,1,144,0)="S.CLR ::Clear screen"
150^PRCT(446.4,1,1,145,0)="P""How far back do"" ::Ask user how many records to go back"
151^PRCT(446.4,1,1,146,0)="P""you want to go"" :: (cont)"
152^PRCT(446.4,1,1,147,0)="P""(0 to quit) ? "" :: (cont)"
153^PRCT(446.4,1,1,148,0)="D$0="""" ::Initialize input string"
154^PRCT(446.4,1,1,149,0)="N1,2 ::User input of 1 or 3 numerics"
155^PRCT(446.4,1,1,150,0)="G$0=""0"".START ::If input is a 0, go back to main menu"
156^PRCT(446.4,1,1,151,0)="C#2=$0 ::Put input into numeric variable"
157^PRCT(446.4,1,1,152,0)="H#1=I ::Put number of records in inventory file into variable"
158^PRCT(446.4,1,1,153,0)="D#2=#1-#2 ::Define the record to start display"
159^PRCT(446.4,1,1,154,0)="S.CLR ::Clear screen"
160^PRCT(446.4,1,1,155,0)=".LP2 :: LP2"
161^PRCT(446.4,1,1,156,0)="G#2=#1.EOTRAN ::If all records displayed, ask which record to delete"
162^PRCT(446.4,1,1,157,0)="C$2=#2 ::Setup display of record"
163^PRCT(446.4,1,1,158,0)="D$0=$2+"") "" :: (cont)"
164^PRCT(446.4,1,1,159,0)="D$0=$0+I(#2) :: (cont)"
165^PRCT(446.4,1,1,160,0)="P$0 ::Show record to user"
166^PRCT(446.4,1,1,161,0)="W3 ::Wait three seconds to allow viewing of record"
167^PRCT(446.4,1,1,162,0)="D#2=#2+1 ::Increment record counter"
168^PRCT(446.4,1,1,163,0)="G.LP2 ::Goo get next record"
169^PRCT(446.4,1,1,164,0)=".EOTRAN :: EOTRAN"
170^PRCT(446.4,1,1,165,0)="P""*** END ***"" ::Display to user End of Records"
171^PRCT(446.4,1,1,166,0)="W5 ::Wait five seconds for user review of display"
172^PRCT(446.4,1,1,167,0)="S.CLR ::Clear screen"
173^PRCT(446.4,1,1,168,0)="P""Which record do you"" ::Asj user shich record to delete"
174^PRCT(446.4,1,1,169,0)="P""want to delete"" :: (cont)"
175^PRCT(446.4,1,1,170,0)="P""(0 to quit) ? "" :: (cont)"
176^PRCT(446.4,1,1,171,0)="D$0="""" ::Initialize input string"
177^PRCT(446.4,1,1,172,0)="N1,2,3 ::Allow user input of 1,2 or 3 numberics"
178^PRCT(446.4,1,1,173,0)="G$0=""0"".START ::If user enters a 0, go back to main menu"
179^PRCT(446.4,1,1,174,0)="C#1=$0 ::Define input as a number"
180^PRCT(446.4,1,1,175,0)=".ASK1 :: ASK1"
181^PRCT(446.4,1,1,176,0)="S.CLR ::Clear screen"
182^PRCT(446.4,1,1,177,0)="C$0=#1 ::Setup display of record before deletion"
183^PRCT(446.4,1,1,178,0)="D$0=""*** Record ""+$0 :: (cont)"
184^PRCT(446.4,1,1,179,0)="D$0=$0+"" ***"" :: (cont)"
185^PRCT(446.4,1,1,180,0)="P$0 ::Print display of record"
186^PRCT(446.4,1,1,181,0)="PI(#1) :: (cont)"
187^PRCT(446.4,1,1,182,0)="P""Are you ..."" ::Ask user for verification before deletion"
188^PRCT(446.4,1,1,183,0)="P""... sure (Y/N) ?"" :: (cont)"
189^PRCT(446.4,1,1,184,0)="D$0="""" ::Initialize input string"
190^PRCT(446.4,1,1,185,0)="A1 ::Allow user input of one character only"
191^PRCT(446.4,1,1,186,0)="G$0=""."".START ::If input a period, go back to main menu"
192^PRCT(446.4,1,1,187,0)="G$0=""N"".REVDEL ::If input a ""N"", then ask which record again"
193^PRCT(446.4,1,1,188,0)="G$0=""Y"".DELREC ::If input a ""Y"", go delete record"
194^PRCT(446.4,1,1,189,0)="B00 ::Sound beep two times"
195^PRCT(446.4,1,1,190,0)="S.CLR ::Clear screen"
196^PRCT(446.4,1,1,191,0)="P""*** Error, enter"" ::Tell user a Y or N must be entered"
197^PRCT(446.4,1,1,192,0)="P""a Y or N."" :: (cont)"
198^PRCT(446.4,1,1,193,0)="W5 ::Wait five seconds to allow view of message"
199^PRCT(446.4,1,1,194,0)="G.ASK1 ::Go back and ask ""ok to delete"" question"
200^PRCT(446.4,1,1,195,0)=" ::"
201^PRCT(446.4,1,1,196,0)=".DELREC :: DELREC"
202^PRCT(446.4,1,1,197,0)="DI(#1)=""*Deleted*"" ::Set record in inventory file to null to show deletion"
203^PRCT(446.4,1,1,198,0)="S.CLR ::Clear screen"
204^PRCT(446.4,1,1,199,0)="P"" "" ::Tell user the record has been deleted"
205^PRCT(446.4,1,1,200,0)="P""* Record Deleted *"" :: (cont)"
206^PRCT(446.4,1,1,201,0)="W5 ::Wait five seconds to allow view of message"
207^PRCT(446.4,1,1,202,0)="G.REVDEL ::Go back and ask what records to view for deletion"
208^PRCT(446.4,1,1,203,0)=" ::"
209^PRCT(446.4,1,1,204,0)=".XMIT :: XMIT"
210^PRCT(446.4,1,1,205,0)="D$0=""PRCPH"" ::Define data identifier"
211^PRCT(446.4,1,1,206,0)="XMP,$0 ::Send data idnetifier to host system"
212^PRCT(446.4,1,1,207,0)="XMP,I ::Transmit the inventory file to external device"
213^PRCT(446.4,1,1,208,0)="H#1=I ::Find how many records exist in inventory file"
214^PRCT(446.4,1,1,209,0)="C$0=#1 ::Set string variable to number of records"
215^PRCT(446.4,1,1,210,0)="D$0=""***END***^""+$0 ::Setup End of file message"
216^PRCT(446.4,1,1,211,0)="XMP,$0 ::Send end of file message to external device"
217^PRCT(446.4,1,1,212,0)=" ::"
218^PRCT(446.4,1,1,213,0)=".ASK :: ASK"
219^PRCT(446.4,1,1,214,0)="S.CLR ::Clear screen"
220^PRCT(446.4,1,1,215,0)="P""Data xmitted, do"" ::Display confirmation of transmission message"
221^PRCT(446.4,1,1,216,0)="P""you want to purge"" :: (cont)"
222^PRCT(446.4,1,1,217,0)="P""the file (Y/N) ? "" :: (cont)"
223^PRCT(446.4,1,1,218,0)="D$0="""" ::Initialize input variable"
224^PRCT(446.4,1,1,219,0)="A ::Allow user input"
225^PRCT(446.4,1,1,220,0)="G$0=""Y"".PUR ::If user input is a ""Y"", go and purge inventory file"
226^PRCT(446.4,1,1,221,0)="G$0=""N"".START ::If user input is a ""N"", go back to main menu"
227^PRCT(446.4,1,1,222,0)="G$0=""."".START ::If user input is a ""."", go back to main menu"
228^PRCT(446.4,1,1,223,0)="B00 ::Sound beep two times"
229^PRCT(446.4,1,1,224,0)="S.CLR ::Clear screen"
230^PRCT(446.4,1,1,225,0)="P""Please enter a "" ::Display error message"
231^PRCT(446.4,1,1,226,0)="P""Y or N."" :: (cont)"
232^PRCT(446.4,1,1,227,0)="W5 ::Wait five seconds to allow view of message"
233^PRCT(446.4,1,1,228,0)="G.ASK ::Go back and ask purge question"
234^PRCT(446.4,1,1,229,0)=".PUR :: PUR"
235^PRCT(446.4,1,1,230,0)="HI=0 ::Purge of inventory file"
236^PRCT(446.4,1,1,231,0)="HV=0 ::Purge of local variable file"
237^PRCT(446.4,1,1,232,0)="B0 ::Sound beep one time"
238^PRCT(446.4,1,1,233,0)="P""** File Purged **"" ::Inform user of purged file"
239^PRCT(446.4,1,1,234,0)="W3 ::Wait three seconds to allow view of message"
240^PRCT(446.4,1,1,235,0)="G.BEG ::Go back to begining of program"
241^PRCT(446.4,1,1,236,0)=" ::"
242^PRCT(446.4,1,1,237,0)=".DEL :: DEL"
243^PRCT(446.4,1,1,238,0)="DV(4)="""" ::Initialize Qty"
244^PRCT(446.4,1,1,239,0)="G.ENTER ::Go back to enter inventory record"
245^PRCT(446.4,1,1,240,0)=" ::"
246^PRCT(446.4,1,1,241,0)=".CLR :: CLR"
247^PRCT(446.4,1,1,242,0)="P""\e[2J"" ::Clear screen escape sequence"
248^PRCT(446.4,1,1,243,0)="Q ::Quit subroutine"
249^PRCT(446.4,1,1,244,0)=" ::"
250^PRCT(446.4,1,1,245,0)=".NOREC :: NOREC"
251^PRCT(446.4,1,1,246,0)="B00 ::Sound beep two times"
252^PRCT(446.4,1,1,247,0)="S.CLR ::Clear screen"
253^PRCT(446.4,1,1,248,0)="P""*** Error, enter a"" ::Print error message"
254^PRCT(446.4,1,1,249,0)="P""part number first."" :: (cont)"
255^PRCT(446.4,1,1,250,0)="W5 ::Wait five seconds to allow view of message"
256^PRCT(446.4,1,1,251,0)="G.ENTER ::Go back to enter inventory record"
257^PRCT(446.4,1,1,252,0)=" ::"
258^PRCT(446.4,1,1,253,0)=".WARN :: WARN"
259^PRCT(446.4,1,1,254,0)="B0 ::Sound beep"
260^PRCT(446.4,1,1,255,0)="P""\e[2J**** WARNING ****"" ::Clear screen andprint warning message"
261^PRCT(446.4,1,1,256,0)="P""Data file is almost"" :: (cont)"
262^PRCT(446.4,1,1,257,0)="P""full. Please XMIT"" :: (cont)"
263^PRCT(446.4,1,1,258,0)="P""data and purge file."" :: (cont)"
264^PRCT(446.4,1,1,259,0)="W3 ::Wait three seconds to allow view of message"
265^PRCT(446.4,1,1,260,0)="Q ::Quit subroutine"
266^PRCT(446.4,1,1,261,0)=" ::"
267^PRCT(446.4,1,1,262,0)=".NOQTY :: NOQTY"
268^PRCT(446.4,1,1,263,0)="B00 ::Sound beep two times"
269^PRCT(446.4,1,1,264,0)="P""\e[2JWARNING: No qty"" ::Print warning message"
270^PRCT(446.4,1,1,265,0)="P""was entered for"" :: (cont)"
271^PRCT(446.4,1,1,266,0)="P""part #:"" :: (cont)"
272^PRCT(446.4,1,1,267,0)="PV(2) ::Print part #"
273^PRCT(446.4,1,1,268,0)="W5 ::Wait five seconds to allow view of message"
274^PRCT(446.4,1,1,269,0)="Q ::Quit subroutine"
275^PRCT(446.4,1,1,270,0)=" ::"
276^PRCT(446.4,1,1,271,0)=".STOP :: STOP"
277^PRCT(446.4,1,1,272,0)="B00 ::Sound beep two times"
278^PRCT(446.4,1,1,273,0)="S.CLR ::Clear screen"
279^PRCT(446.4,1,1,274,0)="P""Sorry, data file is"" ::Print error message"
280^PRCT(446.4,1,1,275,0)="P""FULL, you must XMIT"" :: (cont)"
281^PRCT(446.4,1,1,276,0)="P""and purge file."" :: (cont)"
282^PRCT(446.4,1,1,277,0)="W5 ::Wait five seconds to allow view of message"
283^PRCT(446.4,1,1,278,0)="G.START ::Go back to main menu"
284^PRCT(446.4,1,1,279,0)=" ::"
285^PRCT(446.4,1,1,280,0)=".DAT :: DAT"
286^PRCT(446.4,1,1,281,0)="S.CLR ::Clear screen"
287^PRCT(446.4,1,1,282,0)="B00 ::Sound beep two times"
288^PRCT(446.4,1,1,283,0)="P""*** WARNING ***"" ::Print warning message of existing data"
289^PRCT(446.4,1,1,284,0)="P""Data exists on"" :: (cont)"
290^PRCT(446.4,1,1,285,0)="P""this barcode reader."" :: (cont)"
291^PRCT(446.4,1,1,286,0)="W5 ::Wait five seconds to allow view of message"
292^PRCT(446.4,1,1,287,0)="P""The first record in"" ::Display first record to user"
293^PRCT(446.4,1,1,288,0)="P""this file"" :: (cont)"
294^PRCT(446.4,1,1,289,0)="D$0=""is: ""+I(0) ::Setup display of first record"
295^PRCT(446.4,1,1,290,0)="P$0 ::Print first record"
296^PRCT(446.4,1,1,291,0)="W5 ::Wait five seconds to allow view of message"
297^PRCT(446.4,1,1,292,0)="S.CLR ::Clear screen"
298^PRCT(446.4,1,1,293,0)="P""Do you want to"" ::Query user to purge existing file"
299^PRCT(446.4,1,1,294,0)="P""purge this file ..."" :: (cont)"
300^PRCT(446.4,1,1,295,0)="P""... (Y/N) ? "" :: (cont)"
301^PRCT(446.4,1,1,296,0)="D$0="""" ::Initialize input variable"
302^PRCT(446.4,1,1,297,0)="A ::User input"
303^PRCT(446.4,1,1,298,0)="G$0=""Y"".PUR ::If user input is a ""Y"", go and purge files"
304^PRCT(446.4,1,1,299,0)="G$0=""N"".START ::If user input a ""N"", go to main menu"
305^PRCT(446.4,1,1,300,0)="G$0=""."".START ::If user input is a ""."", go to main menu"
306^PRCT(446.4,1,1,301,0)="B00 ::Sound beep two times"
307^PRCT(446.4,1,1,302,0)="S.CLR ::Clear screen"
308^PRCT(446.4,1,1,303,0)="P""Please enter a "" ::Display error message"
309^PRCT(446.4,1,1,304,0)="P""Y or N."" :: (cont)"
310^PRCT(446.4,1,1,305,0)="W5 ::Wait five seconds to allow view of message"
311^PRCT(446.4,1,1,306,0)="G.DAT ::Go back to existing data question"
312^PRCT(446.4,1,1,307,0)=" ::"
313^PRCT(446.4,1,1,308,0)="E ::End of program"
314^PRCT(446.4,1,2,0)="^446.42DI^2^2"
315^PRCT(446.4,1,2,1,0)="2940831.1004^65^RTN IS M"
316^PRCT(446.4,1,2,1,1,0)="^^10^10^2941206^"
317^PRCT(446.4,1,2,1,1,1,0)="34"
318^PRCT(446.4,1,2,1,1,2,0)="1234"
319^PRCT(446.4,1,2,1,1,3,0)="123"
320^PRCT(446.4,1,2,1,1,4,0)="412351246w13413"
321^PRCT(446.4,1,2,1,1,5,0)="4f134"
322^PRCT(446.4,1,2,1,1,6,0)="134f13e"
323^PRCT(446.4,1,2,1,1,7,0)="t"
324^PRCT(446.4,1,2,1,1,8,0)="134"
325^PRCT(446.4,1,2,1,1,9,0)="t"
326^PRCT(446.4,1,2,1,1,10,0)="4f134t^^"
327^PRCT(446.4,1,2,2,0)="2941206.153"
328^PRCT(446.4,1,2,"B",2940831.1004,1)=""
329^PRCT(446.4,1,2,"B",2941206.153,2)=""
330^PRCT(446.4,2,0)="EXPENDABLE USAGE^PRCUS^^USAGE-PRCPBALM^^1^^2940414^6^^^1"
331^PRCT(446.4,2,1,0)="307^^308^308^2921207^^^^"
332^PRCT(446.4,2,1,1,0)="::RGY/WASHINGTON-ISC@ALTOONA,PA - Expendable Usuage IRL program"
333^PRCT(446.4,2,1,2,0)="::Version 3.01, 5/30/90"
334^PRCT(446.4,2,1,3,0)="::"
335^PRCT(446.4,2,1,4,0)="::V(2) = Record"
336^PRCT(446.4,2,1,5,0)="::V(4) = Quantity"
337^PRCT(446.4,2,1,6,0)="::"
338^PRCT(446.4,2,1,7,0)="::The barcode label (record) contains the inventory point with the "
339^PRCT(446.4,2,1,8,0)="::expendable item number. For example: IE585883 38383. The user wands the"
340^PRCT(446.4,2,1,9,0)="::label and then enters quantity. When the record is stored into the"
341^PRCT(446.4,2,1,10,0)="::inventory file on barcode reader, the quantity is appended to the end"
342^PRCT(446.4,2,1,11,0)="::of the record. For example: If 'IE58589 322 18' would be inventory"
343^PRCT(446.4,2,1,12,0)="::point 58589, part number 322 with a usuage of 18."
344^PRCT(446.4,2,1,13,0)="::"
345^PRCT(446.4,2,1,14,0)="OI(1000,20) ::Initialize a inventory file"
346^PRCT(446.4,2,1,15,0)="OV(5,20) ::Initialize a variable file"
347^PRCT(446.4,2,1,16,0)=" ::"
348^PRCT(446.4,2,1,17,0)=".BEG :: BEG"
349^PRCT(446.4,2,1,18,0)="P""\e[2JCurrent Program"" ::Show user program name"
350^PRCT(446.4,2,1,19,0)="P""is Expendable Usage"" :: (cont)"
351^PRCT(446.4,2,1,20,0)=" ::Blank line"
352^PRCT(446.4,2,1,21,0)="P""Id: PRCUS"" ::Print program identifier"
353^PRCT(446.4,2,1,22,0)="W5 ::Wait five seconds to allow view of message"
354^PRCT(446.4,2,1,23,0)="H#1=I ::Set reg 1 to current rec # in invent file"
355^PRCT(446.4,2,1,24,0)="G#1>0.DAT ::If data alread exist in ivent. file warn user"
356^PRCT(446.4,2,1,25,0)="S.CLR ::Clear screen"
357^PRCT(446.4,2,1,26,0)="P""Please enter ..."" ::Ask user for ID"
358^PRCT(446.4,2,1,27,0)="P""file ID: "" :: (cont)"
359^PRCT(446.4,2,1,28,0)="A ::User input of user ID"
360^PRCT(446.4,2,1,29,0)="D$0=""ID""+$0 ::Set first record to be ID"
361^PRCT(446.4,2,1,30,0)="RI ::Store first record into inven file"
362^PRCT(446.4,2,1,31,0)=" ::"
363^PRCT(446.4,2,1,32,0)=".START :: START"
364^PRCT(446.4,2,1,33,0)="P""\e[2J1. Enter Inventory"" ::Clear screen and print menu"
365^PRCT(446.4,2,1,34,0)="P""2. Transmit Data"" :: (cont)"
366^PRCT(446.4,2,1,35,0)="P""3. Review/Delete"" :: (cont)"
367^PRCT(446.4,2,1,36,0)="P""Enter (1-3): "" :: (cont)"
368^PRCT(446.4,2,1,37,0)="D$0="""" ::Initialize input string"
369^PRCT(446.4,2,1,38,0)="A ::User input of option"
370^PRCT(446.4,2,1,39,0)="G$0=""1"".ENTER ::If Enter Inventory selected, goto entry of invent."
371^PRCT(446.4,2,1,40,0)="G$0=""2"".XMIT ::If transmit option selected, goto transmit data"
372^PRCT(446.4,2,1,41,0)="G$0=""3"".REVDEL ::If Review/Delete option selected, goto review and del record"
373^PRCT(446.4,2,1,42,0)="B00 ::Sound beep two times"
374^PRCT(446.4,2,1,43,0)="S.CLR ::Clear screen"
375^PRCT(446.4,2,1,44,0)="P""*** Error, enter a"" ::Print message of invalid input"
376^PRCT(446.4,2,1,45,0)="P""number from 1-3."" :: (cont)"
377^PRCT(446.4,2,1,46,0)="W5 ::Wait 5 seconds to allow view of message"
378^PRCT(446.4,2,1,47,0)="G.START ::Go back and display main menu"
379^PRCT(446.4,2,1,48,0)=" ::"
380^PRCT(446.4,2,1,49,0)=".ENTER :: ENTER"
381^PRCT(446.4,2,1,50,0)="H#1=I ::Set regist 1 to Num. of rec. in inven file"
382^PRCT(446.4,2,1,51,0)="G#1>995.STOP ::If invent. file full, do not allow anymore entries"
383^PRCT(446.4,2,1,52,0)="S#1>985.WARN ::If invent. file almost full, warn user"
384^PRCT(446.4,2,1,53,0)="D$0=""\e[2J IE: ""+V(2) ::Display current record"
385^PRCT(446.4,2,1,54,0)="P$0 :: (cont)"
386^PRCT(446.4,2,1,55,0)="D$0=""QTY: ""+V(4) ::Display Quantity"
387^PRCT(446.4,2,1,56,0)="P$0 :: (cont)"
388^PRCT(446.4,2,1,57,0)="P"" # "" ::Display input symbol for invent."
389^PRCT(446.4,2,1,58,0)="D$0="""" ::Initialize input variable"
390^PRCT(446.4,2,1,59,0)="A ::Allow user input of next invent. record"
391^PRCT(446.4,2,1,60,0)="G$0=""F1"".DEL ::If input is the function key 1, delete record a start over"
392^PRCT(446.4,2,1,61,0)="S$0=""."".STORE ::Store record"
393^PRCT(446.4,2,1,62,0)="G$0=""."".START ::If input a ""."", goto back to main menu"
394^PRCT(446.4,2,1,63,0)="D$1=$0M2,1 ::Get code type of entry"
395^PRCT(446.4,2,1,64,0)="G$1=""IE"".RECORD ::If code is ""IE"", goto entry of new record"
396^PRCT(446.4,2,1,65,0)="G$0="""".ENTER ::If return entered, don't accept input"
397^PRCT(446.4,2,1,66,0)="GV(2)="""".NOREC ::If qty entered with no record, goto error message"
398^PRCT(446.4,2,1,67,0)="D#1=0 ::Initialize character counter"
399^PRCT(446.4,2,1,68,0)="D#3=0 ::Initialize second number of Qty string"
400^PRCT(446.4,2,1,69,0)="D#4=0 ::Initialize first number of Qty string"
401^PRCT(446.4,2,1,70,0)="D$1="""" ::Initialize current character (CC) of Qty string"
402^PRCT(446.4,2,1,71,0)="D$2="""" ::Initialize current string of Qty string"
403^PRCT(446.4,2,1,72,0)="D$3="""" ::Initialize operand of Qty string"
404^PRCT(446.4,2,1,73,0)=".LP1 :: LP1"
405^PRCT(446.4,2,1,74,0)="D#1=#1+1 ::Increment character counter by 1"
406^PRCT(446.4,2,1,75,0)="D$1=$0M1,#1 ::Define CC of Qty string"
407^PRCT(446.4,2,1,76,0)="G$1="""".LP1Q ::If CC of Qty string is null, then end of Qty string and Quit"
408^PRCT(446.4,2,1,77,0)="C#5=$1 ::Evaluate if CC is a number"
409^PRCT(446.4,2,1,78,0)="CV(0)=#5 :: (cont)"
410^PRCT(446.4,2,1,79,0)="GV(0)=$1.NUM ::If CC a number, goto save number"
411^PRCT(446.4,2,1,80,0)="G$1=""T"".OPR ::If CC a ""T"", goto save operand string"
412^PRCT(446.4,2,1,81,0)="G$1=""U"".OPR ::If CC a ""U"", goto save operand string"
413^PRCT(446.4,2,1,82,0)=".ERROR ::If CC not a number or operand, then display invalid input"
414^PRCT(446.4,2,1,83,0)="B00 ::Sound beep two times"
415^PRCT(446.4,2,1,84,0)="S.CLR ::Clear screen"
416^PRCT(446.4,2,1,85,0)="P""*** Error, unkown"" ::Print error message"
417^PRCT(446.4,2,1,86,0)="P""operation in entry."" :: (cont)"
418^PRCT(446.4,2,1,87,0)="W5 ::Wait five seconds to allow view of message"
419^PRCT(446.4,2,1,88,0)="G.ENTER ::Goto entry of next Inventory record"
420^PRCT(446.4,2,1,89,0)=".NUM :: NUM"
421^PRCT(446.4,2,1,90,0)="D$2=$2+$1 ::Define current string of Qty string"
422^PRCT(446.4,2,1,91,0)="C#3=$2 ::Define second number of Qty string"
423^PRCT(446.4,2,1,92,0)="G.LP1 ::Go back and get next character of Qty string"
424^PRCT(446.4,2,1,93,0)=".OPR :: OPR"
425^PRCT(446.4,2,1,94,0)="G[$3]>0.ERROR ::If a operator alread exists, go to error message"
426^PRCT(446.4,2,1,95,0)="D$3=$1 ::Define operator string"
427^PRCT(446.4,2,1,96,0)="C#4=$2 ::Set first number of Qty string to current string"
428^PRCT(446.4,2,1,97,0)="D$2="""" ::Initialize current string"
429^PRCT(446.4,2,1,98,0)="G.LP1 ::Go back and get next character"
430^PRCT(446.4,2,1,99,0)=" ::"
431^PRCT(446.4,2,1,100,0)=".LP1Q :: LP1Q"
432^PRCT(446.4,2,1,101,0)="C#2=V(4) ::Define current quatity of part"
433^PRCT(446.4,2,1,102,0)="G$3=""T"".MUL ::If operator is ""T"", multiply numbers"
434^PRCT(446.4,2,1,103,0)="G$3=""U"".MIN ::If operator is a ""U"", subtract numbers"
435^PRCT(446.4,2,1,104,0)="G$3="""".PLUS ::If no operator exists, then goto add number"
436^PRCT(446.4,2,1,105,0)=".SET :: SET"
437^PRCT(446.4,2,1,106,0)="C$0=#2 ::Define current Qty"
438^PRCT(446.4,2,1,107,0)="DV(4)=$0 ::Define current Qty into local variable file"
439^PRCT(446.4,2,1,108,0)="G.ENTER ::Go back and get next inventory record"
440^PRCT(446.4,2,1,109,0)=" ::"
441^PRCT(446.4,2,1,110,0)=".MUL :: MUL"
442^PRCT(446.4,2,1,111,0)="D#3=#3*#4 ::Multiply second number entered and first number entered"
443^PRCT(446.4,2,1,112,0)="D#2=#2+#3 ::Add Muliplication to current Qty"
444^PRCT(446.4,2,1,113,0)="G.SET ::Go and set new quantity"
445^PRCT(446.4,2,1,114,0)=" ::"
446^PRCT(446.4,2,1,115,0)=".MIN :: MIN"
447^PRCT(446.4,2,1,116,0)="D#2=#2-#3 ::Subtract second number enter from current qty"
448^PRCT(446.4,2,1,117,0)="D#2=#2+#4 ::Add first number enter to current qty"
449^PRCT(446.4,2,1,118,0)="G.SET ::Go and set new quantity"
450^PRCT(446.4,2,1,119,0)=" ::"
451^PRCT(446.4,2,1,120,0)=".PLUS :: PLUS"
452^PRCT(446.4,2,1,121,0)="D#2=#2+#3 ::Add second number entered to current qty"
453^PRCT(446.4,2,1,122,0)="D#2=#2+#4 ::Add first number entered to current qty"
454^PRCT(446.4,2,1,123,0)="G.SET ::Go and set new quantity"
455^PRCT(446.4,2,1,124,0)=" ::"
456^PRCT(446.4,2,1,125,0)=".STORE :: STORE"
457^PRCT(446.4,2,1,126,0)="QV(2)="""" ::Quit provided no record"
458^PRCT(446.4,2,1,127,0)="SV(4)="""".NOQTY ::If not quantity, warn user"
459^PRCT(446.4,2,1,128,0)="D$1=$0 ::Store record into scratch variable"
460^PRCT(446.4,2,1,129,0)="D$0=V(2)+"" "" ::Create record with quantity"
461^PRCT(446.4,2,1,130,0)="D$0=$0+V(4) :: (cont)"
462^PRCT(446.4,2,1,131,0)="RI ::Store quanatity into inventory file"
463^PRCT(446.4,2,1,132,0)="D$0=$1 ::Restore record"
464^PRCT(446.4,2,1,133,0)="DV(2)="""" ::Initialize record"
465^PRCT(446.4,2,1,134,0)="DV(4)="""" ::Initialize quantity"
466^PRCT(446.4,2,1,135,0)="Q ::Quit subroutine"
467^PRCT(446.4,2,1,136,0)=" ::"
468^PRCT(446.4,2,1,137,0)=".RECORD :: RECORD"
469^PRCT(446.4,2,1,138,0)="S.STORE"
470^PRCT(446.4,2,1,139,0)="DV(2)=$0 ::Store record into scratch variable"
471^PRCT(446.4,2,1,140,0)="DV(4)="""" ::Reset QTY"
472^PRCT(446.4,2,1,141,0)="G.ENTER ::Goto entry of next record"
473^PRCT(446.4,2,1,142,0)=" ::"
474^PRCT(446.4,2,1,143,0)=".REVDEL :: REVDEL"
475^PRCT(446.4,2,1,144,0)="S.CLR ::Clear screen"
476^PRCT(446.4,2,1,145,0)="P""How far back do"" ::Ask user how many records to go back"
477^PRCT(446.4,2,1,146,0)="P""you want to go"" :: (cont)"
478^PRCT(446.4,2,1,147,0)="P""(0 to quit) ? "" :: (cont)"
479^PRCT(446.4,2,1,148,0)="D$0="""" ::Initialize input string"
480^PRCT(446.4,2,1,149,0)="N1,2 ::User input of 1 or 3 numerics"
481^PRCT(446.4,2,1,150,0)="G$0=""0"".START ::If input is a 0, go back to main menu"
482^PRCT(446.4,2,1,151,0)="C#2=$0 ::Put input into numeric variable"
483^PRCT(446.4,2,1,152,0)="H#1=I ::Put number of records in inventory file into variable"
484^PRCT(446.4,2,1,153,0)="D#2=#1-#2 ::Define the record to start display"
485^PRCT(446.4,2,1,154,0)="S.CLR ::Clear screen"
486^PRCT(446.4,2,1,155,0)=".LP2 :: LP2"
487^PRCT(446.4,2,1,156,0)="G#2=#1.EOTRAN ::If all records displayed, ask which record to delete"
488^PRCT(446.4,2,1,157,0)="C$2=#2 ::Setup display of record"
489^PRCT(446.4,2,1,158,0)="D$0=$2+"") "" :: (cont)"
490^PRCT(446.4,2,1,159,0)="D$0=$0+I(#2) :: (cont)"
491^PRCT(446.4,2,1,160,0)="P$0 ::Show record to user"
492^PRCT(446.4,2,1,161,0)="W3 ::Wait three seconds to allow viewing of record"
493^PRCT(446.4,2,1,162,0)="D#2=#2+1 ::Increment record counter"
494^PRCT(446.4,2,1,163,0)="G.LP2 ::Goo get next record"
495^PRCT(446.4,2,1,164,0)=".EOTRAN :: EOTRAN"
496^PRCT(446.4,2,1,165,0)="P""*** END ***"" ::Display to user End of Records"
497^PRCT(446.4,2,1,166,0)="W5 ::Wait five seconds for user review of display"
498^PRCT(446.4,2,1,167,0)="S.CLR ::Clear screen"
499^PRCT(446.4,2,1,168,0)="P""Which record do you"" ::Asj user shich record to delete"
500^PRCT(446.4,2,1,169,0)="P""want to delete"" :: (cont)"
501^PRCT(446.4,2,1,170,0)="P""(0 to quit) ? "" :: (cont)"
502^PRCT(446.4,2,1,171,0)="D$0="""" ::Initialize input string"
503^PRCT(446.4,2,1,172,0)="N1,2,3 ::Allow user input of 1,2 or 3 numberics"
504^PRCT(446.4,2,1,173,0)="G$0=""0"".START ::If user enters a 0, go back to main menu"
505^PRCT(446.4,2,1,174,0)="C#1=$0 ::Define input as a number"
506^PRCT(446.4,2,1,175,0)=".ASK1 :: ASK1"
507^PRCT(446.4,2,1,176,0)="S.CLR ::Clear screen"
508^PRCT(446.4,2,1,177,0)="C$0=#1 ::Setup display of record before deletion"
509^PRCT(446.4,2,1,178,0)="D$0=""*** Record ""+$0 :: (cont)"
510^PRCT(446.4,2,1,179,0)="D$0=$0+"" ***"" :: (cont)"
511^PRCT(446.4,2,1,180,0)="P$0 ::Print display of record"
512^PRCT(446.4,2,1,181,0)="PI(#1) :: (cont)"
513^PRCT(446.4,2,1,182,0)="P""Are you ..."" ::Ask user for verification before deletion"
514^PRCT(446.4,2,1,183,0)="P""... sure (Y/N) ?"" :: (cont)"
515^PRCT(446.4,2,1,184,0)="D$0="""" ::Initialize input string"
516^PRCT(446.4,2,1,185,0)="A1 ::Allow user input of one character only"
517^PRCT(446.4,2,1,186,0)="G$0=""."".START ::If input a period, go back to main menu"
518^PRCT(446.4,2,1,187,0)="G$0=""N"".REVDEL ::If input a ""N"", then ask which record again"
519^PRCT(446.4,2,1,188,0)="G$0=""Y"".DELREC ::If input a ""Y"", go delete record"
520^PRCT(446.4,2,1,189,0)="B00 ::Sound beep two times"
521^PRCT(446.4,2,1,190,0)="S.CLR ::Clear screen"
522^PRCT(446.4,2,1,191,0)="P""*** Error, enter"" ::Tell user a Y or N must be entered"
523^PRCT(446.4,2,1,192,0)="P""a Y or N."" :: (cont)"
524^PRCT(446.4,2,1,193,0)="W5 ::Wait five seconds to allow view of message"
525^PRCT(446.4,2,1,194,0)="G.ASK1 ::Go back and ask ""ok to delete"" question"
526^PRCT(446.4,2,1,195,0)=" ::"
527^PRCT(446.4,2,1,196,0)=".DELREC :: DELREC"
528^PRCT(446.4,2,1,197,0)="DI(#1)=""*Deleted*"" ::Set record in inventory file to null to show deletion"
529^PRCT(446.4,2,1,198,0)="S.CLR ::Clear screen"
530^PRCT(446.4,2,1,199,0)="P"" "" ::Tell user the record has been deleted"
531^PRCT(446.4,2,1,200,0)="P""* Record Deleted *"" :: (cont)"
532^PRCT(446.4,2,1,201,0)="W5 ::Wait five seconds to allow view of message"
533^PRCT(446.4,2,1,202,0)="G.REVDEL ::Go back and ask what records to view for deletion"
534^PRCT(446.4,2,1,203,0)=" ::"
535^PRCT(446.4,2,1,204,0)=".XMIT :: XMIT"
536^PRCT(446.4,2,1,205,0)="D$0=""PRCUS"" ::Define data identifier"
537^PRCT(446.4,2,1,206,0)="XMP,$0 ::Send data idnetifier to host system"
538^PRCT(446.4,2,1,207,0)="XMP,I ::Transmit the inventory file to external device"
539^PRCT(446.4,2,1,208,0)="H#1=I ::Find how many records exist in inventory file"
540^PRCT(446.4,2,1,209,0)="C$0=#1 ::Set string variable to number of records"
541^PRCT(446.4,2,1,210,0)="D$0=""***END***^""+$0 ::Setup End of file message"
542^PRCT(446.4,2,1,211,0)="XMP,$0 ::Send end of file message to external device"
543^PRCT(446.4,2,1,212,0)=" ::"
544^PRCT(446.4,2,1,213,0)=".ASK :: ASK"
545^PRCT(446.4,2,1,214,0)="S.CLR ::Clear screen"
546^PRCT(446.4,2,1,215,0)="P""Data xmitted, do"" ::Display confirmation of transmission message"
547^PRCT(446.4,2,1,216,0)="P""you want to purge"" :: (cont)"
548^PRCT(446.4,2,1,217,0)="P""the file (Y/N) ? "" :: (cont)"
549^PRCT(446.4,2,1,218,0)="D$0="""" ::Initialize input variable"
550^PRCT(446.4,2,1,219,0)="A ::Allow user input"
551^PRCT(446.4,2,1,220,0)="G$0=""Y"".PUR ::If user input is a ""Y"", go and purge inventory file"
552^PRCT(446.4,2,1,221,0)="G$0=""N"".START ::If user input is a ""N"", go back to main menu"
553^PRCT(446.4,2,1,222,0)="G$0=""."".START ::If user input is a ""."", go back to main menu"
554^PRCT(446.4,2,1,223,0)="B00 ::Sound beep two times"
555^PRCT(446.4,2,1,224,0)="S.CLR ::Clear screen"
556^PRCT(446.4,2,1,225,0)="P""Please enter a "" ::Display error message"
557^PRCT(446.4,2,1,226,0)="P""Y or N."" :: (cont)"
558^PRCT(446.4,2,1,227,0)="W5 ::Wait five seconds to allow view of message"
559^PRCT(446.4,2,1,228,0)="G.ASK ::Go back and ask purge question"
560^PRCT(446.4,2,1,229,0)=".PUR :: PUR"
561^PRCT(446.4,2,1,230,0)="HI=0 ::Purge of inventory file"
562^PRCT(446.4,2,1,231,0)="HV=0 ::Purge of local variable file"
563^PRCT(446.4,2,1,232,0)="B0 ::Sound beep one time"
564^PRCT(446.4,2,1,233,0)="P""** File Purged **"" ::Inform user of purged file"
565^PRCT(446.4,2,1,234,0)="W3 ::Wait three seconds to allow view of message"
566^PRCT(446.4,2,1,235,0)="G.BEG ::Go back to begining of program"
567^PRCT(446.4,2,1,236,0)=" ::"
568^PRCT(446.4,2,1,237,0)=".DEL :: DEL"
569^PRCT(446.4,2,1,238,0)="DV(4)="""" ::Initialize Qty"
570^PRCT(446.4,2,1,239,0)="G.ENTER ::Go back to enter inventory record"
571^PRCT(446.4,2,1,240,0)=" ::"
572^PRCT(446.4,2,1,241,0)=".CLR :: CLR"
573^PRCT(446.4,2,1,242,0)="P""\e[2J"" ::Clear screen escape sequence"
574^PRCT(446.4,2,1,243,0)="Q ::Quit subroutine"
575^PRCT(446.4,2,1,244,0)=" ::"
576^PRCT(446.4,2,1,245,0)=".NOREC :: NOREC"
577^PRCT(446.4,2,1,246,0)="B00 ::Sound beep two times"
578^PRCT(446.4,2,1,247,0)="S.CLR ::Clear screen"
579^PRCT(446.4,2,1,248,0)="P""*** Error, enter a"" ::Print error message"
580^PRCT(446.4,2,1,249,0)="P""part number first."" :: (cont)"
581^PRCT(446.4,2,1,250,0)="W5 ::Wait five seconds to allow view of message"
582^PRCT(446.4,2,1,251,0)="G.ENTER ::Go back to enter inventory record"
583^PRCT(446.4,2,1,252,0)=" ::"
584^PRCT(446.4,2,1,253,0)=".WARN :: WARN"
585^PRCT(446.4,2,1,254,0)="B0 ::Sound beep"
586^PRCT(446.4,2,1,255,0)="P""\e[2J**** WARNING ****"" ::Clear screen andprint warning message"
587^PRCT(446.4,2,1,256,0)="P""Data file is almost"" :: (cont)"
588^PRCT(446.4,2,1,257,0)="P""full. Please XMIT"" :: (cont)"
589^PRCT(446.4,2,1,258,0)="P""data and purge file."" :: (cont)"
590^PRCT(446.4,2,1,259,0)="W3 ::Wait three seconds to allow view of message"
591^PRCT(446.4,2,1,260,0)="Q ::Quit subroutine"
592^PRCT(446.4,2,1,261,0)=" ::"
593^PRCT(446.4,2,1,262,0)=".NOQTY :: NOQTY"
594^PRCT(446.4,2,1,263,0)="B00 ::Sound beep two times"
595^PRCT(446.4,2,1,264,0)="P""\e[2JWARNING: No qty"" ::Print warning message"
596^PRCT(446.4,2,1,265,0)="P""was entered for"" :: (cont)"
597^PRCT(446.4,2,1,266,0)="P""part #:"" :: (cont)"
598^PRCT(446.4,2,1,267,0)="PV(2) ::Print part #"
599^PRCT(446.4,2,1,268,0)="W5 ::Wait five seconds to allow view of message"
600^PRCT(446.4,2,1,269,0)="Q ::Quit subroutine"
601^PRCT(446.4,2,1,270,0)=" ::"
602^PRCT(446.4,2,1,271,0)=".STOP :: STOP"
603^PRCT(446.4,2,1,272,0)="B00 ::Sound beep two times"
604^PRCT(446.4,2,1,273,0)="S.CLR ::Clear screen"
605^PRCT(446.4,2,1,274,0)="P""Sorry, data file is"" ::Print error message"
606^PRCT(446.4,2,1,275,0)="P""FULL, you must XMIT"" :: (cont)"
607^PRCT(446.4,2,1,276,0)="P""and purge file."" :: (cont)"
608^PRCT(446.4,2,1,277,0)="W5 ::Wait five seconds to allow view of message"
609^PRCT(446.4,2,1,278,0)="G.START ::Go back to main menu"
610^PRCT(446.4,2,1,279,0)=" ::"
611^PRCT(446.4,2,1,280,0)=".DAT :: DAT"
612^PRCT(446.4,2,1,281,0)="S.CLR ::Clear screen"
613^PRCT(446.4,2,1,282,0)="B00 ::Sound beep two times"
614^PRCT(446.4,2,1,283,0)="P""*** WARNING ***"" ::Print warning message of existing data"
615^PRCT(446.4,2,1,284,0)="P""Data exists on"" :: (cont)"
616^PRCT(446.4,2,1,285,0)="P""this barcode reader."" :: (cont)"
617^PRCT(446.4,2,1,286,0)="W5 ::Wait five seconds to allow view of message"
618^PRCT(446.4,2,1,287,0)="P""The first record in"" ::Display first record to user"
619^PRCT(446.4,2,1,288,0)="P""this file"" :: (cont)"
620^PRCT(446.4,2,1,289,0)="D$0=""is: ""+I(0) ::Setup display of first record"
621^PRCT(446.4,2,1,290,0)="P$0 ::Print first record"
622^PRCT(446.4,2,1,291,0)="W5 ::Wait five seconds to allow view of message"
623^PRCT(446.4,2,1,292,0)="S.CLR ::Clear screen"
624^PRCT(446.4,2,1,293,0)="P""Do you want to"" ::Query user to purge existing file"
625^PRCT(446.4,2,1,294,0)="P""purge this file ..."" :: (cont)"
626^PRCT(446.4,2,1,295,0)="P""... (Y/N) ? "" :: (cont)"
627^PRCT(446.4,2,1,296,0)="D$0="""" ::Initialize input variable"
628^PRCT(446.4,2,1,297,0)="A ::User input"
629^PRCT(446.4,2,1,298,0)="G$0=""Y"".PUR ::If user input is a ""Y"", go and purge files"
630^PRCT(446.4,2,1,299,0)="G$0=""N"".START ::If user input a ""N"", go to main menu"
631^PRCT(446.4,2,1,300,0)="G$0=""."".START ::If user input is a ""."", go to main menu"
632^PRCT(446.4,2,1,301,0)="B00 ::Sound beep two times"
633^PRCT(446.4,2,1,302,0)="S.CLR ::Clear screen"
634^PRCT(446.4,2,1,303,0)="P""Please enter a "" ::Display error message"
635^PRCT(446.4,2,1,304,0)="P""Y or N."" :: (cont)"
636^PRCT(446.4,2,1,305,0)="W5 ::Wait five seconds to allow view of message"
637^PRCT(446.4,2,1,306,0)="G.DAT ::Go back to existing data question"
638^PRCT(446.4,2,1,307,0)=" ::"
639^PRCT(446.4,2,1,308,0)="E ::End of program"
640^PRCT(446.4,4,0)="PREVENTIVE MAINTENANCE^ENPM^EN-ENBCPM1^^^1^^3010208^6"
641^PRCT(446.4,4,1,0)="^446.41^679^679^3010109^^"
642^PRCT(446.4,4,1,1,0)=" ::RGY/ISC-Washington@Altoona, Pa"
643^PRCT(446.4,4,1,2,0)=" ::DH/ISC-Washington@Hampton, Va"
644^PRCT(446.4,4,1,3,0)=" ::SAB/OIFO-Washington@Hampton, VA"
645^PRCT(446.4,4,1,4,0)=" ::1.9.2001"
646^PRCT(446.4,4,1,5,0)=" ::"
647^PRCT(446.4,4,1,6,0)=" ::Preventive Maintenance (PM) Program"
648^PRCT(446.4,4,1,7,0)=" ::File P set up to contain as many as"
649^PRCT(446.4,4,1,8,0)=" ::File P will hold the identifiers (IEN's)"
650^PRCT(446.4,4,1,9,0)=" ::of equipment for which a PM inspection"
651^PRCT(446.4,4,1,10,0)=" ::has been performed. Set up to hold as"
652^PRCT(446.4,4,1,11,0)=" ::many as 1000 records."
653^PRCT(446.4,4,1,12,0)=" ::As always, first record is a user"
654^PRCT(446.4,4,1,13,0)=" ::specified identifier. Main purpose is"
655^PRCT(446.4,4,1,14,0)=" ::to safeguard against inadvertent file"
656^PRCT(446.4,4,1,15,0)=" ::purges. We suggest that user enter"
657^PRCT(446.4,4,1,16,0)=" ::something like 'PM'-initials-date"
658^PRCT(446.4,4,1,17,0)=" ::(ex: PM-SAW-9-12-90). If unit times"
659^PRCT(446.4,4,1,18,0)=" ::out for inactivity or is turned off,"
660^PRCT(446.4,4,1,19,0)=" ::this record will be displayed at"
661^PRCT(446.4,4,1,20,0)=" ::power up time."
662^PRCT(446.4,4,1,21,0)=" ::"
663^PRCT(446.4,4,1,22,0)=" ::The Variable file (V) is a small file"
664^PRCT(446.4,4,1,23,0)=" ::used for scratch variables since"
665^PRCT(446.4,4,1,24,0)=" ::IRL limits numeric and string registers."
666^PRCT(446.4,4,1,25,0)=" ::V(0) is a scratch variable"
667^PRCT(446.4,4,1,26,0)=" ::V(1) is a scratch variable"
668^PRCT(446.4,4,1,27,0)=" ::V(2) the last location entered"
669^PRCT(446.4,4,1,28,0)=" ::V(3) the last equipment number entered"
670^PRCT(446.4,4,1,29,0)=" ::V(4) contains station number"
671^PRCT(446.4,4,1,30,0)=" ::V(5) station number on EE label"
672^PRCT(446.4,4,1,31,0)=" ::V(6) alternate station number"
673^PRCT(446.4,4,1,32,0)=" ::V(7) another alternate station number"
674^PRCT(446.4,4,1,33,0)=" ::V(8) another alternate station number"
675^PRCT(446.4,4,1,34,0)=" ::V(9) another alternate station number"
676^PRCT(446.4,4,1,35,0)=" ::V(10) another alternate station number"
677^PRCT(446.4,4,1,36,0)=" ::V(11) scratch variable"
678^PRCT(446.4,4,1,37,0)=" ::V(12) scratch variable"
679^PRCT(446.4,4,1,38,0)=" ::V(13) scratch variable"
680^PRCT(446.4,4,1,39,0)=" ::V(14) another alternate station number"
681^PRCT(446.4,4,1,40,0)=" ::V(15) another alternate station number"
682^PRCT(446.4,4,1,41,0)=" ::V(16) last of eight possible alternate"
683^PRCT(446.4,4,1,42,0)=" :: station numbers"
684^PRCT(446.4,4,1,43,0)=" ::F(0) is 39 char formatter"
685^PRCT(446.4,4,1,44,0)=" ::"
686^PRCT(446.4,4,1,45,0)="OP(1000,40) ::Initialize PMI file"
687^PRCT(446.4,4,1,46,0)="OV(17,40) ::Initialize variable file"
688^PRCT(446.4,4,1,47,0)="OF(1,39) ::Truncation in REV/DEL"
689^PRCT(446.4,4,1,48,0)=" ::"
690^PRCT(446.4,4,1,49,0)=".BEG :: BEG"
691^PRCT(446.4,4,1,50,0)="DV(4)="""" ::Initialize station number"
692^PRCT(446.4,4,1,51,0)="DV(6)="""" ::and alternates"
693^PRCT(446.4,4,1,52,0)="DV(7)="""""
694^PRCT(446.4,4,1,53,0)="DV(8)="""""
695^PRCT(446.4,4,1,54,0)="DV(9)="""""
696^PRCT(446.4,4,1,55,0)="DV(10)="""""
697^PRCT(446.4,4,1,56,0)="DV(14)="""""
698^PRCT(446.4,4,1,57,0)="DV(15)="""""
699^PRCT(446.4,4,1,58,0)="DV(16)="""""
700^PRCT(446.4,4,1,59,0)="DV(4)=|ENSTA| ::Pass station # from DHCP"
701^PRCT(446.4,4,1,60,0)="D$3=|ENEMP| ::Pass PM Inspector"
702^PRCT(446.4,4,1,61,0)="DV(6)=|ENSTA(1)| ::Pass alternate station number(s)"
703^PRCT(446.4,4,1,62,0)="DV(7)=|ENSTA(2)| ::<space> if null"
704^PRCT(446.4,4,1,63,0)="DV(8)=|ENSTA(3)|"
705^PRCT(446.4,4,1,64,0)="DV(9)=|ENSTA(4)|"
706^PRCT(446.4,4,1,65,0)="DV(10)=|ENSTA(5)|"
707^PRCT(446.4,4,1,66,0)="DV(14)=|ENSTA(6)|"
708^PRCT(446.4,4,1,67,0)="DV(15)=|ENSTA(7)|"
709^PRCT(446.4,4,1,68,0)="DV(16)=|ENSTA(8)|"
710^PRCT(446.4,4,1,69,0)="H#1=P ::Set reg 1 to current rec # in PMI file"
711^PRCT(446.4,4,1,70,0)="G#1>0.DAT ::If data alread exist in PMI file warn user"
712^PRCT(446.4,4,1,71,0)="S.CLR ::Clear screen"
713^PRCT(446.4,4,1,72,0)="P""Please enter ..."" ::Ask user for file ID"
714^PRCT(446.4,4,1,73,0)="P""file ID: "" :: (cont)"
715^PRCT(446.4,4,1,74,0)="D$0="""""
716^PRCT(446.4,4,1,75,0)="A ::User input of user ID"
717^PRCT(446.4,4,1,76,0)="D$0=""ID ""+$0 ::Force an entry"
718^PRCT(446.4,4,1,77,0)="RP ::Store file ID into PMI file"
719^PRCT(446.4,4,1,78,0)="DV(2)="""" ::Initialize V(2)"
720^PRCT(446.4,4,1,79,0)="DV(3)="""" ::and V(3)"
721^PRCT(446.4,4,1,80,0)="S.CLR"
722^PRCT(446.4,4,1,81,0)="P""Station number:"" ::Display only"
723^PRCT(446.4,4,1,82,0)="PV(4) ::Alternates not shown"
724^PRCT(446.4,4,1,83,0)="P""To continue, please"""
725^PRCT(446.4,4,1,84,0)="P""press ENTER..."""
726^PRCT(446.4,4,1,85,0)="A ::Continue"
727^PRCT(446.4,4,1,86,0)="D$0="""""
728^PRCT(446.4,4,1,87,0)=" ::"
729^PRCT(446.4,4,1,88,0)=".TEC :: TEC"
730^PRCT(446.4,4,1,89,0)="S.CLR ::Disp name of tech"
731^PRCT(446.4,4,1,90,0)="P""PM Inspector is:"""
732^PRCT(446.4,4,1,91,0)="P$3"
733^PRCT(446.4,4,1,92,0)="D$0=$3"
734^PRCT(446.4,4,1,93,0)="RP ::File Inspector"
735^PRCT(446.4,4,1,94,0)="P""Please press ENTER."""
736^PRCT(446.4,4,1,95,0)="A ::Proceed"
737^PRCT(446.4,4,1,96,0)="D$0="""""
738^PRCT(446.4,4,1,97,0)=" ::"
739^PRCT(446.4,4,1,98,0)=" ::"
740^PRCT(446.4,4,1,99,0)=".START :: START"
741^PRCT(446.4,4,1,100,0)="S.CLR"
742^PRCT(446.4,4,1,101,0)="P""1. Record PMI"""
743^PRCT(446.4,4,1,102,0)="P""2. Transmit Data"" :: (cont)"
744^PRCT(446.4,4,1,103,0)="P""3. Review/Delete"" :: (cont)"
745^PRCT(446.4,4,1,104,0)="P""ENTER (1-3):"""
746^PRCT(446.4,4,1,105,0)="A ::User input of option"
747^PRCT(446.4,4,1,106,0)="G$0=""1"".ENTER ::ENTER is entry tag for PMI"
748^PRCT(446.4,4,1,107,0)="G$0=""2"".XMIT ::XMIT is entry tag for transmit"
749^PRCT(446.4,4,1,108,0)="G$0=""3"".REVDEL ::REVDEL is entry tag for deletion"
750^PRCT(446.4,4,1,109,0)="B00 ::Sound beep two times"
751^PRCT(446.4,4,1,110,0)="S.CLR ::Clear screen"
752^PRCT(446.4,4,1,111,0)="P""*** Error, enter a"" ::Print message of invalid input"
753^PRCT(446.4,4,1,112,0)="P""number from 1-3, or"" :: (cont)"
754^PRCT(446.4,4,1,113,0)="P""turn TRAKKER off."""
755^PRCT(446.4,4,1,114,0)="W5 ::Wait 5 seconds to allow view of message"
756^PRCT(446.4,4,1,115,0)="G.START ::Go back and display main menu"
757^PRCT(446.4,4,1,116,0)=" ::"
758^PRCT(446.4,4,1,117,0)=" ::Entries at this point should look like:"
759^PRCT(446.4,4,1,118,0)=" :: SP21-110, or"
760^PRCT(446.4,4,1,119,0)=" :: 688 EE6798, or maybe"
761^PRCT(446.4,4,1,120,0)=" :: 7832 EE659098"
762^PRCT(446.4,4,1,121,0)=" ::Anything else needs to be rejected."
763^PRCT(446.4,4,1,122,0)=".ENTER :: ENTER"
764^PRCT(446.4,4,1,123,0)="H#1=P ::Set regist 1 to Num. of rec. in PMI file"
765^PRCT(446.4,4,1,124,0)="G#1>995.STOP ::If PMI file full, do not allow anymore entries"
766^PRCT(446.4,4,1,125,0)="S#1>985.WARN ::If PMI file almost full, warn user"
767^PRCT(446.4,4,1,126,0)="D$0=""\e[2JRM: ""+V(2) ::Clear screen and display Room number"
768^PRCT(446.4,4,1,127,0)="P$0 :: (cont)"
769^PRCT(446.4,4,1,128,0)="D$0=""ID: ""+V(3) ::Display current identifier"
770^PRCT(446.4,4,1,129,0)="P$0 :: (cont)"
771^PRCT(446.4,4,1,130,0)="P""...Reader ready...\r\n"" ::Display input symbol for PMI"
772^PRCT(446.4,4,1,131,0)="D$0="""" ::Initialize input variable"
773^PRCT(446.4,4,1,132,0)="A ::Allow user input of next equip id"
774^PRCT(446.4,4,1,133,0)="DV(1)=$0 ::For safe keeping"
775^PRCT(446.4,4,1,134,0)="G$0=""."".START ::If input is ""."", goto main menu"
776^PRCT(446.4,4,1,135,0)="D$1=$0L2 ::First 2 char of input"
777^PRCT(446.4,4,1,136,0)="G$1=""SP"".LOC ::Location label"
778^PRCT(446.4,4,1,137,0)="G$0=""F4"".NOLBL ::Process item without barcode label"
779^PRCT(446.4,4,1,138,0)="D#1=[$0] ::Is this a PM number?"
780^PRCT(446.4,4,1,139,0)="S#1>8.PMN ::Maybe so, go check"
781^PRCT(446.4,4,1,140,0)="GV(5)=""PM"".ENTPM ::It was a PM number"
782^PRCT(446.4,4,1,141,0)="S.PARSE ::What is it? Should be EE label."
783^PRCT(446.4,4,1,142,0)="SV(5)=""??"".HLP1 ::Not what we expected, print help and"
784^PRCT(446.4,4,1,143,0)="GV(5)=""??"".ENTER ::try again"
785^PRCT(446.4,4,1,144,0)=".ENTPM ::Tag to skip parsing"
786^PRCT(446.4,4,1,145,0)="GV(2)="""".NOLOC ::Have EE label, but no open loc"
787^PRCT(446.4,4,1,146,0)="GV(5)=""PM"".PMR ::PM number and open loc; record"
788^PRCT(446.4,4,1,147,0)="GV(4)=V(5).PMR ::EE label and open loc; record"
789^PRCT(446.4,4,1,148,0)="GV(5)=V(6).PMR ::alternate station number"
790^PRCT(446.4,4,1,149,0)="GV(5)=V(7).PMR ::second alternate"
791^PRCT(446.4,4,1,150,0)="GV(5)=V(8).PMR ::third alternate"
792^PRCT(446.4,4,1,151,0)="GV(5)=V(9).PMR ::fourth alternate"
793^PRCT(446.4,4,1,152,0)="GV(5)=V(10).PMR ::fifth alternate"
794^PRCT(446.4,4,1,153,0)="GV(5)=V(14).PMR ::sixth alternate"
795^PRCT(446.4,4,1,154,0)="GV(5)=V(15).PMR ::seventh alternate"
796^PRCT(446.4,4,1,155,0)="GV(5)=V(16).PMR ::eighth alternate"
797^PRCT(446.4,4,1,156,0)=".RPT ::In case we need to repeat"
798^PRCT(446.4,4,1,157,0)="S.CLR ::exception message"
799^PRCT(446.4,4,1,158,0)="P""WARNING...EE label"""
800^PRCT(446.4,4,1,159,0)="B01"
801^PRCT(446.4,4,1,160,0)="D$1=""is from VAMC ""+V(5) ::Show foreign station"
802^PRCT(446.4,4,1,161,0)="P$1"
803^PRCT(446.4,4,1,162,0)="P""Cannot process."" ::Next screen"
804^PRCT(446.4,4,1,163,0)="P""<ENTER> to cont..."""
805^PRCT(446.4,4,1,164,0)="A ::Any char OK"
806^PRCT(446.4,4,1,165,0)="S.CLR"
807^PRCT(446.4,4,1,166,0)="G.ENTER ::Abort and move on"
808^PRCT(446.4,4,1,167,0)=" ::"
809^PRCT(446.4,4,1,168,0)=".PMR :: PMR"
810^PRCT(446.4,4,1,169,0)="SV(5)=""PM"".CLR5 ::Dispense with flag"
811^PRCT(446.4,4,1,170,0)="DV(3)=V(1) ::Move IEN for safe keeping"
812^PRCT(446.4,4,1,171,0)="D$0=""\e[2JRM: ""+V(2) ::Display current info"
813^PRCT(446.4,4,1,172,0)="P$0"
814^PRCT(446.4,4,1,173,0)="D$0=""ID: ""+V(3)"
815^PRCT(446.4,4,1,174,0)="P$0"
816^PRCT(446.4,4,1,175,0)="P""Enter P for PASS or"" ::PASS/FAIL"
817^PRCT(446.4,4,1,176,0)="P""F for FAIL: "" ::Explicit action"
818^PRCT(446.4,4,1,177,0)="D$0="""" ::required"
819^PRCT(446.4,4,1,178,0)="A1"
820^PRCT(446.4,4,1,179,0)="G$0=""P"".PMRP"
821^PRCT(446.4,4,1,180,0)="G$0=""F"".PMRF"
822^PRCT(446.4,4,1,181,0)="G.PMR"
823^PRCT(446.4,4,1,182,0)=".PMRP :: PMRP"
824^PRCT(446.4,4,1,183,0)="GV(1)=""F4"".PMRP0"
825^PRCT(446.4,4,1,184,0)="D$0=V(1) ::Device PASSED"
826^PRCT(446.4,4,1,185,0)="RP ::Store EE number"
827^PRCT(446.4,4,1,186,0)=".PMRP0"
828^PRCT(446.4,4,1,187,0)="S.CLR"
829^PRCT(446.4,4,1,188,0)="P""Press F1 for detail"" ::Get time and material"
830^PRCT(446.4,4,1,189,0)="P""or ENTER to cont..."" ::if desired"
831^PRCT(446.4,4,1,190,0)="D$0="""""
832^PRCT(446.4,4,1,191,0)="A"
833^PRCT(446.4,4,1,192,0)="G$0=""F1"".PMRP1"
834^PRCT(446.4,4,1,193,0)="G$0="""".ENTER ::No t&m desired"
835^PRCT(446.4,4,1,194,0)="B11101 ::Error condition (minor)"
836^PRCT(446.4,4,1,195,0)="G.PMRP"
837^PRCT(446.4,4,1,196,0)=".PMRP1"
838^PRCT(446.4,4,1,197,0)="S.CLR"
839^PRCT(446.4,4,1,198,0)="P""Time (hrs): "" ::Enter time"
840^PRCT(446.4,4,1,199,0)="D$0="""""
841^PRCT(446.4,4,1,200,0)="A ::Can't do pattern match"
842^PRCT(446.4,4,1,201,0)="DV(1)=$0"
843^PRCT(446.4,4,1,202,0)="P""Are you sure? Y//"" ::So we get confirmation"
844^PRCT(446.4,4,1,203,0)="D$0="""""
845^PRCT(446.4,4,1,204,0)="A"
846^PRCT(446.4,4,1,205,0)="G$0="""".PMRP11"
847^PRCT(446.4,4,1,206,0)="G$0=""Y"".PMRP11"
848^PRCT(446.4,4,1,207,0)="G$0=""YES"".PMRP11"
849^PRCT(446.4,4,1,208,0)="G.PMRP1"
850^PRCT(446.4,4,1,209,0)=" ::"
851^PRCT(446.4,4,1,210,0)=".PMRP11"
852^PRCT(446.4,4,1,211,0)="D$0=""TIME:""+V(1)"
853^PRCT(446.4,4,1,212,0)="RP ::Store time spent"
854^PRCT(446.4,4,1,213,0)=".PMRP12"
855^PRCT(446.4,4,1,214,0)="S.CLR"
856^PRCT(446.4,4,1,215,0)="P""Materials ($): "" ::Enter materials"
857^PRCT(446.4,4,1,216,0)="D$0="""""
858^PRCT(446.4,4,1,217,0)="A ::Again, no type check"
859^PRCT(446.4,4,1,218,0)="DV(1)=$0"
860^PRCT(446.4,4,1,219,0)="P""Are you sure? Y//"" ::so we confirm"
861^PRCT(446.4,4,1,220,0)="D$0="""""
862^PRCT(446.4,4,1,221,0)="A"
863^PRCT(446.4,4,1,222,0)="G$0="""".PMRP13"
864^PRCT(446.4,4,1,223,0)="G$0=""Y"".PMRP13"
865^PRCT(446.4,4,1,224,0)="G$0=""YES"".PMRP13"
866^PRCT(446.4,4,1,225,0)="G.PMRP12"
867^PRCT(446.4,4,1,226,0)=".PMRP13"
868^PRCT(446.4,4,1,227,0)="D$0=""MATRL:""+V(1)"
869^PRCT(446.4,4,1,228,0)="RP ::Store material cost"
870^PRCT(446.4,4,1,229,0)="DV(5)="""""
871^PRCT(446.4,4,1,230,0)=" ::"
872^PRCT(446.4,4,1,231,0)=".PMRP14 ::Condition Code"
873^PRCT(446.4,4,1,232,0)="S.CLR"
874^PRCT(446.4,4,1,233,0)="P""Condition code (LN,"""
875^PRCT(446.4,4,1,234,0)="P""G, or P):"""
876^PRCT(446.4,4,1,235,0)="D$0="""""
877^PRCT(446.4,4,1,236,0)="A"
878^PRCT(446.4,4,1,237,0)="G$0="""".PMRP15"
879^PRCT(446.4,4,1,238,0)="G$0=""L"".PMRPN"
880^PRCT(446.4,4,1,239,0)="G$0=""l"".PMRPN"
881^PRCT(446.4,4,1,240,0)="G$0=""N"".PMRPN"
882^PRCT(446.4,4,1,241,0)="G$0=""n"".PMRPN"
883^PRCT(446.4,4,1,242,0)="G$0=""LN"".PMRPN"
884^PRCT(446.4,4,1,243,0)="G$0=""Ln"".PMRPN"
885^PRCT(446.4,4,1,244,0)="G$0=""ln"".PMRPN"
886^PRCT(446.4,4,1,245,0)="G$0=""G"".PMRPG"
887^PRCT(446.4,4,1,246,0)="G$0=""g"".PMRPG"
888^PRCT(446.4,4,1,247,0)="G$0=""P"".PMRPP"
889^PRCT(446.4,4,1,248,0)="G$0=""p"".PMRPP"
890^PRCT(446.4,4,1,249,0)="S.CLR"
891^PRCT(446.4,4,1,250,0)="P""Must press LN (Like"""
892^PRCT(446.4,4,1,251,0)="P""New), G (Good), P"""
893^PRCT(446.4,4,1,252,0)="P""(Poor), or ENTER."""
894^PRCT(446.4,4,1,253,0)="W 3"
895^PRCT(446.4,4,1,254,0)="G.PMRP14"
896^PRCT(446.4,4,1,255,0)=" ::"
897^PRCT(446.4,4,1,256,0)=".PMRPN ::Condition is LIKE NEW"
898^PRCT(446.4,4,1,257,0)="S.CLR"
899^PRCT(446.4,4,1,258,0)="P""LIKE NEW Condition."""
900^PRCT(446.4,4,1,259,0)="P""Correct? Y//"""
901^PRCT(446.4,4,1,260,0)="D$0="""""
902^PRCT(446.4,4,1,261,0)="A"
903^PRCT(446.4,4,1,262,0)="G$0="""".PMRPN1"
904^PRCT(446.4,4,1,263,0)="G$0=""Y"".PMRPN1"
905^PRCT(446.4,4,1,264,0)="G$0=""y"".PMRPN1"
906^PRCT(446.4,4,1,265,0)="G.PMRP14"
907^PRCT(446.4,4,1,266,0)=".PMRPN1 ::Set the value"
908^PRCT(446.4,4,1,267,0)="D$0=""CODE:1"""
909^PRCT(446.4,4,1,268,0)="RP"
910^PRCT(446.4,4,1,269,0)="G.PMRP15"
911^PRCT(446.4,4,1,270,0)=" ::"
912^PRCT(446.4,4,1,271,0)=".PMRPG ::Condition is GOOD"
913^PRCT(446.4,4,1,272,0)="S.CLR"
914^PRCT(446.4,4,1,273,0)="P""GOOD condition."""
915^PRCT(446.4,4,1,274,0)="P""Correct? Y//"""
916^PRCT(446.4,4,1,275,0)="D$0="""""
917^PRCT(446.4,4,1,276,0)="A"
918^PRCT(446.4,4,1,277,0)="G$0="""".PMRPG1"
919^PRCT(446.4,4,1,278,0)="G$0=""Y"".PMRPG1"
920^PRCT(446.4,4,1,279,0)="G$0=""y"".PMRPG1"
921^PRCT(446.4,4,1,280,0)="G.PMRP14"
922^PRCT(446.4,4,1,281,0)=".PMRPG1 ::Set the value"
923^PRCT(446.4,4,1,282,0)="D$0=""CODE:2"""
924^PRCT(446.4,4,1,283,0)="RP"
925^PRCT(446.4,4,1,284,0)="G.PMRP15"
926^PRCT(446.4,4,1,285,0)=" ::"
927^PRCT(446.4,4,1,286,0)=".PMRPP ::Condition is POOR"
928^PRCT(446.4,4,1,287,0)="S.CLR"
929^PRCT(446.4,4,1,288,0)="P""POOR Condition."""
930^PRCT(446.4,4,1,289,0)="P""Correct? Y//"""
931^PRCT(446.4,4,1,290,0)="D$0="""""
932^PRCT(446.4,4,1,291,0)="A"
933^PRCT(446.4,4,1,292,0)="G$0="""".PMRPP1"
934^PRCT(446.4,4,1,293,0)="G$0=""Y"".PMRPP1"
935^PRCT(446.4,4,1,294,0)="G$0=""y"".PMRPP1"
936^PRCT(446.4,4,1,295,0)="G.PMRP14"
937^PRCT(446.4,4,1,296,0)=".PMRPP1"
938^PRCT(446.4,4,1,297,0)="D$0=""CODE:3"""
939^PRCT(446.4,4,1,298,0)="RP"
940^PRCT(446.4,4,1,299,0)=" ::"
941^PRCT(446.4,4,1,300,0)=".PMRP15"
942^PRCT(446.4,4,1,301,0)="S.WORK"
943^PRCT(446.4,4,1,302,0)="G.ENTER"
944^PRCT(446.4,4,1,303,0)=" ::"
945^PRCT(446.4,4,1,304,0)=".WORK ::Manual entry of WORK PERFORMED"
946^PRCT(446.4,4,1,305,0)="S.CLR"
947^PRCT(446.4,4,1,306,0)="P""WORK PERFORMED:"""
948^PRCT(446.4,4,1,307,0)="P""(120 char max)"""
949^PRCT(446.4,4,1,308,0)="P""(Optional)\r\n"""
950^PRCT(446.4,4,1,309,0)="D$0="""""
951^PRCT(446.4,4,1,310,0)="A"
952^PRCT(446.4,4,1,311,0)="Q$0="""""
953^PRCT(446.4,4,1,312,0)="DV(11)="""" ::Record up to three"
954^PRCT(446.4,4,1,313,0)="DV(12)="""" ::forty char segments"
955^PRCT(446.4,4,1,314,0)="DV(13)="""""
956^PRCT(446.4,4,1,315,0)="DV(11)=$0L40"
957^PRCT(446.4,4,1,316,0)="DV(12)=$0M40,41"
958^PRCT(446.4,4,1,317,0)="DV(13)=$0M40,81"
959^PRCT(446.4,4,1,318,0)=".WORKC ::Confirmation"
960^PRCT(446.4,4,1,319,0)="D$0="""""
961^PRCT(446.4,4,1,320,0)="P""Are you sure? Y//"""
962^PRCT(446.4,4,1,321,0)="A"
963^PRCT(446.4,4,1,322,0)="D$1=$0L1"
964^PRCT(446.4,4,1,323,0)="G$1="""".WORKF"
965^PRCT(446.4,4,1,324,0)="G$1=""Y"".WORKF"
966^PRCT(446.4,4,1,325,0)="G$1=""y"".WORKF"
967^PRCT(446.4,4,1,326,0)="G.WORK"
968^PRCT(446.4,4,1,327,0)=".WORKF ::File WORK PERFORMED"
969^PRCT(446.4,4,1,328,0)="D$0=V(11)"
970^PRCT(446.4,4,1,329,0)="RP"
971^PRCT(446.4,4,1,330,0)="QV(12)="""""
972^PRCT(446.4,4,1,331,0)="D$0=V(12)"
973^PRCT(446.4,4,1,332,0)="RP"
974^PRCT(446.4,4,1,333,0)="QV(13)="""""
975^PRCT(446.4,4,1,334,0)="D$0=V(13)"
976^PRCT(446.4,4,1,335,0)="RP"
977^PRCT(446.4,4,1,336,0)="Q"
978^PRCT(446.4,4,1,337,0)=" ::"
979^PRCT(446.4,4,1,338,0)=".PMRF :: PMRF"
980^PRCT(446.4,4,1,339,0)="GV(1)=""F4"".PMRF0"
981^PRCT(446.4,4,1,340,0)="D$0=V(1) ::Device FAILED"
982^PRCT(446.4,4,1,341,0)="RP ::Store EE number"
983^PRCT(446.4,4,1,342,0)=".PMRF0"
984^PRCT(446.4,4,1,343,0)="D$0=""FAILED"""
985^PRCT(446.4,4,1,344,0)="RP ::and store a flag"
986^PRCT(446.4,4,1,345,0)=".PMRF1"
987^PRCT(446.4,4,1,346,0)="S.CLR"
988^PRCT(446.4,4,1,347,0)="P""Describe problem"" ::Get a brief statement of"
989^PRCT(446.4,4,1,348,0)="P""(40 char max):\r\n"" ::the problem. This will"
990^PRCT(446.4,4,1,349,0)="D$0="""" ::become the basis for a"
991^PRCT(446.4,4,1,350,0)="A ::corrective action work"
992^PRCT(446.4,4,1,351,0)="DV(1)=$0 ::order."
993^PRCT(446.4,4,1,352,0)="S.CLR"
994^PRCT(446.4,4,1,353,0)="D$0=V(1) ::Truncate to 40 char"
995^PRCT(446.4,4,1,354,0)="P$0"
996^PRCT(446.4,4,1,355,0)="P""Are you sure? Y//"" ::Confirmation"
997^PRCT(446.4,4,1,356,0)="D$0="""""
998^PRCT(446.4,4,1,357,0)="A"
999^PRCT(446.4,4,1,358,0)="G$0="""".PMRF2"
1000^PRCT(446.4,4,1,359,0)="G$0=""Y"".PMRF2"
1001^PRCT(446.4,4,1,360,0)="G$0=""YES"".PMRF2"
1002^PRCT(446.4,4,1,361,0)="B10111"
1003^PRCT(446.4,4,1,362,0)="G.PMRF1"
1004^PRCT(446.4,4,1,363,0)=".PMRF2"
1005^PRCT(446.4,4,1,364,0)="D$0=V(1)"
1006^PRCT(446.4,4,1,365,0)="RP ::Store problem description"
1007^PRCT(446.4,4,1,366,0)=".PMRF3 ::Get time"
1008^PRCT(446.4,4,1,367,0)="S.CLR"
1009^PRCT(446.4,4,1,368,0)="P""Time (hrs): "" ::Enter hours"
1010^PRCT(446.4,4,1,369,0)="D$0="""""
1011^PRCT(446.4,4,1,370,0)="A"
1012^PRCT(446.4,4,1,371,0)="DV(1)=$0"
1013^PRCT(446.4,4,1,372,0)="P""Are you sure? Y//"" ::Data validation check"
1014^PRCT(446.4,4,1,373,0)="D$0="""""
1015^PRCT(446.4,4,1,374,0)="A"
1016^PRCT(446.4,4,1,375,0)="G$0="""".PMRF31"
1017^PRCT(446.4,4,1,376,0)="G$0=""Y"".PMRF31"
1018^PRCT(446.4,4,1,377,0)="G$0=""YES"".PMRF31"
1019^PRCT(446.4,4,1,378,0)="G.PMRF3"
1020^PRCT(446.4,4,1,379,0)=".PMRF31"
1021^PRCT(446.4,4,1,380,0)="D$0=""TIME:""+V(1) ::Store time spent in"
1022^PRCT(446.4,4,1,381,0)="RP ::FAILing device"
1023^PRCT(446.4,4,1,382,0)="G.ENTER"
1024^PRCT(446.4,4,1,383,0)=" ::"
1025^PRCT(446.4,4,1,384,0)=".NOLOC :: NOLOC"
1026^PRCT(446.4,4,1,385,0)="B1101 ::Audible signal"
1027^PRCT(446.4,4,1,386,0)="S.CLR ::EE label scanned before"
1028^PRCT(446.4,4,1,387,0)="P""PMI process must"" ::location"
1029^PRCT(446.4,4,1,388,0)="P""begin with location"""
1030^PRCT(446.4,4,1,389,0)="P""label."""
1031^PRCT(446.4,4,1,390,0)="P""Press <ENTER>..."""
1032^PRCT(446.4,4,1,391,0)="A ::Accept any char"
1033^PRCT(446.4,4,1,392,0)="G.ENTER ::Try again"
1034^PRCT(446.4,4,1,393,0)=" ::"
1035^PRCT(446.4,4,1,394,0)=".NOLBL :: NOLBL"
1036^PRCT(446.4,4,1,395,0)="GV(2)="""".NOLOC ::No open loc; can't proceed"
1037^PRCT(446.4,4,1,396,0)="S.CLR ::Get text description of"
1038^PRCT(446.4,4,1,397,0)="P""Enter MODEL NUMBER:\r\n"" ::items without barcode"
1039^PRCT(446.4,4,1,398,0)="D$0="""""
1040^PRCT(446.4,4,1,399,0)="A ::labels"
1041^PRCT(446.4,4,1,400,0)="G$0=""^"".NLABRT ::User abort"
1042^PRCT(446.4,4,1,401,0)="D$2=$0 ::Temp save of mod in $2"
1043^PRCT(446.4,4,1,402,0)="S.CLR"
1044^PRCT(446.4,4,1,403,0)="P""Enter SERIAL NUMBER:"" ::Get serial #"
1045^PRCT(446.4,4,1,404,0)="D$0="""""
1046^PRCT(446.4,4,1,405,0)="A"
1047^PRCT(446.4,4,1,406,0)="G$0=""^"".NLABRT ::User abort"
1048^PRCT(446.4,4,1,407,0)="G$0="""".NLABRT"
1049^PRCT(446.4,4,1,408,0)="D$3=$0 ::Temp save of s/n in $3"
1050^PRCT(446.4,4,1,409,0)=".DESC ::Item description"
1051^PRCT(446.4,4,1,410,0)="S.CLR"
1052^PRCT(446.4,4,1,411,0)="P""Enter DESCRIPTION:\r\n"" ::Free text description"
1053^PRCT(446.4,4,1,412,0)="A ::40 char max because of fixed"
1054^PRCT(446.4,4,1,413,0)="D#0=[$0] ::record size"
1055^PRCT(446.4,4,1,414,0)="G#0<41.NOLBL1"
1056^PRCT(446.4,4,1,415,0)="S.CLR ::Clear screen for"
1057^PRCT(446.4,4,1,416,0)="P""ERROR Description"" ::error message"
1058^PRCT(446.4,4,1,417,0)="P""may not exceed 40"""
1059^PRCT(446.4,4,1,418,0)="P""characters."""
1060^PRCT(446.4,4,1,419,0)="P""Press <ENTER>..."" ::Wait for user resp"
1061^PRCT(446.4,4,1,420,0)="A ::Take anything"
1062^PRCT(446.4,4,1,421,0)="G.DESC ::Try again"
1063^PRCT(446.4,4,1,422,0)=".NOLBL1 ::Continue"
1064^PRCT(446.4,4,1,423,0)="D$1=$0 ::Shuffle the string"
1065^PRCT(446.4,4,1,424,0)="D$0=""MOD:""+$2 ::registers and file"
1066^PRCT(446.4,4,1,425,0)="RP ::user inputs"
1067^PRCT(446.4,4,1,426,0)="D$0=""S/N:""+$3"
1068^PRCT(446.4,4,1,427,0)="RP"
1069^PRCT(446.4,4,1,428,0)="D$0=$1"
1070^PRCT(446.4,4,1,429,0)="RP ::Filing complete"
1071^PRCT(446.4,4,1,430,0)="G.PMR ::Pass or fail"
1072^PRCT(446.4,4,1,431,0)=".NLABRT ::Jump here to skip filing"
1073^PRCT(446.4,4,1,432,0)="G.ENTER ::End of program segment"
1074^PRCT(446.4,4,1,433,0)=" ::"
1075^PRCT(446.4,4,1,434,0)=".PMN :: PMN"
1076^PRCT(446.4,4,1,435,0)="D$1=$0M1,5 ::Is this really a PM number?"
1077^PRCT(446.4,4,1,436,0)="G$1=""-"".PMN1 ::Apparently so"
1078^PRCT(446.4,4,1,437,0)="Q ::Not PM number, return"
1079^PRCT(446.4,4,1,438,0)=".PMN1 ::Assume NNNN-NNNN is PM#"
1080^PRCT(446.4,4,1,439,0)="DV(5)=""PM"" ::Set flag"
1081^PRCT(446.4,4,1,440,0)="DV(0)="""" ::Add prefix"
1082^PRCT(446.4,4,1,441,0)="DV(0)=V(1)"
1083^PRCT(446.4,4,1,442,0)="DV(1)="""""
1084^PRCT(446.4,4,1,443,0)="DV(1)=""PM#:""+V(0)"
1085^PRCT(446.4,4,1,444,0)="Q ::Return"
1086^PRCT(446.4,4,1,445,0)=" ::"
1087^PRCT(446.4,4,1,446,0)=".REVDEL :: REVDEL"
1088^PRCT(446.4,4,1,447,0)="H#1=P ::Get last"
1089^PRCT(446.4,4,1,448,0)="D#1=#1-1 ::record number"
1090^PRCT(446.4,4,1,449,0)=".LP10"
1091^PRCT(446.4,4,1,450,0)="G#1=1.START ::Can't go above first LOCATION"
1092^PRCT(446.4,4,1,451,0)="S.CLR"
1093^PRCT(446.4,4,1,452,0)="C$1=#1 ::Display"
1094^PRCT(446.4,4,1,453,0)="D$0=$1+"") "" ::last"
1095^PRCT(446.4,4,1,454,0)="D$0=$0+P(#1) ::record"
1096^PRCT(446.4,4,1,455,0)="DF(0)=$0 ::Truncate to"
1097^PRCT(446.4,4,1,456,0)="D$0=F(0) ::39 char"
1098^PRCT(446.4,4,1,457,0)="P$0"
1099^PRCT(446.4,4,1,458,0)="P""(D)elete, (Q)uit,"""
1100^PRCT(446.4,4,1,459,0)="P""or (C)ontinue..."""
1101^PRCT(446.4,4,1,460,0)="D$0="""" ::Clear input buffer"
1102^PRCT(446.4,4,1,461,0)="A1 ::Single character entry"
1103^PRCT(446.4,4,1,462,0)="G$0=""D"".LP20 ::Deletion"
1104^PRCT(446.4,4,1,463,0)="G$0=""Q"".START ::Back to main menu"
1105^PRCT(446.4,4,1,464,0)="G$0=""C"".LP30 ::Next previous record"
1106^PRCT(446.4,4,1,465,0)="P""Error. Must enter"""
1107^PRCT(446.4,4,1,466,0)="P""D, Q, or C."""
1108^PRCT(446.4,4,1,467,0)="P""To proceed, please"""
1109^PRCT(446.4,4,1,468,0)="P""press <ENTER>..."""
1110^PRCT(446.4,4,1,469,0)="D$0="""""
1111^PRCT(446.4,4,1,470,0)="A ::Take anything"
1112^PRCT(446.4,4,1,471,0)="G.LP10 ::Ask again"
1113^PRCT(446.4,4,1,472,0)=".LP20 ::Actual deletion"
1114^PRCT(446.4,4,1,473,0)="S.CLR"
1115^PRCT(446.4,4,1,474,0)="P""Deleting record"""
1116^PRCT(446.4,4,1,475,0)="D$0=""number ""+$1"
1117^PRCT(446.4,4,1,476,0)="D$0=$0+""..."""
1118^PRCT(446.4,4,1,477,0)="P$0"
1119^PRCT(446.4,4,1,478,0)="W5"
1120^PRCT(446.4,4,1,479,0)="DP(#1)=""*****"""
1121^PRCT(446.4,4,1,480,0)="P""(Q)uit or (C)ont?"" ::Get instruction"
1122^PRCT(446.4,4,1,481,0)="D$0="""""
1123^PRCT(446.4,4,1,482,0)="A1 ::Get one character"
1124^PRCT(446.4,4,1,483,0)="G$0=""C"".LP25 ::Continue review"
1125^PRCT(446.4,4,1,484,0)="G.START ::Back to main menu"
1126^PRCT(446.4,4,1,485,0)=".LP25 :: LP25"
1127^PRCT(446.4,4,1,486,0)="D#1=#1-1 ::Move file pointer"
1128^PRCT(446.4,4,1,487,0)="G.LP10 ::Back to display"
1129^PRCT(446.4,4,1,488,0)=".LP30 :: LP30"
1130^PRCT(446.4,4,1,489,0)="D#1=#1-1 ::Move file pointer"
1131^PRCT(446.4,4,1,490,0)="G.LP10 ::End REVIEW/DELETE"
1132^PRCT(446.4,4,1,491,0)=" ::"
1133^PRCT(446.4,4,1,492,0)=".XMIT :: XMIT"
1134^PRCT(446.4,4,1,493,0)="D$0=""ENPM"" ::Define data identifier"
1135^PRCT(446.4,4,1,494,0)="XMP,$0 ::Transmit data identifier to host system"
1136^PRCT(446.4,4,1,495,0)="XMP,P ::Transmit PMI file to host device"
1137^PRCT(446.4,4,1,496,0)="H#1=P ::Find how many records exist in PMI file"
1138^PRCT(446.4,4,1,497,0)="C$0=#1 ::Set string variable to Number of Records"
1139^PRCT(446.4,4,1,498,0)="D$0=""***END***^""+$0 ::Setup End of File message"
1140^PRCT(446.4,4,1,499,0)="XMP,$0 ::Send End of File message to external device"
1141^PRCT(446.4,4,1,500,0)=".ASK :: ASK"
1142^PRCT(446.4,4,1,501,0)="S.CLR ::Clear screen"
1143^PRCT(446.4,4,1,502,0)="P""Data xmitted, do"" ::Display confirmation of transmission message"
1144^PRCT(446.4,4,1,503,0)="P""you want to purge"" :: (cont)"
1145^PRCT(446.4,4,1,504,0)="P""the file (Y/N) ? "" :: (cont)"
1146^PRCT(446.4,4,1,505,0)="D$0="""" ::Initialize input variable"
1147^PRCT(446.4,4,1,506,0)="A ::Allow user input"
1148^PRCT(446.4,4,1,507,0)="G$0=""Y"".PUR ::If ""Y"", purge inventory file"
1149^PRCT(446.4,4,1,508,0)="G$0=""N"".START ::If user input is a ""N"", go back to main menu"
1150^PRCT(446.4,4,1,509,0)="G$0=""."".START ::If user input is a ""."", go back to main menu"
1151^PRCT(446.4,4,1,510,0)="B00 ::Sound beep two times"
1152^PRCT(446.4,4,1,511,0)="S.CLR ::Clear screen"
1153^PRCT(446.4,4,1,512,0)="P""Please enter a "" ::Display error message"
1154^PRCT(446.4,4,1,513,0)="P""Y or N."" :: (cont)"
1155^PRCT(446.4,4,1,514,0)="W3 ::Wait 5 seconds to allow view of message"
1156^PRCT(446.4,4,1,515,0)="G.ASK ::Go back and ask purge question"
1157^PRCT(446.4,4,1,516,0)=" ::"
1158^PRCT(446.4,4,1,517,0)=".PUR :: PUR"
1159^PRCT(446.4,4,1,518,0)="HP=0 ::Purge of PMI file"
1160^PRCT(446.4,4,1,519,0)="HV=0 ::Purge of local variable file"
1161^PRCT(446.4,4,1,520,0)="B0 ::Sound beep one time"
1162^PRCT(446.4,4,1,521,0)="P""** File Purged **"" ::Inform user of purged file"
1163^PRCT(446.4,4,1,522,0)="W3 ::Wait three seconds to allow view of message"
1164^PRCT(446.4,4,1,523,0)="G.BEG ::Go back to begining of program"
1165^PRCT(446.4,4,1,524,0)=" ::"
1166^PRCT(446.4,4,1,525,0)=".CLR :: CLR"
1167^PRCT(446.4,4,1,526,0)="P""\e[2J"" ::Clear screen escape sequence"
1168^PRCT(446.4,4,1,527,0)="D$0="""" ::Clear input register"
1169^PRCT(446.4,4,1,528,0)="Q ::Quit subroutine"
1170^PRCT(446.4,4,1,529,0)=" ::"
1171^PRCT(446.4,4,1,530,0)=".WARN :: WARN"
1172^PRCT(446.4,4,1,531,0)="B0 ::Sound beep"
1173^PRCT(446.4,4,1,532,0)="P""\e[2J**** WARNING ****"" ::Clear screen and print warning message"
1174^PRCT(446.4,4,1,533,0)="P""Data file is almost"" :: (cont)"
1175^PRCT(446.4,4,1,534,0)="P""full. Please XMIT"" :: (cont)"
1176^PRCT(446.4,4,1,535,0)="P""data and purge file."" :: (cont)"
1177^PRCT(446.4,4,1,536,0)="W3 ::Wait three seconds to allow view of message"
1178^PRCT(446.4,4,1,537,0)="Q ::Quit subroutine"
1179^PRCT(446.4,4,1,538,0)=" ::"
1180^PRCT(446.4,4,1,539,0)=".STOP :: STOP"
1181^PRCT(446.4,4,1,540,0)="B00 ::Sound beep two times"
1182^PRCT(446.4,4,1,541,0)="S.CLR ::Clear screen"
1183^PRCT(446.4,4,1,542,0)="P""Sorry, data file is"" ::Print error message"
1184^PRCT(446.4,4,1,543,0)="P""FULL, you must XMIT"" :: (cont)"
1185^PRCT(446.4,4,1,544,0)="P""and purge file."" :: (cont)"
1186^PRCT(446.4,4,1,545,0)="W5 ::Wait five seconds to allow view of message"
1187^PRCT(446.4,4,1,546,0)="G.START ::Go back to main menu"
1188^PRCT(446.4,4,1,547,0)=" ::"
1189^PRCT(446.4,4,1,548,0)=".DAT :: DAT"
1190^PRCT(446.4,4,1,549,0)="S.CLR ::Clear screen"
1191^PRCT(446.4,4,1,550,0)="B00 ::Sound beep two times"
1192^PRCT(446.4,4,1,551,0)="P""*** WARNING ***"" ::Print warning message of existing data"
1193^PRCT(446.4,4,1,552,0)="P""Data exists on"" :: (cont)"
1194^PRCT(446.4,4,1,553,0)="P""this barcode reader."" :: (cont)"
1195^PRCT(446.4,4,1,554,0)="W5 ::Wait five seconds to allow view of message"
1196^PRCT(446.4,4,1,555,0)="S.CLR"
1197^PRCT(446.4,4,1,556,0)="P""The file ID is:"" ::Display first record to user"
1198^PRCT(446.4,4,1,557,0)="D$0=P(0) ::Setup display of first record"
1199^PRCT(446.4,4,1,558,0)="P$0 ::Print first record"
1200^PRCT(446.4,4,1,559,0)="W5 ::Wait five seconds to allow view of message"
1201^PRCT(446.4,4,1,560,0)="S.CLR ::Clear screen"
1202^PRCT(446.4,4,1,561,0)="P""Do you want to"" ::Query user to purge existing file"
1203^PRCT(446.4,4,1,562,0)="P""purge this file ..."" :: (cont)"
1204^PRCT(446.4,4,1,563,0)="P""... (Y/N) ? "" :: (cont)"
1205^PRCT(446.4,4,1,564,0)="D$0="""" ::Initialize input variable"
1206^PRCT(446.4,4,1,565,0)="A ::User input"
1207^PRCT(446.4,4,1,566,0)="G$0=""Y"".PUR ::If user input is a ""Y"", go and purge files"
1208^PRCT(446.4,4,1,567,0)="G$0=""N"".START ::If user input is a ""N"", go to main menu"
1209^PRCT(446.4,4,1,568,0)="G$0=""."".START ::If user input is a ""."", go to main menu"
1210^PRCT(446.4,4,1,569,0)="B00 ::Sound beep two times"
1211^PRCT(446.4,4,1,570,0)="S.CLR ::Clear screen"
1212^PRCT(446.4,4,1,571,0)="P""Please enter a "" ::Display error message"
1213^PRCT(446.4,4,1,572,0)="P""Y or N."" :: (cont)"
1214^PRCT(446.4,4,1,573,0)="W5 ::Wait five seconds to allow view of message"
1215^PRCT(446.4,4,1,574,0)="G.DAT ::Go back a existing data question"
1216^PRCT(446.4,4,1,575,0)=" ::"
1217^PRCT(446.4,4,1,576,0)=".LOC :: LOC"
1218^PRCT(446.4,4,1,577,0)=" ::Process location label in $0"
1219^PRCT(446.4,4,1,578,0)="SV(2)="""".NLOC ::No location presently open"
1220^PRCT(446.4,4,1,579,0)="SV(2)=$0.CLOC ::Loction is open"
1221^PRCT(446.4,4,1,580,0)="G$0="""".LOCQ ::All is well"
1222^PRCT(446.4,4,1,581,0)="P""ERROR Must close"" ::Display error"
1223^PRCT(446.4,4,1,582,0)="B1101 ::message and sound alarm"
1224^PRCT(446.4,4,1,583,0)="PV(2)"
1225^PRCT(446.4,4,1,584,0)="P""before you may open"""
1226^PRCT(446.4,4,1,585,0)="P$0"
1227^PRCT(446.4,4,1,586,0)="W10 ::10 sec to read"
1228^PRCT(446.4,4,1,587,0)=".LOCQ ::Exit from subroutine"
1229^PRCT(446.4,4,1,588,0)="G.ENTER ::Next read"
1230^PRCT(446.4,4,1,589,0)=".NLOC :: NLOC"
1231^PRCT(446.4,4,1,590,0)="DV(2)=$0 ::Store new current location"
1232^PRCT(446.4,4,1,591,0)="RP ::Add new loc to file"
1233^PRCT(446.4,4,1,592,0)="D$0="""" ::All OK flag back to LOC"
1234^PRCT(446.4,4,1,593,0)="Q"
1235^PRCT(446.4,4,1,594,0)=".CLOC :: CLOC"
1236^PRCT(446.4,4,1,595,0)="DV(2)="""" ::Close current location"
1237^PRCT(446.4,4,1,596,0)="D$0="""" ::All OK flag back to LOC"
1238^PRCT(446.4,4,1,597,0)="DV(3)="""" ::Clear last EE for new loc"
1239^PRCT(446.4,4,1,598,0)="Q"
1240^PRCT(446.4,4,1,599,0)="G.ENTER"
1241^PRCT(446.4,4,1,600,0)=" ::"
1242^PRCT(446.4,4,1,601,0)=".PARSE :: PARSE"
1243^PRCT(446.4,4,1,602,0)="DV(5)="""""
1244^PRCT(446.4,4,1,603,0)="D#1=0 ::Initialize character count"
1245^PRCT(446.4,4,1,604,0)=".FNDBL ::Look for space"
1246^PRCT(446.4,4,1,605,0)="D#1=#1+1 ::Increment counter"
1247^PRCT(446.4,4,1,606,0)="D$1=$0M1,#1 ::Examine current char position"
1248^PRCT(446.4,4,1,607,0)="G$1="""".PARS1 ::Must not be any spaces"
1249^PRCT(446.4,4,1,608,0)="G$1="" "".PARS1 ::That's more like it"
1250^PRCT(446.4,4,1,609,0)="G.FNDBL ::Keep looping"
1251^PRCT(446.4,4,1,610,0)=".PARS1"
1252^PRCT(446.4,4,1,611,0)="S$1="""".ERR1 ::Can't be right"
1253^PRCT(446.4,4,1,612,0)="S$1="" "".PARS2 ::Continue"
1254^PRCT(446.4,4,1,613,0)="Q ::Return control to segment ENTER"
1255^PRCT(446.4,4,1,614,0)=" ::"
1256^PRCT(446.4,4,1,615,0)=".PARS2 :: PARS2 (2ND LEVEL)"
1257^PRCT(446.4,4,1,616,0)="D#2=[$0] ::Length of label"
1258^PRCT(446.4,4,1,617,0)="D#3=#1+1 ::Start of second piece"
1259^PRCT(446.4,4,1,618,0)="D#4=#2-#1 ::Length of second piece"
1260^PRCT(446.4,4,1,619,0)="D$1=$0M#4,#3 ::Set $1 to second piece"
1261^PRCT(446.4,4,1,620,0)="D$2=$1L2 ::Application code"
1262^PRCT(446.4,4,1,621,0)="G$2=""EE"".PARS3 ::Application code should be EE"
1263^PRCT(446.4,4,1,622,0)="DV(5)=""??"" ::Error condition"
1264^PRCT(446.4,4,1,623,0)="G.PARS4"
1265^PRCT(446.4,4,1,624,0)=".PARS3 ::Where we want to be"
1266^PRCT(446.4,4,1,625,0)="D#3=#1-1 ::Length of station number"
1267^PRCT(446.4,4,1,626,0)="DV(5)=$0L#3 ::Store station number from label"
1268^PRCT(446.4,4,1,627,0)=".PARS4 ::Re-entry from error condition"
1269^PRCT(446.4,4,1,628,0)="Q ::Return control to PARSE, passing param V(5)"
1270^PRCT(446.4,4,1,629,0)=" ::"
1271^PRCT(446.4,4,1,630,0)=".ERR1 :: ERR1"
1272^PRCT(446.4,4,1,631,0)="DV(5)=""??"" ::Flag error for segment .ENTER"
1273^PRCT(446.4,4,1,632,0)="Q"
1274^PRCT(446.4,4,1,633,0)=" ::"
1275^PRCT(446.4,4,1,634,0)=".HLP1 :: HLP1"
1276^PRCT(446.4,4,1,635,0)="S.CLR ::Called from .ENTER if input"
1277^PRCT(446.4,4,1,636,0)="GV(1)=""?"".HLP12 ::is a question"
1278^PRCT(446.4,4,1,637,0)="P""** INVALID ENTRY **"" ::or is questionable"
1279^PRCT(446.4,4,1,638,0)="B1010 ::Audible signal"
1280^PRCT(446.4,4,1,639,0)="P""Press <ENTER> to"""
1281^PRCT(446.4,4,1,640,0)="P""continue, or enter"""
1282^PRCT(446.4,4,1,641,0)="P""'?' for help."""
1283^PRCT(446.4,4,1,642,0)="D$0="""""
1284^PRCT(446.4,4,1,643,0)="A ::User response"
1285^PRCT(446.4,4,1,644,0)="G$0="""".HLP1Q ::Help declined"
1286^PRCT(446.4,4,1,645,0)="D$0=$0L1 ::Look at first char"
1287^PRCT(446.4,4,1,646,0)=".HLP12 ::'?' to begin with"
1288^PRCT(446.4,4,1,647,0)="SV(1)=""?"".HLP2 ::More help"
1289^PRCT(446.4,4,1,648,0)="S$0=""?"".HLP2 ::Show help text"
1290^PRCT(446.4,4,1,649,0)=".HLP1Q ::Exit subroutine"
1291^PRCT(446.4,4,1,650,0)="Q"
1292^PRCT(446.4,4,1,651,0)=" ::"
1293^PRCT(446.4,4,1,652,0)=".HLP2 :: HLP2"
1294^PRCT(446.4,4,1,653,0)="D$0=V(2) ::Ck for location"
1295^PRCT(446.4,4,1,654,0)="G$0="""".HLP3"
1296^PRCT(446.4,4,1,655,0)="P""Expecting equipment"" ::Expanded help"
1297^PRCT(446.4,4,1,656,0)="P""id (ex:688 EE9372),"""
1298^PRCT(446.4,4,1,657,0)="P""PM #, or special"""
1299^PRCT(446.4,4,1,658,0)="P""function key F4."""
1300^PRCT(446.4,4,1,659,0)="W10 ::10 sec to read"
1301^PRCT(446.4,4,1,660,0)="P""Will also accept"""
1302^PRCT(446.4,4,1,661,0)="D$0=V(2) ::Display current"
1303^PRCT(446.4,4,1,662,0)="P$0 ::location"
1304^PRCT(446.4,4,1,663,0)="P""to close location"""
1305^PRCT(446.4,4,1,664,0)="P""or '.' to exit."""
1306^PRCT(446.4,4,1,665,0)="W10"
1307^PRCT(446.4,4,1,666,0)="Q"
1308^PRCT(446.4,4,1,667,0)=" :: HLP3"
1309^PRCT(446.4,4,1,668,0)=".HLP3"
1310^PRCT(446.4,4,1,669,0)="S.CLR ::No location"
1311^PRCT(446.4,4,1,670,0)="P""PMI process must"""
1312^PRCT(446.4,4,1,671,0)="P""begin with a"""
1313^PRCT(446.4,4,1,672,0)="P""location label."""
1314^PRCT(446.4,4,1,673,0)="W10"
1315^PRCT(446.4,4,1,674,0)="Q"
1316^PRCT(446.4,4,1,675,0)=".CLR5 ::Clear var"
1317^PRCT(446.4,4,1,676,0)="DV(5)="""""
1318^PRCT(446.4,4,1,677,0)="Q"
1319^PRCT(446.4,4,1,678,0)=" ::"
1320^PRCT(446.4,4,1,679,0)="E ::End of program"
1321^PRCT(446.4,5,0)="NON-EXPENDABLE^ENNX^EN-ENEQNX1^^^^^3010208^6"
1322^PRCT(446.4,5,1,0)="^446.41^457^457^3010109^^"
1323^PRCT(446.4,5,1,1,0)=" ::RGY/ISC-Washington@Altoona, Pa"
1324^PRCT(446.4,5,1,2,0)=" ::DH/ISC-Washington@Hampton, Va"
1325^PRCT(446.4,5,1,3,0)=" ::SAB/OIFO-Washington@Hampton, VA"
1326^PRCT(446.4,5,1,4,0)=" ::1.9.2001"
1327^PRCT(446.4,5,1,5,0)=" ::"
1328^PRCT(446.4,5,1,6,0)=" ::Equipment Inventory Program"
1329^PRCT(446.4,5,1,7,0)=" ::File I will hold the identifiers (IEN's)"
1330^PRCT(446.4,5,1,8,0)=" ::of equipment which has been physically"
1331^PRCT(446.4,5,1,9,0)=" ::located. Set up to hold as"
1332^PRCT(446.4,5,1,10,0)=" ::many as 1000 records."
1333^PRCT(446.4,5,1,11,0)=" ::As always, first record is a user"
1334^PRCT(446.4,5,1,12,0)=" ::specified identifier. Main purpose is"
1335^PRCT(446.4,5,1,13,0)=" ::to safeguard against inadvertent file"
1336^PRCT(446.4,5,1,14,0)=" ::purges. We suggest that user enter"
1337^PRCT(446.4,5,1,15,0)=" ::something like 'NX'-initials-date"
1338^PRCT(446.4,5,1,16,0)=" ::(ex: NX-SAW-9-12-90). If unit times"
1339^PRCT(446.4,5,1,17,0)=" ::out for inactivity or is turned off,"
1340^PRCT(446.4,5,1,18,0)=" ::this record will be displayed at"
1341^PRCT(446.4,5,1,19,0)=" ::power up time."
1342^PRCT(446.4,5,1,20,0)=" ::"
1343^PRCT(446.4,5,1,21,0)=" ::The Variable file (V) is a small file"
1344^PRCT(446.4,5,1,22,0)=" ::used for scratch variables since"
1345^PRCT(446.4,5,1,23,0)=" ::IRL limits numeric and string registers."
1346^PRCT(446.4,5,1,24,0)=" ::V(0) is a scratch variable"
1347^PRCT(446.4,5,1,25,0)=" ::V(1) is a scratch variable"
1348^PRCT(446.4,5,1,26,0)=" ::V(2) the last location entered"
1349^PRCT(446.4,5,1,27,0)=" ::V(3) the last equipment number entered"
1350^PRCT(446.4,5,1,28,0)=" ::V(4) contains station number"
1351^PRCT(446.4,5,1,29,0)=" ::V(5) station number on EE label"
1352^PRCT(446.4,5,1,30,0)=" ::V(6) alternate station number"
1353^PRCT(446.4,5,1,31,0)=" ::V(7) another alternate station number"
1354^PRCT(446.4,5,1,32,0)=" ::V(8) another alternate station number"
1355^PRCT(446.4,5,1,33,0)=" ::V(9) another alternate station number"
1356^PRCT(446.4,5,1,34,0)=" ::V(10) another alternate station number"
1357^PRCT(446.4,5,1,35,0)=" ::V(11) another alternate station number"
1358^PRCT(446.4,5,1,36,0)=" ::V(12) another alternate station number"
1359^PRCT(446.4,5,1,37,0)=" ::V(13) last of eight possible alternate"
1360^PRCT(446.4,5,1,38,0)=" :: station numbers"
1361^PRCT(446.4,5,1,39,0)=" ::F(0) is 39 char formatter"
1362^PRCT(446.4,5,1,40,0)=" ::"
1363^PRCT(446.4,5,1,41,0)="OI(1000,40) ::Initialize INV file"
1364^PRCT(446.4,5,1,42,0)="OV(14,40) ::Initialize variable file"
1365^PRCT(446.4,5,1,43,0)="OF(1,39) ::Truncation in REV/DEL"
1366^PRCT(446.4,5,1,44,0)=" ::"
1367^PRCT(446.4,5,1,45,0)=".BEG :: BEG"
1368^PRCT(446.4,5,1,46,0)="DV(4)="""""
1369^PRCT(446.4,5,1,47,0)="DV(4)=|ENSTA|"
1370^PRCT(446.4,5,1,48,0)="DV(6)="""" ::Initialize alternate station"
1371^PRCT(446.4,5,1,49,0)="DV(6)=|ENSTA(1)|"
1372^PRCT(446.4,5,1,50,0)="DV(7)="""" ::numbers"
1373^PRCT(446.4,5,1,51,0)="DV(7)=|ENSTA(2)|"
1374^PRCT(446.4,5,1,52,0)="DV(8)="""""
1375^PRCT(446.4,5,1,53,0)="DV(8)=|ENSTA(3)|"
1376^PRCT(446.4,5,1,54,0)="DV(9)="""""
1377^PRCT(446.4,5,1,55,0)="DV(9)=|ENSTA(4)|"
1378^PRCT(446.4,5,1,56,0)="DV(10)="""""
1379^PRCT(446.4,5,1,57,0)="DV(10)=|ENSTA(5)|"
1380^PRCT(446.4,5,1,58,0)="DV(11)="""""
1381^PRCT(446.4,5,1,59,0)="DV(11)=|ENSTA(6)|"
1382^PRCT(446.4,5,1,60,0)="DV(12)="""""
1383^PRCT(446.4,5,1,61,0)="DV(12)=|ENSTA(7)|"
1384^PRCT(446.4,5,1,62,0)="DV(13)="""""
1385^PRCT(446.4,5,1,63,0)="DV(13)=|ENSTA(8)|"
1386^PRCT(446.4,5,1,64,0)="S.CLR"
1387^PRCT(446.4,5,1,65,0)="P""STATION NUMBER:"""
1388^PRCT(446.4,5,1,66,0)="PV(4) ::Alternates not shown"
1389^PRCT(446.4,5,1,67,0)="P""To continue, please"""
1390^PRCT(446.4,5,1,68,0)="P""press <ENTER>..."""
1391^PRCT(446.4,5,1,69,0)="A"
1392^PRCT(446.4,5,1,70,0)="D$0="""""
1393^PRCT(446.4,5,1,71,0)="H#1=I ::Set reg 1 to current rec # in INV file"
1394^PRCT(446.4,5,1,72,0)="G#1>0.DAT ::If data already exists, warn user"
1395^PRCT(446.4,5,1,73,0)="S.CLR ::Clear screen"
1396^PRCT(446.4,5,1,74,0)="P""Please enter ..."" ::Ask user for file ID"
1397^PRCT(446.4,5,1,75,0)="P""file ID: "" :: (cont)"
1398^PRCT(446.4,5,1,76,0)="A ::User input of file ID"
1399^PRCT(446.4,5,1,77,0)="D$0=""ID ""+$0 ::Force an entry"
1400^PRCT(446.4,5,1,78,0)="RI ::Store file ID into INV file"
1401^PRCT(446.4,5,1,79,0)="DV(2)="""" ::Initialize V(2)"
1402^PRCT(446.4,5,1,80,0)="DV(3)="""""
1403^PRCT(446.4,5,1,81,0)=" ::"
1404^PRCT(446.4,5,1,82,0)=".START :: START"
1405^PRCT(446.4,5,1,83,0)="S.CLR"
1406^PRCT(446.4,5,1,84,0)="P""1. Take Inventory"""
1407^PRCT(446.4,5,1,85,0)="P""2. Transmit Data"" :: (cont)"
1408^PRCT(446.4,5,1,86,0)="P""3. Review/Delete"" :: (cont)"
1409^PRCT(446.4,5,1,87,0)="P""ENTER (1-3):"""
1410^PRCT(446.4,5,1,88,0)="A ::User input of option"
1411^PRCT(446.4,5,1,89,0)="G$0=""1"".ENTER ::ENTER is entry tag for INV"
1412^PRCT(446.4,5,1,90,0)="G$0=""2"".XMIT ::XMIT is entry tag for transmit"
1413^PRCT(446.4,5,1,91,0)="G$0=""3"".REVDEL ::REVDEL is entry tag for deletion"
1414^PRCT(446.4,5,1,92,0)="B00 ::Sound beep two times"
1415^PRCT(446.4,5,1,93,0)="S.CLR ::Clear screen"
1416^PRCT(446.4,5,1,94,0)="P""*** Error, enter a"" ::Print message of invalid input"
1417^PRCT(446.4,5,1,95,0)="P""number from 1-3, or"" :: (cont)"
1418^PRCT(446.4,5,1,96,0)="P""turn TRAKKER off."""
1419^PRCT(446.4,5,1,97,0)="W5 ::Wait 5 seconds to allow view of message"
1420^PRCT(446.4,5,1,98,0)="G.START ::Go back and display main menu"
1421^PRCT(446.4,5,1,99,0)=" ::"
1422^PRCT(446.4,5,1,100,0)=" ::Entries at this point should look like:"
1423^PRCT(446.4,5,1,101,0)=" :: SP21-110, or"
1424^PRCT(446.4,5,1,102,0)=" :: 688 EE6798, or maybe"
1425^PRCT(446.4,5,1,103,0)=" :: 7832 EE659098"
1426^PRCT(446.4,5,1,104,0)=" ::Anything else needs to be rejected."
1427^PRCT(446.4,5,1,105,0)=".ENTER :: ENTER"
1428^PRCT(446.4,5,1,106,0)="H#1=I ::Set regist 1 to Num. of rec. in INV file"
1429^PRCT(446.4,5,1,107,0)="G#1>995.STOP ::If INV file full, no more entries"
1430^PRCT(446.4,5,1,108,0)="S#1>985.WARN ::If INV file almost full, warn user"
1431^PRCT(446.4,5,1,109,0)="D$0=""\e[2JRM: ""+V(2) ::Clear screen and display Room number"
1432^PRCT(446.4,5,1,110,0)="P$0 :: (cont)"
1433^PRCT(446.4,5,1,111,0)="D$0=""ID: ""+V(3) ::Display current identifier"
1434^PRCT(446.4,5,1,112,0)="P$0 :: (cont)"
1435^PRCT(446.4,5,1,113,0)="P""...Reader ready...\r\n"" ::Display input symbol for INV"
1436^PRCT(446.4,5,1,114,0)="D$0="""" ::Initialize input variable"
1437^PRCT(446.4,5,1,115,0)="A ::Allow user input of next equip id"
1438^PRCT(446.4,5,1,116,0)="DV(1)=$0 ::For safe keeping"
1439^PRCT(446.4,5,1,117,0)="G$0=""."".START ::If input is ""."", goto main menu"
1440^PRCT(446.4,5,1,118,0)="D$1=$0L2 ::First 2 char of input"
1441^PRCT(446.4,5,1,119,0)="G$1=""SP"".LOC ::Location label"
1442^PRCT(446.4,5,1,120,0)="G$0=""F4"".NOLBL ::Process item without barcode label"
1443^PRCT(446.4,5,1,121,0)="D#1=[$0] ::Is this a PM number?"
1444^PRCT(446.4,5,1,122,0)="S#1>8.PMN ::Maybe so, go check"
1445^PRCT(446.4,5,1,123,0)="GV(5)=""PM"".ENTPM ::It was a PM number"
1446^PRCT(446.4,5,1,124,0)="S.PARSE ::What is it? Should be EE label."
1447^PRCT(446.4,5,1,125,0)="SV(5)=""??"".HLP1 ::Not what we expected, print help and"
1448^PRCT(446.4,5,1,126,0)="GV(5)=""??"".ENTER ::try again"
1449^PRCT(446.4,5,1,127,0)=".ENTPM ::Tag to skip parsing"
1450^PRCT(446.4,5,1,128,0)="GV(2)="""".NOLOC ::Have EE label, but no open loc"
1451^PRCT(446.4,5,1,129,0)="GV(5)=""PM"".RECNX ::PM number and open loc; record"
1452^PRCT(446.4,5,1,130,0)="GV(4)=V(5).RECNX ::EE label and open loc; record"
1453^PRCT(446.4,5,1,131,0)="GV(5)=V(6).RECNX ::Alternate station #"
1454^PRCT(446.4,5,1,132,0)="GV(5)=V(7).RECNX ::Second alternate station #"
1455^PRCT(446.4,5,1,133,0)="GV(5)=V(8).RECNX ::Third alternate station #"
1456^PRCT(446.4,5,1,134,0)="GV(5)=V(9).RECNX ::Fourth alternate station #"
1457^PRCT(446.4,5,1,135,0)="GV(5)=V(10).RECNX ::Fifth alternate station #"
1458^PRCT(446.4,5,1,136,0)="GV(5)=V(11).RECNX ::Sixth alternate station #"
1459^PRCT(446.4,5,1,137,0)="GV(5)=V(12).RECNX ::Seventh alternate station #"
1460^PRCT(446.4,5,1,138,0)="GV(5)=V(13).RECNX ::Eighth alternate station #"
1461^PRCT(446.4,5,1,139,0)=".RPT ::In case we need to repeat"
1462^PRCT(446.4,5,1,140,0)="S.CLR ::exception message"
1463^PRCT(446.4,5,1,141,0)="P""WARNING...EE label"""
1464^PRCT(446.4,5,1,142,0)="B01"
1465^PRCT(446.4,5,1,143,0)="D$1=""is from VAMC ""+V(5) ::Show foreign station"
1466^PRCT(446.4,5,1,144,0)="P$1"
1467^PRCT(446.4,5,1,145,0)="P""To continue, press"" ::Next screen"
1468^PRCT(446.4,5,1,146,0)="P""<ENTER>..."""
1469^PRCT(446.4,5,1,147,0)="A ::Any char OK"
1470^PRCT(446.4,5,1,148,0)="S.CLR"
1471^PRCT(446.4,5,1,149,0)="P""Enter '1' to accept"""
1472^PRCT(446.4,5,1,150,0)="PV(1)"
1473^PRCT(446.4,5,1,151,0)="P""or '2' to reject it."""
1474^PRCT(446.4,5,1,152,0)="A1 ::Input 1 char"
1475^PRCT(446.4,5,1,153,0)="G$0=""1"".RECNX ::Add to file"
1476^PRCT(446.4,5,1,154,0)="G$0=""2"".ENTER ::Ignore it"
1477^PRCT(446.4,5,1,155,0)="G.RPT ::Repeat the question"
1478^PRCT(446.4,5,1,156,0)=" ::"
1479^PRCT(446.4,5,1,157,0)=".RECNX :: RECNX"
1480^PRCT(446.4,5,1,158,0)=" ::Add EE number to I"
1481^PRCT(446.4,5,1,159,0)="DV(3)=V(1) ::Update variable"
1482^PRCT(446.4,5,1,160,0)="D$0=V(1) ::Restore register"
1483^PRCT(446.4,5,1,161,0)="RI ::File EE number"
1484^PRCT(446.4,5,1,162,0)="DV(5)="""" ::Clear reg"
1485^PRCT(446.4,5,1,163,0)="G.ENTER ::Next scan"
1486^PRCT(446.4,5,1,164,0)=" ::"
1487^PRCT(446.4,5,1,165,0)=".NOLOC :: NOLOC"
1488^PRCT(446.4,5,1,166,0)="B1101 ::Audible signal"
1489^PRCT(446.4,5,1,167,0)="S.CLR ::EE label scanned before"
1490^PRCT(446.4,5,1,168,0)="P""Inventory process"" ::location"
1491^PRCT(446.4,5,1,169,0)="P""must begin with"""
1492^PRCT(446.4,5,1,170,0)="P""location label."""
1493^PRCT(446.4,5,1,171,0)="P""Press <ENTER>..."""
1494^PRCT(446.4,5,1,172,0)="A ::Accept any char"
1495^PRCT(446.4,5,1,173,0)="G.ENTER ::Try again"
1496^PRCT(446.4,5,1,174,0)=" ::"
1497^PRCT(446.4,5,1,175,0)=".NOLBL :: NOLBL"
1498^PRCT(446.4,5,1,176,0)="GV(2)="""".NOLOC ::No open loc; can't proceed"
1499^PRCT(446.4,5,1,177,0)="S.CLR ::Get text description of"
1500^PRCT(446.4,5,1,178,0)="P""Enter MODEL NUMBER:\r\n"" ::items without barcode"
1501^PRCT(446.4,5,1,179,0)="D$0="""""
1502^PRCT(446.4,5,1,180,0)="A ::labels"
1503^PRCT(446.4,5,1,181,0)="G$0=""^"".NLABRT ::User abort"
1504^PRCT(446.4,5,1,182,0)="D$2=$0 ::Temp save of mod in $2"
1505^PRCT(446.4,5,1,183,0)="S.CLR"
1506^PRCT(446.4,5,1,184,0)="P""Enter SERIAL NUMBER:"" ::Get serial #"
1507^PRCT(446.4,5,1,185,0)="D$0="""""
1508^PRCT(446.4,5,1,186,0)="A"
1509^PRCT(446.4,5,1,187,0)="G$0=""^"".NLABRT ::User abort"
1510^PRCT(446.4,5,1,188,0)="G$0="""".NLABRT"
1511^PRCT(446.4,5,1,189,0)="D$3=$0 ::Temp save of s/n in $3"
1512^PRCT(446.4,5,1,190,0)=".DESC ::Item description"
1513^PRCT(446.4,5,1,191,0)="S.CLR"
1514^PRCT(446.4,5,1,192,0)="P""Enter DESCRIPTION:\r\n"" ::Free text description"
1515^PRCT(446.4,5,1,193,0)="A ::40 char max because of fixed"
1516^PRCT(446.4,5,1,194,0)="D#0=[$0] ::record size"
1517^PRCT(446.4,5,1,195,0)="G#0<41.NOLBL1"
1518^PRCT(446.4,5,1,196,0)="S.CLR ::Clear screen for"
1519^PRCT(446.4,5,1,197,0)="P""ERROR Description"" ::error message"
1520^PRCT(446.4,5,1,198,0)="P""may not exceed 40"""
1521^PRCT(446.4,5,1,199,0)="P""characters."""
1522^PRCT(446.4,5,1,200,0)="P""Press <ENTER>..."" ::Wait for user resp"
1523^PRCT(446.4,5,1,201,0)="A ::Take anything"
1524^PRCT(446.4,5,1,202,0)="G.DESC ::Try again"
1525^PRCT(446.4,5,1,203,0)=".NOLBL1 ::Continue"
1526^PRCT(446.4,5,1,204,0)="D$1=$0 ::Shuffle the string"
1527^PRCT(446.4,5,1,205,0)="D$0=""MOD:""+$2 ::registers and file"
1528^PRCT(446.4,5,1,206,0)="RI ::user inputs"
1529^PRCT(446.4,5,1,207,0)="D$0=""S/N:""+$3"
1530^PRCT(446.4,5,1,208,0)="RI"
1531^PRCT(446.4,5,1,209,0)="D$0=$1"
1532^PRCT(446.4,5,1,210,0)="RI ::Filing complete"
1533^PRCT(446.4,5,1,211,0)=".NLABRT ::Jump here to skip filing"
1534^PRCT(446.4,5,1,212,0)="G.ENTER ::End of program segment"
1535^PRCT(446.4,5,1,213,0)=" ::"
1536^PRCT(446.4,5,1,214,0)=".PMN :: PMN"
1537^PRCT(446.4,5,1,215,0)="D$1=$0M1,5 ::Is this really a PM number?"
1538^PRCT(446.4,5,1,216,0)="G$1=""-"".PMN1 ::Apparently so"
1539^PRCT(446.4,5,1,217,0)="Q ::Not PM number, return"
1540^PRCT(446.4,5,1,218,0)=".PMN1 ::Assume NNNN-NNNN is PM#"
1541^PRCT(446.4,5,1,219,0)="DV(5)=""PM"" ::Set flag"
1542^PRCT(446.4,5,1,220,0)="DV(0)="""" ::Add prefix"
1543^PRCT(446.4,5,1,221,0)="DV(0)=V(1)"
1544^PRCT(446.4,5,1,222,0)="DV(1)="""""
1545^PRCT(446.4,5,1,223,0)="DV(1)=""PM#:""+V(0)"
1546^PRCT(446.4,5,1,224,0)="Q ::Return"
1547^PRCT(446.4,5,1,225,0)=" ::"
1548^PRCT(446.4,5,1,226,0)=".REVDEL :: REVDEL"
1549^PRCT(446.4,5,1,227,0)="H#1=I ::Get last"
1550^PRCT(446.4,5,1,228,0)="D#1=#1-1 ::record number"
1551^PRCT(446.4,5,1,229,0)=".LP10"
1552^PRCT(446.4,5,1,230,0)="G#1=0.START ::Can't go above first LOCATION"
1553^PRCT(446.4,5,1,231,0)="S.CLR"
1554^PRCT(446.4,5,1,232,0)="C$1=#1 ::Display"
1555^PRCT(446.4,5,1,233,0)="D$0=$1+"") "" ::content of"
1556^PRCT(446.4,5,1,234,0)="D$0=$0+I(#1) ::current record"
1557^PRCT(446.4,5,1,235,0)="DF(0)=$0 ::Truncate to"
1558^PRCT(446.4,5,1,236,0)="D$0=F(0) ::40 char"
1559^PRCT(446.4,5,1,237,0)="P$0"
1560^PRCT(446.4,5,1,238,0)="P""(D)elete, (Q)uit,"" ::Get instructions"
1561^PRCT(446.4,5,1,239,0)="P""or (C)ontinue..."""
1562^PRCT(446.4,5,1,240,0)="D$0="""" ::Clear input buffer"
1563^PRCT(446.4,5,1,241,0)="A1"
1564^PRCT(446.4,5,1,242,0)="G$0=""D"".LP20 ::Deletion"
1565^PRCT(446.4,5,1,243,0)="G$0=""Q"".START ::Back to main menu"
1566^PRCT(446.4,5,1,244,0)="G$0=""C"".LP30 ::Next record"
1567^PRCT(446.4,5,1,245,0)="P""Error. Must enter"""
1568^PRCT(446.4,5,1,246,0)="P""D, Q, or C."""
1569^PRCT(446.4,5,1,247,0)="P""To proceed, please"""
1570^PRCT(446.4,5,1,248,0)="P""press <ENTER>..."""
1571^PRCT(446.4,5,1,249,0)="D$0="""""
1572^PRCT(446.4,5,1,250,0)="A"
1573^PRCT(446.4,5,1,251,0)="G.LP10"
1574^PRCT(446.4,5,1,252,0)=".LP20 ::Physical deletion"
1575^PRCT(446.4,5,1,253,0)="S.CLR"
1576^PRCT(446.4,5,1,254,0)="P""Deleting record"""
1577^PRCT(446.4,5,1,255,0)="D$0=""number ""+$1"
1578^PRCT(446.4,5,1,256,0)="D$0=$0+""..."""
1579^PRCT(446.4,5,1,257,0)="P$0"
1580^PRCT(446.4,5,1,258,0)="W5"
1581^PRCT(446.4,5,1,259,0)="DI(#1)=""*****"" ::Deletion marker"
1582^PRCT(446.4,5,1,260,0)="P""(Q)uit or (C)ont?"" ::Get instructions"
1583^PRCT(446.4,5,1,261,0)="D$0="""""
1584^PRCT(446.4,5,1,262,0)="A1"
1585^PRCT(446.4,5,1,263,0)="G$0=""C"".LP25 ::Continue"
1586^PRCT(446.4,5,1,264,0)="G.START ::Back to main menu"
1587^PRCT(446.4,5,1,265,0)=".LP25 :: LP25"
1588^PRCT(446.4,5,1,266,0)="D#1=#1-1 ::Move file pointer"
1589^PRCT(446.4,5,1,267,0)="G.LP10"
1590^PRCT(446.4,5,1,268,0)=".LP30 :: LP30"
1591^PRCT(446.4,5,1,269,0)="D#1=#1-1 ::Move file pointer"
1592^PRCT(446.4,5,1,270,0)="G.LP10"
1593^PRCT(446.4,5,1,271,0)=" ::"
1594^PRCT(446.4,5,1,272,0)=".XMIT :: XMIT"
1595^PRCT(446.4,5,1,273,0)="D$0=""ENNX"" ::Define data identifier"
1596^PRCT(446.4,5,1,274,0)="XMP,$0 ::Transmit data identifier to host system"
1597^PRCT(446.4,5,1,275,0)="XMP,I ::Transmit INV file to host device"
1598^PRCT(446.4,5,1,276,0)="H#1=I ::Find how many records exist in INV file"
1599^PRCT(446.4,5,1,277,0)="C$0=#1 ::Set string variable to Number of Records"
1600^PRCT(446.4,5,1,278,0)="D$0=""***END***^""+$0 ::Setup End of File message"
1601^PRCT(446.4,5,1,279,0)="XMP,$0 ::Send End of File message to external device"
1602^PRCT(446.4,5,1,280,0)="YMN;1 ::Clear data buffer"
1603^PRCT(446.4,5,1,281,0)=".ASK :: ASK"
1604^PRCT(446.4,5,1,282,0)="S.CLR ::Clear screen"
1605^PRCT(446.4,5,1,283,0)="P""Data xmitted, do"" ::Display confirmation of transmission message"
1606^PRCT(446.4,5,1,284,0)="P""you want to purge"" :: (cont)"
1607^PRCT(446.4,5,1,285,0)="P""the file (Y/N) ? "" :: (cont)"
1608^PRCT(446.4,5,1,286,0)="D$0="""" ::Initialize input variable"
1609^PRCT(446.4,5,1,287,0)="A ::Allow user input"
1610^PRCT(446.4,5,1,288,0)="G$0=""Y"".PUR ::If ""Y"", purge inventory file"
1611^PRCT(446.4,5,1,289,0)="G$0=""N"".START ::If user input is a ""N"", go back to main menu"
1612^PRCT(446.4,5,1,290,0)="G$0=""."".START ::If user input is a ""."", go back to main menu"
1613^PRCT(446.4,5,1,291,0)="B00 ::Sound beep two times"
1614^PRCT(446.4,5,1,292,0)="S.CLR ::Clear screen"
1615^PRCT(446.4,5,1,293,0)="P""Please enter a "" ::Display error message"
1616^PRCT(446.4,5,1,294,0)="P""Y or N."" :: (cont)"
1617^PRCT(446.4,5,1,295,0)="W3 ::Wait 5 seconds to allow view of message"
1618^PRCT(446.4,5,1,296,0)="G.ASK ::Go back and ask purge question"
1619^PRCT(446.4,5,1,297,0)=" ::"
1620^PRCT(446.4,5,1,298,0)=".PUR :: PUR"
1621^PRCT(446.4,5,1,299,0)="HI=0 ::Purge of INV file"
1622^PRCT(446.4,5,1,300,0)="HV=0 ::Purge of local variable file"
1623^PRCT(446.4,5,1,301,0)="B0 ::Sound beep one time"
1624^PRCT(446.4,5,1,302,0)="P""** File Purged **"" ::Inform user of purged file"
1625^PRCT(446.4,5,1,303,0)="W3 ::Wait three seconds to allow view of message"
1626^PRCT(446.4,5,1,304,0)="G.BEG ::Go back to begining of program"
1627^PRCT(446.4,5,1,305,0)=" ::"
1628^PRCT(446.4,5,1,306,0)=".CLR :: CLR"
1629^PRCT(446.4,5,1,307,0)="P""\e[2J"" ::Clear screen escape sequence"
1630^PRCT(446.4,5,1,308,0)="D$0="""" ::Clear input register"
1631^PRCT(446.4,5,1,309,0)="Q ::Quit subroutine"
1632^PRCT(446.4,5,1,310,0)=" ::"
1633^PRCT(446.4,5,1,311,0)=".WARN :: WARN"
1634^PRCT(446.4,5,1,312,0)="B0 ::Sound beep"
1635^PRCT(446.4,5,1,313,0)="P""\e[2J**** WARNING ****"" ::Clear screen and print warning message"
1636^PRCT(446.4,5,1,314,0)="P""Data file is almost"" :: (cont)"
1637^PRCT(446.4,5,1,315,0)="P""full. Please XMIT"" :: (cont)"
1638^PRCT(446.4,5,1,316,0)="P""data and purge file."" :: (cont)"
1639^PRCT(446.4,5,1,317,0)="W3 ::Wait three seconds to allow view of message"
1640^PRCT(446.4,5,1,318,0)="Q ::Quit subroutine"
1641^PRCT(446.4,5,1,319,0)=" ::"
1642^PRCT(446.4,5,1,320,0)=".STOP :: STOP"
1643^PRCT(446.4,5,1,321,0)="B00 ::Sound beep two times"
1644^PRCT(446.4,5,1,322,0)="S.CLR ::Clear screen"
1645^PRCT(446.4,5,1,323,0)="P""Sorry, data file is"" ::Print error message"
1646^PRCT(446.4,5,1,324,0)="P""FULL, you must XMIT"" :: (cont)"
1647^PRCT(446.4,5,1,325,0)="P""and purge file."" :: (cont)"
1648^PRCT(446.4,5,1,326,0)="W5 ::Wait five seconds to allow view of message"
1649^PRCT(446.4,5,1,327,0)="G.START ::Go back to main menu"
1650^PRCT(446.4,5,1,328,0)=" ::"
1651^PRCT(446.4,5,1,329,0)=".DAT :: DAT"
1652^PRCT(446.4,5,1,330,0)="S.CLR ::Clear screen"
1653^PRCT(446.4,5,1,331,0)="B00 ::Sound beep two times"
1654^PRCT(446.4,5,1,332,0)="P""*** WARNING ***"" ::Print warning message of existing data"
1655^PRCT(446.4,5,1,333,0)="P""Data exists on"" :: (cont)"
1656^PRCT(446.4,5,1,334,0)="P""this barcode reader."" :: (cont)"
1657^PRCT(446.4,5,1,335,0)="W5 ::Wait five seconds to allow view of message"
1658^PRCT(446.4,5,1,336,0)="S.CLR"
1659^PRCT(446.4,5,1,337,0)="P""The file ID is:"" ::Display file ID to user"
1660^PRCT(446.4,5,1,338,0)="D$0=I(0) ::Setup display of file ID"
1661^PRCT(446.4,5,1,339,0)="P$0 ::Print file id"
1662^PRCT(446.4,5,1,340,0)="W5 ::Wait five seconds to allow view of message"
1663^PRCT(446.4,5,1,341,0)="S.CLR ::Clear screen"
1664^PRCT(446.4,5,1,342,0)="P""Do you want to"" ::Query user to purge existing file"
1665^PRCT(446.4,5,1,343,0)="P""purge this file ..."" :: (cont)"
1666^PRCT(446.4,5,1,344,0)="P""... (Y/N) ? "" :: (cont)"
1667^PRCT(446.4,5,1,345,0)="D$0="""" ::Initialize input variable"
1668^PRCT(446.4,5,1,346,0)="A ::User input"
1669^PRCT(446.4,5,1,347,0)="G$0=""Y"".PUR ::If user input is a ""Y"", go and purge files"
1670^PRCT(446.4,5,1,348,0)="G$0=""N"".START ::If user input is a ""N"", go to main menu"
1671^PRCT(446.4,5,1,349,0)="G$0=""."".START ::If user input is a ""."", go to main menu"
1672^PRCT(446.4,5,1,350,0)="B00 ::Sound beep two times"
1673^PRCT(446.4,5,1,351,0)="S.CLR ::Clear screen"
1674^PRCT(446.4,5,1,352,0)="P""Please enter a "" ::Display error message"
1675^PRCT(446.4,5,1,353,0)="P""Y or N."" :: (cont)"
1676^PRCT(446.4,5,1,354,0)="W5 ::Wait five seconds to allow view of message"
1677^PRCT(446.4,5,1,355,0)="G.DAT ::Go back a existing data question"
1678^PRCT(446.4,5,1,356,0)=" ::"
1679^PRCT(446.4,5,1,357,0)=".LOC :: LOC"
1680^PRCT(446.4,5,1,358,0)=" ::Process location label in $0"
1681^PRCT(446.4,5,1,359,0)="SV(2)="""".NLOC ::No location presently open"
1682^PRCT(446.4,5,1,360,0)="SV(2)=$0.CLOC ::Location is open"
1683^PRCT(446.4,5,1,361,0)="G$0="""".LOCQ ::All is well"
1684^PRCT(446.4,5,1,362,0)="P""ERROR Must close"" ::Display error"
1685^PRCT(446.4,5,1,363,0)="B1101 ::message and sound alarm"
1686^PRCT(446.4,5,1,364,0)="PV(2)"
1687^PRCT(446.4,5,1,365,0)="P""before you may open"""
1688^PRCT(446.4,5,1,366,0)="P$0"
1689^PRCT(446.4,5,1,367,0)="W10 ::10 sec to read"
1690^PRCT(446.4,5,1,368,0)=".LOCQ ::Exit from subroutine"
1691^PRCT(446.4,5,1,369,0)="G.ENTER ::Next read"
1692^PRCT(446.4,5,1,370,0)=".NLOC :: NLOC"
1693^PRCT(446.4,5,1,371,0)="DV(2)=$0 ::Store new current location"
1694^PRCT(446.4,5,1,372,0)="RI ::Add new loc to file"
1695^PRCT(446.4,5,1,373,0)="D$0="""" ::All OK flag back to LOC"
1696^PRCT(446.4,5,1,374,0)="Q"
1697^PRCT(446.4,5,1,375,0)=".CLOC :: CLOC"
1698^PRCT(446.4,5,1,376,0)="DV(2)="""" ::Close current location"
1699^PRCT(446.4,5,1,377,0)="D$0="""" ::All OK flag back to LOC"
1700^PRCT(446.4,5,1,378,0)="DV(3)="""" ::Clear last EE for new loc"
1701^PRCT(446.4,5,1,379,0)="Q"
1702^PRCT(446.4,5,1,380,0)="G.ENTER"
1703^PRCT(446.4,5,1,381,0)=" ::"
1704^PRCT(446.4,5,1,382,0)=".PARSE :: PARSE"
1705^PRCT(446.4,5,1,383,0)="DV(5)="""""
1706^PRCT(446.4,5,1,384,0)="D#1=0 ::Initialize character count"
1707^PRCT(446.4,5,1,385,0)=".FNDBL ::Look for space"
1708^PRCT(446.4,5,1,386,0)="D#1=#1+1 ::Increment counter"
1709^PRCT(446.4,5,1,387,0)="D$1=$0M1,#1 ::Examine current char position"
1710^PRCT(446.4,5,1,388,0)="G$1="""".PARS1 ::Must not be any spaces"
1711^PRCT(446.4,5,1,389,0)="G$1="" "".PARS1 ::That's more like it"
1712^PRCT(446.4,5,1,390,0)="G.FNDBL ::Keep looping"
1713^PRCT(446.4,5,1,391,0)=".PARS1"
1714^PRCT(446.4,5,1,392,0)="S$1="""".ERR1 ::Can't be right"
1715^PRCT(446.4,5,1,393,0)="S$1="" "".PARS2 ::Continue"
1716^PRCT(446.4,5,1,394,0)="Q ::Return control to segment ENTER"
1717^PRCT(446.4,5,1,395,0)=" ::"
1718^PRCT(446.4,5,1,396,0)=".PARS2 :: PARS2 (2ND LEVEL)"
1719^PRCT(446.4,5,1,397,0)="D#2=[$0] ::Length of label"
1720^PRCT(446.4,5,1,398,0)="D#3=#1+1 ::Start of second piece"
1721^PRCT(446.4,5,1,399,0)="D#4=#2-#1 ::Length of second piece"
1722^PRCT(446.4,5,1,400,0)="D$1=$0M#4,#3 ::Set $1 to second piece"
1723^PRCT(446.4,5,1,401,0)="D$2=$1L2 ::Application code"
1724^PRCT(446.4,5,1,402,0)="G$2=""EE"".PARS3 ::Application code should be EE"
1725^PRCT(446.4,5,1,403,0)="DV(5)=""??"" ::Error condition"
1726^PRCT(446.4,5,1,404,0)="G.PARS4"
1727^PRCT(446.4,5,1,405,0)=".PARS3 ::Where we want to be"
1728^PRCT(446.4,5,1,406,0)="D#3=#1-1 ::Length of station number"
1729^PRCT(446.4,5,1,407,0)="DV(5)=$0L#3 ::Store station number from label"
1730^PRCT(446.4,5,1,408,0)=".PARS4 ::Re-entry from error condition"
1731^PRCT(446.4,5,1,409,0)="Q ::Return control to PARSE, passing V(5)"
1732^PRCT(446.4,5,1,410,0)=" ::"
1733^PRCT(446.4,5,1,411,0)=".ERR1 :: ERR1"
1734^PRCT(446.4,5,1,412,0)="DV(5)=""??"" ::Flag error for segment .ENTER"
1735^PRCT(446.4,5,1,413,0)="Q"
1736^PRCT(446.4,5,1,414,0)=" ::"
1737^PRCT(446.4,5,1,415,0)=".HLP1 :: HLP1"
1738^PRCT(446.4,5,1,416,0)="S.CLR ::Called from .ENTER if input"
1739^PRCT(446.4,5,1,417,0)="GV(1)=""?"".HLP12 ::is a question"
1740^PRCT(446.4,5,1,418,0)="P""** INVALID ENTRY **"" ::or is questionable"
1741^PRCT(446.4,5,1,419,0)="B1010 ::Audible signal"
1742^PRCT(446.4,5,1,420,0)="P""Press <ENTER> to"""
1743^PRCT(446.4,5,1,421,0)="P""continue, or enter"""
1744^PRCT(446.4,5,1,422,0)="P""'?' for help."""
1745^PRCT(446.4,5,1,423,0)="D$0="""""
1746^PRCT(446.4,5,1,424,0)="A ::User response"
1747^PRCT(446.4,5,1,425,0)="G$0="""".HLP1Q ::Help declined"
1748^PRCT(446.4,5,1,426,0)="D$0=$0L1 ::Look at first char"
1749^PRCT(446.4,5,1,427,0)=".HLP12 ::'?' to begin with"
1750^PRCT(446.4,5,1,428,0)="SV(1)=""?"".HLP2 ::More help"
1751^PRCT(446.4,5,1,429,0)="S$0=""?"".HLP2 ::Show help text"
1752^PRCT(446.4,5,1,430,0)=".HLP1Q ::Exit subroutine"
1753^PRCT(446.4,5,1,431,0)="Q"
1754^PRCT(446.4,5,1,432,0)=" ::"
1755^PRCT(446.4,5,1,433,0)=".HLP2 :: HLP2"
1756^PRCT(446.4,5,1,434,0)="D$0=V(2) ::Ck for location"
1757^PRCT(446.4,5,1,435,0)="G$0="""".HLP3"
1758^PRCT(446.4,5,1,436,0)="P""Expecting equipment"" ::Expanded help"
1759^PRCT(446.4,5,1,437,0)="P""id (ex:688 EE9372),"""
1760^PRCT(446.4,5,1,438,0)="P""PM #, or special"""
1761^PRCT(446.4,5,1,439,0)="P""function key F4."""
1762^PRCT(446.4,5,1,440,0)="W10 ::10 sec to read"
1763^PRCT(446.4,5,1,441,0)="P""Will also accept"""
1764^PRCT(446.4,5,1,442,0)="D$0=V(2) ::Display current"
1765^PRCT(446.4,5,1,443,0)="P$0 ::location"
1766^PRCT(446.4,5,1,444,0)="P""to close location"""
1767^PRCT(446.4,5,1,445,0)="P""or '.' to exit."""
1768^PRCT(446.4,5,1,446,0)="W10"
1769^PRCT(446.4,5,1,447,0)="Q"
1770^PRCT(446.4,5,1,448,0)=" :: HLP3"
1771^PRCT(446.4,5,1,449,0)=".HLP3"
1772^PRCT(446.4,5,1,450,0)="S.CLR ::No location"
1773^PRCT(446.4,5,1,451,0)="P""Inv. process must"""
1774^PRCT(446.4,5,1,452,0)="P""begin with a"""
1775^PRCT(446.4,5,1,453,0)="P""location label."""
1776^PRCT(446.4,5,1,454,0)="W10"
1777^PRCT(446.4,5,1,455,0)="Q"
1778^PRCT(446.4,5,1,456,0)=" ::"
1779^PRCT(446.4,5,1,457,0)="E ::End of program"
1780^PRCT(446.4,"B","EXPENDABLE PHYSICAL COUNT",1)=""
1781^PRCT(446.4,"B","EXPENDABLE USAGE",2)=""
1782^PRCT(446.4,"B","NON-EXPENDABLE",5)=""
1783^PRCT(446.4,"B","PREVENTIVE MAINTENANCE",4)=""
1784^PRCT(446.4,"C","ENNX",5)=""
1785^PRCT(446.4,"C","ENPM",4)=""
1786^PRCT(446.4,"C","PRCPH",1)=""
1787^PRCT(446.4,"C","PRCUS",2)=""
1788^PRCT(446.5,0)="CUSTOM LABEL^446.5^1^6"
1789^PRCT(446.5,1,0)="PRIMARY/SECONDARY LABEL^445^^^^5"
1790^PRCT(446.5,1,1,0)="^446.51^3^3^3070131^^^^"
1791^PRCT(446.5,1,1,1,0)="|1||7|"
1792^PRCT(446.5,1,1,2,0)="L:|3| R:|4| U:|5| OD:|2|"
1793^PRCT(446.5,1,1,3,0)="|6||8|"
1794^PRCT(446.5,1,2,0)="^446.52I^8^8"
1795^PRCT(446.5,1,2,1,0)="1^2^^^^^^^DESCRIPTION"
1796^PRCT(446.5,1,2,1,1)="S X=$E($$DESCR^PRCPUX1(D0,D1),1,33)"
1797^PRCT(446.5,1,2,2,0)="2^2^^1,.8^^^^^ON-DEMAND ITEM FLAG"
1798^PRCT(446.5,1,2,2,1)="S X=$S($$ODITEM^PRCPUX2(D0,D1)=""Y"":""Y"",1:""N"")"
1799^PRCT(446.5,1,2,3,0)="3^1^^1,9^^^^^LEVEL^^5"
1800^PRCT(446.5,1,2,4,0)="4^1^^1,10^^^^^REORDER POINT^^5"
1801^PRCT(446.5,1,2,5,0)="5^2^^^^^^^UNITS PER ISSUE"
1802^PRCT(446.5,1,2,5,1)="S X=$$UNIT^PRCPUX1(D0,D1,""/"")"
1803^PRCT(446.5,1,2,6,0)="6^2^^^^^^^ITEM NO."
1804^PRCT(446.5,1,2,6,1)="S X=""IE""_D0_"" ""_D1"
1805^PRCT(446.5,1,2,7,0)="7^1^^1,0^^^^^TEST"
1806^PRCT(446.5,1,2,8,0)="8^2^^^^^^^PAUSE"
1807^PRCT(446.5,1,2,8,1)="H 1"
1808^PRCT(446.5,1,3,0)="^^3^3^3070904"
1809^PRCT(446.5,1,3,1,0)="S PRCT=""1^1"" D XEC^PRCTLAB;Y1"
1810^PRCT(446.5,1,3,2,0)="1,S PRCT=""1^2"" D XEC^PRCTLAB;Y1,S PRCT=""1^3"" D XEC^PRCTLAB;C1,S PRCT=""1^4"" D XEC^PRCTLAB;C1,9;Y1;L5,S PRCT=""1^5"" D XEC^PRCTLAB;Y1,10;Y1;L5,S PRCT=""1^6"" D XEC^PRCTLAB;Y1,S PRCT=""1^7"" D XEC^PRCTLAB;Y1,S PRCT=""1^8"" D XEC^PRCTLAB;Y1"
1811^PRCT(446.5,1,3,3,0)="1,S PRCT=""1^9"" D XEC^PRCTLAB;Y1,S PRCT=""1^10"" D XEC^PRCTLAB;C1,S PRCT=""1^11"" D XEC^PRCTLAB;Y1,S PRCT=""1^12"" D XEC^PRCTLAB;Y1,S PRCT=""1^13"" D XEC^PRCTLAB;Y1"
1812^PRCT(446.5,1,4,0)="^^13^13^3070904"
1813^PRCT(446.5,1,4,1,0)="S X="""" I '$D(PRCTSC) S PRCTSC=1 S PRCT=""5^1"" D SPC^PRCTLAB"
1814^PRCT(446.5,1,4,2,0)="S PRCT=""5^2"" D SPC^PRCTLAB"
1815^PRCT(446.5,1,4,3,0)="S X=$E($$DESCR^PRCPUX1(D0,D1),1,33)"
1816^PRCT(446.5,1,4,4,0)="S X=""L:"""
1817^PRCT(446.5,1,4,5,0)="S X="" R:"""
1818^PRCT(446.5,1,4,6,0)="S X="" U:"""
1819^PRCT(446.5,1,4,7,0)="S X=$$UNIT^PRCPUX1(D0,D1,""/"")"
1820^PRCT(446.5,1,4,8,0)="S X="" OD:"""
1821^PRCT(446.5,1,4,9,0)="S X=$S($$ODITEM^PRCPUX2(D0,D1)=""Y"":""Y"",1:""N"")"
1822^PRCT(446.5,1,4,10,0)="S X=""IE""_D0_"" ""_D1"
1823^PRCT(446.5,1,4,11,0)="H 1"
1824^PRCT(446.5,1,4,12,0)="S:'$D(PRCTCP) PRCTCP=PRCTCPY S PRCTCP=PRCTCP-1 S:PRCTCP D0=D0-.0001 K:PRCTCP=0 PRCTCP S X="""""
1825^PRCT(446.5,1,4,13,0)="S PRCT=""5^3"" D SPC^PRCTLAB"
1826^PRCT(446.5,5,0)="TEST/LABEL 3X1^440^^^^5"
1827^PRCT(446.5,5,1,0)="^^3^3^2930222^^^^"
1828^PRCT(446.5,5,1,1,0)="THIS IS A TEST OF THE INTERMEC"
1829^PRCT(446.5,5,1,2,0)="8646 PRINTER WITH LABEL 3X1"
1830^PRCT(446.5,5,1,3,0)="0123456789"
1831^PRCT(446.5,5,3,0)="^^7^7^2950919"
1832^PRCT(446.5,5,3,1,0)="S PRCT=""5^1"" D XEC^PRCTLAB;Y1"
1833^PRCT(446.5,5,3,2,0)="S PRCT=""5^2"" D XEC^PRCTLAB;Y1"
1834^PRCT(446.5,5,3,3,0)="S PRCT=""5^3"" D XEC^PRCTLAB;C1"
1835^PRCT(446.5,5,3,4,0)="S PRCT=""5^4"" D XEC^PRCTLAB;C1"
1836^PRCT(446.5,5,3,5,0)="S PRCT=""5^5"" D XEC^PRCTLAB;C1"
1837^PRCT(446.5,5,3,6,0)="S PRCT=""5^6"" D XEC^PRCTLAB;Y1"
1838^PRCT(446.5,5,3,7,0)="S PRCT=""5^7"" D XEC^PRCTLAB;Y1"
1839^PRCT(446.5,5,4,0)="^^7^7^2950919"
1840^PRCT(446.5,5,4,1,0)="S X="""" I '$D(PRCTSC) S PRCTSC=1 S PRCT=""4^1"" D SPC^PRCTLAB"
1841^PRCT(446.5,5,4,2,0)="S PRCT=""4^2"" D SPC^PRCTLAB"
1842^PRCT(446.5,5,4,3,0)="S X=""THIS IS A TEST OF THE INTERMEC"""
1843^PRCT(446.5,5,4,4,0)="S X=""8646 PRINTER WITH LABEL 3X1"""
1844^PRCT(446.5,5,4,5,0)="S X=""0123456789"""
1845^PRCT(446.5,5,4,6,0)="S:'$D(PRCTCP) PRCTCP=PRCTCPY S PRCTCP=PRCTCP-1 S:PRCTCP D0=D0-.0001 K:PRCTCP=0 PRCTCP S X="""""
1846^PRCT(446.5,5,4,7,0)="S PRCT=""4^3"" D SPC^PRCTLAB"
1847^PRCT(446.5,6,0)="EXPENDABLE INVENTORY^445^-PRCPULAB^^^5"
1848^PRCT(446.5,6,1,0)="^^3^3^2930319^^^^"
1849^PRCT(446.5,6,1,1,0)="|1||2|"
1850^PRCT(446.5,6,1,2,0)=" "
1851^PRCT(446.5,6,1,3,0)="|3|"
1852^PRCT(446.5,6,2,0)="^446.52I^3^3"
1853^PRCT(446.5,6,2,1,0)="1^1^^1,0^^^^^ITEM MULTIPLE"
1854^PRCT(446.5,6,2,2,0)="2^2^^1,.7^^^^^ITEM DESCRIPTION"
1855^PRCT(446.5,6,2,2,1)="S X=$S($D(^PRCP(445,D0,1,D1,6)):$S($P(^(6),""^"")]"""":$P(^(6),""^""),1:""^""),1:""^"") S:X=""^"" X=$S($P(^PRC(441,D1,0),""^"",2)]"""":$P(^(0),""^"",2),1:""NO DESCRIPTION"") S X=$E(X,1,30)"
1856^PRCT(446.5,6,2,3,0)="3^2^^1,.01^^^^^ITEM NO."
1857^PRCT(446.5,6,2,3,1)="S X=""IE""_D0_"" ""_D1"
1858^PRCT(446.5,6,3,0)="^^2^2^2960627"
1859^PRCT(446.5,6,3,1,0)="S PRCT=""6^1"" D XEC^PRCTLAB;Y1"
1860^PRCT(446.5,6,3,2,0)="1,S PRCT=""6^2"" D XEC^PRCTLAB;Y1,S PRCT=""6^3"" D XEC^PRCTLAB;C1,S PRCT=""6^4"" D XEC^PRCTLAB;C1,S PRCT=""6^5"" D XEC^PRCTLAB;C1,S PRCT=""6^6"" D XEC^PRCTLAB;Y1,S PRCT=""6^7"" D XEC^PRCTLAB;Y1"
1861^PRCT(446.5,6,4,0)="^^7^7^2960627"
1862^PRCT(446.5,6,4,1,0)="S X="""" I '$D(PRCTSC) S PRCTSC=1 S PRCT=""5^1"" D SPC^PRCTLAB"
1863^PRCT(446.5,6,4,2,0)="S PRCT=""5^2"" D SPC^PRCTLAB"
1864^PRCT(446.5,6,4,3,0)="S X=$S($D(^PRCP(445,D0,1,D1,6)):$S($P(^(6),""^"")]"""":$P(^(6),""^""),1:""^""),1:""^"") S:X=""^"" X=$S($P(^PRC(441,D1,0),""^"",2)]"""":$P(^(0),""^"",2),1:""NO DESCRIPTION"") S X=$E(X,1,30)"
1865^PRCT(446.5,6,4,4,0)="S X="" """
1866^PRCT(446.5,6,4,5,0)="S X=""IE""_D0_"" ""_D1"
1867^PRCT(446.5,6,4,6,0)="S:'$D(PRCTCP) PRCTCP=PRCTCPY S PRCTCP=PRCTCP-1 S:PRCTCP D0=D0-.0001 K:PRCTCP=0 PRCTCP S X="""""
1868^PRCT(446.5,6,4,7,0)="S PRCT=""5^3"" D SPC^PRCTLAB"
1869^PRCT(446.5,8,0)="RUN IRL PROGRAM^^^^^5"
1870^PRCT(446.5,8,1,0)="^^3^3^2940913^^^^"
1871^PRCT(446.5,8,1,1,0)=" "
1872^PRCT(446.5,8,1,2,0)="RUN IRL PROGRAM"
1873^PRCT(446.5,8,1,3,0)="//"
1874^PRCT(446.5,8,2,0)="^446.52I^1^1"
1875^PRCT(446.5,8,2,1,0)="1^2^^^^^^^TEST"
1876^PRCT(446.5,8,2,1,1)="S X=X"
1877^PRCT(446.5,8,3,0)="^^7^7^2960627"
1878^PRCT(446.5,8,3,1,0)="S PRCT=""8^1"" D XEC^PRCTLAB;Y1"
1879^PRCT(446.5,8,3,2,0)="S PRCT=""8^2"" D XEC^PRCTLAB;Y1"
1880^PRCT(446.5,8,3,3,0)="S PRCT=""8^3"" D XEC^PRCTLAB;C1"
1881^PRCT(446.5,8,3,4,0)="S PRCT=""8^4"" D XEC^PRCTLAB;C1"
1882^PRCT(446.5,8,3,5,0)="S PRCT=""8^5"" D XEC^PRCTLAB;C1"
1883^PRCT(446.5,8,3,6,0)="S PRCT=""8^6"" D XEC^PRCTLAB;Y1"
1884^PRCT(446.5,8,3,7,0)="S PRCT=""8^7"" D XEC^PRCTLAB;Y1"
1885^PRCT(446.5,8,4,0)="^^7^7^2960627"
1886^PRCT(446.5,8,4,1,0)="S X="""" I '$D(PRCTSC) S PRCTSC=1 S PRCT=""5^1"" D SPC^PRCTLAB"
1887^PRCT(446.5,8,4,2,0)="S PRCT=""5^2"" D SPC^PRCTLAB"
1888^PRCT(446.5,8,4,3,0)="S X="" """
1889^PRCT(446.5,8,4,4,0)="S X=""RUN IRL PROGRAM"""
1890^PRCT(446.5,8,4,5,0)="S X=""//"""
1891^PRCT(446.5,8,4,6,0)="S:'$D(PRCTCP) PRCTCP=PRCTCPY S PRCTCP=PRCTCP-1 S:PRCTCP D0=D0-.0001 K:PRCTCP=0 PRCTCP S X="""""
1892^PRCT(446.5,8,4,7,0)="S PRCT=""5^3"" D SPC^PRCTLAB"
1893^PRCT(446.5,14,0)="PRE-ODI PRIM/SECONDARY LABEL^445^^^^5"
1894^PRCT(446.5,14,1,0)="3"
1895^PRCT(446.5,14,1,1,0)="|1||7|"
1896^PRCT(446.5,14,1,2,0)="L:|3| R:|4| U:|5| V:|2|"
1897^PRCT(446.5,14,1,3,0)="|6||8|"
1898^PRCT(446.5,14,2,0)="^446.52I^8^8"
1899^PRCT(446.5,14,2,1,0)="1^2^^^^^^^DESCRIPTION"
1900^PRCT(446.5,14,2,1,1)="S X=$E($$DESCR^PRCPUX1(D0,D1),1,33)"
1901^PRCT(446.5,14,2,2,0)="2^2^^1,.4^^^^^MANDATORY SOURCE"
1902^PRCT(446.5,14,2,2,1)="S X=$E($$VENDOR^PRCPUX1(D0,D1),1,5)"
1903^PRCT(446.5,14,2,3,0)="3^1^^1,9^^^^^LEVEL^^5"
1904^PRCT(446.5,14,2,4,0)="4^1^^1,10^^^^^REORDER POINT^^5"
1905^PRCT(446.5,14,2,5,0)="5^2^^^^^^^UNITS PER ISSUE"
1906^PRCT(446.5,14,2,5,1)="S X=$$UNIT^PRCPUX1(D0,D1,""/"")"
1907^PRCT(446.5,14,2,6,0)="6^2^^^^^^^ITEM NO."
1908^PRCT(446.5,14,2,6,1)="S X=""IE""_D0_"" ""_D1"
1909^PRCT(446.5,14,2,7,0)="7^1^^1,0^^^^^TEST"
1910^PRCT(446.5,14,2,8,0)="8^2^^^^^^^PAUSE"
1911^PRCT(446.5,14,2,8,1)="H 1"
1912^PRCT(446.5,14,3,0)="^^3^3^2960627"
1913^PRCT(446.5,14,3,1,0)="S PRCT=""14^1"" D XEC^PRCTLAB;Y1"
1914^PRCT(446.5,14,3,2,0)="1,S PRCT=""14^2"" D XEC^PRCTLAB;Y1,S PRCT=""14^3"" D XEC^PRCTLAB;C1,S PRCT=""14^4"" D XEC^PRCTLAB;C1,9;Y1;L5,S PRCT=""14^5"" D XEC^PRCTLAB;Y1,10;Y1;L5,S PRCT=""14^6"" D XEC^PRCTLAB;Y1,S PRCT=""14^7"" D XEC^PRCTLAB;Y1"
1915^PRCT(446.5,14,3,3,0)="1,S PRCT=""14^8"" D XEC^PRCTLAB;Y1,S PRCT=""14^9"" D XEC^PRCTLAB;Y1,S PRCT=""14^10"" D XEC^PRCTLAB;C1,S PRCT=""14^11"" D XEC^PRCTLAB;Y1,S PRCT=""14^12"" D XEC^PRCTLAB;Y1,S PRCT=""14^13"" D XEC^PRCTLAB;Y1"
1916^PRCT(446.5,14,4,0)="^^13^13^2960627"
1917^PRCT(446.5,14,4,1,0)="S X="""" I '$D(PRCTSC) S PRCTSC=1 S PRCT=""5^1"" D SPC^PRCTLAB"
1918^PRCT(446.5,14,4,2,0)="S PRCT=""5^2"" D SPC^PRCTLAB"
1919^PRCT(446.5,14,4,3,0)="S X=$E($$DESCR^PRCPUX1(D0,D1),1,33)"
1920^PRCT(446.5,14,4,4,0)="S X=""L:"""
1921^PRCT(446.5,14,4,5,0)="S X="" R:"""
1922^PRCT(446.5,14,4,6,0)="S X="" U:"""
1923^PRCT(446.5,14,4,7,0)="S X=$$UNIT^PRCPUX1(D0,D1,""/"")"
1924^PRCT(446.5,14,4,8,0)="S X="" V:"""
1925^PRCT(446.5,14,4,9,0)="S X=$E($$VENDOR^PRCPUX1(D0,D1),1,5)"
1926^PRCT(446.5,14,4,10,0)="S X=""IE""_D0_"" ""_D1"
1927^PRCT(446.5,14,4,11,0)="H 1"
1928^PRCT(446.5,14,4,12,0)="S:'$D(PRCTCP) PRCTCP=PRCTCPY S PRCTCP=PRCTCP-1 S:PRCTCP D0=D0-.0001 K:PRCTCP=0 PRCTCP S X="""""
1929^PRCT(446.5,14,4,13,0)="S PRCT=""5^3"" D SPC^PRCTLAB"
1930^PRCT(446.5,15,0)="WAREHOUSE LABEL^445^^^^5"
1931^PRCT(446.5,15,1,0)="3^^3^3^2941209^"
1932^PRCT(446.5,15,1,1,0)="|1| U/I:|2||3|"
1933^PRCT(446.5,15,1,2,0)="|4|"
1934^PRCT(446.5,15,1,3,0)="|5||6|"
1935^PRCT(446.5,15,2,0)="^446.52I^6^6"
1936^PRCT(446.5,15,2,1,0)="1^2^^^^^^^NSN"
1937^PRCT(446.5,15,2,1,1)="S X=$$NSN^PRCPUX1(D1)"
1938^PRCT(446.5,15,2,2,0)="2^2^^^^^^^UNITS PER ISSUE"
1939^PRCT(446.5,15,2,2,1)="S X=$$UNIT^PRCPUX1(D0,D1,""/"")"
1940^PRCT(446.5,15,2,3,0)="3^1^^1,0^^^^^ITEM MULTIPLE"
1941^PRCT(446.5,15,2,4,0)="4^2^^^^^^^DESCRIPTION"
1942^PRCT(446.5,15,2,4,1)="S X=$E($$DESCR^PRCPUX1(D0,D1),1,34)"
1943^PRCT(446.5,15,2,5,0)="5^2^^^^^^^BARCODE"
1944^PRCT(446.5,15,2,5,1)="S X=""IE""_D0_"" ""_D1"
1945^PRCT(446.5,15,2,6,0)="6^2^^^^^^^PAUSE"
1946^PRCT(446.5,15,2,6,1)="H 1"
1947^PRCT(446.5,15,3,0)="^^3^3^2960627"
1948^PRCT(446.5,15,3,1,0)="S PRCT=""15^1"" D XEC^PRCTLAB;Y1"
1949^PRCT(446.5,15,3,2,0)="1,S PRCT=""15^2"" D XEC^PRCTLAB;Y1,S PRCT=""15^3"" D XEC^PRCTLAB;C1,S PRCT=""15^4"" D XEC^PRCTLAB;Y1,S PRCT=""15^5"" D XEC^PRCTLAB;Y1,S PRCT=""15^6"" D XEC^PRCTLAB;C1,S PRCT=""15^7"" D XEC^PRCTLAB;C1,S PRCT=""15^8"" D XEC^PRCTLAB;Y1"
1950^PRCT(446.5,15,3,3,0)="1,S PRCT=""15^9"" D XEC^PRCTLAB;Y1,S PRCT=""15^10"" D XEC^PRCTLAB;Y1"
1951^PRCT(446.5,15,4,0)="^^10^10^2960627"
1952^PRCT(446.5,15,4,1,0)="S X="""" I '$D(PRCTSC) S PRCTSC=1 S PRCT=""5^1"" D SPC^PRCTLAB"
1953^PRCT(446.5,15,4,2,0)="S PRCT=""5^2"" D SPC^PRCTLAB"
1954^PRCT(446.5,15,4,3,0)="S X=$$NSN^PRCPUX1(D1)"
1955^PRCT(446.5,15,4,4,0)="S X="" U/I:"""
1956^PRCT(446.5,15,4,5,0)="S X=$$UNIT^PRCPUX1(D0,D1,""/"")"
1957^PRCT(446.5,15,4,6,0)="S X=$E($$DESCR^PRCPUX1(D0,D1),1,34)"
1958^PRCT(446.5,15,4,7,0)="S X=""IE""_D0_"" ""_D1"
1959^PRCT(446.5,15,4,8,0)="H 1"
1960^PRCT(446.5,15,4,9,0)="S:'$D(PRCTCP) PRCTCP=PRCTCPY S PRCTCP=PRCTCP-1 S:PRCTCP D0=D0-.0001 K:PRCTCP=0 PRCTCP S X="""""
1961^PRCT(446.5,15,4,10,0)="S PRCT=""5^3"" D SPC^PRCTLAB"
1962^PRCT(446.5,"B","EXPENDABLE INVENTORY",6)=""
1963^PRCT(446.5,"B","PRE-ODI PRIM/SECONDARY LABEL",14)=""
1964^PRCT(446.5,"B","PRIMARY/SECONDARY LABEL",1)=""
1965^PRCT(446.5,"B","RUN IRL PROGRAM",8)=""
1966^PRCT(446.5,"B","TEST/LABEL 3X1",5)=""
1967^PRCT(446.5,"B","WAREHOUSE LABEL",15)=""
1968^PRCT(446.6,0)="SPECIALTY COMMANDS^446.6^6^4"
1969^PRCT(446.6,3,0)="TRAKKER 9440"
1970^PRCT(446.6,3,2,0)="^^1^1^2920922^^^^"
1971^PRCT(446.6,3,2,1,0)="!,""/$"",!,"".$1"",!,""$$"",!,""I"",!"
1972^PRCT(446.6,3,3,0)="^^1^1^2920922^^^^"
1973^PRCT(446.6,3,3,1,0)="!,""ER"",!,""//"",!"
1974^PRCT(446.6,4,0)="INTERMEC TRAKKER 9440"
1975^PRCT(446.6,4,2,0)="^^1^1^2920922^^^^"
1976^PRCT(446.6,4,2,1,0)="!,""/$"",!,"".$1"",!,""$$"",!,""I"",!"
1977^PRCT(446.6,4,3,0)="^^1^1^2920922^^^^"
1978^PRCT(446.6,4,3,1,0)="!,""ER"",!,""//"",!"
1979^PRCT(446.6,5,0)="LABEL 3X1/INTERMEC 8646"
1980^PRCT(446.6,5,1,0)="^^7^7^2930315^^^^"
1981^PRCT(446.6,5,1,1,0)="*2,*27,""P"",*3"
1982^PRCT(446.6,5,1,2,0)="*2,""E3;F3;"""
1983^PRCT(446.6,5,1,3,0)="""H0;o75,20;f3;c1;d0,34;h1;w1;"""
1984^PRCT(446.6,5,1,4,0)="""H1;o60,20;f3;c1;d0,34;h1;w1;"""
1985^PRCT(446.6,5,1,5,0)="""B2;o45,20;f3;c0;d0,15;h30;w1;i1;"""
1986^PRCT(446.6,5,1,6,0)="*3"
1987^PRCT(446.6,5,1,7,0)="*2,""R"",*3"
1988^PRCT(446.6,5,2,0)="^^1^1^2930315^^^^"
1989^PRCT(446.6,5,2,1,0)="*2,*27,""E3"",!,*24"
1990^PRCT(446.6,5,3,0)="^^1^1^2930315^^^^"
1991^PRCT(446.6,5,3,1,0)="*23,*3"
1992^PRCT(446.6,6,0)="JANUS2020"
1993^PRCT(446.6,6,2,0)="^^1^1^2951019^"
1994^PRCT(446.6,6,2,1,0)="""/$"",!,"".$1"",!"
1995^PRCT(446.6,6,3,0)="^^1^1^2951019^"
1996^PRCT(446.6,6,3,1,0)="!,$C(15),""ER"",$C(18),!"
1997^PRCT(446.6,"B","INTERMEC TRAKKER 9440",4)=""
1998^PRCT(446.6,"B","JANUS2020",6)=""
1999^PRCT(446.6,"B","LABEL 3X1/INTERMEC 8646",5)=""
2000^PRCT(446.6,"B","TRAKKER 9440",3)=""
Note: See TracBrowser for help on using the repository browser.