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

Package: Enrollment Application System

Global: ^DGMT(408.22


Information

FileMan FileNo FileMan Filename Package
408.22 INCOME RELATION Enrollment Application System

Description

Accessed By FileMan Db Calls, Total: 32

Package Total Routines
Registration 17 DG488    DG53198P    DG53358D    DG53618    DG53P624    DGDEP2    DGMTDEL1    DGMTSC1
DGMTSC11    DGMTSCU3    DGMTU11    DGMTU2    DGMTXD    DGMTXM    DGMTXT    DGRPEIS2
DGYRCOV    
Enrollment Application System 11 EASEC100    EASECDEL    EASECDP2    EASECED2    EASECMT    EASECSC3    EASECSU3    EASECU2
EASUM5    EASUM7    EASUM9    
Income Verification Match 4 IVMCM5    IVMCMD    IVMUM5    IVMUM7    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Enrollment Application System 2 INDIVIDUAL ANNUAL INCOME(#408.21)[.02]    ANNUAL MEANS TEST(#408.31)[31]    
Registration 1 PATIENT(#2)[.01]    

Fields, Total: 19

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  AUG 05, 1998
  • HELP-PROMPT:  Enter in this field the patient associated with this income relation.
  • DESCRIPTION:  
    Enter in this field the patient associated with this income relation.
  • CROSS-REFERENCE:  408.22^B
    1)= S ^DGMT(408.22,"B",$E(X,1,30),DA)=""
    2)= K ^DGMT(408.22,"B",$E(X,1,30),DA)
    This cross-reference allows look-up by patient.
  • CROSS-REFERENCE:  408.22^AMT1^MUMPS
    1)= S:$P(^DGMT(408.22,DA,0),U,2)&($P($G(^DGMT(408.22,DA,"MT")),U)) ^DGMT(408.22,"AMT",$P(^DGMT(408.22,DA,"MT"),U),X,$P(^DGMT(408.22,DA,0),U,2),DA)=""
    2)= K ^DGMT(408.22,"AMT",+$P($G(^DGMT(408.22,DA,"MT")),U),X,+$P(^DGMT(408.22,DA,0),U,2),DA)
    This cross reference is for the means test. It is indexed by means test, patient, individual annual income pointer, IFN.
.02 INDIVIDUAL ANNUAL INCOME 0;2 POINTER TO INDIVIDUAL ANNUAL INCOME FILE (#408.21)
************************REQUIRED FIELD************************
INDIVIDUAL ANNUAL INCOME(#408.21)

  • OUTPUT TRANSFORM:  D NAM^DGMTDD2
  • LAST EDITED:  AUG 05, 1998
  • HELP-PROMPT:  Enter in this field the individual whose income is associated with this income relation.
  • DESCRIPTION:  
    Enter in this field the individual whose income is associated with this income relation.
    UNEDITABLE
  • CROSS-REFERENCE:  408.22^AIND
    1)= S ^DGMT(408.22,"AIND",$E(X,1,30),DA)=""
    2)= K ^DGMT(408.22,"AIND",$E(X,1,30),DA)
    This cross-reference can be used to sort by individual annual income by internal entry number.
  • CROSS-REFERENCE:  408.22^AMT2^MUMPS
    1)= S:$P($G(^DGMT(408.22,DA,"MT")),U) ^DGMT(408.22,"AMT",$P(^DGMT(408.22,DA,"MT"),U),+$P(^DGMT(408.22,DA,0),U),X,DA)=""
    2)= K ^DGMT(408.22,"AMT",+$P($G(^DGMT(408.22,DA,"MT")),U),+$P(^DGMT(408.22,DA,0),U),X,DA)
    This cross reference is for the means test. It is indexed by means test, patient, individual annual income pointer, IFN.
