source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EAS1043A.m@ 938

Last change on this file since 938 was 613, checked in by George Lilly, 16 years ago

initial load of WorldVistAEHR
File size: 7.2 KB
Line 
1EAS1043A ;ALB/RMM - PRE-INSTALL ROUTINE FOR EAS*1.0*43 ; 11/07/2003
2 ;;2.0;INCOME VERIFICATION MATCH;**43**;JUL 8,1996
3 ;
4EN ; Entry point for the EAS*1.0*43 Pre-Install
5 ;
6 ; This routine will update the EAS MT LETTER (#713.3) File
7 ; INITIAL SECTION OF LETTER, WORD-PROCESSING #713.33 (NOWRAP) field,
8 ; for the 0-DAY LETTER, the 30-DAY LETTER, and the 60-DAY LETTER.
9 ;
10ZERO ; Update the 0-DAY LETTER
11 ;
12 N EASIEN,DGMSG
13 S EASIEN=$O(^EAS(713.3,"B","0-DAY LETTER",""))
14 S DGMSG(1)="Updating '0-DAY LETTER' in the EAS MT LETTER File (#713.3)"
15 S DGMSG(2)="IEN = "_EASIEN
16 D MES^XPDUTL(.DGMSG)
17 ;
18 ; Set up description array.
19 N DGNEW,DGERR,DGOUT
20 S DGNEW("WP",1)="According to our records you have not responded to our previous requests"
21 S DGNEW("WP",2)="to complete the financial section of VA Form 10-10EZ, Application for"
22 S DGNEW("WP",3)="Health Benefits. This is to inform you that your current financial"
23 S DGNEW("WP",4)="assessment (means test) has expired."
24 S DGNEW("WP",5)=" "
25 S DGNEW("WP",6)="How Does This Affect Your Eligibility for Cost Free Care?"
26 S DGNEW("WP",7)=" o We do not have a current means test for you on file as is required to"
27 S DGNEW("WP",8)=" determine your eligibility for either cost-free care or reduced"
28 S DGNEW("WP",9)=" inpatient copayments."
29 S DGNEW("WP",10)=" "
30 S DGNEW("WP",11)="How Does This Affect Your Enrollment?"
31 S DGNEW("WP",12)=" o We are unable to determine your priority for enrollment in the VA"
32 S DGNEW("WP",13)=" health care system."
33 S DGNEW("WP",14)=" "
34 S DGNEW("WP",15)="What Do You Need To Do?"
35 S DGNEW("WP",16)=" o Complete, sign and return a new VA Form 10-10EZ, including the"
36 S DGNEW("WP",17)=" financial section."
37 S DGNEW("WP",18)=" o Read the enclosed VA Form 4107VHA, Your Rights to Appeal our Decision."
38 S DGNEW("WP",19)=" If you disagree with our decision, you or your representative may"
39 S DGNEW("WP",20)=" complete a Notice of Disagreement and return it to the Enrollment"
40 S DGNEW("WP",21)=" Coordinator or Health Benefits Advisor at your local VA health care"
41 S DGNEW("WP",22)=" facility."
42 S DGNEW("WP",23)=" "
43 S DGNEW("WP",24)="What If You Have Questions?"
44 ;
45 ; Update the Word Processing Field
46 D WP^DIE(713.3,EASIEN_",",3,"K","DGNEW(""WP"")","DGERR")
47 ;
48 ; Check for and Report any Errors
49 I $D(DGERR) D
50 . D BMES^XPDUTL("NOTE: An error occurred when updating the 0-DAY LETTER")
51 . D MSG^DIALOG("AS",.DGOUT,"","","DGERR")
52 . D MES^XPDUTL(.DGOUT)
53 . D BMES^XPDUTL("Please contact the VistA Help Desk.")
54 ;
55 ; Cleanup after each Letter is updated
56 K DGNEW,DGERR,DGOUT,EASIEN,DGMSG
57 ;
58THIRTY ; Update the 30-DAY LETTER
59 ;
60 N EASIEN,DGMSG
61 S EASIEN=$O(^EAS(713.3,"B","30-DAY LETTER",""))
62 S DGMSG(1)="Updating '30-DAY LETTER' in the EAS MT LETTER File (#713.3)"
63 S DGMSG(2)="IEN = "_EASIEN
64 D MES^XPDUTL(.DGMSG)
65 ;
66 ; Set up description array.
67 N DGNEW,DGERR,DGOUT
68 S DGNEW("WP",1)="Each year VA requires most nonservice-connected veterans and 0% service-"
69 S DGNEW("WP",2)="connected veterans to complete a financial assessment (means test). Our"
70 S DGNEW("WP",3)="records show that your annual means test is due."
71 S DGNEW("WP",4)=" "
72 S DGNEW("WP",5)="As of this date we have not received the updated financial income"
73 S DGNEW("WP",6)="information we requested in a previous letter."
74 S DGNEW("WP",7)=" "
75 S DGNEW("WP",8)="What Does This Mean To You?"
76 S DGNEW("WP",9)=" o An updated means test is needed to determine your ability to pay"
77 S DGNEW("WP",10)=" copayments for your medical care and medications and your priority for"
78 S DGNEW("WP",11)=" enrollment in the VA health care system."
79 S DGNEW("WP",12)=" o Failure to complete the means test by the anniversary date will cause"
80 S DGNEW("WP",13)=" your priority for enrollment in the VA health care system to lapse."
81 S DGNEW("WP",14)=" "
82 S DGNEW("WP",15)="What Do You Need To Do?"
83 S DGNEW("WP",16)=" o Complete and sign the enclosed Financial Assessment portion of the"
84 S DGNEW("WP",17)=" enclosed VA Form 10-10EZ, Application for Health Benefits, reporting"
85 S DGNEW("WP",18)=" income and assets for the previous calendar year."
86 S DGNEW("WP",19)=" o Return the completed and signed form in the enclosed envelope before"
87 S DGNEW("WP",20)=" your means test anniversary date."
88 S DGNEW("WP",21)=" o When you report to your next health care appointment, bring your health"
89 S DGNEW("WP",22)=" insurance card so we may update your health insurance information. "
90 S DGNEW("WP",23)=" o Notify us if you feel you received this letter in error."
91 S DGNEW("WP",24)=" "
92 S DGNEW("WP",25)="What If You Have Questions?"
93 ;
94 ; Update the Word Processing Field
95 D WP^DIE(713.3,EASIEN_",",3,"K","DGNEW(""WP"")","DGERR")
96 ;
97 ; Check for and Report any Errors
98 I $D(DGERR) D
99 . D BMES^XPDUTL("NOTE: An error occurred when updating the 30-DAY LETTER")
100 . D MSG^DIALOG("AS",.DGOUT,"","","DGERR")
101 . D MES^XPDUTL(.DGOUT)
102 . D BMES^XPDUTL("Please contact the VistA Help Desk.")
103 ;
104 ; Cleanup after each Letter is updated
105 K DGNEW,DGERR,DGOUT,EASIEN,DGMSG
106 ;
107SIXTY ; Update the 60-DAY LETTER
108 ;
109 N EASIEN,DGMSG
110 S EASIEN=$O(^EAS(713.3,"B","60-DAY LETTER",""))
111 S DGMSG(1)="Updating '60-DAY LETTER' in the EAS MT LETTER File (#713.3)"
112 S DGMSG(2)="IEN = "_EASIEN
113 D MES^XPDUTL(.DGMSG)
114 ;
115 ; Set up description array.
116 N DGNEW,DGERR,DGOUT
117 S DGNEW("WP",1)="Each year VA requires most nonservice-connected veterans and 0% service-"
118 S DGNEW("WP",2)="connected veterans to complete a financial assessment (means test). Our"
119 S DGNEW("WP",3)="records show that your annual means test is due."
120 S DGNEW("WP",4)=" "
121 S DGNEW("WP",5)="What Does This Mean To You?"
122 S DGNEW("WP",6)=" o An updated means test is needed to determine your ability to pay"
123 S DGNEW("WP",7)=" copayments for your medical care and medications and your priority for"
124 S DGNEW("WP",8)=" enrollment in the VA health care system."
125 S DGNEW("WP",9)=" o Failure to complete the means test by the anniversary date will cause"
126 S DGNEW("WP",10)=" your priority for enrollment in the VA health care system to lapse."
127 S DGNEW("WP",11)=" "
128 S DGNEW("WP",12)="What Do You Need To Do?"
129 S DGNEW("WP",13)=" o Complete and sign the Financial Assessment portion of the enclosed VA"
130 S DGNEW("WP",14)=" Form 10-10EZ, Application for Health Benefits, reporting income and"
131 S DGNEW("WP",15)=" assets for the previous calendar year."
132 S DGNEW("WP",16)=" o Return the completed and signed form in the enclosed envelope before"
133 S DGNEW("WP",17)=" your means test anniversary date."
134 S DGNEW("WP",18)=" o When you report to your next health care appointment, bring your health"
135 S DGNEW("WP",19)=" insurance card so we may update your health insurance information."
136 S DGNEW("WP",20)=" o Notify us if you feel you received this letter in error. "
137 S DGNEW("WP",21)=" "
138 S DGNEW("WP",22)="What If You Have Questions?"
139 ;
140 ; Update the Word Processing Field
141 D WP^DIE(713.3,EASIEN_",",3,"K","DGNEW(""WP"")","DGERR")
142 ;
143 ; Check for and Report any Errors
144 I $D(DGERR) D
145 . D BMES^XPDUTL("NOTE: An error occurred when updating the 60-DAY LETTER")
146 . D MSG^DIALOG("AS",.DGOUT,"","","DGERR")
147 . D MES^XPDUTL(.DGOUT)
148 . D BMES^XPDUTL("Please contact the VistA Help Desk.")
149 ;
150 ; Cleanup after each Letter is updated
151 K DGNEW,DGERR,DGOUT,EASIEN,DGMSG
152 ;
153 D BMES^XPDUTL("Pre-Installation Complete, the EAS MT Letters have been updated.")
154 ;
155 Q
Note: See TracBrowser for help on using the repository browser.