Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: EASEZP62

Package: Enrollment Application System

Routine: EASEZP62


Information

EASEZP62 ;ALB/AMA,ERC,LBD,TDM - Print 1010EZ, Version 6 or greater, Cont., Page 2 ; 1/23/13 10:32am

Source Information

Source file <EASEZP62.m>

Entry Points

Name Comments DBIA/ICR reference
EN(EALNE,EAINFO) ; Entry point, called from EN^EASEZP6F
; Input
; EALNE - Array of line formats for output
; EAINFO - Application Data array, see SETUP^EASEZP6F
EI ; Print SECTION III - EMPLOYMENT INFORMATION
MIL ; Print out VA 10-10EZ Section IV, Military Service Information
FIN ; Print out VA 10-10EZ Section V, Financial Disclosure information
DEP ; Print out VA 10-10EZ Section VI, Dependent Information

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?48,"SECTION III - EMPLOYMENT INFORMATION"
  • Line Location: EI+2
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: EI+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: EI+3
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: EI+3
Function Call: WRITE
  • Prompt: !,"1. VETERAN'S EMPLOYMENT STATUS",?47,"|1A. COMPANY NAME, ADDRESS AND TELEPHONE NUMBER"
  • Line Location: EI+5
Function Call: WRITE
  • Prompt: !?3,$P(@EASD@("15A"),U),?47,"| ",$P(@EASD@("15B"),U)," ",$P(@EASD@("15B"),U,4)
  • Line Location: EI+6
Function Call: WRITE
  • Prompt: !,"Date of retirement (mm/dd/yyyy) ",$P(@EASD@("15A"),U,2),?47,"| ",$P(@EASD@("15B"),U,2)
  • Line Location: EI+7
Function Call: WRITE
  • Prompt: !,"If employed or retired, complete item 1A",?47,"| ",$P(@EASD@("15B"),U,3)
  • Line Location: EI+8
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: EI+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: EI+9
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: EI+9
Function Call: WRITE
  • Prompt: !,"2. SPOUSE'S EMPLOYMENT STATUS",?47,"|2A. COMPANY NAME, ADDRESS AND TELEPHONE NUMBER"
  • Line Location: EI+11
Function Call: WRITE
  • Prompt: !?3,$P(@EASD@("16A"),U),?47,"| ",$P(@EASD@("16B"),U)," ",$P(@EASD@("16B"),U,4)
  • Line Location: EI+12
Function Call: WRITE
  • Prompt: !,"Date of retirement (mm/dd/yyyy) ",$P(@EASD@("16A"),U,2),?47,"| ",$P(@EASD@("16B"),U,2)
  • Line Location: EI+13
Function Call: WRITE
  • Prompt: !,"If employed or retired, complete item 2A",?47,"| ",$P(@EASD@("16B"),U,3)
  • Line Location: EI+14
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: EI+15
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: EI+15
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: EI+15
Function Call: WRITE
  • Prompt: !!?45,"SECTION IV - MILITARY SERVICE INFORMATION"
  • Line Location: MIL+2
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: MIL+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: MIL+3
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: MIL+3
Function Call: WRITE
  • Prompt: !,"1. LAST BRANCH OF SERVICE",?28,"|1A. LAST ENTRY DATE",?50,"|1B. LAST DISCHARGE DATE",?76,"|1C. DISCHARGE TYPE",?103,"|1D. MILITARY SERVICE NUMBER"
  • Line Location: MIL+5
Function Call: WRITE
  • Prompt: !?4,@EASD@("13A"),?28,"| ",@EASD@("13B"),?50,"| ",@EASD@("13C"),?76,"| ",@EASD@("13D"),?103,"| ",@EASD@("13E")
  • Line Location: MIL+6
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: MIL+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: MIL+7
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: MIL+7
Function Call: WRITE
  • Prompt: !,"2. ANSWER YES OR NO:"
  • Line Location: MIL+9
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: MIL+10
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: MIL+10
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: MIL+10
Function Call: WRITE
  • Prompt: !," A. ARE YOU A PURPLE HEART AWARD RECIPIENT?",?58,"| ",@EASD@("14A1"),?64,"| E. DID YOU SERVE IN SW ASIA DURING THE GULF WAR BETWEEN",?124,"| ",@EASD@("14E")
  • Line Location: MIL+14
Function Call: WRITE
  • Prompt: !,?58,"|",?64,"| AUGUST 2, 1990 AND NOVEMBER 11, 1998?",?124,"|"
  • Line Location: MIL+15
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: MIL+16
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: MIL+16
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: MIL+16
Function Call: WRITE
  • Prompt: !," B. ARE YOU A FORMER PRISONER OF WAR?",?58,"| ",@EASD@("14A2"),?64,"| F. DID YOU SERVE IN VIETNAM BETWEEN JANUARY 9, 1962 AND",?124,"| ",@EASD@("14F")
  • Line Location: MIL+18