.05 MARRIED LAST CALENDAR YEAR 0;5 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • INPUT TRANSFORM:  D MAR^DGMTDD2:'X
  • LAST EDITED:  SEP 13, 2005
  • HELP-PROMPT:  Enter 'YES' in this field if the veteran's marital status was either married or separated on Dec 31st last year. Otherwise, enter 'NO'.
  • DESCRIPTION:  
    Enter 'YES' in this field if the veteran's marital status was either married or separated on Dec 31st of last calendar year. Otherwise, enter 'NO'.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^408.22^.06
    1)= X ^DD(408.22,.05,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(408.22,.05,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(408.22,.05,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=408.22,DIG=.06 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(408.22,.05,1,1,79.2) S X=X="" I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(408.22,.05,1,1,2.4)
    2.4)= S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=408.22,DIG=.06 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    79.2)= S Y(2)=$C(59)_$S($D(^DD(408.22,.05,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_":",2),$C(59),1)
    CREATE CONDITION)= MARRIED="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= MARRIED=""
    DELETE VALUE)= @
    FIELD)= LIVES WITH PATIENT
    This triggered cross-reference will update the 'Lived With Patient' field (#.06). If the patient is not married, the 'Lived With Patient' field is deleted for the patient.
  • CROSS-REFERENCE:  408.22^AIX5^MUMPS
    1)= I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,5) D FUN^DGMTDD2:'$P(^(0),U,8),SP^DGMTDD2
    2)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,5)="" D FUN^DGMTDD2:'$P(^(0),U,8),SP^DGMTDD2
    This mumps cross-reference work like a "trigger" cross-reference. If the patient was not married and did not have any dependent children, any corresponding funeral and burial expenses on file for the year are deleted.
    Also, if the veteran is no longer married the spouse's corresponding income and net worth on file for the year will be deleted.
  • CROSS-REFERENCE:  408.22^AENR05^MUMPS
    1)= D E40822^DGRTRIG(DA)
    2)= D E40822^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.06 LIVED WITH PATIENT 0;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • INPUT TRANSFORM:  D LIV^DGMTDD2
  • LAST EDITED:  SEP 13, 2005
  • DESCRIPTION:  
    Enter whether the veteran and relation lived together last calendar year.
  • EXECUTABLE HELP:  D LIVHLP^DGMTDD2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the MARRIED LAST CALENDAR YEAR field of the INCOME RELATION File
  • CROSS-REFERENCE:  ^^TRIGGER^408.22^.07
    1)= X ^DD(408.22,.06,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(408.22,.06,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(408.22,.06,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="YES"
    1.4)= S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=408.22,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(408.22,.06,1,1,79.2) S X=X="" I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(408.22,.06,1,1,2.4)
    2.4)= S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=408.22,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    79.2)= S Y(2)=$C(59)_$S($D(^DD(408.22,.06,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_":",2),$C(59),1)
    CREATE CONDITION)= LIVES WITH PATIENT="YES"
    CREATE VALUE)= @
    DELETE CONDITION)= LIVES WITH PATIENT=""
    DELETE VALUE)= @
    FIELD)= AMOUNT CONTRIBUTED TO SPOUSE
    This triggered cross-reference will update the 'Amount Contributed to Spouse' field (#.07). If the patient is married and lived with his or her spouse, the 'Amount Contributed to Spouse' field is deleted for the patient.
  • CROSS-REFERENCE:  ^^TRIGGER^408.22^.1
    1)= X ^DD(408.22,.06,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" X ^DD(408.22,.06,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(408.22,.06,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="YES"
    1.4)= S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=408.22,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(408.22,.06,1,2,79.2) S X=X="" I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" X ^DD(408.22,.06,1,2,2.4)
    2.4)= S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=408.22,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    79.2)= S Y(2)=$C(59)_$S($D(^DD(408.22,.06,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_":",2),$C(59),1)
    CREATE CONDITION)= LIVES WITH PATIENT="YES"
    CREATE VALUE)= @
    DELETE CONDITION)= LIVES WITH PATIENT=""
    DELETE VALUE)= @
    FIELD)= CONTRIBUTE TO SUPPORT
    This triggered cross-reference will update the 'Contribute to Support' field (#.1). If the patient had a dependent child which lived with him or her, the 'Contributed to Support' field is deleted for the child.
  • CROSS-REFERENCE:  408.22^AENR06^MUMPS
    1)= D E40822^DGRTRIG(DA)
    2)= D E40822^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.07 AMOUNT CONTRIBUTED TO SPOUSE 0;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X D AMT^DGMTDD2:$D(X)
  • LAST EDITED:  SEP 13, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • DESCRIPTION:  This response must be a number.
    If the veteran did not live with his or her spouse, enter in this field the amount the veteran contributed to his or her spouse last calendar year.
    If the amount the veteran contributed is less than $600, then the spouse will not be considered a dependent for financial assessment.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the LIVED WITH PATIENT field of the INCOME RELATION File
  • CROSS-REFERENCE:  408.22^AIX7^MUMPS
    1)= I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,6),$P(^(0),U,7)<600 D SP^DGMTDD2
    2)= I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,6),$P(^(0),U,7)="" D SP^DGMTDD2
    This mumps cross-reference works like a "trigger" cross-reference. If the patient did not contribute at least $600 to the spouse, any corresponding income and net worth on file for the year are deleted.
  • CROSS-REFERENCE:  408.22^AENR07^MUMPS
    1)= D E40822^DGRTRIG(DA)
    2)= D E40822^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.08 DEPENDENT CHILDREN 0;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • INPUT TRANSFORM:  D DEP^DGMTDD2:'X
  • LAST EDITED:  SEP 13, 2005
  • HELP-PROMPT:  Enter in this field whether the veteran had dependent children last calendar year.
  • DESCRIPTION:  Enter in this field whether the veteran had any UNMARRIED children or stepchildren under the age of 18 or between the ages of 18 and 23 and attending school, or any unmarried children over the age of 17 who became
    permanently incapable of self-support before reaching the age of 18 last calendar year.
    School attendance does not have to be full-time but it should be regular. The child can be enrolled in high school, college, or vocational school. If the worksheet is being completed during a break between regular school
    terms, consider the child to be attending school if the veteran indicates that the child plans to enroll in the next regular term (excluding summer sessions). If the child is under the age of 18, the child does not have
    to be attending school. DO NOT INCLUDE FOSTER CHILDREN.
    If the veteran says 'YES', all dependent children must be entered for the means test thresholds to be properly determined.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  408.22^AIX8^MUMPS
    1)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,8)=0,'$P(^(0),U,5) D FUN^DGMTDD2
    2)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,8)="",'$P(^(0),U,5) D FUN^DGMTDD2
    This mumps cross-reference works like a "trigger" cross-reference. If the patient did not have any dependent children and was not married, any corresponding funeral and burial expenses on file for the year are deleted.
  • CROSS-REFERENCE:  408.22^AENR08^MUMPS
    1)= D E40822^DGRTRIG(DA)
    2)= D E40822^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.09 INCAPABLE OF SELF-SUPPORT 0;9 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 13, 2005
  • HELP-PROMPT:  Enter in this field whether the child is unmarried, over the age of 17, and became permanently incapable of self-support before reaching the age of 18.
  • DESCRIPTION:  
    Enter in this field whether the child is unmarried, over the age of 17, and became permanently incapable of self-support before reaching in age of 18.
  • CROSS-REFERENCE:  408.22^AENR09^MUMPS
    1)= D E40822^DGRTRIG(DA)
    2)= D E40822^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.1 CONTRIBUTED TO SUPPORT 0;10 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • INPUT TRANSFORM:  D CON^DGMTDD2
  • LAST EDITED:  SEP 13, 2005
  • HELP-PROMPT:  Enter in this field a Yes or No to indicate whether the veteran contributed any dollar amount to the child's support last calendar year.
  • DESCRIPTION:  Enter in this field a Yes or No to indicate whether the veteran contributed any dollar amount to the child's support last calendar year. The contributions do not have to be in regular set amounts. For example, a veteran
    who paid a child's school tuition or medical bills would be contributing to the child's support.
  • EXECUTABLE HELP:  D HLPCS^DGRPU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the LIVED WITH PATIENT field of the INCOME RELATION File
  • CROSS-REFERENCE:  408.22^AENR1^MUMPS
    1)= D E40822^DGRTRIG(DA)
    2)= D E40822^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.11 CHILD HAD INCOME 0;11 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 22, 2008
  • EXECUTABLE HELP:  D CHLDINNW^DGMTHLP
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^408.22^.12
    1)= X ^DD(408.22,.11,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,12)=DIV,DIH=408.22,DIG=.12 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.11,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="NO"
    2)= X ^DD(408.22,.11,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,12)=DIV,DIH=408.22,DIG=.12 D ^DICR
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.11,0)),U,3),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59))=""
    CREATE CONDITION)= #.11="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= #.11=""
    DELETE VALUE)= @
    FIELD)= #.12
    This triggered cross-reference will update the 'Income Available to You' field (#.12). If the patient has a dependent child whose income is not available to him or her, the 'Income Avaliable to You' field is deleted.
  • CROSS-REFERENCE:  408.22^AIX11^MUMPS
    1)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,11)=0 D INC^DGMTDD2
    2)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,11)="" D INC^DGMTDD2
    This mumps cross-reference works like a "trigger" cross-reference. If the patient had a child with no income, any corresponding income or educational expenses on file for the year are deleted.
  • CROSS-REFERENCE:  408.22^AENR11^MUMPS
    1)= D E40822^DGRTRIG(DA)
    2)= D E40822^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.12 INCOME AVAILABLE TO YOU 0;12 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • INPUT TRANSFORM:  D AVL^DGMTDD2
  • LAST EDITED:  SEP 13, 2005
  • EXECUTABLE HELP:  D INNWAVAL^DGMTHLP
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the CHILD HAD INCOME field of the INCOME RELATION File
  • CROSS-REFERENCE:  408.22^AIX12^MUMPS
    1)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,12)=0,$P(^(0),U,11) D INC^DGMTDD2
    2)= I $D(^DGMT(408.22,DA,0)),$P(^(0),U,12)="",$P(^(0),U,11) D INC^DGMTDD2
    This mumps cross-reference works like a "trigger" cross-reference. If the patient had a child whose income was not available to him or her, any corresponding income or educational expenses on file for the year are
    deleted.
  • CROSS-REFERENCE:  408.22^AENR12^MUMPS
    1)= D E40822^DGRTRIG(DA)
    2)= D E40822^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.13 NUMBER OF DEPENDENT CHILDREN 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>30)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 13, 2005
  • HELP-PROMPT:  Type a Number between 0 and 30, 0 Decimal Digits
  • DESCRIPTION:  This field is computed by the system. Dependent children include any unmarried children or stepchildren who are under the age of 18 or between the ages of 18 and 23 and attending school, or any unmarried children over the
    age of 17 who became permanently incapable of self-support before reaching the age of 18.
  • CROSS-REFERENCE:  408.22^AENR13^MUMPS
    1)= D E40822^DGRTRIG(DA)
    2)= D E40822^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.14 MARRIED THIS YEAR 0;14 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 02, 2003
  • DESCRIPTION:  
    Enter 'YES' in this field if the veteran's marital status currently is either married or separated. Otherwise, enter 'NO'.
  • CROSS-REFERENCE:  ^^TRIGGER^408.22^.15
    1)= X ^DD(408.22,.14,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=408.22,DIG=.15 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    2)= X ^DD(408.22,.14,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=408.22,DIG=.15 D ^DICR
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59),1)=""
    CREATE CONDITION)= #.14="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= #.14=""
    DELETE VALUE)= @
    FIELD)= #.15
    This triggered cross-reference will update the Living With Patient field (#.15). If Married This Year="NO", the Living With Patient field will be deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^408.22^.16
    1)= X ^DD(408.22,.14,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=408.22,DIG=.16 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    2)= X ^DD(408.22,.14,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=408.22,DIG=.16 D ^DICR
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59),1)=""
    CREATE CONDITION)= #.14="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= #.14=""
    DELETE VALUE)= @
    FIELD)= #.16
    This trigger cross-reference will update the Residing In The Community field (#.16). If Married This Year="NO", the Residing In The Community field will be deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^408.22^.17
    1)= X ^DD(408.22,.14,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=408.22,DIG=.17 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="NO"
    2)= X ^DD(408.22,.14,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=408.22,DIG=.17 D ^DICR
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59))=""
    CREATE CONDITION)= #.14="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= #.14=""
    DELETE VALUE)= @
    FIELD)= #.17
    This trigger cross-reference will update the Legally Separated field (#.17). If Married This Year="NO", the Legally Separated field will be deleted.
.15 LIVING WITH PATIENT 0;15 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 22, 2001
  • DESCRIPTION:  
    Enter whether the veteran and relation are living together.
  • NOTES:  TRIGGERED by the MARRIED THIS YEAR field of the INCOME RELATION File
    TRIGGERED by the RESIDING IN THE COMMUNITY field of the INCOME RELATION File
.16 RESIDING IN THE COMMUNITY 0;16 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 22, 2001
  • DESCRIPTION:  
    Enter 'YES' if the spouse or dependent is residing in the community. Enter 'NO' if the spouse or dependent is institutionalized.
  • NOTES:  TRIGGERED by the MARRIED THIS YEAR field of the INCOME RELATION File
    TRIGGERED by the LEGALLY SEPARATED field of the INCOME RELATION File
  • CROSS-REFERENCE:  ^^TRIGGER^408.22^.15
    1)= X ^DD(408.22,.16,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X="NO" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=408.22,DIG=.15 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.16,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    2)= X ^DD(408.22,.16,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=408.22,DIG=.15 D ^DICR
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.16,0)),U,3),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_":",2),$C(59),1)=""
    CREATE CONDITION)= RESIDING IN THE COMMUNITY="NO"
    CREATE VALUE)= "NO"
    DELETE CONDITION)= RESIDING IN THE COMMUNITY=""
    DELETE VALUE)= @
    FIELD)= #.15
    This trigger cross-reference will update the Living With Patient field (#.15). If Residing in the Community="NO", then Living With Patient="NO".
.17 LEGALLY SEPARATED 0;17 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 02, 2003
  • DESCRIPTION:  
    Enter 'YES' in this field if the veteran and spouse are legally separated.
  • TECHNICAL DESCR:  This field will be used to determine how the veteran's LTC copayment is calculated. If LEGALLY SEPARATED = "YES", then the calculation used will be the same as an unmarried veteran. This question will be asked if the field
    MARRIED THIS YEAR (#.14) = "YES".
  • NOTES:  TRIGGERED by the MARRIED THIS YEAR field of the INCOME RELATION File
  • CROSS-REFERENCE:  ^^TRIGGER^408.22^.16
    1)= X ^DD(408.22,.17,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=408.22,DIG=.16 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.17,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="YES"
    2)= X ^DD(408.22,.17,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=408.22,DIG=.16 D ^DICR
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.17,0)),U,3),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,17)_":",2),$C(59))="YES"
    CREATE CONDITION)= #.17="YES"
    CREATE VALUE)= @
    DELETE CONDITION)= #.17="YES"
    DELETE VALUE)= @
    FIELD)= #.16
    This trigger cross-reference will update the Residing in the Community field (#.16). If Legally Separated="YES", the Residing in the Community field will be deleted.
.18 CHILD 18-23 IN SCHOOL 0;18 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  SEP 13, 2005
  • EXECUTABLE HELP:  D HLP1823^DGRPU
  • CROSS-REFERENCE:  408.22^AENR18^MUMPS
    1)= D E40822^DGRTRIG(DA)
    2)= D E40822^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.19 AMOUNT CONTRIBUTED TO CHILD 0;19 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  JAN 24, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • DESCRIPTION:  Enter in this field the dollar amount that the veteran contributed to the child's support last calendar year. The contributions do not have to be in regular set amounts. For example, a veteran who paid a child's school
    tuition or medical bills would be contributing to the child's support.
