- 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 Jan 18, 2025@02:48:01 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 ;