ENCTMES2 ;(WASH ISC)/RGY-Bar Code Label Help Text ;1-11-90
;;7.0;ENGINEERING;;Aug 17, 1993
;Copy of PRCTMES2 ;DH-WASH ISC
S ;
W ! F ENCTHLP=1:1 S ENCTHLP1=$P($T(@MES+ENCTHLP),";",3) Q:ENCTHLP1="" W !,ENCTHLP1
W ! K MES,ENCTHLP1,ENCTHLP Q
;
SP S MES="SP" G S
;;Since you have assoicated a file for this label, you must specify if
;;you want to SEARCH the file specified before SORTING or you just
;;want to SORT from the file.
;;
NOFIL S MES="NOFIL" G S
;; Opps, you have defined this parameter as TYPE of FIELD but you have
;; not defined the FILE for this label. Before you can input an actual
;; FIELD to print you need to define the FILE.
;;
COPY S MES="COPY" G S
;;Enter the number of copies that you want to print from 1-1000.
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENCTMES2 775 printed Sep 23, 2025@19:28:16 Page 2
ENCTMES2 ;(WASH ISC)/RGY-Bar Code Label Help Text ;1-11-90
+1 ;;7.0;ENGINEERING;;Aug 17, 1993
+2 ;Copy of PRCTMES2 ;DH-WASH ISC
S ;
+1 WRITE !
FOR ENCTHLP=1:1
SET ENCTHLP1=$PIECE($TEXT(@MES+ENCTHLP),";",3)
if ENCTHLP1=""
QUIT
WRITE !,ENCTHLP1
+2 WRITE !
KILL MES,ENCTHLP1,ENCTHLP
QUIT
+3 ;
SP SET MES="SP"
GOTO S
+1 ;;Since you have assoicated a file for this label, you must specify if
+2 ;;you want to SEARCH the file specified before SORTING or you just
+3 ;;want to SORT from the file.
+4 ;;
NOFIL SET MES="NOFIL"
GOTO S
+1 ;; Opps, you have defined this parameter as TYPE of FIELD but you have
+2 ;; not defined the FILE for this label. Before you can input an actual
+3 ;; FIELD to print you need to define the FILE.
+4 ;;
COPY SET MES="COPY"
GOTO S
+1 ;;Enter the number of copies that you want to print from 1-1000.
+2 ;;
