Routine: GMRCSSP

GMRCSSP ;SLC/DCM - List Manager Format Routine To Collect Pharmacy TPN Consults that are Not Completed Or Have Been Discontinued ;5/20/98  14:21

 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997

EN ;;Main entry point for List Manager Interface

 K GMRCQUT S GMRCDFNS=$S('$D(DFN):0,1:DFN),GMRCFL=1

 D SP^GMRCSLM I $S($D(GMRCQUT):1,'$D(DFN):1,1:0) D QUIT S GMRCQUT=1 Q

 K ^TMP("GMRCS",$J)

 S GMRCSSNM="PHARMACY SERVICE",GMRCSVCN=$O(^GMR(123.5,"B",GMRCSSNM,0)) I GMRCSVCN="" S GMRCQUT=1 S GMRCMSG="Pharmacy Service Does Not Exist In The Consults Service File!" D EXAC^GMRCADC(GMRCMSG),QUIT Q

 S ^TMP("GMRCS",$J,GMRCSVCN)=GMRCSSNM

 D ^GMRCSPD I $D(GMRCQUT) D QUIT Q  ;Get date ranges

 D AD^GMRCSLM1

QUIT ;;Kill off variables and quit

 I $D(GMRCTM),$D(GMRCBM),$D(IOSTBM) S IOTM=GMRCTM,IOBM=GMRCBM K GMRCTM,GMRCBM

 K DFN1,GMRCDFNS,GMRCMSG,ORIFN,DFNS,GMRCFL,GMRCS1,GMRCS2

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCSSP   882     printed  Mar 13, 2025@20:51:57                                                                                                                                                                                                      Page 2

GMRCSSP   ;SLC/DCM - List Manager Format Routine To Collect Pharmacy TPN Consults that are Not Completed Or Have Been Discontinued ;5/20/98  14:21

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997

EN        ;;Main entry point for List Manager Interface

 +1        KILL GMRCQUT

           SET GMRCDFNS=$SELECT('$DATA(DFN):0,1:DFN)

           SET GMRCFL=1

 +2        DO SP^GMRCSLM

           IF $SELECT($DATA(GMRCQUT):1,'$DATA(DFN):1,1:0)

               DO QUIT

               SET GMRCQUT=1

               QUIT

 +3        KILL ^TMP("GMRCS",$JOB)

 +4        SET GMRCSSNM="PHARMACY SERVICE"

           SET GMRCSVCN=$ORDER(^GMR(123.5,"B",GMRCSSNM,0))

           IF GMRCSVCN=""

               SET GMRCQUT=1

               SET GMRCMSG="Pharmacy Service Does Not Exist In The Consults Service File!"

               DO EXAC^GMRCADC(GMRCMSG)

               DO QUIT

               QUIT

 +5        SET ^TMP("GMRCS",$JOB,GMRCSVCN)=GMRCSSNM

 +6       ;Get date ranges

           DO ^GMRCSPD

           IF $DATA(GMRCQUT)

               DO QUIT

               QUIT

 +7        DO AD^GMRCSLM1

QUIT      ;;Kill off variables and quit

 +1        IF $DATA(GMRCTM)

               IF $DATA(GMRCBM)

                   IF $DATA(IOSTBM)

                       SET IOTM=GMRCTM

                       SET IOBM=GMRCBM

                       KILL GMRCTM,GMRCBM

 +2        KILL DFN1,GMRCDFNS,GMRCMSG,ORIFN,DFNS,GMRCFL,GMRCS1,GMRCS2

 +3        QUIT

GMRCSSP.m