AFJXSFAL ;FO-OAKLAND/GMB-ALERT & VIEW PT INQUIRY ;1/17/96 13:16
;;5.1;Network Health Exchange;**31,32,33,34**;Jan 23, 1996
; Totally rewritten 11/2001. (Previously FJ/CWS.)
; Entry points:
; ENTER - Invoked by server option AFJXNHDONE
; PROCESS - Invoked when the user processes an alert set up by ENTER
ENTER ;
N XMZ,XMSER
D ALERT
S XMSER="S.AFJXNHDONE",XMZ=XQMSG D REMSBMSG^XMA1C
Q
ALERT ; Return alert to requestor
N AXREC,AXDUZ,AXDOM,AXI
S AXREC=$G(^XMB(3.9,XQMSG,2,1,0))
S AXDUZ=$P(AXREC,U,2)
S AXDOM=$S(XQSND["@":$P($P(XQSND,"@",2),">"),1:^XMB("NETNAME"))
S XQAROU="PROCESS^AFJXSFAL"
F AXI=3:1:($L(XQSUB," ")-1) Q:$P(XQSUB," ",AXI)?3N.E
S XQAMSG="NHE Results for "_$P(XQSUB," ",3,AXI)_" from "_$P(AXDOM,".",1)
S XQADATA=XQMSG
S XQA(AXDUZ)=""
S XQAID="AFJX"
D SETUP^XQALERT
Q
PROCESS ;
N ZTSAVE,AXMZ
S AXMZ=XQADATA
S ZTSAVE("AXMZ")=""
D EN^XUTMDEVQ("PRINT^AFJXSFAL","AFJX Print NHE Inquiry Results",.ZTSAVE)
Q
PRINT ;
N AXPAGE,AXHDR,AXI,AXREC,AXABORT
S AXI=3,(AXABORT,AXPAGE)=0
I $G(^XMB(3.9,AXMZ,2,2,0))'="" S AXHDR(1)=^(0),AXI=2
I $G(^XMB(3.9,AXMZ,2,3,0))'="" S AXHDR(2)=^(0),AXI=3
I $E(IOST,1,2)="C-" W @IOF
E W $C(13)
D HDR
F S AXI=$O(^XMB(3.9,AXMZ,2,AXI)) Q:'AXI S AXREC=^(AXI,0) D Q:AXABORT
. I $Y+3+($E(IOST,1,2)="C-")>IOSL D Q:AXABORT
. . I $E(IOST,1,2)="C-" W ! D PAGE^XMXUTIL(.AXABORT) Q:AXABORT
. . W @IOF D HDR
. W !,AXREC
Q
HDR ;
S AXPAGE=AXPAGE+1
W "NHE Results for ",$$NAME^XMXUTIL(DUZ),?70,$J("Page "_AXPAGE,9)
N I S I=0 F S I=$O(AXHDR(I)) Q:'I W !,AXHDR(I)
W !,$$REPEAT^XLFSTR("=",79)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HAFJXSFAL 1614 printed Dec 13, 2024@02:17:52 Page 2
AFJXSFAL ;FO-OAKLAND/GMB-ALERT & VIEW PT INQUIRY ;1/17/96 13:16
+1 ;;5.1;Network Health Exchange;**31,32,33,34**;Jan 23, 1996
+2 ; Totally rewritten 11/2001. (Previously FJ/CWS.)
+3 ; Entry points:
+4 ; ENTER - Invoked by server option AFJXNHDONE
+5 ; PROCESS - Invoked when the user processes an alert set up by ENTER
ENTER ;
+1 NEW XMZ,XMSER
+2 DO ALERT
+3 SET XMSER="S.AFJXNHDONE"
SET XMZ=XQMSG
DO REMSBMSG^XMA1C
+4 QUIT
ALERT ; Return alert to requestor
+1 NEW AXREC,AXDUZ,AXDOM,AXI
+2 SET AXREC=$GET(^XMB(3.9,XQMSG,2,1,0))
+3 SET AXDUZ=$PIECE(AXREC,U,2)
+4 SET AXDOM=$SELECT(XQSND["@":$PIECE($PIECE(XQSND,"@",2),">"),1:^XMB("NETNAME"))
+5 SET XQAROU="PROCESS^AFJXSFAL"
+6 FOR AXI=3:1:($LENGTH(XQSUB," ")-1)
if $PIECE(XQSUB," ",AXI)?3N.E
QUIT
+7 SET XQAMSG="NHE Results for "_$PIECE(XQSUB," ",3,AXI)_" from "_$PIECE(AXDOM,".",1)
+8 SET XQADATA=XQMSG
+9 SET XQA(AXDUZ)=""
+10 SET XQAID="AFJX"
+11 DO SETUP^XQALERT
+12 QUIT
PROCESS ;
+1 NEW ZTSAVE,AXMZ
+2 SET AXMZ=XQADATA
+3 SET ZTSAVE("AXMZ")=""
+4 DO EN^XUTMDEVQ("PRINT^AFJXSFAL","AFJX Print NHE Inquiry Results",.ZTSAVE)
+5 QUIT
PRINT ;
+1 NEW AXPAGE,AXHDR,AXI,AXREC,AXABORT
+2 SET AXI=3
SET (AXABORT,AXPAGE)=0
+3 IF $GET(^XMB(3.9,AXMZ,2,2,0))'=""
SET AXHDR(1)=^(0)
SET AXI=2
+4 IF $GET(^XMB(3.9,AXMZ,2,3,0))'=""
SET AXHDR(2)=^(0)
SET AXI=3
+5 IF $EXTRACT(IOST,1,2)="C-"
WRITE @IOF
+6 IF '$TEST
WRITE $CHAR(13)
+7 DO HDR
+8 FOR
SET AXI=$ORDER(^XMB(3.9,AXMZ,2,AXI))
if 'AXI
QUIT
SET AXREC=^(AXI,0)
Begin DoDot:1
+9 IF $Y+3+($EXTRACT(IOST,1,2)="C-")>IOSL
Begin DoDot:2
+10 IF $EXTRACT(IOST,1,2)="C-"
WRITE !
DO PAGE^XMXUTIL(.AXABORT)
if AXABORT
QUIT
+11 WRITE @IOF
DO HDR
End DoDot:2
if AXABORT
QUIT
+12 WRITE !,AXREC
End DoDot:1
if AXABORT
QUIT
+13 QUIT
HDR ;
+1 SET AXPAGE=AXPAGE+1
+2 WRITE "NHE Results for ",$$NAME^XMXUTIL(DUZ),?70,$JUSTIFY("Page "_AXPAGE,9)
+3 NEW I
SET I=0
FOR
SET I=$ORDER(AXHDR(I))
if 'I
QUIT
WRITE !,AXHDR(I)
+4 WRITE !,$$REPEAT^XLFSTR("=",79)
+5 QUIT
