ICDDRG1.m

ICDDRG1 ;ALB/MRY - FIX SURGERY HIERARCHY ; 11/14/07 5:30pm

 ;;18.0;DRG Grouper;**10,17,24,31,50,56**;Oct 20, 2000;Build 18

 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  I ICDDATE<3101001 D FY2008 Q

 . E  I ICDDATE<3111001 D FY2011 Q

 . E  D FY2012

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 I ICDJ=19 S ICDJ(22)=ICDJ Q

 I ICDJ=20 S ICDJ(23)=ICDJ Q

 I ICDJ=21 S ICDJ(24)=ICDJ Q

 I ICDJ=22 S ICDJ(25)=ICDJ Q

 I ICDJ=23 S ICDJ(26)=ICDJ Q

 I ICDJ=24 S ICDJ(27)=ICDJ Q

 I ICDJ=25 S ICDJ(28)=ICDJ Q

 I ICDJ=26 S ICDJ(29)=ICDJ Q

 I ICDJ=27 S ICDJ(30)=ICDJ Q

 I ICDJ=28 S ICDJ(31)=ICDJ Q

 I ICDJ=29 S ICDJ(32)=ICDJ Q

 I ICDJ=30 S ICDJ(33)=ICDJ Q

 I ICDJ=31 S ICDJ(34)=ICDJ Q

 I ICDJ=32 S ICDJ(35)=ICDJ Q

 I ICDJ=33 S ICDJ(36)=ICDJ Q

 I ICDJ=34 S ICDJ(37)=ICDJ Q

 I ICDJ=35 S ICDJ(38)=ICDJ Q

 Q

FY2007 ;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 I ICDJ=524 S ICDJ(19)=ICDJ Q

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

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

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

 I ICDJ=19 S ICDJ(23)=ICDJ Q

 I ICDJ=20 S ICDJ(24)=ICDJ Q

 I ICDJ=21 S ICDJ(25)=ICDJ Q

 I ICDJ=22 S ICDJ(26)=ICDJ Q

 I ICDJ=23 S ICDJ(27)=ICDJ Q

 I ICDJ=24 S ICDJ(28)=ICDJ Q

 I ICDJ=25 S ICDJ(29)=ICDJ Q

 I ICDJ=26 S ICDJ(30)=ICDJ Q

 I ICDJ=27 S ICDJ(31)=ICDJ Q

 I ICDJ=28 S ICDJ(32)=ICDJ Q

 I ICDJ=29 S ICDJ(33)=ICDJ Q

 I ICDJ=30 S ICDJ(34)=ICDJ Q

 I ICDJ=31 S ICDJ(35)=ICDJ Q

 I ICDJ=32 S ICDJ(36)=ICDJ Q

 I ICDJ=33 S ICDJ(37)=ICDJ Q

 I ICDJ=34 S ICDJ(38)=ICDJ Q

 I ICDJ=35 S ICDJ(39)=ICDJ Q

 Q

FY2008 ;MS-DRG

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

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

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

 ;I ICDJ=27 S ICDJ(3)=ICDJ Q

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

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

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

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

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

 Q

FY2011 ;MS-DRG

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 Q

FY2012 ;MS-DRG

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICDDRG1   3983     printed  Jun 11, 2024@21:33:27                                                                                                                                                                                                     Page 2

