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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICDDRG6 1667 printed Oct 16, 2024@17:50:59 Page 2
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
