1 | HDISVM00 ;BPFO/JRP - SERVER TO RECEIVE XML MESSAGE;1/4/2005
|
---|
2 | ;;1.0;HEALTH DATA & INFORMATICS;**6**;Feb 22, 2005
|
---|
3 | ;
|
---|
4 | XML ;Main entry point for XML server options
|
---|
5 | ; Input: (As defined by MailMan and Kernel)
|
---|
6 | ; XMREC - Executable code to "read" next line of message
|
---|
7 | ; XQSUB - Subject of received message
|
---|
8 | ; XQSOP - Server option name
|
---|
9 | ; XQMSG,XMZ - Msg IEN in file 3.9
|
---|
10 | ; XQSND,XMFROM - Msg sender
|
---|
11 | ;Output: None
|
---|
12 | ; Note: Input is not checked (assumes existence)
|
---|
13 | ;
|
---|
14 | N XMLARR,PRSARR,ERRARR,STOP,LINE,TYPE
|
---|
15 | ;Establish temporary globals
|
---|
16 | S XMLARR=$NA(^TMP(XQSOP,$J,"XML"))
|
---|
17 | S PRSARR=$NA(^TMP(XQSOP,$J,"PARSED"))
|
---|
18 | S ERRARR=$NA(^TMP(XQSOP,$J,"ERROR"))
|
---|
19 | K @XMLARR,@PRSARR,@ERRARR
|
---|
20 | ;Copy message to temporary global
|
---|
21 | S STOP=0
|
---|
22 | F LINE=1:1 D Q:STOP
|
---|
23 | .X XMREC
|
---|
24 | .I $D(XMER) I (XMER<0) S STOP=1 Q
|
---|
25 | .S @XMLARR@(LINE)=XMRG
|
---|
26 | ;Parse message
|
---|
27 | D SAX^HDISVM01(XMLARR,PRSARR)
|
---|
28 | ;Get type of system out of parameter file
|
---|
29 | S TYPE=+$$GETTYPE^HDISVF02()
|
---|
30 | ;Process messages on centralized server
|
---|
31 | I TYPE=2 D MAIN^HDISVS00(PRSARR,ERRARR)
|
---|
32 | ;Process messages on VistA (client) system
|
---|
33 | I TYPE=1 D MAIN^HDISVC00(PRSARR,ERRARR)
|
---|
34 | ;Error(s) occurred
|
---|
35 | I $D(@ERRARR) D
|
---|
36 | .;Send error message
|
---|
37 | .D ERROR(ERRARR,XQMSG,XQSOP,XMFROM)
|
---|
38 | .;Set message status
|
---|
39 | .S X=$$SRVTIME^XMS1(XQMSG,"S."_XQSOP,"ERROR FOUND DURING PROCESSING")
|
---|
40 | ;Delete message (don't delete if errors found)
|
---|
41 | I '$D(@ERRARR) D ZAPSERV^XMXAPI("S."_XQSOP,XQMSG)
|
---|
42 | ;Done
|
---|
43 | K @XMLARR,@PRSARR,@ERRARR
|
---|
44 | Q
|
---|
45 | ;
|
---|
46 | ERROR(ERRARR,MSGNUM,SRVR,SNDR) ;Send error message
|
---|
47 | ; Input : ERRARR - Error array (closed root)
|
---|
48 | ; MSGNUM - Message number of received message (XMZ)
|
---|
49 | ; SRVR - Name of server option (XQSOP)
|
---|
50 | ; SNDR - Sender of message (XMFROM)
|
---|
51 | ;Output : None
|
---|
52 | ; Notes : Existance/validity of input assumed (internal call)
|
---|
53 | N NAME,HDISPRAM,HDISFLAG,HDISTASK
|
---|
54 | ;Set bulletin parameters
|
---|
55 | S HDISPRAM(1)=MSGNUM
|
---|
56 | S HDISPRAM(2)=SNDR
|
---|
57 | S HDISPRAM(3)=SRVR
|
---|
58 | ;Send bulletin
|
---|
59 | S NAME="HDIS XML MSG PROCESS ERROR"
|
---|
60 | S HDISFLAG("FROM")="HDIS XML MESSAGE SERVER"
|
---|
61 | D TASKBULL^XMXAPI(DUZ,NAME,.HDISPRAM,ERRARR,,.HDISFLAG,.HDISTASK)
|
---|
62 | I $G(XMERR) D
|
---|
63 | .;Error generating bulletin - log error text
|
---|
64 | .D ERR2XTMP^HDISVU01("HDI-XM","Server error bulletin",$NA(^TMP("XMERR",$J)))
|
---|
65 | .K XMERR,^TMP("XMERR",$J)
|
---|
66 | Q
|
---|