EASEZP6D ;ALB/AMA - Print 1010EZ, Version 6 or greater, Cont., - OTHER DEPENDENT(S) PAGE(S) ; 10/19/2000
;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60**;Mar 15, 2001
;
;New page, to print multiple dependent information
EN(EALNE,EAINFO) ;Entry point, called from EN^EASEZP6F
; Input
; EALNE - Array of line formats for output
; EAINFO - Application Data array, see SETUP^EASEZP6F
;
N X,Y,EASD,NEWPG
S EASD=$NA(^TMP("EASEZ",$J,"D"))
; assuming 55 print lines per page, 8 lines per entry, 1 line for
; title and 1 blank dividing line, 6 entries will fit on one page
S NEWPG=6
D BEGIN
;
F X=1:1 Q:'$D(@EASD@(X)) D
. ;Check to see if a new page is needed
. I (X>1),'((X-1)#NEWPG) D
. . D FT^EASEZP6F(.EALNE,.EAINFO)
. . D BEGIN
. I (X#NEWPG)'=1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
. S Y=X+1
. D ADEP
;
D FT^EASEZP6F(.EALNE,.EAINFO)
Q
;
BEGIN ; Print page header info
;
D HDR^EASEZP6F(.EALNE,.EAINFO)
W !!?42,"SECTION VII - DEPENDENT INFORMATION - ADDITIONAL"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
Q
;
ADEP ; Print out VA 10-10EZ Section VII, Additional Dependent Information
;
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"
W !?4,@EASD@(X,2),?64,"| ",@EASD@(X,5),?92,"| ",@EASD@(X,7)
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
W !,"4."_Y_" DATE CHILD BECAME YOUR DEPENDENT: ",@EASD@(X,11),?64,"|5."_Y_" CHILD'S RELATIONSHIP TO YOU: ",@EASD@(X,9)
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
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"
W !,"YEAR, ENTER THE AMOUNT YOU CONTRIBUTED TO THEIR SUPPORT",?64,"|REHABILITATION OR TRAINING (e.g., tuition, books, materials)"
W !," CHILD $ ",$P(@EASD@(X,12),U,2),?64,"| $ ",@EASD@(X,13)
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
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"
W !,"AGE OF 18? ",@EASD@(X,14),?64,"|ATTEND SCHOOL LAST CALENDAR YEAR? ",@EASD@(X,15)
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASEZP6D 2304 printed Apr 09, 2024@20:58:48 Page 2
EASEZP6D ;ALB/AMA - Print 1010EZ, Version 6 or greater, Cont., - OTHER DEPENDENT(S) PAGE(S) ; 10/19/2000
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60**;Mar 15, 2001
+2 ;
+3 ;New page, to print multiple dependent information
EN(EALNE,EAINFO) ;Entry point, called from EN^EASEZP6F
+1 ; Input
+2 ; EALNE - Array of line formats for output
+3 ; EAINFO - Application Data array, see SETUP^EASEZP6F
+4 ;
+5 NEW X,Y,EASD,NEWPG
+6 SET EASD=$NAME(^TMP("EASEZ",$JOB,"D"))
+7 ; assuming 55 print lines per page, 8 lines per entry, 1 line for
+8 ; title and 1 blank dividing line, 6 entries will fit on one page
+9 SET NEWPG=6
+10 DO BEGIN
+11 ;
+12 FOR X=1:1
if '$DATA(@EASD@(X))
QUIT
Begin DoDot:1
+13 ;Check to see if a new page is needed
+14 IF (X>1)
IF '((X-1)#NEWPG)
Begin DoDot:2
+15 DO FT^EASEZP6F(.EALNE,.EAINFO)
+16 DO BEGIN
End DoDot:2
+17 IF (X#NEWPG)'=1
WRITE !?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+18 SET Y=X+1
+19 DO ADEP
End DoDot:1
+20 ;
+21 DO FT^EASEZP6F(.EALNE,.EAINFO)
+22 QUIT
+23 ;
BEGIN ; Print page header info
+1 ;
+2 DO HDR^EASEZP6F(.EALNE,.EAINFO)
+3 WRITE !!?42,"SECTION VII - DEPENDENT INFORMATION - ADDITIONAL"
+4 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+5 QUIT
+6 ;
ADEP ; Print out VA 10-10EZ Section VII, Additional Dependent Information
+1 ;
+2 WRITE !,"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"
+3 WRITE !?4,@EASD@(X,2),?64,"| ",@EASD@(X,5),?92,"| ",@EASD@(X,7)
+4 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+5 ;
+6 WRITE !,"4."_Y_" DATE CHILD BECAME YOUR DEPENDENT: ",@EASD@(X,11),?64,"|5."_Y_" CHILD'S RELATIONSHIP TO YOU: ",@EASD@(X,9)
+7 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+8 ;
+9 WRITE !,"6."_Y_" IF YOUR DEPENDENT CHILD DID NOT LIVE WITH YOU LAST",?64,"|7."_Y_" EXPENSES PAID BY YOUR DEPENDENT CHILD FOR COLLEGE, VOCATIONAL"
+10 WRITE !,"YEAR, ENTER THE AMOUNT YOU CONTRIBUTED TO THEIR SUPPORT",?64,"|REHABILITATION OR TRAINING (e.g., tuition, books, materials)"
+11 WRITE !," CHILD $ ",$PIECE(@EASD@(X,12),U,2),?64,"| $ ",@EASD@(X,13)
+12 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+13 ;
+14 WRITE !,"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"
+15 WRITE !,"AGE OF 18? ",@EASD@(X,14),?64,"|ATTEND SCHOOL LAST CALENDAR YEAR? ",@EASD@(X,15)
+16 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+17 QUIT
