GMRCCPRS ;SLC/DCM - Routine To Give Actions For Consults From The OE/RR Menu's ;9/14/98 13:39
;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
EN(GMRCDA) ;Entry point into routine. GMRCDA= File 123 IEN of consult to display.
;GMRCDA=IEN of consult from file 123
N DFN
S DFN=$P(^GMR(123,GMRCDA,0),"^",2),GMRCSS=$S($P(^GMR(123,GMRCDA,0),"^",5)]"":$P(^(0),"^",5),1:"Unknown"),^TMP("GMRCS",$J,GMRCDA)=$S(+GMRCSS:$P(^GMR(123.5,GMRCSS,0),"^",1),1:GMRCSS)
S TAB="",$P(TAB," ",30)="",BLK=0,LNCT=1,GMRCD=0,GMRCDT1="ALL",GMRCDT2=DT S:'$D(GMRCOER) GMRCOER=0
K ^TMP("GMRCR",$J,"CS")
D EN^GMRCMENU
D SET^GMRCSLM1,INIT^GMRCALRT,HDR^GMRCALRT,END^GMRCSLM1
D EN^VALM("GMRC ALLERT ACTION")
K GMRCELIG,GMRCFSS,GMRCSS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCCPRS 726 printed Dec 13, 2024@01:45:22 Page 2
GMRCCPRS ;SLC/DCM - Routine To Give Actions For Consults From The OE/RR Menu's ;9/14/98 13:39
+1 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
EN(GMRCDA) ;Entry point into routine. GMRCDA= File 123 IEN of consult to display.
+1 ;GMRCDA=IEN of consult from file 123
+2 NEW DFN
+3 SET DFN=$PIECE(^GMR(123,GMRCDA,0),"^",2)
SET GMRCSS=$SELECT($PIECE(^GMR(123,GMRCDA,0),"^",5)]"":$PIECE(^(0),"^",5),1:"Unknown")
SET ^TMP("GMRCS",$JOB,GMRCDA)=$SELECT(+GMRCSS:$PIECE(^GMR(123.5,GMRCSS,0),"^",1),1:GMRCSS)
+4 SET TAB=""
SET $PIECE(TAB," ",30)=""
SET BLK=0
SET LNCT=1
SET GMRCD=0
SET GMRCDT1="ALL"
SET GMRCDT2=DT
if '$DATA(GMRCOER)
SET GMRCOER=0
+5 KILL ^TMP("GMRCR",$JOB,"CS")
+6 DO EN^GMRCMENU
+7 DO SET^GMRCSLM1
DO INIT^GMRCALRT
DO HDR^GMRCALRT
DO END^GMRCSLM1
+8 DO EN^VALM("GMRC ALLERT ACTION")
+9 KILL GMRCELIG,GMRCFSS,GMRCSS
+10 QUIT
