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