DGMTP1.m

DGMTP1 ;ALB/RMO - Print Means Test 10-10F Cont. ;7 APR 1992 11:00 am

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;

EN ;Entry point to print demograpic, marital status and dependents

 D DEM,MAR,DEP,EN^DGMTP2

Q Q

 ;

DEM ;Print demographic portion of form

 W @IOF,?116,"VA FORM 10-10F",!,DGLNE,!,"DEPARTMENT OF VETERANS AFFAIRS",?111,"FINANCIAL WORKSHEET",!,DGLNE

 W !?30,"THE LAW PROVIDES SEVERE PENALTIES FOR WILLFUL SUBMISSION OF FALSE INFORMATION",!?39,"SEE PAGE 3 FOR PRIVACY ACT AND PAPERWORK REDUCTION ACT INFORMATION",!,DGLNE

 W !?1,"Applicant's Name:  ",$$NAME^DGMTU1(DGVPRI),?72,"| Social Security Number:  ",$$SSN^DGMTU1(DGVPRI)

 Q

 ;

MAR ;Print marital status

 W !,DGLNE,!!?61,"A. Marital Status",$$UL^DGMTSCU1(DGUL,DGLNE1)

 W !?1,"1. Were you married last calendar year.",?41,"| 2. Did you live with your spouse",?78,"| 3. If you did not live with your spouse, show the"

 W !?4,"(If ""NO"", go to Section B).",?41,"| last calendar year. (If ""YES"", go",?78,"| amount you contributed to your spouse's support"

 W !?6,$$YN^DGMTSCU1($P(DGVIR0,"^",5))

 W ?41,"| to Section B).    ",$S($P(DGVIR0,"^",5)=0:"NOT APPLICABLE",1:$$YN^DGMTSCU1($P(DGVIR0,"^",6)))

 W ?78,"| last calendar year    ",$S($P(DGVIR0,"^",5)=0!($P(DGVIR0,"^",6)):"NOT APPLICABLE",1:$$AMT^DGMTSCU1($P(DGVIR0,"^",7)))

 Q

 ;

DEP ;Print dependent children

 W $$UL^DGMTSCU1(DGUL,DGLNE1),!!?60,"B. Dependent Children",$$UL^DGMTSCU1(DGUL,DGLNE1)

 W !?2,"During last calendar year, did you have any UNMARRIED children or stepchildren who are under the age of 18 or between the ages"

 W !?2,"of 18 and 23 and attending school?  OR did you have any unmarried children over the age of 17 who became permanently incapable"

 W !?2,"of self-support before reaching the age of 18?    ",$$YN^DGMTSCU1($P(DGVIR0,"^",8)),"    (If ""NO"", go to Section C)"

 W $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"Child's Name",?30,"| Permanently",?50,"| Did the child",?72,"| Did you contribute",?93,"| Did the",?109,"| Was the child's"

 W !?30,"| incapable of",?50,"| live with you",?72,"| to the child's",?93,"| child have",?109,"| income available"

 W !?30,"| self-support",?50,"|",?72,"| support?",?93,"| any income?",?109,"| to you?"

 W !?6,"       (1)",?30,"|        (2)",?50,"|          (3)",?72,"|         (4)",?93,"|      (5)",?109,"|         (6)"

 I '$P(DGVIR0,"^",8) W $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"NOT APPLICABLE",?30,"|",?50,"|",?72,"|",?93,"|",?109,"|"

 I $P(DGVIR0,"^",8) S DGCNT=0 F  S DGCNT=$O(DGREL("C",DGCNT)) Q:'DGCNT  D CHILD

 Q

 ;

CHILD ;Print data collected for a dependent child

 N DGIR0

 S DGIR0=$G(^DGMT(408.22,+$G(DGINR("C",DGCNT)),0))

 W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,$$NAME^DGMTU1(+DGREL("C",DGCNT))

 W ?30,"|  ",$$YN^DGMTSCU1($P(DGIR0,"^",9))

 W ?50,"|  ",$$YN^DGMTSCU1($P(DGIR0,"^",6))

 W ?72,"|  ",$S($P(DGIR0,"^",6):"NOT APPLICABLE",1:$$YN^DGMTSCU1($P(DGIR0,"^",10)))

 W ?93,"|  ",$$YN^DGMTSCU1($P(DGIR0,"^",11))

 W ?109,"|  ",$S($P(DGIR0,"^",11)=0:"NOT APPLICABLE",1:$$YN^DGMTSCU1($P(DGIR0,"^",12)))

CHILDQ Q

DGMTP1    ;ALB/RMO - Print Means Test 10-10F Cont. ;7 APR 1992 11:00 am

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;

EN        ;Entry point to print demograpic, marital status and dependents

 +1        DO DEM

           DO MAR

           DO DEP

           DO EN^DGMTP2

Q          QUIT 

 +1       ;

