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 ---[H[J[2J[HPRCTMES2 800 printed Dec 13, 2024@02:19:21 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 ;;
