EASEZP6D.m

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 ---EASEZP6D   2304     printed  Apr 23, 2025@18:09:13                                                                                                                                                                                                    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