Function Call: WRITE
  • Prompt: !,?58,"|",?64,"| MAY 7, 1975?",?124,"|"
  • Line Location: MIL+19
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: MIL+20
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: MIL+20
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: MIL+20
Function Call: WRITE
  • Prompt: !," C. DID YOU SERVE IN COMBAT AFTER 11/11/1998?",?58,"| ",@EASD@("14B2"),?64,"| G. WERE YOU EXPOSED TO RADIATION WHILE IN THE MILITARY?",?124,"| ",@EASD@("14G")
  • Line Location: MIL+22
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: MIL+23
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: MIL+23
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: MIL+23
Function Call: WRITE
  • Prompt: !," D. WAS YOUR DISCHARGE FROM MILITARY FOR A DISABILITY",?58,"| ",@EASD@("14D4"),?64,"| H. DID YOU RECEIVE NOSE & THROAT RADIUM TREATMENTS",?124,"| ",@EASD@("14G1")
  • Line Location: MIL+25
Function Call: WRITE
  • Prompt: !?6,"INCURRED OR AGGRAVATED IN THE LINE OF DUTY?",?58,"| | WHILE IN THE MILITARY?",?124,"|"
  • Line Location: MIL+26
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: MIL+27
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: MIL+27
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: MIL+27
Function Call: WRITE
  • Prompt: !," D1. ARE YOU RECEIVING DISABILITY RETIREMENT PAY",?58,"| ",@EASD@("14D3"),?64,"| I. DO YOU HAVE A SPINAL CORD INJURY?",?124,"| ",@EASD@("14I")
  • Line Location: MIL+29
Function Call: WRITE
  • Prompt: !?6,"INSTEAD OF VA COMPENSATION?",?58,"| |",?124,"|"
  • Line Location: MIL+30
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: MIL+32
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: MIL+32
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: MIL+32
Function Call: WRITE
  • Prompt: !!?50,"SECTION V - FINANCIAL DISCLOSURE"
  • Line Location: FIN+2
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: FIN+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: FIN+3
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: FIN+3
Function Call: WRITE
  • Prompt: !,"Disclosure allows VA to accurately determine whether certain Veterans will be charged copays for care and medications, their"
  • Line Location: FIN+5
Function Call: WRITE
  • Prompt: !,"eligibility for other services and enrollment priority. Veterans are not required to disclose their financial information; however,"
  • Line Location: FIN+6
Function Call: WRITE
  • Prompt: !,"VA is not currently enrolling new applicants who decline to provide their financial information unless they have other qualifying"
  • Line Location: FIN+7
Function Call: WRITE
  • Prompt: !,"eligibility factors. Recent Combat Veterans are eligible for enrollment without disclosing their financial information but like"
  • Line Location: FIN+8
Function Call: WRITE
  • Prompt: !,"other Veterans may provide it to establish their eligibility for travel assistance, cost-free medication and/or medical care for"
  • Line Location: FIN+9
Function Call: WRITE
  • Prompt: !,"services unrelated to military experience."
  • Line Location: FIN+10
Function Call: WRITE
  • Prompt: !!?3,EAN," NO, I DO NOT WISH TO PROVIDE INFORMATION IN SECTIONS VI THROUGH IX. I understand that VA is not enrolling new applicants"
  • Line Location: FIN+19
Function Call: WRITE
  • Prompt: !,"who do not provide this information and who do not have other qualifying eligibility factors [i.e.,a former Prisoner of War; in"
  • Line Location: FIN+20
Function Call: WRITE
  • Prompt: !,"receipt of a Purple Heart; a recently discharged Combat Veteran (e.g.,OEF/OIF/OND who were discharged within the past 5 years);"
  • Line Location: FIN+21
Function Call: WRITE
  • Prompt: !,"discharged for a disability incurred or aggravated in the line of duty; receiving VA service-connected disability compensation;"
  • Line Location: FIN+22
Function Call: WRITE
  • Prompt: !,"receiving VA pension; or in receipt of Medicaid benefits.] (Sign and date the form in Section XII.)"
  • Line Location: FIN+23
Function Call: WRITE
  • Prompt: !!?3,EAY," YES, I WILL PROVIDE MY HOUSEHOLD FINANCIAL INFORMATION FOR LAST CALENDAR YEAR. Complete applicable sections VI through IX."
  • Line Location: FIN+25
Function Call: WRITE
  • Prompt: !,"(Sign and date the form in Section XII.)"
  • Line Location: FIN+26
