| 1 | ICDTBL5 ;ALB/EG/MRY - GROUPER UTILITY FUNCTIONS ; 11/8/07 1:44pm
|
|---|
| 2 | ;;18.0;DRG Grouper;**31,32**;Oct 20, 2000;Build 9
|
|---|
| 3 | DRG500 ;
|
|---|
| 4 | DRG501 ;
|
|---|
| 5 | DRG502 S ICDRG=$S(ICDMCC=2:500,ICDMCC=1:501,1:502) Q
|
|---|
| 6 | DRG503 ;
|
|---|
| 7 | DRG504 ;
|
|---|
| 8 | DRG505 S ICDRG=$S(ICDMCC=2:503,ICDMCC=1:504,1:505) Q
|
|---|
| 9 | DRG506 S ICDRG=506 Q
|
|---|
| 10 | DRG507 ;
|
|---|
| 11 | DRG508 S ICDRG=$S(ICDMCC>0:507,1:508) Q
|
|---|
| 12 | DRG509 S ICDRG=509 Q
|
|---|
| 13 | DRG510 ;
|
|---|
| 14 | DRG511 ;
|
|---|
| 15 | DRG512 S ICDRG=$S(ICDMCC=2:510,ICDMCC=1:511,1:512) Q
|
|---|
| 16 | DRG513 ;
|
|---|
| 17 | DRG514 S ICDRG=$S(ICDMCC>0:513,1:514) Q
|
|---|
| 18 | DRG515 ;
|
|---|
| 19 | DRG516 ;
|
|---|
| 20 | DRG517 S ICDRG=$S(ICDMCC=2:515,ICDMCC=1:516,1:517) Q
|
|---|
| 21 | DRG533 ;
|
|---|
| 22 | DRG534 S ICDRG=$S(ICDMCC=2:533,1:534) Q
|
|---|
| 23 | DRG535 ;
|
|---|
| 24 | DRG536 S ICDRG=$S(ICDMCC=2:535,1:536) Q
|
|---|
| 25 | DRG537 ;
|
|---|
| 26 | DRG538 S ICDRG=$S(ICDMCC>0:537,1:538) Q
|
|---|
| 27 | DRG539 ;
|
|---|
| 28 | DRG540 ;
|
|---|
| 29 | DRG541 S ICDRG=$S(ICDMCC=2:539,ICDMCC=1:540,1:541) Q
|
|---|
| 30 | DRG542 ;
|
|---|
| 31 | DRG543 ;
|
|---|
| 32 | DRG544 S ICDRG=$S(ICDMCC=2:542,ICDMCC=1:543,1:544) Q
|
|---|
| 33 | DRG545 ;
|
|---|
| 34 | DRG546 ;
|
|---|
| 35 | DRG547 S ICDRG=$S(ICDMCC=2:545,ICDMCC=1:546,1:547) Q
|
|---|
| 36 | DRG548 ;
|
|---|
| 37 | DRG549 ;
|
|---|
| 38 | DRG550 S ICDRG=$S(ICDMCC=2:548,ICDMCC=1:549,1:550) Q
|
|---|
| 39 | DRG551 ;
|
|---|
| 40 | DRG552 S ICDRG=$S(ICDMCC=2:551,1:552) Q
|
|---|
| 41 | DRG553 ;
|
|---|
| 42 | DRG554 S ICDRG=$S(ICDMCC=2:553,1:554) Q
|
|---|
| 43 | DRG555 ;
|
|---|
| 44 | DRG556 S ICDRG=$S(ICDMCC=2:555,1:556) Q
|
|---|
| 45 | DRG557 ;
|
|---|
| 46 | DRG558 S ICDRG=$S(ICDMCC=2:557,1:558) Q
|
|---|
| 47 | DRG559 ;
|
|---|
| 48 | DRG560 ;
|
|---|
| 49 | DRG561 S ICDRG=$S(ICDMCC=2:559,ICDMCC=1:560,1:561) Q
|
|---|
| 50 | DRG562 ;
|
|---|
| 51 | DRG563 S ICDRG=$S(ICDMCC=2:562,1:563) Q
|
|---|
| 52 | DRG564 ;
|
|---|
| 53 | DRG565 ;
|
|---|
| 54 | DRG566 S ICDRG=$S(ICDMCC=2:564,ICDMCC=1:565,1:566) Q
|
|---|
| 55 | DRG573 ;
|
|---|
| 56 | DRG574 ;
|
|---|
| 57 | DRG575 I ICDPD["U" S ICDRG=$S(ICDMCC=2:573,ICDMCC=1:574,1:575) Q
|
|---|
| 58 | DRG576 ;
|
|---|
| 59 | DRG577 ;
|
|---|
| 60 | DRG578 S ICDRG=$S(ICDMCC=2:576,ICDMCC=1:577,1:578) Q
|
|---|
| 61 | DRG579 ;
|
|---|
| 62 | DRG580 ;
|
|---|
| 63 | DRG581 S ICDRG=$S(ICDMCC=2:579,ICDMCC=1:580,1:581) Q
|
|---|
| 64 | DRG582 ;
|
|---|
| 65 | DRG583 I ICDPD["M"!(ICDSD["M") S ICDRG=$S(ICDMCC>0:582,1:583) Q
|
|---|
| 66 | E G DRG584
|
|---|
| 67 | DRG584 ;
|
|---|
| 68 | DRG585 I ICDOR["M"!(ICDOR["m") S ICDRG=$S(ICDMCC>0:584,1:585) Q
|
|---|
| 69 | E S ICDRG="" Q
|
|---|
| 70 | DRG592 ;
|
|---|
| 71 | DRG593 ;
|
|---|
| 72 | DRG594 S ICDRG=$S(ICDMCC=2:592,ICDMCC=1:593,1:594) Q
|
|---|
| 73 | DRG595 ;
|
|---|
| 74 | DRG596 S ICDRG=$S(ICDMCC=2:595,1:596) Q
|
|---|
| 75 | DRG597 ;
|
|---|
| 76 | DRG598 ;
|
|---|
| 77 | DRG599 I ICDPD["r" S ICDRG=$S(ICDMCC=2:597,ICDMCC=1:598,1:599) Q
|
|---|
| 78 | Q
|
|---|
