$TXT Created by MNTVBB.DOMAIN.EXT (KIDS) on Friday, 03/02/18 at 16:29 ============================================================================= Run Date: MAY 03, 2018 Designation: LR*5.2*503 Package : LR - LAB SERVICE Priority: Mandatory Version : 5.2 SEQ #405 Status: Released Compliance Date: JUN 03, 2018 ============================================================================= Subject: MONTHLY ACCESSION AREA REPORTS / LRAP INACTIVE PROVIDERS Category: - Routine - Data Dictionary Description: ============ This patch addresses two (2) VistA Laboratory issues: (1) Statistical reports might list inaccurate information for monthly accession areas. (2) Inactive providers are displayed during Anatomic Pathology Log-In. Files & Fields Associated: -------------------------- Field File Name (Number) Name (Number) New/Modified/Deleted --------------------------- ------------------- -------------------- LAB DATA (#63) PHYSICIAN (#12.1) Modified (Autopsy) CYTOPATHOLOGY (#63.09) PHYSICIAN (#.07) Modified SURGICAL PATHOLOGY (#63.08) SURGEON/PHYSICIAN (#.07) Modified ELECTRON MICROSCOPY (#63.02) PHYSICIAN (#.07) Modified New Service Requests (NSRs): =========================== N/A Patient Safety Issues (PSIs): ============================ None Blood Bank Review: ================== EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LR*5.2*503 does not contain any changes to the VISTA BLOOD BANK Software as defined by ProPath standard titled: BBM Team Review of VistA Patches. EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LR*5.2*503 does not alter or modify any software design safeguards or safety critical elements functions. RISK ANALYSIS: Changes made by patch LR*5.2*503 have no effect on Blood Bank software functionality, therefore RISK is none. VALIDATION REQUIREMENTS BY OPTION: Because of the nature of the changes made, no specific validation requirements exist as a result of installation of this patch. Participating Test Sites: ======================== Minneapolis VAMC Bronx VAMC Defect Tracking System Ticket(s) & Overview: =========================================== I17282424FY18 - Monthly Accession Area Statistical Reports Problem: ------- The reports "Accession and test counts by shift" and "Count accessioned tests" will list inaccurate information if the starting date specified by the user is within the month of the ending date specified. Resolution: ---------- Modify routines LRUPACA and LRUPACS to correctly set the starting date for the month being selected. Routines: LRUPACA and LRUPACS I18078546FY18 - Anatomic Pathology Log-In for Inactive Providers Problem: ------- Inactive providers may be selected as ordering providers when logging in Anatomic Pathology specimens. Resolution: ---------- Add logic to the data dictionary fields for the Autopsy "Physician" field, the Cytopathology "Physician" field, the Surgical Pathology "Surgeon/ Physician" field, and the Electron Microscopy "Physician" field that only active providers who hold the "Provider" key are available for selection. ==================== Installation Instructions ==================== This patch may be loaded with users on the system. You may wish to Install it during non-peak hours. Installation will take less than 1 minute. NOTE: Kernel patches must be current on the target system to avoid problems loading and/or installing this patch. 1. Use the 'INSTALL/CHECK MESSAGE' option of the PackMan menu. This option will load the KIDS patch onto your system. 2. The patch has now been loaded into a Transport global on your system. You now need to use KIDS to install the transport global. 3. On the 'Kernel Installation & Distribution System' Menu (KIDS), select the 'Installation' menu. 4. Use the 'Verify Checksum in Transport Global' option and verify that all routines have the correct checksums. 5. On the KIDS menu, under the 'Installation' menu, use the following options: Print Transport Global Compare Transport Global to Current System Backup a Transport Global If you wish to preserve a copy of the routines exported in this patch prior to installation, you should use the 'Backup a Transport Global' option at this time. You may also compare the routines in your production account to the routines in the patch by using the 'Compare a Transport Global to Current System' option. 6. Use the 'Install Package(s)' option under the 'Installation' menu and select the package 'LR*5.2*503'. If prompted 'Want KIDS to INHIBIT LOGONs during the install? NO//, choose 'NO'. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO//', choose 'NO'. Installation Verification: -------------------------- Compare the checksums of the routines to the "After" checksums listed in the patch description. FileMan can be used to validate successful installation of the Data Dictionary change: Select OPTION: 8 DATA DICTIONARY UTILITIES Select DATA DICTIONARY UTILITY OPTION: 1 LIST FILE ATTRIBUTES START WITH What File: LAB DATA// (44 entries) GO TO What File: LAB DATA// (44 entries) Select SUB-FILE: Select LISTING FORMAT: STANDARD// Start with field: FIRST// 12.1 PHYSICIAN Go to field: 12.1 PHYSICIAN DEVICE: ;;99 UCX/TELNET Right Margin: 80// STANDARD DATA DICTIONARY #63 -- LAB DATA FILE 2/15/18 PAGE 1 STORED IN ^LR( (44 ENTRIES) SITE: Albany IRM Field Office UCI: MNTVBB,MNTVBB (VERSION 5.2) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 63,12.1 PHYSICIAN AU;12 POINTER TO NEW PERSON FILE (#200) INPUT TRANSFORM: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"" ,$P(^(0 ),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^ XUSER(Y)", D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE, X=+Y K:Y<0 X LAST EDITED: APR 07, 1993 HELP-PROMPT: Select the requesting provider. DESCRIPTION: This is the requesting provider. SCREEN: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"", $P(^(0 ),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XUSER(Y)" EXPLANATION: Selects active providers who hold the VA PROVIDER security key. Select OPTION: 8 DATA DICTIONARY UTILITIES Select DATA DICTIONARY UTILITY OPTION: 1 LIST FILE ATTRIBUTES START WITH What File: LAB DATA// (51584 entries) GO TO What File: LAB DATA// (51584 entries) Select SUB-FILE: CYTOPATHOLOGY Select SUB-FILE: Select LISTING FORMAT: STANDARD// Start with field: FIRST// .07 PHYSICIAN Go to field: .07 PHYSICIAN DEVICE: ;;999 HOME (CRT) Right Margin: 80// STANDARD DATA DICTIONARY #63.09 -- CYTOPATHOLOGY SUB-FILE 2/14/18 PAGE 1 STORED IN ^LR(D0,"CY", SITE: CLN1G1.AAC.DOMAIN.EXT UCI: VISTA,ROU DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------- 63.09,.07 PHYSICIAN 0;7 POINTER TO NEW PERSON FILE (#200) INPUT TRANSFORM: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"", $P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XUSER(Y)", D="AK.PROVIDER" D IX^DIC K DIC S DIC= DIE,X=+Y K:Y<0 X LAST EDITED: JUN 30, 1991 HELP-PROMPT: Select the requesting provider. DESCRIPTION: This is the requesting provider. SCREEN: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"", $P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XUSER(Y)" EXPLANATION: Selection must be made from active PROVIDERS who hold the PROVIDER security key. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER Select OPTION: 8 DATA DICTIONARY UTILITIES Select DATA DICTIONARY UTILITY OPTION: 1 LIST FILE ATTRIBUTES START WITH What File: LAB DATA// (51584 entries) GO TO What File: LAB DATA// (51584 entries) Select SUB-FILE: SURGICAL PATHOLOGY Select SUB-FILE: Select LISTING FORMAT: STANDARD// Start with field: FIRST// .07 SURGEON/PHYSICIAN Go to field: .07 SURGEON/PHYSICIAN DEVICE: ;;99 HOME (CRT) Right Margin: 80// STANDARD DATA DICTIONARY #63.08 -- SURGICAL PATHOLOGY SUB-FILE 2/14/18 PAGE 1 STORED IN ^LR(D0,"SP", SITE: CLN1G1.AAC.DOMAIN.EXT UCI: VISTA,ROU DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 63.08,.07 SURGEON/PHYSICIAN 0;7 POINTER TO NEW PERSON FILE (#200) INPUT TRANSFORM: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"", $P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XUSER(Y)",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X LAST EDITED: JUN 30, 1991 HELP-PROMPT: Select the requesting provider. DESCRIPTION: This is the requesting provider. SCREEN: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"", $P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XUSER(Y)" EXPLANATION: Selection must be made from active PROVIDERS who hold the PROVIDER security key. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER Select OPTION: 8 DATA DICTIONARY UTILITIES Select DATA DICTIONARY UTILITY OPTION: 1 LIST FILE ATTRIBUTES START WITH What File: LAB DATA// (51584 entries) GO TO What File: LAB DATA// (51584 entries) Select SUB-FILE: EM Select SUB-FILE: Select LISTING FORMAT: STANDARD// Start with field: FIRST// .07 PHYSICIAN Go to field: .07 PHYSICIAN DEVICE: ;;99 HOME (CRT) Right Margin: 80// STANDARD DATA DICTIONARY #63.02 -- EM SUB-FILE 2/14/18 PAGE 1 STORED IN ^LR(D0,"EM", SITE: CLN1G1.AAC.DOMAIN.EXT UCI: VISTA,ROU DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------- 63.02,.07 PHYSICIAN 0;7 POINTER TO NEW PERSON FILE (#200) INPUT TRANSFORM: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"", $P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XUSER(Y)",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X LAST EDITED: JUN 30, 1991 HELP-PROMPT: Select the requesting provider. DESCRIPTION: This is the requesting physician. SCREEN: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"", $P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XUSER(Y)" EXPLANATION: Selection must be made from active PROVIDERS who hold the PROVIDER security key. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER Back-out Procedures: -------------------- Back-out will be done only with the concurrence and participation of development team and appropriate VA site/region personnel. The decision to back-out or rollback software will be a joint decision between development team, VA site/region personnel and other appropriate VA personnel. The routines can be restored to the previous versions by installing from the backup MailMan message that was sent before installation. Since this patch contains a Data Dictionary change which is only editable by a programmer, an edit must be done directly to the following globals so that the entries are: ^DD(63,12.1,0)="PHYSICIAN^*P200'^VA(200,^AU;12^S DIC(""S"")=""I $D(^VA( 200,""""A K.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K: Y<0 X" ^DD(63,12.1,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""", $P(^(0),U)))""" ^DD(63.02,.07,0)="PHYSICIAN^*P200'X^VA(200,^0;7^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X" ^DD(63.02,.07,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""", $P(^(0),U)))""" ^DD(63.08,.07,0)="SURGEON/PHYSICIAN^*P200'X^VA(200,^0;7^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X" ^DD(63.08,.07,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""", $P(^(0),U)))""" ^DD(63.09,.07,0)="PHYSICIAN^*P200'X^VA(200,^0;7^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X" ^DD(63.09,.07,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""", $P(^(0),U)))""" Validation of Roll Back Procedure: ---------------------------------- Checksums of the routines can be compared to the "Before" values listed in the patch description. Since this patch contains a Data Dictionary change, a FileMan display can be used to validate execution of a roll back. Routine Information: ==================== The second line of each of these routines now looks like: ;;5.2;LAB SERVICE;**[Patch List]**;Sep 27, 1994;Build 11 The checksums below are new checksums, and can be checked with CHECK1^XTSUMBLD. Routine Name: LRUPACA Before: B13382293 After: B16066583 **503** Routine Name: LRUPACS Before: B11710484 After: B12249719 **503** ============================================================================= User Information: Entered By : Date Entered : JAN 08, 2018 Completed By: Date Completed: MAY 02, 2018 Released By : Date Released : MAY 03, 2018 ============================================================================= Packman Mail Message: ===================== $END TXT