source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEZP6D.m@ 1261

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1EASEZP6D ;ALB/AMA - Print 1010EZ, Version 6 or greater, Cont., - OTHER DEPENDENT(S) PAGE(S) ; 10/19/2000
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60**;Mar 15, 2001
3 ;
4 ;New page, to print multiple dependent information
5EN(EALNE,EAINFO) ;Entry point, called from EN^EASEZP6F
6 ; Input
7 ; EALNE - Array of line formats for output
8 ; EAINFO - Application Data array, see SETUP^EASEZP6F
9 ;
10 N X,Y,EASD,NEWPG
11 S EASD=$NA(^TMP("EASEZ",$J,"D"))
12 ; assuming 55 print lines per page, 8 lines per entry, 1 line for
13 ; title and 1 blank dividing line, 6 entries will fit on one page
14 S NEWPG=6
15 D BEGIN
16 ;
17 F X=1:1 Q:'$D(@EASD@(X)) D
18 . ;Check to see if a new page is needed
19 . I (X>1),'((X-1)#NEWPG) D
20 . . D FT^EASEZP6F(.EALNE,.EAINFO)
21 . . D BEGIN
22 . I (X#NEWPG)'=1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
23 . S Y=X+1
24 . D ADEP
25 ;
26 D FT^EASEZP6F(.EALNE,.EAINFO)
27 Q
28 ;
29BEGIN ; Print page header info
30 ;
31 D HDR^EASEZP6F(.EALNE,.EAINFO)
32 W !!?42,"SECTION VII - DEPENDENT INFORMATION - ADDITIONAL"
33 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
34 Q
35 ;
36ADEP ; Print out VA 10-10EZ Section VII, Additional Dependent Information
37 ;
38 W !,"1."_Y_" CHILD'S NAME (Last, First, Middle Name)",?64,"|2."_Y_" CHILD'S DATE OF BIRTH",?92,"|3."_Y_" CHILD'S SOCIAL SECURITY NUMBER"
39 W !?4,@EASD@(X,2),?64,"| ",@EASD@(X,5),?92,"| ",@EASD@(X,7)
40 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
41 ;
42 W !,"4."_Y_" DATE CHILD BECAME YOUR DEPENDENT: ",@EASD@(X,11),?64,"|5."_Y_" CHILD'S RELATIONSHIP TO YOU: ",@EASD@(X,9)
43 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
44 ;
45 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"
46 W !,"YEAR, ENTER THE AMOUNT YOU CONTRIBUTED TO THEIR SUPPORT",?64,"|REHABILITATION OR TRAINING (e.g., tuition, books, materials)"
47 W !," CHILD $ ",$P(@EASD@(X,12),U,2),?64,"| $ ",@EASD@(X,13)
48 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
49 ;
50 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"
51 W !,"AGE OF 18? ",@EASD@(X,14),?64,"|ATTEND SCHOOL LAST CALENDAR YEAR? ",@EASD@(X,15)
52 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
53 Q
Note: See TracBrowser for help on using the repository browser.