PRCTMES1 ;WISC@ALTOONA/RGY-MESSAGE TEXT ;12.9.97
;;5.1;IFCAP;;Oct 20, 2000
;Per VHA Directive 10-93-142, this routine should not be modified.
S ;
W ! F PRCTHLP=1:1 S PRCTHLP1=$P($T(@MES+PRCTHLP),";",3) Q:PRCTHLP1="" W !,PRCTHLP1
W ! K MES,PRCTHLP1,PRCTHLP Q
;
REC S MES="REC" G S
;;*** Error, number of records read from barcode reader does not
;; equal the number transmitted. Please re-transmit the data.
;;
COM S MES="COM" G S
;;If you want to line up all comment lines (::) in you BARCODE program
;;at a certain column, enter the column you wish all comments to begin.
;;For example: If some of your comments begin at column 37 in some lines
;;and some comments begin at column 40 in other lines, you may want to
;;have all comments begin at column 35 for readability.
;;Valid choices are 30, 35, 40 and 45.
;;
WARN S MES="WARN" G S
;;### WARNING: When a program is sent to the barcode reader, ALL DATA
;;stored on the barcode reader will be LOST! Make sure that previous
;;users of this barcode reader have no need for data, if any, that
;;might exist on the reader.
;;
;;Please follow these steps:
;;
;;1) If you have not already done so, you may now connect the
;; barcode reader to the output device.
;;
;;2) After you have connected the barcode reader to the device, clear
;; the barcode reader by turning the reader off and back on.
;;
;;3) After you have completed the above steps, press the <RETURN>
;; key to start sending the IRL program to the bar code reader.
;; If you want to escape this option, enter a '^' and <RETURN>.
;;
;;OK, you must now enter either <RETURN> ...
;; ... or '^'<RETURN>:
;;
NODEV S MES="NODEV" G S
;;If you do NOT select a device for this data to be processed on, it will
;;not be processed.
;;
YN S MES="YN" G S
;;Anwer with a 1 for YES or 2 for NO.
;;
NONID S MES="NONID" G S
;;*** Data processor has NOT been tasked. Identifier is non-existent.
;;Please contact COMPUTER SYSTEMS MANAGER.
;;
NOTI S MES="NOTI" G S
;;*** Data processor has NOT been tasked. DATE/TIME OF DATA UPLOAD is
;;non-existent. Please contact COMPUTER SYSTEMS MANAGER.
;;
NORTN S MES="NORTN" G S
;;*** Data cannot be processed because a ROUTINE is non-existent.
;;Please contact COMPUTER SYSTEMS MANAGER.
;;
COM1 S MES="COM1" G S
;;*** Please key in the first line no. from which you want to align the
;;comments.
;;
COM2 S MES="COM2" G S
;;*** Please key in the last line no. to which you want to align the
;;comments.
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCTMES1 2606 printed Sep 23, 2025@19:55:24 Page 2
PRCTMES1 ;WISC@ALTOONA/RGY-MESSAGE TEXT ;12.9.97
+1 ;;5.1;IFCAP;;Oct 20, 2000
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
S ;
+1 WRITE !
FOR PRCTHLP=1:1
SET PRCTHLP1=$PIECE($TEXT(@MES+PRCTHLP),";",3)
if PRCTHLP1=""
QUIT
WRITE !,PRCTHLP1
+2 WRITE !
KILL MES,PRCTHLP1,PRCTHLP
QUIT
+3 ;
REC SET MES="REC"
GOTO S
+1 ;;*** Error, number of records read from barcode reader does not
+2 ;; equal the number transmitted. Please re-transmit the data.
+3 ;;
COM SET MES="COM"
GOTO S
+1 ;;If you want to line up all comment lines (::) in you BARCODE program
+2 ;;at a certain column, enter the column you wish all comments to begin.
+3 ;;For example: If some of your comments begin at column 37 in some lines
+4 ;;and some comments begin at column 40 in other lines, you may want to
+5 ;;have all comments begin at column 35 for readability.
+6 ;;Valid choices are 30, 35, 40 and 45.
+7 ;;
WARN SET MES="WARN"
GOTO S
+1 ;;### WARNING: When a program is sent to the barcode reader, ALL DATA
+2 ;;stored on the barcode reader will be LOST! Make sure that previous
+3 ;;users of this barcode reader have no need for data, if any, that
+4 ;;might exist on the reader.
+5 ;;
+6 ;;Please follow these steps:
+7 ;;
+8 ;;1) If you have not already done so, you may now connect the
+9 ;; barcode reader to the output device.
+10 ;;
+11 ;;2) After you have connected the barcode reader to the device, clear
+12 ;; the barcode reader by turning the reader off and back on.
+13 ;;
+14 ;;3) After you have completed the above steps, press the <RETURN>
+15 ;; key to start sending the IRL program to the bar code reader.
+16 ;; If you want to escape this option, enter a '^' and <RETURN>.
+17 ;;
+18 ;;OK, you must now enter either <RETURN> ...
+19 ;; ... or '^'<RETURN>:
+20 ;;
NODEV SET MES="NODEV"
GOTO S
+1 ;;If you do NOT select a device for this data to be processed on, it will
+2 ;;not be processed.
+3 ;;
YN SET MES="YN"
GOTO S
+1 ;;Anwer with a 1 for YES or 2 for NO.
+2 ;;
NONID SET MES="NONID"
GOTO S
+1 ;;*** Data processor has NOT been tasked. Identifier is non-existent.
+2 ;;Please contact COMPUTER SYSTEMS MANAGER.
+3 ;;
NOTI SET MES="NOTI"
GOTO S
+1 ;;*** Data processor has NOT been tasked. DATE/TIME OF DATA UPLOAD is
+2 ;;non-existent. Please contact COMPUTER SYSTEMS MANAGER.
+3 ;;
NORTN SET MES="NORTN"
GOTO S
+1 ;;*** Data cannot be processed because a ROUTINE is non-existent.
+2 ;;Please contact COMPUTER SYSTEMS MANAGER.
+3 ;;
COM1 SET MES="COM1"
GOTO S
+1 ;;*** Please key in the first line no. from which you want to align the
+2 ;;comments.
+3 ;;
COM2 SET MES="COM2"
GOTO S
+1 ;;*** Please key in the last line no. to which you want to align the
+2 ;;comments.
+3 ;;
