EAS132PT ;ALB/SCK - POST INSTALL ROUTINE PATCH EAS*1*32 ;29-APR-2003
;;1.0;ENROLLMENT APPLICATION SYSTEM;**32**;MAR 15,2001
;
EN ; Main entry point for the Post Installation routine
N EASIEN,EASTYP,MSG
;
; EAS Letter types (TYPE Field, #2, EAS MT LETTERS File, #713.3)
; Set of Codes: 1 - 60-Day Letter
; 2 - 30-Day Letter
; 4 - 0-Day Letter
;
;
D BMES^XPDUTL("Beginning the Post-Install update of EAS MT Letters File")
F EASTYP=1,2,4 D
. S EASIEN=0
. F S EASIEN=$O(^EAS(713.3,"C",EASTYP,EASIEN)) Q:'EASIEN D
. . D UPDLTR(EASIEN,EASTYP)
D BMES^XPDUTL("Update of EAS MT Letters File with revised text complete")
S MSG(1)="If any errors were reported during the text updates, please contact"
S MSG(2)="the VistA Help Desk"
D MES^XPDUTL(.MSG)
Q
;
UPDLTR(EASIEN,EASTYP) ; Update specific letter with new text from text updates below.
N LTRTYPE,MSG,WPR
;
S LTRTYPE=$S(EASTYP=1:"UPD1",EASTYP=2:"UPD2",EASTYP=4:"UPD4",1:"")
I LTRTYPE']"" D Q
. D BMES^XPDUTL(">>> UNIDENTIFIED LETTER TYPE PASSED IN")
;
S MSG="Updating the "_$S(EASTYP=1:"60",EASTYP=2:"30",1:"0")_"-Day Letter..."
D BMES^XPDUTL(MSG)
;
N LINE,EAX,EASOUT,EASER
;
F EAX=1:1 D Q:$G(LINE)="$$END"
. S LINE=$P($T(@LTRTYPE+EAX),";;",2)
. Q:LINE="$$END"
. S WPR("WP",EAX)=LINE
;
D WP^DIE(713.3,EASIEN_",",3,"K","WPR(""WP"")","EASER")
I $D(EASER) D
. D BMES^XPDUTL("An error occurred while updating the initial section of the "_LTRTYPE_" letter")
. D MSG^DIALOG("AS",.EASOUT,"","","EASER")
. D MES^XPDUTL(.EASOUT)
E D
. D BMES^XPDUTL(LTRTYPE_" Letter text updated.")
;
K WPR
Q
;
; Updated text for the Means Test Letters, per VHA Directive published
; by the Chief Buisness Office
;
UPD1 ;;60-Day Letter text
;;Each year the VA requires nonservice-connected veterans and 0% service-
;;connected veterans to complete a financial assessment (means test). Our
;;records show that your annual means test is due |ANNVDT|.
;;
;;What Does This Mean To You?
;; o The means test you completed last year exempted you from copayments
;; for health care provided for your nonservice-connected conditions.
;; o Failure to complete the means test by the anniversary date will
;; cause your priority for enrollment in the VA health care system to
;; lapse.
;;
;;What Do You Need To Do?
;; o Complete and sign the Financial Assessment portion of the enclosed VA
;; Form l0-10EZ, Application for Health Benefits, reporting income and
;; assets for the previous calendar year.
;; o Return the completed and signed form in the enclosed envelope before
;; your means test anniversary date.
;; o When you report to your next health care appointment, bring your
;; health insurance card so we may update your health insurance
;; information.
;; o Notify us if you feel you received this letter in error.
;;
;;What If You Have Questions?
;;$$END
UPD2 ;;30-Day Letter txt
;;Each year the VA requires nonservice-connected veterans and 0% service-
;;connected veterans to complete a financial assessment (means test). Our
;;records show that your annual means test is due |ANNVDT|.
;;
;;As of this date we have not received the updated financial income
;;information we requested in a previous letter.
;;
;;What Does This Mean To You?
;; o The means test you completed last year exempted you from copayments
;; for health care provided for your nonservice-connected conditions.
;; o Failure to complete the means test by the anniversary date will
;; cause your priority for enrollment in the VA health care system to
;; lapse.
;;
;;What Do You Need To Do?
;; o Complete and sign the enclosed Financial Assessment portion of the
;; enclosed VA Form l0-10EZ, Application for Health Benefits, reporting
;; income and assets for the previous calendar year.
;; o Return the completed and signed form in the enclosed envelope before
;; your means test anniversary date.
;; o When you report to your next health care appointment, bring your
;; health insurance card so we may update your health insurance
;; information.
;; o Notify us if you feel you received this letter in error.
;;
;;What If You Have Questions?
;;$$END
UPD4 ;;0-Day Letter txt
;;According to our records you have not responded to our previous requests
;;to complete the financial section of VA Form l0-10EZ, Application for
;;Health Benefits. This is to inform you that your current financial
;;assessment (means test) has expired.
;;
;;How Does This Affect Your Eligibility for Cost Free Care?
;; o We do not have a current means test for you on file as is required to
;; determine your eligibility for cost-free care.
;;
;;How Does This Affect Your Enrollment?
;; o We are unable to determine your priority for enrollment in the VA
;; health care system.
;;
;;What Do You Need To Do?
;; o Complete, sign and return a new VA Form l0-10EZ, including the
;; financial section.
;; o Read the enclosed VA Form 4107VHA, Your Rights to Appeal our
;; Decision. If you disagree with our decision, you or your
;; representative may complete a Notice of Disagreement and return it
;; to the Enrollment Coordinator or Health Benefits Advisor at your
;; local VA health care facility.
;;
;;What If You Have Questions?
;;$$END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEAS132PT 5494 printed Dec 13, 2024@01:53:25 Page 2
EAS132PT ;ALB/SCK - POST INSTALL ROUTINE PATCH EAS*1*32 ;29-APR-2003
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**32**;MAR 15,2001
+2 ;
EN ; Main entry point for the Post Installation routine
+1 NEW EASIEN,EASTYP,MSG
+2 ;
+3 ; EAS Letter types (TYPE Field, #2, EAS MT LETTERS File, #713.3)
+4 ; Set of Codes: 1 - 60-Day Letter
+5 ; 2 - 30-Day Letter
+6 ; 4 - 0-Day Letter
+7 ;
+8 ;
+9 DO BMES^XPDUTL("Beginning the Post-Install update of EAS MT Letters File")
+10 FOR EASTYP=1,2,4
Begin DoDot:1
+11 SET EASIEN=0
+12 FOR
SET EASIEN=$ORDER(^EAS(713.3,"C",EASTYP,EASIEN))
if 'EASIEN
QUIT
Begin DoDot:2
+13 DO UPDLTR(EASIEN,EASTYP)
End DoDot:2
End DoDot:1
+14 DO BMES^XPDUTL("Update of EAS MT Letters File with revised text complete")
+15 SET MSG(1)="If any errors were reported during the text updates, please contact"
+16 SET MSG(2)="the VistA Help Desk"
+17 DO MES^XPDUTL(.MSG)
+18 QUIT
+19 ;
UPDLTR(EASIEN,EASTYP) ; Update specific letter with new text from text updates below.
+1 NEW LTRTYPE,MSG,WPR
+2 ;
+3 SET LTRTYPE=$SELECT(EASTYP=1:"UPD1",EASTYP=2:"UPD2",EASTYP=4:"UPD4",1:"")
+4 IF LTRTYPE']""
Begin DoDot:1
+5 DO BMES^XPDUTL(">>> UNIDENTIFIED LETTER TYPE PASSED IN")
End DoDot:1
QUIT
+6 ;
+7 SET MSG="Updating the "_$SELECT(EASTYP=1:"60",EASTYP=2:"30",1:"0")_"-Day Letter..."
+8 DO BMES^XPDUTL(MSG)
+9 ;
+10 NEW LINE,EAX,EASOUT,EASER
+11 ;
+12 FOR EAX=1:1
Begin DoDot:1
+13 SET LINE=$PIECE($TEXT(@LTRTYPE+EAX),";;",2)
+14 if LINE="$$END"
QUIT
+15 SET WPR("WP",EAX)=LINE
End DoDot:1
if $GET(LINE)="$$END"
QUIT
+16 ;
+17 DO WP^DIE(713.3,EASIEN_",",3,"K","WPR(""WP"")","EASER")
+18 IF $DATA(EASER)
Begin DoDot:1
+19 DO BMES^XPDUTL("An error occurred while updating the initial section of the "_LTRTYPE_" letter")
+20 DO MSG^DIALOG("AS",.EASOUT,"","","EASER")
+21 DO MES^XPDUTL(.EASOUT)
End DoDot:1
+22 IF '$TEST
Begin DoDot:1
+23 DO BMES^XPDUTL(LTRTYPE_" Letter text updated.")
End DoDot:1
+24 ;
+25 KILL WPR
+26 QUIT
+27 ;
+28 ; Updated text for the Means Test Letters, per VHA Directive published
+29 ; by the Chief Buisness Office
+30 ;
UPD1 ;;60-Day Letter text
+1 ;;Each year the VA requires nonservice-connected veterans and 0% service-
+2 ;;connected veterans to complete a financial assessment (means test). Our
+3 ;;records show that your annual means test is due |ANNVDT|.
+4 ;;
+5 ;;What Does This Mean To You?
+6 ;; o The means test you completed last year exempted you from copayments
+7 ;; for health care provided for your nonservice-connected conditions.
+8 ;; o Failure to complete the means test by the anniversary date will
+9 ;; cause your priority for enrollment in the VA health care system to
+10 ;; lapse.
+11 ;;
+12 ;;What Do You Need To Do?
+13 ;; o Complete and sign the Financial Assessment portion of the enclosed VA
+14 ;; Form l0-10EZ, Application for Health Benefits, reporting income and
+15 ;; assets for the previous calendar year.
+16 ;; o Return the completed and signed form in the enclosed envelope before
+17 ;; your means test anniversary date.
+18 ;; o When you report to your next health care appointment, bring your
+19 ;; health insurance card so we may update your health insurance
+20 ;; information.
+21 ;; o Notify us if you feel you received this letter in error.
+22 ;;
+23 ;;What If You Have Questions?
+24 ;;$$END
UPD2 ;;30-Day Letter txt
+1 ;;Each year the VA requires nonservice-connected veterans and 0% service-
+2 ;;connected veterans to complete a financial assessment (means test). Our
+3 ;;records show that your annual means test is due |ANNVDT|.
+4 ;;
+5 ;;As of this date we have not received the updated financial income
+6 ;;information we requested in a previous letter.
+7 ;;
+8 ;;What Does This Mean To You?
+9 ;; o The means test you completed last year exempted you from copayments
+10 ;; for health care provided for your nonservice-connected conditions.
+11 ;; o Failure to complete the means test by the anniversary date will
+12 ;; cause your priority for enrollment in the VA health care system to
+13 ;; lapse.
+14 ;;
+15 ;;What Do You Need To Do?
+16 ;; o Complete and sign the enclosed Financial Assessment portion of the
+17 ;; enclosed VA Form l0-10EZ, Application for Health Benefits, reporting
+18 ;; income and assets for the previous calendar year.
+19 ;; o Return the completed and signed form in the enclosed envelope before
+20 ;; your means test anniversary date.
+21 ;; o When you report to your next health care appointment, bring your
+22 ;; health insurance card so we may update your health insurance
+23 ;; information.
+24 ;; o Notify us if you feel you received this letter in error.
+25 ;;
+26 ;;What If You Have Questions?
+27 ;;$$END
UPD4 ;;0-Day Letter txt
+1 ;;According to our records you have not responded to our previous requests
+2 ;;to complete the financial section of VA Form l0-10EZ, Application for
+3 ;;Health Benefits. This is to inform you that your current financial
+4 ;;assessment (means test) has expired.
+5 ;;
+6 ;;How Does This Affect Your Eligibility for Cost Free Care?
+7 ;; o We do not have a current means test for you on file as is required to
+8 ;; determine your eligibility for cost-free care.
+9 ;;
+10 ;;How Does This Affect Your Enrollment?
+11 ;; o We are unable to determine your priority for enrollment in the VA
+12 ;; health care system.
+13 ;;
+14 ;;What Do You Need To Do?
+15 ;; o Complete, sign and return a new VA Form l0-10EZ, including the
+16 ;; financial section.
+17 ;; o Read the enclosed VA Form 4107VHA, Your Rights to Appeal our
+18 ;; Decision. If you disagree with our decision, you or your
+19 ;; representative may complete a Notice of Disagreement and return it
+20 ;; to the Enrollment Coordinator or Health Benefits Advisor at your
+21 ;; local VA health care facility.
+22 ;;
+23 ;;What If You Have Questions?
+24 ;;$$END
