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

IVMPREC2.m

Go to the documentation of this file.
  1. IVMPREC2 ;ALB/KCL - ROUTE INCOMING HL7 (ORU) MESSAGES BY EVENT TYPE ;5/17/02 1:43pm
  1. ;;2.0;INCOME VERIFICATION MATCH;**12,34,112,118,145**;21-OCT-94;Build 6
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ; This routine will process (ORU) HL7 messages received from the
  1. ; IVM center. Event type code indicating type of transmission is
  1. ; in the BHS segment. Routines based on type will be called to
  1. ; process these messages. For each batch an ACK will be sent to
  1. ; the IVM Center indicating errors found. If any errors are found
  1. ; a batch message with AE(indicating error(s)) is sent. If no errors
  1. ; only a MSH and MSA with AA(no errors) is sent. The following event
  1. ; type codes are processed in the following routines:
  1. ;
  1. ; EVENT CODE TRANSMISSION TYPE PROCESSING ROUTINE
  1. ; ==============================================================
  1. ; Z03 SSN TRANSMISSIONS IVMPREC5
  1. ; Z04 INSURANCE TRANSMISSIONS IVMPREC3
  1. ; Z05 DEMOGRAPHIC TRANSMISSIONS IVMPREC6
  1. ; Z06 MEANS TEST TRANSMISSIONS IVMPREC7
  1. ; Z08 CASE STATUS TRANSMISSIONS IVMPREC4
  1. ; Z10 INCOME TEST TRANSMISSIONS IVMCM
  1. ; Z11 ENROLLMENT/ELIGIBILTY ORUZ11^DGENUPL
  1. ;
  1. ;
  1. ORU ; - Receive Observational Results Unsolicited Message
  1. ;
  1. N DIC,%,%H,%I D NOW^%DTC S HLDT=%
  1. K HLERR,IVMSEG1,IVMSEG2,IVMSEG3
  1. S (HLEVN,IVMCT,IVMERROR,IVMCNTR)=0
  1. ; Make sure POSTMASTER DUZ instead of DUZ of Person who
  1. ; started Incoming Logical Link
  1. S DUZ=.5
  1. ;
  1. ; - get incoming segment from HL7 (#772) file
  1. N IVMRTN,SEGCNT,CNT,STATION,HLEID,HLEIDS
  1. S IVMRTN="IVMPREC2" K ^TMP($J,IVMRTN),^TMP("HLA",$J),^TMP("HLS",$J)
  1. F SEGCNT=1:1 X HLNEXT Q:HLQUIT'>0 D
  1. . S CNT=0
  1. . S ^TMP($J,IVMRTN,SEGCNT,CNT)=HLNODE
  1. . F S CNT=$O(HLNODE(CNT)) Q:'CNT S ^TMP($J,IVMRTN,SEGCNT,CNT)=HLNODE(CNT)
  1. ;
  1. S HLDA=HLMTIEN
  1. S IVMSEG=$G(^TMP($J,IVMRTN,1,0)) I IVMSEG']"" G ORUQ
  1. ;
  1. ; - check for BHS
  1. I $E(IVMSEG,1,3)'="BHS" G ORUQ
  1. ;
  1. ; - get batch control id
  1. S HLFS=HL("FS")
  1. S HLECH=HL("ECH")
  1. S HLQ=$G(HL("HLQ")) S:HLQ="" HLQ=""""""
  1. S IVMHLMID=$P(IVMSEG,HLFS,11)
  1. S STATION=$P(IVMSEG,HLFS,6)
  1. ;
  1. ; - get event type code
  1. S IVMETC=$P($P(IVMSEG,HLFS,9),$E(HLECH),3)
  1. S IVMETC=$P(IVMETC,$E(HLECH,2),2)
  1. S HLEID="VAMC "_STATION_" ORU-"_IVMETC_" SERVER"
  1. I IVMETC="Z04" S HLEID=HLEID_" H" ;HEC TO VAMC
  1. S HLEID=$O(^ORD(101,"B",HLEID,0)),HLEIDS=""
  1. I HLEID]"" S HLEIDS=$O(^ORD(101,HLEID,775,"B",0))
  1. ;
  1. ; - process the message according to the event type code
  1. 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")
  1. I IVMETC="Z11" D
  1. .D ORUZ11^DGENUPL(HLDA,.IVMERROR)
  1. .S IVMCT=2*IVMERROR
  1. .S HLEVN=IVMERROR
  1. I IVMETC'="Z11" D
  1. .D @IVMDO
  1. Q:IVMDO="ORUQ"
  1. ;
  1. ; - if no error send ACK 'AA' message
  1. S HLMTN="ACK"
  1. K HLARYTYP,HLMTIENA,HLRESLTA,HLP
  1. I 'IVMERROR S HLMID=IVMHLMID D ACK^IVMPREC S HLARYTYP="GM",HLMTIENA=""
  1. I IVMERROR S HLARYTYP="GB",HLMTIENA=HLMTIEN ;HLMTIEN comes from ACK^IVMPREC
  1. K ^TMP("HLA",$J) M ^TMP("HLA",$J)=^TMP("HLS",$J) K ^TMP("HLS",$J)
  1. D GENACK^HLMA1(HLEID,HLMTIENS,HLEIDS,HLARYTYP,1,.HLRESLTA,HLMTIENA,.HLP)
  1. ;
  1. ORUQ ;
  1. K DFN,IVMCNTR,IVMCT,IVMDA,IVMERR,IVMERROR,IVMHLMID,IVMNDE,IVMPTID
  1. K IVMSEG,IVMSEG1,IVMSEG2,IVMSEG3,IVMTEXT,XMSUB
  1. K HLARYTYP,HLMTIENA,HLRESLTA,HLP
  1. K ^TMP($J,IVMRTN),^TMP("HLA",$J),^TMP("HLS",$J)
  1. Q