PRCTMES2.m

PRCTMES2 ;WISC@ALTOONA/RGY-MESSAGE TEXT ;3-7-91/17:48

 ;;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

 ;

SP S MES="SP" G S

 ;;Since you have associated 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 ---PRCTMES2   800     printed  Feb 18, 2025@23:45:43                                                                                                                                                                                                     Page 2

PRCTMES2  ;WISC@ALTOONA/RGY-MESSAGE TEXT ;3-7-91/17:48

 +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       ;

SP         SET MES="SP"

           GOTO S

 +1       ;;Since you have associated 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       ;;