IVMCMF1 ;ALB/RMM,CKN,PWC - CHECK ANNUAL INCOME DATA ;11/8/05 3:27pm
;;2.0;INCOME VERIFICATION MATCH;**71,82,107,105,160**;21-OCT-94;Build 19
;
; This routine is called from IVMCMF.
;
;
ZIC(STRING,DEPIEN) ; Check validity of ZIC segment
;
; Input: STRING as ZIC segment
; DEPIEN as the IEN of the dependent in the array, if applicable
;
N X S X=$P(STRING,HLFS,2)
I $G(DEPIEN) I DEPIEN'=SPOUSE D
.I $P(STRING,HLFS,15)>0 S X=$P(^DG(43,1,"MT",(X-17000000),0),U,17) I X'<$P(STRING,HLFS,9) S CNT=CNT+1,IVMERR(CNT)="Income does not exceed child exclusion amount-educational expense not allowed"
ZICQ Q
;
ZIR(STRING,DEPIEN) ; Check validity of ZIR segment
;
; Input: STRING as ZIR segment
; DEPIEN as the IEN of the dependent in the array, if applicable
;
N I,FND1,X
S X=$P(STRING,HLFS,14)
I X]"",(X'="Y"),(X'="N") S CNT=CNT+1,FND1=1,IVMERR(CNT)="DEPENDENT CHILD SCHOOL INDICATOR contains unacceptable value."
I '$G(DEPIEN) D
.I X]"" S CNT=CNT+1,FND1=1,IVMERR(CNT)="DEPENDENT CHILD SCHOOL INDICATOR should not be filled in for Veteran."
.;IVM*2.0*160
.; for historical data that has Married Last Year = Y, Lived With Spouse = N, SPOUSE has data, Amount Contributed with value
.I $P(STRING,U,15)="",$P(STRING,HLFS,2),'$P(STRING,HLFS,3),SPOUSE,($P(STRING,HLFS,4)<600) D Q ;don't go further since amount contributed had value - IVM*2*160
..S FND1=0 F I=3:1:20 Q:FND1 I $P(ARRAY(SPOUSE,"ZIC"),HLFS,I) S FND1=1,CNT=CNT+1,IVMERR(CNT)="No income data allowed if spouse didn't live w/vet & amt contributed <$600"
.; Married Last Year = Y, Lived with Spouse = N, SPOUSE has data, Contributed to Spouse = N
.I $P(STRING,HLFS,2),'$P(STRING,HLFS,3),SPOUSE,($P(STRING,U,15)=0) S FND1=0 F I=3:1:20 Q:FND1 D
..I $P(ARRAY(SPOUSE,"ZIC"),HLFS,I) S FND1=1,CNT=CNT+1,IVMERR(CNT)="No income data allowed if spouse didn't live w/vet & vet did not contribute to spousal support"
I $G(DEPIEN)=SPOUSE D
. I X]"" S CNT=CNT+1,FND1=1,IVMERR(CNT)="DEPENDENT CHILD SCHOOL INDICATOR should not be filled in for spouse ZIR."
I $G(DEPIEN),(DEPIEN'=SPOUSE) D
.I '$P(STRING,HLFS,8) S FND1=0 F I=3:1:20 Q:FND1 I $P(ARRAY(DEPIEN,"ZIC"),HLFS,I) S CNT=CNT+1,IVMERR(CNT)="Shouldn't have income data if Child Had Income is NO",FND1=1
ZIRQ Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVMCMF1 2286 printed Oct 16, 2024@18:02:13 Page 2
IVMCMF1 ;ALB/RMM,CKN,PWC - CHECK ANNUAL INCOME DATA ;11/8/05 3:27pm
+1 ;;2.0;INCOME VERIFICATION MATCH;**71,82,107,105,160**;21-OCT-94;Build 19
+2 ;
+3 ; This routine is called from IVMCMF.
+4 ;
+5 ;
ZIC(STRING,DEPIEN) ; Check validity of ZIC segment
+1 ;
+2 ; Input: STRING as ZIC segment
+3 ; DEPIEN as the IEN of the dependent in the array, if applicable
+4 ;
+5 NEW X
SET X=$PIECE(STRING,HLFS,2)
+6 IF $GET(DEPIEN)
IF DEPIEN'=SPOUSE
Begin DoDot:1
+7 IF $PIECE(STRING,HLFS,15)>0
SET X=$PIECE(^DG(43,1,"MT",(X-17000000),0),U,17)
IF X'<$PIECE(STRING,HLFS,9)
SET CNT=CNT+1
SET IVMERR(CNT)="Income does not exceed child exclusion amount-educational expense not allowed"
End DoDot:1
ZICQ QUIT
+1 ;
ZIR(STRING,DEPIEN) ; Check validity of ZIR segment
+1 ;
+2 ; Input: STRING as ZIR segment
+3 ; DEPIEN as the IEN of the dependent in the array, if applicable
+4 ;
+5 NEW I,FND1,X
+6 SET X=$PIECE(STRING,HLFS,14)
+7 IF X]""
IF (X'="Y")
IF (X'="N")
SET CNT=CNT+1
SET FND1=1
SET IVMERR(CNT)="DEPENDENT CHILD SCHOOL INDICATOR contains unacceptable value."
+8 IF '$GET(DEPIEN)
Begin DoDot:1
+9 IF X]""
SET CNT=CNT+1
SET FND1=1
SET IVMERR(CNT)="DEPENDENT CHILD SCHOOL INDICATOR should not be filled in for Veteran."
+10 ;IVM*2.0*160
+11 ; for historical data that has Married Last Year = Y, Lived With Spouse = N, SPOUSE has data, Amount Contributed with value
+12 ;don't go further since amount contributed had value - IVM*2*160
IF $PIECE(STRING,U,15)=""
IF $PIECE(STRING,HLFS,2)
IF '$PIECE(STRING,HLFS,3)
IF SPOUSE
IF ($PIECE(STRING,HLFS,4)<600)
Begin DoDot:2
+13 SET FND1=0
FOR I=3:1:20
if FND1
QUIT
IF $PIECE(ARRAY(SPOUSE,"ZIC"),HLFS,I)
SET FND1=1
SET CNT=CNT+1
SET IVMERR(CNT)="No income data allowed if spouse didn't live w/vet & amt contributed <$600"
End DoDot:2
QUIT
+14 ; Married Last Year = Y, Lived with Spouse = N, SPOUSE has data, Contributed to Spouse = N
+15 IF $PIECE(STRING,HLFS,2)
IF '$PIECE(STRING,HLFS,3)
IF SPOUSE
IF ($PIECE(STRING,U,15)=0)
SET FND1=0
FOR I=3:1:20
if FND1
QUIT
Begin DoDot:2
+16 IF $PIECE(ARRAY(SPOUSE,"ZIC"),HLFS,I)
SET FND1=1
SET CNT=CNT+1
SET IVMERR(CNT)="No income data allowed if spouse didn't live w/vet & vet did not contribute to spousal support"
End DoDot:2
End DoDot:1
+17 IF $GET(DEPIEN)=SPOUSE
Begin DoDot:1
+18 IF X]""
SET CNT=CNT+1
SET FND1=1
SET IVMERR(CNT)="DEPENDENT CHILD SCHOOL INDICATOR should not be filled in for spouse ZIR."
End DoDot:1
+19 IF $GET(DEPIEN)
IF (DEPIEN'=SPOUSE)
Begin DoDot:1
+20 IF '$PIECE(STRING,HLFS,8)
SET FND1=0
FOR I=3:1:20
if FND1
QUIT
IF $PIECE(ARRAY(DEPIEN,"ZIC"),HLFS,I)
SET CNT=CNT+1
SET IVMERR(CNT)="Shouldn't have income data if Child Had Income is NO"
SET FND1=1
End DoDot:1
ZIRQ QUIT
