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