- EAS163P ;KAR/RMM - PRE-INSTALL ROUTINE FOR EAS*1.0*63 ; 8/24/2005
- ;;1.0;ENROLLMENT APPLICATION SYSTEM;**63**;JUL 8,1996
- ;
- EN ; Entry point for the EAS*1.0*63 Pre-Install
- ;
- ; This routine will update the EAS MT LETTER (#713.3) File
- ; INITIAL SECTION OF LETTER, WORD-PROCESSING #713.33 (NOWRAP) field,
- ; for the 0-DAY LETTER and the 30-DAY LETTER.
- ;
- ZERO ; Update the 0-DAY LETTER
- ;
- N EASIEN,DGMSG
- S EASIEN=$O(^EAS(713.3,"B","0-DAY LETTER",""))
- S DGMSG(1)="Updating '0-DAY LETTER' in the EAS MT LETTER File (#713.3)"
- S DGMSG(2)="IEN = "_EASIEN
- D MES^XPDUTL(.DGMSG)
- ;
- ; Set up description array.
- N DGNEW,DGERR,DGOUT
- S DGNEW("WP",1)="According to our records you have not responded to our previous requests"
- S DGNEW("WP",2)="to complete the financial section of VA Form 10-10EZR, Health Benefits"
- S DGNEW("WP",3)="Renewal Form. This is to inform you that your current financial assessment"
- S DGNEW("WP",4)="(means test) has expired."
- S DGNEW("WP",5)=" "
- S DGNEW("WP",6)="How Does This Affect Your Eligibility for Cost Free Care?"
- S DGNEW("WP",7)=" o We do not have a current means test for you on file as is required to"
- S DGNEW("WP",8)=" determine your eligibility for either cost-free care or reduced"
- S DGNEW("WP",9)=" inpatient copayments."
- S DGNEW("WP",10)=" "
- S DGNEW("WP",11)="How Does This Affect Your Enrollment?"
- S DGNEW("WP",12)=" o We are unable to determine your priority for enrollment in the VA"
- S DGNEW("WP",13)=" health care system."
- S DGNEW("WP",14)=" "
- S DGNEW("WP",15)="What Do You Need To Do?"
- S DGNEW("WP",16)=" o Complete a new VA Form 10-10EZR, Health Benefits Renewal Form, including"
- S DGNEW("WP",17)=" the financial section as soon as possible and return it to the"
- S DGNEW("WP",18)=" Business Office at the address above. You may obtain this form by"
- S DGNEW("WP",19)=" contacting our Business Office or by downloading the form from our"
- S DGNEW("WP",20)=" website at: http://www.domain.ext/vaforms/search_action.asp"
- S DGNEW("WP",21)=" o Read the enclosed VA Form 4107VHA, Your Rights to Appeal Our Decision."
- S DGNEW("WP",22)=" If you disagree with our decision, you or your representative may"
- S DGNEW("WP",23)=" complete a Notice of Disagreement and return it to the Enrollment"
- S DGNEW("WP",24)=" Coordinator or Health Benefits Advisor at your local VA health care"
- S DGNEW("WP",25)=" facility."
- S DGNEW("WP",26)=" "
- S DGNEW("WP",27)="What If You Have Questions?"
- ;
- ; Update the Word Processing Field
- D WP^DIE(713.3,EASIEN_",",3,"K","DGNEW(""WP"")","DGERR")
- ;
- ; Check for and Report any Errors
- I $D(DGERR) D
- . D BMES^XPDUTL("NOTE: An error occurred when updating the 0-DAY LETTER")
- . D MSG^DIALOG("AS",.DGOUT,"","","DGERR")
- . D MES^XPDUTL(.DGOUT)
- . D BMES^XPDUTL("Please contact the VistA Help Desk.")
- ;
- ; Cleanup after each Letter is updated
- K DGNEW,DGERR,DGOUT,EASIEN,DGMSG
- ;
- THIRTY ; Update the 30-DAY LETTER
- ;
- N EASIEN,DGMSG
- S EASIEN=$O(^EAS(713.3,"B","30-DAY LETTER",""))
- S DGMSG(1)="Updating '30-DAY LETTER' in the EAS MT LETTER File (#713.3)"
- S DGMSG(2)="IEN = "_EASIEN
- D MES^XPDUTL(.DGMSG)
- ;
- ; Set up description array.
- N DGNEW,DGERR,DGOUT
- S DGNEW("WP",1)="Each year VA requires most nonservice-connected veterans and 0% service-"
- S DGNEW("WP",2)="connected veterans to complete a financial assessment (means test). Our"
- S DGNEW("WP",3)="records show that your annual means test is due."
- S DGNEW("WP",4)=" "
- S DGNEW("WP",5)="As of this date we have not received the updated financial income"
- S DGNEW("WP",6)="information we requested in a previous letter."
- S DGNEW("WP",7)=" "
- S DGNEW("WP",8)="What Does This Mean To You?"
- S DGNEW("WP",9)=" o An updated means test is needed to determine your ability to pay"
- S DGNEW("WP",10)=" copayments for your medical care and medications and your priority for"
- S DGNEW("WP",11)=" enrollment in the VA health care system."
- S DGNEW("WP",12)=" o Failure to complete the means test by the anniversary date will cause"
- S DGNEW("WP",13)=" your priority for enrollment in the VA health care system to lapse."
- S DGNEW("WP",14)=" "
- S DGNEW("WP",15)="What Do You Need To Do?"
- S DGNEW("WP",16)=" o Complete, sign and return a new VA Form 10-10EZR, Health Benefits"
- S DGNEW("WP",17)=" Renewal Form, including the financial section. You may obtain this"
- S DGNEW("WP",18)=" form by contacting our Business Office or by downloading the form from"
- S DGNEW("WP",19)=" our website at: http://www.domain.ext/vaforms/search_action.asp. Return"
- S DGNEW("WP",20)=" the completed and signed form to the Business Office at the address"
- S DGNEW("WP",21)=" above before your means test anniversary date. "
- S DGNEW("WP",22)=" o When you report to your next health care appointment, bring your health"
- S DGNEW("WP",23)=" insurance card so we may update your health insurance information. "
- S DGNEW("WP",24)=" o Notify us if you feel you received this letter in error."
- S DGNEW("WP",25)=" "
- S DGNEW("WP",26)="What If You Have Questions?"
- ;
- ; Update the Word Processing Field
- D WP^DIE(713.3,EASIEN_",",3,"K","DGNEW(""WP"")","DGERR")
- ;
- ; Check for and Report any Errors
- I $D(DGERR) D
- . D BMES^XPDUTL("NOTE: An error occurred when updating the 30-DAY LETTER")
- . D MSG^DIALOG("AS",.DGOUT,"","","DGERR")
- . D MES^XPDUTL(.DGOUT)
- . D BMES^XPDUTL("Please contact the VistA Help Desk.")
- ;
- ; Cleanup after each Letter is updated
- K DGNEW,DGERR,DGOUT,EASIEN,DGMSG
- ;
- D BMES^XPDUTL("Pre-Installation Complete, the EAS MT Letters have been updated.")
- ;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEAS163P 5683 printed Feb 18, 2025@23:19:55 Page 2
- EAS163P ;KAR/RMM - PRE-INSTALL ROUTINE FOR EAS*1.0*63 ; 8/24/2005
- +1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**63**;JUL 8,1996
- +2 ;
- EN ; Entry point for the EAS*1.0*63 Pre-Install
- +1 ;
- +2 ; This routine will update the EAS MT LETTER (#713.3) File
- +3 ; INITIAL SECTION OF LETTER, WORD-PROCESSING #713.33 (NOWRAP) field,
- +4 ; for the 0-DAY LETTER and the 30-DAY LETTER.
- +5 ;
- ZERO ; Update the 0-DAY LETTER
- +1 ;
- +2 NEW EASIEN,DGMSG
- +3 SET EASIEN=$ORDER(^EAS(713.3,"B","0-DAY LETTER",""))
- +4 SET DGMSG(1)="Updating '0-DAY LETTER' in the EAS MT LETTER File (#713.3)"
- +5 SET DGMSG(2)="IEN = "_EASIEN
- +6 DO MES^XPDUTL(.DGMSG)
- +7 ;
- +8 ; Set up description array.
- +9 NEW DGNEW,DGERR,DGOUT
- +10 SET DGNEW("WP",1)="According to our records you have not responded to our previous requests"
- +11 SET DGNEW("WP",2)="to complete the financial section of VA Form 10-10EZR, Health Benefits"
- +12 SET DGNEW("WP",3)="Renewal Form. This is to inform you that your current financial assessment"
- +13 SET DGNEW("WP",4)="(means test) has expired."
- +14 SET DGNEW("WP",5)=" "
- +15 SET DGNEW("WP",6)="How Does This Affect Your Eligibility for Cost Free Care?"
- +16 SET DGNEW("WP",7)=" o We do not have a current means test for you on file as is required to"
- +17 SET DGNEW("WP",8)=" determine your eligibility for either cost-free care or reduced"
- +18 SET DGNEW("WP",9)=" inpatient copayments."
- +19 SET DGNEW("WP",10)=" "
- +20 SET DGNEW("WP",11)="How Does This Affect Your Enrollment?"
- +21 SET DGNEW("WP",12)=" o We are unable to determine your priority for enrollment in the VA"
- +22 SET DGNEW("WP",13)=" health care system."
- +23 SET DGNEW("WP",14)=" "
- +24 SET DGNEW("WP",15)="What Do You Need To Do?"
- +25 SET DGNEW("WP",16)=" o Complete a new VA Form 10-10EZR, Health Benefits Renewal Form, including"
- +26 SET DGNEW("WP",17)=" the financial section as soon as possible and return it to the"
- +27 SET DGNEW("WP",18)=" Business Office at the address above. You may obtain this form by"
- +28 SET DGNEW("WP",19)=" contacting our Business Office or by downloading the form from our"
- +29 SET DGNEW("WP",20)=" website at: http://www.domain.ext/vaforms/search_action.asp"
- +30 SET DGNEW("WP",21)=" o Read the enclosed VA Form 4107VHA, Your Rights to Appeal Our Decision."
- +31 SET DGNEW("WP",22)=" If you disagree with our decision, you or your representative may"
- +32 SET DGNEW("WP",23)=" complete a Notice of Disagreement and return it to the Enrollment"
- +33 SET DGNEW("WP",24)=" Coordinator or Health Benefits Advisor at your local VA health care"
- +34 SET DGNEW("WP",25)=" facility."
- +35 SET DGNEW("WP",26)=" "
- +36 SET DGNEW("WP",27)="What If You Have Questions?"
- +37 ;
- +38 ; Update the Word Processing Field
- +39 DO WP^DIE(713.3,EASIEN_",",3,"K","DGNEW(""WP"")","DGERR")
- +40 ;
- +41 ; Check for and Report any Errors
- +42 IF $DATA(DGERR)
- Begin DoDot:1
- +43 DO BMES^XPDUTL("NOTE: An error occurred when updating the 0-DAY LETTER")
- +44 DO MSG^DIALOG("AS",.DGOUT,"","","DGERR")
- +45 DO MES^XPDUTL(.DGOUT)
- +46 DO BMES^XPDUTL("Please contact the VistA Help Desk.")
- End DoDot:1
- +47 ;
- +48 ; Cleanup after each Letter is updated
- +49 KILL DGNEW,DGERR,DGOUT,EASIEN,DGMSG
- +50 ;
- THIRTY ; Update the 30-DAY LETTER
- +1 ;
- +2 NEW EASIEN,DGMSG
- +3 SET EASIEN=$ORDER(^EAS(713.3,"B","30-DAY LETTER",""))
- +4 SET DGMSG(1)="Updating '30-DAY LETTER' in the EAS MT LETTER File (#713.3)"
- +5 SET DGMSG(2)="IEN = "_EASIEN
- +6 DO MES^XPDUTL(.DGMSG)
- +7 ;
- +8 ; Set up description array.
- +9 NEW DGNEW,DGERR,DGOUT
- +10 SET DGNEW("WP",1)="Each year VA requires most nonservice-connected veterans and 0% service-"
- +11 SET DGNEW("WP",2)="connected veterans to complete a financial assessment (means test). Our"
- +12 SET DGNEW("WP",3)="records show that your annual means test is due."
- +13 SET DGNEW("WP",4)=" "
- +14 SET DGNEW("WP",5)="As of this date we have not received the updated financial income"
- +15 SET DGNEW("WP",6)="information we requested in a previous letter."
- +16 SET DGNEW("WP",7)=" "
- +17 SET DGNEW("WP",8)="What Does This Mean To You?"
- +18 SET DGNEW("WP",9)=" o An updated means test is needed to determine your ability to pay"
- +19 SET DGNEW("WP",10)=" copayments for your medical care and medications and your priority for"
- +20 SET DGNEW("WP",11)=" enrollment in the VA health care system."
- +21 SET DGNEW("WP",12)=" o Failure to complete the means test by the anniversary date will cause"
- +22 SET DGNEW("WP",13)=" your priority for enrollment in the VA health care system to lapse."
- +23 SET DGNEW("WP",14)=" "
- +24 SET DGNEW("WP",15)="What Do You Need To Do?"
- +25 SET DGNEW("WP",16)=" o Complete, sign and return a new VA Form 10-10EZR, Health Benefits"
- +26 SET DGNEW("WP",17)=" Renewal Form, including the financial section. You may obtain this"
- +27 SET DGNEW("WP",18)=" form by contacting our Business Office or by downloading the form from"
- +28 SET DGNEW("WP",19)=" our website at: http://www.domain.ext/vaforms/search_action.asp. Return"
- +29 SET DGNEW("WP",20)=" the completed and signed form to the Business Office at the address"
- +30 SET DGNEW("WP",21)=" above before your means test anniversary date. "
- +31 SET DGNEW("WP",22)=" o When you report to your next health care appointment, bring your health"
- +32 SET DGNEW("WP",23)=" insurance card so we may update your health insurance information. "
- +33 SET DGNEW("WP",24)=" o Notify us if you feel you received this letter in error."
- +34 SET DGNEW("WP",25)=" "
- +35 SET DGNEW("WP",26)="What If You Have Questions?"
- +36 ;
- +37 ; Update the Word Processing Field
- +38 DO WP^DIE(713.3,EASIEN_",",3,"K","DGNEW(""WP"")","DGERR")
- +39 ;
- +40 ; Check for and Report any Errors
- +41 IF $DATA(DGERR)
- Begin DoDot:1
- +42 DO BMES^XPDUTL("NOTE: An error occurred when updating the 30-DAY LETTER")
- +43 DO MSG^DIALOG("AS",.DGOUT,"","","DGERR")
- +44 DO MES^XPDUTL(.DGOUT)
- +45 DO BMES^XPDUTL("Please contact the VistA Help Desk.")
- End DoDot:1
- +46 ;
- +47 ; Cleanup after each Letter is updated
- +48 KILL DGNEW,DGERR,DGOUT,EASIEN,DGMSG
- +49 ;
- +50 DO BMES^XPDUTL("Pre-Installation Complete, the EAS MT Letters have been updated.")
- +51 ;
- +52 QUIT