| [613] | 1 | IVMCMF1 ;ALB/RMM,CKN - CHECK ANNUAL INCOME DATA ; 11/8/05 3:27pm
|
|---|
| 2 | ;;2.0;INCOME VERIFICATION MATCH;**71,82,107,105**;21-OCT-94;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine is called from IVMCMF.
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | ZIC(STRING,DEPIEN) ; Check validity of ZIC segment
|
|---|
| 8 | ;
|
|---|
| 9 | ; Input: STRING as ZIC segment
|
|---|
| 10 | ; DEPIEN as the IEN of the dependent in the array, if applicable
|
|---|
| 11 | ;
|
|---|
| 12 | N X S X=$P(STRING,HLFS,2)
|
|---|
| 13 | I $G(DEPIEN) I DEPIEN'=SPOUSE D
|
|---|
| 14 | .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"
|
|---|
| 15 | ZICQ Q
|
|---|
| 16 | ;
|
|---|
| 17 | ZIR(STRING,DEPIEN) ; Check validity of ZIR segment
|
|---|
| 18 | ;
|
|---|
| 19 | ; Input: STRING as ZIR segment
|
|---|
| 20 | ; DEPIEN as the IEN of the dependent in the array, if applicable
|
|---|
| 21 | ;
|
|---|
| 22 | N I,FND1,X
|
|---|
| 23 | S X=$P(STRING,HLFS,14)
|
|---|
| 24 | I X]"",(X'="Y"),(X'="N") S CNT=CNT+1,FND1=1,IVMERR(CNT)="DEPENDENT CHILD SCHOOL INDICATOR contains unacceptable value."
|
|---|
| 25 | I '$G(DEPIEN) D
|
|---|
| 26 | .I X]"" S CNT=CNT+1,FND1=1,IVMERR(CNT)="DEPENDENT CHILD SCHOOL INDICATOR should not be filled in for Veteran."
|
|---|
| 27 | .I '$P(STRING,HLFS,3),SPOUSE,($P(STRING,HLFS,4)<600) 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"
|
|---|
| 28 | I $G(DEPIEN)=SPOUSE D
|
|---|
| 29 | . I X]"" S CNT=CNT+1,FND1=1,IVMERR(CNT)="DEPENDENT CHILD SCHOOL INDICATOR should not be filled in for spouse ZIR."
|
|---|
| 30 | I $G(DEPIEN),(DEPIEN'=SPOUSE) D
|
|---|
| 31 | .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
|
|---|
| 32 | ZIRQ Q
|
|---|
