| 1 | EASPREC3 ;ALB/PJH - PROCESS INCOMING HL7 (QRY) MESSAGES ; 11/27/07 3:04pm
|
|---|
| 2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**71**;15-MAR-01;Build 18
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; CLONED FROM IVMPREC2 (ESR EVENT DRIVER)
|
|---|
| 6 | ;
|
|---|
| 7 | ; This routine will process (ORU) HL7 messages received from the
|
|---|
| 8 | ; IVM center. Event type code indicating type of transmission is
|
|---|
| 9 | ; in the BHS segment. Routines based on type will be called to
|
|---|
| 10 | ; process these messages. For each batch an ACK will be sent to
|
|---|
| 11 | ; the IVM Center indicating errors found. If any errors are found
|
|---|
| 12 | ; a batch message with AE(indicating error(s)) is sent. If no errors
|
|---|
| 13 | ; only a MSH and MSA with AA(no errors) is sent. The following event
|
|---|
| 14 | ; type codes are processed in the following routines:
|
|---|
| 15 | ;
|
|---|
| 16 | ; EVENT CODE TRANSMISSION TYPE PROCESSING ROUTINE
|
|---|
| 17 | ; ==============================================================
|
|---|
| 18 | ; Z03 SSN TRANSMISSIONS IVMPREC5
|
|---|
| 19 | ; Z04 INSURANCE TRANSMISSIONS IVMPREC3
|
|---|
| 20 | ; Z05 DEMOGRAPHIC TRANSMISSIONS IVMPREC6
|
|---|
| 21 | ; Z06 MEANS TEST TRANSMISSIONS IVMPREC7
|
|---|
| 22 | ; Z08 CASE STATUS TRANSMISSIONS IVMPREC4
|
|---|
| 23 | ; Z10 INCOME TEST TRANSMISSIONS IVMCM
|
|---|
| 24 | ; Z11 ENROLLMENT/ELIGIBILTY ORUZ11^DGENUPL
|
|---|
| 25 | ;
|
|---|
| 26 | ;
|
|---|
| 27 | ORU ; - Receive Observational Results Unsolicited Message
|
|---|
| 28 | ;
|
|---|
| 29 | N DIC,%,%H,%I D NOW^%DTC S HLDT=%
|
|---|
| 30 | K HLERR,IVMSEG1,IVMSEG2,IVMSEG3
|
|---|
| 31 | S (HLEVN,IVMCT,IVMERROR,IVMCNTR)=0
|
|---|
| 32 | ; Make sure POSTMASTER DUZ instead of DUZ of Person who
|
|---|
| 33 | ; started Incoming Logical Link
|
|---|
| 34 | S DUZ=.5
|
|---|
| 35 | ;
|
|---|
| 36 | ; - get incoming segment from HL7 (#772) file
|
|---|
| 37 | N IVMRTN,SEGCNT,CNT,STATION,HLEID,HLEIDS
|
|---|
| 38 | S IVMRTN="IVMPREC2" K ^TMP($J,IVMRTN),^TMP("HLA",$J),^TMP("HLS",$J)
|
|---|
| 39 | F SEGCNT=1:1 X HLNEXT Q:HLQUIT'>0 D
|
|---|
| 40 | . S CNT=0
|
|---|
| 41 | . S ^TMP($J,IVMRTN,SEGCNT,CNT)=HLNODE
|
|---|
| 42 | . F S CNT=$O(HLNODE(CNT)) Q:'CNT S ^TMP($J,IVMRTN,SEGCNT,CNT)=HLNODE(CNT)
|
|---|
| 43 | ;
|
|---|
| 44 | S HLDA=HLMTIEN
|
|---|
| 45 | S IVMSEG=$G(^TMP($J,IVMRTN,1,0)) I IVMSEG']"" G ORUQ
|
|---|
| 46 | ;
|
|---|
| 47 | ; - check for BHS
|
|---|
| 48 | I $E(IVMSEG,1,3)'="BHS" G ORUQ
|
|---|
| 49 | ;
|
|---|
| 50 | ; - get batch control id
|
|---|
| 51 | S HLFS=HL("FS")
|
|---|
| 52 | S HLECH=HL("ECH")
|
|---|
| 53 | S HLQ=$G(HL("HLQ")) S:HLQ="" HLQ=""""""
|
|---|
| 54 | S IVMHLMID=$P(IVMSEG,HLFS,11)
|
|---|
| 55 | S STATION=$P(IVMSEG,HLFS,6)
|
|---|
| 56 | ;
|
|---|
| 57 | ; - get event type code
|
|---|
| 58 | S IVMETC=$P($P(IVMSEG,HLFS,9),$E(HLECH),3)
|
|---|
| 59 | S IVMETC=$P(IVMETC,$E(HLECH,2),2)
|
|---|
| 60 | S HLEID="EAS ESR "_STATION_" ORU-"_IVMETC_" SERVER"
|
|---|
| 61 | I IVMETC="Z04" S HLEID=HLEID_" H" ;HEC TO VAMC
|
|---|
| 62 | S HLEID=$O(^ORD(101,"B",HLEID,0)),HLEIDS=""
|
|---|
| 63 | I HLEID]"" S HLEIDS=$O(^ORD(101,HLEID,775,"B",0))
|
|---|
| 64 | ;
|
|---|
| 65 | ; - process the message according to the event type code
|
|---|
| 66 | S IVMDO=$S(IVMETC="Z03":"EN^IVMPREC5",IVMETC="Z04":"EN^IVMPREC3",IVMETC="Z05":"EN^IVMPREC6",IVMETC="Z06":"EN^IVMPREC7",IVMETC="Z08":"EN^IVMPREC4",IVMETC="Z10":"ORU^IVMCM",IVMETC="Z11":"ORUZ11^DGENUPL",1:"ORUQ")
|
|---|
| 67 | I IVMETC="Z11" D
|
|---|
| 68 | .D ORUZ11^DGENUPL(HLDA,.IVMERROR)
|
|---|
| 69 | .S IVMCT=2*IVMERROR
|
|---|
| 70 | .S HLEVN=IVMERROR
|
|---|
| 71 | I IVMETC'="Z11" D
|
|---|
| 72 | .D @IVMDO
|
|---|
| 73 | Q:IVMDO="ORUQ"
|
|---|
| 74 | ;
|
|---|
| 75 | ; - if no error send ACK 'AA' message
|
|---|
| 76 | S HLMTN="ACK"
|
|---|
| 77 | K HLARYTYP,HLMTIENA,HLRESLTA,HLP
|
|---|
| 78 | I 'IVMERROR S HLMID=IVMHLMID D ACK^IVMPREC S HLARYTYP="GM",HLMTIENA=""
|
|---|
| 79 | I IVMERROR S HLARYTYP="GB",HLMTIENA=HLMTIEN ;HLMTIEN comes from ACK^IVMPREC
|
|---|
| 80 | K ^TMP("HLA",$J) M ^TMP("HLA",$J)=^TMP("HLS",$J) K ^TMP("HLS",$J)
|
|---|
| 81 | D GENACK^HLMA1(HLEID,HLMTIENS,HLEIDS,HLARYTYP,1,.HLRESLTA,HLMTIENA,.HLP)
|
|---|
| 82 | ; The following line is added for PFSS Registration. This line will ensure any patient
|
|---|
| 83 | ; registration updates received from the HEC are forwarded to a COTS billing application
|
|---|
| 84 | ; See DBIA#4780 - this line will need re enabling if PFSS is active
|
|---|
| 85 | ;S X="DGPFSS1" X ^%ZOSF("TEST") I $T D SEND^DGPFSS1(DFN,0)
|
|---|
| 86 | ;
|
|---|
| 87 | ORUQ ;
|
|---|
| 88 | K DFN,IVMCNTR,IVMCT,IVMDA,IVMERR,IVMERROR,IVMHLMID,IVMNDE,IVMPTID
|
|---|
| 89 | K IVMSEG,IVMSEG1,IVMSEG2,IVMSEG3,IVMTEXT,XMSUB
|
|---|
| 90 | K HLARYTYP,HLMTIENA,HLRESLTA,HLP
|
|---|
| 91 | K ^TMP($J,IVMRTN),^TMP("HLA",$J),^TMP("HLS",$J)
|
|---|
| 92 | Q
|
|---|
