Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: EAS113P

EAS113P.m

Go to the documentation of this file. 
  1. EAS113P ;ALB/CKN - EAS MT LETTERS POST INSTALL ROUTINE ; 11/21/02 3:45pm
  1.  ;;1.0;ENROLLMENT APPLICATION SYSTEM;**13**;MAR 15,2001
  1.  Q
  1. EP ;
  1.  N DIE,DA,DR,IEN0,IEN30,IEN60,TEXT,FILE,K,WP0,WP30,WP60,WP,XIEN
  1.  ;Update EAS MT LETTERS file (#713.3)
  1.  D MES^XPDUTL("*** Updating EAS MT LETTERS file(#713.3)***")
  1.  S FILE=713.3
  1.  D MES^XPDUTL("*** Updating 0-DAY LETTER ***")
  1.  S IEN0=$O(^EAS(713.3,"B","0-DAY LETTER",""))
  1.  I IEN0="" D MES^XPDUTL("*** 0-DAY LETTER not updated ***")
  1.  I IEN0'="" D
  1.  . S DIE="^EAS(713.3,",DA=IEN0,DR="3///@" D ^DIE K DIE,DA
  1.  . K WP0
  1.  . F K=1:1 S TEXT=$P($T(DAY0+K),";;",2) Q:TEXT="EXIT"  S WP0(K)=TEXT
  1.  . D FILE(IEN0,.WP0)
  1.  D MES^XPDUTL("*** Updating 30-DAY LETTER ***")
  1.  S IEN30=$O(^EAS(713.3,"B","30-DAY LETTER",""))
  1.  I IEN30="" D MES^XPDUTL("*** 30-DAY LETTER not updated ***")
  1.  I IEN30'="" D
  1.  . S DIE="^EAS(713.3,",DA=IEN30,DR="3///@" D ^DIE K DIE,DA
  1.  . K WP30
  1.  . F K=1:1 S TEXT=$P($T(DAY30+K),";;",2) Q:TEXT="EXIT"  S WP30(K)=TEXT
  1.  . D FILE(IEN30,.WP30)
  1.  D MES^XPDUTL("*** Updating 60-DAY LETTER ***")
  1.  S IEN60=$O(^EAS(713.3,"B","60-DAY LETTER",""))
  1.  I IEN60="" D MES^XPDUTL("*** 60-DAY LETTER not updated ***")
  1.  I IEN60'="" D
  1.  . S DIE="^EAS(713.3,",DA=IEN60,DR="3///@" D ^DIE K DIE,DA
  1.  . K WP60
  1.  . F K=1:1 S TEXT=$P($T(DAY60+K),";;",2) Q:TEXT="EXIT"  S WP60(K)=TEXT
  1.  . D FILE(IEN60,.WP60)
  1.  Q
  1. FILE(XIEN,WP) ;
  1.  D WP^DIE(FILE,XIEN,3,,"WP","ERR")
  1.  K WP
  1.  Q
  1. DAY0 ;;
  1.  ;;According to our records you have not responded to our previous requests
  1.  ;;to complete the financial section of VA Form 10-10EZ, Application for
  1.  ;;Health Benefits.  This is to inform you that your current financial
  1.  ;;assessment (means test) has expired.
  1.  ;; 
  1.  ;;How Does This Affect Your Eligibility for Care?
  1.  ;;  o We do not have a current means test for you on file, which is
  1.  ;;    needed to determine your continued eligibility for care of your
  1.  ;;    non-service connected conditions.
  1.  ;;  o We are unable to schedule you for future care of your non-service
  1.  ;;    connected conditions.
  1.  ;; 
  1.  ;;How Does This Affect Your Enrollment?
  1.  ;;  o We are unable to determine your priority for enrollment in the VA
  1.  ;;    health care system.
  1.  ;; 
  1.  ;;What Do You Need To Do?
  1.  ;;  o Complete, sign and return a new VA Form 10-10EZ, including the
  1.  ;;    financial section.
  1.  ;;  o Read the enclosed VA Form 4107, Notice of Procedural and Appellate
  1.  ;;    Rights. If you disagree with our decision, you or your representative
  1.  ;;    may complete a Notice of Disagreement and return it to the Enrollment
  1.  ;;    Coordinator or Health Benefits Advisor at your local VA health care
  1.  ;;    facility.
  1.  ;; 
  1.  ;;What If You Have Questions?
  1.  ;;EXIT
  1. DAY30 ;;
  1.  ;;Each year the VA requires non-service connected veterans and 0% service 
  1.  ;;connected veterans to complete a financial assessment (means test).  Our
  1.  ;;records show that your annual means test is due |ANNVDT|.
  1.  ;; 
  1.  ;;As of this date we have not received the updated financial income
  1.  ;;information we requested in a previous letter.
  1.  ;; 
  1.  ;;What Does This Mean To You?
  1.  ;;  o Your updated financial assessment information is needed to determine
  1.  ;;    your continued eligibility for care of your non-service connected
  1.  ;;    conditions.
  1.  ;;  o Failure to complete the means test by the anniversary date will
  1.  ;;    prevent us from being able to schedule you for future care for
  1.  ;;    your non-service connected conditions.
  1.  ;; 
  1.  ;;What Do You Need To Do?
  1.  ;;  o Complete and sign the enclosed Financial Assessment portion of the
  1.  ;;    enclosed VA Form 10-10EZ, Application for Health Benefits, reporting
  1.  ;;    income and assets for the previous calendar year.
  1.  ;;  o Return the completed and signed form in the enclosed envelope before
  1.  ;;    your means test anniversary date. 
  1.  ;;  o When you report to your next health care appointment, bring your
  1.  ;;    health insurance card so we may update your health insurance
  1.  ;;    information. 
  1.  ;;  o Notify us if you feel you received this letter in error
  1.  ;; 
  1.  ;;What If You Have Questions?
  1.  ;;EXIT
  1. DAY60 ;;
  1.  ;;Each year the VA requires non-service connected veterans and 0% service 
  1.  ;;connected veterans to complete a financial assessment (means test).  Our
  1.  ;;records show that your annual means test is due |ANNVDT|.
  1.  ;; 
  1.  ;;What Does This Mean To You?
  1.  ;;  o Your financial assessment information is used to determine your
  1.  ;;    continued eligibility for care of your non-service connected
  1.  ;;    conditions.
  1.  ;;  o Failure to complete the means test by the anniversary date will
  1.  ;;    prevent us from being able to schedule you for future care for
  1.  ;;    your non-service connected conditions.
  1.  ;; 
  1.  ;;What Do You Need To Do?
  1.  ;;  o Complete and sign the Financial Assessment portion of the enclosed VA
  1.  ;;    Form 10-10EZ, Application for Health Benefits, reporting income and
  1.  ;;    assets for the previous calendar year.
  1.  ;;  o Return the completed and signed form in the enclosed envelope before
  1.  ;;    your means test anniversary date.
  1.  ;;  o When you report to your next health care appointment, bring your
  1.  ;;    health insurance card so we may update your health insurance
  1.  ;;    information.
  1.  ;;  o Notify us if you feel you received this letter in error. 
  1.  ;; 
  1.  ;;What If You Have Questions?
  1.  ;;EXIT