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