ICDDRG1   ;ALB/MRY - FIX SURGERY HIERARCHY ; 11/14/07 5:30pm

 +1       ;;18.0;DRG Grouper;**10,17,24,31,50,56**;Oct 20, 2000;Build 18

 +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

                       IF ICDDATE<3101001

                           DO FY2008

                           QUIT 

 +6               IF '$TEST

                       IF ICDDATE<3111001

                           DO FY2011

                           QUIT 

 +7               IF '$TEST

                       DO FY2012

               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=3

               SET ICDJ(1)=ICDJ

               QUIT 

 +1        IF ICDJ=528

               SET ICDJ(2)=ICDJ

               QUIT 

 +2        IF ICDJ=543

               SET ICDJ(3)=ICDJ

               QUIT 

 +3        IF ICDJ=1

               SET ICDJ(4)=ICDJ

               QUIT 

 +4        IF ICDJ=529

               SET ICDJ(5)=ICDJ

               QUIT 

 +5        IF ICDJ=531

               SET ICDJ(6)=ICDJ

               QUIT 

 +6        IF ICDJ=533

               SET ICDJ(7)=ICDJ

               QUIT 

 +7        IF ICDJ=6

               SET ICDJ(8)=ICDJ

               QUIT 

 +8        IF ICDJ=7

               SET ICDJ(9)=ICDJ

               QUIT 

 +9        IF ICDJ=8

               SET ICDJ(10)=ICDJ

               QUIT 

 +10       IF ICDJ=9

               SET ICDJ(11)=ICDJ

               QUIT 

 +11       IF ICDJ=10

               SET ICDJ(12)=ICDJ

               QUIT 

 +12       IF ICDJ=11

               SET ICDJ(13)=ICDJ

               QUIT 

 +13       IF ICDJ=12

               SET ICDJ(14)=ICDJ

               QUIT 

 +14       IF ICDJ=13

               SET ICDJ(15)=ICDJ

               QUIT 

 +15       IF ICDJ=14

               SET ICDJ(16)=ICDJ

               QUIT 

 +16       IF ICDJ=15

               SET ICDJ(17)=ICDJ

               QUIT 

 +17       IF ICDJ=524

               SET ICDJ(18)=ICDJ

               QUIT 

 +18       IF ICDJ=16

               SET ICDJ(19)=ICDJ

               QUIT 

 +19       IF ICDJ=17

               SET ICDJ(20)=ICDJ

               QUIT 

 +20       IF ICDJ=18

               SET ICDJ(21)=ICDJ

               QUIT 

 +21       IF ICDJ=19

               SET ICDJ(22)=ICDJ

               QUIT 

 +22       IF ICDJ=20

               SET ICDJ(23)=ICDJ

               QUIT 

 +23       IF ICDJ=21

               SET ICDJ(24)=ICDJ

               QUIT 

 +24       IF ICDJ=22

               SET ICDJ(25)=ICDJ

               QUIT 

 +25       IF ICDJ=23

               SET ICDJ(26)=ICDJ

               QUIT 

 +26       IF ICDJ=24

               SET ICDJ(27)=ICDJ

               QUIT 

 +27       IF ICDJ=25

               SET ICDJ(28)=ICDJ

               QUIT 

 +28       IF ICDJ=26

               SET ICDJ(29)=ICDJ

               QUIT 

 +29       IF ICDJ=27

               SET ICDJ(30)=ICDJ

               QUIT 

 +30       IF ICDJ=28

               SET ICDJ(31)=ICDJ

               QUIT 

 +31       IF ICDJ=29

               SET ICDJ(32)=ICDJ

               QUIT 

 +32       IF ICDJ=30

               SET ICDJ(33)=ICDJ

               QUIT 

 +33       IF ICDJ=31

               SET ICDJ(34)=ICDJ

               QUIT 

 +34       IF ICDJ=32

               SET ICDJ(35)=ICDJ

               QUIT 

 +35       IF ICDJ=33

               SET ICDJ(36)=ICDJ

               QUIT 

 +36       IF ICDJ=34

               SET ICDJ(37)=ICDJ

               QUIT 

 +37       IF ICDJ=35

               SET ICDJ(38)=ICDJ

               QUIT 

 +38       QUIT 

