DGMTHLP.m

DGMTHLP ;ALB/GTS - Means Test Help processing code; 12/15/2005 ; 8/1/08 1:49pm

 ;;5.3;Registration;**688**;AUG 13, 1993;Build 29

 ;

CHLDINNW ; * Displays help for CHILD HAD INCOME (.11) in INCOME RELATION (408.22)

 N MTVER,MTIEN S MTVER=0

 S MTIEN=+$P($G(^DGMT(408.22,DA,"MT")),"^",1)

 I MTIEN S MTVER=+$P($G(^DGMT(408.31,MTIEN,2)),"^",11)

 W !

 I X="?" DO

 . I MTVER=0 W !,"Enter in this field whether the child had income last calendar year."

 . I MTVER=1 DO

 . . W !,"Enter in this field whether the child had earned or unearned income"

 . . W !,"and/or net worth last calendar year."

 I X="??" DO

 . I MTVER=0 DO

 . . W !,"Enter in this field whether the child had income last calendar year."

 . . W !,"Income payable to another person as guardian or custodian of the"

 . . W !,"child is considered to be the child's income."

 . I MTVER=1 DO

 . . W !,"Enter in this field whether the child had earned or unearned income"

 . . W !,"and/or net worth last calendar year.  Income payable to another person"

 . . W !,"as guardian or custodian of the child is considered to be the child's income."

 Q

 ;

INNWAVAL ; * Displays help for INCOME AVAILABLE TO YOU (.12) in INCOME RELATION (408.22)

 N MTVER,MTIEN,DGRDVAR S MTVER=0

 S MTIEN=+$P($G(^DGMT(408.22,DA,"MT")),"^",1)

 I MTIEN S MTVER=+$P($G(^DGMT(408.31,MTIEN,2)),"^",11)

 W !

 I X="?" DO

 . I MTVER=0 DO

 . . W !,"Enter in this field whether the child's income was available to the"

 . . W !,"veteran last calendar year."

 . I MTVER=1 DO

 . . W !,"Enter in this field whether the child's income and/or net worth were"

 . . W !,"available to the veteran last calendar year."

 I X="??" DO

 . I MTVER=0 DO

 . . W !,"Enter in this field whether the child's income was available to"

 . . W !,"the veteran last calendar year.  The child's income is deemed to be"

 . . W !,"available if it can be used to pay expenses of the veteran's household."

 . . W !,"For example, a Social Security check payable to the veteran's estranged"

 . . W !,"spouse as custodian of the child is probably not available to the"

 . . W !,"veteran.  On the other hand, a Social Security check on behalf of the child"

 . . W !,"payable to someone living in the veteran's household is probably available."

 . I MTVER=1 DO

 . . W !,"Enter in this field whether the child's income and/or net worth were"

 . . W !,"available to the veteran last calendar year.  The child's income and/or"

 . . W !,"net worth are almost always determined to be available.  A child's income"

 . . W !,"and/or net worth may be excluded when the child is not in the veteran's"

 . . W !,"custody and the veteran does not have direct access to the child's income"

 . . W !,"or when the veteran has custody, but he/she can prove that the income is not"

 . . W !,"available to him/her (e.g. a trust that the veteran doesn't have access to)"

 . . W !,"OR social security that's going to a separated spouse."

 . I $G(DA) W !,"Enter RETURN to continue:" R DGRDVAR:DTIME W !

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGMTHLP   3024     printed  Feb 19, 2025@00:11:01                                                                                                                                                                                                     Page 2

DGMTHLP   ;ALB/GTS - Means Test Help processing code; 12/15/2005 ; 8/1/08 1:49pm

 +1       ;;5.3;Registration;**688**;AUG 13, 1993;Build 29

 +2       ;

