source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEC102.m@ 1306

Last change on this file since 1306 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 5.2 KB
Line 
1EASEC102 ;ALB/BRM - Print 1010EC LTC Enrollment form ; 9/20/01 12:25pm
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,7**;Mar 15, 2001
3 ;
4 ; Called from ^EASEC10E to print page 2 of the 1010EC
5 ;
6PAGE2(EALNE,EAINFO,EASDFN) ;Print page 2
7 N X,EASROOT
8 S EASROOT="^TMP(""1010EC"",$J,"_EASDFN_","
9 D HDR^EASEC10E(.EALNE,.EAINFO)
10 D SIGN
11 D SEC4
12 D SEC5
13 D FT^EASEC10E(.EALNE,.EAINFO)
14 Q
15SIGN ;print disclaimer and signature block to refuse income data
16 ;
17 W !,"I do not wish to provide my detailed financial information. "
18 W "I understand that I will be assessed the maximum copayment amount for"
19 W !,"extended care services and agree to pay the applicable VA copayment as required by law.",?131,$C(13) X EAINFO("L")
20 W !,"Signature",?100,"| Date",!?100,"|",?131,$C(13) X EAINFO("L")
21 Q
22 ;
23SEC4 ; print section 4 - Fixed Assets (Veteran and Spouse)
24 N EAS4
25 S EAS4=EASROOT_"4)"
26 W !?23,"SECTION IV - FIXED ASSETS (VETERAN AND SPOUSE)",?100,"|",?113,"VALUE",!,EALNE("D")
27 ;
28 W !,"1. Residence (Market value minus any outstanding mortgage or "
29 W "lien - exclude if veteran",?100,"|",?105,"$",$J(@EAS4@(1),12,2)
30 W !?3,"receiving only non-institutional services or spouse or "
31 W "dependent residing in community).",?100,"|",?131,$C(13) X EAINFO("L")
32 ;
33 W !,"2. Other Residences/Land/Farm or Ranch (Market value minus any "
34 W "outstanding mortgage or lien)",?100,"|",?105,"$",$J(@EAS4@(2),12,2),?131,$C(13) X EAINFO("L")
35 ;
36 W !,"3. Vehicle(s)* (Value minus any outstanding lien - exclude if veteran is "
37 W "receiving only",?100,"|",?105,"$",$J(@EAS4@(3),12,2)
38 W !?3,"non-institutional services or spouse or dependent residing in community).",?100,"|",?131,$C(13) X EAINFO("L")
39 ;
40 W !?62,"| SUBTOTAL (Sum of lines 1 through 3)",?100,"|",?105,"$",$J(@EAS4@(4),12,2),?131,$C(13) X EAINFO("L")
41 Q
42SEC5 ; print section 5 - Liquid Assets (Veteran and Spouse)
43 N EAS5
44 S EAS5=EASROOT_"5)"
45 W !?23,"SECTION V - LIQUID ASSETS (VETERAN AND SPOUSE)",?100,"|",?113,"VALUE",!,EALNE("D")
46 ;
47 W !,"1. Cash, e.g., interest, dividends from IRA, 401K's and other "
48 W "tax deferred annuities ",?100,"|",?105,"$",$J(@EAS5@(1),12,2)
49 W !?3,"(including checking, savings, money market, etc.)"
50 W ?100,"|",?131,$C(13) X EAINFO("L")
51 ;
52 W !,"2. Stocks, bonds, mutual funds, SEP's, and other retirement "
53 W "accounts (e.g., IRA, 401K,",?100,"|",?105,"$",$J(@EAS5@(2),12,2)
54 W !?3,"annuities, self-employed person)",?100,"|",?131,$C(13) X EAINFO("L")
55 ;
56 W !,"3. Other Liquid Assets (Includes such items as stamp or coin "
57 W "collections, art work, collectibles",?100,"|"
58 W !?3,"household furniture and other household goods, clothing, jewelry, and "
59 W "personal items",?100,"|",?105,"$",$J(@EAS5@(3),12,2)
60 W !?3,"minus amount owed).",?100,"|",?131,$C(13) X EAINFO("L")
61 ;
62 W !?62,"| SUBTOTAL (Sum of lines 1 through 3)",?100,"|",?105,"$",$J(@EAS5@(4),12,2),?131,$C(13) X EAINFO("L")
63 ;
64 W !,"SUM OF ALL LINES FIXED AND LIQUID ASSETS",?62,"|"
65 W ?83,"TOTAL ASSETS",?100,"|",?105,"$",$J(@EAS5@(5),12,2),?131,$C(13) X EAINFO("L")
66 ;
67 W !?45,"CATEGORY",?97,"|",?102,"VETERAN",?113,"|",?119,"SPOUSE",?131,$C(13) X EAINFO("L")
68 ;
69 W !,"Current income, e.g. gross income (including, but not limited "
70 W "to, wages and income from",?97,"| $",$J(@EAS5@(6),10,2),?113,"| $",$J(@EAS5@(7),10,2)
71 W !,"a business, bonuses, tips, severance pay, accrued benefits, "
72 W "cash gifts)",?97,"|",?113,"|",?131,$C(13) X EAINFO("L")
73 ;
74 W !,"Social Security Retirement/Disability",?97,"| $",$J(@EAS5@(8),10,2),?113,"| $",$J(@EAS5@(9),10,2),?131,$C(13) X EAINFO("L")
75 ;
76 W !,"Interest/Dividends (i.e., interest income, standard dividend "
77 W "income from non tax deferred",?97,"| $",$J(@EAS5@(10),10,2),?113,"| $",$J(@EAS5@(11),10,2)
78 W !,"annuities)",?97,"|",?113,"|",?131,$C(13) X EAINFO("L")
79 ;
80 W !,"Retirement and Pension income",?97,"| $",$J(@EAS5@(12),10,2),?113,"| $",$J(@EAS5@(13),10,2),?131,$C(13) X EAINFO("L")
81 ;
82 W !,"Civil Service Retirement",?97,"| $",$J(@EAS5@(14),10,2),?113,"| $",$J(@EAS5@(15),10,2),?131,$C(13) X EAINFO("L")
83 ;
84 W !,"US Railroad Retirement",?97,"| $",$J(@EAS5@(16),10,2),?113,"| $",$J(@EAS5@(17),10,2),?131,$C(13) X EAINFO("L")
85 ;
86 W !,"VA Pension",?97,"| $",$J(@EAS5@(18),10,2),?113,"| $",$J(@EAS5@(19),10,2),?131,$C(13) X EAINFO("L")
87 ;
88 W !,"Spouse VA disability/compensation",?97,"| $",$J(@EAS5@(20),10,2),?113,"| $",$J(@EAS5@(21),10,2),?131,$C(13) X EAINFO("L")
89 ;
90 W !,"Unemployment Benefits/Compensation",?97,"| $",$J(@EAS5@(22),10,2),?113,"| $",$J(@EAS5@(23),10,2),?131,$C(13) X EAINFO("L")
91 ;
92 W !,"Other compensation, e.g. Workers Compensation and Black Lung",?97,"| $",$J(@EAS5@(24),10,2),?113,"| $",$J(@EAS5@(25),10,2),?131,$C(13) X EAINFO("L")
93 ;
94 W !,"Military Retirement",?97,"| $",$J(@EAS5@(26),10,2),?113,"| $",$J(@EAS5@(27),10,2),?131,$C(13) X EAINFO("L")
95 ;
96 W !,"Other Retirement",?97,"| $",$J(@EAS5@(28),10,2),?113,"| $",$J(@EAS5@(29),10,2),?131,$C(13) X EAINFO("L")
97 ;
98 W !,"Court Mandated (e.g. alimony, child support) (Veteran and Spouse)",?97,"| $",$J(@EAS5@(30),10,2),?113,"| $",$J(@EAS5@(31),10,2),?131,$C(13) X EAINFO("L")
99 ;
100 W !,"Other Income (i.e., inheritance amounts, tort settlement "
101 W "payments)",?97,"| $",$J(@EAS5@(32),10,2),?113,"| $",$J(@EAS5@(33),10,2),?131,$C(13) X EAINFO("L")
102 W !,?82,"| TOTALS",?97,"| $",$J(@EAS5@(34),10,2),?113,"| $",$J(@EAS5@(35),10,2)
103 Q
Note: See TracBrowser for help on using the repository browser.