ICD10TB3.m

ICD10TB3 ;KUM - GROUPER UTILITY FUNCTIONS;05/04/2012

 ;;18.0;DRG Grouper;**64**;Oct 20, 2000;Build 103

 ;

 ;DRG300 ; D DRG300^ICDTBL3D    -See ICD10TB2

 ;DRG301 S ICDRG=$S(ICDMCC=2:299,ICDMCC=1:300,1:301) Q  -See ICD10TB2

DRG302 ;

DRG303 S ICDRG=$S(ICDMCC=2:302,1:303) Q

DRG304 ;

DRG305 S ICDRG=$S(ICDMCC=2:304,1:305) Q

DRG306 ;

DRG307 S ICDRG=$S(ICDMCC=2:306,1:307) Q

DRG308 ;

DRG309 ;

DRG310 ;

 S ICDRG=$S(ICDMCC=2:308,ICDMCC=1:309,1:310) Q

DRG311 ;

DRG312 ;

DRG313 ;

 Q

DRG314 ;

DRG315 ;

DRG316 S ICDRG=$S(ICDMCC=2:314,ICDMCC=1:315,1:316) Q

DRG317 ;

DRG318 ;

DRG319 ;

DRG320 ;

DRG321 ;

DRG322 ;

DRG323 ;

DRG324 ;

DRG325 ;

 Q

DRG326 ;

DRG327 ;

DRG328 S ICDRG=$S(ICDMCC=2:326,ICDMCC=1:327,1:328) Q

DRG329 ;

DRG330 ;

DRG331 S ICDRG=$S(ICDMCC=2:329,ICDMCC=1:330,1:331) Q

DRG332 ;

DRG333 ;

DRG334 S ICDRG=$S(ICDMCC=2:332,ICDMCC=1:333,1:334) Q

DRG335 ;

DRG336 ;

DRG337 S ICDRG=$S(ICDMCC=2:335,ICDMCC=1:336,1:337) Q

DRG338 ;

DRG339 ;

DRG340 ;

DRG341 ;

DRG342 ;

DRG343 ;

 Q

DRG344 ;

DRG345 ;

DRG346 S ICDRG=$S(ICDMCC=2:344,ICDMCC=1:345,1:346) Q

DRG347 ;

DRG348 ;

DRG349 S ICDRG=$S(ICDMCC=2:347,ICDMCC=1:348,1:349) Q

DRG350 ;

DRG351 ;

DRG352 ;

DRG353 ;

DRG354 ;

DRG355 ;

 Q

DRG356 ;

DRG357 ;

DRG358 S ICDRG=$S(ICDMCC=2:356,ICDMCC=1:357,1:358) Q

DRG359 ;

DRG360 ;

DRG361 ;

DRG362 ;

DRG363 ;

DRG364 ;

DRG365 ;

DRG366 ;

DRG367 ;

 Q

DRG368 ;

DRG369 ;

DRG370 S ICDRG=$S(ICDMCC=2:368,ICDMCC=1:369,1:370) Q

DRG371 ;

DRG372 ;

DRG373 S ICDRG=$S(ICDMCC=2:371,ICDMCC=1:372,1:373) Q

DRG374 ;

DRG375 ;

DRG376 S ICDRG=$S(ICDMCC=2:374,ICDMCC=1:375,1:376) Q

DRG377 ;

DRG378 ;

DRG379 S ICDRG=$S(ICDMCC=2:377,ICDMCC=1:378,1:379) Q

DRG380 ;

DRG381 ;

DRG382 ;

DRG383 ;

DRG384 ;

 Q

DRG385 ;

DRG386 ;

DRG387 ;

 S ICDRG=$S(ICDMCC=2:385,ICDMCC=1:386,1:387) Q

 Q

DRG388 ;

DRG389 ;

DRG390 S ICDRG=$S(ICDMCC=2:388,ICDMCC=1:389,1:390) Q

DRG391 ;

DRG392 S ICDRG=$S(ICDMCC=2:391,1:392) Q

DRG393 ;

DRG394 ;

DRG395 ;

 S ICDRG=$S(ICDMCC=2:393,ICDMCC=1:394,1:395) Q

DRG396 ;

DRG397 ;

DRG398 ;

DRG399 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICD10TB3   2079     printed  Oct 16, 2024@17:47:52                                                                                                                                                                                                    Page 2