CHLDINNW  ; * Displays help for CHILD HAD INCOME (.11) in INCOME RELATION (408.22)

 +1        NEW MTVER,MTIEN

           SET MTVER=0

 +2        SET MTIEN=+$PIECE($GET(^DGMT(408.22,DA,"MT")),"^",1)

 +3        IF MTIEN

               SET MTVER=+$PIECE($GET(^DGMT(408.31,MTIEN,2)),"^",11)

 +4        WRITE !

 +5        IF X="?"

               Begin DoDot:1

 +6                IF MTVER=0

                       WRITE !,"Enter in this field whether the child had income last calendar year."

 +7                IF MTVER=1

                       Begin DoDot:2

 +8                        WRITE !,"Enter in this field whether the child had earned or unearned income"

 +9                        WRITE !,"and/or net worth last calendar year."

                       End DoDot:2

               End DoDot:1

 +10       IF X="??"

               Begin DoDot:1

 +11               IF MTVER=0

                       Begin DoDot:2

 +12                       WRITE !,"Enter in this field whether the child had income last calendar year."

 +13                       WRITE !,"Income payable to another person as guardian or custodian of the"

 +14                       WRITE !,"child is considered to be the child's income."

                       End DoDot:2

 +15               IF MTVER=1

                       Begin DoDot:2

 +16                       WRITE !,"Enter in this field whether the child had earned or unearned income"

 +17                       WRITE !,"and/or net worth last calendar year.  Income payable to another person"

 +18                       WRITE !,"as guardian or custodian of the child is considered to be the child's income."

                       End DoDot:2

               End DoDot:1

 +19       QUIT 

 +20      ;

INNWAVAL  ; * Displays help for INCOME AVAILABLE TO YOU (.12) in INCOME RELATION (408.22)

 +1        NEW MTVER,MTIEN,DGRDVAR

           SET MTVER=0

 +2        SET MTIEN=+$PIECE($GET(^DGMT(408.22,DA,"MT")),"^",1)

 +3        IF MTIEN

               SET MTVER=+$PIECE($GET(^DGMT(408.31,MTIEN,2)),"^",11)

 +4        WRITE !

 +5        IF X="?"

               Begin DoDot:1

 +6                IF MTVER=0

                       Begin DoDot:2

 +7                        WRITE !,"Enter in this field whether the child's income was available to the"

 +8                        WRITE !,"veteran last calendar year."

                       End DoDot:2

 +9                IF MTVER=1

                       Begin DoDot:2

 +10                       WRITE !,"Enter in this field whether the child's income and/or net worth were"

 +11                       WRITE !,"available to the veteran last calendar year."

                       End DoDot:2

               End DoDot:1

 +12       IF X="??"

               Begin DoDot:1

 +13               IF MTVER=0

                       Begin DoDot:2

 +14                       WRITE !,"Enter in this field whether the child's income was available to"

 +15                       WRITE !,"the veteran last calendar year.  The child's income is deemed to be"

 +16                       WRITE !,"available if it can be used to pay expenses of the veteran's household."

 +17                       WRITE !,"For example, a Social Security check payable to the veteran's estranged"

 +18                       WRITE !,"spouse as custodian of the child is probably not available to the"

 +19                       WRITE !,"veteran.  On the other hand, a Social Security check on behalf of the child"

 +20                       WRITE !,"payable to someone living in the veteran's household is probably available."

                       End DoDot:2

 +21               IF MTVER=1

                       Begin DoDot:2

 +22                       WRITE !,"Enter in this field whether the child's income and/or net worth were"

 +23                       WRITE !,"available to the veteran last calendar year.  The child's income and/or"

 +24                       WRITE !,"net worth are almost always determined to be available.  A child's income"

 +25                       WRITE !,"and/or net worth may be excluded when the child is not in the veteran's"

 +26                       WRITE !,"custody and the veteran does not have direct access to the child's income"

 +27                       WRITE !,"or when the veteran has custody, but he/she can prove that the income is not"

 +28                       WRITE !,"available to him/her (e.g. a trust that the veteran doesn't have access to)"

 +29                       WRITE !,"OR social security that's going to a separated spouse."

                       End DoDot:2

 +30               IF $GET(DA)

                       WRITE !,"Enter RETURN to continue:"

                       READ DGRDVAR:DTIME

                       WRITE !

               End DoDot:1

 +31       QUIT