DEM       ;Print demographic portion of form

 +1        WRITE @IOF,?116,"VA FORM 10-10F",!,DGLNE,!,"DEPARTMENT OF VETERANS AFFAIRS",?111,"FINANCIAL WORKSHEET",!,DGLNE

 +2        WRITE !?30,"THE LAW PROVIDES SEVERE PENALTIES FOR WILLFUL SUBMISSION OF FALSE INFORMATION",!?39,"SEE PAGE 3 FOR PRIVACY ACT AND PAPERWORK REDUCTION ACT INFORMATION",!,DGLNE

 +3        WRITE !?1,"Applicant's Name:  ",$$NAME^DGMTU1(DGVPRI),?72,"| Social Security Number:  ",$$SSN^DGMTU1(DGVPRI)

 +4        QUIT 

 +5       ;

MAR       ;Print marital status

 +1        WRITE !,DGLNE,!!?61,"A. Marital Status",$$UL^DGMTSCU1(DGUL,DGLNE1)

 +2        WRITE !?1,"1. Were you married last calendar year.",?41,"| 2. Did you live with your spouse",?78,"| 3. If you did not live with your spouse, show the"

 +3        WRITE !?4,"(If ""NO"", go to Section B).",?41,"| last calendar year. (If ""YES"", go",?78,"| amount you contributed to your spouse's support"

 +4        WRITE !?6,$$YN^DGMTSCU1($PIECE(DGVIR0,"^",5))

 +5        WRITE ?41,"| to Section B).    ",$SELECT($PIECE(DGVIR0,"^",5)=0:"NOT APPLICABLE",1:$$YN^DGMTSCU1($PIECE(DGVIR0,"^",6)))

 +6        WRITE ?78,"| last calendar year    ",$SELECT($PIECE(DGVIR0,"^",5)=0!($PIECE(DGVIR0,"^",6)):"NOT APPLICABLE",1:$$AMT^DGMTSCU1($PIECE(DGVIR0,"^",7)))

 +7        QUIT 

 +8       ;

DEP       ;Print dependent children

 +1        WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!!?60,"B. Dependent Children",$$UL^DGMTSCU1(DGUL,DGLNE1)

 +2        WRITE !?2,"During last calendar year, did you have any UNMARRIED children or stepchildren who are under the age of 18 or between the ages"

 +3        WRITE !?2,"of 18 and 23 and attending school?  OR did you have any unmarried children over the age of 17 who became permanently incapable"

 +4        WRITE !?2,"of self-support before reaching the age of 18?    ",$$YN^DGMTSCU1($PIECE(DGVIR0,"^",8)),"    (If ""NO"", go to Section C)"

 +5        WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"Child's Name",?30,"| Permanently",?50,"| Did the child",?72,"| Did you contribute",?93,"| Did the",?109,"| Was the child's"

 +6        WRITE !?30,"| incapable of",?50,"| live with you",?72,"| to the child's",?93,"| child have",?109,"| income available"

 +7        WRITE !?30,"| self-support",?50,"|",?72,"| support?",?93,"| any income?",?109,"| to you?"

 +8        WRITE !?6,"       (1)",?30,"|        (2)",?50,"|          (3)",?72,"|         (4)",?93,"|      (5)",?109,"|         (6)"

 +9        IF '$PIECE(DGVIR0,"^",8)

               WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"NOT APPLICABLE",?30,"|",?50,"|",?72,"|",?93,"|",?109,"|"

 +10       IF $PIECE(DGVIR0,"^",8)

               SET DGCNT=0

               FOR 

                   SET DGCNT=$ORDER(DGREL("C",DGCNT))

                   IF 'DGCNT

                       QUIT 

                   DO CHILD

 +11       QUIT 

 +12      ;

CHILD     ;Print data collected for a dependent child

 +1        NEW DGIR0

 +2        SET DGIR0=$GET(^DGMT(408.22,+$GET(DGINR("C",DGCNT)),0))

 +3        WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,$$NAME^DGMTU1(+DGREL("C",DGCNT))

 +4        WRITE ?30,"|  ",$$YN^DGMTSCU1($PIECE(DGIR0,"^",9))

 +5        WRITE ?50,"|  ",$$YN^DGMTSCU1($PIECE(DGIR0,"^",6))

 +6        WRITE ?72,"|  ",$SELECT($PIECE(DGIR0,"^",6):"NOT APPLICABLE",1:$$YN^DGMTSCU1($PIECE(DGIR0,"^",10)))

 +7        WRITE ?93,"|  ",$$YN^DGMTSCU1($PIECE(DGIR0,"^",11))

 +8        WRITE ?109,"|  ",$SELECT($PIECE(DGIR0,"^",11)=0:"NOT APPLICABLE",1:$$YN^DGMTSCU1($PIECE(DGIR0,"^",12)))

CHILDQ     QUIT