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

VAQBUL03.m

Go to the documentation of this file.
  1. VAQBUL03 ;ALB/JRP - BULLETINS;25-MAY-93
  1. ;;1.5;PATIENT DATA EXCHANGE;**9**;NOV 17, 1993
  1. RESULTS(TRANPTR) ;SEND RESULTS RECEIVED BULLETIN
  1. ;INPUT : TRANPTR - Pointer to VAQ - TRANSACTION file
  1. ;OUTPUT : 0 - Bulletin sent
  1. ; -1^Error_Text - Bulletin not sent
  1. ;
  1. ;CHECK INPUT
  1. S TRANPTR=+$G(TRANPTR)
  1. Q:(('TRANPTR)!('$D(^VAT(394.61,TRANPTR)))) "-1^Did not pass valid transaction"
  1. ;DECLARE VARIABLES
  1. N TRANNUM,NAME,PID,DOB,RQSTBY,RQSTON,ATHRBY,SITE,DOMAIN
  1. N STATUS,TMP,TMPARR,LINE,OFFSET,SPACE,COMMENT,X,DIWL,DIWR,DIWF
  1. N SENSITVE,DFN,XMY,Y,TMPROOT,ERROR
  1. S TMPARR="^TMP(""VAQ-BUL"","_$J_")"
  1. K @TMPARR,^UTILITY($J,"W")
  1. S SPACE=" "
  1. ;DETERMINE RESULT OF REQUEST
  1. S TMP=$$STATYPE^VAQCON1(TRANPTR,1)
  1. Q:($P(TMP,"^",1)="-1") TMP
  1. Q:($P(TMP,"^",2)'="RES") "-1^Transaction did not contain results of a request"
  1. S STATUS=$P(TMP,"^",1)
  1. ;GET TRANSACTION NUMBER
  1. S TMP=$G(^VAT(394.61,TRANPTR,0))
  1. S TRANNUM=+TMP
  1. Q:('TRANNUM) "-1^Transaction did not contain a transaction number"
  1. ;GET PATIENT POINTER
  1. S DFN=+$P(TMP,"^",3)
  1. ;CHECK REMOTE SENSITIVITY (SET TO 1 IF SENSITIVE)
  1. S SENSITVE=+$P(TMP,"^",4)
  1. ;CHECK LOCAL SENSITIVITY (SET TO 2 IF SENSITIVE)
  1. I (('SENSITVE)&(DFN)) D
  1. .S SENSITVE=+$$GETSEN^VAQUTL97(DFN)
  1. .;ON ERROR ASSUME SENSITIVE
  1. .S:(SENSITVE) SENSITVE=2
  1. ;RETURN SUCCESS IF NOTIFICATION WAS NOT REQUESTED AND PATIENT
  1. ; IS NOT SENSITIVE AT LOCAL AND REMOTE FACILITY
  1. I ('(+$O(^VAT(394.61,TRANPTR,"NTFY2",0)))) Q:('SENSITVE) 0
  1. ;GET PATIENT INFORMATION
  1. S TMP=$G(^VAT(394.61,TRANPTR,"QRY"))
  1. S NAME=$P(TMP,"^",1)
  1. S:(NAME="") NAME="Not listed"
  1. S DOB=$$DOBFMT^VAQUTL99($P(TMP,"^",3),0)
  1. S:(DOB="") DOB="Not listed"
  1. S PID=$P(TMP,"^",4)
  1. I (PID="") D
  1. .;GET PID FROM SSN
  1. .S PID=$P(TMP,"^",2)
  1. .I (PID="") S PID="Not listed" Q
  1. .S PID=$$DASHSSN^VAQUTL99(PID)
  1. ;GET REQUEST INFORMATION
  1. S TMP=$G(^VAT(394.61,TRANPTR,"RQST1"))
  1. S RQSTON=$$DOBFMT^VAQUTL99($P(TMP,"^",1),1)
  1. S:(RQSTON="") RQSTON="Could not be determined"
  1. S RQSTBY=$P(TMP,"^",2)
  1. S:(RQSTBY="") RQSTBY="Unknown"
  1. ;GET REMOTE INFORMATION
  1. S TMP=$G(^VAT(394.61,TRANPTR,"ATHR1"))
  1. S ATHRBY=$P(TMP,"^",2)
  1. S:(ATHRBY="") ATHBY="Uknown"
  1. S:(ATHRBY="POSTMASTER") ATHBY="PDX Server"
  1. S TMP=$G(^VAT(394.61,TRANPTR,"ATHR2"))
  1. S SITE=$P(TMP,"^",1)
  1. S:(SITE="") SITE="Could not be determined"
  1. S DOMAIN=$P(TMP,"^",2)
  1. S:(DOMAIN="") DOMAIN="Could not be determined"
  1. ;BUILD MESSAGE
  1. S LINE=1
  1. S TMP="Your request for information has been "
  1. S TMP=TMP_$S((STATUS="VAQ-RSLT"):"processed and returned",1:"rejected")_" ..."
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. S TMP=""
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. ;PUT IN TRANSACTION INFO
  1. S TMP=SPACE_"Transaction number: "_TRANNUM
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. S TMP=SPACE_"Name: "_NAME
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. S TMP=SPACE_"PID: "_PID
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. S TMP=SPACE_"DOB: "_DOB
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. S TMP=""
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. ;PRINT SENSITIVITY
  1. I (SENSITVE) D
  1. .S TMP="*** PATIENT WAS LISTED AS SENSITIVE AT THE REMOTE FACILITY ***"
  1. .S:(SENSITVE=2) TMP="*** PATIENT IS LISTED AS SENSITIVE IN YOUR FACILITY ***"
  1. .S TMP=SPACE_TMP
  1. .S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. .S LINE=LINE+1
  1. .S TMP=""
  1. .S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. .S LINE=LINE+1
  1. ;PUT IN REQUESTING INFO
  1. S TMP=SPACE_"Requested by: "_RQSTBY
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. S TMP=SPACE_"Requested on: "_RQSTON
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. S TMP=""
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. ;PUT IN AUTHORIZING INFO
  1. S TMP=SPACE_"Processed by: "_ATHRBY
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. S TMP=SPACE_"Site: "_SITE
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. S TMP=SPACE_"Domain: "_DOMAIN
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. S TMP=""
  1. S @TMPARR@("DISPLAY",LINE,0)=TMP
  1. S LINE=LINE+1
  1. ;CONTINUATION
  1. S ERROR=0
  1. D RESULTS^VAQBUL04
  1. ;DONE (CLEAN UP)
  1. K @TMPARR,^UTILITY($J,"W")
  1. Q ERROR