source: WorldVistAEHR/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCCPRS.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 713 bytes
Line 
1GMRCCPRS ;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
3EN(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
Note: See TracBrowser for help on using the repository browser.