- 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 Mar 13, 2025@21:05:33 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
