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