Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ICD10TB3

ICD10TB3.m

Go to the documentation of this file.
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