source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEC101.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.2 KB
Line 
1EASEC101 ;ALB/BRM,LBD - Print 1010EC LTC Enrollment Form ; 9/6/01 9:46am
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,40**;Mar 15, 2001
3 ;
4 ; Called from ^EASEC10E to print page 1 of the 1010EC
5 ;
6PAGE1(EALNE,EAINFO,EASDFN) ;Print page 1
7 N X,EASROOT
8 S EASROOT="^TMP(""1010EC"",$J,"_EASDFN_","
9 D HDRMAIN^EASEC10E(.EALNE)
10 D SEC1
11 D SEC2
12 D SEC3
13 D DISCLAIM
14 D FT^EASEC10E(.EALNE,.EAINFO)
15 Q
16SEC1 ;print section 1 - General Information
17 N EAS1
18 S EAS1=EASROOT_"1)"
19 W !,"1. Veteran's Name",?100,"|2. Social Security Number"
20 W !?3,@EAS1@(1),?100,"|",?104,@EAS1@(2),?131,$C(13) X EAINFO("L")
21 ;
22 W !?26,"Answer Yes or No where applicable (Otherwise provide the requested information)",?131,$C(13) X EAINFO("L")
23 ;
24 W !,"3. Are You Eligible for Medicaid?"
25 W ?36,"|3A. Are You Enrolled in Medicare Part A (Hospital Insurance)"
26 W ?100,"|3B. Effective Date (If ""Yes"")"
27 W !?3,@EAS1@(3),?36,"|",?41,@EAS1@(4),?100,"|",?105,@EAS1@(5),?131,$C(13) X EAINFO("L")
28 ;
29 W !,"4. Are You Enrolled in Medicare Part B (Medical Insurance)"
30 W ?63,"|4A. Effective Date (If ""Yes"")"
31 W ?97,"|4B. Medicare Claim Number"
32 W !?3,@EAS1@(6),?63,"|",?68,@EAS1@(7),?97,"|",?102,@EAS1@(8),?131,$C(13) X EAINFO("L")
33 Q
34SEC2 ;print section 2 - Insurance Information
35 N EAS2,X
36 S EAS2=EASROOT_"2)"
37 ;
38 W !?48,"SECTION II - INSURANCE INFORMATION",!,EALNE("D")
39 ;
40 W !,"5. Are You Covered By Health Insurance (including coverage through a spouse)? (If ""Yes"", provide the following information for"
41 W !?3,"all insurance company(s) providing coverage to you.)"
42 W !?3,@EAS2@(1),?131,$C(13) X EAINFO("L")
43 ;
44 F X=2,9,16 D ;loop through insurance companies
45 .W !,$S(X=2:6,X=9:7,X=16:8)_". Name of Insurance Company"
46 .W ?40,"|"_$S(X=2:6,X=9:7,X=16:8)_"A. Address of Insurance Company"
47 .W ?90,"|"_$S(X=2:6,X=9:7,X=16:8)_"B. Phone Number of Insurance Company"
48 .W !?3,@EAS2@(X),?40,"|",?45,@EAS2@(X+1,.111),?90,"|",?95,@EAS2@(X+2),?131,$C(13)
49 .W:$G(@EAS2@(X+1,.112))'="" !?40,"|",?45,@EAS2@(X+1,.112),?90,"|",?131,$C(13)
50 .W:$G(@EAS2@(X+1,.113))'="" !?40,"|",?45,@EAS2@(X+1,.113),?90,"|",?131,$C(13)
51 .W !?40,"|",?45,@EAS2@(X+1,.114) W:@EAS2@(X+1,.114)]"" ","
52 .W @EAS2@(X+1,.115)," ",@EAS2@(X+1,.116),?90,"|",?131,$C(13) X EAINFO("L")
53 .;
54 .W !,$S(X=2:6,X=9:7,X=16:8)_"C. Name of Policy Holder"
55 .W ?40,"|"_$S(X=2:6,X=9:7,X=16:8)_"D. Relationship of Policy Holder"
56 .W ?75,"|"_$S(X=2:6,X=9:7,X=16:8)_"E. Policy Number"
57 .W ?100,"|"_$S(X=2:6,X=9:7,X=16:8)_"F. Group Name and/or Number"
58 .W !?4,@EAS2@(X+3),?40,"|",?45,@EAS2@(X+4),?75,"|"
59 .W ?80,@EAS2@(X+5),?100,"|",?105,@EAS2@(X+6),$C(13) X EAINFO("L")
60 Q
61SEC3 ;print section 3 - Spouse/Dependent Information
62 ;This section was modified to print Current Marital Status for the
63 ;new 10-10EC form. Added for LTC Phase IV (EAS*1*40)
64 N X,EAS3
65 S EAS3=EASROOT_"3)"
66 W !?44,"SECTION III - SPOUSE/DEPENDENT INFORMATION",!,EALNE("D")
67 ;
68 I $G(EAINFO("FORM")) D
69 .W !,"9. Current Marital Status"
70 .W ?55,"|9A. Spouse's Name (Last, First, MI)"
71 .W !?3,@EAS3@(0),?55,"|",?61,@EAS3@(1),?131,$C(13) X EAINFO("L")
72 .;
73 .W !,"9B. Spouse Residing in the Community?"
74 .W ?90,"|9C. Spouse's Social Security Number"
75 .W !?4,@EAS3@(2),?90,"|",?95,@EAS3@(3),?131,$C(13) X EAINFO("L")
76 ;
77 I '$G(EAINFO("FORM")) D
78 .W !,"9. Spouse's Name (Last,First,MI)"
79 .W !?3,@EAS3@(1),?131,$C(13) X EAINFO("L")
80 .;
81 .W !,"9A. Spouse Residing in the Community?"
82 .W ?90,"|9B. Spouse's Social Security Number"
83 .W !?4,@EAS3@(2),?90,"|",?95,@EAS3@(3),?131,$C(13) X EAINFO("L")
84 ;
85 F X=4,8 D ;loop through dependents
86 .W !,$S(X=4:10,X=8:11)_". Dependent's Name (Last, First, MI)"
87 .W ?55,"|",$S(X=4:10,X=8:11)_"A. Dependent's Date of Birth"
88 .W ?90,"|",$S(X=4:10,X=8:11)_"B. Dependent's Social Security Number"
89 .W !?4,@EAS3@(X),?55,"|",?61,@EAS3@(X+1),?90,"|",?96,@EAS3@(X+2),?131,$C(13) X EAINFO("L")
90 .;
91 .W !,$S(X=4:10,X=8:11)_"C. Dependent Residing in the Community?"
92 .W !?5,@EAS3@(X+3),?131,$C(13) X EAINFO("L")
93 Q
94DISCLAIM ;
95 W !,"We need to collect information regarding income, assets, and "
96 W "expenses for you and your spouse. If you do not wish to provide this"
97 W !,"information you must sign agreeing to make copayments and will "
98 W "be charged the maximum copayment amount for all services. See the"
99 W !,"top of page 2, read, sign, and date."
100 Q
Note: See TracBrowser for help on using the repository browser.