87 lines
2.5 KiB
Mathematica
87 lines
2.5 KiB
Mathematica
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
|