ICDDRG6.m

ICDDRG6 ;ALB/GRR - FIX SURGERY HIERARCHY ; 10/23/00 11:40am

 ;;18.0;DRG Grouper;**24,27,31**;Oct 20, 2000;Build 7

 Q:$O(ICDODRG(0))'>0  K ICDJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:ICDJ'>0  D

 .I ICDDATE<3061001 D F Q

 .E  I ICDDATE<3071001 D FY2007 Q

 .E  D FY2008

END S ICDJ=$O(ICDJ(0)) Q:ICDJ'>0  S ICDJ=ICDJ(ICDJ) K ICDODRG S ICDODRG(ICDJ)="" K ICDJ Q

F I ICDJ=154 S ICDJ(1)=ICDJ Q

 I ICDJ=148 S ICDJ(2)=ICDJ Q

 I ICDJ=146 S ICDJ(3)=ICDJ Q

 I ICDJ=150 S ICDJ(4)=ICDJ Q

 I ICDJ=164 S ICDJ(5)=ICDJ Q

 I ICDJ=166 S ICDJ(6)=ICDJ Q

 I ICDJ=152 S ICDJ(7)=ICDJ Q

 I ICDJ=157 S ICDJ(8)=ICDJ Q

 I ICDJ=159 S ICDJ(9)=ICDJ Q

 I ICDJ=161 S ICDJ(10)=ICDJ Q

 I ICDJ=163 S ICDJ(11)=ICDJ Q

 I ICDJ=170 S ICDJ(12)=ICDJ

 Q

FY2007 ;

 I ICDJ=154 S ICDJ(1)=ICDJ Q

 I ICDJ=567 S ICDJ(2)=ICDJ Q

 I ICDJ=568 S ICDJ(3)=ICDJ Q

 I ICDJ=155 S ICDJ(4)=ICDJ Q

 I ICDJ=156 S ICDJ(5)=ICDJ Q

 I ICDJ=148 S ICDJ(6)=ICDJ Q

 I ICDJ=569 S ICDJ(7)=ICDJ Q

 I ICDJ=570 S ICDJ(8)=ICDJ Q

 I ICDJ=149 S ICDJ(9)=ICDJ Q

 I ICDJ=146 S ICDJ(10)=ICDJ Q

 I ICDJ=150 S ICDJ(11)=ICDJ Q

 I ICDJ=164 S ICDJ(12)=ICDJ Q

 I ICDJ=166 S ICDJ(13)=ICDJ Q

 I ICDJ=152 S ICDJ(14)=ICDJ Q

 I ICDJ=157 S ICDJ(15)=ICDJ Q

 I ICDJ=159 S ICDJ(16)=ICDJ Q

 I ICDJ=161 S ICDJ(17)=ICDJ Q

 I ICDJ=163 S ICDJ(18)=ICDJ Q

 I ICDJ=170 S ICDJ(19)=ICDJ

 Q

FY2008 ;

 I ICDJ=328 S ICDJ(1)=ICDJ Q

 I ICDJ=331 S ICDJ(2)=ICDJ Q

 I ICDJ=334 S ICDJ(3)=ICDJ Q

 I ICDJ=337 S ICDJ(4)=ICDJ Q

 I ICDJ=340 S ICDJ(5)=ICDJ Q

 I ICDJ=343 S ICDJ(6)=ICDJ Q

 I ICDJ=346 S ICDJ(7)=ICDJ Q

 I ICDJ=349 S ICDJ(8)=ICDJ Q

 I ICDJ=352 S ICDJ(9)=ICDJ Q

 I ICDJ=355 S ICDJ(10)=ICDJ Q

 I ICDJ=358 S ICDJ(11)=ICDJ Q

 Q

ICDDRG6   ;ALB/GRR - FIX SURGERY HIERARCHY ; 10/23/00 11:40am

 +1       ;;18.0;DRG Grouper;**24,27,31**;Oct 20, 2000;Build 7

 +2        IF $ORDER(ICDODRG(0))'>0

               QUIT 

           KILL ICDJ

           FOR ICDJ=0:0

               SET ICDJ=$ORDER(ICDODRG(ICDJ))

               IF ICDJ'>0

                   QUIT 

               Begin DoDot:1

 +3                IF ICDDATE<3061001

                       DO F

                       QUIT 

 +4               IF '$TEST

                       IF ICDDATE<3071001

                           DO FY2007

                           QUIT 

 +5               IF '$TEST

                       DO FY2008

               End DoDot:1

