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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQBUL05 2465 printed Nov 22, 2024@17:34:41 Page 2
VAQBUL05 ;ALB/JRP - BULLETINS;2-JUNE-93
+1 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
XMITERR ;SENDS BULLETIN FOR MESSAGE RECEIVING ERRORS
+1 ; DECLARATIONS DONE IN SERVER^VAQADM2
+2 SET LINE=1
+3 SET @XMIT@(LINE,0)="The following error(s) occurred while receiving a PDX transmission ..."
+4 SET LINE=LINE+1
+5 FOR TMP=1:1:2
SET @XMIT@(LINE,0)=""
SET LINE=LINE+1
+6 ;PUT IN GENERAL INFO
+7 SET TMP="General Information"
+8 SET @XMIT@(LINE,0)=TMP
+9 SET LINE=LINE+1
+10 SET TMP=$$REPEAT^VAQUTL1("-",19)
+11 SET @XMIT@(LINE,0)=TMP
+12 SET LINE=LINE+1
+13 SET TMP="XMZ: "_$GET(XMZ)
+14 SET @XMIT@(LINE,0)=TMP
+15 SET LINE=LINE+1
+16 SET TMP="Global Location: ^XMB(3.9,"_$GET(XMZ)_")"
+17 SET @XMIT@(LINE,0)=TMP
+18 SET LINE=LINE+1
+19 SET TMP="Postmaster Basket: S.VAQ-PDX-SERVER"
+20 SET @XMIT@(LINE,0)=TMP
+21 SET LINE=LINE+1
+22 SET TMP="Sent By: "_$GET(XMFROM)
+23 SET @XMIT@(LINE,0)=TMP
+24 SET LINE=LINE+1
+25 FOR TMP=1:1:2
SET @XMIT@(LINE,0)=""
SET LINE=LINE+1
+26 ;PUT IN GENERAL ERROR INFO
+27 SET TMP="General Error"
+28 SET @XMIT@(LINE,0)=TMP
+29 SET LINE=LINE+1
+30 SET TMP=$$REPEAT^VAQUTL1("-",13)
+31 SET @XMIT@(LINE,0)=TMP
+32 SET LINE=LINE+1
+33 SET XMPOS=LINE
+34 SET TMP=""
+35 FOR
SET TMP=+$ORDER(@ERROR@("GENERAL",TMP))
if ('TMP)
QUIT
Begin DoDot:1
+36 SET @XMIT@(LINE,0)=$GET(@ERROR@("GENERAL",TMP))
+37 SET LINE=LINE+1
End DoDot:1
+38 IF (XMPOS=LINE)
Begin DoDot:1
+39 SET TMP="Not applicable"
+40 SET @XMIT@(LINE,0)=TMP
+41 SET LINE=LINE+1
End DoDot:1
+42 FOR TMP=1:1:2
SET @XMIT@(LINE,0)=""
SET LINE=LINE+1
+43 ;PUT IN SPECIFIC ERROR INFO
+44 SET TMP="Specific Error(s)"
+45 SET @XMIT@(LINE,0)=TMP
+46 SET LINE=LINE+1
+47 SET TMP=$$REPEAT^VAQUTL1("-",17)
+48 SET @XMIT@(LINE,0)=TMP
+49 SET LINE=LINE+1
+50 SET XMPOS=LINE
+51 SET MESSAGE=""
+52 FOR
SET MESSAGE=+$ORDER(@ERROR@(MESSAGE))
if ('MESSAGE)
QUIT
Begin DoDot:1
+53 SET TMP="Message Number: "_MESSAGE
+54 SET @XMIT@(LINE,0)=TMP
+55 SET LINE=LINE+1
+56 SET TMP=""
+57 FOR
SET TMP=+$ORDER(@ERROR@(MESSAGE,TMP))
if ('TMP)
QUIT
Begin DoDot:2
+58 SET @XMIT@(LINE,0)=$GET(@ERROR@(MESSAGE,TMP))
+59 SET LINE=LINE+1
End DoDot:2
+60 SET TMP=""
+61 SET @XMIT@(LINE,0)=TMP
+62 SET LINE=LINE+1
End DoDot:1
+63 IF (XMPOS=LINE)
Begin DoDot:1
+64 SET TMP="Not applicable"
+65 SET @XMIT@(LINE,0)=TMP
+66 SET LINE=LINE+1
End DoDot:1
+67 FOR TMP=1:1:2
SET @XMIT@(LINE,0)=""
SET LINE=LINE+1
+68 ;PUT IN NOTE
+69 SET TMP="Note: Each PDX transmission can contain more than one PDX message. Message"
+70 SET @XMIT@(LINE,0)=TMP
+71 SET LINE=LINE+1
+72 SET TMP=" number X refers to the Xth message within the transmission (not the"
+73 SET @XMIT@(LINE,0)=TMP
+74 SET LINE=LINE+1
+75 SET TMP=" XMZ)."
+76 SET @XMIT@(LINE,0)=TMP
+77 SET LINE=LINE+1
+78 ;SEND BULLETIN
+79 SET XMY("G.VAQ PDX ERRORS")=""
+80 SET TYPE="UNABLE TO PROPERLY RECEIVE TRANSMISSION"
+81 SET TMP="Patient Data eXchange"
+82 SET XMER=$$SENDBULL^VAQBUL(TYPE,"PDX",TMP,XMIT)
+83 if (XMER>0)
SET XMER=0
+84 QUIT
