$TXT Created by GINSBERG,ELIOT at MNTVLL.FO-ALBANY.MED.VA.GOV  (KIDS) on Tuesday, 07/11/06 at 04:40
=============================================================================
Run Date: OCT 19, 2006                     Designation: EAS*1*74
Package : EAS - ENROLLMENT APPLICATION SYSTEM Priority: Mandatory
Version : 1        SEQ #62                      Status: Released
                  Compliance Date: NOV 19, 2006
=============================================================================

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

Subject: Fix Z06 Delete Logic

Category: 
  - Routine

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

 Each time a site adds a Means Test, a new record is added to the ANNUAL 
 MEANS TEST File (#408.31) for the veteran as the Primary test on file. 
 This test is transmitted to the Health Eligibility Center (HEC) and then 
 shared with all sites visited.  Each time the test is edited/updated then 
 sent to the HEC and shared with the sites, a new record is added to the 
 ANNUAL MEANS TEST File (#408.31).  
  
 After transmission to HEC, the case is processed by the Enrollment System 
 Redesign (ESR) Income Verification Match (IVM) software and when the case 
 is closed, and the test status is changed to MT Copay Required, an 
 ORU~Z06 HL7 Transmission is sent to all sites of record for the veteran.  
 This adds a new record to the ANNUAL MEANS TEST File (#408.31) for the 
 veteran as the Primary test on file, and the existing test is updated to 
 Not Primary.  When IVM closes a case and converts a RX Copay Test to 
 Non-Exempt, an ORU~Z07 HL7 Transmission is sent to all sites of record 
 for the veteran.  This adds a new record to the ANNUAL MEANS TEST File 
 (#408.31).  It is possible that there will be two Primary tests for the 
 income year, one is the Means Test and one is the RX Copay Test.
  
 When IVM reopens the case and closes it as not converted, an ORU~Z06 
 (Delete) HL7 Transmission is sent to all sites of record.  This deletes 
 the record from the ANNUAL MEANS TEST File (#408.31), and makes the site 
 entered test primary.
  
 This patch EAS*1.0*74 is addressing the issue where the site has multiple 
 Not Primary records in the ANNUAL MEANS TEST File for the Means Test.  
 Instead of making the previous and most current record Primary, the 
 delete process was making the first entered record primary.
  
 The delete process is being modified to correctly identify the most 
 current Not Primary record in the ANNUAL MEANS TEST File for this Means 
 Test, and making that record Primary.  The delete process will also 
 correctly delete the IVM Converted RX Copay test. 
  
  
  
  
 This patch addresses the following New Service Request (NSR):
 -------------------------------------------------------------
 There is no NSR associated with this patch.
  
  
 This patch addresses the following Remedy Ticket(s):
 ----------------------------------------------------
 HD0000000086398 IVM Converted Tests
  
 Components Sent With Patch
 --------------------------
  
  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;**[patchlist]**;21-OCT-94;Build x
  
                              CHECK^XTSUMBLD results
  Routine       Before Patch   After Patch              Patch List
  =======       ============   ===========              ==========
  EASUM7             7591830       7624595                 42,74
  
 Number of routines in patch:           1
  Number of routines changed:           1
  
  
  
                       CHECK1^XTSUMBLD (new method) results
  Routine       Before Patch   After Patch              Patch List
  =======       ============   ===========              ==========
  EASUM7            34406080      34906641                 42,74
  
 Number of routines in patch:           1
  Number of routines changed:           1
  
  
  
 Test Sites:
 -----------
 Ann Arbor 
 Salisbury
 Montana HCS
  
  
        ================INSTALLATION INSTRUCTIONS =================
  
 If installed during the normal workday, it is recommended that the 
 following selection(s) in the OPTION (#19) file, and all of their 
 descendants be disabled to prevent possible conflicts while running the 
 KIDS Install. Other VISTA users will not be affected.
  
          There are no menu items to disable.
  
 Install Time - less than 5 minutes (unless otherwise indicated)
  
  
 ************** PRE-INSTALLATION INSTRUCTIONS **************
  
 You may wish to stop the HL7 filers prior to the install to prevent
 possible 'No Source Errors' from occurring. No transmissions will be 
 lost if the filers are not stopped first, they will be picked up once 
 the filers are restarted.
  
 ***********************************************************
        
  
 1.  LOAD TRANSPORT GLOBAL 
     ---------------------
     Choose the PackMan message containing this patch and invoke the 
     INSTALL/CHECK MESSAGE PackMan option.  
              
 2.  START UP KIDS 
     -------------
     Start up the Kernel Installation and Distribution System Menu 
     [XPD MAIN]: 
    
          Edits and Distribution ...  
          Utilities ...  
          Installation ...  
    
 Select Kernel Installation & Distribution System Option: INStallation 
                                                          ---
          Load a Distribution 
          Print Transport Global 
          Compare Transport Global to Current System 
          Verify Checksums in Transport Global 
          Install Package(s) 
          Restart Install of Package(s) 
          Unload a Distribution 
          Backup a Transport Global 
    
 Select Installation Option: 
    
 3.  Select Installation Option: 
     ---------------------------
     NOTE:  The following are OPTIONAL - (When prompted for the INSTALL
            NAME, enter EAS*1.0*74):
       
     a.  Backup a Transport Global - This option will create a backup
         message of any routines exported with this patch. It will not
         backup any other changes such as DD's or templates.
     b.  Compare Transport Global to Current System - This option will
         allow you to view all changes that will be made when this patch
         is installed.  It compares all components of this patch
         (routines, DD's, 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.
      
 4.  Select Installation Option: Install Package(s) 
                                 ------------------
     **This is the step to start the installation of this KIDS patch: 
    
     a.  Choose the Install Package(s) option to start the patch
         install.
  
         If there Options included in this patch, then be sure to 
         include the following.
              
         When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of
         Install? YES//'  Answer YES unless your system does this in a 
         nightly TaskMan process.
  
     b.  When prompted 'Want KIDS to INHIBIT LOGONs during the install? 
         YES//' answer NO
     c.  When prompted 'Want to DISABLE Scheduled Options, Menu 
         Options, and Protocols? YES//' answer NO
  
 ************** POST-INSTALLATION INSTRUCTIONS **************
  
 If you chose to stop the HL7 filers prior to the installing 
 this patch, please be sure to restart them.
  
 ***********************************************************

Routine Information:
====================
The checksums below are new checksums, and
 can be checked with CHECK1^XTSUMBLD.

Routine Name: EASUM7
    Before: B34406080  After: B34906641  **42,74**
 Description of Changes:
  Summary of changes:
  changed looping structure to loop from last one first
   
  Before:
   +46        S IVMVAMC=0 ; ivmvamc is vamc ien
   +47        F  S 
  IVMVAMC=$O(^DGMT(408.31,"AD",DGMTYPT,DFN,IVMMTDT,IVMVAMC)) Q:'
  IVMVAMC  D  Q:$D(IVMVNO)
   +48        .S IVMVNO=$G(^DGMT(408.31,+IVMVAMC,0)) ; vamc 0th node
   +49        .S IVMSOT=$P($G(^DG(408.34,+$P(IVMVNO,"^",23),0)),"^") ; 
  source of test
   +50        .I IVMSOT'="VAMC",IVMSOT'="DCD",IVMSOT'="OTHER FACILITY" K 
  IVMVNO Q
   
  After:
   +46        S IVMVAMC="A" ; ivmvamc is vamc ien
   +47        ;make sure you get the latest test of that type for that date 
  first
   +48        F  S 
  IVMVAMC=$O(^DGMT(408.31,"AD",DGMTYPT,DFN,IVMMTDT,IVMVAMC),-1)
  Q:'IVMVAMC  D  Q:$D(IVMVNO)
   +49        . S IVMVNO=$G(^DGMT(408.31,+IVMVAMC,0)) ; vamc 0th node
   +50        . S IVMSOT=$P($G(^DG(408.34,+$P(IVMVNO,"^",23),0)),"^") ; 
  source of test
   +51        . I IVMSOT'="VAMC",IVMSOT'="DCD",IVMSOT'="OTHER FACILITY" K 
  IVMVNO Q
   +52        . Q


=============================================================================
User Information:
Entered By  : MULLER,RICHARD                Date Entered  : MAY 04, 2006
Completed By: HUA,PATRICK                   Date Completed: OCT 18, 2006
Released By : FRANCE,KATHI                  Date Released : OCT 19, 2006
=============================================================================


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

$END TXT