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

VAQBUL01.m

Go to the documentation of this file.
  1. VAQBUL01 ;ALB/JRP - BULLETINS;10-MAR-93
  1. ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
  1. ERR2USR ;SEND ERROR MESSAGE TO SENDER IF ALL TRANSMISSIONS WHERE NOT SENT
  1. ; DECLARATIONS TAKEN CARE OF IN GENXMIT^VAQADM50
  1. S TMP="UNABLE TO SEND MESSAGES"
  1. S XMZ=$$MAKESTUB^VAQCON1(TMP,"PDX")
  1. Q:(XMZ<1)
  1. S LINE=1
  1. ;PUT IN ERROR MESSAGE
  1. S TMP="The following message(s) could not be transmitted ..."
  1. S X=$$ADDLINE^VAQCON1(TMP,XMZ,LINE)
  1. S LINE=LINE+1
  1. S TRANS=""
  1. S ERRNUM=1
  1. F S TRANS=$O(@ARRAY3@(TRANS)) Q:('TRANS) D
  1. .F TMP=1:1:2 S X=$$ADDLINE^VAQCON1("",XMZ,LINE),LINE=LINE+1
  1. .S X=+$G(^VAT(394.61,TRANS,0))
  1. .S TMP="("_ERRNUM_") Transaction Number: "_X
  1. .S X=$$ADDLINE^VAQCON1(TMP,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .S TMP=$G(^VAT(394.61,TRANS,"QRY"))
  1. .S X=$$REPEAT^VAQUTL1(" ",($L(ERRNUM)+6))
  1. .S X=X_"Name: "_$P(TMP,"^",1)
  1. .S X=$$ADDLINE^VAQCON1(X,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .S X=$$REPEAT^VAQUTL1(" ",($L(ERRNUM)+6))
  1. .S X=X_"PID: "_$P(TMP,"^",4)
  1. .S X=$$ADDLINE^VAQCON1(X,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .S X=$$REPEAT^VAQUTL1(" ",($L(ERRNUM)+6))
  1. .S X=X_"SSN: "_$P(TMP,"^",2)
  1. .S X=$$ADDLINE^VAQCON1(X,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .S X=$$REPEAT^VAQUTL1(" ",($L(ERRNUM)+6))
  1. .S X=X_"DOB: "_$$DOBFMT^VAQUTL99($P(TMP,"^",3))
  1. .S X=$$ADDLINE^VAQCON1(X,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .;GET SENDER
  1. .S TMP=$$SENDER^VAQCON2(TRANS)
  1. .S X=$$REPEAT^VAQUTL1(" ",($L(ERRNUM)+6))
  1. .S X=X_"Sent By: "_$P(TMP,"^",1)
  1. .S X=$$ADDLINE^VAQCON1(X,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .;PLACE SENDER IN RECIPIENT LIST
  1. .S X=+$P(TMP,"^",2)
  1. .S TMP=$P(TMP,"^",1)
  1. .S X=$S(((X'=.5)&(X'=0)):X,((TMP'="POSTMASTER")&(TMP'="PDX")&(TMP'="Patient Data eXchange")&(TMP'="")):TMP,1:"")
  1. .S:(X'="") XMY(X)=""
  1. .;GET MESSAGE TYPE
  1. .S TMP=$$STATYPE^VAQCON1(TRANS)
  1. .S TYPE=$P(TMP,"^",2)
  1. .S:($P(TMP,"^",1)="-1") TYPE=-1
  1. .S:(TYPE="ACK") TYPE=$P(TMP,"^",1)
  1. .;GET DOMAIN & SITE
  1. .S TMP="Could not be determined (Contact your PDX ADPAC)^Could not be determined (Contact your PDX ADPAC)"
  1. .S:((TYPE="VAQ-UNACK")!(TYPE="REQ")) TMP=$G(^VAT(394.61,TRANS,"ATHR2"))
  1. .S:((TYPE="RES")!(TYPE="UNS")!(TYPE="VAQ-RQACK")) TMP=$G(^VAT(394.61,TRANS,"RQST2"))
  1. .S SITE=$P(TMP,"^",1)
  1. .S DOMAIN=$P(TMP,"^",2)
  1. .S X=$$REPEAT^VAQUTL1(" ",($L(ERRNUM)+6))
  1. .S X=X_"Site: "_SITE
  1. .S X=$$ADDLINE^VAQCON1(X,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .S X=$$REPEAT^VAQUTL1(" ",($L(ERRNUM)+6))
  1. .S X=X_"Domain: "_DOMAIN
  1. .S X=$$ADDLINE^VAQCON1(X,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .S X=$$REPEAT^VAQUTL1(" ",($L(ERRNUM)+6))
  1. .S X=X_"Message Type: "
  1. .S:(TYPE="-1") X=X_"Could not be determined (Contact your PDX ADPAC)"
  1. .S:(TYPE="REQ") X=X_"PDX Request"
  1. .S:(TYPE="RES") X=X_"Results from processing an external request"
  1. .S:(TYPE="UNS") X=X_"Unsolicited PDX"
  1. .S:((TYPE="VAQ-RQACK")!(TYPE="VAQ-UNACK")) X=X_"Acknowledgment (Contact your PDX ADPAC)"
  1. .S:(TYPE="RET") X=X_"Re-transmit (Contact your PDX ADPAC)"
  1. .S TMP=$$ADDLINE^VAQCON1(X,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .S ERRNUM=ERRNUM+1
  1. ;SET ZERO NODE
  1. S X=$$SETZERO^VAQCON1(XMZ,(LINE-1))
  1. S XMDUN="Patient Data eXchange"
  1. D ENT1^XMD
  1. Q
  1. ;
  1. ERR2IRM ;SEND ERROR MESSAGE TO IRM IF ALL TRANSMISSIONS WHERE NOT SENT
  1. ; DECLARATIONS TAKEN CARE OF IN GENXMIT^VAQADM50
  1. S TMP="UNABLE TO SEND MESSAGES"
  1. S XMZ=$$MAKESTUB^VAQCON1(TMP,"PDX")
  1. Q:(XMZ<1)
  1. S LINE=1
  1. ;PUT IN ERROR MESSAGE
  1. S TMP="The following error(s) occurred while generating PDX transmissions ..."
  1. S X=$$ADDLINE^VAQCON1(TMP,XMZ,LINE)
  1. S LINE=LINE+1
  1. S TRANS=""
  1. S ERRNUM=1
  1. F S TRANS=$O(@ARRAY3@(TRANS)) Q:('TRANS) D
  1. .F TMP=1:1:2 S X=$$ADDLINE^VAQCON1("",XMZ,LINE),LINE=LINE+1
  1. .S X=+$G(^VAT(394.61,TRANS,0))
  1. .S TMP="("_ERRNUM_") Transaction Number: "_X
  1. .S X=$$ADDLINE^VAQCON1(TMP,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .S X=$$REPEAT^VAQUTL1(" ",($L(ERRNUM)+6))
  1. .S X=X_"IFN: "_TRANS
  1. .S X=$$ADDLINE^VAQCON1(X,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .S X=$$REPEAT^VAQUTL1(" ",($L(ERRNUM)+6))
  1. .S X=X_"Global Location: ^VAT(394.61,"_TRANS_")"
  1. .S X=$$ADDLINE^VAQCON1(X,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .S TMP=$$SENDER^VAQCON2(TRANS)
  1. .S:(TMP="") TMP="Unknown^??"
  1. .S X=$$REPEAT^VAQUTL1(" ",($L(ERRNUM)+6))
  1. .S X=X_"User: "_$P(TMP,"^",1)_" ("_$P(TMP,"^",2)_")"
  1. .S TMP=$$ADDLINE^VAQCON1(X,XMZ,LINE)
  1. .S LINE=LINE+1
  1. .S X=""
  1. .F S X=$O(@ARRAY3@(TRANS,X)) Q:(X="") D
  1. ..S TMP=$$REPEAT^VAQUTL1(" ",($L(ERRNUM)+6))
  1. ..S TMP=TMP_$G(@ARRAY3@(TRANS,X))
  1. ..S TMP=$$ADDLINE^VAQCON1(TMP,XMZ,LINE)
  1. ..S LINE=LINE+1
  1. .S ERRNUM=ERRNUM+1
  1. ;SET ZERO NODE
  1. S X=$$SETZERO^VAQCON1(XMZ,(LINE-1))
  1. ;SEND TO IRM/ERROR GROUP
  1. S XMY("G.VAQ PDX ERRORS")=""
  1. S XMDUN="Patient Data eXchange"
  1. D ENT1^XMD
  1. Q