DGMTHLP ;ALB/GTS - Means Test Help processing code; 12/15/2005 ; 8/1/08 1:49pm
;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20
;
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
DGMTHLP ;ALB/GTS - Means Test Help processing code; 12/15/2005 ; 8/1/08 1:49pm
+1 ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20
+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