ICD10TB3  ;KUM - GROUPER UTILITY FUNCTIONS;05/04/2012

 +1       ;;18.0;DRG Grouper;**64**;Oct 20, 2000;Build 103

 +2       ;

 +3       ;DRG300 ; D DRG300^ICDTBL3D    -See ICD10TB2

 +4       ;DRG301 S ICDRG=$S(ICDMCC=2:299,ICDMCC=1:300,1:301) Q  -See ICD10TB2

DRG302    ;

DRG303     SET ICDRG=$SELECT(ICDMCC=2:302,1:303)

           QUIT 

DRG304    ;

DRG305     SET ICDRG=$SELECT(ICDMCC=2:304,1:305)

           QUIT 

DRG306    ;

DRG307     SET ICDRG=$SELECT(ICDMCC=2:306,1:307)

           QUIT 

DRG308    ;

DRG309    ;

DRG310    ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:308,ICDMCC=1:309,1:310)

           QUIT 

DRG311    ;

DRG312    ;

DRG313    ;

 +1        QUIT 

DRG314    ;

DRG315    ;

DRG316     SET ICDRG=$SELECT(ICDMCC=2:314,ICDMCC=1:315,1:316)

           QUIT 

DRG317    ;

DRG318    ;

DRG319    ;

DRG320    ;

DRG321    ;

DRG322    ;

DRG323    ;

DRG324    ;

DRG325    ;

 +1        QUIT 

DRG326    ;

DRG327    ;

DRG328     SET ICDRG=$SELECT(ICDMCC=2:326,ICDMCC=1:327,1:328)

           QUIT 

DRG329    ;

DRG330    ;

DRG331     SET ICDRG=$SELECT(ICDMCC=2:329,ICDMCC=1:330,1:331)

           QUIT 

DRG332    ;

DRG333    ;

DRG334     SET ICDRG=$SELECT(ICDMCC=2:332,ICDMCC=1:333,1:334)

           QUIT 

DRG335    ;

DRG336    ;

DRG337     SET ICDRG=$SELECT(ICDMCC=2:335,ICDMCC=1:336,1:337)

           QUIT 

DRG338    ;

DRG339    ;

DRG340    ;

DRG341    ;

DRG342    ;

DRG343    ;

 +1        QUIT 

DRG344    ;

DRG345    ;

DRG346     SET ICDRG=$SELECT(ICDMCC=2:344,ICDMCC=1:345,1:346)

           QUIT 

DRG347    ;

DRG348    ;

DRG349     SET ICDRG=$SELECT(ICDMCC=2:347,ICDMCC=1:348,1:349)

           QUIT 

DRG350    ;

DRG351    ;

DRG352    ;

DRG353    ;

DRG354    ;

DRG355    ;

 +1        QUIT 

DRG356    ;

DRG357    ;

DRG358     SET ICDRG=$SELECT(ICDMCC=2:356,ICDMCC=1:357,1:358)

           QUIT 

DRG359    ;

DRG360    ;

DRG361    ;

DRG362    ;

DRG363    ;

DRG364    ;

DRG365    ;

DRG366    ;

DRG367    ;

 +1        QUIT 

DRG368    ;

DRG369    ;

DRG370     SET ICDRG=$SELECT(ICDMCC=2:368,ICDMCC=1:369,1:370)

           QUIT 

DRG371    ;

DRG372    ;

DRG373     SET ICDRG=$SELECT(ICDMCC=2:371,ICDMCC=1:372,1:373)

           QUIT 

DRG374    ;

DRG375    ;

DRG376     SET ICDRG=$SELECT(ICDMCC=2:374,ICDMCC=1:375,1:376)

           QUIT 

DRG377    ;

DRG378    ;

DRG379     SET ICDRG=$SELECT(ICDMCC=2:377,ICDMCC=1:378,1:379)

           QUIT 

DRG380    ;

DRG381    ;

DRG382    ;

DRG383    ;

DRG384    ;

 +1        QUIT 

DRG385    ;

DRG386    ;

DRG387    ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:385,ICDMCC=1:386,1:387)

           QUIT 

 +2        QUIT 

DRG388    ;

DRG389    ;

DRG390     SET ICDRG=$SELECT(ICDMCC=2:388,ICDMCC=1:389,1:390)

           QUIT 

DRG391    ;

DRG392     SET ICDRG=$SELECT(ICDMCC=2:391,1:392)

           QUIT 

DRG393    ;

DRG394    ;

DRG395    ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:393,ICDMCC=1:394,1:395)

           QUIT 

DRG396    ;

DRG397    ;

DRG398    ;

DRG399    ;

 +1        QUIT