88 lines
2.3 KiB
Mathematica
88 lines
2.3 KiB
Mathematica
VAQBUL05 ;ALB/JRP - BULLETINS;2-JUNE-93
|
|
;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|
XMITERR ;SENDS BULLETIN FOR MESSAGE RECEIVING ERRORS
|
|
; DECLARATIONS DONE IN SERVER^VAQADM2
|
|
S LINE=1
|
|
S @XMIT@(LINE,0)="The following error(s) occurred while receiving a PDX transmission ..."
|
|
S LINE=LINE+1
|
|
F TMP=1:1:2 S @XMIT@(LINE,0)="",LINE=LINE+1
|
|
;PUT IN GENERAL INFO
|
|
S TMP="General Information"
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
S TMP=$$REPEAT^VAQUTL1("-",19)
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
S TMP="XMZ: "_$G(XMZ)
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
S TMP="Global Location: ^XMB(3.9,"_$G(XMZ)_")"
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
S TMP="Postmaster Basket: S.VAQ-PDX-SERVER"
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
S TMP="Sent By: "_$G(XMFROM)
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
F TMP=1:1:2 S @XMIT@(LINE,0)="",LINE=LINE+1
|
|
;PUT IN GENERAL ERROR INFO
|
|
S TMP="General Error"
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
S TMP=$$REPEAT^VAQUTL1("-",13)
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
S XMPOS=LINE
|
|
S TMP=""
|
|
F S TMP=+$O(@ERROR@("GENERAL",TMP)) Q:('TMP) D
|
|
.S @XMIT@(LINE,0)=$G(@ERROR@("GENERAL",TMP))
|
|
.S LINE=LINE+1
|
|
I (XMPOS=LINE) D
|
|
.S TMP="Not applicable"
|
|
.S @XMIT@(LINE,0)=TMP
|
|
.S LINE=LINE+1
|
|
F TMP=1:1:2 S @XMIT@(LINE,0)="",LINE=LINE+1
|
|
;PUT IN SPECIFIC ERROR INFO
|
|
S TMP="Specific Error(s)"
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
S TMP=$$REPEAT^VAQUTL1("-",17)
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
S XMPOS=LINE
|
|
S MESSAGE=""
|
|
F S MESSAGE=+$O(@ERROR@(MESSAGE)) Q:('MESSAGE) D
|
|
.S TMP="Message Number: "_MESSAGE
|
|
.S @XMIT@(LINE,0)=TMP
|
|
.S LINE=LINE+1
|
|
.S TMP=""
|
|
.F S TMP=+$O(@ERROR@(MESSAGE,TMP)) Q:('TMP) D
|
|
..S @XMIT@(LINE,0)=$G(@ERROR@(MESSAGE,TMP))
|
|
..S LINE=LINE+1
|
|
.S TMP=""
|
|
.S @XMIT@(LINE,0)=TMP
|
|
.S LINE=LINE+1
|
|
I (XMPOS=LINE) D
|
|
.S TMP="Not applicable"
|
|
.S @XMIT@(LINE,0)=TMP
|
|
.S LINE=LINE+1
|
|
F TMP=1:1:2 S @XMIT@(LINE,0)="",LINE=LINE+1
|
|
;PUT IN NOTE
|
|
S TMP="Note: Each PDX transmission can contain more than one PDX message. Message"
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
S TMP=" number X refers to the Xth message within the transmission (not the"
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
S TMP=" XMZ)."
|
|
S @XMIT@(LINE,0)=TMP
|
|
S LINE=LINE+1
|
|
;SEND BULLETIN
|
|
S XMY("G.VAQ PDX ERRORS")=""
|
|
S TYPE="UNABLE TO PROPERLY RECEIVE TRANSMISSION"
|
|
S TMP="Patient Data eXchange"
|
|
S XMER=$$SENDBULL^VAQBUL(TYPE,"PDX",TMP,XMIT)
|
|
S:(XMER>0) XMER=0
|
|
Q
|