Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: EASEZRPD

EASEZRPD.m

Go to the documentation of this file.
  1. EASEZRPD ;ALB/AMA - Print 1010EZR, Cont., - OTHER DEPENDENT(S) PAGE(S)
  1. ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
  1. ;
  1. Q
  1. ;
  1. EN(EALNE,EAINFO) ;Print multiple dependent information
  1. ;Called from EN^EASEZRPF
  1. ; Input
  1. ; EALNE - Array of line formats for output
  1. ; EAINFO - Application Data array, see SETUP^EASEZRPF
  1. ;
  1. N EASD,NEWPG,X,Y
  1. S EASD=$NA(^TMP("EASEZR",$J,"D"))
  1. ; assuming 55 print lines per page, 8 lines per entry, 1 line for
  1. ; title and 1 blank dividing line, 6 entries will fit on one page
  1. S NEWPG=6
  1. D BEGIN
  1. ;
  1. F X=1:1 Q:'$D(@EASD@(X)) D
  1. . ;Check to see if a new page is needed
  1. . I (X>1),'((X-1)#NEWPG) D
  1. . . D FT^EASEZRPF(.EALNE,.EAINFO)
  1. . . D BEGIN
  1. . I (X#NEWPG)'=1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. . S Y=X+1
  1. . D ADEP
  1. ;
  1. D FT^EASEZRPF(.EALNE,.EAINFO)
  1. Q
  1. ;
  1. BEGIN ; Print page header info
  1. ;
  1. D HDR^EASEZRPF(.EALNE,.EAINFO)
  1. W !!?42,"SECTION VI - DEPENDENT INFORMATION - ADDITIONAL"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. Q
  1. ;
  1. ADEP ; Print out VA 10-10EZ Section VI, Additional Dependent Information
  1. ;
  1. 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"
  1. W !?4,@EASD@(X,2),?64,"| ",@EASD@(X,5),?93,"| ",@EASD@(X,7)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"4."_Y_" DATE CHILD BECAME YOUR DEPENDENT: ",@EASD@(X,11),?64,"|5."_Y_" CHILD'S RELATIONSHIP TO YOU: ",@EASD@(X,9)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. 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"
  1. W !?4,"YEAR, ENTER THE AMOUNT YOU CONTRIBUTED TO THEIR SUPPORT",?64,"| REHABILITATION OR TRAINING (e.g., tuition, books, materials)"
  1. W !?10,"$ ",$P(@EASD@(X,12),U,2),?64,"|",?75,"$ ",@EASD@(X,13)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. 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"
  1. W !?4,"AGE OF 18? ",@EASD@(X,14),?64,"| ATTEND SCHOOL LAST CALENDAR YEAR? ",@EASD@(X,15)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. Q