| 1 | ICDTBL1 ;ALB/EG/MRY - GROUPER UTILITY FUNCTIONS ; 11/5/07 11:07am
|
|---|
| 2 | ;;18.0;DRG Grouper;**31**;Oct 20, 2000;Build 7
|
|---|
| 3 | DRG100 ;100-101
|
|---|
| 4 | DRG101 ;
|
|---|
| 5 | S ICDRG=$S(ICDMCC=2:100,1:101) Q
|
|---|
| 6 | DRG102 ;102-103
|
|---|
| 7 | DRG103 ;
|
|---|
| 8 | S ICDRG=$S(ICDMCC=2:102,1:103) Q
|
|---|
| 9 | DRG113 ;113-114
|
|---|
| 10 | DRG114 ;
|
|---|
| 11 | S ICDRG=$S(ICDMCC>0:113,1:114) Q
|
|---|
| 12 | DRG115 S ICDRG=115 Q
|
|---|
| 13 | DRG116 ;
|
|---|
| 14 | DRG117 S ICDRG=$S(ICDMCC>0:116,1:117) Q
|
|---|
| 15 | DRG121 ;
|
|---|
| 16 | DRG122 S ICDRG=$S(ICDMCC>0:121,1:122) Q
|
|---|
| 17 | DRG123 S ICDRG=123 Q
|
|---|
| 18 | DRG124 ;
|
|---|
| 19 | DRG125 S ICDRG=$S(ICDMCC=2:124,1:125) Q
|
|---|
| 20 | DRG129 ;
|
|---|
| 21 | DRG130 S ICDRG=$S(ICDMCC>0:129,1:130)
|
|---|
| 22 | I $D(ICDOP(" 20.96"))!$D(ICDOP(" 20.97"))!$D(ICDOP(" 20.98")) S ICDRG=129
|
|---|
| 23 | Q
|
|---|
| 24 | DRG131 ;
|
|---|
| 25 | DRG132 S ICDRG=$S(ICDMCC>0:131,1:132) Q
|
|---|
| 26 | DRG133 ;
|
|---|
| 27 | DRG134 S ICDRG=$S(ICDMCC>0:133,1:134) Q
|
|---|
| 28 | DRG135 ;
|
|---|
| 29 | DRG136 S ICDRG=$S(ICDMCC>0:135,1:136) Q
|
|---|
| 30 | DRG137 ;
|
|---|
| 31 | DRG138 S ICDRG=$S(ICDMCC>0:137,1:138) Q
|
|---|
| 32 | DRG139 S ICDRG=139 Q
|
|---|
| 33 | DRG146 ;
|
|---|
| 34 | DRG147 ;
|
|---|
| 35 | DRG148 S ICDRG=$S(ICDMCC=2:146,ICDMCC=1:147,1:148) Q
|
|---|
| 36 | DRG149 S ICDRG=149 Q
|
|---|
| 37 | DRG150 ;
|
|---|
| 38 | DRG151 S ICDRG=$S(ICDMCC=2:150,1:151) Q
|
|---|
| 39 | DRG152 ;
|
|---|
| 40 | DRG153 S ICDRG=$S(ICDMCC=2:152,1:153) Q
|
|---|
| 41 | DRG154 ;
|
|---|
| 42 | DRG155 ;
|
|---|
| 43 | DRG156 S ICDRG=$S(ICDMCC=2:154,ICDMCC=1:155,1:156) Q
|
|---|
| 44 | DRG157 ;
|
|---|
| 45 | DRG158 ;
|
|---|
| 46 | DRG159 S ICDRG=$S(ICDMCC=2:157,ICDMCC=1:158,1:159) Q
|
|---|
| 47 | DRG163 ;
|
|---|
| 48 | DRG164 ;
|
|---|
| 49 | DRG165 S ICDRG=$S(ICDMCC=2:163,ICDMCC=1:164,1:165) Q
|
|---|
| 50 | DRG166 ;
|
|---|
| 51 | DRG167 ;
|
|---|
| 52 | DRG168 S ICDRG=$S(ICDMCC=2:166,ICDMCC=1:167,1:168) Q
|
|---|
| 53 | DRG175 ;
|
|---|
| 54 | DRG176 S ICDRG=$S(ICDMCC=2:175,1:176) Q
|
|---|
| 55 | DRG177 ;
|
|---|
| 56 | DRG178 ;
|
|---|
| 57 | DRG179 S ICDRG=$S(ICDMCC=2:177,ICDMCC=1:178,1:179) Q
|
|---|
| 58 | DRG180 ;
|
|---|
| 59 | DRG181 ;
|
|---|
| 60 | DRG182 S ICDRG=$S(ICDMCC=2:180,ICDMCC=1:181,1:182) Q
|
|---|
| 61 | DRG183 ;
|
|---|
| 62 | DRG184 ;
|
|---|
| 63 | DRG185 S ICDRG=$S(ICDMCC=2:183,ICDMCC=1:184,1:185) Q
|
|---|
| 64 | DRG186 ;
|
|---|
| 65 | DRG187 ;
|
|---|
| 66 | DRG188 S ICDRG=$S(ICDMCC=2:186,ICDMCC=1:187,1:188) Q
|
|---|
| 67 | DRG189 S ICDRG=189 Q
|
|---|
| 68 | DRG190 ;
|
|---|
| 69 | DRG191 ;
|
|---|
| 70 | DRG192 S ICDRG=$S(ICDMCC=2:190,ICDMCC=1:191,1:192) Q
|
|---|
| 71 | DRG193 ;
|
|---|
| 72 | DRG194 ;
|
|---|
| 73 | DRG195 S ICDRG=$S(ICDMCC=2:193,ICDMCC=1:194,1:195) Q
|
|---|
| 74 | DRG196 ;
|
|---|
| 75 | DRG197 ;
|
|---|
| 76 | DRG198 S ICDRG=$S(ICDMCC=2:196,ICDMCC=1:197,1:198) Q
|
|---|
| 77 | DRG199 S ICDRG=$S(ICDMCC=2:199,ICDMCC=1:200,1:201) Q
|
|---|
| 78 | Q
|
|---|
