$TXT Created by KRN.FO-OAKLAND.DOMAIN.EXT (KIDS) on Thursday, 02/07/19 at 04:18 ============================================================================= Run Date: JUN 04, 2020 Designation: XU*8*706 Package : XU - KERNEL Priority: Mandatory Version : 8 SEQ #566 Status: Released Compliance Date: JUL 05, 2020 ============================================================================= Subject: SUPPORT EVENT CAPTURE PACKAGE Category: - Data Dictionary Description: ============ This Kernel patch replaces the existed cross reference LOC1 in the Institution by a New Style compound cross reference that is using the NAME and CURRENT LOCATION fields to support the Event Capture package. The replacement will address an issue of a mismatch data between the Event Capture software and the Institution(#4) file. There is a field called CURRENT LOCATION(#720) in the Institution file, which is used by the Event Capture to identify which Institution file entries are used within the Event Capture software. The Event Capture software is referencing on the "LOC" nodes. That field has a cross-reference that builds ^DIC(4,"LOC". The problem is that if a name of the institution is changed, then the "LOC" cross-reference becomes corrupted. For example, let's assume we have an entry called "HOSPITAL" and its IEN is 73. If the CURRENT LOCATION field is marked as yes then the ^DIC(4,"LOC","HOSPITAL",73) entry is built. If the name of the entry is later changed to "CLINIC", The cross reference doesn't build a new entry in ^DIC(4,"LOC","CLINIC",73). The new entry ^DIC(4,"LOC","CLINIC",73) is built after the cross reference is reindexed, but the old entry of ^DIC(4,"LOC","HOSPITAL",73) is not deleted. Old: CROSS-REFERENCE: 4^LOC1^MUMPS 1)= I X S ^DIC(4,"LOC",$P(^DIC(4,DA,0),"^"),DA) ="" 2)= K ^DIC(4,"LOC",$P(^DIC(4,DA,0),"^"),DA) Sets and kills the "LOC" nodes. New: RECORD INDEX: LOC (#214) REGULAR IR LOOKUP & SORTING Short Descr: LOC cross reference Description: Sets and kills the "LOC" nodes. Set Logic: S ^DIC(4,"LOC",$E(X(1),1,30),DA)="" Set Cond: S X=X(2) Kill Logic: K ^DIC(4,"LOC",$E(X(1),1,30),DA) Whole Kill: K ^DIC(4,"LOC") X(1): NAME (4,.01) (Subscr 1) (Len 30) (forwards) X(2): CURRENT LOCATION (4,720) (Len 1) (forwards) Files & Fields Associated: File Name (Number) Field Name (Number) New/Modified/Deleted ------------------ ------------------- -------------------- INSTITUTION (#4) NAME (.01) Modified CURRENT LOCATION (720) Modified Forms Associated: Form Name File # New/Modified/Deleted --------- ------ -------------------- N/A Mail Groups Associated: Mail Group Name New/Modified/Deleted --------------- -------------------- N/A Options Associated: Option Name Type New/Modified/Deleted ----------- ---- -------------------- N/A Protocols Associated: Protocol Name New/Modified/Deleted ------------- -------------------- N/A Security Keys Associated: Security Key Name ----------------- N/A Templates Associated: Template Name Type File Name (Number) New/Modified/Deleted ------------- ---- ------------------ -------------------- N/A New Service Requests (NSRs): ---------------------------- N/A Patient Safety Issues (PSIs): ----------------------------- N/A Defect Tracking System Ticket(s) & Overview: -------------------------------------------- INC3807430 Problem: -------- If a name of the institution is changed, then the "LOC" cross-reference becomes corrupted. There were corrupted "LOC" nodes in the system. Resolution: ----------- This patch provides a post installation routine XU8P706 that will be run at the end of installation rebuilds the "LOC" nodes. All corrupted "LOC" nodes will be removed from the systems. Test Sites: ----------- - CENTRAL TEXAS HCS - FARGO, ND Software and Documentation Retrieval Instructions: ---------------------------------------------------- The software for this patch is being released as a KIDS Build. There's no updated Documentation being released with this patch. Blood Bank Team Coordination ============================ Blood Bank Clearance: 2/11/2019 EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch XU*8*706 contains changes to a package referenced in VHA OI SEPG SOP 192-023 Review of VISTA Patches for Effects on VISTA Blood Bank Software. This patch does not alter or modify any VistA Blood Bank software design safeguards or safety critical elements functions. RISK ANALYSIS: Changes made by patch XU*8*706 have no effect on Blood Bank software functionality, therefore RISK is none. Pre/Post Installation Overview: ------------------------------- The post-routine XU8P706 will be deleted after the installation. You may use the option [Verify Checksums in Transport Global] to verify the checksum if you wish. Pre-Installation Instructions: ------------------------------ This patch may be installed with users on the system although it is recommended that it be installed during non-peak hours to minimize potential disruption to users. This patch should take less than 5 minutes to install. Installation Instructions: -------------------------- 1. Choose the PackMan message containing this patch. 2. Choose the INSTALL/CHECK MESSAGE PackMan option. 3. From the Kernel Installation and Distribution System Menu, select the Installation Menu. From this menu, you may elect to use the following options. When prompted for the INSTALL NAME enter the patch XU*8*706: 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 DDs 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, 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. 4. From the Installation Menu, select the Install Package(s) option and choose the patch to install. 5. When prompted 'Want KIDS to INHIBIT LOGONs during the install? NO//N 6. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO//N 7. If prompted 'Delay Install (Minutes): (0 - 60): 0//' respond 0. Post-Installation Instructions ------------------------------ Optional: - Verify the routine XU8P706 is deleted. Backout and Rollback Procedure: ------------------------------- This patch consists one post routine XU8P706, and a replacement cross reference LOC1. If assistance is needed to rollback/backout the patch, then please open a ServiceNow ticket so the development team can assist in this process. Routine Information: ==================== The second line of each of these routines now looks like: ;;8.0;KERNEL;**[Patch List]**;Jul 10, 1995;Build 2 The checksums below are new checksums, and can be checked with CHECK1^XTSUMBLD. Routine Name: XU8P706 Before: n/a After: B549520 **706** ============================================================================= User Information: Entered By : Date Entered : JAN 04, 2019 Completed By: Date Completed: APR 15, 2020 Released By : Date Released : JUN 04, 2020 ============================================================================= Packman Mail Message: ===================== $END TXT