STANDARD DATA DICTIONARY #408.22 -- INCOME RELATION FILE 3/24/25 PAGE 1
STORED IN ^DGMT(408.22, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the income relation type data for a veteran and any applicable relations. This relation type information is
used in registration and means test.
COMPILED CROSS-REFERENCE ROUTINE: DGMTXX2
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
IDENTIFIED BY: INDIVIDUAL ANNUAL INCOME (#.02)[R]
"WRITE": D ID^DGMTDD2
CROSS
REFERENCED BY: CONTRIBUTED TO SPOUSAL SUPPORT(AD), MARRIED LAST CALENDAR YEAR(AENR05), LIVED WITH PATIENT(AENR06),
AMOUNT CONTRIBUTED TO SPOUSE(AENR07), DEPENDENT CHILDREN(AENR08), INCAPABLE OF SELF-SUPPORT(AENR09),
CONTRIBUTED TO SUPPORT(AENR1), CHILD HAD INCOME(AENR11), INCOME AVAILABLE TO YOU(AENR12),
NUMBER OF DEPENDENT CHILDREN(AENR13), CHILD 18-23 IN SCHOOL(AENR18), INDIVIDUAL ANNUAL INCOME(AIND),
CONTRIBUTED TO SPOUSAL SUPPORT(AIX), CHILD HAD INCOME(AIX11), INCOME AVAILABLE TO YOU(AIX12),
MARRIED LAST CALENDAR YEAR(AIX5), AMOUNT CONTRIBUTED TO SPOUSE(AIX7), DEPENDENT CHILDREN(AIX8),
ANNUAL MEANS TEST(AMT), PATIENT(AMT1), INDIVIDUAL ANNUAL INCOME(AMT2), PATIENT(B)
408.22,.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2) (Required)
LAST EDITED: AUG 05, 1998
HELP-PROMPT: Enter in this field the patient associated with this income relation.
DESCRIPTION:
Enter in this field the patient associated with this income relation.
CROSS-REFERENCE: 408.22^B
1)= S ^DGMT(408.22,"B",$E(X,1,30),DA)=""
2)= K ^DGMT(408.22,"B",$E(X,1,30),DA)
This cross-reference allows look-up by patient.
CROSS-REFERENCE: 408.22^AMT1^MUMPS
1)= S:$P(^DGMT(408.22,DA,0),U,2)&($P($G(^DGMT(408.22,DA,"MT")),U)) ^DGMT(408.22,"AMT",$P(^DGMT(408.
22,DA,"MT"),U),X,$P(^DGMT(408.22,DA,0),U,2),DA)=""
2)= K ^DGMT(408.22,"AMT",+$P($G(^DGMT(408.22,DA,"MT")),U),X,+$P(^DGMT(408.22,DA,0),U,2),DA)
This cross reference is for the means test. It is indexed by means test, patient, individual annual
income pointer, IFN.
408.22,.02 INDIVIDUAL ANNUAL INCOME 0;2 POINTER TO INDIVIDUAL ANNUAL INCOME FILE (#408.21) (Required)
OUTPUT TRANSFORM: D NAM^DGMTDD2
LAST EDITED: AUG 05, 1998
HELP-PROMPT: Enter in this field the individual whose income is associated with this income relation.
DESCRIPTION:
Enter in this field the individual whose income is associated with this income relation.
UNEDITABLE
CROSS-REFERENCE: 408.22^AIND
1)= S ^DGMT(408.22,"AIND",$E(X,1,30),DA)=""
2)= K ^DGMT(408.22,"AIND",$E(X,1,30),DA)
This cross-reference can be used to sort by individual annual income by internal entry number.
CROSS-REFERENCE: 408.22^AMT2^MUMPS
1)= S:$P($G(^DGMT(408.22,DA,"MT")),U) ^DGMT(408.22,"AMT",$P(^DGMT(408.22,DA,"MT"),U),+$P(^DGMT(408.
22,DA,0),U),X,DA)=""
2)= K ^DGMT(408.22,"AMT",+$P($G(^DGMT(408.22,DA,"MT")),U),+$P(^DGMT(408.22,DA,0),U),X,DA)
This cross reference is for the means test. It is indexed by means test, patient, individual annual
income pointer, IFN.
408.22,.05 MARRIED LAST CALENDAR YEAR 0;5 SET (Required)
WAS YOUR MARITAL STATUS EITHER MARRIED OR SEPARATED ON DEC 31ST LAST YEAR
'1' FOR YES;
'0' FOR NO;
INPUT TRANSFORM: D MAR^DGMTDD2:'X
LAST EDITED: SEP 13, 2005
HELP-PROMPT: Enter 'YES' in this field if the veteran's marital status was either married or separated on Dec
31st last year. Otherwise, enter 'NO'.
DESCRIPTION: Enter 'YES' in this field if the veteran's marital status was either married or separated on Dec
31st of last calendar year. Otherwise, enter 'NO'.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^408.22^.06
1)= X ^DD(408.22,.05,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,6),X=X S DIU=X K Y S X="" X ^DD(408.22,.05,1,1,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(408.22,.05,0)):$P(^(0),U,3),1:
"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
1.4)= S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=408.22,DIG=.06 D
^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(408.22,.05,1,1,79.2) S X=X="" I X S X=DIV S Y(1)=$
S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(408.22,.05,1,1,2.
4)
2.4)= S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=408.22,DIG=.06 D
^DICR:$N(^DD(DIH,DIG,1,0))>0
79.2)= S Y(2)=$C(59)_$S($D(^DD(408.22,.05,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0
),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_":",2),$C(59),1)
CREATE CONDITION)= MARRIED="NO"
CREATE VALUE)= @
DELETE CONDITION)= MARRIED=""
DELETE VALUE)= @
FIELD)= LIVES WITH PATIENT
This triggered cross-reference will update the 'Lived With Patient' field (#.06). If the patient
is not married, the 'Lived With Patient' field is deleted for the patient.
CROSS-REFERENCE: 408.22^AIX5^MUMPS
1)= I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,5) D FUN^DGMTDD2:'$P(^(0),U,8),SP^DGMTDD2
2)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,5)="" D FUN^DGMTDD2:'$P(^(0),U,8),SP^DGMTDD2
This mumps cross-reference work like a "trigger" cross-reference. If the patient was not married
and did not have any dependent children, any corresponding funeral and burial expenses on file for
the year are deleted. Also, if the veteran is no longer married the spouse's corresponding income
and net worth on file for the year will be deleted.
CROSS-REFERENCE: 408.22^AENR05^MUMPS
1)= D E40822^DGRTRIG(DA)
2)= D E40822^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.22,.06 LIVED WITH PATIENT 0;6 SET
'1' FOR YES;
'0' FOR NO;
INPUT TRANSFORM: D LIV^DGMTDD2
LAST EDITED: SEP 13, 2005
DESCRIPTION:
Enter whether the veteran and relation lived together last calendar year.
EXECUTABLE HELP: D LIVHLP^DGMTDD2
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the MARRIED LAST CALENDAR YEAR field of the INCOME RELATION File
CROSS-REFERENCE: ^^TRIGGER^408.22^.07
1)= X ^DD(408.22,.06,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,7),X=X S DIU=X K Y S X="" X ^DD(408.22,.06,1,1,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(408.22,.06,0)):$P(^(0),U,3),1:
"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="YES"
1.4)= S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=408.22,DIG=.07 D
^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(408.22,.06,1,1,79.2) S X=X="" I X S X=DIV S Y(1)=$
S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(408.22,.06,1,1,2.
4)
2.4)= S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=408.22,DIG=.07 D
^DICR:$N(^DD(DIH,DIG,1,0))>0
79.2)= S Y(2)=$C(59)_$S($D(^DD(408.22,.06,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0
),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_":",2),$C(59),1)
CREATE CONDITION)= LIVES WITH PATIENT="YES"
CREATE VALUE)= @
DELETE CONDITION)= LIVES WITH PATIENT=""
DELETE VALUE)= @
FIELD)= AMOUNT CONTRIBUTED TO SPOUSE
This triggered cross-reference will update the 'Amount Contributed to Spouse' field (#.07). If the
patient is married and lived with his or her spouse, the 'Amount Contributed to Spouse' field is
deleted for the patient.
CROSS-REFERENCE: ^^TRIGGER^408.22^.1
1)= X ^DD(408.22,.06,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,10),X=X S DIU=X K Y S X="" X ^DD(408.22,.06,1,2,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(408.22,.06,0)):$P(^(0),U,3),1:
"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="YES"
1.4)= S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=408.22,DIG=.1 D
^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(408.22,.06,1,2,79.2) S X=X="" I X S X=DIV S Y(1)=$
S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" X ^DD(408.22,.06,1,2,2
.4)
2.4)= S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=408.22,DIG=.1 D
^DICR:$N(^DD(DIH,DIG,1,0))>0
79.2)= S Y(2)=$C(59)_$S($D(^DD(408.22,.06,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0
),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_":",2),$C(59),1)
CREATE CONDITION)= LIVES WITH PATIENT="YES"
CREATE VALUE)= @
DELETE CONDITION)= LIVES WITH PATIENT=""
DELETE VALUE)= @
FIELD)= CONTRIBUTE TO SUPPORT
This triggered cross-reference will update the 'Contribute to Support' field (#.1). If the patient
had a dependent child which lived with him or her, the 'Contributed to Support' field is deleted
for the child.
CROSS-REFERENCE: 408.22^AENR06^MUMPS
1)= D E40822^DGRTRIG(DA)
2)= D E40822^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.22,.07 AMOUNT CONTRIBUTED TO SPOUSE 0;7 NUMBER
IF YOU DID NOT LIVE WITH SPOUSE, AMOUNT CONTRIBUTED TO SPOUSE LAST YEAR
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X D AMT^DGMTDD2:$D(X)
LAST EDITED: SEP 13, 2005
HELP-PROMPT: Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
DESCRIPTION: This response must be a number.
If the veteran did not live with his or her spouse, enter in this field the amount the veteran
contributed to his or her spouse last calendar year.
If the amount the veteran contributed is less than $600, then the spouse will not be considered a
dependent for financial assessment.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the LIVED WITH PATIENT field of the INCOME RELATION File
CROSS-REFERENCE: 408.22^AIX7^MUMPS
1)= I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,6),$P(^(0),U,7)<600 D SP^DGMTDD2
2)= I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,6),$P(^(0),U,7)="" D SP^DGMTDD2
This mumps cross-reference works like a "trigger" cross-reference. If the patient did not
contribute at least $600 to the spouse, any corresponding income and net worth on file for the year
are deleted.
CROSS-REFERENCE: 408.22^AENR07^MUMPS
1)= D E40822^DGRTRIG(DA)
2)= D E40822^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.22,.08 DEPENDENT CHILDREN 0;8 SET
DID YOU HAVE ANY DEPENDENT CHILDREN
'1' FOR YES;
'0' FOR NO;
INPUT TRANSFORM: D DEP^DGMTDD2:'X
LAST EDITED: SEP 13, 2005
HELP-PROMPT: Enter in this field whether the veteran had dependent children last calendar year.
DESCRIPTION: Enter in this field whether the veteran had any UNMARRIED children or stepchildren under the age of
18 or between the ages of 18 and 23 and attending school, or any unmarried children over the age of
17 who became permanently incapable of self-support before reaching the age of 18 last calendar
year.
School attendance does not have to be full-time but it should be regular. The child can be
enrolled in high school, college, or vocational school. If the worksheet is being completed during
a break between regular school terms, consider the child to be attending school if the veteran
indicates that the child plans to enroll in the next regular term (excluding summer sessions). If
the child is under the age of 18, the child does not have to be attending school. DO NOT INCLUDE
FOSTER CHILDREN.
If the veteran says 'YES', all dependent children must be entered for the means test thresholds to
be properly determined.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.22^AIX8^MUMPS
1)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,8)=0,'$P(^(0),U,5) D FUN^DGMTDD2
2)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,8)="",'$P(^(0),U,5) D FUN^DGMTDD2
This mumps cross-reference works like a "trigger" cross-reference. If the patient did not have any
dependent children and was not married, any corresponding funeral and burial expenses on file for
the year are deleted.
CROSS-REFERENCE: 408.22^AENR08^MUMPS
1)= D E40822^DGRTRIG(DA)
2)= D E40822^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.22,.09 INCAPABLE OF SELF-SUPPORT 0;9 SET
PERMANENTLY INCAPABLE OF SELF-SUPPORT
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 13, 2005
HELP-PROMPT: Enter in this field whether the child is unmarried, over the age of 17, and became permanently
incapable of self-support before reaching the age of 18.
DESCRIPTION: Enter in this field whether the child is unmarried, over the age of 17, and became permanently
incapable of self-support before reaching in age of 18.
CROSS-REFERENCE: 408.22^AENR09^MUMPS
1)= D E40822^DGRTRIG(DA)
2)= D E40822^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.22,.1 CONTRIBUTED TO SUPPORT 0;10 SET
DID YOU CONTRIBUTE TO THE CHILD'S SUPPORT
'1' FOR YES;
'0' FOR NO;
INPUT TRANSFORM: D CON^DGMTDD2
LAST EDITED: SEP 13, 2005
HELP-PROMPT: Enter in this field a Yes or No to indicate whether the veteran contributed any dollar amount to
the child's support last calendar year.
DESCRIPTION: Enter in this field a Yes or No to indicate whether the veteran contributed any dollar amount to
the child's support last calendar year. The contributions do not have to be in regular set
amounts. For example, a veteran who paid a child's school tuition or medical bills would be
contributing to the child's support.
EXECUTABLE HELP: D HLPCS^DGRPU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the LIVED WITH PATIENT field of the INCOME RELATION File
CROSS-REFERENCE: 408.22^AENR1^MUMPS
1)= D E40822^DGRTRIG(DA)
2)= D E40822^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.22,.11 CHILD HAD INCOME 0;11 SET
DID CHILD HAVE ANY INCOME
'1' FOR YES;
'0' FOR NO;
LAST EDITED: APR 22, 2008
EXECUTABLE HELP: D CHLDINNW^DGMTHLP
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^408.22^.12
1)= X ^DD(408.22,.11,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,12),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,12)=DIV,DIH=408.22,D
IG=.12 D ^DICR
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.11,0)),U,3) S X=$P($P(
Y(1),$C(59)_Y(0)_":",2),$C(59))="NO"
2)= X ^DD(408.22,.11,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,12),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,12)=DIV,DIH=408.22,D
IG=.12 D ^DICR
2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.11,0)),U,3),Y(1)=$S($D
(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59))=""
CREATE CONDITION)= #.11="NO"
CREATE VALUE)= @
DELETE CONDITION)= #.11=""
DELETE VALUE)= @
FIELD)= #.12
This triggered cross-reference will update the 'Income Available to You' field (#.12). If the
patient has a dependent child whose income is not available to him or her, the 'Income Avaliable to
You' field is deleted.
CROSS-REFERENCE: 408.22^AIX11^MUMPS
1)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,11)=0 D INC^DGMTDD2
2)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,11)="" D INC^DGMTDD2
This mumps cross-reference works like a "trigger" cross-reference. If the patient had a child with
no income, any corresponding income or educational expenses on file for the year are deleted.
CROSS-REFERENCE: 408.22^AENR11^MUMPS
1)= D E40822^DGRTRIG(DA)
2)= D E40822^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.22,.12 INCOME AVAILABLE TO YOU 0;12 SET
WAS THE CHILD'S INCOME AVAILABLE TO YOU
'1' FOR YES;
'0' FOR NO;
INPUT TRANSFORM: D AVL^DGMTDD2
LAST EDITED: SEP 13, 2005
EXECUTABLE HELP: D INNWAVAL^DGMTHLP
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the CHILD HAD INCOME field of the INCOME RELATION File
CROSS-REFERENCE: 408.22^AIX12^MUMPS
1)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,12)=0,$P(^(0),U,11) D INC^DGMTDD2
2)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,12)="",$P(^(0),U,11) D INC^DGMTDD2
This mumps cross-reference works like a "trigger" cross-reference. If the patient had a child
whose income was not available to him or her, any corresponding income or educational expenses on
file for the year are deleted.
CROSS-REFERENCE: 408.22^AENR12^MUMPS
1)= D E40822^DGRTRIG(DA)
2)= D E40822^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.22,.13 NUMBER OF DEPENDENT CHILDREN 0;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>30)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 13, 2005
HELP-PROMPT: Type a Number between 0 and 30, 0 Decimal Digits
DESCRIPTION: This field is computed by the system. Dependent children include any unmarried children or
stepchildren who are under the age of 18 or between the ages of 18 and 23 and attending school, or
any unmarried children over the age of 17 who became permanently incapable of self-support before
reaching the age of 18.
CROSS-REFERENCE: 408.22^AENR13^MUMPS
1)= D E40822^DGRTRIG(DA)
2)= D E40822^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.22,.14 MARRIED THIS YEAR 0;14 SET
IS YOUR MARITAL STATUS EITHER MARRIED OR SEPARATED
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 02, 2003
DESCRIPTION: Enter 'YES' in this field if the veteran's marital status currently is either married or separated.
Otherwise, enter 'NO'.
CROSS-REFERENCE: ^^TRIGGER^408.22^.15
1)= X ^DD(408.22,.14,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,15),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=408.22,D
IG=.15 D ^DICR
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3) S X=$P($P(
Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
2)= X ^DD(408.22,.14,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,15),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=408.22,D
IG=.15 D ^DICR
2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3),Y(1)=$S($D
(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59),1)=""
CREATE CONDITION)= #.14="NO"
CREATE VALUE)= @
DELETE CONDITION)= #.14=""
DELETE VALUE)= @
FIELD)= #.15
This triggered cross-reference will update the Living With Patient field (#.15). If Married This
Year="NO", the Living With Patient field will be deleted.
CROSS-REFERENCE: ^^TRIGGER^408.22^.16
1)= X ^DD(408.22,.14,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,16),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=408.22,D
IG=.16 D ^DICR
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3) S X=$P($P(
Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
2)= X ^DD(408.22,.14,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,16),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=408.22,D
IG=.16 D ^DICR
2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3),Y(1)=$S($D
(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59),1)=""
CREATE CONDITION)= #.14="NO"
CREATE VALUE)= @
DELETE CONDITION)= #.14=""
DELETE VALUE)= @
FIELD)= #.16
This trigger cross-reference will update the Residing In The Community field (#.16). If Married
This Year="NO", the Residing In The Community field will be deleted.
CROSS-REFERENCE: ^^TRIGGER^408.22^.17
1)= X ^DD(408.22,.14,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,17),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=408.22,D
IG=.17 D ^DICR
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3) S X=$P($P(
Y(1),$C(59)_Y(0)_":",2),$C(59))="NO"
2)= X ^DD(408.22,.14,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,17),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=408.22,D
IG=.17 D ^DICR
2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3),Y(1)=$S($D
(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59))=""
CREATE CONDITION)= #.14="NO"
CREATE VALUE)= @
DELETE CONDITION)= #.14=""
DELETE VALUE)= @
FIELD)= #.17
This trigger cross-reference will update the Legally Separated field (#.17). If Married This
Year="NO", the Legally Separated field will be deleted.
408.22,.15 LIVING WITH PATIENT 0;15 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: AUG 22, 2001
DESCRIPTION:
Enter whether the veteran and relation are living together.
NOTES: TRIGGERED by the MARRIED THIS YEAR field of the INCOME RELATION File
TRIGGERED by the RESIDING IN THE COMMUNITY field of the INCOME RELATION File
408.22,.16 RESIDING IN THE COMMUNITY 0;16 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: AUG 22, 2001
DESCRIPTION: Enter 'YES' if the spouse or dependent is residing in the community. Enter 'NO' if the spouse or
dependent is institutionalized.
NOTES: TRIGGERED by the MARRIED THIS YEAR field of the INCOME RELATION File
TRIGGERED by the LEGALLY SEPARATED field of the INCOME RELATION File
CROSS-REFERENCE: ^^TRIGGER^408.22^.15
1)= X ^DD(408.22,.16,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,15),X=X S DIU=X K Y S X=DIV S X="NO" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DI
H=408.22,DIG=.15 D ^DICR
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.16,0)),U,3) S X=$P($P(
Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
2)= X ^DD(408.22,.16,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,15),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=408.22,D
IG=.15 D ^DICR
2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.16,0)),U,3),Y(1)=$S($D
(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_":",2),$C(59),1)=""
CREATE CONDITION)= RESIDING IN THE COMMUNITY="NO"
CREATE VALUE)= "NO"
DELETE CONDITION)= RESIDING IN THE COMMUNITY=""
DELETE VALUE)= @
FIELD)= #.15
This trigger cross-reference will update the Living With Patient field (#.15). If Residing in the
Community="NO", then Living With Patient="NO".
408.22,.17 LEGALLY SEPARATED 0;17 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 02, 2003
DESCRIPTION:
Enter 'YES' in this field if the veteran and spouse are legally separated.
TECHNICAL DESCR: This field will be used to determine how the veteran's LTC copayment is calculated. If LEGALLY
SEPARATED = "YES", then the calculation used will be the same as an unmarried veteran. This
question will be asked if the field MARRIED THIS YEAR (#.14) = "YES".
NOTES: TRIGGERED by the MARRIED THIS YEAR field of the INCOME RELATION File
CROSS-REFERENCE: ^^TRIGGER^408.22^.16
1)= X ^DD(408.22,.17,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,16),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=408.22,D
IG=.16 D ^DICR
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.17,0)),U,3) S X=$P($P(
Y(1),$C(59)_Y(0)_":",2),$C(59))="YES"
2)= X ^DD(408.22,.17,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U
,16),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=408.22,D
IG=.16 D ^DICR
2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.17,0)),U,3),Y(1)=$S($D
(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,17)_":",2),$C(59))="YES"
CREATE CONDITION)= #.17="YES"
CREATE VALUE)= @
DELETE CONDITION)= #.17="YES"
DELETE VALUE)= @
FIELD)= #.16
This trigger cross-reference will update the Residing in the Community field (#.16). If Legally
Separated="YES", the Residing in the Community field will be deleted.
408.22,.18 CHILD 18-23 IN SCHOOL 0;18 SET
CHILD IS 18-23 YRS AND CHILD ATTENDED SCHOOL LAST YR
'0' FOR NO;
'1' FOR YES;
LAST EDITED: SEP 13, 2005
EXECUTABLE HELP: D HLP1823^DGRPU
CROSS-REFERENCE: 408.22^AENR18^MUMPS
1)= D E40822^DGRTRIG(DA)
2)= D E40822^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.22,.19 AMOUNT CONTRIBUTED TO CHILD 0;19 NUMBER
IF YOU DID NOT LIVE WITH CHILD, AMOUNT CONTRIBUTED TO CHILD LAST YEAR
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
LAST EDITED: JAN 24, 2005
HELP-PROMPT: Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
DESCRIPTION: Enter in this field the dollar amount that the veteran contributed to the child's support last
calendar year. The contributions do not have to be in regular set amounts. For example, a veteran
who paid a child's school tuition or medical bills would be contributing to the child's support.
408.22,.21 CONTRIBUTED TO SPOUSAL SUPPORT 0;20 SET
IF YOUR SPOUSE DID NOT LIVE WITH YOU LAST YEAR, DID YOU PROVIDE SUPPORT:
'1' FOR YES;
'0' FOR NO;
LAST EDITED: DEC 03, 2014
HELP-PROMPT: Enter 'YES' if the Veteran contributed to their spouse's support and 'NO' if he or she did not
contribute to their spouse's support.
DESCRIPTION: This response must be a 'YES' or 'NO'
If the veteran did not live with his or her spouse, enter in this field the veteran's statement as
to whether he or she contributed to his or her spouse's support last calendar year.
If the veteran did not contribute to the spouse, then the spouse will not be considered a dependent
for financial assessment.
CROSS-REFERENCE: 408.22^AIX^MUMPS
1)= I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,6),'$P(^(0),U,20) D SP^DGMTDD2
2)= I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,6),'$P(^(0),U,20) D SP^DGMTDD2
This mumps cross-reference works like a "trigger" cross-reference. If the patient did not
contribute to the spouse, any corresponding income and net worth on file for the year are deleted.
CROSS-REFERENCE: 408.22^AD^MUMPS
1)= D E40822^DGRTRIG(DA)
2)= D E40822^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.22,31 ANNUAL MEANS TEST MT;1 POINTER TO ANNUAL MEANS TEST FILE (#408.31)
LAST EDITED: MAR 02, 1995
CROSS-REFERENCE: 408.22^AMT^MUMPS
1)= S:$P(^DGMT(408.22,DA,0),U,2) ^DGMT(408.22,"AMT",X,+$P(^DGMT(408.22,DA,0),U),+$P(^DGMT(408.22,DA
,0),U,2),DA)=""
2)= K ^DGMT(408.22,"AMT",X,+$P(^DGMT(408.22,DA,0),U),+$P($G(^DGMT(408.22,DA,0)),U,2),DA)
This cross reference is for the means test. It is indexed by means test, patient, individual
annual income pointer, IFN.
FILES POINTED TO FIELDS
ANNUAL MEANS TEST (#408.31) ANNUAL MEANS TEST (#31)
INDIVIDUAL ANNUAL INCOME
(#408.21) INDIVIDUAL ANNUAL INCOME (#.02)
PATIENT (#2) PATIENT (#.01)
INPUT TEMPLATE(S):
DGMT ENTER/EDIT DEPENDENTS DEC 12, 2014@08:40 USER #0 ^DGMTXD
DGMT ENTER/EDIT MARITAL STATUSDEC 18, 2014@10:39 USER #0 ^DGMTXM
DGMT V1 ENTER/EDIT DEPENDENTS DEC 12, 2014@07:29 USER #0 ^DGMTXT
EASEC EDIT DEPENDENTS AUG 21, 2001@13:59 USER #0
EASEC EDIT MARITAL STATUS SEP 02, 2003@14:12 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):