ICDDRG1 ;ALB/MRY - FIX SURGERY HIERARCHY ; 6/15/05 7:07pm
 ;;18.0;DRG Grouper;**10,17,24**;Oct 20, 2000;Build 5
 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
 .E  D FY2007
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