source: WorldVistAEHR/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCALOR.m@ 1042

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1GMRCALOR ;SLC/DCM - Process a consult from an alert notification ;10/9/01 23:11
2 ;;3.0;CONSULT/REQUEST TRACKING;**1,17**;DEC 27, 1997
3EN(XQDFN,XQCON) ;process alert from notification screen - entry point to main routine
4 ;XQDFN=XQAID XQCON=XQADATA from CPRS alerts
5 I +$G(XQCON)<1 S GMRCQIT=1 Q
6 K XQAKILL,^TMP("GMRCR",$J,"CS"),^TMP("GMRCS",$J),^TMP("GMRCSLIST",$J)
7 S DFN=$P(XQDFN,",",2)
8 S (GMRCO,GMRCDA)=$S(XQCON=+XQCON:XQCON,$P(XQCON,";",3)?.N1",GMRC".E:+$P(XQCON,";",3),XQCON?1N.N1",GMRC".E:+XQCON,$P(XQCON,"|",2)["TIU(8925":+XQCON,$P(XQCON,"|",2)]"":+$P(XQCON,"|",2),1:$P($P(XQCON,";",3),",",1))
9 S GMRCSS=$S($P(^GMR(123,GMRCDA,0),"^",5)]"":$P(^(0),"^",5),1:"")
10 I $L(GMRCSS) S ^TMP("GMRCS",$J,GMRCSS)=$S(+GMRCSS:$P(^GMR(123.5,GMRCSS,0),"^",1),1:$O(^GMR(123.5,"B",GMRCSS,0)))
11 I $S('$L(GMRCSS):1,^TMP("GMRCS",$J,GMRCSS)="":1,1:0) S ^TMP("GMRCS",$J,1)="Unknown"
12 S TAB="",$P(TAB," ",30)="",BLK=0,LNCT=1,GMRCD=0,GMRCDT1="ALL",GMRCDT2=DT S:'$D(GMRCOER) GMRCOER=0
13 K ^TMP("GMRCR",$J,"CS")
14 D SET^GMRCSLM1,END^GMRCSLM1
15 K GMRCWARD,GMRCAD,GMRCSSNM
16 Q
17 ;
18GUI(XQDFN,XQCON) ;entry point for getting consult info for GUI interface
19 K ^TMP("GMRCR",$J,"CS")
20 S DFN=$P(XQDFN,",",2),GMRCDA=$P($P(XQCON,";",2),",")
21 S TAB="",$P(TAB," ",30)="",BLK=0,LNCT=1,GMRCD=0,GMRCDT1="ALL",GMRCDT2=0,GMRCOER=1
22 D SET^GMRCSLM1,END^GMRCSLM1
23 Q
Note: See TracBrowser for help on using the repository browser.