| 1 | GMRCCPRS ;SLC/DCM - Routine To Give Actions For Consults From The OE/RR Menu's ;9/14/98 13:39
|
|---|
| 2 | ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
|
|---|
| 3 | EN(GMRCDA) ;Entry point into routine. GMRCDA= File 123 IEN of consult to display.
|
|---|
| 4 | ;GMRCDA=IEN of consult from file 123
|
|---|
| 5 | N DFN
|
|---|
| 6 | 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)
|
|---|
| 7 | S TAB="",$P(TAB," ",30)="",BLK=0,LNCT=1,GMRCD=0,GMRCDT1="ALL",GMRCDT2=DT S:'$D(GMRCOER) GMRCOER=0
|
|---|
| 8 | K ^TMP("GMRCR",$J,"CS")
|
|---|
| 9 | D EN^GMRCMENU
|
|---|
| 10 | D SET^GMRCSLM1,INIT^GMRCALRT,HDR^GMRCALRT,END^GMRCSLM1
|
|---|
| 11 | D EN^VALM("GMRC ALLERT ACTION")
|
|---|
| 12 | K GMRCELIG,GMRCFSS,GMRCSS
|
|---|
| 13 | Q
|
|---|
