$TXT Created by THEROUX,JOHN at MNTVBB.FO-ALBANY.MED.VA.GOV (KIDS) on Friday, 06/23/06 at 12:29 ============================================================================= Run Date: AUG 25, 2006 Designation: ICD*18*22 Package : ICD - DRG GROUPER Priority: Mandatory Version : 18 SEQ #21 Status: Released Compliance Date: SEP 25, 2006 ============================================================================= Associated patches: (v)ICD*18*20 <<= must be installed BEFORE `ICD*18*22' (v)LEX*2*40 <<= must be installed BEFORE `ICD*18*22' Subject: DRG ASSIGNMENT PROBLEMS Category: - Routine Description: ============ This patch fixes several problems all related to the wrong Diagnosis Related Group (DRG) being calculated by the VistA DRG Grouper. ASSOCIATED REMEDY TICKETS: ========================== 1) HD135282 Incorrect DRG for chemo for Acute Leukemia 2) HD135520 DRG 541 & 542 have the wrong MDC in file #80.2 3) HD141351 DRG ungroupable when they should group duplicates: HD144732 HD145806 HD145808 HD145955 HD147690 HD148119 HD149970 HD150915 HD151255 HD152916 4) HD143411 DRG 368 should group to DRG 358 5) HD124291 Incorrect DRG Assigned to Patients ASSOCIATED E3R's: ================= N/A PARTICIPATING TEST SITES: ======================== El Paso, TX Bay Pines, FL Wilmington, DE Loma Linda, CA REMEDY OVERVIEW: ================ 1) HD135282 Incorrect DRG for chemo for Acute Leukemia Problem: ======== DRG 410 is assigned instead of DRG 492. Solution: ========= New codes V58.11 and V58.12 replaced V58.1 on October 1, 2005. The Federal Register entry on Aug. 12, 2005 (p.47635) failed to include DRG 406-08 which can also apply. As a result, the DRG Grouper failed in its calculation. Routines ICDTLB6B and ICDTLB61 will be modified and pre-init routine ICD1822P will add DRGs 406-08 to the possible DRGs for V58.11 and V58.12, thus resulting in DRG 492. 2) HD135520 DRG 541 & 542 have the wrong MDC in the DRG (#80.2) file. Problem: ======== DRG 541-2 point to MDC 17 (MYELOPROLIFERATIVE,NEOPLASIA). Solution: ========= Routine ICD1822P will correct DRG (#80.2) file so DRG 541-2 will point to MDC 98 (PRE) as these DRGs can only apply to pre-MDC cases. 3) HD141351 DRG ungroupable when they should group Problem: ======== New diagnosis codes 276.50, 276.51 and 276.52 give DRG 470 (ungroupable). Solution: ========= Updating of the codes done by ICD*18*20 was inadvertently wiped out by a later patch. Routine ICD1822P will repeat the updating done by ICD*18.0*20 for all diagnosis codes new in FY2006. 4) HD143411 DRG 368 should group to DRG 358 Problem: ======== Op/pro code 68.39 when used with a non-malignant diagnosis in MDC 13 (FEMALE REPRODUCTIVE SYSTEM) gives DRG 368 instead of 358/9. Solution: ========= Code needs to have "Og" values in the IDENTIFIER (#2) field. O: OR proc. g: other MDC 13 OR proc. Routine ICD1822P will update that field. 5) HD124291 Incorrect DRG Assigned to Patients Problem: ======== In MDC 5 (CIRCULATORY SYSTEM), using secondary diagnosis 428.30 with non-op code 37.21 and op code 39.29 is giving DRG 124 instead of DRG 553. Solution: ========= Last FY, DRG 478 was inactivated. Certain op codes still use that DRG for MDC 5. Rather than repair the operation codes, routine ICDDRG5 will be modified to consider these cases as part of surgical hierarchy, and thus ahead of DRG 124. INSTALLATION INSTRUCTIONS: =========================== This patch may be run with users on the system. However, it would be preferable if Medical Records coders were off the system. Installation will take less than 5 minutes. Please ensure that your programming variables are set. 1. Use the INSTALL/CHECK MESSAGE option on the PackMan menu to unload the KIDS distribution included with this message. NOTE: If the required patches are not installed, the transport global will be removed. If the transport global is removed you will need to repeat this step. 2. From the Kernel Installation and Distribution System Menu, select the Installation menu. 3. From this menu, you may elect to use the following options (when prompted for INSTALL NAME, enter ICD*18.0*22): a. 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.). b. Verify Checksums in Transport Global - this option will allow you to ensure the integrity of the routines that are in the transport global. c. Print Transport Global - this option will allow you to view the components of the KIDS build. d. 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. 4. Use the Install Package(s) option and select the package ICD*18.0*22. 5. When prompted ' Want KIDS to INHIBIT LOGONs during the install? YES//', respond NO. 6. When prompted,' Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO//', respond Yes. When prompted,'Enter options you wish to mark as 'Out Of Order':', enter: PTF Menu [DG PTF MENU] When prompted,'Enter protocols you wish to mark as 'Out Of Order':', press enter. 7. Routines ICD1822* can be deleted after the patch has been successfully installed. ROUTINE SUMMARY: ================ The following is a list of the routine(s) included in this patch. The second line of each of these routine(s) will look like: ;;5.3;Registration;**[patch list]**;Aug 13, 1993 Using old logic: CHECK^XTSUMBLD results Routine name Before Patch After Patch Patch List ============ ============ =========== ========== ICD1822C N/A 5251707 22 ICD1822P N/A 814099 22 ICDDRG5 8299466 8325533 2,5,7,10,20 22 ICDTLB61 759865 917234 10,22 ICDTLB6B 14267609 14424978 20,22 Routine Information: ==================== The checksums below are new checksums, and can be checked with CHECK1^XTSUMBLD. Routine Name: ICD1822C Before: n/a After: B34780368 **22** Routine Name: ICD1822P Before: n/a After: B2132766 **22** Routine Name: ICDDRG5 Before: B19783386 After: B20024424 **2,5,7,10,20,22** Description of Changes: ICDDRG5.INT.1 |"PATVEE"|ICDDRG5.INT.1 ************************************************************************** ***** ICDDRG5.INT.1 +2 ;;18.0;DRG Grouper;**2,5,7,10,20,22**;Oct 20, 2000 ................... |"PATVEE"|ICDDRG5.INT.1 +2 ;;18.0;DRG Grouper;**2,5,7,10,20**;Oct 20, 2000 --------------------------------------- ICDDRG5.INT.1 +59 I ICDJ=478 S ICDJ(25)=ICDJ Q +60 I ICDJ=479 S ICDJ(26)=ICDJ Q +61 I ICDJ=114 S ICDJ(27)=ICDJ Q +62 I ICDJ=118 S ICDJ(28)=ICDJ Q +63 I ICDJ=117 S ICDJ(29)=ICDJ Q +64 I ICDJ=119 S ICDJ(30)=ICDJ Q +65 I ICDJ=120 S ICDJ(31)=ICDJ ................... |"PATVEE"|ICDDRG5.INT.1 +59 I ICDJ=479 S ICDJ(25)=ICDJ Q +60 I ICDJ=114 S ICDJ(26)=ICDJ Q +61 I ICDJ=118 S ICDJ(27)=ICDJ Q +62 I ICDJ=117 S ICDJ(28)=ICDJ Q +63 I ICDJ=119 S ICDJ(29)=ICDJ Q +64 I ICDJ=120 S ICDJ(30)=ICDJ ************************************************************************** ***** Routine Name: ICDTLB61 Before: B1022544 After: B1234931 **10,22** Description of Changes: ICDTLB61.INT.1 |"PATVEE"|ICDTLB61.INT.1 ************************************************************************** ***** ICDTLB61.INT.1 +2 ;;18.0;DRG Grouper;**10,22**;Oct 20, 2000 ................... |"PATVEE"|ICDTLB61.INT.1 +2 ;;18.0;DRG Grouper;**10**;Oct 20, 2000 --------------------------------------- ICDTLB61.INT.1 +9 .I ICDDX(1)=$O(^ICD9("AB","V58.11 ",0)) S ICDRG=$S(ICDSD["2":492,1: 410) Q +10 .I ICDDX(1)=$O(^ICD9("AB","V58.12 ",0)) S ICDRG=$S(ICDSD["2":492,1: 410) Q ................... |"PATVEE"|ICDTLB61.INT.1 +9 .I ICDDX(1)=$O(^ICD9("AB","V58.1 ",0)) S ICDRG=$S(ICDSD["2":492,1:4 10) Q ************************************************************************** ***** Routine Name: ICDTLB6B Before: B50884849 After: B51496024 **20,22** Description of Changes: ICDTLB6B.INT.1 |"PATVEE"|ICDTLB6B.INT.1 ************************************************************************** ***** ICDTLB6B.INT.1 +2 ;;18.0;DRG Grouper;**20,22**;Oct 20, 2000 ................... |"PATVEE"|ICDTLB6B.INT.1 +2 ;;18.0;DRG Grouper;**20**;Oct 20, 2000 --------------------------------------- ICDTLB6B.INT.1 +17 .I ICDDX(1)=$O(^ICD9("AB","V58.11 ",0)) S ICDRG=$S(ICDSD["2":492,1: 410) Q +18 .I ICDDX(1)=$O(^ICD9("AB","V58.12 ",0)) S ICDRG=$S(ICDSD["2":492,1: 410) Q ................... |"PATVEE"|ICDTLB6B.INT.1 +17 .I ICDDX(1)=$O(^ICD9("AB","V58.1 ",0)) S ICDRG=$S(ICDSD["2":492,1:4 10) Q ************************************************************************** ***** ============================================================================= User Information: Entered By : THEROUX,JOHN Date Entered : JUN 05, 2006 Completed By: TSAIMEUCHONG,BRENDA Date Completed: AUG 22, 2006 Released By : CDEBACA,LARRY Date Released : AUG 25, 2006 ============================================================================= Packman Mail Message: ===================== $END TXT