GMRCPR ;SLC/DCM - GMRC List Manager Routine - Get information for abbreviated print of GMRC protocols and format for List Manager ;5/20/98 14:20
;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
EN ; -- main entry point for GMRC PRINT ABBREV PROTOCOLS
D EN^VALM("GMRC PRINT ABBREV PROTOCOLS")
Q
;
HDR ; -- header code
S VALMHDR(1)=TAB_"GMRC PROTOCOL LIST"
S VALMHDR(2)="Consults/Request Tracking Protocols from file #101"
Q
;
INIT ; -- init variables and list array
S DSPLINE=0,VALMAR="^TMP(""GMRCR"",$J,""PSLIST"")"
F LINE=1:1:GMRCCT S DSPLINE=$O(^TMP("GMRCR",$J,"PRS",DSPLINE)) Q:DSPLINE="" S DATA=^(DSPLINE,0) D SET^VALM10(LINE,DATA)
K DATA,LINE,DSPLINE
S VALMCNT=30
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K ^TMP("GMRCR",$J,"PRS")
K TAB,GMRCCT
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCPR 869 printed Dec 13, 2024@01:46:47 Page 2
GMRCPR ;SLC/DCM - GMRC List Manager Routine - Get information for abbreviated print of GMRC protocols and format for List Manager ;5/20/98 14:20
+1 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
EN ; -- main entry point for GMRC PRINT ABBREV PROTOCOLS
+1 DO EN^VALM("GMRC PRINT ABBREV PROTOCOLS")
+2 QUIT
+3 ;
HDR ; -- header code
+1 SET VALMHDR(1)=TAB_"GMRC PROTOCOL LIST"
+2 SET VALMHDR(2)="Consults/Request Tracking Protocols from file #101"
+3 QUIT
+4 ;
INIT ; -- init variables and list array
+1 SET DSPLINE=0
SET VALMAR="^TMP(""GMRCR"",$J,""PSLIST"")"
+2 FOR LINE=1:1:GMRCCT
SET DSPLINE=$ORDER(^TMP("GMRCR",$JOB,"PRS",DSPLINE))
if DSPLINE=""
QUIT
SET DATA=^(DSPLINE,0)
DO SET^VALM10(LINE,DATA)
+3 KILL DATA,LINE,DSPLINE
+4 SET VALMCNT=30
+5 QUIT
+6 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("GMRCR",$JOB,"PRS")
+2 KILL TAB,GMRCCT
+3 QUIT
+4 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
