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

EASECDD.m

Go to the documentation of this file. 
  1. EASECDD ;ALB/LBD - Executable help for fields in file #408.21  ;4 SEP 2001
  1.  ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,7,34,40,100,110**;Mar 15, 2001;Build 12
  1.  ;
  1. 8 ; Social Security
  1.  W !,?8,"Enter in this field the annual amount of Social Security"
  1.  W !,?8,"received during the current calendar year."
  1.  W !!,?8,"A monthly amount can be entered with an '*' after it.",!
  1.  S X="?"
  1.  Q
  1. 9 ; US Civil Service
  1.  W !,?8,"Enter in this field the annual amount of U.S. Civil Service"
  1.  W !,?8,"received during the current calendar year."
  1.  W !!,?8,"A monthly amount can be entered with an '*' after it.",!
  1.  S X="?"
  1.  Q
  1. 10 ; US Railroad Retirement
  1.  W !,?8,"Enter in this field the annual amount of U.S. Railroad Retirement"
  1.  W !,?8,"received during the current calendar year."
  1.  W !!,?8,"A monthly amount can be entered with an '*' after it.",!
  1.  S X="?"
  1.  Q
  1. 11 ; Military Retirement
  1.  W !,?8,"Enter in this field the annual amount of Military Retirement"
  1.  W !,?8,"received during the current calendar year."
  1.  W !!,?8,"A monthly amount can be entered with an '*' after it.",!
  1.  S X="?"
  1.  Q
  1. 12 ; Unemployment Compensation
  1.  W !,?8,"Enter in this field the annual amount of Unemployment Compensation"
  1.  W !,?8,"received during the current calendar year."
  1.  W !!,?8,"A monthly amount can be entered with an '*' after it.",!
  1.  S X="?"
  1.  Q
  1. 13 ; Other Retirement
  1.  W !,?8,"Enter in this field the annual amount of Other Retirement received"
  1.  W !,?8,"during the current calendar year.  This includes company, state,"
  1.  W !,?8,"local, etc."
  1.  W !!,?8,"A monthly amount can be entered with an '*' after it.",!
  1.  S X="?"
  1.  Q
  1. 14 ; Total Income from Employment
  1.  W !,?8,"Enter in this field the annual amount of Gross Income received during"
  1.  W !,?8,"the current year.  This includes, but is not limited to, wages and"
  1.  W !,?8,"income from a business, bonuses, tips, severance pay, accrued"
  1.  W !,?8,"benefits, cash gifts."
  1.  W !!,?8,"A monthly amount can be entered with an '*' after it.",!
  1.  S X="?"
  1.  Q
  1. 15 ; Interest, Dividend or Annuity (Original 10-10EC)
  1.  ; Net Income from Farm, Ranch or Business (Revised 10-10EC)
  1.  ;  Display a different message for the revised 10-10EC form.
  1.  ;  Modified for LTC IV (EAS*1*40)
  1.  I $G(DGFORM) D
  1.  .W !,?8,"Enter in this field the annual amount of Net Income received during"
  1.  .W !,?8,"the current calendar year from the operation of a farm, ranch,"
  1.  .W !,?8,"property or business."
  1.  I '$G(DGFORM) D
  1.  .W !,?8,"Enter in this field the annual amount of Interest and Dividend"
  1.  .W !,?8,"Income received during the current calendar year (i.e., interest"
  1.  .W !,?8,"income, standard dividend income from non tax deferred annuities)."
  1.  W !!,?8,"A monthly amount can be entered with an '*' after it.",!
  1.  S X="?"
  1.  Q
  1. 16 ; Workers Comp or Black Lung
  1.  W !,?8,"Enter in this field the annual amount of Workers Compensation or"
  1.  W !,?8,"Black Lung Benefits received during the current calendar year."
  1.  W !!,?8,"A monthly amount can be entered with an '*' after it.",!
  1.  S X="?"
  1.  Q
  1. 17 ; All Other Income
  1.  ; Display a different message for the revised 10-10EC form.
  1.  ; Modified for LTC IV (EAS*1*40)
  1.  ; EAS*1*110
  1.  N DGAIA
  1.  I $G(DGFORM) D
  1.  .S DGAIA(1)="Enter in this field the annual amount of All Other Income received"
  1.  .S DGAIA(1,"F")="!,?8"
  1.  .S DGAIA(2)="during the current calendar year, including retirement and pension"
  1.  .S DGAIA(2,"F")="!,?8"
  1.  .S DGAIA(3)="income, Social Security Retirement and Social Security Disability"
  1.  .S DGAIA(3,"F")="!,?8"
  1.  .S DGAIA(4)="income, compensation benefits such as unemployment, Workers and"
  1.  .S DGAIA(4,"F")="!,?8"
  1.  .S DGAIA(5)="Black Lung, or VA disability.  Also cash gifts, court mandated"
  1.  .S DGAIA(5,"F")="!,?8"
  1.  .S DGAIA(6)="payments, inheritance amounts, tort settlement payments, interest"
  1.  .S DGAIA(6,"F")="!,?8"
  1.  .S DGAIA(7)="and dividends, including tax exempt earnings and distributions from"
  1.  .S DGAIA(7,"F")="!,?8"
  1.  .S DGAIA(8)="Individual Retirement Accounts (IRAs) or annuities."
  1.  .S DGAIA(8,"F")="!,?8"
  1.  .S DGAIA(9)="A monthly amount can be entered with an '*' after it."
  1.  .S DGAIA(9,"F")="!!,?8"
  1.  .S DGAIA(10,"F")="!"
  1.  .D EN^DDIOL(.DGAIA)
  1.  I '$G(DGFORM) D
  1.  .S DGAIA(1)="Enter in this field the annual amount of All Other Income"
  1.  .S DGAIA(1,"F")="!,?8"
  1.  .S DGAIA(2)="received during the current calendar year (i.e., inheritance amounts,"
  1.  .S DGAIA(2,"F")="!,?8"
  1.  .S DGAIA(3)="tort settlement payments)."
  1.  .S DGAIA(3,"F")="!,?8"
  1.  .S DGAIA(4)="A monthly amount can be entered with an '*' after it."
  1.  .S DGAIA(4,"F")="!!,?8"
  1.  .S DGAIA(5,"F")="!"
  1.  .D EN^DDIOL(.DGAIA)
  1.  S X="?"
  1.  Q
  1. 101 ; Medical Expenses
  1.  W !,?8,"Enter in this field the total amount of unreimbursed medical expenses"
  1.  W !,?8,"paid by the veteran during the current calendar year.  The expenses"
  1.  W !,?8,"can be for the veteran or for members of the veteran's family."
  1.  W !,?8,"Reportable medical expenses include amounts paid for the following:"
  1.  W !,?8,"fees of physicians, dentists, and other providers of health services;"
  1.  W !,?8,"hospital and nursing home fees; medical insurance premiums (including"
  1.  W !,?8,"the Medicare premium); drugs and medicines; eyeglasses; any other"
  1.  W !,?8,"expenses that are reasonable related to medical care.  The expenses"
  1.  W !,?8,"must actually have been paid by the veteran.  Do not list expenses"
  1.  W !,?8,"which have not been paid or which have been paid by someone other"
  1.  W !,?8,"than the veteran.  Do not list expenses which the veteran has paid if"
  1.  W !,?8,"the veteran expects to receive reimbursement from insurance or some"
  1.  W !,?8,"other source."
  1.  W !
  1.  W !,?8,"A monthly amount can be entered with an '*' after it.",!
  1.  S X="?"
  1.  Q
  1. 102 ; Funeral and Burial Expenses
  1.  ;   Modified wording for LTC Phase III (EAS*1*34)
  1.  W !,?8,"Enter in this field amounts paid by the veteran during the current"
  1.  W !,?8,"calendar year for funeral or burial expenses of the veteran's"
  1.  W !,?8,"spouse or child, or pre-paid arrangements for the veteran."
  1.  W !,?8,"Do not report amounts paid for funeral or burial expenses of other"
  1.  W !,?8,"relatives such as parents, siblings, etc."
  1.  W !
  1.  W !,?8,"A monthly amount can be entered with an '*' after it.",!
  1.  S X="?"
  1.  Q
  1. 103 ; Educational Expenses
  1.  W !,?8,"Enter in this field the total amount paid by the veteran for"
  1.  W !,?8,"educational expenses during the current calendar year.  This"
  1.  W !,?8,"includes educational expenses for the veteran, spouse and children."
  1.  W !,?8,"Educational expenses are tuition, fees, and books if enrolled in a"
  1.  W !,?8,"program of education."
  1.  W !
  1.  W !,?8,"A monthly amount can be entered with an '*' after it.",!
  1.  S X="?"
  1.  Q
  1. 201 ; Cash
  1.  ;  Display a different message for the revised 10-10EC form.
  1.  ;  Modified for LTC IV (EAS*1*40)
  1.  W !,?8,"Enter in this field cash and amounts in bank accounts.  This"
  1.  W !,?8,"includes checking accounts, savings accounts, money markets,"
  1.  W !,?8,"interest, dividends from IRA, 401K's, and other tax deferred"
  1.  W !,?8,"annuities.",!
  1.  ;If this is the revised 10-10EC form, also print the message for stocks.
  1.  I $G(DGFORM) G 202
  1.  S X="?"
  1.  Q
  1. 202 ; Stock, bonds, mutual funds
  1.  W !,?8,"Enter in this field the current value of stocks, bonds, mutual"
  1.  W !,?8,"funds, SEP's, and other retirement accounts (e.g., IRA, 401K,"
  1.  W !,?8,"annuities, self-employed person).",!
  1.  S X="?"
  1.  Q