ENCTMES2.m

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 ---ENCTMES2   775     printed  Mar 13, 2025@20:56:54                                                                                                                                                                                                     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       ;;