ICD10TB0 ;KUM - GROUPER UTILITY FUNCTIONS;05/04/2012
;;18.0;DRG Grouper;**64**;Oct 20, 2000;Build 103
;
DRG1 ;
DRG2 ;
S ICDRG=$S(ICDMCC=2:1,1:2) Q
DRG3 ;
DRG4 ;
Q
DRG5 ;
DRG6 ;
I $D(ICD10OR(56)) S ICDRG=5 Q
S ICDRG=$S(ICDMCC=2:5,1:6) Q
Q
DRG7 ;
S ICDRG=7 Q
DRG8 ;
S ICDRG=8 Q
DRG9 ;
S ICDRG=9 Q
DRG10 ;
S ICDRG=10 Q
Q
DRG11 ;
DRG12 ;
DRG13 ;
S ICDRG=$S(ICDMCC=2:11,ICDMCC=1:12,1:13) Q
DRG14 ;
S ICDRG=14 ;No decision table for DRG 14 or 15
Q
DRG15 ;
S ICDRG=15
Q
DRG16 ;
DRG17 ;
S ICDRG=$S(ICDMCC:16,1:17) ;No decision table for DRG 16 or 17
Q
DRG18 ;
Q
DRG19 ;
Q
DRG20 ;
DRG21 ;
DRG22 ;
Q
DRG23 ;
DRG24 ;
DRG25 ;
DRG26 ;
DRG27 ;
Q
DRG28 ;
DRG29 ;
DRG30 ;
Q
DRG31 ;
DRG32 ;
DRG33 ;
Q
DRG34 ;
DRG35 ;
DRG36 ;
Q
DRG37 ;
DRG38 ;
DRG39 ;
S ICDRG=$S(ICDMCC=2:37,ICDMCC=1:38,1:39) Q
DRG40 ;
DRG41 ;
DRG42 ;
Q
DRG43 ;
DRG44 ;
DRG45 ;
DRG46 ;
S ICDRG=46 Q
DRG47 ;
DRG48 ;
DRG49 ;
DRG50 ;
DRG51 ;
Q
DRG52 ;
DRG53 ;
S ICDRG=$S(ICDMCC>0:52,1:53) Q
DRG54 ;
DRG55 ;
S ICDRG=$S(ICDMCC=2:54,1:55) Q
DRG56 ;
DRG57 ;
S ICDRG=$S(ICDMCC=2:56,1:57) Q
DRG58 ;
DRG59 ;
DRG60 ;
S ICDRG=$S(ICDMCC=2:58,ICDMCC=1:59,1:60) Q
DRG61 ;
DRG62 ;
DRG63 ;
Q
DRG64 ;
DRG65 ;
DRG66 ;
Q
DRG67 ;
DRG68 ;
S ICDRG=$S(ICDMCC=2:67,1:68) Q
DRG69 ;
Q
DRG70 ;
DRG71 ;
DRG72 ;
S ICDRG=$S(ICDMCC=2:70,ICDMCC=1:71,1:72) Q
DRG73 ;
DRG74 ;
S ICDRG=$S(ICDMCC=2:73,1:74) Q
DRG75 ;
DRG76 ;
S ICDRG=$S(ICDMCC>0:75,1:76) Q
DRG77 ;
DRG78 ;
DRG79 ;
S ICDRG=$S(ICDMCC=2:77,ICDMCC=1:78,1:79) Q
DRG80 ;
DRG81 ;
S ICDRG=$S(ICDMCC=2:80,1:81) Q
DRG82 ;
DRG83 ;
DRG84 ;
Q
DRG85 ;
DRG86 ;
DRG87 ;
Q
DRG88 ;
DRG89 ;
DRG90 ;
Q
DRG91 ;
DRG92 ;
DRG93 ;
Q
DRG94 ;
DRG95 ;
DRG96 ;
Q
DRG97 ;
DRG98 ;
DRG99 ;
S ICDRG=$S(ICDMCC=2:97,ICDMCC=1:98,1:99) Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD10TB0 1883 printed Sep 23, 2025@19:22:58 Page 2
ICD10TB0 ;KUM - GROUPER UTILITY FUNCTIONS;05/04/2012
+1 ;;18.0;DRG Grouper;**64**;Oct 20, 2000;Build 103
+2 ;
DRG1 ;
DRG2 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:1,1:2)
QUIT
DRG3 ;
DRG4 ;
+1 QUIT
DRG5 ;
DRG6 ;
+1 IF $DATA(ICD10OR(56))
SET ICDRG=5
QUIT
+2 SET ICDRG=$SELECT(ICDMCC=2:5,1:6)
QUIT
+3 QUIT
DRG7 ;
+1 SET ICDRG=7
QUIT
DRG8 ;
+1 SET ICDRG=8
QUIT
DRG9 ;
+1 SET ICDRG=9
QUIT
DRG10 ;
+1 SET ICDRG=10
QUIT
+2 QUIT
DRG11 ;
DRG12 ;
DRG13 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:11,ICDMCC=1:12,1:13)
QUIT
DRG14 ;
+1 ;No decision table for DRG 14 or 15
SET ICDRG=14
+2 QUIT
DRG15 ;
+1 SET ICDRG=15
+2 QUIT
DRG16 ;
DRG17 ;
+1 ;No decision table for DRG 16 or 17
SET ICDRG=$SELECT(ICDMCC:16,1:17)
+2 QUIT
DRG18 ;
+1 QUIT
DRG19 ;
+1 QUIT
DRG20 ;
DRG21 ;
DRG22 ;
+1 QUIT
DRG23 ;
DRG24 ;
DRG25 ;
DRG26 ;
DRG27 ;
+1 QUIT
DRG28 ;
DRG29 ;
DRG30 ;
+1 QUIT
DRG31 ;
DRG32 ;
DRG33 ;
+1 QUIT
DRG34 ;
DRG35 ;
DRG36 ;
+1 QUIT
DRG37 ;
DRG38 ;
DRG39 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:37,ICDMCC=1:38,1:39)
QUIT
DRG40 ;
DRG41 ;
DRG42 ;
+1 QUIT
DRG43 ;
DRG44 ;
DRG45 ;
DRG46 ;
+1 SET ICDRG=46
QUIT
DRG47 ;
DRG48 ;
DRG49 ;
DRG50 ;
DRG51 ;
+1 QUIT
DRG52 ;
DRG53 ;
+1 SET ICDRG=$SELECT(ICDMCC>0:52,1:53)
QUIT
DRG54 ;
DRG55 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:54,1:55)
QUIT
DRG56 ;
DRG57 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:56,1:57)
QUIT
DRG58 ;
DRG59 ;
DRG60 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:58,ICDMCC=1:59,1:60)
QUIT
DRG61 ;
DRG62 ;
DRG63 ;
+1 QUIT
DRG64 ;
DRG65 ;
DRG66 ;
+1 QUIT
DRG67 ;
DRG68 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:67,1:68)
QUIT
DRG69 ;
+1 QUIT
DRG70 ;
DRG71 ;
DRG72 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:70,ICDMCC=1:71,1:72)
QUIT
DRG73 ;
DRG74 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:73,1:74)
QUIT
DRG75 ;
DRG76 ;
+1 SET ICDRG=$SELECT(ICDMCC>0:75,1:76)
QUIT
DRG77 ;
DRG78 ;
DRG79 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:77,ICDMCC=1:78,1:79)
QUIT
DRG80 ;
DRG81 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:80,1:81)
QUIT
DRG82 ;
DRG83 ;
DRG84 ;
+1 QUIT
DRG85 ;
DRG86 ;
DRG87 ;
+1 QUIT
DRG88 ;
DRG89 ;
DRG90 ;
+1 QUIT
DRG91 ;
DRG92 ;
DRG93 ;
+1 QUIT
DRG94 ;
DRG95 ;
DRG96 ;
+1 QUIT
DRG97 ;
DRG98 ;
DRG99 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:97,ICDMCC=1:98,1:99)
QUIT
+2 QUIT
