IVMUM9 ;ALB/SEK - ADD DEPENDENT CHANGES TO 408.13 & 408.41 ; 12 JAN 95
;;Version 2.0 ; INCOME VERIFICATION MATCH ;**1**; 21-OCT-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
AUDIT ; change dependent demo data in 408.13 and add changes to 408.41.
; if IVM transmitted IEN of 408.12 and IEN found at VAMC, any of the
; 4 demo fields could be different. if ien of 408.12 is not
; transmitted and dependent is found in 408.13, name & ssn could be
; different because sex, dob, & relationship (408.12) must be the same.
I IVMDOB'=IVMDOB13 D
.S DGMTACT="DOB",DGMTSOLD=IVMDOB13,DGMTSNEW=IVMDOB D SET^DGMTAUD
.S IVMDR=".03////^S X=IVMDOB"
.Q
I IVMSEX'=IVMSEX13 D
.S DGMTACT="SEX",DGMTSOLD=IVMSEX13,DGMTSNEW=IVMSEX D SET^DGMTAUD
.S IVMDR=$S($D(IVMDR):IVMDR_";",1:"") S IVMDR=IVMDR_".02////^S X=IVMSEX"
.Q
AUDIT1 I IVMNM'=IVMNM13 D
.S DGMTACT="NAM",DGMTSOLD=IVMNM13,DGMTSNEW=IVMNM D SET^DGMTAUD
.S IVMDR=$S($D(IVMDR):IVMDR_";",1:"") S IVMDR=IVMDR_".01////^S X=IVMNM"
.Q
I IVMSSN'=IVMSSN13 D
.S DGMTACT="SSN",DGMTSOLD=IVMSSN13,DGMTSNEW=IVMSSN D SET^DGMTAUD
.S IVMSSN=$S(IVMSSN="":"@",1:IVMSSN)
.S IVMDR=$S($D(IVMDR):IVMDR_";",1:"") S IVMDR=IVMDR_".09////^S X=IVMSSN"
.Q
;
; change 408.13
I $D(IVMDR) S DR=IVMDR,DA=DGIPI,DIE="^DGPR(408.13," D ^DIE K DA,DIE,DR,IVMDR Q
K DGDEPI,DGMTA,DGMTACT,DGMTSNEW,DGMTSOLD
Q
;
AUDITP ; set common variables for audit
S DGMTYPT=1,DGDEPI=DGIPI,DGMTA=DGMTP
K IVMDR
;
; dgrel("s") contains 408.12 IEN of active spouse of VAMC test
; dgrel("c",xxx) contains 408.12 IEN of active children of VAMC test
; if VAMC dependent not a IVM dependent the dependent must be inactivated
; dependents remaining in dgrel after all IVM dependents are uploaded, will be inactivated
; if IVM & VAMC dependent, kill dgrel to prevent inactivation of dependent
; dgpri is IVM (or IVM & VAMC) dependent's 408.12 IEN
I IVMSPCHV="S" D Q
.I +$G(DGREL("S"))=DGPRI K DGREL("S")
S IVMFLG4=1,IVMCC=0 F S IVMCC=$O(DGREL("C",IVMCC)) Q:'IVMCC D Q:'IVMFLG4
.I +$G(DGREL("C",IVMCC))=DGPRI S IVMFLG4=0 K DGREL("C",IVMCC)
K IVMCC
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVMUM9 2140 printed Nov 22, 2024@17:13:10 Page 2
IVMUM9 ;ALB/SEK - ADD DEPENDENT CHANGES TO 408.13 & 408.41 ; 12 JAN 95
+1 ;;Version 2.0 ; INCOME VERIFICATION MATCH ;**1**; 21-OCT-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
AUDIT ; change dependent demo data in 408.13 and add changes to 408.41.
+1 ; if IVM transmitted IEN of 408.12 and IEN found at VAMC, any of the
+2 ; 4 demo fields could be different. if ien of 408.12 is not
+3 ; transmitted and dependent is found in 408.13, name & ssn could be
+4 ; different because sex, dob, & relationship (408.12) must be the same.
+5 IF IVMDOB'=IVMDOB13
Begin DoDot:1
+6 SET DGMTACT="DOB"
SET DGMTSOLD=IVMDOB13
SET DGMTSNEW=IVMDOB
DO SET^DGMTAUD
+7 SET IVMDR=".03////^S X=IVMDOB"
+8 QUIT
End DoDot:1
+9 IF IVMSEX'=IVMSEX13
Begin DoDot:1
+10 SET DGMTACT="SEX"
SET DGMTSOLD=IVMSEX13
SET DGMTSNEW=IVMSEX
DO SET^DGMTAUD
+11 SET IVMDR=$SELECT($DATA(IVMDR):IVMDR_";",1:"")
SET IVMDR=IVMDR_".02////^S X=IVMSEX"
+12 QUIT
End DoDot:1
AUDIT1 IF IVMNM'=IVMNM13
Begin DoDot:1
+1 SET DGMTACT="NAM"
SET DGMTSOLD=IVMNM13
SET DGMTSNEW=IVMNM
DO SET^DGMTAUD
+2 SET IVMDR=$SELECT($DATA(IVMDR):IVMDR_";",1:"")
SET IVMDR=IVMDR_".01////^S X=IVMNM"
+3 QUIT
End DoDot:1
+4 IF IVMSSN'=IVMSSN13
Begin DoDot:1
+5 SET DGMTACT="SSN"
SET DGMTSOLD=IVMSSN13
SET DGMTSNEW=IVMSSN
DO SET^DGMTAUD
+6 SET IVMSSN=$SELECT(IVMSSN="":"@",1:IVMSSN)
+7 SET IVMDR=$SELECT($DATA(IVMDR):IVMDR_";",1:"")
SET IVMDR=IVMDR_".09////^S X=IVMSSN"
+8 QUIT
End DoDot:1
+9 ;
+10 ; change 408.13
+11 IF $DATA(IVMDR)
SET DR=IVMDR
SET DA=DGIPI
SET DIE="^DGPR(408.13,"
DO ^DIE
KILL DA,DIE,DR,IVMDR
QUIT
+12 KILL DGDEPI,DGMTA,DGMTACT,DGMTSNEW,DGMTSOLD
+13 QUIT
+14 ;
AUDITP ; set common variables for audit
+1 SET DGMTYPT=1
SET DGDEPI=DGIPI
SET DGMTA=DGMTP
+2 KILL IVMDR
+3 ;
+4 ; dgrel("s") contains 408.12 IEN of active spouse of VAMC test
+5 ; dgrel("c",xxx) contains 408.12 IEN of active children of VAMC test
+6 ; if VAMC dependent not a IVM dependent the dependent must be inactivated
+7 ; dependents remaining in dgrel after all IVM dependents are uploaded, will be inactivated
+8 ; if IVM & VAMC dependent, kill dgrel to prevent inactivation of dependent
+9 ; dgpri is IVM (or IVM & VAMC) dependent's 408.12 IEN
+10 IF IVMSPCHV="S"
Begin DoDot:1
+11 IF +$GET(DGREL("S"))=DGPRI
KILL DGREL("S")
End DoDot:1
QUIT
+12 SET IVMFLG4=1
SET IVMCC=0
FOR
SET IVMCC=$ORDER(DGREL("C",IVMCC))
if 'IVMCC
QUIT
Begin DoDot:1
+13 IF +$GET(DGREL("C",IVMCC))=DGPRI
SET IVMFLG4=0
KILL DGREL("C",IVMCC)
End DoDot:1
if 'IVMFLG4
QUIT
+14 KILL IVMCC
+15 QUIT
