- GMRCPP ;SLC/DCM - Print GMRC consult/request tracking protocols - List Manager routine ;5/20/98 14:20
- ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
- EN ; -- main entry point for GMRC PRINT CONSULT PROTOCOLS
- D EN^VALM("GMRC PRINT CONSULT PROTOCOLS")
- Q
- ;
- HDR ; -- header code
- S VALMHDR(1)=" CONSULT PROTOCOLS."
- S VALMHDR(2)="Protocol File (#101)"
- Q
- ;
- INIT ; -- init variables and list array
- K ^TMP("GMRCR",$J,"PCL")
- S DSPLINE=0,VALMAR="^TMP(""GMRCR"",$J,""PLIST"")"
- F LINE=1:1:GMRCCT S DSPLINE=$O(^TMP("GMRCR",$J,"PRL",DSPLINE)) Q:DSPLINE="" S DATA=^(DSPLINE,0) D SET^VALM10(LINE,DATA)
- S VALMCNT=GMRCCT
- K DATA,LINE,DSPLINE
- Q
- ;
- HELP ; -- help code
- S X="?" D DISP^XQORM1 W !!
- Q
- ;
- EXIT ; -- exit code
- K ^TMP("GMRCR",$J,"PRL")
- K GMRCCT,TAB
- Q
- ;
- EXPND ; -- expand code
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCPP 850 printed Feb 18, 2025@23:13:09 Page 2
- GMRCPP ;SLC/DCM - Print GMRC consult/request tracking protocols - List Manager routine ;5/20/98 14:20
- +1 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
- EN ; -- main entry point for GMRC PRINT CONSULT PROTOCOLS
- +1 DO EN^VALM("GMRC PRINT CONSULT PROTOCOLS")
- +2 QUIT
- +3 ;
- HDR ; -- header code
- +1 SET VALMHDR(1)=" CONSULT PROTOCOLS."
- +2 SET VALMHDR(2)="Protocol File (#101)"
- +3 QUIT
- +4 ;
- INIT ; -- init variables and list array
- +1 KILL ^TMP("GMRCR",$JOB,"PCL")
- +2 SET DSPLINE=0
- SET VALMAR="^TMP(""GMRCR"",$J,""PLIST"")"
- +3 FOR LINE=1:1:GMRCCT
- SET DSPLINE=$ORDER(^TMP("GMRCR",$JOB,"PRL",DSPLINE))
- if DSPLINE=""
- QUIT
- SET DATA=^(DSPLINE,0)
- DO SET^VALM10(LINE,DATA)
- +4 SET VALMCNT=GMRCCT
- +5 KILL DATA,LINE,DSPLINE
- +6 QUIT
- +7 ;
- HELP ; -- help code
- +1 SET X="?"
- DO DISP^XQORM1
- WRITE !!
- +2 QUIT
- +3 ;
- EXIT ; -- exit code
- +1 KILL ^TMP("GMRCR",$JOB,"PRL")
- +2 KILL GMRCCT,TAB
- +3 QUIT
- +4 ;
- EXPND ; -- expand code
- +1 QUIT
- +2 ;