.21 CONTRIBUTED TO SPOUSAL SUPPORT 0;20 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 03, 2014
  • HELP-PROMPT:  Enter 'YES' if the Veteran contributed to their spouse's support and 'NO' if he or she did not contribute to their spouse's support.
  • DESCRIPTION:  This response must be a 'YES' or 'NO'
    If the veteran did not live with his or her spouse, enter in this field the veteran's statement as to whether he or she contributed to his or her spouse's support last calendar year.
    If the veteran did not contribute to the spouse, then the spouse will not be considered a dependent for financial assessment.
  • CROSS-REFERENCE:  408.22^AIX^MUMPS
    1)= I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,6),'$P(^(0),U,20) D SP^DGMTDD2
    2)= I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,6),'$P(^(0),U,20) D SP^DGMTDD2
    This mumps cross-reference works like a "trigger" cross-reference. If the patient did not contribute to the spouse, any corresponding income and net worth on file for the year are deleted.
  • CROSS-REFERENCE:  408.22^AD^MUMPS
    1)= D E40822^DGRTRIG(DA)
    2)= D E40822^DGRTRIG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
31 ANNUAL MEANS TEST MT;1 POINTER TO ANNUAL MEANS TEST FILE (#408.31) ANNUAL MEANS TEST(#408.31)

  • LAST EDITED:  MAR 02, 1995
  • CROSS-REFERENCE:  408.22^AMT^MUMPS
    1)= S:$P(^DGMT(408.22,DA,0),U,2) ^DGMT(408.22,"AMT",X,+$P(^DGMT(408.22,DA,0),U),+$P(^DGMT(408.22,DA,0),U,2),DA)=""
    2)= K ^DGMT(408.22,"AMT",X,+$P(^DGMT(408.22,DA,0),U),+$P($G(^DGMT(408.22,DA,0)),U,2),DA)
    This cross reference is for the means test. It is indexed by means test, patient, individual annual income pointer, IFN.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields