source: FOIAVistA/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EAS113P.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 5.1 KB
Line 
1EAS113P ;ALB/CKN - EAS MT LETTERS POST INSTALL ROUTINE ; 11/21/02 3:45pm
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**13**;MAR 15,2001
3 Q
4EP ;
5 N DIE,DA,DR,IEN0,IEN30,IEN60,TEXT,FILE,K,WP0,WP30,WP60,WP,XIEN
6 ;Update EAS MT LETTERS file (#713.3)
7 D MES^XPDUTL("*** Updating EAS MT LETTERS file(#713.3)***")
8 S FILE=713.3
9 D MES^XPDUTL("*** Updating 0-DAY LETTER ***")
10 S IEN0=$O(^EAS(713.3,"B","0-DAY LETTER",""))
11 I IEN0="" D MES^XPDUTL("*** 0-DAY LETTER not updated ***")
12 I IEN0'="" D
13 . S DIE="^EAS(713.3,",DA=IEN0,DR="3///@" D ^DIE K DIE,DA
14 . K WP0
15 . F K=1:1 S TEXT=$P($T(DAY0+K),";;",2) Q:TEXT="EXIT" S WP0(K)=TEXT
16 . D FILE(IEN0,.WP0)
17 D MES^XPDUTL("*** Updating 30-DAY LETTER ***")
18 S IEN30=$O(^EAS(713.3,"B","30-DAY LETTER",""))
19 I IEN30="" D MES^XPDUTL("*** 30-DAY LETTER not updated ***")
20 I IEN30'="" D
21 . S DIE="^EAS(713.3,",DA=IEN30,DR="3///@" D ^DIE K DIE,DA
22 . K WP30
23 . F K=1:1 S TEXT=$P($T(DAY30+K),";;",2) Q:TEXT="EXIT" S WP30(K)=TEXT
24 . D FILE(IEN30,.WP30)
25 D MES^XPDUTL("*** Updating 60-DAY LETTER ***")
26 S IEN60=$O(^EAS(713.3,"B","60-DAY LETTER",""))
27 I IEN60="" D MES^XPDUTL("*** 60-DAY LETTER not updated ***")
28 I IEN60'="" D
29 . S DIE="^EAS(713.3,",DA=IEN60,DR="3///@" D ^DIE K DIE,DA
30 . K WP60
31 . F K=1:1 S TEXT=$P($T(DAY60+K),";;",2) Q:TEXT="EXIT" S WP60(K)=TEXT
32 . D FILE(IEN60,.WP60)
33 Q
34FILE(XIEN,WP) ;
35 D WP^DIE(FILE,XIEN,3,,"WP","ERR")
36 K WP
37 Q
38DAY0 ;;
39 ;;According to our records you have not responded to our previous requests
40 ;;to complete the financial section of VA Form 10-10EZ, Application for
41 ;;Health Benefits. This is to inform you that your current financial
42 ;;assessment (means test) has expired.
43 ;;
44 ;;How Does This Affect Your Eligibility for Care?
45 ;; o We do not have a current means test for you on file, which is
46 ;; needed to determine your continued eligibility for care of your
47 ;; non-service connected conditions.
48 ;; o We are unable to schedule you for future care of your non-service
49 ;; connected conditions.
50 ;;
51 ;;How Does This Affect Your Enrollment?
52 ;; o We are unable to determine your priority for enrollment in the VA
53 ;; health care system.
54 ;;
55 ;;What Do You Need To Do?
56 ;; o Complete, sign and return a new VA Form 10-10EZ, including the
57 ;; financial section.
58 ;; o Read the enclosed VA Form 4107, Notice of Procedural and Appellate
59 ;; Rights. If you disagree with our decision, you or your representative
60 ;; may complete a Notice of Disagreement and return it to the Enrollment
61 ;; Coordinator or Health Benefits Advisor at your local VA health care
62 ;; facility.
63 ;;
64 ;;What If You Have Questions?
65 ;;EXIT
66DAY30 ;;
67 ;;Each year the VA requires non-service connected veterans and 0% service
68 ;;connected veterans to complete a financial assessment (means test). Our
69 ;;records show that your annual means test is due |ANNVDT|.
70 ;;
71 ;;As of this date we have not received the updated financial income
72 ;;information we requested in a previous letter.
73 ;;
74 ;;What Does This Mean To You?
75 ;; o Your updated financial assessment information is needed to determine
76 ;; your continued eligibility for care of your non-service connected
77 ;; conditions.
78 ;; o Failure to complete the means test by the anniversary date will
79 ;; prevent us from being able to schedule you for future care for
80 ;; your non-service connected conditions.
81 ;;
82 ;;What Do You Need To Do?
83 ;; o Complete and sign the enclosed Financial Assessment portion of the
84 ;; enclosed VA Form 10-10EZ, Application for Health Benefits, reporting
85 ;; income and assets for the previous calendar year.
86 ;; o Return the completed and signed form in the enclosed envelope before
87 ;; your means test anniversary date.
88 ;; o When you report to your next health care appointment, bring your
89 ;; health insurance card so we may update your health insurance
90 ;; information.
91 ;; o Notify us if you feel you received this letter in error
92 ;;
93 ;;What If You Have Questions?
94 ;;EXIT
95DAY60 ;;
96 ;;Each year the VA requires non-service connected veterans and 0% service
97 ;;connected veterans to complete a financial assessment (means test). Our
98 ;;records show that your annual means test is due |ANNVDT|.
99 ;;
100 ;;What Does This Mean To You?
101 ;; o Your financial assessment information is used to determine your
102 ;; continued eligibility for care of your non-service connected
103 ;; conditions.
104 ;; o Failure to complete the means test by the anniversary date will
105 ;; prevent us from being able to schedule you for future care for
106 ;; your non-service connected conditions.
107 ;;
108 ;;What Do You Need To Do?
109 ;; o Complete and sign the Financial Assessment portion of the enclosed VA
110 ;; Form 10-10EZ, Application for Health Benefits, reporting income and
111 ;; assets for the previous calendar year.
112 ;; o Return the completed and signed form in the enclosed envelope before
113 ;; your means test anniversary date.
114 ;; o When you report to your next health care appointment, bring your
115 ;; health insurance card so we may update your health insurance
116 ;; information.
117 ;; o Notify us if you feel you received this letter in error.
118 ;;
119 ;;What If You Have Questions?
120 ;;EXIT
Note: See TracBrowser for help on using the repository browser.