Routine: EAS132PT

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)

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

 ; 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  Mar 13, 2025@20:58:06                                                                                                                                                                                                    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

EAS132PT.m