Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^DGMT(408.21

Package: Enrollment Application System

Global: ^DGMT(408.21


Information

FileMan FileNo FileMan Filename Package
408.21 INDIVIDUAL ANNUAL INCOME Enrollment Application System

Description

Directly Accessed By Routines, Total: 56

Package Total Routines
Registration 54 DG311PIR    DG311PTR    DG488    DG53426D    DG53591A    DG53591B    DG53618    DGDEP0
DGDEP3    DGDEP5    DGENELA4    DGMTDD2    DGMTDD3    DGMTDEL1    DGMTP3    DGMTSC2
DGMTSC2V    DGMTSC3    DGMTSC31    DGMTSC3V    DGMTSC4    DGMTSC4V    DGMTSCU3    DGMTSCU4
DGMTU11    DGMTU2    DGMTU22    DGMTU3    DGMTUTL    DGMTUTL2    DGMTUTL3    DGMTV
DGMTXD    DGMTXE    DGMTXI    DGMTXI3    DGMTXN    DGMTXX11    DGMTXX12    DGOVBC2
DGRP9    DGRPEIS2    DGRPTI    DGRPTL3    DGRPTP2    DGRPU    DGRPXI    DGRPXI3
DGRTRIG    DGYRCOV    VADPT4    VAFHLZIC    VAFHLZIR    VAFMON    
Scheduling 2 SDPPMT1    SDPPMT2    

Accessed By FileMan Db Calls, Total: 24

Package Total Routines
Registration 24 DG488    DG53296D    DG53358D    DG53426D    DG53618    DGENELA4    DGMTDEL1    DGMTSC2
DGMTSC2V    DGMTSC3    DGMTSC31    DGMTSC3V    DGMTSC4    DGMTSC4V    DGMTU2    DGMTXE
DGMTXI    DGMTXI3    DGMTXN    DGRPEIS2    DGRPTI    DGRPXI    DGRPXI3    DGYRCOV

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Enrollment Application System 1 INCOME RELATION(#408.22)[.02]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Enrollment Application System 1 ANNUAL MEANS TEST(#408.31)[31]    
Kernel 1 NEW PERSON(#200)[101103]    
Registration 1 PATIENT RELATION(#408.12)[.02]    

Fields, Total: 41

Field # Name Loc Type Details
.01 YEAR 0;1 DATE
************************REQUIRED FIELD************************

  • 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.
.02 PATIENT RELATION 0;2 POINTER TO PATIENT RELATION FILE (#408.12)
************************REQUIRED FIELD************************
PATIENT RELATION(#408.12)

  • 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.
.08 SOCIAL SECURITY (NOT SSI) 0;8 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 13, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  Enter in this field the annual amount of Social Security received during the previous calendar year. Do not include SSI.
    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.
  • EXECUTABLE HELP:  D:$G(DGMTYPT)=3 8^EASECDD
  • 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.
.09 U.S. CIVIL SERVICE 0;9 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 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. 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.
  • 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.
.1 U.S. RAILROAD RETIREMENT 0;10 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 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.
  • 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.
.11 MILITARY RETIREMENT 0;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:  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.
  • 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.
.12 UNEMPLOYMENT COMPENSATION 0;12 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 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.
  • 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.
.13 OTHER RETIREMENT 0;13 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 13, 2005
  • 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.
  • 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.
.14 TOTAL INCOME FROM EMPLOYMENT 0;14 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 13, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  Enter in this field the annual amount of Total Income from Employment received during the previous calendar year. This includes wages, salary, earnings and tips.
    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.
  • EXECUTABLE HELP:  D:$G(DGMTYPT)=3 14^EASECDD
  • 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.
.15 INTEREST, DIVIDEND, OR ANNUITY 0;15 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 13, 2005
  • 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.
  • 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.
.16 WORKERS COMP. OR BLACK LUNG 0;16 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 13, 2005
  • 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.
  • 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.
.17 ALL OTHER INCOME 0;17 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 13, 2005
  • 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.
    Business or Farm Income.  Net income from operation of a farm or other business is countable.  If a veteran reports this type of income, have the veteran complete VA Form 21-4165, Pension Claim Questionaire for Farm
    Income, or VA Form 21-4185, Report of Income from Property or Business.  Subtract the veteran's business or farm expenses from gross income.  The result should be entered in this field.  If the veteran or veteran's spouse
    or child receives a salary from the business, it should be reported in the 'Total Income from Employment' field.  Also, note that depreciation is not a deductible expense for VA purposes.
    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.
  • EXECUTABLE HELP:  D:$G(DGMTYPT)=3 17^EASECDD
  • 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.
.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
.21 YEARS ESTIMATED TAXABLE INCOME 0;21 NUMBER

  • 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.
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>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 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.
  • 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.
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>9999999)!(X<0) X D:$G(DGMTYPT)'=3 FUN^DGMTDD3:$D(X)
  • LAST EDITED:  SEP 13, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  Enter in this field amounts paid by the veteran during the previous calendar year for funeral or burial expenses of the veteran's spouse or child. Do not report amounts paid for funeral or burial expenses of other
    relatives such as parents, siblings, etc.
  • EXECUTABLE HELP:  D:$G(DGMTYPT)=3 102^EASECDD
  • 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.
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>9999999)!(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.
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>9999999)!(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
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>9999999)!(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
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>9999999)!(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
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>9999999)!(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
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>9999999)!(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
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>9999999)!(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
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>9999999)!(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
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
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>9999999)!(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
2.01 CASH, AMOUNTS IN BANK ACCOUNTS 2;1 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:  SEP 13, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Enter in this field cash and amounts in bank accounts.  This includes checking accounts, savings accounts, Individual Retirement Accounts, certificate of deposit, etc.
  • EXECUTABLE HELP:  D:$G(DGMTYPT)=3 201^EASECDD
  • 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.
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:  SEP 13, 2005
  • 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.
  • 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.
2.03 REAL PROPERTY 2;3 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:  SEP 13, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  Enter in this field the current value, less mortgages or other encumbrances, of any real property (land and buildings) owned. Do not report the value of the veteran's primary residence. If the veteran's primary residence
    is a multifamily dwelling, report the value of the building less the value of the unit occupied by the veteran.  If the veteran lives on a farm, report the value of the farm less the value of the house occupied by the
    veteran and a reasonable surrounding area.  NOTE:  Since the veteran's primary residence is not reported as an asset, the mortgage may NOT be reported as a debt.  In addition, the value of any other property owned by the
    veteran or spouse will be calculated in the same manner.
  • 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.
2.04 OTHER PROPERTY OR ASSETS 2;4 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:  SEP 13, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  Enter in this field the current market value of other property owned. However, do not report the value of household effects or vehicles regularly used for family transportation. Other property may include an art or stamp
    collection.
  • 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.
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:  SEP 13, 2005
  • 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.
  • 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.
31 *ANNUAL MEANS TEST MT;1 POINTER TO ANNUAL MEANS TEST FILE (#408.31) ANNUAL MEANS TEST(#408.31)

  • 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)
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
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
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
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
95 TOTAL VETERAN STOCKS, BONDS TOT;5 NUMBER

  • 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
101 ENTERED BY USR;1 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • 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.
102 ENTERED ON USR;2 DATE
************************REQUIRED FIELD************************

  • 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.
103 LAST EDITED BY USR;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • 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.
104 LAST EDITED ON USR;4 DATE
************************REQUIRED FIELD************************

  • 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'.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All