$TXT Created by THEROUX,JOHN at MNTVBB.FO-ALBANY.MED.VA.GOV (KIDS) on Wednesday, 10/04/06 at 23:38 ============================================================================= Run Date: NOV 29, 2006 Designation: ICD*18*24 Package : ICD - DRG GROUPER Priority: Mandatory Version : 18 SEQ #24 Status: Released Compliance Date: DEC 06, 2006 ============================================================================= Associated patches: (v)ICD*18*20 <<= must be installed BEFORE `ICD*18*24' (v)LEX*2*45 <<= must be installed BEFORE `ICD*18*24' Subject: ANNUAL DRG GROUPER UPDATE Category: - Routine - Enhancement (Mandatory) - Other Description: ============ This patch provides the annual update to the DRG Grouper v24.0. It is the second phase of the FY 2007 ICD/DRG Update and is the follow up to patch LEX*2.0*45 and ICD*18.0*25. No code files are included in the patch, as all changes are handled programmatically by the pre-init routines ICD1824*. ASSOCIATED REMEDY TICKET(S): ========================== HD149756 - Annual Update to DRG Grouper (v24.0) ASSOCIATED E3R(s): ================= N/A PARTICIPATING TEST SITES: ======================== Bay Pines, FL Puget Snd HCS Mountain Home OVERVIEW: ======== The changes were published in the Federal Register, Vol.71, No.160, dated August 18, 2006 with an effective date of October 1, 2006. All page references below are to this issue. Changes include: I. New/inactivated/revised DRGs. II. Revised DRG relative weights & average length of stay (ALOS) values for all DRGs. (not included - see below) III. Additional DRG-related data for the new ICD codes introduced by LEX*2.0*45 and ICD*18*25. IV. DRG Reclassification changes to the Grouper. This is a summary of the additions/changes made: I. Routine ICD1824A and ICD1824B were written to update the DRG file #80.2: NEW DRGs for FY 2007 ---------------------- 560 BACTERIAL & TUBERCULOSIS INFECTIONS OF NERVOUS SYSTEM 561 NON-BACTERIAL INFECTIONS OF NERVOUS SYSTEM EXCEPT VIRAL MENINGITIS 562 SEIZURE AGE > 17 W CC 563 SEIZURE AGE > 17 W/O CC 564 HEADACHES AGE >17 565 RESPIRATORY SYSTEM DIAGNOSIS WITH VENTILATOR SUPPORT 96+ HOURS 566 RESPIRATORY SYSTEM DIAGNOSIS WITH VENTILATOR SUPPORT <96 HOURS 567 STOMACH, ESOPHAGEAL & DUODENAL PROC AGE > 17 W CC W MAJOR GI DX 568 STOMACH, ESOPHAGEAL & DUODENAL PROCEDURES PROC AGE > 17 W CC W/O MAJOR GI DX 569 MAJOR SMALL & LARGE BOWEL PROCEDURES W CC W MAJOR GI DX 570 MAJOR SMALL & LARGE BOWEL PROCEDURES W CC W/O MAJOR GI DX 571 MAJOR ESOPHAGEAL DISORDERS 572 MAJOR GASTROINTESTINAL DISORDERS AND PERITONEAL INFECTIONS 573 MAJOR BLADDER PROCEDURES 574 MAJOR HEMATOLOGIC/IMMUNOLOGIC DIAG EXC SICKLE CELL CRISIS & COAGUL 575 SEPTICEMIA W MV96+ HOURS AGE >17 576 SEPTICEMIA W/O MV96+ HOURS AGE >17 577 CAROTID ARTERY STENT PROCEDURE 578 INFECTIOUS & PARASITIC DISEASES W OR PROCEDURE 579 POSTOPERATIVE OR POST-TRAUMATIC INFECTIONS W OR PROCEDURE INACTIVATED DRGs for FY 2007 ---------------------------- 020 NERVOUS SYSTEM INFECTION EXCEPT VIRAL MENINGITIS 024 SEIZURE & HEADACHE AGE >17 W CC 025 SEIZURE & HEADACHE AGE >17 W/O CC 148 MAJOR SMALL & LARGE BOWEL PROCEDURES W CC 154 STOMACH, ESOPHAGEAL & DUODENAL PROCEDURES AGE >17 W CC 415 O.R. PROCEDURE FOR INFECTIOUS & PARASITIC DISEASES 416 SEPTICEMIA AGE >17 475 RESPIRATORY SYSTEM DIAGNOSIS WITH VENTILATOR SUPPORT REVISED DRG descriptions (titles) for FY 2007 --------------------------------------------- 303 KIDNEY AND URETER PROCEDURES FOR NEOPLASM 304 KIDNEY AND URETER PROCEDURES FOR NON-NEOPLASM WITH CC 305 KIDNEY AND URETER PROCEDURES FOR NON-NEOPLASM WITHOUT CC 543 CRANIOTOMY W/MAJOR DEVICE IMPLANT OR ACUTE COMPLEX CNS PDX II. The finalized values for DRG relative weights and average length of stay (ALOS) promised in the August 18 issue (p. 47964) were not received. Therefore, all DRGs will continue to use last year's values and the new DRGs will have none. III. Additional DRG-related values were taken from these Tables: Table 6A on p.48204 for 211 new diagnoses Table 6B on p.48215 for 36 new procedures Routine ICD1824A incorporated these values in the following fields in ICD Operation/Procedure file #80.1: Identifier (#2) as needed DRG Grouper Effective Date (#71) and its sub-files Routine ICD1824C incorporated these values in the following fields in ICD Diagnosis file #80: Identifier (#2) as needed Major Diagnostic Category (#5) DRG Grouper Effective Date (#71) and its sub-file MDC Effective Date (#72) Routines ICDDRG0 and ICDTLB2C were also modified to complete the proper grouping of these new diagnoses and procedures. IV. DRG RECLASSIFICATION. New DRGs ======== a. MDC 1 (p. 47924) (1) New DRGs 560-561 replace DRG 20 now inactivated. Dx codes reassigned. Several new Dx codes from Table 6A can also apply to DRG 561. Routines modified: ICDDRG0 and ICD1824N. (2) New DRGs 562-563-564 replace DRG 24-25 now inactivated. Dx codes reassigned. One new Dx code from Table 6A can also apply to DRG 562/3. Routines modified: ICDTLB1C and ICD1824N. b. MDC 4 (p.47929) New DRGs 565-566 replace DRG 475 now inactivated. Procedure code 96.72 will yield DRG 565; codes 96.70 and 96.71 will yield DRG 566. Routine modified: ICD1824O. c. MDC 6 (p.47930) (1) New DRGs 571-572. Certain dx codes were reassigned from DRG 174,175,182,183,184,188,189 and 190. Routine modified: ICD1824N. (2) New DRGs 567-568-569-570. DRG 148 and 154 inactivated. Dx codes for major gastrointestinal conditions were identified by assigning them a "g" as identifier (field #2). If these codes are either prime or secondary dx with cc, DRG 569 will be assigned for procedures from DRG 148 (DRG 570 if no major GI), and DRG 567 will be assigned for procedures from DRG 154 (DRG 568 if no major GI). Routines modified: ICD1824G, ICDHLPD and ICDTLB2C. d. MDC 11 (p.47935) Certain procedure codes were reassigned from DRG 303-4-5-8-9 to new DRG 573. DRGs 303-4-5 were also renamed. Routine modified: ICD1824O e. MDC 16 (p.47936) Certain diagnosis codes were reassigned from DRG 395-6-8-9 to new DRG 574. Several new Dx codes from Table 6A can also apply to DRG 574. Routine modified: ICD1824N f. MDC 18 (p. 47938) DRG 415 is being inactivated and replaced by new DRG 578. But if primary dx codes 958.3, 998.51, 998.59 or 999.3 are used with any O.R. procedure, new DRG 579 will apply. Routines modified: ICDDRG0 and ICDTLB6C. g. Severe Sepsis (p.47938) Also in MDC 18, DRG 416 is being inactivated and replaced by new DRG 576, except that if procedure 96.72 is used, new DRG 575 will apply. Routine modified: ICDTLB6C. Changes to other DRGs: ====================== 1. Pre-MDCs (p. 47939) a. DRG103 will be assigned if both procedures 37.63 and 37.64 are used. Routine modified: ICDDRG0. b. Pancreas Transplants - no change required. DRG 513 still assigned on the basis of procedures 52.80 or 52.82 being present. 2. MDC 1 (p. 47940) a. If procedures 02.93 and 86.95 are both present, DRG 543 will be assigned instead of DRG 1/2. Title of DRG 543 also changed to: "CRANIOTOMY W/MAJOR DEVICE IMPLANT OR ACUTE COMPLEX CNS PDX". Routines modified: ICDTLB1C and ICDTLB6C. b. Carotid Artery Stents - New DRG 577 assigned instead of DRG 533-4 if procedures 00.61 and 00.63 are used together. Routine modified: ICDTLB6C. 3. MDC 5 (p. 47944) a. Insertion of Epicardial Leads for Defibrillator Devices - Combinations of procedures 37.74 & 00.54; 37.74 & 37.96; 37.74 & 37.98 are being added to DRGs 515 and 535-6. Routine modified: ICDTLB6C. 4. MDC 8 (p. 47946) a. Hip and Knee Replacements - Procedures 00.71 thru 00.73, 00.81 thru 00.84, 81.53 and 81.55 are being removed from DRG 471 (but remain in DRG 545). Routine modified: ICD1824O. 7. Surgical Hierarchies (p. 47954) Ranking of surgical DRGs has changed as follows: MDC New Order ==== ========= PRE 481 above 513 1 531/532 above 529/530 577 above 533 2 42 above 36 3 168/169 above 57/58 6 567/568 above 155 569/570 above 149 8 213 above 216 10 285 above 288 11 573 above 303 13 363/364 above 360 Routines in the range of ICDDRG1 thru ICDDRG13 were modified to use DRG rank orders depending on the effective date of the PTF record. INSTALLATION INSTRUCTIONS: (don't forget Step #6) ========================= This patch can be loaded with users on the system. However, it would be preferable if Medical Records coders were off the system. Install Time - 5 to 10 minutes. Please ensure that your programming variables are set, including your DUZ(0)="@", otherwise installation will abort. This patch does not involve global file restoration. Nonetheless, we suggest you create global saves on files #80 (^ICD9), #80.1 (^ICD0) and #80.2 (^ICD) in the event problems develop during the install. If it became necessary to use the saved files, you should first kill all the records (except the zero node) before applying the global restores. 1. From the Kernel Installation and Distribution System Menu, select the Installation menu. 2. From this menu, you may elect to use the following options: (when prompted for INSTALL NAME, enter ICD*18.0*24) a. Backup a Transport Global - this option will create a backup message of any routines exported with the 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 the patch is installed. It compares all components of the 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. Routines ICD1824* can be removed once the patch is installed. d. Print Transport Global - this option will allow you to view the components of the KIDS build. 3. Use the Install Package(s) option and select the package ICD*18.0*24. 4. When prompted, 'Want KIDS to INHIBIT LOGONs during the install? YES//', respond NO 5. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES//', respond NO. 6. Following installation of this patch, it is necessary to run the [DG PTF UPDATE TRANSFER DRGs] option in order to make the transfer DRGs correspond to the appropriate grouper. This option updates/recalculates the transfer DRGs for PTF records opened during the current fiscal year (since 10/1/2006). The option is locked with the DG PTFSUP security key. The Menu path is PTF Menu/Update DRG Information Menu/Update Transfer DRGs for current FY. 7. All routines ICD1824* 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: ;;18.0;DRG Grouper;**[patch list]**;Oct 13,2000 OLD: CHECK^XTSUMBLD results Routine name Before Patch After Patch Patch List ============ ============ =========== ========== ICD1824A N/A 8374820 24 ICD1824B N/A 5997396 24 ICD1824C N/A 6725558 24 ICD1824G N/A 1247780 24 ICD1824N N/A 4004956 24 ICD1824O N/A 3319461 24 ICD1824P N/A 270364 24 ICD1824V N/A 464609 24 ICDDRG0 14675664 15132590 1,2,7,10,14 17,20,24 ICDDRG1 1346812 2300088 10,17,24 ICDDRG10 591066 674408 24 ICDDRG11 N/A 593949 24 ICDDRG13 842033 1176323 24 ICDDRG2 1319038 1469750 24 ICDDRG3 1197634 1615589 24 ICDDRG6 728191 1219216 24 ICDDRG8 3369636 4348657 1,2,10,20,24 ICDHLPD 1673689 1685042 10,14,20,24 ICDTLB1C N/A 6998576 24 ICDTLB2C N/A 9423643 24 ICDTLB3C N/A 7293400 24 ICDTLB4C N/A 8003678 24 ICDTLB5C N/A 10043158 24 ICDTLB6C N/A 15695198 24 NEW - CHECK1^XTSUMBLD results Routine name Before Patch After Patch Patch List ============ ============ =========== ========== ICD1824A N/A 42212472 24 ICD1824B N/A 25548746 24 ICD1824C N/A 53399050 24 ICD1824G N/A 6570350 24 ICD1824N N/A 49011482 24 ICD1824O N/A 8682388 24 ICD1824P N/A 469766 24 ICD1824V N/A 732365 24 ICDDRG0 33851546 35377486 1,2,7,10,14 17,20,24 ICDDRG1 2858628 8213323 10,17,24 ICDDRG10 659897 840448 24 ICDDRG11 N/A 663436 24 ICDDRG13 1120711 2133378 24 ICDDRG2 1561190 2035029 24 ICDDRG3 1753840 3341300 24 ICDDRG6 975086 2492700 24 ICDDRG8 9006336 16689322 1,2,10,20,24 ICDHLPD 5666760 5770053 10,14,20,24 ICDTLB1C N/A 17887349 24 ICDTLB2C N/A 26651023 24 ICDTLB3C N/A 21430825 24 ICDTLB4C N/A 17888507 24 ICDTLB5C N/A 21200436 24 ICDTLB6C N/A 58004450 24 Routine Information: ==================== The checksums below are new checksums, and can be checked with CHECK1^XTSUMBLD. Routine Name: ICD1824A Before: n/a After: B42212472 **24** Routine Name: ICD1824B Before: n/a After: B25548746 **24** Routine Name: ICD1824C Before: n/a After: B53399050 **24** Routine Name: ICD1824G Before: n/a After: B6570350 **24** Routine Name: ICD1824N Before: n/a After: B49011482 **24** Routine Name: ICD1824O Before: n/a After: B8682388 **24** Routine Name: ICD1824P Before: n/a After: B469766 **24** Routine Name: ICD1824V Before: n/a After: B732365 **24** Routine Name: ICDDRG0 Before: B33851546 After: B35377486 **1,2,7,10,14,17,20,24** Description of Changes: ICDDRG0.INT.1 |"PATVEE"|ICDDRG0.INT.1 ************************************************************************** ***** ICDDRG0.INT.1 +2 ;;18.0;DRG Grouper;**1,2,7,10,14,17,20,24**;Oct 20, 2000 ................... |"PATVEE"|ICDDRG0.INT.1 +2 ;;18.0;DRG Grouper;**1,2,7,10,14,17,20**;Oct 20, 2000 --------------------------------------- ICDDRG0.INT.1 +26 ;I ICDMDC=18,ICDOR["O"!(ICDORNI["O") S ICDRG=415 G END ;;disabled by ICD*18*24 and new DRGs 578/579 - see ICDTLB6C ................... |"PATVEE"|ICDDRG0.INT.1 +26 I ICDMDC=18,ICDOR["O"!(ICDORNI["O") S ICDRG=415 G END --------------------------------------- ICDDRG0.INT.1 +53 I 'DRGFY S DRGFY=3061001 ;default to current fiscal year ................... |"PATVEE"|ICDDRG0.INT.1 +53 I 'DRGFY S DRGFY=3051001 ;default to current fiscal year --------------------------------------- ICDDRG0.INT.1 +66 ;ICD*18*24 check for higher numbered DRG (such as new DRG 561) befo re checking for 489 in CKHIV^ICDDRGX +67 I ICDRG=489!(ICDRG=490)!(ICDRG=543&($G(ICDOR)="")) S ICDRG=$P($G(IC DPDRG),U,2) I ICDRG=543 S ICDRG=561 ................... |"PATVEE"|ICDDRG0.INT.1 --------------------------------------- ICDDRG0.INT.1 +72 I (ICDDATE>3060930.9)&($D(ICDOP(" 37.63")))&($D(ICDOP(" 37.64"))) S ICDRG=103,ICDNMDC(1)="" ................... |"PATVEE"|ICDDRG0.INT.1 ************************************************************************** ***** Routine Name: ICDDRG1 Before: B2858628 After: B8213323 **10,17,24** Description of Changes: ICDDRG1.INT.1 |"PATVEE"|ICDDRG1.INT.1 ************************************************************************** ***** ICDDRG1.INT.1 +2 ;;18.0;DRG Grouper;**10,17,24**;Oct 20, 2000 +3 Q:$O(ICDODRG(0))'>0 K ICDJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:I CDJ'>0 D +4 .I ICDDATE<3061001 D F +5 .E D FY2007 ................... |"PATVEE"|ICDDRG1.INT.1 +2 ;;18.0;DRG Grouper;**10,17**;Oct 20, 2000 +3 Q:$O(ICDODRG(0))'>0 K ICDJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:I CDJ'>0 D F --------------------------------------- ICDDRG1.INT.1 +46 FY2007 ; +47 I ICDJ=3 S ICDJ(1)=ICDJ Q +48 I ICDJ=528 S ICDJ(2)=ICDJ Q +49 I ICDJ=543 S ICDJ(3)=ICDJ Q +50 I ICDJ=1 S ICDJ(4)=ICDJ Q +51 I ICDJ=531 S ICDJ(5)=ICDJ Q +52 I ICDJ=529 S ICDJ(6)=ICDJ Q +53 I ICDJ=577 S ICDJ(7)=ICDJ Q +54 I ICDJ=533 S ICDJ(8)=ICDJ Q +55 I ICDJ=6 S ICDJ(9)=ICDJ Q +56 I ICDJ=7 S ICDJ(10)=ICDJ Q +57 I ICDJ=8 S ICDJ(11)=ICDJ Q +58 I ICDJ=9 S ICDJ(12)=ICDJ Q +59 I ICDJ=10 S ICDJ(13)=ICDJ Q +60 I ICDJ=11 S ICDJ(14)=ICDJ Q +61 I ICDJ=12 S ICDJ(15)=ICDJ Q +62 I ICDJ=13 S ICDJ(16)=ICDJ Q +63 I ICDJ=14 S ICDJ(17)=ICDJ Q +64 I ICDJ=15 S ICDJ(18)=ICDJ Q +65 I ICDJ=524 S ICDJ(19)=ICDJ Q +66 I ICDJ=16 S ICDJ(20)=ICDJ Q +67 I ICDJ=17 S ICDJ(21)=ICDJ Q +68 I ICDJ=18 S ICDJ(22)=ICDJ Q +69 I ICDJ=19 S ICDJ(23)=ICDJ Q +70 I ICDJ=20 S ICDJ(24)=ICDJ Q +71 I ICDJ=21 S ICDJ(25)=ICDJ Q +72 I ICDJ=22 S ICDJ(26)=ICDJ Q +73 I ICDJ=23 S ICDJ(27)=ICDJ Q +74 I ICDJ=24 S ICDJ(28)=ICDJ Q +75 I ICDJ=25 S ICDJ(29)=ICDJ Q +76 I ICDJ=26 S ICDJ(30)=ICDJ Q +77 I ICDJ=27 S ICDJ(31)=ICDJ Q +78 I ICDJ=28 S ICDJ(32)=ICDJ Q +79 I ICDJ=29 S ICDJ(33)=ICDJ Q +80 I ICDJ=30 S ICDJ(34)=ICDJ Q +81 I ICDJ=31 S ICDJ(35)=ICDJ Q +82 I ICDJ=32 S ICDJ(36)=ICDJ Q +83 I ICDJ=33 S ICDJ(37)=ICDJ Q +84 I ICDJ=34 S ICDJ(38)=ICDJ Q +85 I ICDJ=35 S ICDJ(39)=ICDJ Q +86 Q ................... |"PATVEE"|ICDDRG1.INT.1 ************************************************************************** ***** Routine Name: ICDDRG10 Before: B659897 After: B840448 **24** Description of Changes: ICDDRG10.INT.1 |"PATVEE"|ICDDRG10.INT.1 ************************************************************************** ***** ICDDRG10.INT.1 +2 ;;18.0;DRG Grouper;**24**;Oct 20, 2000 +3 Q:$O(ICDODRG(0))'>0 K ICDJ,ICDJJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ )) Q:ICDJ'>0 S ICDJJ(ICDJ)="" D +4 . I ICDDATE<3061001 D F +5 . E D FY2007 ................... |"PATVEE"|ICDDRG10.INT.1 +2 ;;18.0;DRG Grouper;**1**;Oct 20, 2000 +3 Q:$O(ICDODRG(0))'>0 K ICDJ,ICDJJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ )) Q:ICDJ'>0 S ICDJJ(ICDJ)="" D F --------------------------------------- ICDDRG10.INT.1 +11 FY2007 ; +12 I ICDJ=286 S ICDJ(1)=ICDJ Q +13 I ICDJ=285 S ICDJ(2)=ICDJ Q +14 I ICDJ=288 S ICDJ(3)=ICDJ +15 Q ................... |"PATVEE"|ICDDRG10.INT.1 Routine Name: ICDDRG11 Before: n/a After: B663436 **24** Routine Name: ICDDRG13 Before: B1120711 After: B2133378 **24** Description of Changes: ICDDRG13.INT.1 |"PATVEE"|ICDDRG13.INT.1 ************************************************************************** ***** ICDDRG13.INT.1 +2 ;;18.0;DRG Grouper;**24**;Oct 20, 2000 +3 Q:$O(ICDODRG(0))'>0 K ICDJ,ICDJJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ )) Q:ICDJ'>0 S ICDJJ(ICDJ)="" D +4 . I ICDDATE<3061001 D F +5 . E D FY2007 ................... |"PATVEE"|ICDDRG13.INT.1 +2 ;;18.0;DRG Grouper;;Oct 20, 2000 +3 Q:$O(ICDODRG(0))'>0 K ICDJ,ICDJJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ )) Q:ICDJ'>0 S ICDJJ(ICDJ)="" D F --------------------------------------- ICDDRG13.INT.1 +21 FY2007 ; +22 I ICDJ=353 S ICDJ(1)=ICDJ Q +23 I ICDJ=357 S ICDJ(2)=ICDJ Q +24 I ICDJ=354 S ICDJ(3)=ICDJ Q +25 I ICDJ=355 S ICDJ(4)=ICDJ Q +26 I ICDJ=358 S ICDJ(5)=ICDJ Q +27 I ICDJ=359 S ICDJ(6)=ICDJ Q +28 I ICDJ=361 S ICDJ(7)=ICDJ Q +29 I ICDJ=363 S ICDJ(8)=ICDJ Q +30 I ICDJ=364 S ICDJ(9)=ICDJ Q +31 I ICDJ=360 S ICDJ(10)=ICDJ Q +32 I ICDJ=356 S ICDJ(11)=ICDJ Q +33 I ICDJ=362 S ICDJ(12)=ICDJ Q +34 I ICDJ=365 S ICDJ(13)=ICDJ +35 Q ................... |"PATVEE"|ICDDRG13.INT.1 ************************************************************************** ***** Routine Name: ICDDRG2 Before: B1561190 After: B2035029 **24** Description of Changes: ICDDRG2.INT.1 |"PATVEE"|ICDDRG2.INT.1 ************************************************************************** ***** ICDDRG2.INT.1 +2 ;;18.0;DRG Grouper;**24**;Oct 20, 2000 +3 Q:$O(ICDODRG(0))'>0 K ICDJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:I CDJ'>0 D +4 .I ICDDATE<3061001 D F +5 .E D FY2007 ................... |"PATVEE"|ICDDRG2.INT.1 +2 ;;18.0;DRG Grouper;;Oct 20, 2000 +3 Q:$O(ICDODRG(0))'>0 K ICDJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:I CDJ'>0 D F --------------------------------------- ICDDRG2.INT.1 +14 FY2007 ; +15 I ICDJ=37 S ICDJ(1)=ICDJ Q +16 I ICDJ=40 S ICDJ(2)=ICDJ Q +17 I ICDJ=42 S ICDJ(3)=ICDJ Q +18 I ICDJ=36 S ICDJ(4)=ICDJ Q +19 I ICDJ=39 S ICDJ(5)=ICDJ Q +20 I ICDJ=38 S ICDJ(6)=ICDJ Q ................... |"PATVEE"|ICDDRG2.INT.1 +12 VER S ICDF="",ICDL39=0 F ICDFZ=1:1 S ICDF=$O(ICDOP(ICDF)) Q:ICDF="" S ICD=$P(ICDF," ",2) I "12.91^12.92^14.71^14.72^14.73^14.74^14.75^14.79"'[I CD S ICDL39=1 Q +13 S ICDRG=$S(ICDL39:39,1:42) --------------------------------------- ICDDRG2.INT.1 +22 VER S ICDF="",ICDL39=0 F ICDFZ=1:1 S ICDF=$O(ICDOP(ICDF)) Q:ICDF="" S ICD=$P(ICDF," ",2) I "12.91^12.92^14.71^14.72^14.73^14.74^14.75^14.79"'[I CD S ICDL39=1 Q +23 S ICDRG=$S(ICDL39:39,1:42) +24 Q ................... |"PATVEE"|ICDDRG2.INT.1 ************************************************************************** ***** Routine Name: ICDDRG3 Before: B1753840 After: B3341300 **24** Description of Changes: ICDDRG3.INT.1 |"PATVEE"|ICDDRG3.INT.1 ************************************************************************** ***** ICDDRG3.INT.1 +2 ;;18.0;DRG Grouper;**24**;Oct 20, 2000 +3 Q:$O(ICDODRG(0))'>0 K ICDJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:I CDJ'>0 D +4 .I ICDDATE<3061001 D F +5 .E D FY2007 ................... |"PATVEE"|ICDDRG3.INT.1 +2 ;;18.0;DRG Grouper;;Oct 20, 2000 +3 Q:$O(ICDODRG(0))'>0 K ICDJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:I CDJ'>0 D F --------------------------------------- ICDDRG3.INT.1 +25 FY2007 ; +26 I ICDJ=49 S ICDJ(1)=ICDJ Q +27 I ICDJ=61 S ICDJ(2)=ICDJ Q +28 I ICDJ=62 S ICDJ(3)=ICDJ Q +29 I ICDJ=53 S ICDJ(4)=ICDJ Q +30 I ICDJ=54 S ICDJ(5)=ICDJ Q +31 I ICDJ=168 S ICDJ(6)=ICDJ Q +32 I ICDJ=169 S ICDJ(7)=ICDJ Q +33 I ICDJ=57 S ICDJ(8)=ICDJ Q +34 I ICDJ=58 S ICDJ(9)=ICDJ Q +35 I ICDJ=52 S ICDJ(10)=ICDJ Q +36 I ICDJ=56 S ICDJ(11)=ICDJ Q +37 I ICDJ=50 S ICDJ(12)=ICDJ Q +38 I ICDJ=51 S ICDJ(13)=ICDJ Q +39 I ICDJ=55 S ICDJ(14)=ICDJ Q +40 I ICDJ=59 S ICDJ(15)=ICDJ Q +41 I ICDJ=60 S ICDJ(16)=ICDJ Q +42 I ICDJ=63 S ICDJ(17)=ICDJ Q ................... |"PATVEE"|ICDDRG3.INT.1 +23 EN1 ; +24 I $D(ICDOP(" 28.2"))!($D(ICDOP(" 28.3")))!($D(ICDOP(" 28.6"))) S IC DRG=$S(ICDOCNT>1:$S(AGE>17:57,1:58),1:ICDRG) --------------------------------------- ICDDRG3.INT.1 +44 EN1 ; +45 I $D(ICDOP(" 28.2"))!($D(ICDOP(" 28.3")))!($D(ICDOP(" 28.6"))) S IC DRG=$S(ICDOCNT>1:$S(AGE>17:57,1:58),1:ICDRG) +46 Q ................... |"PATVEE"|ICDDRG3.INT.1 ************************************************************************** ***** Routine Name: ICDDRG6 Before: B975086 After: B2492700 **24** Description of Changes: ICDDRG6.INT.1 |"PATVEE"|ICDDRG6.INT.1 ************************************************************************** ***** ICDDRG6.INT.1 +2 ;;18.0;DRG Grouper;**24**;Oct 20, 2000 +3 Q:$O(ICDODRG(0))'>0 K ICDJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:I CDJ'>0 D +4 .I ICDDATE<3061001 D F +5 .E D FY2007 ................... |"PATVEE"|ICDDRG6.INT.1 +2 ;;18.0;DRG Grouper;;Oct 20, 2000 +3 Q:$O(ICDODRG(0))'>0 K ICDJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:I CDJ'>0 D F --------------------------------------- ICDDRG6.INT.1 +20 FY2007 ; +21 I ICDJ=154 S ICDJ(1)=ICDJ Q +22 I ICDJ=567 S ICDJ(2)=ICDJ Q +23 I ICDJ=568 S ICDJ(3)=ICDJ Q +24 I ICDJ=155 S ICDJ(4)=ICDJ Q +25 I ICDJ=156 S ICDJ(5)=ICDJ Q +26 I ICDJ=148 S ICDJ(6)=ICDJ Q +27 I ICDJ=569 S ICDJ(7)=ICDJ Q +28 I ICDJ=570 S ICDJ(8)=ICDJ Q +29 I ICDJ=149 S ICDJ(9)=ICDJ Q +30 I ICDJ=146 S ICDJ(10)=ICDJ Q +31 I ICDJ=150 S ICDJ(11)=ICDJ Q +32 I ICDJ=164 S ICDJ(12)=ICDJ Q +33 I ICDJ=166 S ICDJ(13)=ICDJ Q +34 I ICDJ=152 S ICDJ(14)=ICDJ Q +35 I ICDJ=157 S ICDJ(15)=ICDJ Q +36 I ICDJ=161 S ICDJ(16)=ICDJ Q +37 I ICDJ=159 S ICDJ(17)=ICDJ Q +38 I ICDJ=163 S ICDJ(18)=ICDJ Q +39 I ICDJ=170 S ICDJ(19)=ICDJ +40 Q ................... |"PATVEE"|ICDDRG6.INT.1 ************************************************************************** ***** Routine Name: ICDDRG8 Before: B9006336 After: B16689322 **1,2,10,20,24** Description of Changes: ICDDRG8.INT.1 |"PATVEE"|ICDDRG8.INT.1 ************************************************************************** ***** ICDDRG8.INT.1 +2 ;;18.0;DRG Grouper;**1,2,10,20,24**;Oct 20, 2000 ................... |"PATVEE"|ICDDRG8.INT.1 +2 ;;18.0;DRG Grouper;**1,2,10,20**;Oct 20, 2000 --------------------------------------- ICDDRG8.INT.1 +5 .E I ICDDATE<3061001 D FY2006 +6 .E D FY2007 ................... |"PATVEE"|ICDDRG8.INT.1 +5 .E D FY2006 --------------------------------------- ICDDRG8.INT.1 +73 FY2007 ; +74 I ICDJ=496 S ICDJ(1)=ICDJ Q +75 I ICDJ=546 S ICDJ(2)=ICDJ Q +76 I ICDJ=497 S ICDJ(3)=ICDJ Q +77 I ICDJ=498 S ICDJ(4)=ICDJ Q +78 I ICDJ=471 S ICDJ(5)=ICDJ Q +79 I ICDJ=217 S ICDJ(6)=ICDJ Q +80 I ICDJ=545 S ICDJ(7)=ICDJ Q +81 I ICDJ=544 S ICDJ(8)=ICDJ Q +82 I ICDJ=519 S ICDJ(9)=ICDJ Q +83 I ICDJ=520 S ICDJ(10)=ICDJ Q +84 I ICDJ=213 S ICDJ(11)=ICDJ Q +85 I ICDJ=216 S ICDJ(12)=ICDJ Q +86 I ICDJ=210 S ICDJ(13)=ICDJ Q +87 I ICDJ=211 S ICDJ(14)=ICDJ Q +88 I ICDJ=212 S ICDJ(15)=ICDJ Q +89 I ICDJ=491 S ICDJ(16)=ICDJ Q +90 I ICDJ=501 S ICDJ(17)=ICDJ Q +91 I ICDJ=502 S ICDJ(18)=ICDJ Q +92 I ICDJ=503 S ICDJ(19)=ICDJ Q +93 I ICDJ=499 S ICDJ(20)=ICDJ Q +94 I ICDJ=500 S ICDJ(21)=ICDJ Q +95 I ICDJ=218 S ICDJ(22)=ICDJ Q +96 I ICDJ=219 S ICDJ(23)=ICDJ Q +97 I ICDJ=220 S ICDJ(24)=ICDJ Q +98 I ICDJ=537 S ICDJ(25)=ICDJ Q +99 I ICDJ=538 S ICDJ(26)=ICDJ Q +100 I ICDJ=230 S ICDJ(27)=ICDJ Q +101 I ICDJ=226 S ICDJ(28)=ICDJ Q +102 I ICDJ=227 S ICDJ(29)=ICDJ Q +103 I ICDJ=225 S ICDJ(30)=ICDJ Q +104 I ICDJ=228 S ICDJ(31)=ICDJ Q +105 I ICDJ=223 S ICDJ(32)=ICDJ Q +106 I ICDJ=232 S ICDJ(33)=ICDJ Q +107 I ICDJ=224 S ICDJ(34)=ICDJ Q +108 I ICDJ=229 S ICDJ(35)=ICDJ Q +109 I ICDJ=233 S ICDJ(36)=ICDJ Q +110 I ICDJ=234 S ICDJ(37)=ICDJ Q ................... |"PATVEE"|ICDDRG8.INT.1 +72 EN1 ; paired spinal fusion codes +73 S ICDCC3=0 +74 ;I $D(ICDOP(" 81.02"))!$D(ICDOP(" 81.04"))!$D(ICDOP(" 81.06"))&($D( ICDOP(" 81.03"))!$D(ICDOP(" 81.05"))!$D(ICDOP(" 81.08"))) S ICDCC3=1 +75 N ICDA,ICDB S (ICDA,ICDB)=0 +76 I $D(ICDOP(" 81.02"))!$D(ICDOP(" 81.04"))!$D(ICDOP(" 81.06"))!$D(IC DOP(" 81.32"))!$D(ICDOP(" 81.34"))!$D(ICDOP(" 81.36")) S ICDA=1 +77 I $D(ICDOP(" 81.03"))!$D(ICDOP(" 81.05"))!$D(ICDOP(" 81.07"))!$D(IC DOP(" 81.08"))!$D(ICDOP(" 81.33"))!$D(ICDOP(" 81.35"))!$D(ICDOP(" 81.37") )!$D(ICDOP(" 81.38")) S ICDB=1 +78 I ICDA&ICDB S ICDCC3=1 --------------------------------------- ICDDRG8.INT.1 +112 EN1 ; paired spinal fusion codes +113 S ICDCC3=0 +114 ;I $D(ICDOP(" 81.02"))!$D(ICDOP(" 81.04"))!$D(ICDOP(" 81.06"))&($D( ICDOP(" 81.03"))!$D(ICDOP(" 81.05"))!$D(ICDOP(" 81.08"))) S ICDCC3=1 +115 N ICDA,ICDB S (ICDA,ICDB)=0 +116 I $D(ICDOP(" 81.02"))!$D(ICDOP(" 81.04"))!$D(ICDOP(" 81.06"))!$D(IC DOP(" 81.32"))!$D(ICDOP(" 81.34"))!$D(ICDOP(" 81.36")) S ICDA=1 +117 I $D(ICDOP(" 81.03"))!$D(ICDOP(" 81.05"))!$D(ICDOP(" 81.07"))!$D(IC DOP(" 81.08"))!$D(ICDOP(" 81.33"))!$D(ICDOP(" 81.35"))!$D(ICDOP(" 81.37") )!$D(ICDOP(" 81.38")) S ICDB=1 +118 I ICDA&ICDB S ICDCC3=1 +119 Q ................... |"PATVEE"|ICDDRG8.INT.1 ************************************************************************** ***** Routine Name: ICDHLPD Before: B5666760 After: B5770053 **10,14,20,24** Description of Changes: ICDHLPD.INT.1 |"PATVEE"|ICDHLPD.INT.1 ************************************************************************** ***** ICDHLPD.INT.1 +2 ;;18.0;DRG Grouper;**10,14,20,24**;Oct 20, 2000 ................... |"PATVEE"|ICDHLPD.INT.1 +2 ;;18.0;DRG Grouper;**10,14,20**;Oct 20, 2000 --------------------------------------- ICDHLPD.INT.1 +62 ;;s=MCV in 2ndry +63 ;;g=major GI dx ................... |"PATVEE"|ICDHLPD.INT.1 +62 ;;s=MCV in 2ndry ************************************************************************** ***** Routine Name: ICDTLB1C Before: n/a After: B17887349 **24** Description of Changes: ICDTLB1C.INT.1 |"PATVEE"|ICDTLB1B.INT.1 ************************************************************************** ***** ICDTLB1C.INT.1 +1 ICDTLB1C ;ALB/EG - GROUPER UTILITY FUNCTIONS FY 2007; 8/19/04 3:19pm ; 6/ 28/05 4:01pm +2 ;;18.0;DRG Grouper;**24**;Oct 20, 2000 +3 DRG1 D DRG528 D:ICDRG'=528 DRG543^ICDTLB6C D:ICDRG'=543 DRG529 ................... |"PATVEE"|ICDTLB1B.INT.1 +1 ICDTLB1B ;ALB/EG - GROUPER UTILITY FUNCTIONS FY 2006; 8/19/04 3:19pm ; 6/ 28/05 4:01pm +2 ;;18.0;DRG Grouper;**20**;Oct 20, 2000 +3 DRG1 D DRG528 D:ICDRG'=528 DRG543^ICDTLB6B D:ICDRG'=543 DRG529 --------------------------------------- ICDTLB1C.INT.1 +22 DRG26 S ICDRG=$S(AGE<18:26,$D(ICDRG(564)):564,ICDCC:562,1:563) I AGE="" S ICDRTC=3,ICDRG=470 ................... |"PATVEE"|ICDTLB1B.INT.1 +22 DRG26 S ICDRG=$S(AGE<18:26,ICDCC:24,1:25) I AGE="" S ICDRTC=3,ICDRG=470 --------------------------------------- ICDTLB1C.INT.1 Date last edited: ................... |"PATVEE"|ICDTLB1B.INT.1 Date last edited: ************************************************************************** ***** Routine Name: ICDTLB2C Before: n/a After: B26651023 **24** Description of Changes: ICDTLB2C.INT.1 |"PATVEE"|ICDTLB2B.INT.1 ************************************************************************** ***** ICDTLB2C.INT.1 +1 ICDTLB2C ;ALB/EG - GROUPER UTILITY FUNCTIONS FY 2007; 9/19/03 1:09pm ; 6/ 28/05 4:02pm +2 ;;18.0;DRG Grouper;**24**;Oct 20, 2000 ................... |"PATVEE"|ICDTLB2B.INT.1 +1 ICDTLB2B ;ALB/EG - GROUPER UTILITY FUNCTIONS FY 2006; 9/19/03 1:09pm ; 6/ 28/05 4:02pm +2 ;;18.0;DRG Grouper;**20**;Oct 20, 2000 --------------------------------------- ICDTLB2C.INT.1 +26 I ICDOR["b" D DRG549^ICDTLB6C ................... |"PATVEE"|ICDTLB2B.INT.1 +26 I ICDOR["b" D DRG549^ICDTLB6B --------------------------------------- ICDTLB2C.INT.1 +28 I ICDOR["b" I $D(ICDOP(" 37.21"))!($D(ICDOP(" 37.22")))!($D(ICDOP(" 37.23"))) D DRG547^ICDTLB6C Q +29 I ICDOR["b" I $D(ICDOP(" 88.52"))!($D(ICDOP(" 88.53")))!($D(ICDOP(" 88.54")))!($D(ICDOP(" 88.55")))!($D(ICDOP(" 88.56")))!($D(ICDOP(" 88.57" )))!($D(ICDOP(" 88.58"))) D DRG547^ICDTLB6C Q ................... |"PATVEE"|ICDTLB2B.INT.1 +28 I ICDOR["b" I $D(ICDOP(" 37.21"))!($D(ICDOP(" 37.22")))!($D(ICDOP(" 37.23"))) D DRG547^ICDTLB6B Q +29 I ICDOR["b" I $D(ICDOP(" 88.52"))!($D(ICDOP(" 88.53")))!($D(ICDOP(" 88.54")))!($D(ICDOP(" 88.55")))!($D(ICDOP(" 88.56")))!($D(ICDOP(" 88.57" )))!($D(ICDOP(" 88.58"))) D DRG547^ICDTLB6B Q --------------------------------------- ICDTLB2C.INT.1 +43 I $D(ICDJJ(478))&('$D(ICDJJ(110))&'($D(ICDJJ(111)))) D DRG478^ICDTL B6C ................... |"PATVEE"|ICDTLB2B.INT.1 +43 I $D(ICDJJ(478))&('$D(ICDJJ(110))&'($D(ICDJJ(111)))) D DRG478^ICDTL B6B --------------------------------------- ICDTLB2C.INT.1 +46 I ICDOR["1" D DRG516^ICDTLB6C ................... |"PATVEE"|ICDTLB2B.INT.1 +46 I ICDOR["1" D DRG516^ICDTLB6B --------------------------------------- ICDTLB2C.INT.1 +56 I ICDCC2=1!(ICDCC3=1) D DRG551^ICDTLB6C ................... |"PATVEE"|ICDTLB2B.INT.1 +56 I ICDCC2=1!(ICDCC3=1) D DRG551^ICDTLB6B --------------------------------------- ICDTLB2C.INT.1 +67 S ICDRG=118 I $D(ICDOP(" 00.56")) S ICDRG=120 +68 Q ................... |"PATVEE"|ICDTLB2B.INT.1 +67 S ICDRG=118 Q --------------------------------------- ICDTLB2C.INT.1 +101 DRG148 S ICDRG=$S('ICDCC:149,(ICDPD["g"!(ICDSD["g")):569,1:570) Q +102 DRG149 G DRG148 ;;S ICDRG=$S(ICDCC:148,1:149) Q ................... |"PATVEE"|ICDTLB2B.INT.1 +100 DRG148 S ICDRG=$S(ICDCC:148,1:149) Q +101 DRG149 S ICDRG=$S(ICDCC:148,1:149) Q --------------------------------------- ICDTLB2C.INT.1 +107 DRG154 S ICDRG=$S(AGE<18:156,'ICDCC:155,(ICDPD["g"!(ICDSD["g")):567,1:568 ) I AGE="" S ICDRG=470,ICDRTC=3 ................... |"PATVEE"|ICDTLB2B.INT.1 +106 DRG154 S ICDRG=$S(AGE<18:156,ICDCC:154,1:155) I AGE="" S ICDRG=470,ICDRTC =3 --------------------------------------- ICDTLB2C.INT.1 +109 DRG155 G DRG154 ;;S ICDRG=$S(AGE<18:156,ICDCC:154,1:155) I AGE="" S ICDR G=470,ICDRTC=3 ................... |"PATVEE"|ICDTLB2B.INT.1 +108 DRG155 S ICDRG=$S(AGE<18:156,ICDCC:154,1:155) I AGE="" S ICDRG=470,ICDRTC =3 --------------------------------------- ICDTLB2C.INT.1 +111 DRG156 G DRG154 ;;S ICDRG=$S(AGE<18:156,ICDCC:154,1:155) I AGE="" S ICDR G=470,ICDRTC=3 ................... |"PATVEE"|ICDTLB2B.INT.1 +110 DRG156 S ICDRG=$S(AGE<18:156,ICDCC:154,1:155) I AGE="" S ICDRG=470,ICDRTC =3 --------------------------------------- ICDTLB2C.INT.1 Date last edited: ................... |"PATVEE"|ICDTLB2B.INT.1 Date last edited: ************************************************************************** ***** Routine Name: ICDTLB3C Before: n/a After: B21430825 **24** Description of Changes: ICDTLB3C.INT.1 |"PATVEE"|ICDTLB3B.INT.1 ************************************************************************** ***** ICDTLB3C.INT.1 +1 ICDTLB3C ;ALB/EG - GROUPER UTILITY FUNCTIONS FY 2007; 10/23/00 11:48am ; 6/28/05 4:03pm +2 ;;18.0;DRG Grouper;**24**;Oct 20, 2000 ................... |"PATVEE"|ICDTLB3B.INT.1 +1 ICDTLB3B ;ALB/EG - GROUPER UTILITY FUNCTIONS FY 2006; 10/23/00 11:48am ; 6/28/05 4:03pm +2 ;;18.0;DRG Grouper;**20**;Oct 20, 2000 --------------------------------------- ICDTLB3C.INT.1 +53 DRG195 G:ICDOR["TT" DRG493^ICDTLB6C D DRG193 Q ................... |"PATVEE"|ICDTLB3B.INT.1 +53 DRG195 G:ICDOR["TT" DRG493^ICDTLB6B D DRG193 Q --------------------------------------- ICDTLB3C.INT.1 Date last edited: ................... |"PATVEE"|ICDTLB3B.INT.1 Date last edited: ************************************************************************** ***** Routine Name: ICDTLB4C Before: n/a After: B17888507 **24** Description of Changes: ICDTLB4C.INT.1 |"PATVEE"|ICDTLB4B.INT.1 ************************************************************************** ***** ICDTLB4C.INT.1 +1 ICDTLB4C ;ALB/EG - GROUPER UTILITY FUNCTIONS FY 2007; 10/23/00 11:48am ; 6/28/05 4:04pm +2 ;;18.0;DRG Grouper;**24**;Oct 20, 2000 ................... |"PATVEE"|ICDTLB4B.INT.1 +1 ICDTLB4B ;ALB/EG - GROUPER UTILITY FUNCTIONS FY 2006; 10/23/00 11:48am ; 6/28/05 4:04pm +2 ;;18.0;DRG Grouper;**20**;Oct 20, 2000 --------------------------------------- ICDTLB4C.INT.1 Date last edited: ................... |"PATVEE"|ICDTLB4B.INT.1 Date last edited: ************************************************************************** ***** Routine Name: ICDTLB5C Before: n/a After: B21200436 **24** Description of Changes: ICDTLB5C.INT.1 |"PATVEE"|ICDTLB5B.INT.1 ************************************************************************** ***** ICDTLB5C.INT.1 +1 ICDTLB5C ;ALB/EG/ADL - GROUPER UTILITY FUNCTIONS FY 2007; 10/23/00 11:49a m ; 6/28/05 4:05pm +2 ;;18.0;DRG Grouper;**24**;Oct 20, 2000 ................... |"PATVEE"|ICDTLB5B.INT.1 +1 ICDTLB5B ;ALB/EG/ADL - GROUPER UTILITY FUNCTIONS FY 2006; 10/23/00 11:49a m ; 6/28/05 4:05pm +2 ;;18.0;DRG Grouper;**20**;Oct 20, 2000 --------------------------------------- ICDTLB5C.INT.1 Date last edited: ................... |"PATVEE"|ICDTLB5B.INT.1 Date last edited: ************************************************************************** ***** Routine Name: ICDTLB6C Before: n/a After: B58004450 **24** Description of Changes: ICDTLB6C.INT.1 |"PATVEE"|ICDTLB6B.INT.1 ************************************************************************** ***** ICDTLB6C.INT.1 +1 ICDTLB6C ;ALB/EG/MRY - GROUPER UTILITY FUNCTIONS FY 2007; 9/29/03 2:47pm ; 6/28/05 4:06pm +2 ;;18.0;DRG Grouper;**24**;Oct 20, 2000 ................... |"PATVEE"|ICDTLB6B.INT.1 +1 ICDTLB6B ;ALB/EG/MRY - GROUPER UTILITY FUNCTIONS FY 2006; 9/29/03 2:47pm ; 6/28/05 4:06pm +2 ;;18.0;DRG Grouper;**20,22**;Oct 20, 2000 --------------------------------------- ICDTLB6C.INT.1 +30 DRG416 S ICDRG=$S(ICDOR["O":578,AGE="":470,AGE>17:576,1:417),ICDRTC=$S(IC DRG=470:3,1:ICDRTC) I ICDRG=576&($D(ICDOP(" 96.72"))) S ICDRG=575 +31 Q +32 DRG417 S ICDRG=$S(ICDOR["O":578,AGE="":470,AGE>17:576,1:417),ICDRTC=$S(IC DRG=470:3,1:ICDRTC) Q +33 DRG418 S ICDRG=$S(ICDOR["O":579,1:418) Q +34 DRG419 S ICDRG=$S(ICDOR["O":578,AGE="":470,AGE<18:422,ICDCC:419,1:420),IC DRTC=$S(ICDRG=470:3,1:ICDRTC) Q +35 DRG420 S ICDRG=$S(ICDOR["O":578,AGE="":470,AGE<18:422,ICDCC:419,1:420),IC DRTC=$S(ICDRG=470:3,1:ICDRTC) Q +36 DRG421 S ICDRG=$S(ICDOR["O":578,AGE="":470,AGE>17:421,1:422),ICDRTC=$S(IC DRG=470:3,1:ICDRTC) Q +37 DRG422 S ICDRG=$S(ICDOR["O":578,AGE="":470,AGE>17:421,1:422),ICDRTC=$S(IC DRG=470:3,1:ICDRTC) Q +38 DRG423 S ICDRG=$S(ICDOR["O":578,1:423) I ICDRG=578&(ICDDX(1)=7615) S ICDR G=579 +39 Q ................... |"PATVEE"|ICDTLB6B.INT.1 +30 DRG416 S ICDRG=$S(ICDOR["O":415,AGE="":470,AGE>17:416,1:417),ICDRTC=$S(IC DRG=470:3,1:ICDRTC) Q +31 DRG417 S ICDRG=$S(ICDOR["O":415,AGE="":470,AGE>17:416,1:417),ICDRTC=$S(IC DRG=470:3,1:ICDRTC) Q +32 DRG418 S ICDRG=$S(ICDOR["O":415,1:418) Q +33 DRG419 S ICDRG=$S(ICDOR["O":415,AGE="":470,AGE<18:422,ICDCC:419,1:420),IC DRTC=$S(ICDRG=470:3,1:ICDRTC) Q +34 DRG420 S ICDRG=$S(ICDOR["O":415,AGE="":470,AGE<18:422,ICDCC:419,1:420),IC DRTC=$S(ICDRG=470:3,1:ICDRTC) Q +35 DRG421 S ICDRG=$S(ICDOR["O":415,AGE="":470,AGE>17:421,1:422),ICDRTC=$S(IC DRG=470:3,1:ICDRTC) Q +36 DRG422 S ICDRG=$S(ICDOR["O":415,AGE="":470,AGE>17:421,1:422),ICDRTC=$S(IC DRG=470:3,1:ICDRTC) Q +37 DRG423 S ICDRG=$S(ICDOR["O":415,1:423) Q --------------------------------------- ICDTLB6C.INT.1 +86 I ICDRG=478 D DRG553^ICDTLB6C ................... |"PATVEE"|ICDTLB6B.INT.1 +84 I ICDRG=478 D DRG553^ICDTLB6B --------------------------------------- ICDTLB6C.INT.1 +138 DRG533 S ICDRG=$S(ICDCC:533,1:534) I $D(ICDOP(" 00.61"))&($D(ICDOP(" 00.6 3"))) S ICDRG=577 +139 Q ................... |"PATVEE"|ICDTLB6B.INT.1 +136 DRG533 S ICDRG=$S(ICDCC:533,1:534) Q --------------------------------------- ICDTLB6C.INT.1 +141 DRG535 N ICDE1,ICDE2,ICDE3,ICDE4 ................... |"PATVEE"|ICDTLB6B.INT.1 +138 DRG535 N ICDE1,ICDE2,ICDE3 --------------------------------------- ICDTLB6C.INT.1 +146 S ICDE4=$S($D(ICDOP(" 37.74"))&(($D(ICDOP(" 37.96")))!($D(ICDOP(" 3 7.98")))!($D(ICDOP(" 00.54")))):1,1:0) ................... |"PATVEE"|ICDTLB6B.INT.1 --------------------------------------- ICDTLB6C.INT.1 +148 I $D(ICDOP(" 37.94"))!$D(ICDOP(" 00.51")) I ICDE1+ICDE2+ICDE3+ICDE4 =0 S ICDRG=515 +149 I '$D(ICDOP(" 37.94"))&('$D(ICDOP(" 00.51"))) I ICDE1!ICDE2!ICDE3!I CDE4 S ICDRG=515 ................... |"PATVEE"|ICDTLB6B.INT.1 +144 I $D(ICDOP(" 37.94"))!$D(ICDOP(" 00.51")) I ICDE1+ICDE2+ICDE3=0 S I CDRG=515 +145 I '$D(ICDOP(" 37.94"))&('$D(ICDOP(" 00.51"))) I ICDE1!ICDE2!ICDE3 S ICDRG=515 --------------------------------------- ICDTLB6C.INT.1 +152 I ICDRG=470 D DRG115^ICDTLB2C ................... |"PATVEE"|ICDTLB6B.INT.1 +148 I ICDRG=470 D DRG115^ICDTLB2B --------------------------------------- ICDTLB6C.INT.1 +157 DRG539 I ICDPD["L"&(ICDMAJ'[3) D DRG401^ICDTLB5C Q:"401^402^403^404^405^4 70^473"[ICDRG ................... |"PATVEE"|ICDTLB6B.INT.1 +153 DRG539 I ICDPD["L"&(ICDMAJ'[3) D DRG401^ICDTLB5B Q:"401^402^403^404^405^4 70^473"[ICDRG --------------------------------------- ICDTLB6C.INT.1 +160 DRG543 S ICDRG=$S((ICDPD["Q")&(ICDOR["Q"):543,ICDOR["Q"&$D(ICDOP(" 00.10" )):543,$D(ICDOP(" 02.93"))&($D(ICDOP(" 86.95"))):543,1:ICDRG) Q ................... |"PATVEE"|ICDTLB6B.INT.1 +156 DRG543 S ICDRG=$S((ICDPD["Q")&(ICDOR["Q"):543,ICDOR["Q"&$D(ICDOP(" 00.10" )):543,1:ICDRG) Q --------------------------------------- ICDTLB6C.INT.1 +164 DRG547 ; called from DRG106^ICDTLB2C ................... |"PATVEE"|ICDTLB6B.INT.1 +160 DRG547 ; called from DRG106^ICDTLB2B --------------------------------------- ICDTLB6C.INT.1 +168 DRG549 ; called from DRG106^ICDTLB2C ................... |"PATVEE"|ICDTLB6B.INT.1 +164 DRG549 ; called from DRG106^ICDTLB2B --------------------------------------- ICDTLB6C.INT.1 +172 DRG551 ; called from DRG115^ICDTLB2C ................... |"PATVEE"|ICDTLB6B.INT.1 +168 DRG551 ; called from DRG115^ICDTLB2B --------------------------------------- ICDTLB6C.INT.1 +198 DRG560 Q +199 DRG561 Q +200 DRG562 Q +201 DRG563 Q +202 DRG564 Q +203 DRG565 Q +204 DRG566 Q +205 DRG567 Q +206 DRG568 Q +207 DRG569 Q +208 DRG570 Q +209 DRG571 Q +210 DRG572 Q +211 DRG573 Q +212 DRG574 Q +213 DRG575 Q +214 DRG576 Q +215 DRG577 Q +216 DRG578 Q +217 DRG579 Q ................... |"PATVEE"|ICDTLB6B.INT.1 --------------------------------------- ICDTLB6C.INT.1 Date last edited: ................... |"PATVEE"|ICDTLB6B.INT.1 Date last edited: ************************************************************************** ***** ============================================================================= User Information: Entered By : THEROUX,JOHN Date Entered : AUG 16, 2006 Completed By: BOWEN,MARY JANE Date Completed: NOV 28, 2006 Released By : CANNEDY,JOELLEN Date Released : NOV 29, 2006 ============================================================================= Packman Mail Message: ===================== $END TXT