$TXT Created by YORTY,M ROBERT at DEVVCC.FO-ALBANY.MED.VA.GOV (KIDS) on Wednesday, 12/19/07 at 15:22 ============================================================================= Run Date: FEB 20, 2008 Designation: DG*5.3*775 Package : DG - REGISTRATION Priority: Mandatory Version : 5.3 SEQ #684 Status: Released Compliance Date: MAR 22, 2008 ============================================================================= Associated patches: (v)DG*5.3*565 <<= must be installed BEFORE `DG*5.3*775' (v)DG*5.3*606 <<= must be installed BEFORE `DG*5.3*775' (v)DG*5.3*683 <<= must be installed BEFORE `DG*5.3*775' Subject: PTF DRG FIXES Category: - Routine Description: ============ This patch fixes PTF problems identified with the release of DRG GROUPER patch ICD*18.0*31. The following modifications are implemented in this patch, DG*5.3*775: ---------------------------------------------------------------------- 1. 501 Screen displaying DRG description incorrectly. The 501 Screen has been corrected to display the versioned description of the DRG. 2. 'Closing PTF' issue. PTF currently prevents Closing a PTF if the DRG is equal to CMS-DRG 469 "Principal diagnosis invalid as discharge diagnosis.". With the introduction of Medical Severity DRGs (ICD*18*31), the DRG numbering system for 2008 has changed. The Medical Severity value for MS-DRG 469 is "Major joint replacement or reattachment of lower extremity w MCC". This patch will use versioning of the effective date to determine CMS-DRG (#469) or MS-DRG (#998) value of "Principal diagnosis invalid as discharge diagnosis.". 3. Alert 'beeps' edited to include MS-DRGs. Routine DGPTICD has been edited to include alert 'beeps' for MS-DRGs (#998) "Principal diagnosis invalid as discharge diagnosis." and MS-DRG (#999) "Ungroupable.". 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): ---------------------------------------------------- HD225785 Overview of Remedy Ticket(s): ----------------------------- Problem: HD225785 The DRG description in the PTF 501 Screen is displaying incorrectly. The software is displaying the description from the wrong DESCRIPTION (#1) field and not using the DESCRIPTION (VERSIONED) (#68) field. Resolution: The software will now call the $$DRGD^ICDGTDRG API returning the versioned Description for display. This is similar to the DRG display on the 701 Screen display. Test Sites: ----------- Ann Arbor, MI Bay Pines, FL Upstate New York 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. Load/Edit PTF Data [DG PTF SCREEN] Install Time - less than 5 minutes 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 DG*5.3*775): 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. 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 YES d. When prompted 'Enter options you wish to mark as 'Out Of Order':' Enter the following options: Load/Edit PTF Data [DG PTF SCREEN] e. When prompted 'Enter protocols you wish to mark as 'Out Of Order':' press . ----------------------- ROUTINE MODIFICATIONS ---------------------------- DGPTICD.INT.1 |"BEFORE"|DGPTICD.INT.1 ************************************************************************** DGPTICD.INT.1 +2 ;;5.3;Registration;**375,441,510,559,599,606,775**;Aug 13, 1993 ................... |"BEFORE"|DGPTICD.INT.1 +2 ;;5.3;Registration;**375,441,510,559,599,606**;Aug 13, 1993 --------------------------------------- DGPTICD.INT.1 +51 I (ICDDATE<3071001)&(DRG=468!(DRG=469)!(DRG=470)) W *7 +52 I DRG=998!(DRG=999) W *7 ................... |"BEFORE"|DGPTICD.INT.1 +51 I DRG=468!(DRG=469)!(DRG=470) W *7 ************************************************************************** DGPTF4.INT.1 |"BEFORE"|DGPTF4.INT.1 ************************************************************************** DGPTF4.INT.1 +2 ;;5.3;Registration;**114,115,397,510,517,478,683,775**;Aug 13, 1993 ................... |"BEFORE"|DGPTF4.INT.1 +2 ;;5.3;Registration;**114,115,397,510,517,478,683**;Aug 13, 1993 --------------------------------------- DGPTF4.INT.1 +61 ;DGDAT = effective date of DRG used in DGPTICD (468=CMS-DRG,998=MS-DRG) +62 I DRG=469,(+$G(DGDAT)<3071001) W !!,*7,"Unable to release DRG ",DRG,". Please verify data entered.",*7 D HANG^DGPTUTL G EN1 +63 I DRG=998 W !!,*7,"Unable to release DRG ",DRG,". Please verify data entered.",*7 D HANG^DGPTUTL G EN1 ................... |"BEFORE"|DGPTF4.INT.1 +61 I DRG=469 W !!,*7,"Unable to release DRG ",DRG,". Please verify data entered.",*7 D HANG^DGPTUTL G EN1 ************************************************************************** DGPTFM4.INT.1 |"BEFORE"|DGPTFM4.INT.1 ************************************************************************** DGPTFM4.INT.1 +1 DGPTFM4 ;ALB/MTC/ADL - PTF ENTRY/EDIT-2 ; 12/18/07 11:37am +2 ;;5.3;Registration;**114,195,397,510,565,775**;Aug 13, 1993 ................... |"BEFORE"|DGPTFM4.INT.1 +1 DGPTFM4 ;ALB/MTC/ADL - PTF ENTRY/EDIT-2 ; 11/19/03 11:37am +2 ;;5.3;Registration;**114,195,397,510,565**;Aug 13, 1993 --------------------------------------- DGPTFM4.INT.1 +28 I $P(M1,U,20) S DRG=$P(M1,U,20) W:DRG=998!(DRG=999)! ((DRG=468!(DRG= 469)!(DRG=470))&(+$P($G(M1),U,10)<3071001)) *7 W !!?14,"TRANSFER DRG: ",DRG D +29 . N DXD,DGDX +30 . S DXD=$$DRGD^ICDGTDRG(DRG,"DGDX",,$P(M1,U,10)),DGDS=0 +31 . F S DGDS=$O(DGDX(DGDS)) Q:'+DGDS Q:DGDX(DGDS)=" " W !,DGDX(DGDS) ................... |"BEFORE"|DGPTFM4.INT.1 +28 I $P(M1,U,20) S DRG=$P(M1,U,20) W:DRG=468!(DRG=469)!(DRG=470) *7 W !!?14,"TRANSFER DRG: ",DRG F DGDRGNM=0:0 S DGDRGNM=$O(^ICD(DRG,1,DGDRGNM)) Q:'DGDRGNM W !,$P(^(DGDRGNM,0),U,1) ************************************************************************** Routine Information: ==================== The second line of each of these routines now looks like: ;;5.3;Registration;**[Patch List]**;Aug 13, 1993;Build 3 The checksums below are new checksums, and can be checked with CHECK1^XTSUMBLD. Routine Name: DGPTF4 Before: B22914415 After: B24206467 **114,115,397,510,517,478,683,775** Routine Name: DGPTFM4 Before: B26889694 After: B27400766 **114,195,397,510,565,775** Routine Name: DGPTICD Before: B8396264 After: B8640114 **375,441,510,559,599,606,775** Routine list of preceding patches: 565, 606, 683 ============================================================================= User Information: Entered By : YORTY,M ROBERT Date Entered : DEC 11, 2007 Completed By: BARBER,HAROLDINE Date Completed: FEB 19, 2008 Released By : CANNEDY,JOELLEN Date Released : FEB 20, 2008 ============================================================================= Packman Mail Message: ===================== $END TXT