Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VAQBUL05

VAQBUL05.m

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