| [613] | 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
|
|---|
