[628] | 1 | ICDTBL3 ;ALB/EG/MRY - GROUPER UTILITY FUNCTIONS ; 11/7/07 5:35pm
|
---|
| 2 | ;;18.0;DRG Grouper;**31**;Oct 20, 2000;Build 7
|
---|
| 3 | DRG300 ;
|
---|
| 4 | DRG301 S ICDRG=$S(ICDMCC=2:299,ICDMCC=1:300,1:301) Q
|
---|
| 5 | DRG302 ;
|
---|
| 6 | DRG303 S ICDRG=$S(ICDMCC=2:302,1:303) Q
|
---|
| 7 | DRG304 ;
|
---|
| 8 | DRG305 S ICDRG=$S(ICDMCC=2:304,1:305) Q
|
---|
| 9 | DRG306 ;
|
---|
| 10 | DRG307 S ICDRG=$S(ICDMCC=2:306,1:307) Q
|
---|
| 11 | DRG308 ;
|
---|
| 12 | DRG309 ;
|
---|
| 13 | DRG310 I (ICDDX(1)=2559!$D(ICDDXT("427.41"))),'ICDEXP S ICDMCC=2
|
---|
| 14 | S ICDRG=$S(ICDMCC=2:308,ICDMCC=1:309,1:310) Q
|
---|
| 15 | DRG311 S ICDRG=311 Q
|
---|
| 16 | DRG312 S ICDRG=312 Q
|
---|
| 17 | DRG313 S ICDRG=313 Q
|
---|
| 18 | DRG314 ;
|
---|
| 19 | DRG315 ;
|
---|
| 20 | DRG316 S ICDRG=$S(ICDMCC=2:314,ICDMCC=1:315,1:316) Q
|
---|
| 21 | DRG326 ;
|
---|
| 22 | DRG327 ;
|
---|
| 23 | DRG328 S ICDRG=$S(ICDMCC=2:326,ICDMCC=1:327,1:328) Q
|
---|
| 24 | DRG329 ;
|
---|
| 25 | DRG330 ;
|
---|
| 26 | DRG331 S ICDRG=$S(ICDMCC=2:329,ICDMCC=1:330,1:331) Q
|
---|
| 27 | DRG332 ;
|
---|
| 28 | DRG333 ;
|
---|
| 29 | DRG334 S ICDRG=$S(ICDMCC=2:332,ICDMCC=1:333,1:334) Q
|
---|
| 30 | DRG335 ;
|
---|
| 31 | DRG336 ;
|
---|
| 32 | DRG337 S ICDRG=$S(ICDMCC=2:335,ICDMCC=1:336,1:337) Q
|
---|
| 33 | DRG338 ;
|
---|
| 34 | DRG339 ;
|
---|
| 35 | DRG340 I " 246 9197 2954 "'[ICDDX(1) W !,"DRG340" D DRG343 Q
|
---|
| 36 | S ICDRG=$S(ICDMCC=2:338,ICDMCC=1:339,1:340) Q
|
---|
| 37 | DRG341 ;
|
---|
| 38 | DRG342 ;
|
---|
| 39 | DRG343 I " 246 9197 2954 "[ICDDX(1) W !,"DRG343",ICDDX(1) D DRG340 Q
|
---|
| 40 | S ICDRG=$S(ICDMCC=2:341,ICDMCC=1:342,1:343) Q
|
---|
| 41 | DRG344 ;
|
---|
| 42 | DRG345 ;
|
---|
| 43 | DRG346 S ICDRG=$S(ICDMCC=2:344,ICDMCC=1:345,1:346) Q
|
---|
| 44 | DRG347 ;
|
---|
| 45 | DRG348 ;
|
---|
| 46 | DRG349 S ICDRG=$S(ICDMCC=2:347,ICDMCC=1:348,1:349) Q
|
---|
| 47 | DRG350 ;
|
---|
| 48 | DRG351 ;
|
---|
| 49 | DRG352 I ICDOR["J" S ICDRG=$S(ICDMCC=2:350,ICDMCC=1:351,1:352) Q
|
---|
| 50 | DRG353 ;
|
---|
| 51 | DRG354 ;
|
---|
| 52 | DRG355 S ICDRG=$S(ICDMCC=2:353,ICDMCC=1:354,1:355) Q
|
---|
| 53 | DRG356 ;
|
---|
| 54 | DRG357 ;
|
---|
| 55 | DRG358 S ICDRG=$S(ICDMCC=2:356,ICDMCC=1:357,1:358) Q
|
---|
| 56 | DRG368 ;
|
---|
| 57 | DRG369 ;
|
---|
| 58 | DRG370 S ICDRG=$S(ICDMCC=2:368,ICDMCC=1:369,1:370) Q
|
---|
| 59 | DRG371 ;
|
---|
| 60 | DRG372 ;
|
---|
| 61 | DRG373 S ICDRG=$S(ICDMCC=2:371,ICDMCC=1:372,1:373) Q
|
---|
| 62 | DRG374 ;
|
---|
| 63 | DRG375 ;
|
---|
| 64 | DRG376 S ICDRG=$S(ICDMCC=2:374,ICDMCC=1:375,1:376) Q
|
---|
| 65 | DRG377 ;
|
---|
| 66 | DRG378 ;
|
---|
| 67 | DRG379 S ICDRG=$S(ICDMCC=2:377,ICDMCC=1:378,1:379) Q
|
---|
| 68 | DRG380 ;
|
---|
| 69 | DRG381 ;
|
---|
| 70 | DRG382 S ICDRG=$S(ICDMCC=2:380,ICDMCC=1:381,1:382) Q
|
---|
| 71 | DRG383 ;
|
---|
| 72 | DRG384 S ICDRG=$S(ICDMCC=2:383,1:384) Q
|
---|
| 73 | DRG385 ;
|
---|
| 74 | DRG386 ;
|
---|
| 75 | DRG387 S ICDRG=$S(ICDMCC=2:385,ICDMCC=1:386,1:387) Q
|
---|
| 76 | DRG388 ;
|
---|
| 77 | DRG389 ;
|
---|
| 78 | DRG390 S ICDRG=$S(ICDMCC=2:388,ICDMCC=1:389,1:390) Q
|
---|
| 79 | DRG391 ;
|
---|
| 80 | DRG392 S ICDRG=$S(ICDMCC=2:391,1:392) Q
|
---|
| 81 | DRG393 ;
|
---|
| 82 | DRG394 ;
|
---|
| 83 | DRG395 S ICDRG=$S(ICDMCC=2:393,ICDMCC=1:394,1:395) Q
|
---|
| 84 | Q
|
---|