2001 lines
135 KiB
Plaintext
2001 lines
135 KiB
Plaintext
Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
|
|
Cache 13-Sep-2008 18:35:03 ZWR
|
|
^PRCT(446.4,0)="BARCODE PROGRAM^446.4I^5^4"
|
|
^PRCT(446.4,1,0)="EXPENDABLE PHYSICAL COUNT^PRCPH^^PHYSICAL-PRCPBALM^^0^^2940415^6^^^1"
|
|
^PRCT(446.4,1,1,0)="307^^308^308^2940926^^^^"
|
|
^PRCT(446.4,1,1,1,0)=" ::RGY/WASHINGTON-ISC@ALTOONA,PA - Expendable Physical count IRL program"
|
|
^PRCT(446.4,1,1,2,0)=" ::Version 3.01, 5/30/90"
|
|
^PRCT(446.4,1,1,3,0)=" ::"
|
|
^PRCT(446.4,1,1,4,0)=" ::V(2) = Record"
|
|
^PRCT(446.4,1,1,5,0)=" ::V(4) = Quantity"
|
|
^PRCT(446.4,1,1,6,0)=" ::"
|
|
^PRCT(446.4,1,1,7,0)=" ::The barcode label (record) contains the inventory point with the "
|
|
^PRCT(446.4,1,1,8,0)=" ::expendable item number. For example: IE585883 38383. The user wands the"
|
|
^PRCT(446.4,1,1,9,0)=" ::label and then enters quantity. When the record is stored into the"
|
|
^PRCT(446.4,1,1,10,0)=" ::inventory file on barcode reader, the quantity is appended to the end"
|
|
^PRCT(446.4,1,1,11,0)=" ::of the record. For example: If 'IE58589 322 18' would be inventory"
|
|
^PRCT(446.4,1,1,12,0)=" ::point 58589, part number 322 with a physical count of 18."
|
|
^PRCT(446.4,1,1,13,0)=" ::"
|
|
^PRCT(446.4,1,1,14,0)="OI(1000,20) ::Initialize a inventory file"
|
|
^PRCT(446.4,1,1,15,0)="OV(5,20) ::Initialize a variable file"
|
|
^PRCT(446.4,1,1,16,0)=" ::"
|
|
^PRCT(446.4,1,1,17,0)=".BEG :: BEG"
|
|
^PRCT(446.4,1,1,18,0)="P""\e[2JCurrent Program"" ::Show user program name"
|
|
^PRCT(446.4,1,1,19,0)="P""is Expendable"" :: (cont)"
|
|
^PRCT(446.4,1,1,20,0)="P""Physical Count."" :: (cont)"
|
|
^PRCT(446.4,1,1,21,0)="P""Id: PRCPH"" ::Print program identifier"
|
|
^PRCT(446.4,1,1,22,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,1,1,23,0)="H#1=I ::Set reg 1 to current rec # in invent file"
|
|
^PRCT(446.4,1,1,24,0)="G#1>0.DAT ::If data alread exist in ivent. file warn user"
|
|
^PRCT(446.4,1,1,25,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,26,0)="P""Please enter ..."" ::Ask user for ID"
|
|
^PRCT(446.4,1,1,27,0)="P""file ID: "" :: (cont)"
|
|
^PRCT(446.4,1,1,28,0)="A ::User input of user ID"
|
|
^PRCT(446.4,1,1,29,0)="D$0=""ID""+$0 ::Set first record to be ID"
|
|
^PRCT(446.4,1,1,30,0)="RI ::Store first record into inven file"
|
|
^PRCT(446.4,1,1,31,0)=" ::"
|
|
^PRCT(446.4,1,1,32,0)=".START :: START"
|
|
^PRCT(446.4,1,1,33,0)="P""\e[2J1. Enter Inventory"" ::Clear screen and print menu"
|
|
^PRCT(446.4,1,1,34,0)="P""2. Transmit Data"" :: (cont)"
|
|
^PRCT(446.4,1,1,35,0)="P""3. Review/Delete"" :: (cont)"
|
|
^PRCT(446.4,1,1,36,0)="P""Enter (1-3): "" :: (cont)"
|
|
^PRCT(446.4,1,1,37,0)="D$0="""" ::Initialize input string"
|
|
^PRCT(446.4,1,1,38,0)="A ::User input of option"
|
|
^PRCT(446.4,1,1,39,0)="G$0=""1"".ENTER ::If Enter Inventory selected, goto entry of invent."
|
|
^PRCT(446.4,1,1,40,0)="G$0=""2"".XMIT ::If transmit option selected, goto transmit data"
|
|
^PRCT(446.4,1,1,41,0)="G$0=""3"".REVDEL ::If Review/Delete option selected, goto review and del record"
|
|
^PRCT(446.4,1,1,42,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,1,1,43,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,44,0)="P""*** Error, enter a"" ::Print message of invalid input"
|
|
^PRCT(446.4,1,1,45,0)="P""number from 1-3."" :: (cont)"
|
|
^PRCT(446.4,1,1,46,0)="W5 ::Wait 5 seconds to allow view of message"
|
|
^PRCT(446.4,1,1,47,0)="G.START ::Go back and display main menu"
|
|
^PRCT(446.4,1,1,48,0)=" ::"
|
|
^PRCT(446.4,1,1,49,0)=".ENTER :: ENTER"
|
|
^PRCT(446.4,1,1,50,0)="H#1=I ::Set regist 1 to Num. of rec. in inven file"
|
|
^PRCT(446.4,1,1,51,0)="G#1>995.STOP ::If invent. file full, do not allow anymore entries"
|
|
^PRCT(446.4,1,1,52,0)="S#1>985.WARN ::If invent. file almost full, warn user"
|
|
^PRCT(446.4,1,1,53,0)="D$0=""\e[2J IE: ""+V(2) ::Display current record"
|
|
^PRCT(446.4,1,1,54,0)="P$0 :: (cont)"
|
|
^PRCT(446.4,1,1,55,0)="D$0=""QTY: ""+V(4) ::Display Quantity"
|
|
^PRCT(446.4,1,1,56,0)="P$0 :: (cont)"
|
|
^PRCT(446.4,1,1,57,0)="P"" # "" ::Display input symbol for invent."
|
|
^PRCT(446.4,1,1,58,0)="D$0="""" ::Initialize input variable"
|
|
^PRCT(446.4,1,1,59,0)="A ::Allow user input of next invent. record"
|
|
^PRCT(446.4,1,1,60,0)="G$0=""F1"".DEL ::If input is the function key 1, delete record a start over"
|
|
^PRCT(446.4,1,1,61,0)="S$0=""."".STORE ::Store record"
|
|
^PRCT(446.4,1,1,62,0)="G$0=""."".START ::If input a ""."", goto back to main menu"
|
|
^PRCT(446.4,1,1,63,0)="D$1=$0M2,1 ::Get code type of entry"
|
|
^PRCT(446.4,1,1,64,0)="G$1=""IE"".RECORD ::If code is ""IE"", goto entry of new record"
|
|
^PRCT(446.4,1,1,65,0)="G$0="""".ENTER ::If return entered, don't accept input"
|
|
^PRCT(446.4,1,1,66,0)="GV(2)="""".NOREC ::If qty entered with no record, goto error message"
|
|
^PRCT(446.4,1,1,67,0)="D#1=0 ::Initialize character counter"
|
|
^PRCT(446.4,1,1,68,0)="D#3=0 ::Initialize second number of Qty string"
|
|
^PRCT(446.4,1,1,69,0)="D#4=0 ::Initialize first number of Qty string"
|
|
^PRCT(446.4,1,1,70,0)="D$1="""" ::Initialize current character (CC) of Qty string"
|
|
^PRCT(446.4,1,1,71,0)="D$2="""" ::Initialize current string of Qty string"
|
|
^PRCT(446.4,1,1,72,0)="D$3="""" ::Initialize operand of Qty string"
|
|
^PRCT(446.4,1,1,73,0)=".LP1 :: LP1"
|
|
^PRCT(446.4,1,1,74,0)="D#1=#1+1 ::Increment character counter by 1"
|
|
^PRCT(446.4,1,1,75,0)="D$1=$0M1,#1 ::Define CC of Qty string"
|
|
^PRCT(446.4,1,1,76,0)="G$1="""".LP1Q ::If CC of Qty string is null, then end of Qty string and Quit"
|
|
^PRCT(446.4,1,1,77,0)="C#5=$1 ::Evaluate if CC is a number"
|
|
^PRCT(446.4,1,1,78,0)="CV(0)=#5 :: (cont)"
|
|
^PRCT(446.4,1,1,79,0)="GV(0)=$1.NUM ::If CC a number, goto save number"
|
|
^PRCT(446.4,1,1,80,0)="G$1=""T"".OPR ::If CC a ""T"", goto save operand string"
|
|
^PRCT(446.4,1,1,81,0)="G$1=""U"".OPR ::If CC a ""U"", goto save operand string"
|
|
^PRCT(446.4,1,1,82,0)=".ERROR ::If CC not a number or operand, then display invalid input"
|
|
^PRCT(446.4,1,1,83,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,1,1,84,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,85,0)="P""*** Error, unkown"" ::Print error message"
|
|
^PRCT(446.4,1,1,86,0)="P""operation in entry."" :: (cont)"
|
|
^PRCT(446.4,1,1,87,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,1,1,88,0)="G.ENTER ::Goto entry of next Inventory record"
|
|
^PRCT(446.4,1,1,89,0)=".NUM :: NUM"
|
|
^PRCT(446.4,1,1,90,0)="D$2=$2+$1 ::Define current string of Qty string"
|
|
^PRCT(446.4,1,1,91,0)="C#3=$2 ::Define second number of Qty string"
|
|
^PRCT(446.4,1,1,92,0)="G.LP1 ::Go back and get next character of Qty string"
|
|
^PRCT(446.4,1,1,93,0)=".OPR :: OPR"
|
|
^PRCT(446.4,1,1,94,0)="G[$3]>0.ERROR ::If a operator alread exists, go to error message"
|
|
^PRCT(446.4,1,1,95,0)="D$3=$1 ::Define operator string"
|
|
^PRCT(446.4,1,1,96,0)="C#4=$2 ::Set first number of Qty string to current string"
|
|
^PRCT(446.4,1,1,97,0)="D$2="""" ::Initialize current string"
|
|
^PRCT(446.4,1,1,98,0)="G.LP1 ::Go back and get next character"
|
|
^PRCT(446.4,1,1,99,0)=" ::"
|
|
^PRCT(446.4,1,1,100,0)=".LP1Q :: LP1Q"
|
|
^PRCT(446.4,1,1,101,0)="C#2=V(4) ::Define current quatity of part"
|
|
^PRCT(446.4,1,1,102,0)="G$3=""T"".MUL ::If operator is ""T"", multiply numbers"
|
|
^PRCT(446.4,1,1,103,0)="G$3=""U"".MIN ::If operator is a ""U"", subtract numbers"
|
|
^PRCT(446.4,1,1,104,0)="G$3="""".PLUS ::If no operator exists, then goto add number"
|
|
^PRCT(446.4,1,1,105,0)=".SET :: SET"
|
|
^PRCT(446.4,1,1,106,0)="C$0=#2 ::Define current Qty"
|
|
^PRCT(446.4,1,1,107,0)="DV(4)=$0 ::Define current Qty into local variable file"
|
|
^PRCT(446.4,1,1,108,0)="G.ENTER ::Go back and get next inventory record"
|
|
^PRCT(446.4,1,1,109,0)=" ::"
|
|
^PRCT(446.4,1,1,110,0)=".MUL :: MUL"
|
|
^PRCT(446.4,1,1,111,0)="D#3=#3*#4 ::Multiply second number entered and first number entered"
|
|
^PRCT(446.4,1,1,112,0)="D#2=#2+#3 ::Add Muliplication to current Qty"
|
|
^PRCT(446.4,1,1,113,0)="G.SET ::Go and set new quantity"
|
|
^PRCT(446.4,1,1,114,0)=" ::"
|
|
^PRCT(446.4,1,1,115,0)=".MIN :: MIN"
|
|
^PRCT(446.4,1,1,116,0)="D#2=#2-#3 ::Subtract second number enter from current qty"
|
|
^PRCT(446.4,1,1,117,0)="D#2=#2+#4 ::Add first number enter to current qty"
|
|
^PRCT(446.4,1,1,118,0)="G.SET ::Go and set new quantity"
|
|
^PRCT(446.4,1,1,119,0)=" ::"
|
|
^PRCT(446.4,1,1,120,0)=".PLUS :: PLUS"
|
|
^PRCT(446.4,1,1,121,0)="D#2=#2+#3 ::Add second number entered to current qty"
|
|
^PRCT(446.4,1,1,122,0)="D#2=#2+#4 ::Add first number entered to current qty"
|
|
^PRCT(446.4,1,1,123,0)="G.SET ::Go and set new quantity"
|
|
^PRCT(446.4,1,1,124,0)=" ::"
|
|
^PRCT(446.4,1,1,125,0)=".STORE :: STORE"
|
|
^PRCT(446.4,1,1,126,0)="QV(2)="""" ::Quit provided no record"
|
|
^PRCT(446.4,1,1,127,0)="SV(4)="""".NOQTY ::If not quantity, warn user"
|
|
^PRCT(446.4,1,1,128,0)="D$1=$0 ::Store record into scratch variable"
|
|
^PRCT(446.4,1,1,129,0)="D$0=V(2)+"" "" ::Create record with quantity"
|
|
^PRCT(446.4,1,1,130,0)="D$0=$0+V(4) :: (cont)"
|
|
^PRCT(446.4,1,1,131,0)="RI ::Store quanatity into inventory file"
|
|
^PRCT(446.4,1,1,132,0)="D$0=$1 ::Restore record"
|
|
^PRCT(446.4,1,1,133,0)="DV(2)="""" ::Initialize record"
|
|
^PRCT(446.4,1,1,134,0)="DV(4)="""" ::Initialize quantity"
|
|
^PRCT(446.4,1,1,135,0)="Q ::Quit subroutine"
|
|
^PRCT(446.4,1,1,136,0)=" ::"
|
|
^PRCT(446.4,1,1,137,0)=".RECORD :: RECORD"
|
|
^PRCT(446.4,1,1,138,0)="S.STORE"
|
|
^PRCT(446.4,1,1,139,0)="DV(2)=$0 ::Store record into scratch variable"
|
|
^PRCT(446.4,1,1,140,0)="DV(4)="""" ::Reset QTY"
|
|
^PRCT(446.4,1,1,141,0)="G.ENTER ::Goto entry of next record"
|
|
^PRCT(446.4,1,1,142,0)=" ::"
|
|
^PRCT(446.4,1,1,143,0)=".REVDEL :: REVDEL"
|
|
^PRCT(446.4,1,1,144,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,145,0)="P""How far back do"" ::Ask user how many records to go back"
|
|
^PRCT(446.4,1,1,146,0)="P""you want to go"" :: (cont)"
|
|
^PRCT(446.4,1,1,147,0)="P""(0 to quit) ? "" :: (cont)"
|
|
^PRCT(446.4,1,1,148,0)="D$0="""" ::Initialize input string"
|
|
^PRCT(446.4,1,1,149,0)="N1,2 ::User input of 1 or 3 numerics"
|
|
^PRCT(446.4,1,1,150,0)="G$0=""0"".START ::If input is a 0, go back to main menu"
|
|
^PRCT(446.4,1,1,151,0)="C#2=$0 ::Put input into numeric variable"
|
|
^PRCT(446.4,1,1,152,0)="H#1=I ::Put number of records in inventory file into variable"
|
|
^PRCT(446.4,1,1,153,0)="D#2=#1-#2 ::Define the record to start display"
|
|
^PRCT(446.4,1,1,154,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,155,0)=".LP2 :: LP2"
|
|
^PRCT(446.4,1,1,156,0)="G#2=#1.EOTRAN ::If all records displayed, ask which record to delete"
|
|
^PRCT(446.4,1,1,157,0)="C$2=#2 ::Setup display of record"
|
|
^PRCT(446.4,1,1,158,0)="D$0=$2+"") "" :: (cont)"
|
|
^PRCT(446.4,1,1,159,0)="D$0=$0+I(#2) :: (cont)"
|
|
^PRCT(446.4,1,1,160,0)="P$0 ::Show record to user"
|
|
^PRCT(446.4,1,1,161,0)="W3 ::Wait three seconds to allow viewing of record"
|
|
^PRCT(446.4,1,1,162,0)="D#2=#2+1 ::Increment record counter"
|
|
^PRCT(446.4,1,1,163,0)="G.LP2 ::Goo get next record"
|
|
^PRCT(446.4,1,1,164,0)=".EOTRAN :: EOTRAN"
|
|
^PRCT(446.4,1,1,165,0)="P""*** END ***"" ::Display to user End of Records"
|
|
^PRCT(446.4,1,1,166,0)="W5 ::Wait five seconds for user review of display"
|
|
^PRCT(446.4,1,1,167,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,168,0)="P""Which record do you"" ::Asj user shich record to delete"
|
|
^PRCT(446.4,1,1,169,0)="P""want to delete"" :: (cont)"
|
|
^PRCT(446.4,1,1,170,0)="P""(0 to quit) ? "" :: (cont)"
|
|
^PRCT(446.4,1,1,171,0)="D$0="""" ::Initialize input string"
|
|
^PRCT(446.4,1,1,172,0)="N1,2,3 ::Allow user input of 1,2 or 3 numberics"
|
|
^PRCT(446.4,1,1,173,0)="G$0=""0"".START ::If user enters a 0, go back to main menu"
|
|
^PRCT(446.4,1,1,174,0)="C#1=$0 ::Define input as a number"
|
|
^PRCT(446.4,1,1,175,0)=".ASK1 :: ASK1"
|
|
^PRCT(446.4,1,1,176,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,177,0)="C$0=#1 ::Setup display of record before deletion"
|
|
^PRCT(446.4,1,1,178,0)="D$0=""*** Record ""+$0 :: (cont)"
|
|
^PRCT(446.4,1,1,179,0)="D$0=$0+"" ***"" :: (cont)"
|
|
^PRCT(446.4,1,1,180,0)="P$0 ::Print display of record"
|
|
^PRCT(446.4,1,1,181,0)="PI(#1) :: (cont)"
|
|
^PRCT(446.4,1,1,182,0)="P""Are you ..."" ::Ask user for verification before deletion"
|
|
^PRCT(446.4,1,1,183,0)="P""... sure (Y/N) ?"" :: (cont)"
|
|
^PRCT(446.4,1,1,184,0)="D$0="""" ::Initialize input string"
|
|
^PRCT(446.4,1,1,185,0)="A1 ::Allow user input of one character only"
|
|
^PRCT(446.4,1,1,186,0)="G$0=""."".START ::If input a period, go back to main menu"
|
|
^PRCT(446.4,1,1,187,0)="G$0=""N"".REVDEL ::If input a ""N"", then ask which record again"
|
|
^PRCT(446.4,1,1,188,0)="G$0=""Y"".DELREC ::If input a ""Y"", go delete record"
|
|
^PRCT(446.4,1,1,189,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,1,1,190,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,191,0)="P""*** Error, enter"" ::Tell user a Y or N must be entered"
|
|
^PRCT(446.4,1,1,192,0)="P""a Y or N."" :: (cont)"
|
|
^PRCT(446.4,1,1,193,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,1,1,194,0)="G.ASK1 ::Go back and ask ""ok to delete"" question"
|
|
^PRCT(446.4,1,1,195,0)=" ::"
|
|
^PRCT(446.4,1,1,196,0)=".DELREC :: DELREC"
|
|
^PRCT(446.4,1,1,197,0)="DI(#1)=""*Deleted*"" ::Set record in inventory file to null to show deletion"
|
|
^PRCT(446.4,1,1,198,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,199,0)="P"" "" ::Tell user the record has been deleted"
|
|
^PRCT(446.4,1,1,200,0)="P""* Record Deleted *"" :: (cont)"
|
|
^PRCT(446.4,1,1,201,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,1,1,202,0)="G.REVDEL ::Go back and ask what records to view for deletion"
|
|
^PRCT(446.4,1,1,203,0)=" ::"
|
|
^PRCT(446.4,1,1,204,0)=".XMIT :: XMIT"
|
|
^PRCT(446.4,1,1,205,0)="D$0=""PRCPH"" ::Define data identifier"
|
|
^PRCT(446.4,1,1,206,0)="XMP,$0 ::Send data idnetifier to host system"
|
|
^PRCT(446.4,1,1,207,0)="XMP,I ::Transmit the inventory file to external device"
|
|
^PRCT(446.4,1,1,208,0)="H#1=I ::Find how many records exist in inventory file"
|
|
^PRCT(446.4,1,1,209,0)="C$0=#1 ::Set string variable to number of records"
|
|
^PRCT(446.4,1,1,210,0)="D$0=""***END***^""+$0 ::Setup End of file message"
|
|
^PRCT(446.4,1,1,211,0)="XMP,$0 ::Send end of file message to external device"
|
|
^PRCT(446.4,1,1,212,0)=" ::"
|
|
^PRCT(446.4,1,1,213,0)=".ASK :: ASK"
|
|
^PRCT(446.4,1,1,214,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,215,0)="P""Data xmitted, do"" ::Display confirmation of transmission message"
|
|
^PRCT(446.4,1,1,216,0)="P""you want to purge"" :: (cont)"
|
|
^PRCT(446.4,1,1,217,0)="P""the file (Y/N) ? "" :: (cont)"
|
|
^PRCT(446.4,1,1,218,0)="D$0="""" ::Initialize input variable"
|
|
^PRCT(446.4,1,1,219,0)="A ::Allow user input"
|
|
^PRCT(446.4,1,1,220,0)="G$0=""Y"".PUR ::If user input is a ""Y"", go and purge inventory file"
|
|
^PRCT(446.4,1,1,221,0)="G$0=""N"".START ::If user input is a ""N"", go back to main menu"
|
|
^PRCT(446.4,1,1,222,0)="G$0=""."".START ::If user input is a ""."", go back to main menu"
|
|
^PRCT(446.4,1,1,223,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,1,1,224,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,225,0)="P""Please enter a "" ::Display error message"
|
|
^PRCT(446.4,1,1,226,0)="P""Y or N."" :: (cont)"
|
|
^PRCT(446.4,1,1,227,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,1,1,228,0)="G.ASK ::Go back and ask purge question"
|
|
^PRCT(446.4,1,1,229,0)=".PUR :: PUR"
|
|
^PRCT(446.4,1,1,230,0)="HI=0 ::Purge of inventory file"
|
|
^PRCT(446.4,1,1,231,0)="HV=0 ::Purge of local variable file"
|
|
^PRCT(446.4,1,1,232,0)="B0 ::Sound beep one time"
|
|
^PRCT(446.4,1,1,233,0)="P""** File Purged **"" ::Inform user of purged file"
|
|
^PRCT(446.4,1,1,234,0)="W3 ::Wait three seconds to allow view of message"
|
|
^PRCT(446.4,1,1,235,0)="G.BEG ::Go back to begining of program"
|
|
^PRCT(446.4,1,1,236,0)=" ::"
|
|
^PRCT(446.4,1,1,237,0)=".DEL :: DEL"
|
|
^PRCT(446.4,1,1,238,0)="DV(4)="""" ::Initialize Qty"
|
|
^PRCT(446.4,1,1,239,0)="G.ENTER ::Go back to enter inventory record"
|
|
^PRCT(446.4,1,1,240,0)=" ::"
|
|
^PRCT(446.4,1,1,241,0)=".CLR :: CLR"
|
|
^PRCT(446.4,1,1,242,0)="P""\e[2J"" ::Clear screen escape sequence"
|
|
^PRCT(446.4,1,1,243,0)="Q ::Quit subroutine"
|
|
^PRCT(446.4,1,1,244,0)=" ::"
|
|
^PRCT(446.4,1,1,245,0)=".NOREC :: NOREC"
|
|
^PRCT(446.4,1,1,246,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,1,1,247,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,248,0)="P""*** Error, enter a"" ::Print error message"
|
|
^PRCT(446.4,1,1,249,0)="P""part number first."" :: (cont)"
|
|
^PRCT(446.4,1,1,250,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,1,1,251,0)="G.ENTER ::Go back to enter inventory record"
|
|
^PRCT(446.4,1,1,252,0)=" ::"
|
|
^PRCT(446.4,1,1,253,0)=".WARN :: WARN"
|
|
^PRCT(446.4,1,1,254,0)="B0 ::Sound beep"
|
|
^PRCT(446.4,1,1,255,0)="P""\e[2J**** WARNING ****"" ::Clear screen andprint warning message"
|
|
^PRCT(446.4,1,1,256,0)="P""Data file is almost"" :: (cont)"
|
|
^PRCT(446.4,1,1,257,0)="P""full. Please XMIT"" :: (cont)"
|
|
^PRCT(446.4,1,1,258,0)="P""data and purge file."" :: (cont)"
|
|
^PRCT(446.4,1,1,259,0)="W3 ::Wait three seconds to allow view of message"
|
|
^PRCT(446.4,1,1,260,0)="Q ::Quit subroutine"
|
|
^PRCT(446.4,1,1,261,0)=" ::"
|
|
^PRCT(446.4,1,1,262,0)=".NOQTY :: NOQTY"
|
|
^PRCT(446.4,1,1,263,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,1,1,264,0)="P""\e[2JWARNING: No qty"" ::Print warning message"
|
|
^PRCT(446.4,1,1,265,0)="P""was entered for"" :: (cont)"
|
|
^PRCT(446.4,1,1,266,0)="P""part #:"" :: (cont)"
|
|
^PRCT(446.4,1,1,267,0)="PV(2) ::Print part #"
|
|
^PRCT(446.4,1,1,268,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,1,1,269,0)="Q ::Quit subroutine"
|
|
^PRCT(446.4,1,1,270,0)=" ::"
|
|
^PRCT(446.4,1,1,271,0)=".STOP :: STOP"
|
|
^PRCT(446.4,1,1,272,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,1,1,273,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,274,0)="P""Sorry, data file is"" ::Print error message"
|
|
^PRCT(446.4,1,1,275,0)="P""FULL, you must XMIT"" :: (cont)"
|
|
^PRCT(446.4,1,1,276,0)="P""and purge file."" :: (cont)"
|
|
^PRCT(446.4,1,1,277,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,1,1,278,0)="G.START ::Go back to main menu"
|
|
^PRCT(446.4,1,1,279,0)=" ::"
|
|
^PRCT(446.4,1,1,280,0)=".DAT :: DAT"
|
|
^PRCT(446.4,1,1,281,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,282,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,1,1,283,0)="P""*** WARNING ***"" ::Print warning message of existing data"
|
|
^PRCT(446.4,1,1,284,0)="P""Data exists on"" :: (cont)"
|
|
^PRCT(446.4,1,1,285,0)="P""this barcode reader."" :: (cont)"
|
|
^PRCT(446.4,1,1,286,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,1,1,287,0)="P""The first record in"" ::Display first record to user"
|
|
^PRCT(446.4,1,1,288,0)="P""this file"" :: (cont)"
|
|
^PRCT(446.4,1,1,289,0)="D$0=""is: ""+I(0) ::Setup display of first record"
|
|
^PRCT(446.4,1,1,290,0)="P$0 ::Print first record"
|
|
^PRCT(446.4,1,1,291,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,1,1,292,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,293,0)="P""Do you want to"" ::Query user to purge existing file"
|
|
^PRCT(446.4,1,1,294,0)="P""purge this file ..."" :: (cont)"
|
|
^PRCT(446.4,1,1,295,0)="P""... (Y/N) ? "" :: (cont)"
|
|
^PRCT(446.4,1,1,296,0)="D$0="""" ::Initialize input variable"
|
|
^PRCT(446.4,1,1,297,0)="A ::User input"
|
|
^PRCT(446.4,1,1,298,0)="G$0=""Y"".PUR ::If user input is a ""Y"", go and purge files"
|
|
^PRCT(446.4,1,1,299,0)="G$0=""N"".START ::If user input a ""N"", go to main menu"
|
|
^PRCT(446.4,1,1,300,0)="G$0=""."".START ::If user input is a ""."", go to main menu"
|
|
^PRCT(446.4,1,1,301,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,1,1,302,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,1,1,303,0)="P""Please enter a "" ::Display error message"
|
|
^PRCT(446.4,1,1,304,0)="P""Y or N."" :: (cont)"
|
|
^PRCT(446.4,1,1,305,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,1,1,306,0)="G.DAT ::Go back to existing data question"
|
|
^PRCT(446.4,1,1,307,0)=" ::"
|
|
^PRCT(446.4,1,1,308,0)="E ::End of program"
|
|
^PRCT(446.4,1,2,0)="^446.42DI^2^2"
|
|
^PRCT(446.4,1,2,1,0)="2940831.1004^65^RTN IS M"
|
|
^PRCT(446.4,1,2,1,1,0)="^^10^10^2941206^"
|
|
^PRCT(446.4,1,2,1,1,1,0)="34"
|
|
^PRCT(446.4,1,2,1,1,2,0)="1234"
|
|
^PRCT(446.4,1,2,1,1,3,0)="123"
|
|
^PRCT(446.4,1,2,1,1,4,0)="412351246w13413"
|
|
^PRCT(446.4,1,2,1,1,5,0)="4f134"
|
|
^PRCT(446.4,1,2,1,1,6,0)="134f13e"
|
|
^PRCT(446.4,1,2,1,1,7,0)="t"
|
|
^PRCT(446.4,1,2,1,1,8,0)="134"
|
|
^PRCT(446.4,1,2,1,1,9,0)="t"
|
|
^PRCT(446.4,1,2,1,1,10,0)="4f134t^^"
|
|
^PRCT(446.4,1,2,2,0)="2941206.153"
|
|
^PRCT(446.4,1,2,"B",2940831.1004,1)=""
|
|
^PRCT(446.4,1,2,"B",2941206.153,2)=""
|
|
^PRCT(446.4,2,0)="EXPENDABLE USAGE^PRCUS^^USAGE-PRCPBALM^^1^^2940414^6^^^1"
|
|
^PRCT(446.4,2,1,0)="307^^308^308^2921207^^^^"
|
|
^PRCT(446.4,2,1,1,0)="::RGY/WASHINGTON-ISC@ALTOONA,PA - Expendable Usuage IRL program"
|
|
^PRCT(446.4,2,1,2,0)="::Version 3.01, 5/30/90"
|
|
^PRCT(446.4,2,1,3,0)="::"
|
|
^PRCT(446.4,2,1,4,0)="::V(2) = Record"
|
|
^PRCT(446.4,2,1,5,0)="::V(4) = Quantity"
|
|
^PRCT(446.4,2,1,6,0)="::"
|
|
^PRCT(446.4,2,1,7,0)="::The barcode label (record) contains the inventory point with the "
|
|
^PRCT(446.4,2,1,8,0)="::expendable item number. For example: IE585883 38383. The user wands the"
|
|
^PRCT(446.4,2,1,9,0)="::label and then enters quantity. When the record is stored into the"
|
|
^PRCT(446.4,2,1,10,0)="::inventory file on barcode reader, the quantity is appended to the end"
|
|
^PRCT(446.4,2,1,11,0)="::of the record. For example: If 'IE58589 322 18' would be inventory"
|
|
^PRCT(446.4,2,1,12,0)="::point 58589, part number 322 with a usuage of 18."
|
|
^PRCT(446.4,2,1,13,0)="::"
|
|
^PRCT(446.4,2,1,14,0)="OI(1000,20) ::Initialize a inventory file"
|
|
^PRCT(446.4,2,1,15,0)="OV(5,20) ::Initialize a variable file"
|
|
^PRCT(446.4,2,1,16,0)=" ::"
|
|
^PRCT(446.4,2,1,17,0)=".BEG :: BEG"
|
|
^PRCT(446.4,2,1,18,0)="P""\e[2JCurrent Program"" ::Show user program name"
|
|
^PRCT(446.4,2,1,19,0)="P""is Expendable Usage"" :: (cont)"
|
|
^PRCT(446.4,2,1,20,0)=" ::Blank line"
|
|
^PRCT(446.4,2,1,21,0)="P""Id: PRCUS"" ::Print program identifier"
|
|
^PRCT(446.4,2,1,22,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,2,1,23,0)="H#1=I ::Set reg 1 to current rec # in invent file"
|
|
^PRCT(446.4,2,1,24,0)="G#1>0.DAT ::If data alread exist in ivent. file warn user"
|
|
^PRCT(446.4,2,1,25,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,26,0)="P""Please enter ..."" ::Ask user for ID"
|
|
^PRCT(446.4,2,1,27,0)="P""file ID: "" :: (cont)"
|
|
^PRCT(446.4,2,1,28,0)="A ::User input of user ID"
|
|
^PRCT(446.4,2,1,29,0)="D$0=""ID""+$0 ::Set first record to be ID"
|
|
^PRCT(446.4,2,1,30,0)="RI ::Store first record into inven file"
|
|
^PRCT(446.4,2,1,31,0)=" ::"
|
|
^PRCT(446.4,2,1,32,0)=".START :: START"
|
|
^PRCT(446.4,2,1,33,0)="P""\e[2J1. Enter Inventory"" ::Clear screen and print menu"
|
|
^PRCT(446.4,2,1,34,0)="P""2. Transmit Data"" :: (cont)"
|
|
^PRCT(446.4,2,1,35,0)="P""3. Review/Delete"" :: (cont)"
|
|
^PRCT(446.4,2,1,36,0)="P""Enter (1-3): "" :: (cont)"
|
|
^PRCT(446.4,2,1,37,0)="D$0="""" ::Initialize input string"
|
|
^PRCT(446.4,2,1,38,0)="A ::User input of option"
|
|
^PRCT(446.4,2,1,39,0)="G$0=""1"".ENTER ::If Enter Inventory selected, goto entry of invent."
|
|
^PRCT(446.4,2,1,40,0)="G$0=""2"".XMIT ::If transmit option selected, goto transmit data"
|
|
^PRCT(446.4,2,1,41,0)="G$0=""3"".REVDEL ::If Review/Delete option selected, goto review and del record"
|
|
^PRCT(446.4,2,1,42,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,2,1,43,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,44,0)="P""*** Error, enter a"" ::Print message of invalid input"
|
|
^PRCT(446.4,2,1,45,0)="P""number from 1-3."" :: (cont)"
|
|
^PRCT(446.4,2,1,46,0)="W5 ::Wait 5 seconds to allow view of message"
|
|
^PRCT(446.4,2,1,47,0)="G.START ::Go back and display main menu"
|
|
^PRCT(446.4,2,1,48,0)=" ::"
|
|
^PRCT(446.4,2,1,49,0)=".ENTER :: ENTER"
|
|
^PRCT(446.4,2,1,50,0)="H#1=I ::Set regist 1 to Num. of rec. in inven file"
|
|
^PRCT(446.4,2,1,51,0)="G#1>995.STOP ::If invent. file full, do not allow anymore entries"
|
|
^PRCT(446.4,2,1,52,0)="S#1>985.WARN ::If invent. file almost full, warn user"
|
|
^PRCT(446.4,2,1,53,0)="D$0=""\e[2J IE: ""+V(2) ::Display current record"
|
|
^PRCT(446.4,2,1,54,0)="P$0 :: (cont)"
|
|
^PRCT(446.4,2,1,55,0)="D$0=""QTY: ""+V(4) ::Display Quantity"
|
|
^PRCT(446.4,2,1,56,0)="P$0 :: (cont)"
|
|
^PRCT(446.4,2,1,57,0)="P"" # "" ::Display input symbol for invent."
|
|
^PRCT(446.4,2,1,58,0)="D$0="""" ::Initialize input variable"
|
|
^PRCT(446.4,2,1,59,0)="A ::Allow user input of next invent. record"
|
|
^PRCT(446.4,2,1,60,0)="G$0=""F1"".DEL ::If input is the function key 1, delete record a start over"
|
|
^PRCT(446.4,2,1,61,0)="S$0=""."".STORE ::Store record"
|
|
^PRCT(446.4,2,1,62,0)="G$0=""."".START ::If input a ""."", goto back to main menu"
|
|
^PRCT(446.4,2,1,63,0)="D$1=$0M2,1 ::Get code type of entry"
|
|
^PRCT(446.4,2,1,64,0)="G$1=""IE"".RECORD ::If code is ""IE"", goto entry of new record"
|
|
^PRCT(446.4,2,1,65,0)="G$0="""".ENTER ::If return entered, don't accept input"
|
|
^PRCT(446.4,2,1,66,0)="GV(2)="""".NOREC ::If qty entered with no record, goto error message"
|
|
^PRCT(446.4,2,1,67,0)="D#1=0 ::Initialize character counter"
|
|
^PRCT(446.4,2,1,68,0)="D#3=0 ::Initialize second number of Qty string"
|
|
^PRCT(446.4,2,1,69,0)="D#4=0 ::Initialize first number of Qty string"
|
|
^PRCT(446.4,2,1,70,0)="D$1="""" ::Initialize current character (CC) of Qty string"
|
|
^PRCT(446.4,2,1,71,0)="D$2="""" ::Initialize current string of Qty string"
|
|
^PRCT(446.4,2,1,72,0)="D$3="""" ::Initialize operand of Qty string"
|
|
^PRCT(446.4,2,1,73,0)=".LP1 :: LP1"
|
|
^PRCT(446.4,2,1,74,0)="D#1=#1+1 ::Increment character counter by 1"
|
|
^PRCT(446.4,2,1,75,0)="D$1=$0M1,#1 ::Define CC of Qty string"
|
|
^PRCT(446.4,2,1,76,0)="G$1="""".LP1Q ::If CC of Qty string is null, then end of Qty string and Quit"
|
|
^PRCT(446.4,2,1,77,0)="C#5=$1 ::Evaluate if CC is a number"
|
|
^PRCT(446.4,2,1,78,0)="CV(0)=#5 :: (cont)"
|
|
^PRCT(446.4,2,1,79,0)="GV(0)=$1.NUM ::If CC a number, goto save number"
|
|
^PRCT(446.4,2,1,80,0)="G$1=""T"".OPR ::If CC a ""T"", goto save operand string"
|
|
^PRCT(446.4,2,1,81,0)="G$1=""U"".OPR ::If CC a ""U"", goto save operand string"
|
|
^PRCT(446.4,2,1,82,0)=".ERROR ::If CC not a number or operand, then display invalid input"
|
|
^PRCT(446.4,2,1,83,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,2,1,84,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,85,0)="P""*** Error, unkown"" ::Print error message"
|
|
^PRCT(446.4,2,1,86,0)="P""operation in entry."" :: (cont)"
|
|
^PRCT(446.4,2,1,87,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,2,1,88,0)="G.ENTER ::Goto entry of next Inventory record"
|
|
^PRCT(446.4,2,1,89,0)=".NUM :: NUM"
|
|
^PRCT(446.4,2,1,90,0)="D$2=$2+$1 ::Define current string of Qty string"
|
|
^PRCT(446.4,2,1,91,0)="C#3=$2 ::Define second number of Qty string"
|
|
^PRCT(446.4,2,1,92,0)="G.LP1 ::Go back and get next character of Qty string"
|
|
^PRCT(446.4,2,1,93,0)=".OPR :: OPR"
|
|
^PRCT(446.4,2,1,94,0)="G[$3]>0.ERROR ::If a operator alread exists, go to error message"
|
|
^PRCT(446.4,2,1,95,0)="D$3=$1 ::Define operator string"
|
|
^PRCT(446.4,2,1,96,0)="C#4=$2 ::Set first number of Qty string to current string"
|
|
^PRCT(446.4,2,1,97,0)="D$2="""" ::Initialize current string"
|
|
^PRCT(446.4,2,1,98,0)="G.LP1 ::Go back and get next character"
|
|
^PRCT(446.4,2,1,99,0)=" ::"
|
|
^PRCT(446.4,2,1,100,0)=".LP1Q :: LP1Q"
|
|
^PRCT(446.4,2,1,101,0)="C#2=V(4) ::Define current quatity of part"
|
|
^PRCT(446.4,2,1,102,0)="G$3=""T"".MUL ::If operator is ""T"", multiply numbers"
|
|
^PRCT(446.4,2,1,103,0)="G$3=""U"".MIN ::If operator is a ""U"", subtract numbers"
|
|
^PRCT(446.4,2,1,104,0)="G$3="""".PLUS ::If no operator exists, then goto add number"
|
|
^PRCT(446.4,2,1,105,0)=".SET :: SET"
|
|
^PRCT(446.4,2,1,106,0)="C$0=#2 ::Define current Qty"
|
|
^PRCT(446.4,2,1,107,0)="DV(4)=$0 ::Define current Qty into local variable file"
|
|
^PRCT(446.4,2,1,108,0)="G.ENTER ::Go back and get next inventory record"
|
|
^PRCT(446.4,2,1,109,0)=" ::"
|
|
^PRCT(446.4,2,1,110,0)=".MUL :: MUL"
|
|
^PRCT(446.4,2,1,111,0)="D#3=#3*#4 ::Multiply second number entered and first number entered"
|
|
^PRCT(446.4,2,1,112,0)="D#2=#2+#3 ::Add Muliplication to current Qty"
|
|
^PRCT(446.4,2,1,113,0)="G.SET ::Go and set new quantity"
|
|
^PRCT(446.4,2,1,114,0)=" ::"
|
|
^PRCT(446.4,2,1,115,0)=".MIN :: MIN"
|
|
^PRCT(446.4,2,1,116,0)="D#2=#2-#3 ::Subtract second number enter from current qty"
|
|
^PRCT(446.4,2,1,117,0)="D#2=#2+#4 ::Add first number enter to current qty"
|
|
^PRCT(446.4,2,1,118,0)="G.SET ::Go and set new quantity"
|
|
^PRCT(446.4,2,1,119,0)=" ::"
|
|
^PRCT(446.4,2,1,120,0)=".PLUS :: PLUS"
|
|
^PRCT(446.4,2,1,121,0)="D#2=#2+#3 ::Add second number entered to current qty"
|
|
^PRCT(446.4,2,1,122,0)="D#2=#2+#4 ::Add first number entered to current qty"
|
|
^PRCT(446.4,2,1,123,0)="G.SET ::Go and set new quantity"
|
|
^PRCT(446.4,2,1,124,0)=" ::"
|
|
^PRCT(446.4,2,1,125,0)=".STORE :: STORE"
|
|
^PRCT(446.4,2,1,126,0)="QV(2)="""" ::Quit provided no record"
|
|
^PRCT(446.4,2,1,127,0)="SV(4)="""".NOQTY ::If not quantity, warn user"
|
|
^PRCT(446.4,2,1,128,0)="D$1=$0 ::Store record into scratch variable"
|
|
^PRCT(446.4,2,1,129,0)="D$0=V(2)+"" "" ::Create record with quantity"
|
|
^PRCT(446.4,2,1,130,0)="D$0=$0+V(4) :: (cont)"
|
|
^PRCT(446.4,2,1,131,0)="RI ::Store quanatity into inventory file"
|
|
^PRCT(446.4,2,1,132,0)="D$0=$1 ::Restore record"
|
|
^PRCT(446.4,2,1,133,0)="DV(2)="""" ::Initialize record"
|
|
^PRCT(446.4,2,1,134,0)="DV(4)="""" ::Initialize quantity"
|
|
^PRCT(446.4,2,1,135,0)="Q ::Quit subroutine"
|
|
^PRCT(446.4,2,1,136,0)=" ::"
|
|
^PRCT(446.4,2,1,137,0)=".RECORD :: RECORD"
|
|
^PRCT(446.4,2,1,138,0)="S.STORE"
|
|
^PRCT(446.4,2,1,139,0)="DV(2)=$0 ::Store record into scratch variable"
|
|
^PRCT(446.4,2,1,140,0)="DV(4)="""" ::Reset QTY"
|
|
^PRCT(446.4,2,1,141,0)="G.ENTER ::Goto entry of next record"
|
|
^PRCT(446.4,2,1,142,0)=" ::"
|
|
^PRCT(446.4,2,1,143,0)=".REVDEL :: REVDEL"
|
|
^PRCT(446.4,2,1,144,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,145,0)="P""How far back do"" ::Ask user how many records to go back"
|
|
^PRCT(446.4,2,1,146,0)="P""you want to go"" :: (cont)"
|
|
^PRCT(446.4,2,1,147,0)="P""(0 to quit) ? "" :: (cont)"
|
|
^PRCT(446.4,2,1,148,0)="D$0="""" ::Initialize input string"
|
|
^PRCT(446.4,2,1,149,0)="N1,2 ::User input of 1 or 3 numerics"
|
|
^PRCT(446.4,2,1,150,0)="G$0=""0"".START ::If input is a 0, go back to main menu"
|
|
^PRCT(446.4,2,1,151,0)="C#2=$0 ::Put input into numeric variable"
|
|
^PRCT(446.4,2,1,152,0)="H#1=I ::Put number of records in inventory file into variable"
|
|
^PRCT(446.4,2,1,153,0)="D#2=#1-#2 ::Define the record to start display"
|
|
^PRCT(446.4,2,1,154,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,155,0)=".LP2 :: LP2"
|
|
^PRCT(446.4,2,1,156,0)="G#2=#1.EOTRAN ::If all records displayed, ask which record to delete"
|
|
^PRCT(446.4,2,1,157,0)="C$2=#2 ::Setup display of record"
|
|
^PRCT(446.4,2,1,158,0)="D$0=$2+"") "" :: (cont)"
|
|
^PRCT(446.4,2,1,159,0)="D$0=$0+I(#2) :: (cont)"
|
|
^PRCT(446.4,2,1,160,0)="P$0 ::Show record to user"
|
|
^PRCT(446.4,2,1,161,0)="W3 ::Wait three seconds to allow viewing of record"
|
|
^PRCT(446.4,2,1,162,0)="D#2=#2+1 ::Increment record counter"
|
|
^PRCT(446.4,2,1,163,0)="G.LP2 ::Goo get next record"
|
|
^PRCT(446.4,2,1,164,0)=".EOTRAN :: EOTRAN"
|
|
^PRCT(446.4,2,1,165,0)="P""*** END ***"" ::Display to user End of Records"
|
|
^PRCT(446.4,2,1,166,0)="W5 ::Wait five seconds for user review of display"
|
|
^PRCT(446.4,2,1,167,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,168,0)="P""Which record do you"" ::Asj user shich record to delete"
|
|
^PRCT(446.4,2,1,169,0)="P""want to delete"" :: (cont)"
|
|
^PRCT(446.4,2,1,170,0)="P""(0 to quit) ? "" :: (cont)"
|
|
^PRCT(446.4,2,1,171,0)="D$0="""" ::Initialize input string"
|
|
^PRCT(446.4,2,1,172,0)="N1,2,3 ::Allow user input of 1,2 or 3 numberics"
|
|
^PRCT(446.4,2,1,173,0)="G$0=""0"".START ::If user enters a 0, go back to main menu"
|
|
^PRCT(446.4,2,1,174,0)="C#1=$0 ::Define input as a number"
|
|
^PRCT(446.4,2,1,175,0)=".ASK1 :: ASK1"
|
|
^PRCT(446.4,2,1,176,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,177,0)="C$0=#1 ::Setup display of record before deletion"
|
|
^PRCT(446.4,2,1,178,0)="D$0=""*** Record ""+$0 :: (cont)"
|
|
^PRCT(446.4,2,1,179,0)="D$0=$0+"" ***"" :: (cont)"
|
|
^PRCT(446.4,2,1,180,0)="P$0 ::Print display of record"
|
|
^PRCT(446.4,2,1,181,0)="PI(#1) :: (cont)"
|
|
^PRCT(446.4,2,1,182,0)="P""Are you ..."" ::Ask user for verification before deletion"
|
|
^PRCT(446.4,2,1,183,0)="P""... sure (Y/N) ?"" :: (cont)"
|
|
^PRCT(446.4,2,1,184,0)="D$0="""" ::Initialize input string"
|
|
^PRCT(446.4,2,1,185,0)="A1 ::Allow user input of one character only"
|
|
^PRCT(446.4,2,1,186,0)="G$0=""."".START ::If input a period, go back to main menu"
|
|
^PRCT(446.4,2,1,187,0)="G$0=""N"".REVDEL ::If input a ""N"", then ask which record again"
|
|
^PRCT(446.4,2,1,188,0)="G$0=""Y"".DELREC ::If input a ""Y"", go delete record"
|
|
^PRCT(446.4,2,1,189,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,2,1,190,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,191,0)="P""*** Error, enter"" ::Tell user a Y or N must be entered"
|
|
^PRCT(446.4,2,1,192,0)="P""a Y or N."" :: (cont)"
|
|
^PRCT(446.4,2,1,193,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,2,1,194,0)="G.ASK1 ::Go back and ask ""ok to delete"" question"
|
|
^PRCT(446.4,2,1,195,0)=" ::"
|
|
^PRCT(446.4,2,1,196,0)=".DELREC :: DELREC"
|
|
^PRCT(446.4,2,1,197,0)="DI(#1)=""*Deleted*"" ::Set record in inventory file to null to show deletion"
|
|
^PRCT(446.4,2,1,198,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,199,0)="P"" "" ::Tell user the record has been deleted"
|
|
^PRCT(446.4,2,1,200,0)="P""* Record Deleted *"" :: (cont)"
|
|
^PRCT(446.4,2,1,201,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,2,1,202,0)="G.REVDEL ::Go back and ask what records to view for deletion"
|
|
^PRCT(446.4,2,1,203,0)=" ::"
|
|
^PRCT(446.4,2,1,204,0)=".XMIT :: XMIT"
|
|
^PRCT(446.4,2,1,205,0)="D$0=""PRCUS"" ::Define data identifier"
|
|
^PRCT(446.4,2,1,206,0)="XMP,$0 ::Send data idnetifier to host system"
|
|
^PRCT(446.4,2,1,207,0)="XMP,I ::Transmit the inventory file to external device"
|
|
^PRCT(446.4,2,1,208,0)="H#1=I ::Find how many records exist in inventory file"
|
|
^PRCT(446.4,2,1,209,0)="C$0=#1 ::Set string variable to number of records"
|
|
^PRCT(446.4,2,1,210,0)="D$0=""***END***^""+$0 ::Setup End of file message"
|
|
^PRCT(446.4,2,1,211,0)="XMP,$0 ::Send end of file message to external device"
|
|
^PRCT(446.4,2,1,212,0)=" ::"
|
|
^PRCT(446.4,2,1,213,0)=".ASK :: ASK"
|
|
^PRCT(446.4,2,1,214,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,215,0)="P""Data xmitted, do"" ::Display confirmation of transmission message"
|
|
^PRCT(446.4,2,1,216,0)="P""you want to purge"" :: (cont)"
|
|
^PRCT(446.4,2,1,217,0)="P""the file (Y/N) ? "" :: (cont)"
|
|
^PRCT(446.4,2,1,218,0)="D$0="""" ::Initialize input variable"
|
|
^PRCT(446.4,2,1,219,0)="A ::Allow user input"
|
|
^PRCT(446.4,2,1,220,0)="G$0=""Y"".PUR ::If user input is a ""Y"", go and purge inventory file"
|
|
^PRCT(446.4,2,1,221,0)="G$0=""N"".START ::If user input is a ""N"", go back to main menu"
|
|
^PRCT(446.4,2,1,222,0)="G$0=""."".START ::If user input is a ""."", go back to main menu"
|
|
^PRCT(446.4,2,1,223,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,2,1,224,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,225,0)="P""Please enter a "" ::Display error message"
|
|
^PRCT(446.4,2,1,226,0)="P""Y or N."" :: (cont)"
|
|
^PRCT(446.4,2,1,227,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,2,1,228,0)="G.ASK ::Go back and ask purge question"
|
|
^PRCT(446.4,2,1,229,0)=".PUR :: PUR"
|
|
^PRCT(446.4,2,1,230,0)="HI=0 ::Purge of inventory file"
|
|
^PRCT(446.4,2,1,231,0)="HV=0 ::Purge of local variable file"
|
|
^PRCT(446.4,2,1,232,0)="B0 ::Sound beep one time"
|
|
^PRCT(446.4,2,1,233,0)="P""** File Purged **"" ::Inform user of purged file"
|
|
^PRCT(446.4,2,1,234,0)="W3 ::Wait three seconds to allow view of message"
|
|
^PRCT(446.4,2,1,235,0)="G.BEG ::Go back to begining of program"
|
|
^PRCT(446.4,2,1,236,0)=" ::"
|
|
^PRCT(446.4,2,1,237,0)=".DEL :: DEL"
|
|
^PRCT(446.4,2,1,238,0)="DV(4)="""" ::Initialize Qty"
|
|
^PRCT(446.4,2,1,239,0)="G.ENTER ::Go back to enter inventory record"
|
|
^PRCT(446.4,2,1,240,0)=" ::"
|
|
^PRCT(446.4,2,1,241,0)=".CLR :: CLR"
|
|
^PRCT(446.4,2,1,242,0)="P""\e[2J"" ::Clear screen escape sequence"
|
|
^PRCT(446.4,2,1,243,0)="Q ::Quit subroutine"
|
|
^PRCT(446.4,2,1,244,0)=" ::"
|
|
^PRCT(446.4,2,1,245,0)=".NOREC :: NOREC"
|
|
^PRCT(446.4,2,1,246,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,2,1,247,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,248,0)="P""*** Error, enter a"" ::Print error message"
|
|
^PRCT(446.4,2,1,249,0)="P""part number first."" :: (cont)"
|
|
^PRCT(446.4,2,1,250,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,2,1,251,0)="G.ENTER ::Go back to enter inventory record"
|
|
^PRCT(446.4,2,1,252,0)=" ::"
|
|
^PRCT(446.4,2,1,253,0)=".WARN :: WARN"
|
|
^PRCT(446.4,2,1,254,0)="B0 ::Sound beep"
|
|
^PRCT(446.4,2,1,255,0)="P""\e[2J**** WARNING ****"" ::Clear screen andprint warning message"
|
|
^PRCT(446.4,2,1,256,0)="P""Data file is almost"" :: (cont)"
|
|
^PRCT(446.4,2,1,257,0)="P""full. Please XMIT"" :: (cont)"
|
|
^PRCT(446.4,2,1,258,0)="P""data and purge file."" :: (cont)"
|
|
^PRCT(446.4,2,1,259,0)="W3 ::Wait three seconds to allow view of message"
|
|
^PRCT(446.4,2,1,260,0)="Q ::Quit subroutine"
|
|
^PRCT(446.4,2,1,261,0)=" ::"
|
|
^PRCT(446.4,2,1,262,0)=".NOQTY :: NOQTY"
|
|
^PRCT(446.4,2,1,263,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,2,1,264,0)="P""\e[2JWARNING: No qty"" ::Print warning message"
|
|
^PRCT(446.4,2,1,265,0)="P""was entered for"" :: (cont)"
|
|
^PRCT(446.4,2,1,266,0)="P""part #:"" :: (cont)"
|
|
^PRCT(446.4,2,1,267,0)="PV(2) ::Print part #"
|
|
^PRCT(446.4,2,1,268,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,2,1,269,0)="Q ::Quit subroutine"
|
|
^PRCT(446.4,2,1,270,0)=" ::"
|
|
^PRCT(446.4,2,1,271,0)=".STOP :: STOP"
|
|
^PRCT(446.4,2,1,272,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,2,1,273,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,274,0)="P""Sorry, data file is"" ::Print error message"
|
|
^PRCT(446.4,2,1,275,0)="P""FULL, you must XMIT"" :: (cont)"
|
|
^PRCT(446.4,2,1,276,0)="P""and purge file."" :: (cont)"
|
|
^PRCT(446.4,2,1,277,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,2,1,278,0)="G.START ::Go back to main menu"
|
|
^PRCT(446.4,2,1,279,0)=" ::"
|
|
^PRCT(446.4,2,1,280,0)=".DAT :: DAT"
|
|
^PRCT(446.4,2,1,281,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,282,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,2,1,283,0)="P""*** WARNING ***"" ::Print warning message of existing data"
|
|
^PRCT(446.4,2,1,284,0)="P""Data exists on"" :: (cont)"
|
|
^PRCT(446.4,2,1,285,0)="P""this barcode reader."" :: (cont)"
|
|
^PRCT(446.4,2,1,286,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,2,1,287,0)="P""The first record in"" ::Display first record to user"
|
|
^PRCT(446.4,2,1,288,0)="P""this file"" :: (cont)"
|
|
^PRCT(446.4,2,1,289,0)="D$0=""is: ""+I(0) ::Setup display of first record"
|
|
^PRCT(446.4,2,1,290,0)="P$0 ::Print first record"
|
|
^PRCT(446.4,2,1,291,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,2,1,292,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,293,0)="P""Do you want to"" ::Query user to purge existing file"
|
|
^PRCT(446.4,2,1,294,0)="P""purge this file ..."" :: (cont)"
|
|
^PRCT(446.4,2,1,295,0)="P""... (Y/N) ? "" :: (cont)"
|
|
^PRCT(446.4,2,1,296,0)="D$0="""" ::Initialize input variable"
|
|
^PRCT(446.4,2,1,297,0)="A ::User input"
|
|
^PRCT(446.4,2,1,298,0)="G$0=""Y"".PUR ::If user input is a ""Y"", go and purge files"
|
|
^PRCT(446.4,2,1,299,0)="G$0=""N"".START ::If user input a ""N"", go to main menu"
|
|
^PRCT(446.4,2,1,300,0)="G$0=""."".START ::If user input is a ""."", go to main menu"
|
|
^PRCT(446.4,2,1,301,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,2,1,302,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,2,1,303,0)="P""Please enter a "" ::Display error message"
|
|
^PRCT(446.4,2,1,304,0)="P""Y or N."" :: (cont)"
|
|
^PRCT(446.4,2,1,305,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,2,1,306,0)="G.DAT ::Go back to existing data question"
|
|
^PRCT(446.4,2,1,307,0)=" ::"
|
|
^PRCT(446.4,2,1,308,0)="E ::End of program"
|
|
^PRCT(446.4,4,0)="PREVENTIVE MAINTENANCE^ENPM^EN-ENBCPM1^^^1^^3010208^6"
|
|
^PRCT(446.4,4,1,0)="^446.41^679^679^3010109^^"
|
|
^PRCT(446.4,4,1,1,0)=" ::RGY/ISC-Washington@Altoona, Pa"
|
|
^PRCT(446.4,4,1,2,0)=" ::DH/ISC-Washington@Hampton, Va"
|
|
^PRCT(446.4,4,1,3,0)=" ::SAB/OIFO-Washington@Hampton, VA"
|
|
^PRCT(446.4,4,1,4,0)=" ::1.9.2001"
|
|
^PRCT(446.4,4,1,5,0)=" ::"
|
|
^PRCT(446.4,4,1,6,0)=" ::Preventive Maintenance (PM) Program"
|
|
^PRCT(446.4,4,1,7,0)=" ::File P set up to contain as many as"
|
|
^PRCT(446.4,4,1,8,0)=" ::File P will hold the identifiers (IEN's)"
|
|
^PRCT(446.4,4,1,9,0)=" ::of equipment for which a PM inspection"
|
|
^PRCT(446.4,4,1,10,0)=" ::has been performed. Set up to hold as"
|
|
^PRCT(446.4,4,1,11,0)=" ::many as 1000 records."
|
|
^PRCT(446.4,4,1,12,0)=" ::As always, first record is a user"
|
|
^PRCT(446.4,4,1,13,0)=" ::specified identifier. Main purpose is"
|
|
^PRCT(446.4,4,1,14,0)=" ::to safeguard against inadvertent file"
|
|
^PRCT(446.4,4,1,15,0)=" ::purges. We suggest that user enter"
|
|
^PRCT(446.4,4,1,16,0)=" ::something like 'PM'-initials-date"
|
|
^PRCT(446.4,4,1,17,0)=" ::(ex: PM-SAW-9-12-90). If unit times"
|
|
^PRCT(446.4,4,1,18,0)=" ::out for inactivity or is turned off,"
|
|
^PRCT(446.4,4,1,19,0)=" ::this record will be displayed at"
|
|
^PRCT(446.4,4,1,20,0)=" ::power up time."
|
|
^PRCT(446.4,4,1,21,0)=" ::"
|
|
^PRCT(446.4,4,1,22,0)=" ::The Variable file (V) is a small file"
|
|
^PRCT(446.4,4,1,23,0)=" ::used for scratch variables since"
|
|
^PRCT(446.4,4,1,24,0)=" ::IRL limits numeric and string registers."
|
|
^PRCT(446.4,4,1,25,0)=" ::V(0) is a scratch variable"
|
|
^PRCT(446.4,4,1,26,0)=" ::V(1) is a scratch variable"
|
|
^PRCT(446.4,4,1,27,0)=" ::V(2) the last location entered"
|
|
^PRCT(446.4,4,1,28,0)=" ::V(3) the last equipment number entered"
|
|
^PRCT(446.4,4,1,29,0)=" ::V(4) contains station number"
|
|
^PRCT(446.4,4,1,30,0)=" ::V(5) station number on EE label"
|
|
^PRCT(446.4,4,1,31,0)=" ::V(6) alternate station number"
|
|
^PRCT(446.4,4,1,32,0)=" ::V(7) another alternate station number"
|
|
^PRCT(446.4,4,1,33,0)=" ::V(8) another alternate station number"
|
|
^PRCT(446.4,4,1,34,0)=" ::V(9) another alternate station number"
|
|
^PRCT(446.4,4,1,35,0)=" ::V(10) another alternate station number"
|
|
^PRCT(446.4,4,1,36,0)=" ::V(11) scratch variable"
|
|
^PRCT(446.4,4,1,37,0)=" ::V(12) scratch variable"
|
|
^PRCT(446.4,4,1,38,0)=" ::V(13) scratch variable"
|
|
^PRCT(446.4,4,1,39,0)=" ::V(14) another alternate station number"
|
|
^PRCT(446.4,4,1,40,0)=" ::V(15) another alternate station number"
|
|
^PRCT(446.4,4,1,41,0)=" ::V(16) last of eight possible alternate"
|
|
^PRCT(446.4,4,1,42,0)=" :: station numbers"
|
|
^PRCT(446.4,4,1,43,0)=" ::F(0) is 39 char formatter"
|
|
^PRCT(446.4,4,1,44,0)=" ::"
|
|
^PRCT(446.4,4,1,45,0)="OP(1000,40) ::Initialize PMI file"
|
|
^PRCT(446.4,4,1,46,0)="OV(17,40) ::Initialize variable file"
|
|
^PRCT(446.4,4,1,47,0)="OF(1,39) ::Truncation in REV/DEL"
|
|
^PRCT(446.4,4,1,48,0)=" ::"
|
|
^PRCT(446.4,4,1,49,0)=".BEG :: BEG"
|
|
^PRCT(446.4,4,1,50,0)="DV(4)="""" ::Initialize station number"
|
|
^PRCT(446.4,4,1,51,0)="DV(6)="""" ::and alternates"
|
|
^PRCT(446.4,4,1,52,0)="DV(7)="""""
|
|
^PRCT(446.4,4,1,53,0)="DV(8)="""""
|
|
^PRCT(446.4,4,1,54,0)="DV(9)="""""
|
|
^PRCT(446.4,4,1,55,0)="DV(10)="""""
|
|
^PRCT(446.4,4,1,56,0)="DV(14)="""""
|
|
^PRCT(446.4,4,1,57,0)="DV(15)="""""
|
|
^PRCT(446.4,4,1,58,0)="DV(16)="""""
|
|
^PRCT(446.4,4,1,59,0)="DV(4)=|ENSTA| ::Pass station # from DHCP"
|
|
^PRCT(446.4,4,1,60,0)="D$3=|ENEMP| ::Pass PM Inspector"
|
|
^PRCT(446.4,4,1,61,0)="DV(6)=|ENSTA(1)| ::Pass alternate station number(s)"
|
|
^PRCT(446.4,4,1,62,0)="DV(7)=|ENSTA(2)| ::<space> if null"
|
|
^PRCT(446.4,4,1,63,0)="DV(8)=|ENSTA(3)|"
|
|
^PRCT(446.4,4,1,64,0)="DV(9)=|ENSTA(4)|"
|
|
^PRCT(446.4,4,1,65,0)="DV(10)=|ENSTA(5)|"
|
|
^PRCT(446.4,4,1,66,0)="DV(14)=|ENSTA(6)|"
|
|
^PRCT(446.4,4,1,67,0)="DV(15)=|ENSTA(7)|"
|
|
^PRCT(446.4,4,1,68,0)="DV(16)=|ENSTA(8)|"
|
|
^PRCT(446.4,4,1,69,0)="H#1=P ::Set reg 1 to current rec # in PMI file"
|
|
^PRCT(446.4,4,1,70,0)="G#1>0.DAT ::If data alread exist in PMI file warn user"
|
|
^PRCT(446.4,4,1,71,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,4,1,72,0)="P""Please enter ..."" ::Ask user for file ID"
|
|
^PRCT(446.4,4,1,73,0)="P""file ID: "" :: (cont)"
|
|
^PRCT(446.4,4,1,74,0)="D$0="""""
|
|
^PRCT(446.4,4,1,75,0)="A ::User input of user ID"
|
|
^PRCT(446.4,4,1,76,0)="D$0=""ID ""+$0 ::Force an entry"
|
|
^PRCT(446.4,4,1,77,0)="RP ::Store file ID into PMI file"
|
|
^PRCT(446.4,4,1,78,0)="DV(2)="""" ::Initialize V(2)"
|
|
^PRCT(446.4,4,1,79,0)="DV(3)="""" ::and V(3)"
|
|
^PRCT(446.4,4,1,80,0)="S.CLR"
|
|
^PRCT(446.4,4,1,81,0)="P""Station number:"" ::Display only"
|
|
^PRCT(446.4,4,1,82,0)="PV(4) ::Alternates not shown"
|
|
^PRCT(446.4,4,1,83,0)="P""To continue, please"""
|
|
^PRCT(446.4,4,1,84,0)="P""press ENTER..."""
|
|
^PRCT(446.4,4,1,85,0)="A ::Continue"
|
|
^PRCT(446.4,4,1,86,0)="D$0="""""
|
|
^PRCT(446.4,4,1,87,0)=" ::"
|
|
^PRCT(446.4,4,1,88,0)=".TEC :: TEC"
|
|
^PRCT(446.4,4,1,89,0)="S.CLR ::Disp name of tech"
|
|
^PRCT(446.4,4,1,90,0)="P""PM Inspector is:"""
|
|
^PRCT(446.4,4,1,91,0)="P$3"
|
|
^PRCT(446.4,4,1,92,0)="D$0=$3"
|
|
^PRCT(446.4,4,1,93,0)="RP ::File Inspector"
|
|
^PRCT(446.4,4,1,94,0)="P""Please press ENTER."""
|
|
^PRCT(446.4,4,1,95,0)="A ::Proceed"
|
|
^PRCT(446.4,4,1,96,0)="D$0="""""
|
|
^PRCT(446.4,4,1,97,0)=" ::"
|
|
^PRCT(446.4,4,1,98,0)=" ::"
|
|
^PRCT(446.4,4,1,99,0)=".START :: START"
|
|
^PRCT(446.4,4,1,100,0)="S.CLR"
|
|
^PRCT(446.4,4,1,101,0)="P""1. Record PMI"""
|
|
^PRCT(446.4,4,1,102,0)="P""2. Transmit Data"" :: (cont)"
|
|
^PRCT(446.4,4,1,103,0)="P""3. Review/Delete"" :: (cont)"
|
|
^PRCT(446.4,4,1,104,0)="P""ENTER (1-3):"""
|
|
^PRCT(446.4,4,1,105,0)="A ::User input of option"
|
|
^PRCT(446.4,4,1,106,0)="G$0=""1"".ENTER ::ENTER is entry tag for PMI"
|
|
^PRCT(446.4,4,1,107,0)="G$0=""2"".XMIT ::XMIT is entry tag for transmit"
|
|
^PRCT(446.4,4,1,108,0)="G$0=""3"".REVDEL ::REVDEL is entry tag for deletion"
|
|
^PRCT(446.4,4,1,109,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,4,1,110,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,4,1,111,0)="P""*** Error, enter a"" ::Print message of invalid input"
|
|
^PRCT(446.4,4,1,112,0)="P""number from 1-3, or"" :: (cont)"
|
|
^PRCT(446.4,4,1,113,0)="P""turn TRAKKER off."""
|
|
^PRCT(446.4,4,1,114,0)="W5 ::Wait 5 seconds to allow view of message"
|
|
^PRCT(446.4,4,1,115,0)="G.START ::Go back and display main menu"
|
|
^PRCT(446.4,4,1,116,0)=" ::"
|
|
^PRCT(446.4,4,1,117,0)=" ::Entries at this point should look like:"
|
|
^PRCT(446.4,4,1,118,0)=" :: SP21-110, or"
|
|
^PRCT(446.4,4,1,119,0)=" :: 688 EE6798, or maybe"
|
|
^PRCT(446.4,4,1,120,0)=" :: 7832 EE659098"
|
|
^PRCT(446.4,4,1,121,0)=" ::Anything else needs to be rejected."
|
|
^PRCT(446.4,4,1,122,0)=".ENTER :: ENTER"
|
|
^PRCT(446.4,4,1,123,0)="H#1=P ::Set regist 1 to Num. of rec. in PMI file"
|
|
^PRCT(446.4,4,1,124,0)="G#1>995.STOP ::If PMI file full, do not allow anymore entries"
|
|
^PRCT(446.4,4,1,125,0)="S#1>985.WARN ::If PMI file almost full, warn user"
|
|
^PRCT(446.4,4,1,126,0)="D$0=""\e[2JRM: ""+V(2) ::Clear screen and display Room number"
|
|
^PRCT(446.4,4,1,127,0)="P$0 :: (cont)"
|
|
^PRCT(446.4,4,1,128,0)="D$0=""ID: ""+V(3) ::Display current identifier"
|
|
^PRCT(446.4,4,1,129,0)="P$0 :: (cont)"
|
|
^PRCT(446.4,4,1,130,0)="P""...Reader ready...\r\n"" ::Display input symbol for PMI"
|
|
^PRCT(446.4,4,1,131,0)="D$0="""" ::Initialize input variable"
|
|
^PRCT(446.4,4,1,132,0)="A ::Allow user input of next equip id"
|
|
^PRCT(446.4,4,1,133,0)="DV(1)=$0 ::For safe keeping"
|
|
^PRCT(446.4,4,1,134,0)="G$0=""."".START ::If input is ""."", goto main menu"
|
|
^PRCT(446.4,4,1,135,0)="D$1=$0L2 ::First 2 char of input"
|
|
^PRCT(446.4,4,1,136,0)="G$1=""SP"".LOC ::Location label"
|
|
^PRCT(446.4,4,1,137,0)="G$0=""F4"".NOLBL ::Process item without barcode label"
|
|
^PRCT(446.4,4,1,138,0)="D#1=[$0] ::Is this a PM number?"
|
|
^PRCT(446.4,4,1,139,0)="S#1>8.PMN ::Maybe so, go check"
|
|
^PRCT(446.4,4,1,140,0)="GV(5)=""PM"".ENTPM ::It was a PM number"
|
|
^PRCT(446.4,4,1,141,0)="S.PARSE ::What is it? Should be EE label."
|
|
^PRCT(446.4,4,1,142,0)="SV(5)=""??"".HLP1 ::Not what we expected, print help and"
|
|
^PRCT(446.4,4,1,143,0)="GV(5)=""??"".ENTER ::try again"
|
|
^PRCT(446.4,4,1,144,0)=".ENTPM ::Tag to skip parsing"
|
|
^PRCT(446.4,4,1,145,0)="GV(2)="""".NOLOC ::Have EE label, but no open loc"
|
|
^PRCT(446.4,4,1,146,0)="GV(5)=""PM"".PMR ::PM number and open loc; record"
|
|
^PRCT(446.4,4,1,147,0)="GV(4)=V(5).PMR ::EE label and open loc; record"
|
|
^PRCT(446.4,4,1,148,0)="GV(5)=V(6).PMR ::alternate station number"
|
|
^PRCT(446.4,4,1,149,0)="GV(5)=V(7).PMR ::second alternate"
|
|
^PRCT(446.4,4,1,150,0)="GV(5)=V(8).PMR ::third alternate"
|
|
^PRCT(446.4,4,1,151,0)="GV(5)=V(9).PMR ::fourth alternate"
|
|
^PRCT(446.4,4,1,152,0)="GV(5)=V(10).PMR ::fifth alternate"
|
|
^PRCT(446.4,4,1,153,0)="GV(5)=V(14).PMR ::sixth alternate"
|
|
^PRCT(446.4,4,1,154,0)="GV(5)=V(15).PMR ::seventh alternate"
|
|
^PRCT(446.4,4,1,155,0)="GV(5)=V(16).PMR ::eighth alternate"
|
|
^PRCT(446.4,4,1,156,0)=".RPT ::In case we need to repeat"
|
|
^PRCT(446.4,4,1,157,0)="S.CLR ::exception message"
|
|
^PRCT(446.4,4,1,158,0)="P""WARNING...EE label"""
|
|
^PRCT(446.4,4,1,159,0)="B01"
|
|
^PRCT(446.4,4,1,160,0)="D$1=""is from VAMC ""+V(5) ::Show foreign station"
|
|
^PRCT(446.4,4,1,161,0)="P$1"
|
|
^PRCT(446.4,4,1,162,0)="P""Cannot process."" ::Next screen"
|
|
^PRCT(446.4,4,1,163,0)="P""<ENTER> to cont..."""
|
|
^PRCT(446.4,4,1,164,0)="A ::Any char OK"
|
|
^PRCT(446.4,4,1,165,0)="S.CLR"
|
|
^PRCT(446.4,4,1,166,0)="G.ENTER ::Abort and move on"
|
|
^PRCT(446.4,4,1,167,0)=" ::"
|
|
^PRCT(446.4,4,1,168,0)=".PMR :: PMR"
|
|
^PRCT(446.4,4,1,169,0)="SV(5)=""PM"".CLR5 ::Dispense with flag"
|
|
^PRCT(446.4,4,1,170,0)="DV(3)=V(1) ::Move IEN for safe keeping"
|
|
^PRCT(446.4,4,1,171,0)="D$0=""\e[2JRM: ""+V(2) ::Display current info"
|
|
^PRCT(446.4,4,1,172,0)="P$0"
|
|
^PRCT(446.4,4,1,173,0)="D$0=""ID: ""+V(3)"
|
|
^PRCT(446.4,4,1,174,0)="P$0"
|
|
^PRCT(446.4,4,1,175,0)="P""Enter P for PASS or"" ::PASS/FAIL"
|
|
^PRCT(446.4,4,1,176,0)="P""F for FAIL: "" ::Explicit action"
|
|
^PRCT(446.4,4,1,177,0)="D$0="""" ::required"
|
|
^PRCT(446.4,4,1,178,0)="A1"
|
|
^PRCT(446.4,4,1,179,0)="G$0=""P"".PMRP"
|
|
^PRCT(446.4,4,1,180,0)="G$0=""F"".PMRF"
|
|
^PRCT(446.4,4,1,181,0)="G.PMR"
|
|
^PRCT(446.4,4,1,182,0)=".PMRP :: PMRP"
|
|
^PRCT(446.4,4,1,183,0)="GV(1)=""F4"".PMRP0"
|
|
^PRCT(446.4,4,1,184,0)="D$0=V(1) ::Device PASSED"
|
|
^PRCT(446.4,4,1,185,0)="RP ::Store EE number"
|
|
^PRCT(446.4,4,1,186,0)=".PMRP0"
|
|
^PRCT(446.4,4,1,187,0)="S.CLR"
|
|
^PRCT(446.4,4,1,188,0)="P""Press F1 for detail"" ::Get time and material"
|
|
^PRCT(446.4,4,1,189,0)="P""or ENTER to cont..."" ::if desired"
|
|
^PRCT(446.4,4,1,190,0)="D$0="""""
|
|
^PRCT(446.4,4,1,191,0)="A"
|
|
^PRCT(446.4,4,1,192,0)="G$0=""F1"".PMRP1"
|
|
^PRCT(446.4,4,1,193,0)="G$0="""".ENTER ::No t&m desired"
|
|
^PRCT(446.4,4,1,194,0)="B11101 ::Error condition (minor)"
|
|
^PRCT(446.4,4,1,195,0)="G.PMRP"
|
|
^PRCT(446.4,4,1,196,0)=".PMRP1"
|
|
^PRCT(446.4,4,1,197,0)="S.CLR"
|
|
^PRCT(446.4,4,1,198,0)="P""Time (hrs): "" ::Enter time"
|
|
^PRCT(446.4,4,1,199,0)="D$0="""""
|
|
^PRCT(446.4,4,1,200,0)="A ::Can't do pattern match"
|
|
^PRCT(446.4,4,1,201,0)="DV(1)=$0"
|
|
^PRCT(446.4,4,1,202,0)="P""Are you sure? Y//"" ::So we get confirmation"
|
|
^PRCT(446.4,4,1,203,0)="D$0="""""
|
|
^PRCT(446.4,4,1,204,0)="A"
|
|
^PRCT(446.4,4,1,205,0)="G$0="""".PMRP11"
|
|
^PRCT(446.4,4,1,206,0)="G$0=""Y"".PMRP11"
|
|
^PRCT(446.4,4,1,207,0)="G$0=""YES"".PMRP11"
|
|
^PRCT(446.4,4,1,208,0)="G.PMRP1"
|
|
^PRCT(446.4,4,1,209,0)=" ::"
|
|
^PRCT(446.4,4,1,210,0)=".PMRP11"
|
|
^PRCT(446.4,4,1,211,0)="D$0=""TIME:""+V(1)"
|
|
^PRCT(446.4,4,1,212,0)="RP ::Store time spent"
|
|
^PRCT(446.4,4,1,213,0)=".PMRP12"
|
|
^PRCT(446.4,4,1,214,0)="S.CLR"
|
|
^PRCT(446.4,4,1,215,0)="P""Materials ($): "" ::Enter materials"
|
|
^PRCT(446.4,4,1,216,0)="D$0="""""
|
|
^PRCT(446.4,4,1,217,0)="A ::Again, no type check"
|
|
^PRCT(446.4,4,1,218,0)="DV(1)=$0"
|
|
^PRCT(446.4,4,1,219,0)="P""Are you sure? Y//"" ::so we confirm"
|
|
^PRCT(446.4,4,1,220,0)="D$0="""""
|
|
^PRCT(446.4,4,1,221,0)="A"
|
|
^PRCT(446.4,4,1,222,0)="G$0="""".PMRP13"
|
|
^PRCT(446.4,4,1,223,0)="G$0=""Y"".PMRP13"
|
|
^PRCT(446.4,4,1,224,0)="G$0=""YES"".PMRP13"
|
|
^PRCT(446.4,4,1,225,0)="G.PMRP12"
|
|
^PRCT(446.4,4,1,226,0)=".PMRP13"
|
|
^PRCT(446.4,4,1,227,0)="D$0=""MATRL:""+V(1)"
|
|
^PRCT(446.4,4,1,228,0)="RP ::Store material cost"
|
|
^PRCT(446.4,4,1,229,0)="DV(5)="""""
|
|
^PRCT(446.4,4,1,230,0)=" ::"
|
|
^PRCT(446.4,4,1,231,0)=".PMRP14 ::Condition Code"
|
|
^PRCT(446.4,4,1,232,0)="S.CLR"
|
|
^PRCT(446.4,4,1,233,0)="P""Condition code (LN,"""
|
|
^PRCT(446.4,4,1,234,0)="P""G, or P):"""
|
|
^PRCT(446.4,4,1,235,0)="D$0="""""
|
|
^PRCT(446.4,4,1,236,0)="A"
|
|
^PRCT(446.4,4,1,237,0)="G$0="""".PMRP15"
|
|
^PRCT(446.4,4,1,238,0)="G$0=""L"".PMRPN"
|
|
^PRCT(446.4,4,1,239,0)="G$0=""l"".PMRPN"
|
|
^PRCT(446.4,4,1,240,0)="G$0=""N"".PMRPN"
|
|
^PRCT(446.4,4,1,241,0)="G$0=""n"".PMRPN"
|
|
^PRCT(446.4,4,1,242,0)="G$0=""LN"".PMRPN"
|
|
^PRCT(446.4,4,1,243,0)="G$0=""Ln"".PMRPN"
|
|
^PRCT(446.4,4,1,244,0)="G$0=""ln"".PMRPN"
|
|
^PRCT(446.4,4,1,245,0)="G$0=""G"".PMRPG"
|
|
^PRCT(446.4,4,1,246,0)="G$0=""g"".PMRPG"
|
|
^PRCT(446.4,4,1,247,0)="G$0=""P"".PMRPP"
|
|
^PRCT(446.4,4,1,248,0)="G$0=""p"".PMRPP"
|
|
^PRCT(446.4,4,1,249,0)="S.CLR"
|
|
^PRCT(446.4,4,1,250,0)="P""Must press LN (Like"""
|
|
^PRCT(446.4,4,1,251,0)="P""New), G (Good), P"""
|
|
^PRCT(446.4,4,1,252,0)="P""(Poor), or ENTER."""
|
|
^PRCT(446.4,4,1,253,0)="W 3"
|
|
^PRCT(446.4,4,1,254,0)="G.PMRP14"
|
|
^PRCT(446.4,4,1,255,0)=" ::"
|
|
^PRCT(446.4,4,1,256,0)=".PMRPN ::Condition is LIKE NEW"
|
|
^PRCT(446.4,4,1,257,0)="S.CLR"
|
|
^PRCT(446.4,4,1,258,0)="P""LIKE NEW Condition."""
|
|
^PRCT(446.4,4,1,259,0)="P""Correct? Y//"""
|
|
^PRCT(446.4,4,1,260,0)="D$0="""""
|
|
^PRCT(446.4,4,1,261,0)="A"
|
|
^PRCT(446.4,4,1,262,0)="G$0="""".PMRPN1"
|
|
^PRCT(446.4,4,1,263,0)="G$0=""Y"".PMRPN1"
|
|
^PRCT(446.4,4,1,264,0)="G$0=""y"".PMRPN1"
|
|
^PRCT(446.4,4,1,265,0)="G.PMRP14"
|
|
^PRCT(446.4,4,1,266,0)=".PMRPN1 ::Set the value"
|
|
^PRCT(446.4,4,1,267,0)="D$0=""CODE:1"""
|
|
^PRCT(446.4,4,1,268,0)="RP"
|
|
^PRCT(446.4,4,1,269,0)="G.PMRP15"
|
|
^PRCT(446.4,4,1,270,0)=" ::"
|
|
^PRCT(446.4,4,1,271,0)=".PMRPG ::Condition is GOOD"
|
|
^PRCT(446.4,4,1,272,0)="S.CLR"
|
|
^PRCT(446.4,4,1,273,0)="P""GOOD condition."""
|
|
^PRCT(446.4,4,1,274,0)="P""Correct? Y//"""
|
|
^PRCT(446.4,4,1,275,0)="D$0="""""
|
|
^PRCT(446.4,4,1,276,0)="A"
|
|
^PRCT(446.4,4,1,277,0)="G$0="""".PMRPG1"
|
|
^PRCT(446.4,4,1,278,0)="G$0=""Y"".PMRPG1"
|
|
^PRCT(446.4,4,1,279,0)="G$0=""y"".PMRPG1"
|
|
^PRCT(446.4,4,1,280,0)="G.PMRP14"
|
|
^PRCT(446.4,4,1,281,0)=".PMRPG1 ::Set the value"
|
|
^PRCT(446.4,4,1,282,0)="D$0=""CODE:2"""
|
|
^PRCT(446.4,4,1,283,0)="RP"
|
|
^PRCT(446.4,4,1,284,0)="G.PMRP15"
|
|
^PRCT(446.4,4,1,285,0)=" ::"
|
|
^PRCT(446.4,4,1,286,0)=".PMRPP ::Condition is POOR"
|
|
^PRCT(446.4,4,1,287,0)="S.CLR"
|
|
^PRCT(446.4,4,1,288,0)="P""POOR Condition."""
|
|
^PRCT(446.4,4,1,289,0)="P""Correct? Y//"""
|
|
^PRCT(446.4,4,1,290,0)="D$0="""""
|
|
^PRCT(446.4,4,1,291,0)="A"
|
|
^PRCT(446.4,4,1,292,0)="G$0="""".PMRPP1"
|
|
^PRCT(446.4,4,1,293,0)="G$0=""Y"".PMRPP1"
|
|
^PRCT(446.4,4,1,294,0)="G$0=""y"".PMRPP1"
|
|
^PRCT(446.4,4,1,295,0)="G.PMRP14"
|
|
^PRCT(446.4,4,1,296,0)=".PMRPP1"
|
|
^PRCT(446.4,4,1,297,0)="D$0=""CODE:3"""
|
|
^PRCT(446.4,4,1,298,0)="RP"
|
|
^PRCT(446.4,4,1,299,0)=" ::"
|
|
^PRCT(446.4,4,1,300,0)=".PMRP15"
|
|
^PRCT(446.4,4,1,301,0)="S.WORK"
|
|
^PRCT(446.4,4,1,302,0)="G.ENTER"
|
|
^PRCT(446.4,4,1,303,0)=" ::"
|
|
^PRCT(446.4,4,1,304,0)=".WORK ::Manual entry of WORK PERFORMED"
|
|
^PRCT(446.4,4,1,305,0)="S.CLR"
|
|
^PRCT(446.4,4,1,306,0)="P""WORK PERFORMED:"""
|
|
^PRCT(446.4,4,1,307,0)="P""(120 char max)"""
|
|
^PRCT(446.4,4,1,308,0)="P""(Optional)\r\n"""
|
|
^PRCT(446.4,4,1,309,0)="D$0="""""
|
|
^PRCT(446.4,4,1,310,0)="A"
|
|
^PRCT(446.4,4,1,311,0)="Q$0="""""
|
|
^PRCT(446.4,4,1,312,0)="DV(11)="""" ::Record up to three"
|
|
^PRCT(446.4,4,1,313,0)="DV(12)="""" ::forty char segments"
|
|
^PRCT(446.4,4,1,314,0)="DV(13)="""""
|
|
^PRCT(446.4,4,1,315,0)="DV(11)=$0L40"
|
|
^PRCT(446.4,4,1,316,0)="DV(12)=$0M40,41"
|
|
^PRCT(446.4,4,1,317,0)="DV(13)=$0M40,81"
|
|
^PRCT(446.4,4,1,318,0)=".WORKC ::Confirmation"
|
|
^PRCT(446.4,4,1,319,0)="D$0="""""
|
|
^PRCT(446.4,4,1,320,0)="P""Are you sure? Y//"""
|
|
^PRCT(446.4,4,1,321,0)="A"
|
|
^PRCT(446.4,4,1,322,0)="D$1=$0L1"
|
|
^PRCT(446.4,4,1,323,0)="G$1="""".WORKF"
|
|
^PRCT(446.4,4,1,324,0)="G$1=""Y"".WORKF"
|
|
^PRCT(446.4,4,1,325,0)="G$1=""y"".WORKF"
|
|
^PRCT(446.4,4,1,326,0)="G.WORK"
|
|
^PRCT(446.4,4,1,327,0)=".WORKF ::File WORK PERFORMED"
|
|
^PRCT(446.4,4,1,328,0)="D$0=V(11)"
|
|
^PRCT(446.4,4,1,329,0)="RP"
|
|
^PRCT(446.4,4,1,330,0)="QV(12)="""""
|
|
^PRCT(446.4,4,1,331,0)="D$0=V(12)"
|
|
^PRCT(446.4,4,1,332,0)="RP"
|
|
^PRCT(446.4,4,1,333,0)="QV(13)="""""
|
|
^PRCT(446.4,4,1,334,0)="D$0=V(13)"
|
|
^PRCT(446.4,4,1,335,0)="RP"
|
|
^PRCT(446.4,4,1,336,0)="Q"
|
|
^PRCT(446.4,4,1,337,0)=" ::"
|
|
^PRCT(446.4,4,1,338,0)=".PMRF :: PMRF"
|
|
^PRCT(446.4,4,1,339,0)="GV(1)=""F4"".PMRF0"
|
|
^PRCT(446.4,4,1,340,0)="D$0=V(1) ::Device FAILED"
|
|
^PRCT(446.4,4,1,341,0)="RP ::Store EE number"
|
|
^PRCT(446.4,4,1,342,0)=".PMRF0"
|
|
^PRCT(446.4,4,1,343,0)="D$0=""FAILED"""
|
|
^PRCT(446.4,4,1,344,0)="RP ::and store a flag"
|
|
^PRCT(446.4,4,1,345,0)=".PMRF1"
|
|
^PRCT(446.4,4,1,346,0)="S.CLR"
|
|
^PRCT(446.4,4,1,347,0)="P""Describe problem"" ::Get a brief statement of"
|
|
^PRCT(446.4,4,1,348,0)="P""(40 char max):\r\n"" ::the problem. This will"
|
|
^PRCT(446.4,4,1,349,0)="D$0="""" ::become the basis for a"
|
|
^PRCT(446.4,4,1,350,0)="A ::corrective action work"
|
|
^PRCT(446.4,4,1,351,0)="DV(1)=$0 ::order."
|
|
^PRCT(446.4,4,1,352,0)="S.CLR"
|
|
^PRCT(446.4,4,1,353,0)="D$0=V(1) ::Truncate to 40 char"
|
|
^PRCT(446.4,4,1,354,0)="P$0"
|
|
^PRCT(446.4,4,1,355,0)="P""Are you sure? Y//"" ::Confirmation"
|
|
^PRCT(446.4,4,1,356,0)="D$0="""""
|
|
^PRCT(446.4,4,1,357,0)="A"
|
|
^PRCT(446.4,4,1,358,0)="G$0="""".PMRF2"
|
|
^PRCT(446.4,4,1,359,0)="G$0=""Y"".PMRF2"
|
|
^PRCT(446.4,4,1,360,0)="G$0=""YES"".PMRF2"
|
|
^PRCT(446.4,4,1,361,0)="B10111"
|
|
^PRCT(446.4,4,1,362,0)="G.PMRF1"
|
|
^PRCT(446.4,4,1,363,0)=".PMRF2"
|
|
^PRCT(446.4,4,1,364,0)="D$0=V(1)"
|
|
^PRCT(446.4,4,1,365,0)="RP ::Store problem description"
|
|
^PRCT(446.4,4,1,366,0)=".PMRF3 ::Get time"
|
|
^PRCT(446.4,4,1,367,0)="S.CLR"
|
|
^PRCT(446.4,4,1,368,0)="P""Time (hrs): "" ::Enter hours"
|
|
^PRCT(446.4,4,1,369,0)="D$0="""""
|
|
^PRCT(446.4,4,1,370,0)="A"
|
|
^PRCT(446.4,4,1,371,0)="DV(1)=$0"
|
|
^PRCT(446.4,4,1,372,0)="P""Are you sure? Y//"" ::Data validation check"
|
|
^PRCT(446.4,4,1,373,0)="D$0="""""
|
|
^PRCT(446.4,4,1,374,0)="A"
|
|
^PRCT(446.4,4,1,375,0)="G$0="""".PMRF31"
|
|
^PRCT(446.4,4,1,376,0)="G$0=""Y"".PMRF31"
|
|
^PRCT(446.4,4,1,377,0)="G$0=""YES"".PMRF31"
|
|
^PRCT(446.4,4,1,378,0)="G.PMRF3"
|
|
^PRCT(446.4,4,1,379,0)=".PMRF31"
|
|
^PRCT(446.4,4,1,380,0)="D$0=""TIME:""+V(1) ::Store time spent in"
|
|
^PRCT(446.4,4,1,381,0)="RP ::FAILing device"
|
|
^PRCT(446.4,4,1,382,0)="G.ENTER"
|
|
^PRCT(446.4,4,1,383,0)=" ::"
|
|
^PRCT(446.4,4,1,384,0)=".NOLOC :: NOLOC"
|
|
^PRCT(446.4,4,1,385,0)="B1101 ::Audible signal"
|
|
^PRCT(446.4,4,1,386,0)="S.CLR ::EE label scanned before"
|
|
^PRCT(446.4,4,1,387,0)="P""PMI process must"" ::location"
|
|
^PRCT(446.4,4,1,388,0)="P""begin with location"""
|
|
^PRCT(446.4,4,1,389,0)="P""label."""
|
|
^PRCT(446.4,4,1,390,0)="P""Press <ENTER>..."""
|
|
^PRCT(446.4,4,1,391,0)="A ::Accept any char"
|
|
^PRCT(446.4,4,1,392,0)="G.ENTER ::Try again"
|
|
^PRCT(446.4,4,1,393,0)=" ::"
|
|
^PRCT(446.4,4,1,394,0)=".NOLBL :: NOLBL"
|
|
^PRCT(446.4,4,1,395,0)="GV(2)="""".NOLOC ::No open loc; can't proceed"
|
|
^PRCT(446.4,4,1,396,0)="S.CLR ::Get text description of"
|
|
^PRCT(446.4,4,1,397,0)="P""Enter MODEL NUMBER:\r\n"" ::items without barcode"
|
|
^PRCT(446.4,4,1,398,0)="D$0="""""
|
|
^PRCT(446.4,4,1,399,0)="A ::labels"
|
|
^PRCT(446.4,4,1,400,0)="G$0=""^"".NLABRT ::User abort"
|
|
^PRCT(446.4,4,1,401,0)="D$2=$0 ::Temp save of mod in $2"
|
|
^PRCT(446.4,4,1,402,0)="S.CLR"
|
|
^PRCT(446.4,4,1,403,0)="P""Enter SERIAL NUMBER:"" ::Get serial #"
|
|
^PRCT(446.4,4,1,404,0)="D$0="""""
|
|
^PRCT(446.4,4,1,405,0)="A"
|
|
^PRCT(446.4,4,1,406,0)="G$0=""^"".NLABRT ::User abort"
|
|
^PRCT(446.4,4,1,407,0)="G$0="""".NLABRT"
|
|
^PRCT(446.4,4,1,408,0)="D$3=$0 ::Temp save of s/n in $3"
|
|
^PRCT(446.4,4,1,409,0)=".DESC ::Item description"
|
|
^PRCT(446.4,4,1,410,0)="S.CLR"
|
|
^PRCT(446.4,4,1,411,0)="P""Enter DESCRIPTION:\r\n"" ::Free text description"
|
|
^PRCT(446.4,4,1,412,0)="A ::40 char max because of fixed"
|
|
^PRCT(446.4,4,1,413,0)="D#0=[$0] ::record size"
|
|
^PRCT(446.4,4,1,414,0)="G#0<41.NOLBL1"
|
|
^PRCT(446.4,4,1,415,0)="S.CLR ::Clear screen for"
|
|
^PRCT(446.4,4,1,416,0)="P""ERROR Description"" ::error message"
|
|
^PRCT(446.4,4,1,417,0)="P""may not exceed 40"""
|
|
^PRCT(446.4,4,1,418,0)="P""characters."""
|
|
^PRCT(446.4,4,1,419,0)="P""Press <ENTER>..."" ::Wait for user resp"
|
|
^PRCT(446.4,4,1,420,0)="A ::Take anything"
|
|
^PRCT(446.4,4,1,421,0)="G.DESC ::Try again"
|
|
^PRCT(446.4,4,1,422,0)=".NOLBL1 ::Continue"
|
|
^PRCT(446.4,4,1,423,0)="D$1=$0 ::Shuffle the string"
|
|
^PRCT(446.4,4,1,424,0)="D$0=""MOD:""+$2 ::registers and file"
|
|
^PRCT(446.4,4,1,425,0)="RP ::user inputs"
|
|
^PRCT(446.4,4,1,426,0)="D$0=""S/N:""+$3"
|
|
^PRCT(446.4,4,1,427,0)="RP"
|
|
^PRCT(446.4,4,1,428,0)="D$0=$1"
|
|
^PRCT(446.4,4,1,429,0)="RP ::Filing complete"
|
|
^PRCT(446.4,4,1,430,0)="G.PMR ::Pass or fail"
|
|
^PRCT(446.4,4,1,431,0)=".NLABRT ::Jump here to skip filing"
|
|
^PRCT(446.4,4,1,432,0)="G.ENTER ::End of program segment"
|
|
^PRCT(446.4,4,1,433,0)=" ::"
|
|
^PRCT(446.4,4,1,434,0)=".PMN :: PMN"
|
|
^PRCT(446.4,4,1,435,0)="D$1=$0M1,5 ::Is this really a PM number?"
|
|
^PRCT(446.4,4,1,436,0)="G$1=""-"".PMN1 ::Apparently so"
|
|
^PRCT(446.4,4,1,437,0)="Q ::Not PM number, return"
|
|
^PRCT(446.4,4,1,438,0)=".PMN1 ::Assume NNNN-NNNN is PM#"
|
|
^PRCT(446.4,4,1,439,0)="DV(5)=""PM"" ::Set flag"
|
|
^PRCT(446.4,4,1,440,0)="DV(0)="""" ::Add prefix"
|
|
^PRCT(446.4,4,1,441,0)="DV(0)=V(1)"
|
|
^PRCT(446.4,4,1,442,0)="DV(1)="""""
|
|
^PRCT(446.4,4,1,443,0)="DV(1)=""PM#:""+V(0)"
|
|
^PRCT(446.4,4,1,444,0)="Q ::Return"
|
|
^PRCT(446.4,4,1,445,0)=" ::"
|
|
^PRCT(446.4,4,1,446,0)=".REVDEL :: REVDEL"
|
|
^PRCT(446.4,4,1,447,0)="H#1=P ::Get last"
|
|
^PRCT(446.4,4,1,448,0)="D#1=#1-1 ::record number"
|
|
^PRCT(446.4,4,1,449,0)=".LP10"
|
|
^PRCT(446.4,4,1,450,0)="G#1=1.START ::Can't go above first LOCATION"
|
|
^PRCT(446.4,4,1,451,0)="S.CLR"
|
|
^PRCT(446.4,4,1,452,0)="C$1=#1 ::Display"
|
|
^PRCT(446.4,4,1,453,0)="D$0=$1+"") "" ::last"
|
|
^PRCT(446.4,4,1,454,0)="D$0=$0+P(#1) ::record"
|
|
^PRCT(446.4,4,1,455,0)="DF(0)=$0 ::Truncate to"
|
|
^PRCT(446.4,4,1,456,0)="D$0=F(0) ::39 char"
|
|
^PRCT(446.4,4,1,457,0)="P$0"
|
|
^PRCT(446.4,4,1,458,0)="P""(D)elete, (Q)uit,"""
|
|
^PRCT(446.4,4,1,459,0)="P""or (C)ontinue..."""
|
|
^PRCT(446.4,4,1,460,0)="D$0="""" ::Clear input buffer"
|
|
^PRCT(446.4,4,1,461,0)="A1 ::Single character entry"
|
|
^PRCT(446.4,4,1,462,0)="G$0=""D"".LP20 ::Deletion"
|
|
^PRCT(446.4,4,1,463,0)="G$0=""Q"".START ::Back to main menu"
|
|
^PRCT(446.4,4,1,464,0)="G$0=""C"".LP30 ::Next previous record"
|
|
^PRCT(446.4,4,1,465,0)="P""Error. Must enter"""
|
|
^PRCT(446.4,4,1,466,0)="P""D, Q, or C."""
|
|
^PRCT(446.4,4,1,467,0)="P""To proceed, please"""
|
|
^PRCT(446.4,4,1,468,0)="P""press <ENTER>..."""
|
|
^PRCT(446.4,4,1,469,0)="D$0="""""
|
|
^PRCT(446.4,4,1,470,0)="A ::Take anything"
|
|
^PRCT(446.4,4,1,471,0)="G.LP10 ::Ask again"
|
|
^PRCT(446.4,4,1,472,0)=".LP20 ::Actual deletion"
|
|
^PRCT(446.4,4,1,473,0)="S.CLR"
|
|
^PRCT(446.4,4,1,474,0)="P""Deleting record"""
|
|
^PRCT(446.4,4,1,475,0)="D$0=""number ""+$1"
|
|
^PRCT(446.4,4,1,476,0)="D$0=$0+""..."""
|
|
^PRCT(446.4,4,1,477,0)="P$0"
|
|
^PRCT(446.4,4,1,478,0)="W5"
|
|
^PRCT(446.4,4,1,479,0)="DP(#1)=""*****"""
|
|
^PRCT(446.4,4,1,480,0)="P""(Q)uit or (C)ont?"" ::Get instruction"
|
|
^PRCT(446.4,4,1,481,0)="D$0="""""
|
|
^PRCT(446.4,4,1,482,0)="A1 ::Get one character"
|
|
^PRCT(446.4,4,1,483,0)="G$0=""C"".LP25 ::Continue review"
|
|
^PRCT(446.4,4,1,484,0)="G.START ::Back to main menu"
|
|
^PRCT(446.4,4,1,485,0)=".LP25 :: LP25"
|
|
^PRCT(446.4,4,1,486,0)="D#1=#1-1 ::Move file pointer"
|
|
^PRCT(446.4,4,1,487,0)="G.LP10 ::Back to display"
|
|
^PRCT(446.4,4,1,488,0)=".LP30 :: LP30"
|
|
^PRCT(446.4,4,1,489,0)="D#1=#1-1 ::Move file pointer"
|
|
^PRCT(446.4,4,1,490,0)="G.LP10 ::End REVIEW/DELETE"
|
|
^PRCT(446.4,4,1,491,0)=" ::"
|
|
^PRCT(446.4,4,1,492,0)=".XMIT :: XMIT"
|
|
^PRCT(446.4,4,1,493,0)="D$0=""ENPM"" ::Define data identifier"
|
|
^PRCT(446.4,4,1,494,0)="XMP,$0 ::Transmit data identifier to host system"
|
|
^PRCT(446.4,4,1,495,0)="XMP,P ::Transmit PMI file to host device"
|
|
^PRCT(446.4,4,1,496,0)="H#1=P ::Find how many records exist in PMI file"
|
|
^PRCT(446.4,4,1,497,0)="C$0=#1 ::Set string variable to Number of Records"
|
|
^PRCT(446.4,4,1,498,0)="D$0=""***END***^""+$0 ::Setup End of File message"
|
|
^PRCT(446.4,4,1,499,0)="XMP,$0 ::Send End of File message to external device"
|
|
^PRCT(446.4,4,1,500,0)=".ASK :: ASK"
|
|
^PRCT(446.4,4,1,501,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,4,1,502,0)="P""Data xmitted, do"" ::Display confirmation of transmission message"
|
|
^PRCT(446.4,4,1,503,0)="P""you want to purge"" :: (cont)"
|
|
^PRCT(446.4,4,1,504,0)="P""the file (Y/N) ? "" :: (cont)"
|
|
^PRCT(446.4,4,1,505,0)="D$0="""" ::Initialize input variable"
|
|
^PRCT(446.4,4,1,506,0)="A ::Allow user input"
|
|
^PRCT(446.4,4,1,507,0)="G$0=""Y"".PUR ::If ""Y"", purge inventory file"
|
|
^PRCT(446.4,4,1,508,0)="G$0=""N"".START ::If user input is a ""N"", go back to main menu"
|
|
^PRCT(446.4,4,1,509,0)="G$0=""."".START ::If user input is a ""."", go back to main menu"
|
|
^PRCT(446.4,4,1,510,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,4,1,511,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,4,1,512,0)="P""Please enter a "" ::Display error message"
|
|
^PRCT(446.4,4,1,513,0)="P""Y or N."" :: (cont)"
|
|
^PRCT(446.4,4,1,514,0)="W3 ::Wait 5 seconds to allow view of message"
|
|
^PRCT(446.4,4,1,515,0)="G.ASK ::Go back and ask purge question"
|
|
^PRCT(446.4,4,1,516,0)=" ::"
|
|
^PRCT(446.4,4,1,517,0)=".PUR :: PUR"
|
|
^PRCT(446.4,4,1,518,0)="HP=0 ::Purge of PMI file"
|
|
^PRCT(446.4,4,1,519,0)="HV=0 ::Purge of local variable file"
|
|
^PRCT(446.4,4,1,520,0)="B0 ::Sound beep one time"
|
|
^PRCT(446.4,4,1,521,0)="P""** File Purged **"" ::Inform user of purged file"
|
|
^PRCT(446.4,4,1,522,0)="W3 ::Wait three seconds to allow view of message"
|
|
^PRCT(446.4,4,1,523,0)="G.BEG ::Go back to begining of program"
|
|
^PRCT(446.4,4,1,524,0)=" ::"
|
|
^PRCT(446.4,4,1,525,0)=".CLR :: CLR"
|
|
^PRCT(446.4,4,1,526,0)="P""\e[2J"" ::Clear screen escape sequence"
|
|
^PRCT(446.4,4,1,527,0)="D$0="""" ::Clear input register"
|
|
^PRCT(446.4,4,1,528,0)="Q ::Quit subroutine"
|
|
^PRCT(446.4,4,1,529,0)=" ::"
|
|
^PRCT(446.4,4,1,530,0)=".WARN :: WARN"
|
|
^PRCT(446.4,4,1,531,0)="B0 ::Sound beep"
|
|
^PRCT(446.4,4,1,532,0)="P""\e[2J**** WARNING ****"" ::Clear screen and print warning message"
|
|
^PRCT(446.4,4,1,533,0)="P""Data file is almost"" :: (cont)"
|
|
^PRCT(446.4,4,1,534,0)="P""full. Please XMIT"" :: (cont)"
|
|
^PRCT(446.4,4,1,535,0)="P""data and purge file."" :: (cont)"
|
|
^PRCT(446.4,4,1,536,0)="W3 ::Wait three seconds to allow view of message"
|
|
^PRCT(446.4,4,1,537,0)="Q ::Quit subroutine"
|
|
^PRCT(446.4,4,1,538,0)=" ::"
|
|
^PRCT(446.4,4,1,539,0)=".STOP :: STOP"
|
|
^PRCT(446.4,4,1,540,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,4,1,541,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,4,1,542,0)="P""Sorry, data file is"" ::Print error message"
|
|
^PRCT(446.4,4,1,543,0)="P""FULL, you must XMIT"" :: (cont)"
|
|
^PRCT(446.4,4,1,544,0)="P""and purge file."" :: (cont)"
|
|
^PRCT(446.4,4,1,545,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,4,1,546,0)="G.START ::Go back to main menu"
|
|
^PRCT(446.4,4,1,547,0)=" ::"
|
|
^PRCT(446.4,4,1,548,0)=".DAT :: DAT"
|
|
^PRCT(446.4,4,1,549,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,4,1,550,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,4,1,551,0)="P""*** WARNING ***"" ::Print warning message of existing data"
|
|
^PRCT(446.4,4,1,552,0)="P""Data exists on"" :: (cont)"
|
|
^PRCT(446.4,4,1,553,0)="P""this barcode reader."" :: (cont)"
|
|
^PRCT(446.4,4,1,554,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,4,1,555,0)="S.CLR"
|
|
^PRCT(446.4,4,1,556,0)="P""The file ID is:"" ::Display first record to user"
|
|
^PRCT(446.4,4,1,557,0)="D$0=P(0) ::Setup display of first record"
|
|
^PRCT(446.4,4,1,558,0)="P$0 ::Print first record"
|
|
^PRCT(446.4,4,1,559,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,4,1,560,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,4,1,561,0)="P""Do you want to"" ::Query user to purge existing file"
|
|
^PRCT(446.4,4,1,562,0)="P""purge this file ..."" :: (cont)"
|
|
^PRCT(446.4,4,1,563,0)="P""... (Y/N) ? "" :: (cont)"
|
|
^PRCT(446.4,4,1,564,0)="D$0="""" ::Initialize input variable"
|
|
^PRCT(446.4,4,1,565,0)="A ::User input"
|
|
^PRCT(446.4,4,1,566,0)="G$0=""Y"".PUR ::If user input is a ""Y"", go and purge files"
|
|
^PRCT(446.4,4,1,567,0)="G$0=""N"".START ::If user input is a ""N"", go to main menu"
|
|
^PRCT(446.4,4,1,568,0)="G$0=""."".START ::If user input is a ""."", go to main menu"
|
|
^PRCT(446.4,4,1,569,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,4,1,570,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,4,1,571,0)="P""Please enter a "" ::Display error message"
|
|
^PRCT(446.4,4,1,572,0)="P""Y or N."" :: (cont)"
|
|
^PRCT(446.4,4,1,573,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,4,1,574,0)="G.DAT ::Go back a existing data question"
|
|
^PRCT(446.4,4,1,575,0)=" ::"
|
|
^PRCT(446.4,4,1,576,0)=".LOC :: LOC"
|
|
^PRCT(446.4,4,1,577,0)=" ::Process location label in $0"
|
|
^PRCT(446.4,4,1,578,0)="SV(2)="""".NLOC ::No location presently open"
|
|
^PRCT(446.4,4,1,579,0)="SV(2)=$0.CLOC ::Loction is open"
|
|
^PRCT(446.4,4,1,580,0)="G$0="""".LOCQ ::All is well"
|
|
^PRCT(446.4,4,1,581,0)="P""ERROR Must close"" ::Display error"
|
|
^PRCT(446.4,4,1,582,0)="B1101 ::message and sound alarm"
|
|
^PRCT(446.4,4,1,583,0)="PV(2)"
|
|
^PRCT(446.4,4,1,584,0)="P""before you may open"""
|
|
^PRCT(446.4,4,1,585,0)="P$0"
|
|
^PRCT(446.4,4,1,586,0)="W10 ::10 sec to read"
|
|
^PRCT(446.4,4,1,587,0)=".LOCQ ::Exit from subroutine"
|
|
^PRCT(446.4,4,1,588,0)="G.ENTER ::Next read"
|
|
^PRCT(446.4,4,1,589,0)=".NLOC :: NLOC"
|
|
^PRCT(446.4,4,1,590,0)="DV(2)=$0 ::Store new current location"
|
|
^PRCT(446.4,4,1,591,0)="RP ::Add new loc to file"
|
|
^PRCT(446.4,4,1,592,0)="D$0="""" ::All OK flag back to LOC"
|
|
^PRCT(446.4,4,1,593,0)="Q"
|
|
^PRCT(446.4,4,1,594,0)=".CLOC :: CLOC"
|
|
^PRCT(446.4,4,1,595,0)="DV(2)="""" ::Close current location"
|
|
^PRCT(446.4,4,1,596,0)="D$0="""" ::All OK flag back to LOC"
|
|
^PRCT(446.4,4,1,597,0)="DV(3)="""" ::Clear last EE for new loc"
|
|
^PRCT(446.4,4,1,598,0)="Q"
|
|
^PRCT(446.4,4,1,599,0)="G.ENTER"
|
|
^PRCT(446.4,4,1,600,0)=" ::"
|
|
^PRCT(446.4,4,1,601,0)=".PARSE :: PARSE"
|
|
^PRCT(446.4,4,1,602,0)="DV(5)="""""
|
|
^PRCT(446.4,4,1,603,0)="D#1=0 ::Initialize character count"
|
|
^PRCT(446.4,4,1,604,0)=".FNDBL ::Look for space"
|
|
^PRCT(446.4,4,1,605,0)="D#1=#1+1 ::Increment counter"
|
|
^PRCT(446.4,4,1,606,0)="D$1=$0M1,#1 ::Examine current char position"
|
|
^PRCT(446.4,4,1,607,0)="G$1="""".PARS1 ::Must not be any spaces"
|
|
^PRCT(446.4,4,1,608,0)="G$1="" "".PARS1 ::That's more like it"
|
|
^PRCT(446.4,4,1,609,0)="G.FNDBL ::Keep looping"
|
|
^PRCT(446.4,4,1,610,0)=".PARS1"
|
|
^PRCT(446.4,4,1,611,0)="S$1="""".ERR1 ::Can't be right"
|
|
^PRCT(446.4,4,1,612,0)="S$1="" "".PARS2 ::Continue"
|
|
^PRCT(446.4,4,1,613,0)="Q ::Return control to segment ENTER"
|
|
^PRCT(446.4,4,1,614,0)=" ::"
|
|
^PRCT(446.4,4,1,615,0)=".PARS2 :: PARS2 (2ND LEVEL)"
|
|
^PRCT(446.4,4,1,616,0)="D#2=[$0] ::Length of label"
|
|
^PRCT(446.4,4,1,617,0)="D#3=#1+1 ::Start of second piece"
|
|
^PRCT(446.4,4,1,618,0)="D#4=#2-#1 ::Length of second piece"
|
|
^PRCT(446.4,4,1,619,0)="D$1=$0M#4,#3 ::Set $1 to second piece"
|
|
^PRCT(446.4,4,1,620,0)="D$2=$1L2 ::Application code"
|
|
^PRCT(446.4,4,1,621,0)="G$2=""EE"".PARS3 ::Application code should be EE"
|
|
^PRCT(446.4,4,1,622,0)="DV(5)=""??"" ::Error condition"
|
|
^PRCT(446.4,4,1,623,0)="G.PARS4"
|
|
^PRCT(446.4,4,1,624,0)=".PARS3 ::Where we want to be"
|
|
^PRCT(446.4,4,1,625,0)="D#3=#1-1 ::Length of station number"
|
|
^PRCT(446.4,4,1,626,0)="DV(5)=$0L#3 ::Store station number from label"
|
|
^PRCT(446.4,4,1,627,0)=".PARS4 ::Re-entry from error condition"
|
|
^PRCT(446.4,4,1,628,0)="Q ::Return control to PARSE, passing param V(5)"
|
|
^PRCT(446.4,4,1,629,0)=" ::"
|
|
^PRCT(446.4,4,1,630,0)=".ERR1 :: ERR1"
|
|
^PRCT(446.4,4,1,631,0)="DV(5)=""??"" ::Flag error for segment .ENTER"
|
|
^PRCT(446.4,4,1,632,0)="Q"
|
|
^PRCT(446.4,4,1,633,0)=" ::"
|
|
^PRCT(446.4,4,1,634,0)=".HLP1 :: HLP1"
|
|
^PRCT(446.4,4,1,635,0)="S.CLR ::Called from .ENTER if input"
|
|
^PRCT(446.4,4,1,636,0)="GV(1)=""?"".HLP12 ::is a question"
|
|
^PRCT(446.4,4,1,637,0)="P""** INVALID ENTRY **"" ::or is questionable"
|
|
^PRCT(446.4,4,1,638,0)="B1010 ::Audible signal"
|
|
^PRCT(446.4,4,1,639,0)="P""Press <ENTER> to"""
|
|
^PRCT(446.4,4,1,640,0)="P""continue, or enter"""
|
|
^PRCT(446.4,4,1,641,0)="P""'?' for help."""
|
|
^PRCT(446.4,4,1,642,0)="D$0="""""
|
|
^PRCT(446.4,4,1,643,0)="A ::User response"
|
|
^PRCT(446.4,4,1,644,0)="G$0="""".HLP1Q ::Help declined"
|
|
^PRCT(446.4,4,1,645,0)="D$0=$0L1 ::Look at first char"
|
|
^PRCT(446.4,4,1,646,0)=".HLP12 ::'?' to begin with"
|
|
^PRCT(446.4,4,1,647,0)="SV(1)=""?"".HLP2 ::More help"
|
|
^PRCT(446.4,4,1,648,0)="S$0=""?"".HLP2 ::Show help text"
|
|
^PRCT(446.4,4,1,649,0)=".HLP1Q ::Exit subroutine"
|
|
^PRCT(446.4,4,1,650,0)="Q"
|
|
^PRCT(446.4,4,1,651,0)=" ::"
|
|
^PRCT(446.4,4,1,652,0)=".HLP2 :: HLP2"
|
|
^PRCT(446.4,4,1,653,0)="D$0=V(2) ::Ck for location"
|
|
^PRCT(446.4,4,1,654,0)="G$0="""".HLP3"
|
|
^PRCT(446.4,4,1,655,0)="P""Expecting equipment"" ::Expanded help"
|
|
^PRCT(446.4,4,1,656,0)="P""id (ex:688 EE9372),"""
|
|
^PRCT(446.4,4,1,657,0)="P""PM #, or special"""
|
|
^PRCT(446.4,4,1,658,0)="P""function key F4."""
|
|
^PRCT(446.4,4,1,659,0)="W10 ::10 sec to read"
|
|
^PRCT(446.4,4,1,660,0)="P""Will also accept"""
|
|
^PRCT(446.4,4,1,661,0)="D$0=V(2) ::Display current"
|
|
^PRCT(446.4,4,1,662,0)="P$0 ::location"
|
|
^PRCT(446.4,4,1,663,0)="P""to close location"""
|
|
^PRCT(446.4,4,1,664,0)="P""or '.' to exit."""
|
|
^PRCT(446.4,4,1,665,0)="W10"
|
|
^PRCT(446.4,4,1,666,0)="Q"
|
|
^PRCT(446.4,4,1,667,0)=" :: HLP3"
|
|
^PRCT(446.4,4,1,668,0)=".HLP3"
|
|
^PRCT(446.4,4,1,669,0)="S.CLR ::No location"
|
|
^PRCT(446.4,4,1,670,0)="P""PMI process must"""
|
|
^PRCT(446.4,4,1,671,0)="P""begin with a"""
|
|
^PRCT(446.4,4,1,672,0)="P""location label."""
|
|
^PRCT(446.4,4,1,673,0)="W10"
|
|
^PRCT(446.4,4,1,674,0)="Q"
|
|
^PRCT(446.4,4,1,675,0)=".CLR5 ::Clear var"
|
|
^PRCT(446.4,4,1,676,0)="DV(5)="""""
|
|
^PRCT(446.4,4,1,677,0)="Q"
|
|
^PRCT(446.4,4,1,678,0)=" ::"
|
|
^PRCT(446.4,4,1,679,0)="E ::End of program"
|
|
^PRCT(446.4,5,0)="NON-EXPENDABLE^ENNX^EN-ENEQNX1^^^^^3010208^6"
|
|
^PRCT(446.4,5,1,0)="^446.41^457^457^3010109^^"
|
|
^PRCT(446.4,5,1,1,0)=" ::RGY/ISC-Washington@Altoona, Pa"
|
|
^PRCT(446.4,5,1,2,0)=" ::DH/ISC-Washington@Hampton, Va"
|
|
^PRCT(446.4,5,1,3,0)=" ::SAB/OIFO-Washington@Hampton, VA"
|
|
^PRCT(446.4,5,1,4,0)=" ::1.9.2001"
|
|
^PRCT(446.4,5,1,5,0)=" ::"
|
|
^PRCT(446.4,5,1,6,0)=" ::Equipment Inventory Program"
|
|
^PRCT(446.4,5,1,7,0)=" ::File I will hold the identifiers (IEN's)"
|
|
^PRCT(446.4,5,1,8,0)=" ::of equipment which has been physically"
|
|
^PRCT(446.4,5,1,9,0)=" ::located. Set up to hold as"
|
|
^PRCT(446.4,5,1,10,0)=" ::many as 1000 records."
|
|
^PRCT(446.4,5,1,11,0)=" ::As always, first record is a user"
|
|
^PRCT(446.4,5,1,12,0)=" ::specified identifier. Main purpose is"
|
|
^PRCT(446.4,5,1,13,0)=" ::to safeguard against inadvertent file"
|
|
^PRCT(446.4,5,1,14,0)=" ::purges. We suggest that user enter"
|
|
^PRCT(446.4,5,1,15,0)=" ::something like 'NX'-initials-date"
|
|
^PRCT(446.4,5,1,16,0)=" ::(ex: NX-SAW-9-12-90). If unit times"
|
|
^PRCT(446.4,5,1,17,0)=" ::out for inactivity or is turned off,"
|
|
^PRCT(446.4,5,1,18,0)=" ::this record will be displayed at"
|
|
^PRCT(446.4,5,1,19,0)=" ::power up time."
|
|
^PRCT(446.4,5,1,20,0)=" ::"
|
|
^PRCT(446.4,5,1,21,0)=" ::The Variable file (V) is a small file"
|
|
^PRCT(446.4,5,1,22,0)=" ::used for scratch variables since"
|
|
^PRCT(446.4,5,1,23,0)=" ::IRL limits numeric and string registers."
|
|
^PRCT(446.4,5,1,24,0)=" ::V(0) is a scratch variable"
|
|
^PRCT(446.4,5,1,25,0)=" ::V(1) is a scratch variable"
|
|
^PRCT(446.4,5,1,26,0)=" ::V(2) the last location entered"
|
|
^PRCT(446.4,5,1,27,0)=" ::V(3) the last equipment number entered"
|
|
^PRCT(446.4,5,1,28,0)=" ::V(4) contains station number"
|
|
^PRCT(446.4,5,1,29,0)=" ::V(5) station number on EE label"
|
|
^PRCT(446.4,5,1,30,0)=" ::V(6) alternate station number"
|
|
^PRCT(446.4,5,1,31,0)=" ::V(7) another alternate station number"
|
|
^PRCT(446.4,5,1,32,0)=" ::V(8) another alternate station number"
|
|
^PRCT(446.4,5,1,33,0)=" ::V(9) another alternate station number"
|
|
^PRCT(446.4,5,1,34,0)=" ::V(10) another alternate station number"
|
|
^PRCT(446.4,5,1,35,0)=" ::V(11) another alternate station number"
|
|
^PRCT(446.4,5,1,36,0)=" ::V(12) another alternate station number"
|
|
^PRCT(446.4,5,1,37,0)=" ::V(13) last of eight possible alternate"
|
|
^PRCT(446.4,5,1,38,0)=" :: station numbers"
|
|
^PRCT(446.4,5,1,39,0)=" ::F(0) is 39 char formatter"
|
|
^PRCT(446.4,5,1,40,0)=" ::"
|
|
^PRCT(446.4,5,1,41,0)="OI(1000,40) ::Initialize INV file"
|
|
^PRCT(446.4,5,1,42,0)="OV(14,40) ::Initialize variable file"
|
|
^PRCT(446.4,5,1,43,0)="OF(1,39) ::Truncation in REV/DEL"
|
|
^PRCT(446.4,5,1,44,0)=" ::"
|
|
^PRCT(446.4,5,1,45,0)=".BEG :: BEG"
|
|
^PRCT(446.4,5,1,46,0)="DV(4)="""""
|
|
^PRCT(446.4,5,1,47,0)="DV(4)=|ENSTA|"
|
|
^PRCT(446.4,5,1,48,0)="DV(6)="""" ::Initialize alternate station"
|
|
^PRCT(446.4,5,1,49,0)="DV(6)=|ENSTA(1)|"
|
|
^PRCT(446.4,5,1,50,0)="DV(7)="""" ::numbers"
|
|
^PRCT(446.4,5,1,51,0)="DV(7)=|ENSTA(2)|"
|
|
^PRCT(446.4,5,1,52,0)="DV(8)="""""
|
|
^PRCT(446.4,5,1,53,0)="DV(8)=|ENSTA(3)|"
|
|
^PRCT(446.4,5,1,54,0)="DV(9)="""""
|
|
^PRCT(446.4,5,1,55,0)="DV(9)=|ENSTA(4)|"
|
|
^PRCT(446.4,5,1,56,0)="DV(10)="""""
|
|
^PRCT(446.4,5,1,57,0)="DV(10)=|ENSTA(5)|"
|
|
^PRCT(446.4,5,1,58,0)="DV(11)="""""
|
|
^PRCT(446.4,5,1,59,0)="DV(11)=|ENSTA(6)|"
|
|
^PRCT(446.4,5,1,60,0)="DV(12)="""""
|
|
^PRCT(446.4,5,1,61,0)="DV(12)=|ENSTA(7)|"
|
|
^PRCT(446.4,5,1,62,0)="DV(13)="""""
|
|
^PRCT(446.4,5,1,63,0)="DV(13)=|ENSTA(8)|"
|
|
^PRCT(446.4,5,1,64,0)="S.CLR"
|
|
^PRCT(446.4,5,1,65,0)="P""STATION NUMBER:"""
|
|
^PRCT(446.4,5,1,66,0)="PV(4) ::Alternates not shown"
|
|
^PRCT(446.4,5,1,67,0)="P""To continue, please"""
|
|
^PRCT(446.4,5,1,68,0)="P""press <ENTER>..."""
|
|
^PRCT(446.4,5,1,69,0)="A"
|
|
^PRCT(446.4,5,1,70,0)="D$0="""""
|
|
^PRCT(446.4,5,1,71,0)="H#1=I ::Set reg 1 to current rec # in INV file"
|
|
^PRCT(446.4,5,1,72,0)="G#1>0.DAT ::If data already exists, warn user"
|
|
^PRCT(446.4,5,1,73,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,5,1,74,0)="P""Please enter ..."" ::Ask user for file ID"
|
|
^PRCT(446.4,5,1,75,0)="P""file ID: "" :: (cont)"
|
|
^PRCT(446.4,5,1,76,0)="A ::User input of file ID"
|
|
^PRCT(446.4,5,1,77,0)="D$0=""ID ""+$0 ::Force an entry"
|
|
^PRCT(446.4,5,1,78,0)="RI ::Store file ID into INV file"
|
|
^PRCT(446.4,5,1,79,0)="DV(2)="""" ::Initialize V(2)"
|
|
^PRCT(446.4,5,1,80,0)="DV(3)="""""
|
|
^PRCT(446.4,5,1,81,0)=" ::"
|
|
^PRCT(446.4,5,1,82,0)=".START :: START"
|
|
^PRCT(446.4,5,1,83,0)="S.CLR"
|
|
^PRCT(446.4,5,1,84,0)="P""1. Take Inventory"""
|
|
^PRCT(446.4,5,1,85,0)="P""2. Transmit Data"" :: (cont)"
|
|
^PRCT(446.4,5,1,86,0)="P""3. Review/Delete"" :: (cont)"
|
|
^PRCT(446.4,5,1,87,0)="P""ENTER (1-3):"""
|
|
^PRCT(446.4,5,1,88,0)="A ::User input of option"
|
|
^PRCT(446.4,5,1,89,0)="G$0=""1"".ENTER ::ENTER is entry tag for INV"
|
|
^PRCT(446.4,5,1,90,0)="G$0=""2"".XMIT ::XMIT is entry tag for transmit"
|
|
^PRCT(446.4,5,1,91,0)="G$0=""3"".REVDEL ::REVDEL is entry tag for deletion"
|
|
^PRCT(446.4,5,1,92,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,5,1,93,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,5,1,94,0)="P""*** Error, enter a"" ::Print message of invalid input"
|
|
^PRCT(446.4,5,1,95,0)="P""number from 1-3, or"" :: (cont)"
|
|
^PRCT(446.4,5,1,96,0)="P""turn TRAKKER off."""
|
|
^PRCT(446.4,5,1,97,0)="W5 ::Wait 5 seconds to allow view of message"
|
|
^PRCT(446.4,5,1,98,0)="G.START ::Go back and display main menu"
|
|
^PRCT(446.4,5,1,99,0)=" ::"
|
|
^PRCT(446.4,5,1,100,0)=" ::Entries at this point should look like:"
|
|
^PRCT(446.4,5,1,101,0)=" :: SP21-110, or"
|
|
^PRCT(446.4,5,1,102,0)=" :: 688 EE6798, or maybe"
|
|
^PRCT(446.4,5,1,103,0)=" :: 7832 EE659098"
|
|
^PRCT(446.4,5,1,104,0)=" ::Anything else needs to be rejected."
|
|
^PRCT(446.4,5,1,105,0)=".ENTER :: ENTER"
|
|
^PRCT(446.4,5,1,106,0)="H#1=I ::Set regist 1 to Num. of rec. in INV file"
|
|
^PRCT(446.4,5,1,107,0)="G#1>995.STOP ::If INV file full, no more entries"
|
|
^PRCT(446.4,5,1,108,0)="S#1>985.WARN ::If INV file almost full, warn user"
|
|
^PRCT(446.4,5,1,109,0)="D$0=""\e[2JRM: ""+V(2) ::Clear screen and display Room number"
|
|
^PRCT(446.4,5,1,110,0)="P$0 :: (cont)"
|
|
^PRCT(446.4,5,1,111,0)="D$0=""ID: ""+V(3) ::Display current identifier"
|
|
^PRCT(446.4,5,1,112,0)="P$0 :: (cont)"
|
|
^PRCT(446.4,5,1,113,0)="P""...Reader ready...\r\n"" ::Display input symbol for INV"
|
|
^PRCT(446.4,5,1,114,0)="D$0="""" ::Initialize input variable"
|
|
^PRCT(446.4,5,1,115,0)="A ::Allow user input of next equip id"
|
|
^PRCT(446.4,5,1,116,0)="DV(1)=$0 ::For safe keeping"
|
|
^PRCT(446.4,5,1,117,0)="G$0=""."".START ::If input is ""."", goto main menu"
|
|
^PRCT(446.4,5,1,118,0)="D$1=$0L2 ::First 2 char of input"
|
|
^PRCT(446.4,5,1,119,0)="G$1=""SP"".LOC ::Location label"
|
|
^PRCT(446.4,5,1,120,0)="G$0=""F4"".NOLBL ::Process item without barcode label"
|
|
^PRCT(446.4,5,1,121,0)="D#1=[$0] ::Is this a PM number?"
|
|
^PRCT(446.4,5,1,122,0)="S#1>8.PMN ::Maybe so, go check"
|
|
^PRCT(446.4,5,1,123,0)="GV(5)=""PM"".ENTPM ::It was a PM number"
|
|
^PRCT(446.4,5,1,124,0)="S.PARSE ::What is it? Should be EE label."
|
|
^PRCT(446.4,5,1,125,0)="SV(5)=""??"".HLP1 ::Not what we expected, print help and"
|
|
^PRCT(446.4,5,1,126,0)="GV(5)=""??"".ENTER ::try again"
|
|
^PRCT(446.4,5,1,127,0)=".ENTPM ::Tag to skip parsing"
|
|
^PRCT(446.4,5,1,128,0)="GV(2)="""".NOLOC ::Have EE label, but no open loc"
|
|
^PRCT(446.4,5,1,129,0)="GV(5)=""PM"".RECNX ::PM number and open loc; record"
|
|
^PRCT(446.4,5,1,130,0)="GV(4)=V(5).RECNX ::EE label and open loc; record"
|
|
^PRCT(446.4,5,1,131,0)="GV(5)=V(6).RECNX ::Alternate station #"
|
|
^PRCT(446.4,5,1,132,0)="GV(5)=V(7).RECNX ::Second alternate station #"
|
|
^PRCT(446.4,5,1,133,0)="GV(5)=V(8).RECNX ::Third alternate station #"
|
|
^PRCT(446.4,5,1,134,0)="GV(5)=V(9).RECNX ::Fourth alternate station #"
|
|
^PRCT(446.4,5,1,135,0)="GV(5)=V(10).RECNX ::Fifth alternate station #"
|
|
^PRCT(446.4,5,1,136,0)="GV(5)=V(11).RECNX ::Sixth alternate station #"
|
|
^PRCT(446.4,5,1,137,0)="GV(5)=V(12).RECNX ::Seventh alternate station #"
|
|
^PRCT(446.4,5,1,138,0)="GV(5)=V(13).RECNX ::Eighth alternate station #"
|
|
^PRCT(446.4,5,1,139,0)=".RPT ::In case we need to repeat"
|
|
^PRCT(446.4,5,1,140,0)="S.CLR ::exception message"
|
|
^PRCT(446.4,5,1,141,0)="P""WARNING...EE label"""
|
|
^PRCT(446.4,5,1,142,0)="B01"
|
|
^PRCT(446.4,5,1,143,0)="D$1=""is from VAMC ""+V(5) ::Show foreign station"
|
|
^PRCT(446.4,5,1,144,0)="P$1"
|
|
^PRCT(446.4,5,1,145,0)="P""To continue, press"" ::Next screen"
|
|
^PRCT(446.4,5,1,146,0)="P""<ENTER>..."""
|
|
^PRCT(446.4,5,1,147,0)="A ::Any char OK"
|
|
^PRCT(446.4,5,1,148,0)="S.CLR"
|
|
^PRCT(446.4,5,1,149,0)="P""Enter '1' to accept"""
|
|
^PRCT(446.4,5,1,150,0)="PV(1)"
|
|
^PRCT(446.4,5,1,151,0)="P""or '2' to reject it."""
|
|
^PRCT(446.4,5,1,152,0)="A1 ::Input 1 char"
|
|
^PRCT(446.4,5,1,153,0)="G$0=""1"".RECNX ::Add to file"
|
|
^PRCT(446.4,5,1,154,0)="G$0=""2"".ENTER ::Ignore it"
|
|
^PRCT(446.4,5,1,155,0)="G.RPT ::Repeat the question"
|
|
^PRCT(446.4,5,1,156,0)=" ::"
|
|
^PRCT(446.4,5,1,157,0)=".RECNX :: RECNX"
|
|
^PRCT(446.4,5,1,158,0)=" ::Add EE number to I"
|
|
^PRCT(446.4,5,1,159,0)="DV(3)=V(1) ::Update variable"
|
|
^PRCT(446.4,5,1,160,0)="D$0=V(1) ::Restore register"
|
|
^PRCT(446.4,5,1,161,0)="RI ::File EE number"
|
|
^PRCT(446.4,5,1,162,0)="DV(5)="""" ::Clear reg"
|
|
^PRCT(446.4,5,1,163,0)="G.ENTER ::Next scan"
|
|
^PRCT(446.4,5,1,164,0)=" ::"
|
|
^PRCT(446.4,5,1,165,0)=".NOLOC :: NOLOC"
|
|
^PRCT(446.4,5,1,166,0)="B1101 ::Audible signal"
|
|
^PRCT(446.4,5,1,167,0)="S.CLR ::EE label scanned before"
|
|
^PRCT(446.4,5,1,168,0)="P""Inventory process"" ::location"
|
|
^PRCT(446.4,5,1,169,0)="P""must begin with"""
|
|
^PRCT(446.4,5,1,170,0)="P""location label."""
|
|
^PRCT(446.4,5,1,171,0)="P""Press <ENTER>..."""
|
|
^PRCT(446.4,5,1,172,0)="A ::Accept any char"
|
|
^PRCT(446.4,5,1,173,0)="G.ENTER ::Try again"
|
|
^PRCT(446.4,5,1,174,0)=" ::"
|
|
^PRCT(446.4,5,1,175,0)=".NOLBL :: NOLBL"
|
|
^PRCT(446.4,5,1,176,0)="GV(2)="""".NOLOC ::No open loc; can't proceed"
|
|
^PRCT(446.4,5,1,177,0)="S.CLR ::Get text description of"
|
|
^PRCT(446.4,5,1,178,0)="P""Enter MODEL NUMBER:\r\n"" ::items without barcode"
|
|
^PRCT(446.4,5,1,179,0)="D$0="""""
|
|
^PRCT(446.4,5,1,180,0)="A ::labels"
|
|
^PRCT(446.4,5,1,181,0)="G$0=""^"".NLABRT ::User abort"
|
|
^PRCT(446.4,5,1,182,0)="D$2=$0 ::Temp save of mod in $2"
|
|
^PRCT(446.4,5,1,183,0)="S.CLR"
|
|
^PRCT(446.4,5,1,184,0)="P""Enter SERIAL NUMBER:"" ::Get serial #"
|
|
^PRCT(446.4,5,1,185,0)="D$0="""""
|
|
^PRCT(446.4,5,1,186,0)="A"
|
|
^PRCT(446.4,5,1,187,0)="G$0=""^"".NLABRT ::User abort"
|
|
^PRCT(446.4,5,1,188,0)="G$0="""".NLABRT"
|
|
^PRCT(446.4,5,1,189,0)="D$3=$0 ::Temp save of s/n in $3"
|
|
^PRCT(446.4,5,1,190,0)=".DESC ::Item description"
|
|
^PRCT(446.4,5,1,191,0)="S.CLR"
|
|
^PRCT(446.4,5,1,192,0)="P""Enter DESCRIPTION:\r\n"" ::Free text description"
|
|
^PRCT(446.4,5,1,193,0)="A ::40 char max because of fixed"
|
|
^PRCT(446.4,5,1,194,0)="D#0=[$0] ::record size"
|
|
^PRCT(446.4,5,1,195,0)="G#0<41.NOLBL1"
|
|
^PRCT(446.4,5,1,196,0)="S.CLR ::Clear screen for"
|
|
^PRCT(446.4,5,1,197,0)="P""ERROR Description"" ::error message"
|
|
^PRCT(446.4,5,1,198,0)="P""may not exceed 40"""
|
|
^PRCT(446.4,5,1,199,0)="P""characters."""
|
|
^PRCT(446.4,5,1,200,0)="P""Press <ENTER>..."" ::Wait for user resp"
|
|
^PRCT(446.4,5,1,201,0)="A ::Take anything"
|
|
^PRCT(446.4,5,1,202,0)="G.DESC ::Try again"
|
|
^PRCT(446.4,5,1,203,0)=".NOLBL1 ::Continue"
|
|
^PRCT(446.4,5,1,204,0)="D$1=$0 ::Shuffle the string"
|
|
^PRCT(446.4,5,1,205,0)="D$0=""MOD:""+$2 ::registers and file"
|
|
^PRCT(446.4,5,1,206,0)="RI ::user inputs"
|
|
^PRCT(446.4,5,1,207,0)="D$0=""S/N:""+$3"
|
|
^PRCT(446.4,5,1,208,0)="RI"
|
|
^PRCT(446.4,5,1,209,0)="D$0=$1"
|
|
^PRCT(446.4,5,1,210,0)="RI ::Filing complete"
|
|
^PRCT(446.4,5,1,211,0)=".NLABRT ::Jump here to skip filing"
|
|
^PRCT(446.4,5,1,212,0)="G.ENTER ::End of program segment"
|
|
^PRCT(446.4,5,1,213,0)=" ::"
|
|
^PRCT(446.4,5,1,214,0)=".PMN :: PMN"
|
|
^PRCT(446.4,5,1,215,0)="D$1=$0M1,5 ::Is this really a PM number?"
|
|
^PRCT(446.4,5,1,216,0)="G$1=""-"".PMN1 ::Apparently so"
|
|
^PRCT(446.4,5,1,217,0)="Q ::Not PM number, return"
|
|
^PRCT(446.4,5,1,218,0)=".PMN1 ::Assume NNNN-NNNN is PM#"
|
|
^PRCT(446.4,5,1,219,0)="DV(5)=""PM"" ::Set flag"
|
|
^PRCT(446.4,5,1,220,0)="DV(0)="""" ::Add prefix"
|
|
^PRCT(446.4,5,1,221,0)="DV(0)=V(1)"
|
|
^PRCT(446.4,5,1,222,0)="DV(1)="""""
|
|
^PRCT(446.4,5,1,223,0)="DV(1)=""PM#:""+V(0)"
|
|
^PRCT(446.4,5,1,224,0)="Q ::Return"
|
|
^PRCT(446.4,5,1,225,0)=" ::"
|
|
^PRCT(446.4,5,1,226,0)=".REVDEL :: REVDEL"
|
|
^PRCT(446.4,5,1,227,0)="H#1=I ::Get last"
|
|
^PRCT(446.4,5,1,228,0)="D#1=#1-1 ::record number"
|
|
^PRCT(446.4,5,1,229,0)=".LP10"
|
|
^PRCT(446.4,5,1,230,0)="G#1=0.START ::Can't go above first LOCATION"
|
|
^PRCT(446.4,5,1,231,0)="S.CLR"
|
|
^PRCT(446.4,5,1,232,0)="C$1=#1 ::Display"
|
|
^PRCT(446.4,5,1,233,0)="D$0=$1+"") "" ::content of"
|
|
^PRCT(446.4,5,1,234,0)="D$0=$0+I(#1) ::current record"
|
|
^PRCT(446.4,5,1,235,0)="DF(0)=$0 ::Truncate to"
|
|
^PRCT(446.4,5,1,236,0)="D$0=F(0) ::40 char"
|
|
^PRCT(446.4,5,1,237,0)="P$0"
|
|
^PRCT(446.4,5,1,238,0)="P""(D)elete, (Q)uit,"" ::Get instructions"
|
|
^PRCT(446.4,5,1,239,0)="P""or (C)ontinue..."""
|
|
^PRCT(446.4,5,1,240,0)="D$0="""" ::Clear input buffer"
|
|
^PRCT(446.4,5,1,241,0)="A1"
|
|
^PRCT(446.4,5,1,242,0)="G$0=""D"".LP20 ::Deletion"
|
|
^PRCT(446.4,5,1,243,0)="G$0=""Q"".START ::Back to main menu"
|
|
^PRCT(446.4,5,1,244,0)="G$0=""C"".LP30 ::Next record"
|
|
^PRCT(446.4,5,1,245,0)="P""Error. Must enter"""
|
|
^PRCT(446.4,5,1,246,0)="P""D, Q, or C."""
|
|
^PRCT(446.4,5,1,247,0)="P""To proceed, please"""
|
|
^PRCT(446.4,5,1,248,0)="P""press <ENTER>..."""
|
|
^PRCT(446.4,5,1,249,0)="D$0="""""
|
|
^PRCT(446.4,5,1,250,0)="A"
|
|
^PRCT(446.4,5,1,251,0)="G.LP10"
|
|
^PRCT(446.4,5,1,252,0)=".LP20 ::Physical deletion"
|
|
^PRCT(446.4,5,1,253,0)="S.CLR"
|
|
^PRCT(446.4,5,1,254,0)="P""Deleting record"""
|
|
^PRCT(446.4,5,1,255,0)="D$0=""number ""+$1"
|
|
^PRCT(446.4,5,1,256,0)="D$0=$0+""..."""
|
|
^PRCT(446.4,5,1,257,0)="P$0"
|
|
^PRCT(446.4,5,1,258,0)="W5"
|
|
^PRCT(446.4,5,1,259,0)="DI(#1)=""*****"" ::Deletion marker"
|
|
^PRCT(446.4,5,1,260,0)="P""(Q)uit or (C)ont?"" ::Get instructions"
|
|
^PRCT(446.4,5,1,261,0)="D$0="""""
|
|
^PRCT(446.4,5,1,262,0)="A1"
|
|
^PRCT(446.4,5,1,263,0)="G$0=""C"".LP25 ::Continue"
|
|
^PRCT(446.4,5,1,264,0)="G.START ::Back to main menu"
|
|
^PRCT(446.4,5,1,265,0)=".LP25 :: LP25"
|
|
^PRCT(446.4,5,1,266,0)="D#1=#1-1 ::Move file pointer"
|
|
^PRCT(446.4,5,1,267,0)="G.LP10"
|
|
^PRCT(446.4,5,1,268,0)=".LP30 :: LP30"
|
|
^PRCT(446.4,5,1,269,0)="D#1=#1-1 ::Move file pointer"
|
|
^PRCT(446.4,5,1,270,0)="G.LP10"
|
|
^PRCT(446.4,5,1,271,0)=" ::"
|
|
^PRCT(446.4,5,1,272,0)=".XMIT :: XMIT"
|
|
^PRCT(446.4,5,1,273,0)="D$0=""ENNX"" ::Define data identifier"
|
|
^PRCT(446.4,5,1,274,0)="XMP,$0 ::Transmit data identifier to host system"
|
|
^PRCT(446.4,5,1,275,0)="XMP,I ::Transmit INV file to host device"
|
|
^PRCT(446.4,5,1,276,0)="H#1=I ::Find how many records exist in INV file"
|
|
^PRCT(446.4,5,1,277,0)="C$0=#1 ::Set string variable to Number of Records"
|
|
^PRCT(446.4,5,1,278,0)="D$0=""***END***^""+$0 ::Setup End of File message"
|
|
^PRCT(446.4,5,1,279,0)="XMP,$0 ::Send End of File message to external device"
|
|
^PRCT(446.4,5,1,280,0)="YMN;1 ::Clear data buffer"
|
|
^PRCT(446.4,5,1,281,0)=".ASK :: ASK"
|
|
^PRCT(446.4,5,1,282,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,5,1,283,0)="P""Data xmitted, do"" ::Display confirmation of transmission message"
|
|
^PRCT(446.4,5,1,284,0)="P""you want to purge"" :: (cont)"
|
|
^PRCT(446.4,5,1,285,0)="P""the file (Y/N) ? "" :: (cont)"
|
|
^PRCT(446.4,5,1,286,0)="D$0="""" ::Initialize input variable"
|
|
^PRCT(446.4,5,1,287,0)="A ::Allow user input"
|
|
^PRCT(446.4,5,1,288,0)="G$0=""Y"".PUR ::If ""Y"", purge inventory file"
|
|
^PRCT(446.4,5,1,289,0)="G$0=""N"".START ::If user input is a ""N"", go back to main menu"
|
|
^PRCT(446.4,5,1,290,0)="G$0=""."".START ::If user input is a ""."", go back to main menu"
|
|
^PRCT(446.4,5,1,291,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,5,1,292,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,5,1,293,0)="P""Please enter a "" ::Display error message"
|
|
^PRCT(446.4,5,1,294,0)="P""Y or N."" :: (cont)"
|
|
^PRCT(446.4,5,1,295,0)="W3 ::Wait 5 seconds to allow view of message"
|
|
^PRCT(446.4,5,1,296,0)="G.ASK ::Go back and ask purge question"
|
|
^PRCT(446.4,5,1,297,0)=" ::"
|
|
^PRCT(446.4,5,1,298,0)=".PUR :: PUR"
|
|
^PRCT(446.4,5,1,299,0)="HI=0 ::Purge of INV file"
|
|
^PRCT(446.4,5,1,300,0)="HV=0 ::Purge of local variable file"
|
|
^PRCT(446.4,5,1,301,0)="B0 ::Sound beep one time"
|
|
^PRCT(446.4,5,1,302,0)="P""** File Purged **"" ::Inform user of purged file"
|
|
^PRCT(446.4,5,1,303,0)="W3 ::Wait three seconds to allow view of message"
|
|
^PRCT(446.4,5,1,304,0)="G.BEG ::Go back to begining of program"
|
|
^PRCT(446.4,5,1,305,0)=" ::"
|
|
^PRCT(446.4,5,1,306,0)=".CLR :: CLR"
|
|
^PRCT(446.4,5,1,307,0)="P""\e[2J"" ::Clear screen escape sequence"
|
|
^PRCT(446.4,5,1,308,0)="D$0="""" ::Clear input register"
|
|
^PRCT(446.4,5,1,309,0)="Q ::Quit subroutine"
|
|
^PRCT(446.4,5,1,310,0)=" ::"
|
|
^PRCT(446.4,5,1,311,0)=".WARN :: WARN"
|
|
^PRCT(446.4,5,1,312,0)="B0 ::Sound beep"
|
|
^PRCT(446.4,5,1,313,0)="P""\e[2J**** WARNING ****"" ::Clear screen and print warning message"
|
|
^PRCT(446.4,5,1,314,0)="P""Data file is almost"" :: (cont)"
|
|
^PRCT(446.4,5,1,315,0)="P""full. Please XMIT"" :: (cont)"
|
|
^PRCT(446.4,5,1,316,0)="P""data and purge file."" :: (cont)"
|
|
^PRCT(446.4,5,1,317,0)="W3 ::Wait three seconds to allow view of message"
|
|
^PRCT(446.4,5,1,318,0)="Q ::Quit subroutine"
|
|
^PRCT(446.4,5,1,319,0)=" ::"
|
|
^PRCT(446.4,5,1,320,0)=".STOP :: STOP"
|
|
^PRCT(446.4,5,1,321,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,5,1,322,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,5,1,323,0)="P""Sorry, data file is"" ::Print error message"
|
|
^PRCT(446.4,5,1,324,0)="P""FULL, you must XMIT"" :: (cont)"
|
|
^PRCT(446.4,5,1,325,0)="P""and purge file."" :: (cont)"
|
|
^PRCT(446.4,5,1,326,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,5,1,327,0)="G.START ::Go back to main menu"
|
|
^PRCT(446.4,5,1,328,0)=" ::"
|
|
^PRCT(446.4,5,1,329,0)=".DAT :: DAT"
|
|
^PRCT(446.4,5,1,330,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,5,1,331,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,5,1,332,0)="P""*** WARNING ***"" ::Print warning message of existing data"
|
|
^PRCT(446.4,5,1,333,0)="P""Data exists on"" :: (cont)"
|
|
^PRCT(446.4,5,1,334,0)="P""this barcode reader."" :: (cont)"
|
|
^PRCT(446.4,5,1,335,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,5,1,336,0)="S.CLR"
|
|
^PRCT(446.4,5,1,337,0)="P""The file ID is:"" ::Display file ID to user"
|
|
^PRCT(446.4,5,1,338,0)="D$0=I(0) ::Setup display of file ID"
|
|
^PRCT(446.4,5,1,339,0)="P$0 ::Print file id"
|
|
^PRCT(446.4,5,1,340,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,5,1,341,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,5,1,342,0)="P""Do you want to"" ::Query user to purge existing file"
|
|
^PRCT(446.4,5,1,343,0)="P""purge this file ..."" :: (cont)"
|
|
^PRCT(446.4,5,1,344,0)="P""... (Y/N) ? "" :: (cont)"
|
|
^PRCT(446.4,5,1,345,0)="D$0="""" ::Initialize input variable"
|
|
^PRCT(446.4,5,1,346,0)="A ::User input"
|
|
^PRCT(446.4,5,1,347,0)="G$0=""Y"".PUR ::If user input is a ""Y"", go and purge files"
|
|
^PRCT(446.4,5,1,348,0)="G$0=""N"".START ::If user input is a ""N"", go to main menu"
|
|
^PRCT(446.4,5,1,349,0)="G$0=""."".START ::If user input is a ""."", go to main menu"
|
|
^PRCT(446.4,5,1,350,0)="B00 ::Sound beep two times"
|
|
^PRCT(446.4,5,1,351,0)="S.CLR ::Clear screen"
|
|
^PRCT(446.4,5,1,352,0)="P""Please enter a "" ::Display error message"
|
|
^PRCT(446.4,5,1,353,0)="P""Y or N."" :: (cont)"
|
|
^PRCT(446.4,5,1,354,0)="W5 ::Wait five seconds to allow view of message"
|
|
^PRCT(446.4,5,1,355,0)="G.DAT ::Go back a existing data question"
|
|
^PRCT(446.4,5,1,356,0)=" ::"
|
|
^PRCT(446.4,5,1,357,0)=".LOC :: LOC"
|
|
^PRCT(446.4,5,1,358,0)=" ::Process location label in $0"
|
|
^PRCT(446.4,5,1,359,0)="SV(2)="""".NLOC ::No location presently open"
|
|
^PRCT(446.4,5,1,360,0)="SV(2)=$0.CLOC ::Location is open"
|
|
^PRCT(446.4,5,1,361,0)="G$0="""".LOCQ ::All is well"
|
|
^PRCT(446.4,5,1,362,0)="P""ERROR Must close"" ::Display error"
|
|
^PRCT(446.4,5,1,363,0)="B1101 ::message and sound alarm"
|
|
^PRCT(446.4,5,1,364,0)="PV(2)"
|
|
^PRCT(446.4,5,1,365,0)="P""before you may open"""
|
|
^PRCT(446.4,5,1,366,0)="P$0"
|
|
^PRCT(446.4,5,1,367,0)="W10 ::10 sec to read"
|
|
^PRCT(446.4,5,1,368,0)=".LOCQ ::Exit from subroutine"
|
|
^PRCT(446.4,5,1,369,0)="G.ENTER ::Next read"
|
|
^PRCT(446.4,5,1,370,0)=".NLOC :: NLOC"
|
|
^PRCT(446.4,5,1,371,0)="DV(2)=$0 ::Store new current location"
|
|
^PRCT(446.4,5,1,372,0)="RI ::Add new loc to file"
|
|
^PRCT(446.4,5,1,373,0)="D$0="""" ::All OK flag back to LOC"
|
|
^PRCT(446.4,5,1,374,0)="Q"
|
|
^PRCT(446.4,5,1,375,0)=".CLOC :: CLOC"
|
|
^PRCT(446.4,5,1,376,0)="DV(2)="""" ::Close current location"
|
|
^PRCT(446.4,5,1,377,0)="D$0="""" ::All OK flag back to LOC"
|
|
^PRCT(446.4,5,1,378,0)="DV(3)="""" ::Clear last EE for new loc"
|
|
^PRCT(446.4,5,1,379,0)="Q"
|
|
^PRCT(446.4,5,1,380,0)="G.ENTER"
|
|
^PRCT(446.4,5,1,381,0)=" ::"
|
|
^PRCT(446.4,5,1,382,0)=".PARSE :: PARSE"
|
|
^PRCT(446.4,5,1,383,0)="DV(5)="""""
|
|
^PRCT(446.4,5,1,384,0)="D#1=0 ::Initialize character count"
|
|
^PRCT(446.4,5,1,385,0)=".FNDBL ::Look for space"
|
|
^PRCT(446.4,5,1,386,0)="D#1=#1+1 ::Increment counter"
|
|
^PRCT(446.4,5,1,387,0)="D$1=$0M1,#1 ::Examine current char position"
|
|
^PRCT(446.4,5,1,388,0)="G$1="""".PARS1 ::Must not be any spaces"
|
|
^PRCT(446.4,5,1,389,0)="G$1="" "".PARS1 ::That's more like it"
|
|
^PRCT(446.4,5,1,390,0)="G.FNDBL ::Keep looping"
|
|
^PRCT(446.4,5,1,391,0)=".PARS1"
|
|
^PRCT(446.4,5,1,392,0)="S$1="""".ERR1 ::Can't be right"
|
|
^PRCT(446.4,5,1,393,0)="S$1="" "".PARS2 ::Continue"
|
|
^PRCT(446.4,5,1,394,0)="Q ::Return control to segment ENTER"
|
|
^PRCT(446.4,5,1,395,0)=" ::"
|
|
^PRCT(446.4,5,1,396,0)=".PARS2 :: PARS2 (2ND LEVEL)"
|
|
^PRCT(446.4,5,1,397,0)="D#2=[$0] ::Length of label"
|
|
^PRCT(446.4,5,1,398,0)="D#3=#1+1 ::Start of second piece"
|
|
^PRCT(446.4,5,1,399,0)="D#4=#2-#1 ::Length of second piece"
|
|
^PRCT(446.4,5,1,400,0)="D$1=$0M#4,#3 ::Set $1 to second piece"
|
|
^PRCT(446.4,5,1,401,0)="D$2=$1L2 ::Application code"
|
|
^PRCT(446.4,5,1,402,0)="G$2=""EE"".PARS3 ::Application code should be EE"
|
|
^PRCT(446.4,5,1,403,0)="DV(5)=""??"" ::Error condition"
|
|
^PRCT(446.4,5,1,404,0)="G.PARS4"
|
|
^PRCT(446.4,5,1,405,0)=".PARS3 ::Where we want to be"
|
|
^PRCT(446.4,5,1,406,0)="D#3=#1-1 ::Length of station number"
|
|
^PRCT(446.4,5,1,407,0)="DV(5)=$0L#3 ::Store station number from label"
|
|
^PRCT(446.4,5,1,408,0)=".PARS4 ::Re-entry from error condition"
|
|
^PRCT(446.4,5,1,409,0)="Q ::Return control to PARSE, passing V(5)"
|
|
^PRCT(446.4,5,1,410,0)=" ::"
|
|
^PRCT(446.4,5,1,411,0)=".ERR1 :: ERR1"
|
|
^PRCT(446.4,5,1,412,0)="DV(5)=""??"" ::Flag error for segment .ENTER"
|
|
^PRCT(446.4,5,1,413,0)="Q"
|
|
^PRCT(446.4,5,1,414,0)=" ::"
|
|
^PRCT(446.4,5,1,415,0)=".HLP1 :: HLP1"
|
|
^PRCT(446.4,5,1,416,0)="S.CLR ::Called from .ENTER if input"
|
|
^PRCT(446.4,5,1,417,0)="GV(1)=""?"".HLP12 ::is a question"
|
|
^PRCT(446.4,5,1,418,0)="P""** INVALID ENTRY **"" ::or is questionable"
|
|
^PRCT(446.4,5,1,419,0)="B1010 ::Audible signal"
|
|
^PRCT(446.4,5,1,420,0)="P""Press <ENTER> to"""
|
|
^PRCT(446.4,5,1,421,0)="P""continue, or enter"""
|
|
^PRCT(446.4,5,1,422,0)="P""'?' for help."""
|
|
^PRCT(446.4,5,1,423,0)="D$0="""""
|
|
^PRCT(446.4,5,1,424,0)="A ::User response"
|
|
^PRCT(446.4,5,1,425,0)="G$0="""".HLP1Q ::Help declined"
|
|
^PRCT(446.4,5,1,426,0)="D$0=$0L1 ::Look at first char"
|
|
^PRCT(446.4,5,1,427,0)=".HLP12 ::'?' to begin with"
|
|
^PRCT(446.4,5,1,428,0)="SV(1)=""?"".HLP2 ::More help"
|
|
^PRCT(446.4,5,1,429,0)="S$0=""?"".HLP2 ::Show help text"
|
|
^PRCT(446.4,5,1,430,0)=".HLP1Q ::Exit subroutine"
|
|
^PRCT(446.4,5,1,431,0)="Q"
|
|
^PRCT(446.4,5,1,432,0)=" ::"
|
|
^PRCT(446.4,5,1,433,0)=".HLP2 :: HLP2"
|
|
^PRCT(446.4,5,1,434,0)="D$0=V(2) ::Ck for location"
|
|
^PRCT(446.4,5,1,435,0)="G$0="""".HLP3"
|
|
^PRCT(446.4,5,1,436,0)="P""Expecting equipment"" ::Expanded help"
|
|
^PRCT(446.4,5,1,437,0)="P""id (ex:688 EE9372),"""
|
|
^PRCT(446.4,5,1,438,0)="P""PM #, or special"""
|
|
^PRCT(446.4,5,1,439,0)="P""function key F4."""
|
|
^PRCT(446.4,5,1,440,0)="W10 ::10 sec to read"
|
|
^PRCT(446.4,5,1,441,0)="P""Will also accept"""
|
|
^PRCT(446.4,5,1,442,0)="D$0=V(2) ::Display current"
|
|
^PRCT(446.4,5,1,443,0)="P$0 ::location"
|
|
^PRCT(446.4,5,1,444,0)="P""to close location"""
|
|
^PRCT(446.4,5,1,445,0)="P""or '.' to exit."""
|
|
^PRCT(446.4,5,1,446,0)="W10"
|
|
^PRCT(446.4,5,1,447,0)="Q"
|
|
^PRCT(446.4,5,1,448,0)=" :: HLP3"
|
|
^PRCT(446.4,5,1,449,0)=".HLP3"
|
|
^PRCT(446.4,5,1,450,0)="S.CLR ::No location"
|
|
^PRCT(446.4,5,1,451,0)="P""Inv. process must"""
|
|
^PRCT(446.4,5,1,452,0)="P""begin with a"""
|
|
^PRCT(446.4,5,1,453,0)="P""location label."""
|
|
^PRCT(446.4,5,1,454,0)="W10"
|
|
^PRCT(446.4,5,1,455,0)="Q"
|
|
^PRCT(446.4,5,1,456,0)=" ::"
|
|
^PRCT(446.4,5,1,457,0)="E ::End of program"
|
|
^PRCT(446.4,"B","EXPENDABLE PHYSICAL COUNT",1)=""
|
|
^PRCT(446.4,"B","EXPENDABLE USAGE",2)=""
|
|
^PRCT(446.4,"B","NON-EXPENDABLE",5)=""
|
|
^PRCT(446.4,"B","PREVENTIVE MAINTENANCE",4)=""
|
|
^PRCT(446.4,"C","ENNX",5)=""
|
|
^PRCT(446.4,"C","ENPM",4)=""
|
|
^PRCT(446.4,"C","PRCPH",1)=""
|
|
^PRCT(446.4,"C","PRCUS",2)=""
|
|
^PRCT(446.5,0)="CUSTOM LABEL^446.5^1^6"
|
|
^PRCT(446.5,1,0)="PRIMARY/SECONDARY LABEL^445^^^^5"
|
|
^PRCT(446.5,1,1,0)="^446.51^3^3^3070131^^^^"
|
|
^PRCT(446.5,1,1,1,0)="|1||7|"
|
|
^PRCT(446.5,1,1,2,0)="L:|3| R:|4| U:|5| OD:|2|"
|
|
^PRCT(446.5,1,1,3,0)="|6||8|"
|
|
^PRCT(446.5,1,2,0)="^446.52I^8^8"
|
|
^PRCT(446.5,1,2,1,0)="1^2^^^^^^^DESCRIPTION"
|
|
^PRCT(446.5,1,2,1,1)="S X=$E($$DESCR^PRCPUX1(D0,D1),1,33)"
|
|
^PRCT(446.5,1,2,2,0)="2^2^^1,.8^^^^^ON-DEMAND ITEM FLAG"
|
|
^PRCT(446.5,1,2,2,1)="S X=$S($$ODITEM^PRCPUX2(D0,D1)=""Y"":""Y"",1:""N"")"
|
|
^PRCT(446.5,1,2,3,0)="3^1^^1,9^^^^^LEVEL^^5"
|
|
^PRCT(446.5,1,2,4,0)="4^1^^1,10^^^^^REORDER POINT^^5"
|
|
^PRCT(446.5,1,2,5,0)="5^2^^^^^^^UNITS PER ISSUE"
|
|
^PRCT(446.5,1,2,5,1)="S X=$$UNIT^PRCPUX1(D0,D1,""/"")"
|
|
^PRCT(446.5,1,2,6,0)="6^2^^^^^^^ITEM NO."
|
|
^PRCT(446.5,1,2,6,1)="S X=""IE""_D0_"" ""_D1"
|
|
^PRCT(446.5,1,2,7,0)="7^1^^1,0^^^^^TEST"
|
|
^PRCT(446.5,1,2,8,0)="8^2^^^^^^^PAUSE"
|
|
^PRCT(446.5,1,2,8,1)="H 1"
|
|
^PRCT(446.5,1,3,0)="^^3^3^3070904"
|
|
^PRCT(446.5,1,3,1,0)="S PRCT=""1^1"" D XEC^PRCTLAB;Y1"
|
|
^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"
|
|
^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"
|
|
^PRCT(446.5,1,4,0)="^^13^13^3070904"
|
|
^PRCT(446.5,1,4,1,0)="S X="""" I '$D(PRCTSC) S PRCTSC=1 S PRCT=""5^1"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,1,4,2,0)="S PRCT=""5^2"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,1,4,3,0)="S X=$E($$DESCR^PRCPUX1(D0,D1),1,33)"
|
|
^PRCT(446.5,1,4,4,0)="S X=""L:"""
|
|
^PRCT(446.5,1,4,5,0)="S X="" R:"""
|
|
^PRCT(446.5,1,4,6,0)="S X="" U:"""
|
|
^PRCT(446.5,1,4,7,0)="S X=$$UNIT^PRCPUX1(D0,D1,""/"")"
|
|
^PRCT(446.5,1,4,8,0)="S X="" OD:"""
|
|
^PRCT(446.5,1,4,9,0)="S X=$S($$ODITEM^PRCPUX2(D0,D1)=""Y"":""Y"",1:""N"")"
|
|
^PRCT(446.5,1,4,10,0)="S X=""IE""_D0_"" ""_D1"
|
|
^PRCT(446.5,1,4,11,0)="H 1"
|
|
^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="""""
|
|
^PRCT(446.5,1,4,13,0)="S PRCT=""5^3"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,5,0)="TEST/LABEL 3X1^440^^^^5"
|
|
^PRCT(446.5,5,1,0)="^^3^3^2930222^^^^"
|
|
^PRCT(446.5,5,1,1,0)="THIS IS A TEST OF THE INTERMEC"
|
|
^PRCT(446.5,5,1,2,0)="8646 PRINTER WITH LABEL 3X1"
|
|
^PRCT(446.5,5,1,3,0)="0123456789"
|
|
^PRCT(446.5,5,3,0)="^^7^7^2950919"
|
|
^PRCT(446.5,5,3,1,0)="S PRCT=""5^1"" D XEC^PRCTLAB;Y1"
|
|
^PRCT(446.5,5,3,2,0)="S PRCT=""5^2"" D XEC^PRCTLAB;Y1"
|
|
^PRCT(446.5,5,3,3,0)="S PRCT=""5^3"" D XEC^PRCTLAB;C1"
|
|
^PRCT(446.5,5,3,4,0)="S PRCT=""5^4"" D XEC^PRCTLAB;C1"
|
|
^PRCT(446.5,5,3,5,0)="S PRCT=""5^5"" D XEC^PRCTLAB;C1"
|
|
^PRCT(446.5,5,3,6,0)="S PRCT=""5^6"" D XEC^PRCTLAB;Y1"
|
|
^PRCT(446.5,5,3,7,0)="S PRCT=""5^7"" D XEC^PRCTLAB;Y1"
|
|
^PRCT(446.5,5,4,0)="^^7^7^2950919"
|
|
^PRCT(446.5,5,4,1,0)="S X="""" I '$D(PRCTSC) S PRCTSC=1 S PRCT=""4^1"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,5,4,2,0)="S PRCT=""4^2"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,5,4,3,0)="S X=""THIS IS A TEST OF THE INTERMEC"""
|
|
^PRCT(446.5,5,4,4,0)="S X=""8646 PRINTER WITH LABEL 3X1"""
|
|
^PRCT(446.5,5,4,5,0)="S X=""0123456789"""
|
|
^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="""""
|
|
^PRCT(446.5,5,4,7,0)="S PRCT=""4^3"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,6,0)="EXPENDABLE INVENTORY^445^-PRCPULAB^^^5"
|
|
^PRCT(446.5,6,1,0)="^^3^3^2930319^^^^"
|
|
^PRCT(446.5,6,1,1,0)="|1||2|"
|
|
^PRCT(446.5,6,1,2,0)=" "
|
|
^PRCT(446.5,6,1,3,0)="|3|"
|
|
^PRCT(446.5,6,2,0)="^446.52I^3^3"
|
|
^PRCT(446.5,6,2,1,0)="1^1^^1,0^^^^^ITEM MULTIPLE"
|
|
^PRCT(446.5,6,2,2,0)="2^2^^1,.7^^^^^ITEM DESCRIPTION"
|
|
^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)"
|
|
^PRCT(446.5,6,2,3,0)="3^2^^1,.01^^^^^ITEM NO."
|
|
^PRCT(446.5,6,2,3,1)="S X=""IE""_D0_"" ""_D1"
|
|
^PRCT(446.5,6,3,0)="^^2^2^2960627"
|
|
^PRCT(446.5,6,3,1,0)="S PRCT=""6^1"" D XEC^PRCTLAB;Y1"
|
|
^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"
|
|
^PRCT(446.5,6,4,0)="^^7^7^2960627"
|
|
^PRCT(446.5,6,4,1,0)="S X="""" I '$D(PRCTSC) S PRCTSC=1 S PRCT=""5^1"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,6,4,2,0)="S PRCT=""5^2"" D SPC^PRCTLAB"
|
|
^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)"
|
|
^PRCT(446.5,6,4,4,0)="S X="" """
|
|
^PRCT(446.5,6,4,5,0)="S X=""IE""_D0_"" ""_D1"
|
|
^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="""""
|
|
^PRCT(446.5,6,4,7,0)="S PRCT=""5^3"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,8,0)="RUN IRL PROGRAM^^^^^5"
|
|
^PRCT(446.5,8,1,0)="^^3^3^2940913^^^^"
|
|
^PRCT(446.5,8,1,1,0)=" "
|
|
^PRCT(446.5,8,1,2,0)="RUN IRL PROGRAM"
|
|
^PRCT(446.5,8,1,3,0)="//"
|
|
^PRCT(446.5,8,2,0)="^446.52I^1^1"
|
|
^PRCT(446.5,8,2,1,0)="1^2^^^^^^^TEST"
|
|
^PRCT(446.5,8,2,1,1)="S X=X"
|
|
^PRCT(446.5,8,3,0)="^^7^7^2960627"
|
|
^PRCT(446.5,8,3,1,0)="S PRCT=""8^1"" D XEC^PRCTLAB;Y1"
|
|
^PRCT(446.5,8,3,2,0)="S PRCT=""8^2"" D XEC^PRCTLAB;Y1"
|
|
^PRCT(446.5,8,3,3,0)="S PRCT=""8^3"" D XEC^PRCTLAB;C1"
|
|
^PRCT(446.5,8,3,4,0)="S PRCT=""8^4"" D XEC^PRCTLAB;C1"
|
|
^PRCT(446.5,8,3,5,0)="S PRCT=""8^5"" D XEC^PRCTLAB;C1"
|
|
^PRCT(446.5,8,3,6,0)="S PRCT=""8^6"" D XEC^PRCTLAB;Y1"
|
|
^PRCT(446.5,8,3,7,0)="S PRCT=""8^7"" D XEC^PRCTLAB;Y1"
|
|
^PRCT(446.5,8,4,0)="^^7^7^2960627"
|
|
^PRCT(446.5,8,4,1,0)="S X="""" I '$D(PRCTSC) S PRCTSC=1 S PRCT=""5^1"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,8,4,2,0)="S PRCT=""5^2"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,8,4,3,0)="S X="" """
|
|
^PRCT(446.5,8,4,4,0)="S X=""RUN IRL PROGRAM"""
|
|
^PRCT(446.5,8,4,5,0)="S X=""//"""
|
|
^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="""""
|
|
^PRCT(446.5,8,4,7,0)="S PRCT=""5^3"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,14,0)="PRE-ODI PRIM/SECONDARY LABEL^445^^^^5"
|
|
^PRCT(446.5,14,1,0)="3"
|
|
^PRCT(446.5,14,1,1,0)="|1||7|"
|
|
^PRCT(446.5,14,1,2,0)="L:|3| R:|4| U:|5| V:|2|"
|
|
^PRCT(446.5,14,1,3,0)="|6||8|"
|
|
^PRCT(446.5,14,2,0)="^446.52I^8^8"
|
|
^PRCT(446.5,14,2,1,0)="1^2^^^^^^^DESCRIPTION"
|
|
^PRCT(446.5,14,2,1,1)="S X=$E($$DESCR^PRCPUX1(D0,D1),1,33)"
|
|
^PRCT(446.5,14,2,2,0)="2^2^^1,.4^^^^^MANDATORY SOURCE"
|
|
^PRCT(446.5,14,2,2,1)="S X=$E($$VENDOR^PRCPUX1(D0,D1),1,5)"
|
|
^PRCT(446.5,14,2,3,0)="3^1^^1,9^^^^^LEVEL^^5"
|
|
^PRCT(446.5,14,2,4,0)="4^1^^1,10^^^^^REORDER POINT^^5"
|
|
^PRCT(446.5,14,2,5,0)="5^2^^^^^^^UNITS PER ISSUE"
|
|
^PRCT(446.5,14,2,5,1)="S X=$$UNIT^PRCPUX1(D0,D1,""/"")"
|
|
^PRCT(446.5,14,2,6,0)="6^2^^^^^^^ITEM NO."
|
|
^PRCT(446.5,14,2,6,1)="S X=""IE""_D0_"" ""_D1"
|
|
^PRCT(446.5,14,2,7,0)="7^1^^1,0^^^^^TEST"
|
|
^PRCT(446.5,14,2,8,0)="8^2^^^^^^^PAUSE"
|
|
^PRCT(446.5,14,2,8,1)="H 1"
|
|
^PRCT(446.5,14,3,0)="^^3^3^2960627"
|
|
^PRCT(446.5,14,3,1,0)="S PRCT=""14^1"" D XEC^PRCTLAB;Y1"
|
|
^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"
|
|
^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"
|
|
^PRCT(446.5,14,4,0)="^^13^13^2960627"
|
|
^PRCT(446.5,14,4,1,0)="S X="""" I '$D(PRCTSC) S PRCTSC=1 S PRCT=""5^1"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,14,4,2,0)="S PRCT=""5^2"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,14,4,3,0)="S X=$E($$DESCR^PRCPUX1(D0,D1),1,33)"
|
|
^PRCT(446.5,14,4,4,0)="S X=""L:"""
|
|
^PRCT(446.5,14,4,5,0)="S X="" R:"""
|
|
^PRCT(446.5,14,4,6,0)="S X="" U:"""
|
|
^PRCT(446.5,14,4,7,0)="S X=$$UNIT^PRCPUX1(D0,D1,""/"")"
|
|
^PRCT(446.5,14,4,8,0)="S X="" V:"""
|
|
^PRCT(446.5,14,4,9,0)="S X=$E($$VENDOR^PRCPUX1(D0,D1),1,5)"
|
|
^PRCT(446.5,14,4,10,0)="S X=""IE""_D0_"" ""_D1"
|
|
^PRCT(446.5,14,4,11,0)="H 1"
|
|
^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="""""
|
|
^PRCT(446.5,14,4,13,0)="S PRCT=""5^3"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,15,0)="WAREHOUSE LABEL^445^^^^5"
|
|
^PRCT(446.5,15,1,0)="3^^3^3^2941209^"
|
|
^PRCT(446.5,15,1,1,0)="|1| U/I:|2||3|"
|
|
^PRCT(446.5,15,1,2,0)="|4|"
|
|
^PRCT(446.5,15,1,3,0)="|5||6|"
|
|
^PRCT(446.5,15,2,0)="^446.52I^6^6"
|
|
^PRCT(446.5,15,2,1,0)="1^2^^^^^^^NSN"
|
|
^PRCT(446.5,15,2,1,1)="S X=$$NSN^PRCPUX1(D1)"
|
|
^PRCT(446.5,15,2,2,0)="2^2^^^^^^^UNITS PER ISSUE"
|
|
^PRCT(446.5,15,2,2,1)="S X=$$UNIT^PRCPUX1(D0,D1,""/"")"
|
|
^PRCT(446.5,15,2,3,0)="3^1^^1,0^^^^^ITEM MULTIPLE"
|
|
^PRCT(446.5,15,2,4,0)="4^2^^^^^^^DESCRIPTION"
|
|
^PRCT(446.5,15,2,4,1)="S X=$E($$DESCR^PRCPUX1(D0,D1),1,34)"
|
|
^PRCT(446.5,15,2,5,0)="5^2^^^^^^^BARCODE"
|
|
^PRCT(446.5,15,2,5,1)="S X=""IE""_D0_"" ""_D1"
|
|
^PRCT(446.5,15,2,6,0)="6^2^^^^^^^PAUSE"
|
|
^PRCT(446.5,15,2,6,1)="H 1"
|
|
^PRCT(446.5,15,3,0)="^^3^3^2960627"
|
|
^PRCT(446.5,15,3,1,0)="S PRCT=""15^1"" D XEC^PRCTLAB;Y1"
|
|
^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"
|
|
^PRCT(446.5,15,3,3,0)="1,S PRCT=""15^9"" D XEC^PRCTLAB;Y1,S PRCT=""15^10"" D XEC^PRCTLAB;Y1"
|
|
^PRCT(446.5,15,4,0)="^^10^10^2960627"
|
|
^PRCT(446.5,15,4,1,0)="S X="""" I '$D(PRCTSC) S PRCTSC=1 S PRCT=""5^1"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,15,4,2,0)="S PRCT=""5^2"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,15,4,3,0)="S X=$$NSN^PRCPUX1(D1)"
|
|
^PRCT(446.5,15,4,4,0)="S X="" U/I:"""
|
|
^PRCT(446.5,15,4,5,0)="S X=$$UNIT^PRCPUX1(D0,D1,""/"")"
|
|
^PRCT(446.5,15,4,6,0)="S X=$E($$DESCR^PRCPUX1(D0,D1),1,34)"
|
|
^PRCT(446.5,15,4,7,0)="S X=""IE""_D0_"" ""_D1"
|
|
^PRCT(446.5,15,4,8,0)="H 1"
|
|
^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="""""
|
|
^PRCT(446.5,15,4,10,0)="S PRCT=""5^3"" D SPC^PRCTLAB"
|
|
^PRCT(446.5,"B","EXPENDABLE INVENTORY",6)=""
|
|
^PRCT(446.5,"B","PRE-ODI PRIM/SECONDARY LABEL",14)=""
|
|
^PRCT(446.5,"B","PRIMARY/SECONDARY LABEL",1)=""
|
|
^PRCT(446.5,"B","RUN IRL PROGRAM",8)=""
|
|
^PRCT(446.5,"B","TEST/LABEL 3X1",5)=""
|
|
^PRCT(446.5,"B","WAREHOUSE LABEL",15)=""
|
|
^PRCT(446.6,0)="SPECIALTY COMMANDS^446.6^6^4"
|
|
^PRCT(446.6,3,0)="TRAKKER 9440"
|
|
^PRCT(446.6,3,2,0)="^^1^1^2920922^^^^"
|
|
^PRCT(446.6,3,2,1,0)="!,""/$"",!,"".$1"",!,""$$"",!,""I"",!"
|
|
^PRCT(446.6,3,3,0)="^^1^1^2920922^^^^"
|
|
^PRCT(446.6,3,3,1,0)="!,""ER"",!,""//"",!"
|
|
^PRCT(446.6,4,0)="INTERMEC TRAKKER 9440"
|
|
^PRCT(446.6,4,2,0)="^^1^1^2920922^^^^"
|
|
^PRCT(446.6,4,2,1,0)="!,""/$"",!,"".$1"",!,""$$"",!,""I"",!"
|
|
^PRCT(446.6,4,3,0)="^^1^1^2920922^^^^"
|
|
^PRCT(446.6,4,3,1,0)="!,""ER"",!,""//"",!"
|
|
^PRCT(446.6,5,0)="LABEL 3X1/INTERMEC 8646"
|
|
^PRCT(446.6,5,1,0)="^^7^7^2930315^^^^"
|
|
^PRCT(446.6,5,1,1,0)="*2,*27,""P"",*3"
|
|
^PRCT(446.6,5,1,2,0)="*2,""E3;F3;"""
|
|
^PRCT(446.6,5,1,3,0)="""H0;o75,20;f3;c1;d0,34;h1;w1;"""
|
|
^PRCT(446.6,5,1,4,0)="""H1;o60,20;f3;c1;d0,34;h1;w1;"""
|
|
^PRCT(446.6,5,1,5,0)="""B2;o45,20;f3;c0;d0,15;h30;w1;i1;"""
|
|
^PRCT(446.6,5,1,6,0)="*3"
|
|
^PRCT(446.6,5,1,7,0)="*2,""R"",*3"
|
|
^PRCT(446.6,5,2,0)="^^1^1^2930315^^^^"
|
|
^PRCT(446.6,5,2,1,0)="*2,*27,""E3"",!,*24"
|
|
^PRCT(446.6,5,3,0)="^^1^1^2930315^^^^"
|
|
^PRCT(446.6,5,3,1,0)="*23,*3"
|
|
^PRCT(446.6,6,0)="JANUS2020"
|
|
^PRCT(446.6,6,2,0)="^^1^1^2951019^"
|
|
^PRCT(446.6,6,2,1,0)="""/$"",!,"".$1"",!"
|
|
^PRCT(446.6,6,3,0)="^^1^1^2951019^"
|
|
^PRCT(446.6,6,3,1,0)="!,$C(15),""ER"",$C(18),!"
|
|
^PRCT(446.6,"B","INTERMEC TRAKKER 9440",4)=""
|
|
^PRCT(446.6,"B","JANUS2020",6)=""
|
|
^PRCT(446.6,"B","LABEL 3X1/INTERMEC 8646",5)=""
|
|
^PRCT(446.6,"B","TRAKKER 9440",3)=""
|