IVMPTRN3 ;ALB/KCL - SEND INITIAL TRANSMISSION TO IVM CENTER ; 9/24/03
;;2.0;INCOME VERIFICATION MATCH;**1,9,34,92**; 21-OCT-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
FILE ; - call HL7 to send batch of segments
;
I IVMCT'>0 Q
;
N HLRESLT
;
; - send batch of HL7 messages
D GENERATE^HLMA(HLEID,"GB",1,.HLRESLT,MTIEN)
;
K ^TMP("HLS",$J)
S IVMGTOT=$G(IVMGTOT)+HLEVN
S (HLEVN,IVMCT)=0
Q
;
FILE1 ; - call HL7 to send batch of segments
; (V1.6 - call this if non-ack batch but still has an MSA segment.)
; Called by ^IVMPTRN and ^IVMPTRN7 with ^TMP("HLS",$J) global set.
; Must convert ^TMP("HLS" into ^TMP("HLA" for GENACK^HLMA1 to work.
;
I IVMCT'>0 Q
;
N HLP,HLRESLTA
S HLEIDS=$O(^ORD(101,HLEID,775,"B",0))
;
; - send batch of HL7 messages
K ^TMP("HLA",$J)
M ^TMP("HLA",$J)=^TMP("HLS",$J)
D GENACK^HLMA1(HLEID,MTIEN,HLEIDS,"GB",1,.HLRESLTA,.HLP)
;
K ^TMP("HLS",$J)
K ^TMP("HLA",$J)
S IVMGTOT=$G(IVMGTOT)+HLEVN
S (HLEVN,IVMCT)=0
Q
;
FILEPT(DFN,IVMYR,WHEN,MSGID,EVENTS,MTSTAT,INSSTAT) ;
;Description: File patient in IVM PATIENT (#301.5) file and file
;TRANSMISSION LOG entry.
;
;Input:
; DFN - ien of record in the PATIENT file.
; IVMYR - income year of the ORU~Z07 message.
; WHEN - date/time message sent, in FM format.
; MSGID - message id used for message, in format used by MESSAGE CONTROL ID field.
; EVENTS () - an array of reasons for transmission, pass by reference.
; EVENTS("IVM") = 1 if transmission due to IVM criteria, 0 otherwise
; EVENTS(" "DCD")=1 if transmission due to DCD criteria, 0 otherwise
; EVENTS("ENROLL")=1 if transmission due to enrollment criteria, 0 otherwise
; MTSTAT - pointer to the MEANS TEST STATUS file. Is the status of the patient's means test at the time of the transmission for the income year of the transmission.
; INSSTAT - 1 if the patient had active insurance at the time of the transmission, 0 otherwise.
;
N IVMPTR,DGSENFLG
;
; - ignore security checks in MAS (DGSEC)
S DGSENFLG=1
;
;find or create entry in IVM PATIENT file
S IVMPTR=$$FIND^IVMPLOG(DFN,IVMYR)
S:'IVMPTR IVMPTR=$$LOG^IVMPLOG(DFN,IVMYR,.EVENTS)
Q:'IVMPTR
;
; Check the 301.5 record for Transmission Status
N TRSTAT S TRSTAT=+$P(^IVM(301.5,IVMPTR,0),U,3)
;
; If this record is not updated, update it only
I 'TRSTAT D UPDTLOG(IVMPTR,WHEN,MSGID,.EVENTS,MTSTAT,INSSTAT)
;
; If this record is already updated, check all other records
; for this patient that should be updated.
I TRSTAT D
.N NXTPTR,NXTYR S NXTPTR=0
.F S NXTPTR=$O(^IVM(301.5,"B",DFN,NXTPTR)) Q:'NXTPTR D
..Q:NXTPTR=IVMPTR
..S TRSTAT=+$P(^IVM(301.5,NXTPTR,0),U,3)
..Q:TRSTAT
..S NXTYR=$P(^IVM(301.5,NXTPTR,0),U,2)
..I $$LOG^IVMPLOG(DFN,NXTYR,.EVENTS)
..D UPDTLOG(NXTPTR,WHEN,MSGID,.EVENTS,MTSTAT,INSSTAT)
;
Q
;
UPDTLOG(IVMPTR,WHEN,MSGID,EVENTS,MTSTAT,INSSTAT) ;
; Update record to TRANSMITTED, and remove duplicates
;
; Update the IVM PATIENT (#301.5) record to a TRANSMITTED status.
I $$CLEAR^IVMPLOG(IVMPTR,WHEN)
;
; Add an entry in the IVM TRANSMISSION LOG (#301.6) File.
I $$LOG^IVMTLOG(IVMPTR,WHEN,MSGID,.EVENTS,MTSTAT,INSSTAT)
;
D DUP(DFN,IVMYR,IVMPTR) ; remove duplicates
;
Q
;
DUP(DFN,IVMYR,IVMPTR) ; remove duplicate entries in file 301.5
;
; Input - IVMPTR - IEN of original entry in file 301.5
; DFN - IEN of PATIENT file
; IVMYR - income year
;
N DA,DIE,DIK,DR,IVMIEN,X,Y
;
S IVMIEN=IVMPTR
F S IVMIEN=$O(^IVM(301.5,"APT",DFN,IVMYR,IVMIEN)) Q:'IVMIEN D
.;remove 301.5 entry
.I $$DELETE^IVMPLOG2(IVMIEN) F DA=0:0 S DA=$O(^IVM(301.6,"B",IVMIEN,DA)) Q:'DA D ; reset ptrs
..S DIE="^IVM(301.6,",DR=".01///^S X=IVMPTR" D ^DIE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVMPTRN3 3784 printed Sep 23, 2025@19:37:47 Page 2
IVMPTRN3 ;ALB/KCL - SEND INITIAL TRANSMISSION TO IVM CENTER ; 9/24/03
+1 ;;2.0;INCOME VERIFICATION MATCH;**1,9,34,92**; 21-OCT-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
FILE ; - call HL7 to send batch of segments
+1 ;
+2 IF IVMCT'>0
QUIT
+3 ;
+4 NEW HLRESLT
+5 ;
+6 ; - send batch of HL7 messages
+7 DO GENERATE^HLMA(HLEID,"GB",1,.HLRESLT,MTIEN)
+8 ;
+9 KILL ^TMP("HLS",$JOB)
+10 SET IVMGTOT=$GET(IVMGTOT)+HLEVN
+11 SET (HLEVN,IVMCT)=0
+12 QUIT
+13 ;
FILE1 ; - call HL7 to send batch of segments
+1 ; (V1.6 - call this if non-ack batch but still has an MSA segment.)
+2 ; Called by ^IVMPTRN and ^IVMPTRN7 with ^TMP("HLS",$J) global set.
+3 ; Must convert ^TMP("HLS" into ^TMP("HLA" for GENACK^HLMA1 to work.
+4 ;
+5 IF IVMCT'>0
QUIT
+6 ;
+7 NEW HLP,HLRESLTA
+8 SET HLEIDS=$ORDER(^ORD(101,HLEID,775,"B",0))
+9 ;
+10 ; - send batch of HL7 messages
+11 KILL ^TMP("HLA",$JOB)
+12 MERGE ^TMP("HLA",$JOB)=^TMP("HLS",$JOB)
+13 DO GENACK^HLMA1(HLEID,MTIEN,HLEIDS,"GB",1,.HLRESLTA,.HLP)
+14 ;
+15 KILL ^TMP("HLS",$JOB)
+16 KILL ^TMP("HLA",$JOB)
+17 SET IVMGTOT=$GET(IVMGTOT)+HLEVN
+18 SET (HLEVN,IVMCT)=0
+19 QUIT
+20 ;
FILEPT(DFN,IVMYR,WHEN,MSGID,EVENTS,MTSTAT,INSSTAT) ;
+1 ;Description: File patient in IVM PATIENT (#301.5) file and file
+2 ;TRANSMISSION LOG entry.
+3 ;
+4 ;Input:
+5 ; DFN - ien of record in the PATIENT file.
+6 ; IVMYR - income year of the ORU~Z07 message.
+7 ; WHEN - date/time message sent, in FM format.
+8 ; MSGID - message id used for message, in format used by MESSAGE CONTROL ID field.
+9 ; EVENTS () - an array of reasons for transmission, pass by reference.
+10 ; EVENTS("IVM") = 1 if transmission due to IVM criteria, 0 otherwise
+11 ; EVENTS(" "DCD")=1 if transmission due to DCD criteria, 0 otherwise
+12 ; EVENTS("ENROLL")=1 if transmission due to enrollment criteria, 0 otherwise
+13 ; MTSTAT - pointer to the MEANS TEST STATUS file. Is the status of the patient's means test at the time of the transmission for the income year of the transmission.
+14 ; INSSTAT - 1 if the patient had active insurance at the time of the transmission, 0 otherwise.
+15 ;
+16 NEW IVMPTR,DGSENFLG
+17 ;
+18 ; - ignore security checks in MAS (DGSEC)
+19 SET DGSENFLG=1
+20 ;
+21 ;find or create entry in IVM PATIENT file
+22 SET IVMPTR=$$FIND^IVMPLOG(DFN,IVMYR)
+23 if 'IVMPTR
SET IVMPTR=$$LOG^IVMPLOG(DFN,IVMYR,.EVENTS)
+24 if 'IVMPTR
QUIT
+25 ;
+26 ; Check the 301.5 record for Transmission Status
+27 NEW TRSTAT
SET TRSTAT=+$PIECE(^IVM(301.5,IVMPTR,0),U,3)
+28 ;
+29 ; If this record is not updated, update it only
+30 IF 'TRSTAT
DO UPDTLOG(IVMPTR,WHEN,MSGID,.EVENTS,MTSTAT,INSSTAT)
+31 ;
+32 ; If this record is already updated, check all other records
+33 ; for this patient that should be updated.
+34 IF TRSTAT
Begin DoDot:1
+35 NEW NXTPTR,NXTYR
SET NXTPTR=0
+36 FOR
SET NXTPTR=$ORDER(^IVM(301.5,"B",DFN,NXTPTR))
if 'NXTPTR
QUIT
Begin DoDot:2
+37 if NXTPTR=IVMPTR
QUIT
+38 SET TRSTAT=+$PIECE(^IVM(301.5,NXTPTR,0),U,3)
+39 if TRSTAT
QUIT
+40 SET NXTYR=$PIECE(^IVM(301.5,NXTPTR,0),U,2)
+41 IF $$LOG^IVMPLOG(DFN,NXTYR,.EVENTS)
+42 DO UPDTLOG(NXTPTR,WHEN,MSGID,.EVENTS,MTSTAT,INSSTAT)
End DoDot:2
End DoDot:1
+43 ;
+44 QUIT
+45 ;
UPDTLOG(IVMPTR,WHEN,MSGID,EVENTS,MTSTAT,INSSTAT) ;
+1 ; Update record to TRANSMITTED, and remove duplicates
+2 ;
+3 ; Update the IVM PATIENT (#301.5) record to a TRANSMITTED status.
+4 IF $$CLEAR^IVMPLOG(IVMPTR,WHEN)
+5 ;
+6 ; Add an entry in the IVM TRANSMISSION LOG (#301.6) File.
+7 IF $$LOG^IVMTLOG(IVMPTR,WHEN,MSGID,.EVENTS,MTSTAT,INSSTAT)
+8 ;
+9 ; remove duplicates
DO DUP(DFN,IVMYR,IVMPTR)
+10 ;
+11 QUIT
+12 ;
DUP(DFN,IVMYR,IVMPTR) ; remove duplicate entries in file 301.5
+1 ;
+2 ; Input - IVMPTR - IEN of original entry in file 301.5
+3 ; DFN - IEN of PATIENT file
+4 ; IVMYR - income year
+5 ;
+6 NEW DA,DIE,DIK,DR,IVMIEN,X,Y
+7 ;
+8 SET IVMIEN=IVMPTR
+9 FOR
SET IVMIEN=$ORDER(^IVM(301.5,"APT",DFN,IVMYR,IVMIEN))
if 'IVMIEN
QUIT
Begin DoDot:1
+10 ;remove 301.5 entry
+11 ; reset ptrs
IF $$DELETE^IVMPLOG2(IVMIEN)
FOR DA=0:0
SET DA=$ORDER(^IVM(301.6,"B",IVMIEN,DA))
if 'DA
QUIT
Begin DoDot:2
+12 SET DIE="^IVM(301.6,"
SET DR=".01///^S X=IVMPTR"
DO ^DIE
End DoDot:2
End DoDot:1
+13 QUIT
