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

EASEZP63.m

Go to the documentation of this file. 
  1. EASEZP63 ; ALB/AMA,LBD - Print 1010EZ, Version 6 or greater, Cont. ; 10/29/12 12:26pm
  1.  ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60,57,107**;Mar 15, 2001;Build 32
  1.  ;
  1.  ;This routine copied from EASEZPF3; if the version # of the 1010EZ
  1.  ;application is 6.0 or greater, then this routine will be executed.
  1.  ;
  1. EN(EALNE,EAINFO,EASDG) ; Entry point to print Page 3, called from EN^EASEZP6F
  1.  ;  Input
  1.  ;     EALNE  - Array of line formats for output
  1.  ;     EAINFO - Application Data array, see SETUP^EASEZRPF
  1.  ;     EASDG  - Flag variable to signify request to print from DG options
  1.  ;
  1.  N EASIGN
  1.  ;
  1.  I $$GET1^DIQ(712,EAINFO("EASAPP")_",",4)]"" D
  1.  . S EASIGN=$$GET1^DIQ(712,EAINFO("EASAPP")_",",4.1)
  1.  S EASIGN=$G(EASIGN)
  1.  ;
  1.  D HDR^EASEZP6F(.EALNE,.EAINFO)
  1.  S EASD=$NA(^TMP("EASEZ",$J,2))
  1.  ;
  1.  D INC
  1.  D EXP
  1.  ;
  1.  Q
  1.  ;
  1. INC ; Print out VA 10-10EZ Section VII, Gross Annual Income information
  1.  ;
  1.  I $G(EASDG),+@EASD@(999) W !!?6,"SECTION VII - PREVIOUS CALENDAR YEAR GROSS ANNUAL INCOME OF VETERAN, SPOUSE AND DEPENDENT CHILDREN  (INCOME YEAR:  ",@EASD@(999),")"
  1.  E  W !!?17,"SECTION VII - PREVIOUS CALENDAR YEAR GROSS ANNUAL INCOME OF VETERAN, SPOUSE AND DEPENDENT CHILDREN"
  1.  W !?30,"(Use a separate sheet for additional dependents' financial information)"
  1.  W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1.  ;
  1.  W !?76,"VETERAN",?97,"SPOUSE",?117,"CHILD 1"
  1.  W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1.  ;
  1.  W !,"1. GROSS ANNUAL INCOME FROM EMPLOYMENT (wages, bonuses, tips, etc.)",?69,"|  $ ",$P(@EASD@("2C1"),U),?90,"|  $ ",$P(@EASD@("2C1"),U,2),?110,"|  $ ",$P(@EASD@("2C1"),U,3)
  1.  W !,"EXCLUDING INCOME FROM YOUR FARM, RANCH, PROPERTY OR BUSINESS",?69,"|",?90,"|",?110,"|"
  1.  W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1.  ;
  1.  W !,"2. NET INCOME FROM YOUR FARM, RANCH, PROPERTY OR BUSINESS",?69,"|  $ ",$P(@EASD@("2C3"),U),?90,"|  $ ",$P(@EASD@("2C3"),U,2),?110,"|  $ ",$P(@EASD@("2C3"),U,3)
  1.  W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1.  ;
  1.  W !,"3. LIST OTHER INCOME AMOUNTS (Social Security, compensation,",?69,"|  $ ",$P(@EASD@("2C2"),U),?90,"|  $ ",$P(@EASD@("2C2"),U,2),?110,"|  $ ",$P(@EASD@("2C2"),U,3)
  1.  W !,"pension, interest, dividends.  Exclude welfare)",?69,"|",?90,"|",?110,"|"
  1.  W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1.  Q
  1.  ;
  1. EXP ; Print out VA 10-10EZ Section VIII, Deductible Expense Information
  1.  ;
  1.  I $G(EASDG),+@EASD@(999) W !!?27,"SECTION VIII - PREVIOUS CALENDAR YEAR DEDUCTIBLE EXPENSES  (INCOME YEAR:  ",@EASD@(999),")"
  1.  E  W !!?38,"SECTION VIII - PREVIOUS CALENDAR YEAR DEDUCTIBLE EXPENSES"
  1.  W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1.  ;
  1.  W !,"1. TOTAL NON-REIMBURSED MEDICAL EXPENSES PAID BY YOU OR YOUR SPOUSE (e.g., payments for doctors, dentists,",?110,"|  $ ",@EASD@("2D1")
  1.  W !,"medications, Medicare, health insurance, hospital and nursing home)  VA will calculate a deductible and the",?110,"|"
  1.  W !,"net medical expenses you may claim.",?110,"|"
  1.  W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1.  ;
  1.  W !,"2. AMOUNT YOU PAID LAST CALENDAR YEAR FOR FUNERAL AND BURIAL EXPENSES FOR YOUR DECEASED SPOUSE OR DEPENDENT",?110,"|  $ ",@EASD@("2D2")
  1.  W !,"CHILD  (Also enter spouse or child's information in Section VI.)",?110,"|"
  1.  W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1.  ;
  1.  W !,"3. AMOUNT YOU PAID LAST CALENDAR YEAR FOR YOUR COLLEGE OR VOCATIONAL EDUCATIONAL EXPENSES (e.g., tuition,",?110,"|  $ ",@EASD@("2D3")
  1.  W !,"books, fees, materials)  DO NOT LIST YOUR DEPENDENT'S EDUCATIONAL EXPENSES",?110,"|"
  1.  W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1.  Q