ICD10TB1.m

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 ---ICD10TB1   2263     printed  Feb 18, 2025@23:13:22                                                                                                                                                                                                    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