$TXT Created by BECKWITH,RALPH at MNTVBB.FO-ALBANY.MED.VA.GOV  (KIDS) on Monday, 12/12/05 at 17:56
Run Date: MAR 28, 2006                     Designation: SD*5.3*471
Package : SD - SCHEDULING                     Priority: Mandatory
Version : 5.3       SEQ #378                    Status: Released
                  Compliance Date: APR 28, 2006
=============================================================================

Associated patches: (v)SD*5.3*327  <<= must be installed BEFORE `SD*5.3*471'

Subject: NULL INSTITUTION/WAIT LIST TYPE IN FILE #409.3

Category: 
  - Routine

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

 The Institution and Wait List Type fields are missing in file 409.3 when
 creating Wait List entries.
  
  
 Associated Remedy:
 =================
 HD113373  Institution missing in file 409.3
  
  
 Test Sites:
 ==========
 Dayton VAMC
 Maryland HCS
 Central Texas HCS
  
  
 Remedy Overview:
 ================ 
 HD113373  Institution missing in file 409.3
  
    Problem:
    --------
    When making a Wait List entry directly following dispositioning a Wait
    List entry in Appointment Management, fields Institution (field #2)
    and Wait List Type (field #4) will be null in file #409.3.  This is
    due to variables SDWLIN and SDWLTY not killed during the Disposition
    process when making an appointment against an open Wait List entry.
  
    Resolution:
    -----------
    Modify routine SDWLEVAL to use kill exit path when dispositioning
    an open Wait List entry while making an appointment.
  
  
 Routine Summary:
 ===============
 The following routines are included in this patch.  The second line of 
 the routines will look like:
  
 <tab>;;5.3;SCHEDULING;**[patch list]**;AUG 13 1993
  
  
                 CHECK^XTSUMBLD results
  
 Routine           Before Patch        After Patch      Patch List
 -------            ----------          ---------        --------
 SDWLEVAL            23794866           23791412         327,471
  
  
                 CHECK1^XTSUMBLD results
  
 Routine           Before Patch        After Patch      Patch List
 -------            ----------          ---------        --------
 SDWLEVAL            82936763           83399202         327,471
  
  
  
 INSTALLATION INSTRUCTION:
 ========================
 This patch was created with Kernel V8 KIDS and should be installed into 
 your production UCI.  It can be installed anytime, but because some
 options will be out of service during the installation process, it is
 suggested that it be queued for non-peak hours. Installation will take
 less than 5 minutes. Users do not have to be off the system.
  
 Follow these instructions:
  
 1. Choose the PackMan message containing this patch and invoke the 
    INSTALL/CHECK MESSAGE PackMan option.
  
 2. From the Installation menu, on the Kernel Installation and 
    Distribution System (KIDS) Menu, you may elect to use the following
    options (when prompted for the INSTALL NAME, enter SD*5.3*471):
  
         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.
  
 3. From the 'Installation' menu of KIDS, use the option 'Install 
    Package(s)'.  Select the package 'SD*5.3*471' and proceed with the 
    install.
  
 4. You may queue this patch for install.
  
 5. When prompted 'Want KIDS to INHIBIT LOGONs during the install? 
    YES//', respond NO.
  
 6. When prompted 'Want to DISABLE Schedule Options, Menu Options and
    Protocols? YES//', respond YES.  
  
 7. When prompted to select the options you would like to place out of
    order, enter the following:
  
    SDAM APPT MGT           [Appointment Management]
    SDAPP                   [Appointment Menu]
  
 8. ***Run the 'SD WAIT LIST CLEANUP' after patch install to insure
       your Wait List files have no errors.
  
               ** NULL FIELD CLEAN-UP INSTRUCTIONS **
  
     a.  Run option: SD WAIT LIST CLEANUP       SD Wait List Cleanup
     b.  Correct any interactive institution problems reported
         concerning Wait List Entry file and institutional cross-
         references to Service/Specialty (409.31) or Clinic (409.32).
     c.  Print the null field report to screen or printer (or queue
         to printer).  The report (sample below) will list any EWL
         entries having a null institution (INST), wait list type
         (Type) or EWL type/location (Team,Postn,Srv/Spec,Clinic).
  
 SAMPLE:
  
           Wait List Key Field 'NULL' Report         MAY 23, 2005   Page: 4
  
 STATION: 500
  
 IEN   Patient Name                      Wait Date  STS  Null Fields
  
 113   JACKSON,JANET                                 C   INST,Type/++
  
 137   JACKSON,JANET                                     INST,Clinic
  
 174   MACISAAC,STEPHEN F                                INST,Type/++
  
 110   VERSION,THREE                                     INST,Type
      ** WAIT LIST TYPE corrected to value: 3 (SERV/SPCLTY)
  
 TOTAL null field error EWL entries: 20
  
 ++ Missing Wait List Type and corresponding field entry (TEAM,
      POSITION,SERVICE/SPECIALTY,CLINIC). Correct corresponding
      field entries and running report again will correct Wait 
      List Type field
  
 ** End of Report **
  
     d.  Fileman can be used to correct the null fields (Institution or 
         Wait List Type "pointed to" field 5-8:  Team, Position, 
         Serv/Specialty or Clinic in the SD WAIT LIST file (#409.3) as
         the correct field information is provided. This can ONLY be
         determined by the site and not programmatically corrected. 
  
        ** If a field 5-8 has a value, but field 4 points (1-4) to the 
           incorrect piece 5-8 set, the routine will correct Field 4 to
           point to the correct service location field (5-8).
  
        **If Wait List Type (field 4) is null and there is no location
          field defined (5-8) the site will need to correct location
          field 5-8 with the proper value, and re-running the
          report will correct the null Wait List Type. You will see an
          '/++' appended to the Null Field entry: Type, and an  
          explanation at the bottom of the report:
           ++ Missing Wait List Type and corresponding field entry
              (TEAM,POSITION,SERVICE/SPECIALTY,CLINIC). 
              Correct corresponding field entries and running report
              again will correct Wait List Type field.
  
        **If Wait List Type (field 4) is null AND there is a location 
          field defined (5-8) the routine will correct Field 4 to point to
          the defined service location field (5-8) and a note will be 
          included on report as follows:
           ** WAIT LIST TYPE corrected to value: 3 (SERV/SPCLTY)  

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

Routine Name: SDWLEVAL
    Before: B82936763  After: B83399202  **327,471**

=============================================================================
User Information:
Entered By  : BECKWITH,RALPH                Date Entered  : DEC 09, 2005
Completed By: WERNER,GARY                   Date Completed: MAR 27, 2006
Released By : BENBOW,PHYLLIS O              Date Released : MAR 28, 2006
=============================================================================


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

$END TXT