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  | 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: 69

Package Total Routines
Registration 51 DG311PIR    DG311PTR    DG488    DG53618    DGDEP0    DGDEP3    DGDEP5    DGENELA4
DGMT ENTER/EDIT DEPENDENTS    DGMT V1 ENTER/EDIT DEPENDENTS    DGMTDD2    DGMTDD3    DGMTDEL1    DGMTP3    DGMTSC2    DGMTSC2V
DGMTSC3    DGMTSC31    DGMTSC3V    DGMTSC4    DGMTSC4V    DGMTSCU3    DGMTSCU4    DGMTU11
DGMTU2    DGMTU22    DGMTU3    DGMTUTL    DGMTUTL2    DGMTUTL3    DGMTV    DGMTXD
DGMTXE    DGMTXI    DGMTXN    DGMTXT    DGMTXX11    DGMTXX12    DGOVBC2    DGRP9
DGRPEIS2    DGRPU    DGRPXI    DGRPXIS    DGRPXIS1    DGRTRIG    DGYRCOV    VADPT4
VAFHLZIC    VAFHLZIR    VAFMON    
Enrollment Application System 10 EASECDEL    EASECSC4    EASECSC5    EASECSC6    EASECSU3    EASECU2    EASECV    EASEZI
EASEZT2    EASXDR1    
Income Verification Match 3 IVMCM4    IVMCUC    IVMUM4    
Scheduling 2 SDPPMT1    SDPPMT2    
Social Work 2 SOWKHR    SOWKHRM1    
Patient Data Exchange 1 VAQDBIM3    

Accessed By FileMan Db Calls, Total: 34

Package Total Routines
Registration 21 DG488    DG53358D    DG53618    DGENELA4    DGMTDEL1    DGMTSC2    DGMTSC2V    DGMTSC3
DGMTSC31    DGMTSC3V    DGMTSC4    DGMTSC4V    DGMTU2    DGMTXE    DGMTXI    DGMTXN
DGRPEIS2    DGRPXI    DGRPXIS    DGRPXIS1    DGYRCOV    
Enrollment Application System 9 EASEC100    EASECDEL    EASECSC4    EASECSC5    EASECSC6    EASECU2    EASEZPVI    EASUM7
EASUM9    
Income Verification Match 4 IVMCM4    IVMCMD    IVMUM4    IVMUM7    

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: 49

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.
.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
.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
.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 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.
.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:  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.
.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.
    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.
.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.
    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.
.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.
    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.
.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:  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.
.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:  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.
.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:  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.
.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:  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.
.17 ALL OTHER INCOME 0;17 NUMBER

  • 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>9999999)!(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.
.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
.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
.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
.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:  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.
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
  • 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.
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:  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.
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.
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:  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.
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:  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.
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.
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.
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.
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.
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.
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  | All