ICD10TB1 ;KUM - GROUPER UTILITY FUNCTIONS;05/04/2012
;;18.0;DRG Grouper;**64**;Oct 20, 2000;Build 103
;
DRG100 ;
DRG101 ;
S ICDRG=$S(ICDMCC=2:100,1:101) Q
DRG102 ;
DRG103 ;
S ICDRG=$S(ICDMCC=2:102,1:103) Q
DRG104 ;
Q
DRG105 ;
Q
DRG106 ;
Q
DRG107 ;
Q
DRG108 ;
Q
DRG109 ;
Q
DRG110 ;
Q
DRG111 ;
Q
DRG112 ;
Q
DRG113 ;
DRG114 ;
S ICDRG=$S(ICDMCC>0:113,1:114) Q
DRG115 ;
Q
DRG116 ;
DRG117 ;
S ICDRG=$S(ICDMCC>0:116,1:117) Q
DRG118 ;
Q
DRG119 ;
Q
DRG120 ;
Q
DRG121 ;
DRG122 ;
S ICDRG=$S(ICDMCC>0:121,1:122) Q
DRG123 ;
Q
DRG124 ;
DRG125 ;
S ICDRG=$S(ICDMCC=2:124,1:125) Q
DRG129 ;
DRG130 ;
Q
DRG131 ;
DRG132 ;
S ICDRG=$S(ICDMCC>0:131,1:132) Q
DRG133 ;
DRG134 ;
S ICDRG=$S(ICDMCC>0:133,1:134) Q
DRG135 ;
DRG136 ;
S ICDRG=$S(ICDMCC>0:135,1:136) Q
DRG137 ;
DRG138 ;
S ICDRG=$S(ICDMCC>0:137,1:138) Q
DRG139 ;
DRG140 ;
DRG141 ;
DRG142 ;
DRG143 ;
DRG144 ;
DRG145 ;
Q
DRG146 ;
DRG147 ;
DRG148 ;
S ICDRG=$S(ICDMCC=2:146,ICDMCC=1:147,1:148) Q
DRG149 ;
Q
DRG150 ;
DRG151 ;
S ICDRG=$S(ICDMCC=2:150,1:151) Q
DRG152 ;
DRG153 ;
S ICDRG=$S(ICDMCC=2:152,1:153) Q
DRG154 ;
DRG155 ;
DRG156 ;
S ICDRG=$S(ICDMCC=2:154,ICDMCC=1:155,1:156) Q
DRG157 ;
DRG158 ;
DRG159 ;
S ICDRG=$S(ICDMCC=2:157,ICDMCC=1:158,1:159) Q
DRG160 ;
DRG161 ;
DRG162 ;
Q
DRG163 ;
DRG164 ;
DRG165 ;
S ICDRG=$S(ICDMCC=2:163,ICDMCC=1:164,1:165) Q
DRG166 ;
DRG167 ;
DRG168 ;
S ICDRG=$S(ICDMCC=2:166,ICDMCC=1:167,1:168) Q
DRG169 ;
DRG170 ;
DRG171 ;
DRG172 ;
DRG173 ;
DRG174 ;
Q
DRG175 ;
DRG176 ;
S ICDRG=$S(ICDMCC=2:175,1:176) Q
DRG177 ;
DRG178 ;
DRG179 ;
S ICDRG=$S(ICDMCC=2:177,ICDMCC=1:178,1:179) Q
DRG180 ;
DRG181 ;
DRG182 ;
S ICDRG=$S(ICDMCC=2:180,ICDMCC=1:181,1:182) Q
DRG183 ;
DRG184 ;
DRG185 ;
S ICDRG=$S(ICDMCC=2:183,ICDMCC=1:184,1:185) Q
DRG186 ;
DRG187 ;
DRG188 ;
S ICDRG=$S(ICDMCC=2:186,ICDMCC=1:187,1:188) Q
DRG189 ;
Q
DRG190 ;
DRG191 ;
DRG192 ;
S ICDRG=$S(ICDMCC=2:190,ICDMCC=1:191,1:192) Q
DRG193 ;
DRG194 ;
DRG195 ;
S ICDRG=$S(ICDMCC=2:193,ICDMCC=1:194,1:195) Q
DRG196 ;
DRG197 ;
DRG198 ;
S ICDRG=$S(ICDMCC=2:196,ICDMCC=1:197,1:198) Q
DRG199 ;
DRG200 ;
DRG201 ;
S ICDRG=$S(ICDMCC=2:199,ICDMCC=1:200,1:201) Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD10TB1 2263 printed Dec 13, 2024@01:47 Page 2
ICD10TB1 ;KUM - GROUPER UTILITY FUNCTIONS;05/04/2012
+1 ;;18.0;DRG Grouper;**64**;Oct 20, 2000;Build 103
+2 ;
DRG100 ;
DRG101 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:100,1:101)
QUIT
DRG102 ;
DRG103 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:102,1:103)
QUIT
DRG104 ;
+1 QUIT
DRG105 ;
+1 QUIT
DRG106 ;
+1 QUIT
DRG107 ;
+1 QUIT
DRG108 ;
+1 QUIT
DRG109 ;
+1 QUIT
DRG110 ;
+1 QUIT
DRG111 ;
+1 QUIT
DRG112 ;
+1 QUIT
DRG113 ;
DRG114 ;
+1 SET ICDRG=$SELECT(ICDMCC>0:113,1:114)
QUIT
DRG115 ;
+1 QUIT
DRG116 ;
DRG117 ;
+1 SET ICDRG=$SELECT(ICDMCC>0:116,1:117)
QUIT
DRG118 ;
+1 QUIT
DRG119 ;
+1 QUIT
DRG120 ;
+1 QUIT
DRG121 ;
DRG122 ;
+1 SET ICDRG=$SELECT(ICDMCC>0:121,1:122)
QUIT
DRG123 ;
+1 QUIT
DRG124 ;
DRG125 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:124,1:125)
QUIT
DRG129 ;
DRG130 ;
+1 QUIT
DRG131 ;
DRG132 ;
+1 SET ICDRG=$SELECT(ICDMCC>0:131,1:132)
QUIT
DRG133 ;
DRG134 ;
+1 SET ICDRG=$SELECT(ICDMCC>0:133,1:134)
QUIT
DRG135 ;
DRG136 ;
+1 SET ICDRG=$SELECT(ICDMCC>0:135,1:136)
QUIT
DRG137 ;
DRG138 ;
+1 SET ICDRG=$SELECT(ICDMCC>0:137,1:138)
QUIT
DRG139 ;
DRG140 ;
DRG141 ;
DRG142 ;
DRG143 ;
DRG144 ;
DRG145 ;
+1 QUIT
DRG146 ;
DRG147 ;
DRG148 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:146,ICDMCC=1:147,1:148)
QUIT
DRG149 ;
+1 QUIT
DRG150 ;
DRG151 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:150,1:151)
QUIT
DRG152 ;
DRG153 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:152,1:153)
QUIT
DRG154 ;
DRG155 ;
DRG156 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:154,ICDMCC=1:155,1:156)
QUIT
DRG157 ;
DRG158 ;
DRG159 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:157,ICDMCC=1:158,1:159)
QUIT
DRG160 ;
DRG161 ;
DRG162 ;
+1 QUIT
DRG163 ;
DRG164 ;
DRG165 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:163,ICDMCC=1:164,1:165)
QUIT
DRG166 ;
DRG167 ;
DRG168 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:166,ICDMCC=1:167,1:168)
QUIT
DRG169 ;
DRG170 ;
DRG171 ;
DRG172 ;
DRG173 ;
DRG174 ;
+1 QUIT
DRG175 ;
DRG176 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:175,1:176)
QUIT
DRG177 ;
DRG178 ;
DRG179 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:177,ICDMCC=1:178,1:179)
QUIT
DRG180 ;
DRG181 ;
DRG182 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:180,ICDMCC=1:181,1:182)
QUIT
DRG183 ;
DRG184 ;
DRG185 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:183,ICDMCC=1:184,1:185)
QUIT
DRG186 ;
DRG187 ;
DRG188 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:186,ICDMCC=1:187,1:188)
QUIT
DRG189 ;
+1 QUIT
DRG190 ;
DRG191 ;
DRG192 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:190,ICDMCC=1:191,1:192)
QUIT
DRG193 ;
DRG194 ;
DRG195 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:193,ICDMCC=1:194,1:195)
QUIT
DRG196 ;
DRG197 ;
DRG198 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:196,ICDMCC=1:197,1:198)
QUIT
DRG199 ;
DRG200 ;
DRG201 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:199,ICDMCC=1:200,1:201)
QUIT
+2 QUIT
