- EASEZRPD ;ALB/AMA - Print 1010EZR, Cont., - OTHER DEPENDENT(S) PAGE(S)
- ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
- ;
- Q
- ;
- EN(EALNE,EAINFO) ;Print multiple dependent information
- ;Called from EN^EASEZRPF
- ; Input
- ; EALNE - Array of line formats for output
- ; EAINFO - Application Data array, see SETUP^EASEZRPF
- ;
- N EASD,NEWPG,X,Y
- S EASD=$NA(^TMP("EASEZR",$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^EASEZRPF(.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^EASEZRPF(.EALNE,.EAINFO)
- Q
- ;
- BEGIN ; Print page header info
- ;
- D HDR^EASEZRPF(.EALNE,.EAINFO)
- W !!?42,"SECTION VI - DEPENDENT INFORMATION - ADDITIONAL"
- W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
- Q
- ;
- ADEP ; Print out VA 10-10EZ Section VI, Additional Dependent Information
- ;
- 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"
- W !?4,@EASD@(X,2),?64,"| ",@EASD@(X,5),?93,"| ",@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 !?4,"YEAR, ENTER THE AMOUNT YOU CONTRIBUTED TO THEIR SUPPORT",?64,"| REHABILITATION OR TRAINING (e.g., tuition, books, materials)"
- W !?10,"$ ",$P(@EASD@(X,12),U,2),?64,"|",?75,"$ ",@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 !?4,"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[HEASEZRPD 2257 printed Feb 18, 2025@23:21:29 Page 2
- EASEZRPD ;ALB/AMA - Print 1010EZR, Cont., - OTHER DEPENDENT(S) PAGE(S)
- +1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
- +2 ;
- +3 QUIT
- +4 ;
- EN(EALNE,EAINFO) ;Print multiple dependent information
- +1 ;Called from EN^EASEZRPF
- +2 ; Input
- +3 ; EALNE - Array of line formats for output
- +4 ; EAINFO - Application Data array, see SETUP^EASEZRPF
- +5 ;
- +6 NEW EASD,NEWPG,X,Y
- +7 SET EASD=$NAME(^TMP("EASEZR",$JOB,"D"))
- +8 ; assuming 55 print lines per page, 8 lines per entry, 1 line for
- +9 ; title and 1 blank dividing line, 6 entries will fit on one page
- +10 SET NEWPG=6
- +11 DO BEGIN
- +12 ;
- +13 FOR X=1:1
- if '$DATA(@EASD@(X))
- QUIT
- Begin DoDot:1
- +14 ;Check to see if a new page is needed
- +15 IF (X>1)
- IF '((X-1)#NEWPG)
- Begin DoDot:2
- +16 DO FT^EASEZRPF(.EALNE,.EAINFO)
- +17 DO BEGIN
- End DoDot:2
- +18 IF (X#NEWPG)'=1
- WRITE !?131,$CHAR(13)
- if EALNE("ULC")="-"
- WRITE !
- WRITE EALNE("UL")
- +19 SET Y=X+1
- +20 DO ADEP
- End DoDot:1
- +21 ;
- +22 DO FT^EASEZRPF(.EALNE,.EAINFO)
- +23 QUIT
- +24 ;
- BEGIN ; Print page header info
- +1 ;
- +2 DO HDR^EASEZRPF(.EALNE,.EAINFO)
- +3 WRITE !!?42,"SECTION VI - 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 VI, Additional Dependent Information
- +1 ;
- +2 WRITE !,"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"
- +3 WRITE !?4,@EASD@(X,2),?64,"| ",@EASD@(X,5),?93,"| ",@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 !?4,"YEAR, ENTER THE AMOUNT YOU CONTRIBUTED TO THEIR SUPPORT",?64,"| REHABILITATION OR TRAINING (e.g., tuition, books, materials)"
- +11 WRITE !?10,"$ ",$PIECE(@EASD@(X,12),U,2),?64,"|",?75,"$ ",@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 !?4,"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