END        SET ICDJ=$ORDER(ICDJ(0))

           IF ICDJ'>0

               QUIT 

           SET ICDJ=ICDJ(ICDJ)

           KILL ICDODRG

           SET ICDODRG(ICDJ)=""

           KILL ICDJ

           QUIT 

F          IF ICDJ=154

               SET ICDJ(1)=ICDJ

               QUIT 

 +1        IF ICDJ=148

               SET ICDJ(2)=ICDJ

               QUIT 

 +2        IF ICDJ=146

               SET ICDJ(3)=ICDJ

               QUIT 

 +3        IF ICDJ=150

               SET ICDJ(4)=ICDJ

               QUIT 

 +4        IF ICDJ=164

               SET ICDJ(5)=ICDJ

               QUIT 

 +5        IF ICDJ=166

               SET ICDJ(6)=ICDJ

               QUIT 

 +6        IF ICDJ=152

               SET ICDJ(7)=ICDJ

               QUIT 

 +7        IF ICDJ=157

               SET ICDJ(8)=ICDJ

               QUIT 

 +8        IF ICDJ=159

               SET ICDJ(9)=ICDJ

               QUIT 

 +9        IF ICDJ=161

               SET ICDJ(10)=ICDJ

               QUIT 

 +10       IF ICDJ=163

               SET ICDJ(11)=ICDJ

               QUIT 

 +11       IF ICDJ=170

               SET ICDJ(12)=ICDJ

 +12       QUIT 

FY2007    ;

 +1        IF ICDJ=154

               SET ICDJ(1)=ICDJ

               QUIT 

 +2        IF ICDJ=567

               SET ICDJ(2)=ICDJ

               QUIT 

 +3        IF ICDJ=568

               SET ICDJ(3)=ICDJ

               QUIT 

 +4        IF ICDJ=155

               SET ICDJ(4)=ICDJ

               QUIT 

 +5        IF ICDJ=156

               SET ICDJ(5)=ICDJ

               QUIT 

 +6        IF ICDJ=148

               SET ICDJ(6)=ICDJ

               QUIT 

 +7        IF ICDJ=569

               SET ICDJ(7)=ICDJ

               QUIT 

 +8        IF ICDJ=570

               SET ICDJ(8)=ICDJ

               QUIT 

 +9        IF ICDJ=149

               SET ICDJ(9)=ICDJ

               QUIT 

 +10       IF ICDJ=146

               SET ICDJ(10)=ICDJ

               QUIT 

 +11       IF ICDJ=150

               SET ICDJ(11)=ICDJ

               QUIT 

 +12       IF ICDJ=164

               SET ICDJ(12)=ICDJ

               QUIT 

 +13       IF ICDJ=166

               SET ICDJ(13)=ICDJ

               QUIT 

 +14       IF ICDJ=152

               SET ICDJ(14)=ICDJ

               QUIT 

 +15       IF ICDJ=157

               SET ICDJ(15)=ICDJ

               QUIT 

 +16       IF ICDJ=159

               SET ICDJ(16)=ICDJ

               QUIT 

 +17       IF ICDJ=161

               SET ICDJ(17)=ICDJ

               QUIT 

 +18       IF ICDJ=163

               SET ICDJ(18)=ICDJ

               QUIT 

 +19       IF ICDJ=170

               SET ICDJ(19)=ICDJ

 +20       QUIT 

FY2008    ;

 +1        IF ICDJ=328

               SET ICDJ(1)=ICDJ

               QUIT 

 +2        IF ICDJ=331

               SET ICDJ(2)=ICDJ

               QUIT 

 +3        IF ICDJ=334

               SET ICDJ(3)=ICDJ

               QUIT 

 +4        IF ICDJ=337

               SET ICDJ(4)=ICDJ

               QUIT 

 +5        IF ICDJ=340

               SET ICDJ(5)=ICDJ

               QUIT 

 +6        IF ICDJ=343

               SET ICDJ(6)=ICDJ

               QUIT 

 +7        IF ICDJ=346

               SET ICDJ(7)=ICDJ

               QUIT 

 +8        IF ICDJ=349

               SET ICDJ(8)=ICDJ

               QUIT 

 +9        IF ICDJ=352

               SET ICDJ(9)=ICDJ

               QUIT 

 +10       IF ICDJ=355

               SET ICDJ(10)=ICDJ

               QUIT 

 +11       IF ICDJ=358

               SET ICDJ(11)=ICDJ

               QUIT 

 +12       QUIT