FY2007    ;

 +1        IF ICDJ=3

               SET ICDJ(1)=ICDJ

               QUIT 

 +2        IF ICDJ=528

               SET ICDJ(2)=ICDJ

               QUIT 

 +3        IF ICDJ=543

               SET ICDJ(3)=ICDJ

               QUIT 

 +4        IF ICDJ=1

               SET ICDJ(4)=ICDJ

               QUIT 

 +5        IF ICDJ=531

               SET ICDJ(5)=ICDJ

               QUIT 

 +6        IF ICDJ=529

               SET ICDJ(6)=ICDJ

               QUIT 

 +7        IF ICDJ=577

               SET ICDJ(7)=ICDJ

               QUIT 

 +8        IF ICDJ=533

               SET ICDJ(8)=ICDJ

               QUIT 

 +9        IF ICDJ=6

               SET ICDJ(9)=ICDJ

               QUIT 

 +10       IF ICDJ=7

               SET ICDJ(10)=ICDJ

               QUIT 

 +11       IF ICDJ=8

               SET ICDJ(11)=ICDJ

               QUIT 

 +12       IF ICDJ=9

               SET ICDJ(12)=ICDJ

               QUIT 

 +13       IF ICDJ=10

               SET ICDJ(13)=ICDJ

               QUIT 

 +14       IF ICDJ=11

               SET ICDJ(14)=ICDJ

               QUIT 

 +15       IF ICDJ=12

               SET ICDJ(15)=ICDJ

               QUIT 

 +16       IF ICDJ=13

               SET ICDJ(16)=ICDJ

               QUIT 

 +17       IF ICDJ=14

               SET ICDJ(17)=ICDJ

               QUIT 

 +18       IF ICDJ=15

               SET ICDJ(18)=ICDJ

               QUIT 

 +19       IF ICDJ=524

               SET ICDJ(19)=ICDJ

               QUIT 

 +20       IF ICDJ=16

               SET ICDJ(20)=ICDJ

               QUIT 

 +21       IF ICDJ=17

               SET ICDJ(21)=ICDJ

               QUIT 

 +22       IF ICDJ=18

               SET ICDJ(22)=ICDJ

               QUIT 

 +23       IF ICDJ=19

               SET ICDJ(23)=ICDJ

               QUIT 

 +24       IF ICDJ=20

               SET ICDJ(24)=ICDJ

               QUIT 

 +25       IF ICDJ=21

               SET ICDJ(25)=ICDJ

               QUIT 

 +26       IF ICDJ=22

               SET ICDJ(26)=ICDJ

               QUIT 

 +27       IF ICDJ=23

               SET ICDJ(27)=ICDJ

               QUIT 

 +28       IF ICDJ=24

               SET ICDJ(28)=ICDJ

               QUIT 

 +29       IF ICDJ=25

               SET ICDJ(29)=ICDJ

               QUIT 

 +30       IF ICDJ=26

               SET ICDJ(30)=ICDJ

               QUIT 

 +31       IF ICDJ=27

               SET ICDJ(31)=ICDJ

               QUIT 

 +32       IF ICDJ=28

               SET ICDJ(32)=ICDJ

               QUIT 

 +33       IF ICDJ=29

               SET ICDJ(33)=ICDJ

               QUIT 

 +34       IF ICDJ=30

               SET ICDJ(34)=ICDJ

               QUIT 

 +35       IF ICDJ=31

               SET ICDJ(35)=ICDJ

               QUIT 

 +36       IF ICDJ=32

               SET ICDJ(36)=ICDJ

               QUIT 

 +37       IF ICDJ=33

               SET ICDJ(37)=ICDJ

               QUIT 

 +38       IF ICDJ=34

               SET ICDJ(38)=ICDJ

               QUIT 

 +39       IF ICDJ=35

               SET ICDJ(39)=ICDJ

               QUIT 

 +40       QUIT 

