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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCSSP 882 printed Sep 23, 2025@19:23:20 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
