$TXT Created by BLOCKER,DAVE at VAALTL.ISCVAA.ISC-BIRM.VA.GOV  (KIDS) on WEDNESDAY, 03/18/98 at 13:44
=============================================================================
Run Date: MAR 30, 1998                     Designation: PSA*3*6
Package : PSA - DRUG ACCOUNTABILITY           Priority: Mandatory
Version : 3         SEQ #1                     Status: Released
=============================================================================


Subject: Y2K COMPLIANCE

Category: 
  - Routine

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

 The following changes were made to address Y2K compliance issues.
  
 Routine   : PSAUDP
 Line Tag  : PICKLST+10
 Exception : Setting the node in global ^XTMP("PSAPV",0) to DT+1 would not
             be appropriate for dates such as FEB 28th.
 Resolution: Changed to a "C^%DTC" call which uses VA FielMan to calculate
             the correct date.
  
 Line Tag  : PROCESS+11
 Exception : Flagged to be changed 
             $E(PSADT-100-(+$E(PSADT,4,5)=1*8800),1,5)*100
 Resolution: No change necessary, the code is calculating the previous
             month, and all Y2K checks appear to function correctly.
  
 Routine   : PSAUP1
 Line Tag  : XTMP+21
 Exception : Use of checking to see if number is >90 does not comply with
             a 70-30 split.
 Resolution: Changed to check for date within the recommended 70-30 split.
  
  Associated NOISs
  ================
  N/A
  
  Test Sites
  ==========
  OKLAHOMA CITY, OK
  
  Routine Information:
  ====================
  The second line now reads as follows:
  
  ;;3.0;DRUG ACCOUNTABILITY/INVENTORY INTERFACE;[patch list]; 10/24/97
  
  CHECK^XTSUMBLD results:
  
  Routine  Before Patch   After Patch     Patch List
  -------  ------------   -----------     ----------
  PSAUDP     5895937         5937624           6
  PSAUP1    15667541        17354244           6
  
  INSTALLATION INSTRUCTIONS:
  ==========================
  This patch can be loaded with users on the system. Installation will
  take less than 1 minute.
  
  Suggested time to install: non-peak requirement hours
  
  1. Use the INSTALL/CHECK MESSAGE option on the PackMan menu.
  
  2. Review your mapped set. If the routines are mapped, they should
     be removed from the mapped set at this time.
  
  3. From the Kernel Installation and Distribution System menu, select
     the Installation menu.
  
  4. From this menu, you may select to use the following options
     (when prompted for INSTALL NAME, enter PSA*3.0*6
    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 DDs or 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 ensure
       the integrity of the routines that are in the transport global.
  
  5. Use the Install Package(s) option and select the package PSA*3.0*6
  
  6. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and
     Protocols? YES??' respond  NO  
  
  7. If any routines were unmapped as part of step 2, they should be
     returned to the mapped set once the installation has run to
     completion.
  
  Example Installation:
  =====================
  
  Select Installation Option: 6 Install Package(s) Select INSTALL NAME:
  PSA*3.0*6   Loaded from distribution 01/27/98@11:20:08
      => PSA*3.0*6
  
  This Distribution was loaded on 01/27/98@11:20:08 with header of
  PSA*3.0*6. It consisted of the following Install(s): PSA*3.0*6
  
    PSA*3.0*6
  
  Install Questions for PSA*3.0*6
  
  
  Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES// NO  
  Enter the Device you want to print the Install messages. You can queue the
  install by a 'Q' at the device prompt. Enter a '^' to abort the install.
  
  DEVICE: HOME// <RET> DECSERVER
  
  Install Started for PSA*3.0*6 : 
                01/27/98@11:20:08
  
  Installing Routines:....
                01/27/98@11:20:08
  
  Updating Routine file.....
  
  Updating KIDS file....
  
  PSA*3.0*6 Installed.
                      01/27/98@11:20:08
  

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

Routine Name:
  - PSAUDP


Routine Checksum:

Routine Name:
  - PSAUP1


Routine Checksum:

=============================================================================
User Information:                               
Entered By  : BLOCKER,DAVE                   Date Entered : JAN 27, 1998
Completed By: WASHINGTON,JANET P           Date Completed: MAR 30, 1998
Released By : FIELDS-BARNES,JANETTE         Date Released : MAR 30, 1998
=============================================================================


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

$END TXT