GMRCCPRS.m

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 ---GMRCCPRS   726     printed  Apr 09, 2024@20:50:17                                                                                                                                                                                                     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