- 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 Jan 18, 2025@03:25:20 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