$TXT Created by NAIK,CHINTAN at MNTVMM.FO-ALBANY.MED.VA.GOV  (KIDS) on Monday, 07/07/03 at 12:54
=============================================================================
Run Date: JUL 09, 2003                     Designation: EAS*1*37
Package : EAS - ENROLLMENT APPLICATION Priority: EMERGENCY
Version : 1        SEQ #29                      Status: Released
                  Compliance Date: JUL 11, 2003
=============================================================================

Associated patches: (v)EAS*1*25    <<= must be installed BEFORE `EAS*1*37'

Subject: FIX NON VET UE TRANSMISSION

Category: 
  - Routine

Description: 
============

  
  
 OVERVIEW
 ========
  
 This patch addresses a problem whereby Non-Veteran data is transmitted 
 to the Health Eligibility Center (HEC) inappropriately.  This issue was 
 introduced in the GEOGRAPHIC MEANS TESTING (GMT) PHASE II suite of patches.  
 The issue was identified in NOIS IVM-0603-32258. This patch will fix the 
 problem of transmitting Non-Veteran User Enrollee data to the HEC.
   
 Routine Changes:
 ================
  
 EASUER: Currently this routine is not filtering Non-Veterans from 
 determination of User Enrollee update status. This allows all Non-Veterans
 User Enrollees to be transmitted to the Health Eligibility Center (HEC). 
 The following routine changes will prevent Non-Veteran User Enrollees from 
 being transmitted to the HEC inappropriately.
  
  
   ROUTINE SUMMARY:
   ================
    The following is a list of the routine(s) included in this patch.  The
    second line of each of these routine(s) will look like:
  
      <tab>;;1.0;ENROLLMENT APPLICATION SYSTEM;**[patch list]**;Mar 15, 2001
  
                                CHECK^XTSUMBLD results
  
  
    Routine name      Before Patch          After Patch         Patch List
    ============      ============          ===========         ==========
    EASUER                 2989562           3143454             25,37
  
  
  
  
    INSTALLATION INSTRUCTIONS
    =========================
  
 This patch can be loaded with users on the system.
 Installation will take less than 1 minute.
  
  1. Use the INSTALL/CHECK MESSAGE option on the PackMan menu. [Note: TEXT
     PRINT/DISPLAY option in the PackMan menu will display the patch text only.
  
  2. Review your mapped set.  If the routine listed in the ROUTINE SUMMARY
     section is mapped, it should be removed from the mapped set at this time.
  
  3. From the Kernel Installation and Distribution System (KIDS) menu, select
     the Installation menu.
  
  4. From this menu, you may elect to use the following options:
     (When prompted for INSTALL NAME, enter EAS*1*37)
     a. Backup a Transport Global - this option will create a backup message
        of any routines exported with the patch.  It will NOT backup any
        other changes such as templates.
     b. Compare Transport Global to Current System - this option will allow
        you to view all changes that will be made when the patch is installed.
        It compares all components of the patch (routines, DDs, templates,
        etc.).
     c. Verify Checksums in Transport Global - this option will allow you to
        ensure the integrity of the routines that are in the transport
        global.
     d. Print Transport Global - this option will allow you to view the
        components of the KIDS build.
  
  5. Use the Install Package(s) option and select the package EAS*1*37.
  
  6. When prompted 'Want KIDS to INHIBIT LOGONs during the install? YES//',
     respond NO.
  
  7. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and
     Protocols? YES//', respond NO.
  
  8. If the routine was unmapped as part of step 2, it should be returned
     to the mapped set once the installation has run to completion.
  
  9. Patch installation is complete.

Routine Information:
====================

Routine Name:
  - EASUER

 Before:
  
 UPDCHK(DFN,APTDT)       ;This api will determine whether to update User 
 Enrollee
  data.
         I APTDT<3030000 Q 0  ;Quit if APTDT is less than FY 2003
         N CURSTAT
         S CURSTAT=$P($G(^DPT(DFN,.361)),"^",7)
         I APTDT>CURSTAT Q 1
         Q 0
  
 After:
  
 UPDCHK(DFN,APTDT)       ;This api will determine whether to update User 
 Enrollee
  data.
         I '$G(DFN) Q 0  ;No DFN
         I $P($G(^DPT(DFN,"VET")),"^")="N" Q 0  ;Quit if Non veteran
         I APTDT<3030000 Q 0  ;Quit if APTDT is less than FY 2003
         N CURSTAT
         S CURSTAT=$P($G(^DPT(DFN,.361)),"^",7)
         I APTDT>CURSTAT Q 1
         Q 0

Routine Checksum:

=============================================================================
User Information:                               
Entered By  : NAIK,CHINTAN                   Date Entered : JUL 03, 2003
Completed By: WILSON,PAT                    Date Completed: JUL 09, 2003
Released By : GROOMS,ANTHONY E             Date Released : JUL 09, 2003
=============================================================================


Packman Mail Message:
=====================

$END TXT