1 | AFJXSFAL ;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
|
---|
7 | ENTER ;
|
---|
8 | N XMZ,XMSER
|
---|
9 | D ALERT
|
---|
10 | S XMSER="S.AFJXNHDONE",XMZ=XQMSG D REMSBMSG^XMA1C
|
---|
11 | Q
|
---|
12 | ALERT ; 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
|
---|
25 | PROCESS ;
|
---|
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
|
---|
31 | PRINT ;
|
---|
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
|
---|
45 | HDR ;
|
---|
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
|
---|