source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EAS163P.m@ 623

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

initial load of WorldVistAEHR

File size: 5.4 KB
Line 
1EAS163P ;KAR/RMM - PRE-INSTALL ROUTINE FOR EAS*1.0*63 ; 8/24/2005
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**63**;JUL 8,1996
3 ;
4EN ; Entry point for the EAS*1.0*63 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 and the 30-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-10EZR, Health Benefits"
22 S DGNEW("WP",3)="Renewal Form. This is to inform you that your current financial assessment"
23 S DGNEW("WP",4)="(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 a new VA Form 10-10EZR, Health Benefits Renewal Form, including"
36 S DGNEW("WP",17)=" the financial section as soon as possible and return it to the"
37 S DGNEW("WP",18)=" Business Office at the address above. You may obtain this form by"
38 S DGNEW("WP",19)=" contacting our Business Office or by downloading the form from our"
39 S DGNEW("WP",20)=" website at: http://www.va.gov/vaforms/search_action.asp"
40 S DGNEW("WP",21)=" o Read the enclosed VA Form 4107VHA, Your Rights to Appeal Our Decision."
41 S DGNEW("WP",22)=" If you disagree with our decision, you or your representative may"
42 S DGNEW("WP",23)=" complete a Notice of Disagreement and return it to the Enrollment"
43 S DGNEW("WP",24)=" Coordinator or Health Benefits Advisor at your local VA health care"
44 S DGNEW("WP",25)=" facility."
45 S DGNEW("WP",26)=" "
46 S DGNEW("WP",27)="What If You Have Questions?"
47 ;
48 ; Update the Word Processing Field
49 D WP^DIE(713.3,EASIEN_",",3,"K","DGNEW(""WP"")","DGERR")
50 ;
51 ; Check for and Report any Errors
52 I $D(DGERR) D
53 . D BMES^XPDUTL("NOTE: An error occurred when updating the 0-DAY LETTER")
54 . D MSG^DIALOG("AS",.DGOUT,"","","DGERR")
55 . D MES^XPDUTL(.DGOUT)
56 . D BMES^XPDUTL("Please contact the VistA Help Desk.")
57 ;
58 ; Cleanup after each Letter is updated
59 K DGNEW,DGERR,DGOUT,EASIEN,DGMSG
60 ;
61THIRTY ; Update the 30-DAY LETTER
62 ;
63 N EASIEN,DGMSG
64 S EASIEN=$O(^EAS(713.3,"B","30-DAY LETTER",""))
65 S DGMSG(1)="Updating '30-DAY LETTER' in the EAS MT LETTER File (#713.3)"
66 S DGMSG(2)="IEN = "_EASIEN
67 D MES^XPDUTL(.DGMSG)
68 ;
69 ; Set up description array.
70 N DGNEW,DGERR,DGOUT
71 S DGNEW("WP",1)="Each year VA requires most nonservice-connected veterans and 0% service-"
72 S DGNEW("WP",2)="connected veterans to complete a financial assessment (means test). Our"
73 S DGNEW("WP",3)="records show that your annual means test is due."
74 S DGNEW("WP",4)=" "
75 S DGNEW("WP",5)="As of this date we have not received the updated financial income"
76 S DGNEW("WP",6)="information we requested in a previous letter."
77 S DGNEW("WP",7)=" "
78 S DGNEW("WP",8)="What Does This Mean To You?"
79 S DGNEW("WP",9)=" o An updated means test is needed to determine your ability to pay"
80 S DGNEW("WP",10)=" copayments for your medical care and medications and your priority for"
81 S DGNEW("WP",11)=" enrollment in the VA health care system."
82 S DGNEW("WP",12)=" o Failure to complete the means test by the anniversary date will cause"
83 S DGNEW("WP",13)=" your priority for enrollment in the VA health care system to lapse."
84 S DGNEW("WP",14)=" "
85 S DGNEW("WP",15)="What Do You Need To Do?"
86 S DGNEW("WP",16)=" o Complete, sign and return a new VA Form 10-10EZR, Health Benefits"
87 S DGNEW("WP",17)=" Renewal Form, including the financial section. You may obtain this"
88 S DGNEW("WP",18)=" form by contacting our Business Office or by downloading the form from"
89 S DGNEW("WP",19)=" our website at: http://www.va.gov/vaforms/search_action.asp. Return"
90 S DGNEW("WP",20)=" the completed and signed form to the Business Office at the address"
91 S DGNEW("WP",21)=" above before your means test anniversary date. "
92 S DGNEW("WP",22)=" o When you report to your next health care appointment, bring your health"
93 S DGNEW("WP",23)=" insurance card so we may update your health insurance information. "
94 S DGNEW("WP",24)=" o Notify us if you feel you received this letter in error."
95 S DGNEW("WP",25)=" "
96 S DGNEW("WP",26)="What If You Have Questions?"
97 ;
98 ; Update the Word Processing Field
99 D WP^DIE(713.3,EASIEN_",",3,"K","DGNEW(""WP"")","DGERR")
100 ;
101 ; Check for and Report any Errors
102 I $D(DGERR) D
103 . D BMES^XPDUTL("NOTE: An error occurred when updating the 30-DAY LETTER")
104 . D MSG^DIALOG("AS",.DGOUT,"","","DGERR")
105 . D MES^XPDUTL(.DGOUT)
106 . D BMES^XPDUTL("Please contact the VistA Help Desk.")
107 ;
108 ; Cleanup after each Letter is updated
109 K DGNEW,DGERR,DGOUT,EASIEN,DGMSG
110 ;
111 D BMES^XPDUTL("Pre-Installation Complete, the EAS MT Letters have been updated.")
112 ;
113 Q
Note: See TracBrowser for help on using the repository browser.