source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEZRPD.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1EASEZRPD ;ALB/AMA - Print 1010EZR, Cont., - OTHER DEPENDENT(S) PAGE(S)
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
3 ;
4 Q
5 ;
6EN(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 ;
31BEGIN ; 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 ;
38ADEP ; 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
Note: See TracBrowser for help on using the repository browser.