FY2008    ;MS-DRG

 +1        IF ICDJ=27

               SET ICDJ(1)=ICDJ

               QUIT 

 +2        IF ICDJ=22

               SET ICDJ(2)=ICDJ

               QUIT 

 +3        IF ICDJ=24

               SET ICDJ(3)=ICDJ

               QUIT 

 +4       ;I ICDJ=27 S ICDJ(3)=ICDJ Q

 +5        IF ICDJ=30

               SET ICDJ(4)=ICDJ

               QUIT 

 +6        IF ICDJ=33

               SET ICDJ(5)=ICDJ

               QUIT 

 +7        IF ICDJ=36

               SET ICDJ(6)=ICDJ

               QUIT 

 +8        IF ICDJ=39

               SET ICDJ(7)=ICDJ

               QUIT 

 +9        IF ICDJ=42

               SET ICDJ(8)=ICDJ

               QUIT 

 +10       QUIT 

FY2011    ;MS-DRG

 +1        IF ICDJ=2

               SET ICDJ(1)=ICDJ

               QUIT 

 +2        IF ICDJ=4

               SET ICDJ(2)=ICDJ

               QUIT 

 +3        IF ICDJ=6

               SET ICDJ(3)=ICDJ

               QUIT 

 +4        IF ICDJ=14

               SET ICDJ(4)=ICDJ

               QUIT 

 +5        IF ICDJ=7

               SET ICDJ(5)=ICDJ

               QUIT 

 +6        IF ICDJ=8

               SET ICDJ(6)=ICDJ

               QUIT 

 +7        IF ICDJ=15

               SET ICDJ(7)=ICDJ

               QUIT 

 +8        IF ICDJ=10

               SET ICDJ(8)=ICDJ

               QUIT 

 +9        IF ICDJ=13

               SET ICDJ(9)=ICDJ

               QUIT 

 +10       IF ICDJ=24

               SET ICDJ(10)=ICDJ

               QUIT 

 +11       IF ICDJ=30

               SET ICDJ(11)=ICDJ

               QUIT 

 +12       IF ICDJ=33

               SET ICDJ(12)=ICDJ

               QUIT 

 +13       IF ICDJ=36

               SET ICDJ(13)=ICDJ

               QUIT 

 +14       IF ICDJ=39

               SET ICDJ(14)=ICDJ

               QUIT 

 +15       IF ICDJ=42

               SET ICDJ(15)=ICDJ

               QUIT 

 +16       QUIT 

FY2012    ;MS-DRG

 +1        IF ICDJ=2

               SET ICDJ(1)=ICDJ

               QUIT 

 +2        IF ICDJ=4

               SET ICDJ(2)=ICDJ

               QUIT 

 +3        IF ICDJ=6

               SET ICDJ(3)=ICDJ

               QUIT 

 +4        IF ICDJ=14

               SET ICDJ(4)=ICDJ

               QUIT 

 +5        IF ICDJ=7

               SET ICDJ(5)=ICDJ

               QUIT 

 +6        IF ICDJ=8

               SET ICDJ(6)=ICDJ

               QUIT 

 +7        IF ICDJ=16

               SET ICDJ(7)=ICDJ

               QUIT 

 +8        IF ICDJ=17

               SET ICDJ(8)=ICDJ

               QUIT 

 +9        IF ICDJ=10

               SET ICDJ(9)=ICDJ

               QUIT 

 +10       IF ICDJ=13

               SET ICDJ(10)=ICDJ

               QUIT 

 +11       IF ICDJ=24

               SET ICDJ(11)=ICDJ

               QUIT 

 +12       IF ICDJ=30

               SET ICDJ(12)=ICDJ

               QUIT 

 +13       IF ICDJ=33

               SET ICDJ(13)=ICDJ

               QUIT 

 +14       IF ICDJ=36

               SET ICDJ(14)=ICDJ

               QUIT 

 +15       IF ICDJ=39

               SET ICDJ(15)=ICDJ

               QUIT 

 +16       IF ICDJ=42

               SET ICDJ(16)=ICDJ

               QUIT 

 +17       QUIT