Function Call: WRITE
  • Prompt: !?131,$C(13)
  • Line Location: FIN+27
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: FIN+27
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: FIN+27
Function Call: WRITE
  • Prompt: !!?24,"SECTION VI - DEPENDENT INFORMATION (Use a separate sheet for additional dependents)"
  • Line Location: DEP+2
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: DEP+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: DEP+3
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: DEP+3
Function Call: WRITE
  • Prompt: !,"1. SPOUSE'S NAME (Last, First, Middle Name)",?60,"|2. CHILD'S NAME (Last, First, Middle Name)"
  • Line Location: DEP+5
Function Call: WRITE
  • Prompt: !?4,$P(@EASD@(1),U),?60,"| ",@EASD@(2)
  • Line Location: DEP+6
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: DEP+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: DEP+7
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: DEP+7
Function Call: WRITE
  • Prompt: !,"1A. SPOUSE'S MAIDEN NAME OR OTHER NAMES USED",?60,"|2A. CHILD'S RELATIONSHIP TO YOU"
  • Line Location: DEP+9
Function Call: WRITE
  • Prompt: !?4,$P(@EASD@(1),U,2),?60,"| ",@EASD@(9)
  • Line Location: DEP+10
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: DEP+11
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: DEP+11
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: DEP+11
Function Call: WRITE
  • Prompt: !,"1B. SPOUSE'S SOCIAL SECURITY NUMBER",?60,"|2B. CHILD'S SOCIAL SECURITY NUMBER",?99,"|2C. DATE CHILD BECAME YOUR"
  • Line Location: DEP+13
Function Call: WRITE
  • Prompt: !?4,@EASD@(3),?60,"| ",@EASD@(7),?99,"| DEPENDENT ",@EASD@(11)
  • Line Location: DEP+14
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: DEP+15
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: DEP+15
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: DEP+15
Function Call: WRITE
  • Prompt: !,"1C. SPOUSE'S DATE OF BIRTH (mm/dd/yyyy)",?44,"|1D. DATE OF MARRIAGE (mm/dd/yyyy)",?84,"|2D. CHILD'S DATE OF BIRTH (mm/dd/yyyy)"
  • Line Location: DEP+17
Function Call: WRITE
  • Prompt: !?4,@EASD@(4),?44,"| ",@EASD@(10),?84,"| ",@EASD@(5)
  • Line Location: DEP+18
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: DEP+19
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: DEP+19
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: DEP+19
Function Call: WRITE
  • Prompt: !,"1E. SPOUSE'S ADDRESS AND TELEPHONE NUMBER (Street, City, State, ZIP)",?84,"|2E. WAS CHILD PERMANENTLY AND TOTALLY"
  • Line Location: DEP+21
Function Call: WRITE
  • Prompt: !?4,$P(@EASD@(6),U),?84,"| DISABLED BEFORE THE AGE OF 18? ",@EASD@(14)
  • Line Location: DEP+22
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: DEP+23
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: DEP+23
Function Call: WRITE
  • Prompt: " "
  • Line Location: DEP+23
Function Call: WRITE
  • Prompt: $E(EALNE("UL"),1,47)
  • Line Location: DEP+24
Function Call: WRITE
  • Prompt: !?4,$P(@EASD@(6),U,2),?84,"|2F. IF CHILD IS BETWEEN 18 AND 23 YEARS"
  • Line Location: DEP+26
Function Call: WRITE
  • Prompt: !?4,@EASD@(8),?84,"| OF AGE, DID CHILD ATTEND SCHOOL LAST"
  • Line Location: DEP+27
Function Call: WRITE
  • Prompt: !?84,"| CALENDAR YEAR? ",@EASD@(15)
  • Line Location: DEP+28
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: DEP+29
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: DEP+29
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: DEP+29
Function Call: WRITE
  • Prompt: !,"3. IF YOUR SPOUSE OR DEPENDENT CHILD DID NOT LIVE WITH YOU LAST",?65,"|2G. EXPENSES PAID BY YOUR DEPENDENT CHILD FOR COLLEGE, VOCATIONAL"
  • Line Location: DEP+31
Function Call: WRITE
  • Prompt: !?3,"YEAR, DID YOU PROVIDE SUPPORT?",?65,"| REHABILITATION OR TRAINING (e.g., tuition, books, materials)"
  • Line Location: DEP+32
Function Call: WRITE
  • Prompt: !?40
  • Line Location: DEP+33
Function Call: WRITE
  • Prompt: "YES"
  • Line Location: DEP+33
Function Call: WRITE
  • Prompt: ?65,"|",?73,"$ ",@EASD@(13)
  • Line Location: DEP+34
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: DEP+35
Function Call: WRITE
  • Prompt: !
  • Condition for execution: EALNE("ULC")="-"
  • Line Location: DEP+35
Function Call: WRITE
  • Prompt: EALNE("UL")
  • Line Location: DEP+35
Info |  Source |  Entry Points |  Interaction Calls