| [613] | 1 | EASEZRPD ;ALB/AMA - Print 1010EZR, Cont., - OTHER DEPENDENT(S) PAGE(S)
|
|---|
| 2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | EN(EALNE,EAINFO) ;Print multiple dependent information
|
|---|
| 7 | ;Called from EN^EASEZRPF
|
|---|
| 8 | ; Input
|
|---|
| 9 | ; EALNE - Array of line formats for output
|
|---|
| 10 | ; EAINFO - Application Data array, see SETUP^EASEZRPF
|
|---|
| 11 | ;
|
|---|
| 12 | N EASD,NEWPG,X,Y
|
|---|
| 13 | S EASD=$NA(^TMP("EASEZR",$J,"D"))
|
|---|
| 14 | ; assuming 55 print lines per page, 8 lines per entry, 1 line for
|
|---|
| 15 | ; title and 1 blank dividing line, 6 entries will fit on one page
|
|---|
| 16 | S NEWPG=6
|
|---|
| 17 | D BEGIN
|
|---|
| 18 | ;
|
|---|
| 19 | F X=1:1 Q:'$D(@EASD@(X)) D
|
|---|
| 20 | . ;Check to see if a new page is needed
|
|---|
| 21 | . I (X>1),'((X-1)#NEWPG) D
|
|---|
| 22 | . . D FT^EASEZRPF(.EALNE,.EAINFO)
|
|---|
| 23 | . . D BEGIN
|
|---|
| 24 | . I (X#NEWPG)'=1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
|
|---|
| 25 | . S Y=X+1
|
|---|
| 26 | . D ADEP
|
|---|
| 27 | ;
|
|---|
| 28 | D FT^EASEZRPF(.EALNE,.EAINFO)
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | BEGIN ; Print page header info
|
|---|
| 32 | ;
|
|---|
| 33 | D HDR^EASEZRPF(.EALNE,.EAINFO)
|
|---|
| 34 | W !!?42,"SECTION VI - DEPENDENT INFORMATION - ADDITIONAL"
|
|---|
| 35 | W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | ADEP ; Print out VA 10-10EZ Section VI, Additional Dependent Information
|
|---|
| 39 | ;
|
|---|
| 40 | W !,"1."_Y_" CHILD'S NAME (Last, First, Middle Name)",?64,"|2."_Y_" CHILD'S DATE OF BIRTH",?93,"|3."_Y_" CHILD'S SOCIAL SECURITY NUMBER"
|
|---|
| 41 | W !?4,@EASD@(X,2),?64,"| ",@EASD@(X,5),?93,"| ",@EASD@(X,7)
|
|---|
| 42 | W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
|
|---|
| 43 | ;
|
|---|
| 44 | W !,"4."_Y_" DATE CHILD BECAME YOUR DEPENDENT: ",@EASD@(X,11),?64,"|5."_Y_" CHILD'S RELATIONSHIP TO YOU: ",@EASD@(X,9)
|
|---|
| 45 | W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
|
|---|
| 46 | ;
|
|---|
| 47 | W !,"6."_Y_" IF YOUR DEPENDENT CHILD DID NOT LIVE WITH YOU LAST",?64,"|7."_Y_" EXPENSES PAID BY YOUR DEPENDENT CHILD FOR COLLEGE, VOCATIONAL"
|
|---|
| 48 | W !?4,"YEAR, ENTER THE AMOUNT YOU CONTRIBUTED TO THEIR SUPPORT",?64,"| REHABILITATION OR TRAINING (e.g., tuition, books, materials)"
|
|---|
| 49 | W !?10,"$ ",$P(@EASD@(X,12),U,2),?64,"|",?75,"$ ",@EASD@(X,13)
|
|---|
| 50 | W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
|
|---|
| 51 | ;
|
|---|
| 52 | W !,"8."_Y_" WAS CHILD PERMANENTLY AND TOTALLY DISABLED BEFORE THE",?64,"|9."_Y_" IF CHILD IS BETWEEN 18 AND 23 YEARS OF AGE, DID CHILD"
|
|---|
| 53 | W !?4,"AGE OF 18? ",@EASD@(X,14),?64,"| ATTEND SCHOOL LAST CALENDAR YEAR? ",@EASD@(X,15)
|
|---|
| 54 | W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
|
|---|
| 55 | Q
|
|---|
