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

EASEC102.m

Go to the documentation of this file. 
  1. EASEC102 ;ALB/BRM - Print 1010EC LTC Enrollment form ; 9/20/01 12:25pm
  1.  ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,7**;Mar 15, 2001
  1.  ;
  1.  ; Called from ^EASEC10E to print page 2 of the 1010EC
  1.  ;
  1. PAGE2(EALNE,EAINFO,EASDFN) ;Print page 2
  1.  N X,EASROOT
  1.  S EASROOT="^TMP(""1010EC"",$J,"_EASDFN_","
  1.  D HDR^EASEC10E(.EALNE,.EAINFO)
  1.  D SIGN
  1.  D SEC4
  1.  D SEC5
  1.  D FT^EASEC10E(.EALNE,.EAINFO)
  1.  Q
  1. SIGN ;print disclaimer and signature block to refuse income data
  1.  ;
  1.  W !,"I do not wish to provide my detailed financial information.  "
  1.  W "I understand that I will be assessed the maximum copayment amount for"
  1.  W !,"extended care services and agree to pay the applicable VA copayment as required by law.",?131,$C(13) X EAINFO("L")
  1.  W !,"Signature",?100,"| Date",!?100,"|",?131,$C(13) X EAINFO("L")
  1.  Q
  1.  ;
  1. SEC4 ; print section 4 - Fixed Assets (Veteran and Spouse)
  1.  N EAS4
  1.  S EAS4=EASROOT_"4)"
  1.  W !?23,"SECTION IV - FIXED ASSETS (VETERAN AND SPOUSE)",?100,"|",?113,"VALUE",!,EALNE("D")
  1.  ;
  1.  W !,"1. Residence (Market value minus any outstanding mortgage or "
  1.  W "lien - exclude if veteran",?100,"|",?105,"$",$J(@EAS4@(1),12,2)
  1.  W !?3,"receiving only non-institutional services or spouse or "
  1.  W "dependent residing in community).",?100,"|",?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"2. Other Residences/Land/Farm or Ranch (Market value minus any "
  1.  W "outstanding mortgage or lien)",?100,"|",?105,"$",$J(@EAS4@(2),12,2),?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"3. Vehicle(s)* (Value minus any outstanding lien - exclude if veteran is "
  1.  W "receiving only",?100,"|",?105,"$",$J(@EAS4@(3),12,2)
  1.  W !?3,"non-institutional services or spouse or dependent residing in community).",?100,"|",?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !?62,"| SUBTOTAL (Sum of lines 1 through 3)",?100,"|",?105,"$",$J(@EAS4@(4),12,2),?131,$C(13) X EAINFO("L")
  1.  Q
  1. SEC5 ; print section 5 - Liquid Assets (Veteran and Spouse)
  1.  N EAS5
  1.  S EAS5=EASROOT_"5)"
  1.  W !?23,"SECTION V - LIQUID ASSETS (VETERAN AND SPOUSE)",?100,"|",?113,"VALUE",!,EALNE("D")
  1.  ;
  1.  W !,"1. Cash, e.g., interest, dividends from IRA, 401K's and other "
  1.  W "tax deferred annuities ",?100,"|",?105,"$",$J(@EAS5@(1),12,2)
  1.  W !?3,"(including checking, savings, money market, etc.)"
  1.  W ?100,"|",?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"2. Stocks, bonds, mutual funds, SEP's, and other retirement "
  1.  W "accounts (e.g., IRA, 401K,",?100,"|",?105,"$",$J(@EAS5@(2),12,2)
  1.  W !?3,"annuities, self-employed person)",?100,"|",?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"3. Other Liquid Assets (Includes such items as stamp or coin "
  1.  W "collections, art work, collectibles",?100,"|"
  1.  W !?3,"household furniture and other household goods, clothing, jewelry, and "
  1.  W "personal items",?100,"|",?105,"$",$J(@EAS5@(3),12,2)
  1.  W !?3,"minus amount owed).",?100,"|",?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !?62,"| SUBTOTAL (Sum of lines 1 through 3)",?100,"|",?105,"$",$J(@EAS5@(4),12,2),?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"SUM OF ALL LINES FIXED AND LIQUID ASSETS",?62,"|"
  1.  W ?83,"TOTAL ASSETS",?100,"|",?105,"$",$J(@EAS5@(5),12,2),?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !?45,"CATEGORY",?97,"|",?102,"VETERAN",?113,"|",?119,"SPOUSE",?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"Current income, e.g. gross income (including, but not limited "
  1.  W "to, wages and income from",?97,"| $",$J(@EAS5@(6),10,2),?113,"| $",$J(@EAS5@(7),10,2)
  1.  W !,"a business, bonuses, tips, severance pay, accrued benefits, "
  1.  W "cash gifts)",?97,"|",?113,"|",?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"Social Security Retirement/Disability",?97,"| $",$J(@EAS5@(8),10,2),?113,"| $",$J(@EAS5@(9),10,2),?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"Interest/Dividends (i.e., interest income, standard dividend "
  1.  W "income from non tax deferred",?97,"| $",$J(@EAS5@(10),10,2),?113,"| $",$J(@EAS5@(11),10,2)
  1.  W !,"annuities)",?97,"|",?113,"|",?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"Retirement and Pension income",?97,"| $",$J(@EAS5@(12),10,2),?113,"| $",$J(@EAS5@(13),10,2),?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"Civil Service Retirement",?97,"| $",$J(@EAS5@(14),10,2),?113,"| $",$J(@EAS5@(15),10,2),?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"US Railroad Retirement",?97,"| $",$J(@EAS5@(16),10,2),?113,"| $",$J(@EAS5@(17),10,2),?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"VA Pension",?97,"| $",$J(@EAS5@(18),10,2),?113,"| $",$J(@EAS5@(19),10,2),?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"Spouse VA disability/compensation",?97,"| $",$J(@EAS5@(20),10,2),?113,"| $",$J(@EAS5@(21),10,2),?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"Unemployment Benefits/Compensation",?97,"| $",$J(@EAS5@(22),10,2),?113,"| $",$J(@EAS5@(23),10,2),?131,$C(13) X EAINFO("L")
  1.  ;
  1.  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")
  1.  ;
  1.  W !,"Military Retirement",?97,"| $",$J(@EAS5@(26),10,2),?113,"| $",$J(@EAS5@(27),10,2),?131,$C(13) X EAINFO("L")
  1.  ;
  1.  W !,"Other Retirement",?97,"| $",$J(@EAS5@(28),10,2),?113,"| $",$J(@EAS5@(29),10,2),?131,$C(13) X EAINFO("L")
  1.  ;
  1.  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")
  1.  ;
  1.  W !,"Other Income (i.e., inheritance amounts, tort settlement "
  1.  W "payments)",?97,"| $",$J(@EAS5@(32),10,2),?113,"| $",$J(@EAS5@(33),10,2),?131,$C(13) X EAINFO("L")
  1.  W !,?82,"|    TOTALS",?97,"| $",$J(@EAS5@(34),10,2),?113,"| $",$J(@EAS5@(35),10,2)
  1.  Q