GMRCSTAT ;SLC/DCM - List Manager Ancilliary routine - Restrict display of consults to a given status or satuses on List Manager Screen ;5/20/98 14:21
;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
;;This routine calles the appropriate routines to prompt for the status of consults to be printed in List Manager and call routines to collect that data
;;and reformat the List Manager global to print the data on the CRT.
EN ; -- main entry point for GMRCACTM CHANGE STATUS VIEW
I $D(IOTM),$D(IOBM),$D(IOSTBM) D FULL^VALM1
S GMRCQUIT=0
D STS^GMRCSLM Q:GMRCQUIT D AD^GMRCSLM1
D INIT,HDR
I $D(IOTM),$D(IOBM) S VALMBCK="R"
D EXIT
Q
;
HDR ; -- header code
D HDR^GMRCSLM
Q
;
INIT ; -- init variables and list array
K ^TMP("GMRCR",$J,"LIST")
S DSPLINE=0,VALMAR="^TMP(""GMRCR"",$J,""LIST"")"
F LINE=1:1:LNCT S DSPLINE=$O(^TMP("GMRCR",$J,"CS",DSPLINE)) Q:DSPLINE=""!(DSPLINE?1A.E) S DATA=^(DSPLINE,0) D SET^VALM10(LINE,DATA)
S VALMBCK="R",VALMPGE=1,VALMBG=1,VALMLST=LNCT
S VALMCNT=LNCT
K DSPLINE,DATA,LINE
Q
;
EXIT ;Kill off local variables and exit
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCSTAT 1098 printed Dec 13, 2024@01:47:20 Page 2
GMRCSTAT ;SLC/DCM - List Manager Ancilliary routine - Restrict display of consults to a given status or satuses on List Manager Screen ;5/20/98 14:21
+1 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
+2 ;;This routine calles the appropriate routines to prompt for the status of consults to be printed in List Manager and call routines to collect that data
+3 ;;and reformat the List Manager global to print the data on the CRT.
EN ; -- main entry point for GMRCACTM CHANGE STATUS VIEW
+1 IF $DATA(IOTM)
IF $DATA(IOBM)
IF $DATA(IOSTBM)
DO FULL^VALM1
+2 SET GMRCQUIT=0
+3 DO STS^GMRCSLM
if GMRCQUIT
QUIT
DO AD^GMRCSLM1
+4 DO INIT
DO HDR
+5 IF $DATA(IOTM)
IF $DATA(IOBM)
SET VALMBCK="R"
+6 DO EXIT
+7 QUIT
+8 ;
HDR ; -- header code
+1 DO HDR^GMRCSLM
+2 QUIT
+3 ;
INIT ; -- init variables and list array
+1 KILL ^TMP("GMRCR",$JOB,"LIST")
+2 SET DSPLINE=0
SET VALMAR="^TMP(""GMRCR"",$J,""LIST"")"
+3 FOR LINE=1:1:LNCT
SET DSPLINE=$ORDER(^TMP("GMRCR",$JOB,"CS",DSPLINE))
if DSPLINE=""!(DSPLINE?1A.E)
QUIT
SET DATA=^(DSPLINE,0)
DO SET^VALM10(LINE,DATA)
+4 SET VALMBCK="R"
SET VALMPGE=1
SET VALMBG=1
SET VALMLST=LNCT
+5 SET VALMCNT=LNCT
+6 KILL DSPLINE,DATA,LINE
+7 QUIT
+8 ;
EXIT ;Kill off local variables and exit
+1 QUIT
