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

EASEZP62.m

Go to the documentation of this file.
  1. EASEZP62 ;ALB/AMA,ERC,LBD,TDM - Print 1010EZ, Version 6 or greater, Cont., Page 2 ; 1/23/13 10:32am
  1. ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60,70,107**;Mar 15, 2001;Build 32
  1. ;
  1. ;This routine copied from EASEZPF2; if the version # of the 1010EZ
  1. ;application is 6.0 or greater, then this routine will be executed.
  1. ;
  1. EN(EALNE,EAINFO) ; Entry point, called from EN^EASEZP6F
  1. ; Input
  1. ; EALNE - Array of line formats for output
  1. ; EAINFO - Application Data array, see SETUP^EASEZP6F
  1. ;
  1. N EASD
  1. ;
  1. D HDR^EASEZP6F(.EALNE,.EAINFO)
  1. S EASD=$NA(^TMP("EASEZ",$J,1))
  1. ;
  1. D EI
  1. D MIL
  1. ;
  1. S EASD=$NA(^TMP("EASEZ",$J,2))
  1. ;
  1. D FIN
  1. D DEP
  1. ;
  1. D FT^EASEZP6F(.EALNE,.EAINFO)
  1. Q
  1. ;
  1. ;
  1. EI ; Print SECTION III - EMPLOYMENT INFORMATION
  1. ;
  1. W !!?48,"SECTION III - EMPLOYMENT INFORMATION"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"1. VETERAN'S EMPLOYMENT STATUS",?47,"|1A. COMPANY NAME, ADDRESS AND TELEPHONE NUMBER"
  1. W !?3,$P(@EASD@("15A"),U),?47,"| ",$P(@EASD@("15B"),U)," ",$P(@EASD@("15B"),U,4)
  1. W !,"Date of retirement (mm/dd/yyyy) ",$P(@EASD@("15A"),U,2),?47,"| ",$P(@EASD@("15B"),U,2)
  1. W !,"If employed or retired, complete item 1A",?47,"| ",$P(@EASD@("15B"),U,3)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"2. SPOUSE'S EMPLOYMENT STATUS",?47,"|2A. COMPANY NAME, ADDRESS AND TELEPHONE NUMBER"
  1. W !?3,$P(@EASD@("16A"),U),?47,"| ",$P(@EASD@("16B"),U)," ",$P(@EASD@("16B"),U,4)
  1. W !,"Date of retirement (mm/dd/yyyy) ",$P(@EASD@("16A"),U,2),?47,"| ",$P(@EASD@("16B"),U,2)
  1. W !,"If employed or retired, complete item 2A",?47,"| ",$P(@EASD@("16B"),U,3)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. Q
  1. ;
  1. MIL ; Print out VA 10-10EZ Section IV, Military Service Information
  1. ;
  1. W !!?45,"SECTION IV - MILITARY SERVICE INFORMATION"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"1. LAST BRANCH OF SERVICE",?28,"|1A. LAST ENTRY DATE",?50,"|1B. LAST DISCHARGE DATE",?76,"|1C. DISCHARGE TYPE",?103,"|1D. MILITARY SERVICE NUMBER"
  1. W !?4,@EASD@("13A"),?28,"| ",@EASD@("13B"),?50,"| ",@EASD@("13C"),?76,"| ",@EASD@("13D"),?103,"| ",@EASD@("13E")
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"2. ANSWER YES OR NO:"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. ;DG*5.3*688 - change wording from Environmental Contaminants to SW
  1. ;Asia Conditions.
  1. W !," 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")
  1. W !,?58,"|",?64,"| AUGUST 2, 1990 AND NOVEMBER 11, 1998?",?124,"|"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !," 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")
  1. W !,?58,"|",?64,"| MAY 7, 1975?",?124,"|"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !," 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")
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !," D. WAS YOUR DISCHARGE FROM MILITARY FOR A DISABILITY",?58,"| ",@EASD@("14D4"),?64,"| H. DID YOU RECEIVE NOSE & THROAT RADIUM TREATMENTS",?124,"| ",@EASD@("14G1")
  1. W !?6,"INCURRED OR AGGRAVATED IN THE LINE OF DUTY?",?58,"| | WHILE IN THE MILITARY?",?124,"|"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !," D1. ARE YOU RECEIVING DISABILITY RETIREMENT PAY",?58,"| ",@EASD@("14D3"),?64,"| I. DO YOU HAVE A SPINAL CORD INJURY?",?124,"| ",@EASD@("14I")
  1. W !?6,"INSTEAD OF VA COMPENSATION?",?58,"| |",?124,"|"
  1. ;
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. Q
  1. ;
  1. FIN ; Print out VA 10-10EZ Section V, Financial Disclosure information
  1. ;
  1. W !!?50,"SECTION V - FINANCIAL DISCLOSURE"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"Disclosure allows VA to accurately determine whether certain Veterans will be charged copays for care and medications, their"
  1. W !,"eligibility for other services and enrollment priority. Veterans are not required to disclose their financial information; however,"
  1. W !,"VA is not currently enrolling new applicants who decline to provide their financial information unless they have other qualifying"
  1. W !,"eligibility factors. Recent Combat Veterans are eligible for enrollment without disclosing their financial information but like"
  1. W !,"other Veterans may provide it to establish their eligibility for travel assistance, cost-free medication and/or medical care for"
  1. W !,"services unrelated to military experience."
  1. ;
  1. N EAN,EAY S (EAY,EAN)="___"
  1. ;IF NO ENTRY, THEN NO MEANS TEST, SO NO ANSWER
  1. ;IF @EASD@(998)="Y", THEN VET DECLINES TO GIVE INFO, SO ANSWER "NO"
  1. I $D(@EASD@(998)) D
  1. . S:@EASD@(998)="YES" EAN=" X "
  1. . S:@EASD@(998)="NO" EAY=" X "
  1. ;
  1. W !!?3,EAN," NO, I DO NOT WISH TO PROVIDE INFORMATION IN SECTIONS VI THROUGH IX. I understand that VA is not enrolling new applicants"
  1. W !,"who do not provide this information and who do not have other qualifying eligibility factors [i.e.,a former Prisoner of War; in"
  1. W !,"receipt of a Purple Heart; a recently discharged Combat Veteran (e.g.,OEF/OIF/OND who were discharged within the past 5 years);"
  1. W !,"discharged for a disability incurred or aggravated in the line of duty; receiving VA service-connected disability compensation;"
  1. W !,"receiving VA pension; or in receipt of Medicaid benefits.] (Sign and date the form in Section XII.)"
  1. ;
  1. W !!?3,EAY," YES, I WILL PROVIDE MY HOUSEHOLD FINANCIAL INFORMATION FOR LAST CALENDAR YEAR. Complete applicable sections VI through IX."
  1. W !,"(Sign and date the form in Section XII.)"
  1. W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. Q
  1. ;
  1. DEP ; Print out VA 10-10EZ Section VI, Dependent Information
  1. ;
  1. W !!?24,"SECTION VI - DEPENDENT INFORMATION (Use a separate sheet for additional dependents)"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"1. SPOUSE'S NAME (Last, First, Middle Name)",?60,"|2. CHILD'S NAME (Last, First, Middle Name)"
  1. W !?4,$P(@EASD@(1),U),?60,"| ",@EASD@(2)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"1A. SPOUSE'S MAIDEN NAME OR OTHER NAMES USED",?60,"|2A. CHILD'S RELATIONSHIP TO YOU"
  1. W !?4,$P(@EASD@(1),U,2),?60,"| ",@EASD@(9)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"1B. SPOUSE'S SOCIAL SECURITY NUMBER",?60,"|2B. CHILD'S SOCIAL SECURITY NUMBER",?99,"|2C. DATE CHILD BECAME YOUR"
  1. W !?4,@EASD@(3),?60,"| ",@EASD@(7),?99,"| DEPENDENT ",@EASD@(11)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"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)"
  1. W !?4,@EASD@(4),?44,"| ",@EASD@(10),?84,"| ",@EASD@(5)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"1E. SPOUSE'S ADDRESS AND TELEPHONE NUMBER (Street, City, State, ZIP)",?84,"|2E. WAS CHILD PERMANENTLY AND TOTALLY"
  1. W !?4,$P(@EASD@(6),U),?84,"| DISABLED BEFORE THE AGE OF 18? ",@EASD@(14)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! N Z F Z=1:1:85 W " "
  1. W $E(EALNE("UL"),1,47)
  1. ;
  1. W !?4,$P(@EASD@(6),U,2),?84,"|2F. IF CHILD IS BETWEEN 18 AND 23 YEARS"
  1. W !?4,@EASD@(8),?84,"| OF AGE, DID CHILD ATTEND SCHOOL LAST"
  1. W !?84,"| CALENDAR YEAR? ",@EASD@(15)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"3. IF YOUR SPOUSE OR DEPENDENT CHILD DID NOT LIVE WITH YOU LAST",?65,"|2G. EXPENSES PAID BY YOUR DEPENDENT CHILD FOR COLLEGE, VOCATIONAL"
  1. W !?3,"YEAR, DID YOU PROVIDE SUPPORT?",?65,"| REHABILITATION OR TRAINING (e.g., tuition, books, materials)"
  1. W !?40 I $P(@EASD@(12),U)!($P(@EASD@(12),U,2)) W "YES"
  1. W ?65,"|",?73,"$ ",@EASD@(13)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. Q