Routine: GMRCSTAT

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

HDR ; -- header code

 D HDR^GMRCSLM

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

EXIT ;Kill off local variables and exit

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

GMRCSTAT.m