STANDARD DATA DICTIONARY #408.21 -- INDIVIDUAL ANNUAL INCOME FILE 9/29/25 PAGE 1
STORED IN ^DGMT(408.21, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the individual annual income for a veteran and any applicable relations. This income information is used in
registration and means test.
COMPILED CROSS-REFERENCE ROUTINE: DGMTXX1
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
IDENTIFIED BY: PATIENT RELATION (#.02)[R]
"WRITE": D ID^DGMTDD3
POINTED TO BY: INDIVIDUAL ANNUAL INCOME field (#.02) of the INCOME RELATION File (#408.22)
CROSS
REFERENCED BY: YEAR(AENR01), SOCIAL SECURITY (NOT SSI)(AENR08), U.S. CIVIL SERVICE(AENR09), U.S. RAILROAD RETIREMENT(AENR1),
ADJUSTED MEDICAL EXPENSES(AENR101), FUNERAL AND BURIAL EXPENSES(AENR102), EDUCATIONAL EXPENSES(AENR103),
MILITARY RETIREMENT(AENR11), UNEMPLOYMENT COMPENSATION(AENR12), OTHER RETIREMENT(AENR13),
TOTAL INCOME FROM EMPLOYMENT(AENR14), INTEREST, DIVIDEND, OR ANNUITY(AENR15),
WORKERS COMP. OR BLACK LUNG(AENR16), ALL OTHER INCOME(AENR17), CASH, AMOUNTS IN BANK ACCOUNTS(AENR201),
STOCKS AND BONDS(AENR202), REAL PROPERTY(AENR203), OTHER PROPERTY OR ASSETS(AENR204), DEBTS(AENR205),
ADJUSTED MEDICAL EXPENSES(AGME101), YEAR(AI), PATIENT RELATION(AI2), TOTAL INCOME FROM EMPLOYMENT(AIX14),
OTHER PROPERTY OR ASSETS(AIX204), *ANNUAL MEANS TEST(AM), YEAR(B), PATIENT RELATION(C)
408.21,.01 YEAR 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 13, 2005
HELP-PROMPT: Enter in this field the year the income information is being collected for.
DESCRIPTION:
Enter in this field the year the income information is being collected for.
CROSS-REFERENCE: 408.21^B
1)= S ^DGMT(408.21,"B",$E(X,1,30),DA)=""
2)= K ^DGMT(408.21,"B",$E(X,1,30),DA)
This cross-reference allows look-up by year.
CROSS-REFERENCE: 408.21^AI^MUMPS
1)= S:$P(^DGMT(408.21,DA,0),U,2) ^DGMT(408.21,"AI",+$P(^(0),U,2),-X,DA)=""
2)= K ^DGMT(408.21,"AI",+$P(^DGMT(408.21,DA,0),U,2),-X,DA)
This cross-reference can be used to sort by patient by inverse year by internal entry number.
CROSS-REFERENCE: 408.21^AENR01^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,.02 PATIENT RELATION 0;2 POINTER TO PATIENT RELATION FILE (#408.12) (Required)
OUTPUT TRANSFORM: D NAM^DGMTDD3
LAST EDITED: MAR 24, 1992
HELP-PROMPT: Enter in this field the patient or relation whose annual income information is being collected.
DESCRIPTION:
Enter in this field the patient or relation whose annual income information is being collected.
UNEDITABLE
CROSS-REFERENCE: 408.21^AI2^MUMPS
1)= S ^DGMT(408.21,"AI",X,-$P(^DGMT(408.21,DA,0),U),DA)=""
2)= K ^DGMT(408.21,"AI",X,-$P(^DGMT(408.21,DA,0),U),DA)
This cross-referencs can be used to sort by patient by inverse year by internal entry number.
CROSS-REFERENCE: 408.21^C
1)= S ^DGMT(408.21,"C",$E(X,1,30),DA)=""
2)= K ^DGMT(408.21,"C",$E(X,1,30),DA)
This cross-reference allows look-up by patient relation.
408.21,.06 RETIREMENT AND PENSION 0;6 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 05, 2001
HELP-PROMPT: Type a Dollar amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount of Retirement and Pension received during the current
calendar year.
A monthly amount can be entered with an '*' after it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,.07 VA PENSION 0;7 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 05, 2001
HELP-PROMPT: Type a Dollar amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount of VA Pension received during the current calendar year.
A monthly amount can be entered with an '*' after it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,.08 SOCIAL SECURITY (NOT SSI) 0;8 NUMBER
ANNUAL SOCIAL SECURITY (NOT SSI)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 22, 2006
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
TECHNICAL DESCR: This field is shared by Income Screening and Means Test. Both applications maintain the field.
When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Social
Security (Not SSI)'. It contains the amount of annual Social Security received the previous
calendar year. It does not include SSI.
When 408.31/2.11 MEANS TEST VERSION is '1', this field displays on screen as 'Other Income Amounts
(Soc. Sec., Compensation, Pension, Interest, Div.)'. It contains the amount of annual Social
Security, compensation, pension, interest, and dividends. It does not include welfare.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 8^EASECDD D:$G(DGMTYPT)'=3 8^DGMTDD4
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR08^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,.09 U.S. CIVIL SERVICE 0;9 NUMBER
ANNUAL U.S. CIVIL SERVICE
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: JAN 30, 2007
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount of U.S. Civil Service received during the previous calendar
year.
A monthly amount can be entered with an '*' after it.
TECHNICAL DESCR: This field is shared by Income Screening and Means Test. Both applications maintain the field.
When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'U.S. Civil
Service'. It contains the amount of annual Civil Service compensation received the previous
calendar year.
When 408.31/2.11 MEANS TEST VERSION is '1', this field does not display on screen. It should
contain Null.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 9^EASECDD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR09^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,.1 U.S. RAILROAD RETIREMENT 0;10 NUMBER
ANNUAL U.S. RAILROAD RETIREMENT
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 13, 2005
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount of U.S. Railroad Retirement received during the previous
calendar year.
A monthly amount can be entered with an '*' after it.
TECHNICAL DESCR: This field is shared by Income Screening and Means Test. Both applications maintain the field.
When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'U.S. Railroad
Retirement'. It contains the amount of annual Railroad Retirement compensation received the
previous calendar year.
When 408.31/2.11 MEANS TEST VERSION is '1', this field does not display on screen. It should
contain Null.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 10^EASECDD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR1^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,.11 MILITARY RETIREMENT 0;11 NUMBER
ANNUAL MILITARY RETIREMENT
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 13, 2005
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount of Military Retirement received during the previous calendar
year.
A monthly amount can be entered with an '*' after it.
TECHNICAL DESCR: This field is shared by Income Screening and Means Test. Both applications maintain the field.
When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Military
Retirement'. It contains the amount of annual Military Retirement compensation received the
previous calendar year.
When 408.31/2.11 MEANS TEST VERSION is '1', this field does not display on screen. It should
contain Null.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 11^EASECDD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR11^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,.12 UNEMPLOYMENT COMPENSATION 0;12 NUMBER
ANNUAL UNEMPLOYMENT COMPENSATION
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 13, 2005
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount of Unemployment Compensation received during the previous
calendar year.
A monthly amount can be entered with an '*' after it.
TECHNICAL DESCR: This field is shared by Income Screening and Means Test. Both applications maintain the field.
When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Unemployment
Compensation'. It contains the amount of annual unemployment compensation received the previous
calendar year.
When 408.31/2.11 MEANS TEST VERSION is '1', this field does not display on screen. It should
contain Null.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 12^EASECDD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR12^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,.13 OTHER RETIREMENT 0;13 NUMBER
ANNUAL OTHER RETIREMENT
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: JUL 12, 2006
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount of Other Retirement received during the previous calendar
year. This includes company, state, local, etc.
A monthly amount can be entered with an '*' after it.
TECHNICAL DESCR: This field is shared by Income Screening and Means Test. Both applications maintain the field.
When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Other
Retirement'. It contains the amount of annual other retirement compensation received the previous
calendar year.
When 408.31/2.11 MEANS TEST VERSION is '1', this field does not display on screen. It should
contain Null.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 13^EASECDD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR13^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,.14 TOTAL INCOME FROM EMPLOYMENT 0;14 NUMBER
ANNUAL TOTAL INCOME FROM EMPLOYMENT
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: JUL 12, 2006
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
TECHNICAL DESCR: This field is shared by Income Screening and Means Test. Both applications maintain this field.
When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Total
Employment Income'. It contains the annual amount of total income from employment received during
the previous calendar year. This includes wages, salary, earnings, and tips.
When 408.31/2.11 MEANS TEST VERSION is '1', this field displays on screen as 'Total Employment
Income (Wages, Bonuses, Tips)'. It contains the annual amount of total income from employment
received during the previous calendar year. It includes wages, salary, earnings and tips. It does
not include income from farm, ranch, property, or business.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 14^EASECDD D:$G(DGMTYPT)'=3 14^DGMTDD4
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AIX14^MUMPS
1)= D EMP^DGMTDD3
2)= I $D(^DGMT(408.21,DA,0)),$P(^(0),U,14)="" D EMP^DGMTDD3
This mumps cross-reference works like a "trigger" cross-reference. If the patient has a child with
no employment income, or the child's employment income minus the income exclusion is not greater
than 0 any corresponding educational expenses on file for the year are deleted.
CROSS-REFERENCE: 408.21^AENR14^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,.15 INTEREST, DIVIDEND, OR ANNUITY 0;15 NUMBER
ANNUAL INTEREST, DIVIDEND OR ANNUITY INCOME
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: JUL 12, 2006
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount of Interest, Dividend, or Annuity Income received during the
previous calendar year.
A monthly amount can be entered with an '*' after it.
TECHNICAL DESCR: This field is shared by Income Screening and Means Test. Both applications maintain this field.
When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as
'Interest,Dividend,Annuity'. It contains the amount of annual interest, dividend, and annuity
received the previous calendar year.
When 408.31/2.11 MEANS TEST VERSION is '1', this field does not display on screen. It should
contain Null.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 15^EASECDD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR15^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,.16 WORKERS COMP. OR BLACK LUNG 0;16 NUMBER
ANNUAL WORKERS COMPENSATION OR BLACK LUNG BENEFITS
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: JUL 12, 2006
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount of Workers Compensation or Black Lung Benefits received
during the previous calendar year.
A monthly amount can be entered with an '*' after it.
TECHNICAL DESCR: This field is shared by Income Screening and Means Test. Both applications maintain the field.
When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Workers Comp
or Black Lung'. It contains the amount of annual workers compensation or Black Lung benefit
received the previous calendar year.
When 408.31/2.11 MEANS TEST VERSION is '1', this field does not display on screen. It should
contain Null.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 16^EASECDD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR16^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,.17 ALL OTHER INCOME 0;17 NUMBER
ANNUAL ALL OTHER INCOME
INPUT TRANSFORM: S:$E(X,1)="$" X=$P(X,"$",2) S:X?.N.".".N1"*" X=X*12 S X=$P(X_".00",".",1,2) K:X'?.N1"."1.2N!(X>9999
999)!(X<0)!(X?.E1"."3.N) X
LAST EDITED: MAR 12, 2013
HELP-PROMPT: Type a Dollar amount between 0 and 9999999, 2 Decimal Digits.
DESCRIPTION: Enter in this field the annual amount of all other income received during the previous calendar
year.
A monthly amount can be entered with an '*' after it.
TECHNICAL DESCR: This field is shared by Income Screening and Means Test. Both applications maintain this field.
When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'All Other
Income'. It contains the amount of annual net income from a farm or business received the previous
calendar year.
When 408.31/2.11 MEANS TEST VERSION is '1', this field displays on screen as 'Net Income from Farm,
Ranch, Property, Bus.'. It contains the net income amount from your farm, ranch, property or
business received during the previous calendar year.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 17^EASECDD D:$G(DGMTYPT)'=3 17^DGMTDD4
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR17^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,.18 COPIED DATA 0;18 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: FEB 03, 1993
HELP-PROMPT: If YES, this data has been copied using the Income Screen COPY function without editing
DESCRIPTION: This field is used to track the use of the Income Screen COPY function. NULL = COPY function has
never been used on this record YES = COPY function has been used and no editing has been done NO
= COPY function has been used but record was selected for editing
TECHNICAL DESCR: This field is used to track the use of the Income Screen COPY function. If the COPY function has
NEVER been used for this record this value should be null. The LAST EDITED ON (#104) field has a
trigger to change a YES value to a NO.
NOTES: TRIGGERED by the LAST EDITED ON field of the INDIVIDUAL ANNUAL INCOME File
408.21,.19 SPOUSE VA DISABILITY/COMP 0;19 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 05, 2001
HELP-PROMPT: Type a Dollar amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount for Spouse VA Disability and Compensation received during the
current calendar year.
A monthly amount can be entered with an '*' after it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,.2 COURT MANDATED 0;20 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 05, 2001
HELP-PROMPT: Type a Dollar amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount of Court Mandated income (such as alimony or child support)
received during the current calendar year.
A monthly amount can be entered with an '*' after it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,.21 YEARS ESTIMATED TAXABLE INCOME 0;21 NUMBER
LAST YEAR'S ESTIMATED "HOUSEHOLD" TAXABLE INCOME
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999)!(X<0) X
LAST EDITED: DEC 05, 1996
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999999, 2 Decimal Digits
DESCRIPTION: Last Year's Estimated "Household" Taxable Income which will be used to make preliminary prima facie
financial eligibility determinations.
408.21,1.01 ADJUSTED MEDICAL EXPENSES 1;1 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 D EN^DDIOL("" ""_X,"""",""?0"")" K:X'?.N.1".".2N!(X>999999
9)!(X<0) X
LAST EDITED: JUL 12, 2006
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the total amount of unreimbursed medical expenses paid by the veteran during
the previous calendar year. The expenses can be for the veteran or for members of the veteran's
family. Reportable medical expenses include amounts paid for the following: fees of physicians,
dentists, and other providers of health services; hospital and nursing home fees; medical insurance
premiums (including the Medicare premium); drugs and medicines; eyeglasses; any other expenses that
are reasonable related to medical care. The expenses must actually have been paid by the veteran.
Do not list expenses which have not been paid or which have been paid by someone other than the
veteran. Do not list expenses which the veteran has paid if the veteran expects to receive
reimbursement from insurance or some other source.
TECHNICAL DESCR: As of patch DG*5.3*624, this field should not be edited directly. This field is now derived based
upon the value entered in field 1.12 and the number of dependents active for the test. An IVM
upload is the only exception. When this happens, field 1.12 will be back-calculated based on the
value IVM places here.
When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Adjusted
Medical Expenses'.
When 408.31/2.11 MEANS TEST VERSION is '1', this field also displays on screen as 'Adjusted Medical
Expenses'.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 101^EASECDD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AGME101^MUMPS
1)= D AGME101^DGMTSCU4(DA)
2)= D AGME101^DGMTSCU4(DA)
3)= DO NOT DELETE
Should fire only upon an IVM upload change to this field. Gross medical expense needs to be
back-calculated when IVM changes this field.
CROSS-REFERENCE: 408.21^AENR101^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,1.02 FUNERAL AND BURIAL EXPENSES 1;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 D EN^DDIOL("" ""_X,"""",""?0"")" K:X'?.N.1".".2N!(X>999999
9)!(X<0) X
LAST EDITED: OCT 02, 2007
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
TECHNICAL DESCR: When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Funeral and
Burial Expenses'. It contains amounts paid by the veteran during the previous calendar year for
funeral or burial expenses of the veteran's spouse or child. It requires a spouse or dependent
child for entry/edit.
When 408.31/2.11 MEANS TEST VERSION is '1', this field also displays on screen as 'Funeral and
Burial Expenses'. It contains amounts paid by the veteran during the previous calendar year for
funeral or burial expenses of the veteran's spouse or child. It contains prepaid expenses incurred
by the veteran. It does not require a spouse or dependent child for entry/edit.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 102^EASECDD D:$G(DGMTYPT)'=3 102^DGMTDD4
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR102^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,1.03 EDUCATIONAL EXPENSES 1;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 D EN^DDIOL("" ""_X,"""",""?0"")" K:X'?.N.1".".2N!(X>999999
9)!(X<0) X
LAST EDITED: SEP 13, 2005
DESCRIPTION:
Enter amounts paid by the veteran during the previous calendar year for educational expenses.
EXECUTABLE HELP: D:$G(DGMTYPT)'=3 EDHLP^DGMTDD3 D:$G(DGMTYPT)=3 103^EASECDD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR103^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,1.04 RENT/MORTGAGE 1;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 D EN^DDIOL("" ""_X,"""",""?0"")" K:X'?.N.1".".2N!(X>999999
9)!(X<0) X
LAST EDITED: MAY 06, 2002
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount paid for Rent or Mortgage during the current calendar year.
A monthly amount can be entered with an '*' after it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,1.05 UTILITIES 1;5 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 D EN^DDIOL("" ""_X,"""",""?0"")" K:X'?.N.1".".2N!(X>999999
9)!(X<0) X
LAST EDITED: MAY 06, 2002
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount paid for Utilities during the current calendar year.
A monthly amount can be entered with an '*' after it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,1.06 CAR PAYMENT 1;6 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 D EN^DDIOL("" ""_X,"""",""?0"")" K:X'?.N.1".".2N!(X>999999
9)!(X<0) X
LAST EDITED: MAY 06, 2002
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount paid for Car Payments during the current calendar year. This
amount excludes gas, insurance, and parking fees.
A monthly amount can be entered with an '*' after it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,1.07 FOOD 1;7 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 D EN^DDIOL("" ""_X,"""",""?0"")" K:X'?.N.1".".2N!(X>999999
9)!(X<0) X
LAST EDITED: MAY 06, 2002
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount paid for Food during the current calendar year.
A monthly amount can be entered with an '*' after it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,1.08 COURT-ORDERED PAYMENTS 1;8 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 D EN^DDIOL("" ""_X,"""",""?0"")" K:X'?.N.1".".2N!(X>999999
9)!(X<0) X
LAST EDITED: MAY 06, 2002
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount paid for Court-Ordered Payments during this current calendar
year.
A monthly amount can be entered with an '*' after it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,1.09 INSURANCE 1;9 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 D EN^DDIOL("" ""_X,"""",""?0"")" K:X'?.N.1".".2N!(X>999999
9)!(X<0) X
LAST EDITED: MAY 06, 2002
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount paid for Insurance during the current calendar year. This
amount should exclude life insurance.
A monthly amount can be entered with an '*' after it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,1.1 TAXES 1;10 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 D EN^DDIOL("" ""_X,"""",""?0"")" K:X'?.N.1".".2N!(X>999999
9)!(X<0)!(X?.E1"."3.N) X
LAST EDITED: MAY 06, 2002
HELP-PROMPT: Type a Dollar amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the annual amount paid for Taxes during the current calendar year. This
includes income tax, property and personal tax.
A monthly amount can be entered with an '*' after it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,1.11 TAXES (PROPERTY,PERSONAL) 1;11 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 W "" "",X" K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: FEB 11, 2002
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the total amount of Taxes (personal, property) paid during the current calendar
year.
A monthly amount can be entered with an '*' after it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,1.12 GROSS MEDICAL EXPENSES 1;12 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) X:X["*" "S X=X*12 D EN^DDIOL("" ""_X,"""",""?0"")" K:X'?.N.1".".2N!(X>999999
9)!(X<0) X
LAST EDITED: FEB 22, 2005
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
TECHNICAL DESCR: Enter the total amount of unreimbursed medical expenses paid by the veteran during the previous
calendar year. The expenses can be for the veteran or for persons that the veteran has a legal or
moral obligation to support.
When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Gross Medical
Expenses'.
When 408.31/2.11 MEANS TEST VERSION is '1', this field displays on screen as 'Total Non-Reimbursed
Medical Expenses'.
EXECUTABLE HELP: D:$G(DGMTYPT)'=3 112^DGMTDD4
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,2.01 CASH, AMOUNTS IN BANK ACCOUNTS 2;1 NUMBER
CASH, AMOUNTS IN BANK ACCOUNTS (INCLUDE IRA'S)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X D NET^DGMTDD3:$D(X)
LAST EDITED: JUL 12, 2006
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
TECHNICAL DESCR: When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Cash, Amts in
Bank Accts'. It contains amounts from checking accounts, savings accounts, certificates of
deposit, and IRAs. It does not include stocks and bonds. When the .02 PATIENT RELATION indicates
"V"eteran, this field may include cash amounts from the veteran plus all dependent children.
When 408.31/2.11 MEANS TEST VERSION is '1', this field displays on screen as 'Cash, Amts in Bank
Accts (CDs, IRAs, Stocks, Bonds)'. It contains amounts from checking accounts, savings accounts,
certificates of deposit, IRAs, and stocks and bonds. When the .02 PATIENT RELATION indicates
"V"eteran, this field will contain cash amounts from the veteran only.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 201^EASECDD D:$G(DGMTYPT)'=3 201^DGMTDD5
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR201^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,2.02 STOCKS AND BONDS 2;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X D NET^DGMTDD3:$D(X)
LAST EDITED: JUL 12, 2006
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field stocks, bonds, and similar assets. The reportable value of the stock or bond
is the amount of money that the asset would bring if it were cashed out today.
TECHNICAL DESCR: When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Stocks and
Bonds'. It contains amounts from stocks, bonds, and similar assets. When the .02 PATIENT RELATION
indicates "V"eteran, this field may include amounts from the veteran plus all dependent children.
When 408.31/2.11 MEANS TEST VERSION is '1', this field does not display on screen. It should
contain Null.
EXECUTABLE HELP: D:$G(DGMTYPT)=3 202^EASECDD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR202^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,2.03 REAL PROPERTY 2;3 NUMBER
REAL PROPERTY (NOT INCLUDING PRIMARY RESIDENCE)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X D NET^DGMTDD3:$D(X)
LAST EDITED: JUL 12, 2006
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
TECHNICAL DESCR: When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Real
Property'. It contains amounts from any real property owned minus the amount owed. It does not
include the value of the veteran's primary residence. When the .02 PATIENT RELATION indicates
"V"eteran, this field may include amounts from the veteran plus all dependent children.
When 408.31/2.11 MEANS TEST VERSION is '1', this field displays on screen as 'Land/Bldgs Less
Mortgage, Liens'. It contains amounts from any real property owned minus the amount owed. It does
not include the value of the veteran's primary residence. When the .02 PATIENT RELATION indicates
"V"eteran, this field will contain amounts from the veteran only.
EXECUTABLE HELP: D:$G(DGMTYPT)'=3 203^DGMTDD5
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR203^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,2.04 OTHER PROPERTY OR ASSETS 2;4 NUMBER
OTHER PROPERTY NOT SHOWN ELSEWHERE
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X D NET^DGMTDD3:$D(X)
LAST EDITED: JUL 12, 2006
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
TECHNICAL DESCR: When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Other
Property or Assets'. It contains amounts from any other property or assets owned. When the .02
PATIENT RELATION indicates "V"eteran, this field may include amounts from the veteran plus all
dependent children.
When 408.31/2.11 MEANS TEST VERSION is '1', this field displays on screen as 'Other Prop (Farm,
Bus.) Or Assets (Art, Collectibles) Less Amt Owed'. It contains amounts from any other property or
assets owned minus the amount owed. When the .02 PATIENT RELATION indicates "V"eteran, this field
will contain amounts from the veteran only.
EXECUTABLE HELP: D:$G(DGMTYPT)'=3 204^DGMTDD5
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AIX204^MUMPS
1)= I $D(^DGMT(408.21,DA,2)),$P(^(2),U,4)=0 D OTH^DGMTDD3
2)= I $D(^DGMT(408.21,DA,2)),$P(^(2),U,4)="" D OTH^DGMTDD3
CROSS-REFERENCE: 408.21^AENR204^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,2.05 DEBTS 2;5 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X D DEB^DGMTDD3:$D(X)
LAST EDITED: JUL 12, 2006
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field debts that will reduce the value of the property listed in 'OTHER PROPERTY OR
ASSETS'. It cannot exceed the 'OTHER PROPERTY OR ASSETS'. DO NOT ENTER ANY CREDIT CARD DEBTS.
TECHNICAL DESCR: When 408.31/2.11 MEANS TEST VERSION is Null or '0', this field displays on screen as 'Debts'. It
contains amounts from debts which would reduce the value of the other property or assets. It does
not include credit card debt. When the .02 PATIENT RELATION indicates "V"eteran, this field may
include amounts from the veteran plus all dependent children.
When 408.31/2.11 MEANS TEST VERSION is '1', this field does not display on screen. It should
contain Null.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.21^AENR205^MUMPS
1)= D E40821^DGRTRIG(DA)
2)= D E40821^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.21,2.06 RESIDENCE 2;6 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0)!(X?.E1"."3.N) X
LAST EDITED: AUG 09, 2001
HELP-PROMPT: Type a Dollar amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the current market value, minus any outstanding mortgage or lien, of the
veteran's primary residence. Do not enter an amount in this field if the veteran is receiving only
non-institutional services, or there is a spouse or dependent residing in the community.
408.21,2.07 OTHER RESIDENCES/LAND/FARM 2;7 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: AUG 28, 2003
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the current market value, minus any outstanding mortgages or liens, of the
veteran's other residence(s), land, farm or ranch. Exclude the value of burial plots.
408.21,2.08 VEHICLE(S) 2;8 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 20, 2001
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the current value, minus any outstanding liens, of any vehicle(s) owned by the
veteran. Exclude the value of one vehicle if the veteran is receiving only non-institutional care,
or there is a spouse or dependent residing in the community.
408.21,2.09 OTHER LIQUID ASSETS 2;9 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: MAR 12, 2002
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Enter in this field the current value of such items as stamp or coin collections, art work, and
collectibles minus any amount owed. Exclude from this amount the value of household furniture and
other household goods, clothing, jewelry, and personal items if the veteran is receiving only
non-institutional care, or there is a spouse or dependent residing in the community.
408.21,31 *ANNUAL MEANS TEST MT;1 POINTER TO ANNUAL MEANS TEST FILE (#408.31)
ANNUAL MEANS TEST
LAST EDITED: DEC 19, 1994
HELP-PROMPT: This field contains the means test associated with this income.
DESCRIPTION: This field is filled in by the system. It contains the financial test associated with this
individual annual income. It is not required; since all income records will not necessarily be
associated with a financial test.
WRITE AUTHORITY: ^
CROSS-REFERENCE: 408.21^AM
1)= S ^DGMT(408.21,"AM",$E(X,1,30),DA)=""
2)= K ^DGMT(408.21,"AM",$E(X,1,30),DA)
408.21,91 TOTAL SPOUSE INCOME TOT;1 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
LAST EDITED: NOV 30, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
DESCRIPTION: This field contains the total income for a spouse prior to moving to the new income structure in
MAS v5.2.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,92 TOTAL SPOUSE NET WORTH TOT;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
LAST EDITED: NOV 30, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
DESCRIPTION: This field contains the total net worth for a spouse prior to moving to the new income structure in
MAS v5.2.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,93 TOTAL CHILDREN INCOME TOT;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
LAST EDITED: NOV 30, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
DESCRIPTION: This field contains the total income for children prior to moving to the new income structure in
MAS v5.2.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,94 TOTAL CHILDREN NET WORTH TOT;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
LAST EDITED: NOV 30, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
DESCRIPTION: This field contains the total net worth for children prior to moving to the new income structure in
MAS v5.2.
With the new version net worth will no longer be collected for children.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,95 TOTAL VETERAN STOCKS, BONDS TOT;5 NUMBER
TOTAL VETERAN STOCKS, BONDS, BANK DEP.
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: NOV 30, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: This field contains the veteran's stocks and bonds prior to moving to the new income structure in
MAS v5.2.
With the new version cash has been combined with the stocks and bonds.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
408.21,101 ENTERED BY USR;1 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: JAN 10, 1992
HELP-PROMPT: This field contains the user who entered the income information.
DESCRIPTION:
This field contains the user who entered the income information.
408.21,102 ENTERED ON USR;2 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 10, 1992
HELP-PROMPT: This field contains the date/time the income information was entered.
DESCRIPTION:
This field contains the date/time the income information was entered.
408.21,103 LAST EDITED BY USR;3 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: FEB 03, 1993
HELP-PROMPT: This field contains the last user to edit the income information.
DESCRIPTION:
This field contains the last user to edit the income information.
408.21,104 LAST EDITED ON USR;4 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: This field contains the last date/time the income information was edited.
DESCRIPTION:
This field contains the last date/time the income information was edited.
CROSS-REFERENCE: ^^TRIGGER^408.21^.18
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P($G(^DGMT(408.21,DA,0)),U,18) I X S X=DIV S Y(1)=$S(
$D(^DGMT(408.21,D0,0)):^(0),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(408.21,104,
1,1,1.4)
1.4)= S DIH=$S($D(^DGMT(408.21,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,18)=DIV,DIH=408.21,DIG=.18 D
^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= I $P($G(^DGMT(408.21,DA,0)),U,18)
CREATE VALUE)= S X=0
DELETE VALUE)= NO EFFECT
FIELD)= #.18
If the 'COPIED DATA' (#.18) field is 'YES', when the 'LAST EDITED ON' (#104) field is modified, the
value of 'COPIED DATA' is set to 'NO'.
FILES POINTED TO FIELDS
ANNUAL MEANS TEST (#408.31) *ANNUAL MEANS TEST (#31)
NEW PERSON (#200) ENTERED BY (#101)
LAST EDITED BY (#103)
PATIENT RELATION (#408.12) PATIENT RELATION (#.02)
INPUT TEMPLATE(S):
DGMT ENTER/EDIT ANNUAL INCOME MAY 18, 1992@14:45 USER #0 ^DGMTXI
DGMT ENTER/EDIT CHILD EXPENSESMAY 04, 1992@09:24 USER #0
DGMT ENTER/EDIT EXPENSES JAN 11, 2005@10:40 USER #0 ^DGMTXE
DGMT ENTER/EDIT NET WORTH MAY 18, 1992@14:35 USER #0 ^DGMTXN
DGMT V1 ENTER/EDIT ANNUAL INC DEC 19, 2005@17:25 USER #0
DGMT V1 ENTER/EDIT EXPENSES DEC 30, 2005@07:53 USER #0
DGMT V1 ENTER/EDIT NET WORTH DEC 19, 2005@17:55 USER #0
DGRP ENTER/EDIT ANNUAL INCOME JUN 26, 2006@13:46 USER #0
DGRP V1 ENTER/EDIT ANNUAL INC DEC 28, 2005@13:23 USER #0 ^DGRPXI
This template is used to edit information on registration screen 9 (the
income screening screen). It must be called from the load/edit screen
(by using one of the registration options). DGDR is used to traverse the
template allowing entry of only those items selected for edit.
EASEC ENTER/EDIT ASSETS SEP 19, 2001@16:08 USER #0
EASEC ENTER/EDIT ASSETS NEW AUG 27, 2003@11:45 USER #0
EASEC ENTER/EDIT EXPENSES MAY 21, 2003@17:31 USER #0
EASEC ENTER/EDIT INCOME FEB 27, 2002@14:06 USER #0
EASEC ENTER/EDIT INCOME NEW AUG 28, 2003@16:33 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):