- DGMTP1 ;ALB/RMO - Print Means Test 10-10F Cont. ;7 APR 1992 11:00 am
- ;;5.3;Registration;;Aug 13, 1993
- ;
- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMTP1 3017 printed Jan 18, 2025@03:45:50 Page 2
- DGMTP1 ;ALB/RMO - Print Means Test 10-10F Cont. ;7 APR 1992 11:00 am
- +1 ;;5.3;Registration;;Aug 13, 1993
- +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