source: WorldVistAEHR/trunk/r/NETWORK_HEALTH_EXCHANGE-AFJX/AFJXSFAL.m@ 701

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1AFJXSFAL ;FO-OAKLAND/GMB-ALERT & VIEW PT INQUIRY ;1/17/96 13:16
2 ;;5.1;Network Health Exchange;**31,32,33,34**;Jan 23, 1996
3 ; Totally rewritten 11/2001. (Previously FJ/CWS.)
4 ; Entry points:
5 ; ENTER - Invoked by server option AFJXNHDONE
6 ; PROCESS - Invoked when the user processes an alert set up by ENTER
7ENTER ;
8 N XMZ,XMSER
9 D ALERT
10 S XMSER="S.AFJXNHDONE",XMZ=XQMSG D REMSBMSG^XMA1C
11 Q
12ALERT ; Return alert to requestor
13 N AXREC,AXDUZ,AXDOM,AXI
14 S AXREC=$G(^XMB(3.9,XQMSG,2,1,0))
15 S AXDUZ=$P(AXREC,U,2)
16 S AXDOM=$S(XQSND["@":$P($P(XQSND,"@",2),">"),1:^XMB("NETNAME"))
17 S XQAROU="PROCESS^AFJXSFAL"
18 F AXI=3:1:($L(XQSUB," ")-1) Q:$P(XQSUB," ",AXI)?3N.E
19 S XQAMSG="NHE Results for "_$P(XQSUB," ",3,AXI)_" from "_$P(AXDOM,".",1)
20 S XQADATA=XQMSG
21 S XQA(AXDUZ)=""
22 S XQAID="AFJX"
23 D SETUP^XQALERT
24 Q
25PROCESS ;
26 N ZTSAVE,AXMZ
27 S AXMZ=XQADATA
28 S ZTSAVE("AXMZ")=""
29 D EN^XUTMDEVQ("PRINT^AFJXSFAL","AFJX Print NHE Inquiry Results",.ZTSAVE)
30 Q
31PRINT ;
32 N AXPAGE,AXHDR,AXI,AXREC,AXABORT
33 S AXI=3,(AXABORT,AXPAGE)=0
34 I $G(^XMB(3.9,AXMZ,2,2,0))'="" S AXHDR(1)=^(0),AXI=2
35 I $G(^XMB(3.9,AXMZ,2,3,0))'="" S AXHDR(2)=^(0),AXI=3
36 I $E(IOST,1,2)="C-" W @IOF
37 E W $C(13)
38 D HDR
39 F S AXI=$O(^XMB(3.9,AXMZ,2,AXI)) Q:'AXI S AXREC=^(AXI,0) D Q:AXABORT
40 . I $Y+3+($E(IOST,1,2)="C-")>IOSL D Q:AXABORT
41 . . I $E(IOST,1,2)="C-" W ! D PAGE^XMXUTIL(.AXABORT) Q:AXABORT
42 . . W @IOF D HDR
43 . W !,AXREC
44 Q
45HDR ;
46 S AXPAGE=AXPAGE+1
47 W "NHE Results for ",$$NAME^XMXUTIL(DUZ),?70,$J("Page "_AXPAGE,9)
48 N I S I=0 F S I=$O(AXHDR(I)) Q:'I W !,AXHDR(I)
49 W !,$$REPEAT^XLFSTR("=",79)
50 Q
Note: See TracBrowser for help on using the repository browser.