| [613] | 1 | ICDTLB3 ;ALB/EG - GROUPER UTILITY FUNCTIONS ; 9/29/04 3:38pm
|
|---|
| 2 | ;;18.0;DRG Grouper;**14**;Oct 20, 2000;Build 1
|
|---|
| 3 | DRG164 S ICDRG=$S(ICDPD["X"&(ICDCC):164,ICDPD["X":165,ICDCC:166,1:167) Q
|
|---|
| 4 | DRG165 S ICDRG=$S(ICDPD["X"&(ICDCC):164,ICDPD["X":165,ICDCC:166,1:167) Q
|
|---|
| 5 | DRG166 S ICDRG=$S(ICDPD["X"&(ICDCC):164,ICDPD["X":165,ICDCC:166,1:167) Q
|
|---|
| 6 | DRG167 S ICDRG=$S(ICDPD["X"&(ICDCC):164,ICDPD["X":165,ICDCC:166,1:167) Q
|
|---|
| 7 | DRG168 S ICDRG=$S(ICDCC:168,1:169) Q
|
|---|
| 8 | DRG169 S ICDRG=$S(ICDCC:168,1:169) Q
|
|---|
| 9 | DRG170 S ICDRG=$S(ICDCC:170,1:171) Q
|
|---|
| 10 | DRG171 S ICDRG=$S(ICDCC:170,1:171) Q
|
|---|
| 11 | DRG172 S ICDRG=$S(ICDCC:172,1:173) Q
|
|---|
| 12 | DRG173 S ICDRG=$S(ICDCC:172,1:173) Q
|
|---|
| 13 | DRG174 S ICDRG=$S(ICDCC:174,1:175) Q
|
|---|
| 14 | DRG175 S ICDRG=$S(ICDCC:174,1:175) Q
|
|---|
| 15 | DRG177 S ICDRG=$S(ICDCC:177,1:178) Q
|
|---|
| 16 | DRG178 S ICDRG=$S(ICDCC:177,1:178) Q
|
|---|
| 17 | DRG180 S ICDRG=$S(ICDCC:180,1:181) Q
|
|---|
| 18 | DRG181 S ICDRG=$S(ICDCC:180,1:181) Q
|
|---|
| 19 | DRG182 S ICDRG=$S(AGE<18:184,ICDCC:182,1:183) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 20 | Q
|
|---|
| 21 | DRG183 S ICDRG=$S(AGE<18:184,ICDCC:182,1:183) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 22 | Q
|
|---|
| 23 | DRG184 S ICDRG=$S(AGE<18:184,ICDCC:182,1:183) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 24 | Q
|
|---|
| 25 | DRG185 S ICDRG=$S(ICDOR["e":187,AGE="":470,AGE<18:186,1:185),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q
|
|---|
| 26 | DRG186 S ICDRG=$S(ICDOR["e":187,AGE="":470,AGE<18:186,1:185),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q
|
|---|
| 27 | DRG187 S ICDRG=$S($D(ICDPDRG(187)):187,$D(ICDPDRG):ICDPDRG,1:"")
|
|---|
| 28 | I ICDRG?.N&(+ICDRG>0) Q
|
|---|
| 29 | I +ICDRG=0 S ICDRG=470 Q
|
|---|
| 30 | S ICDREF=$$RTABLE^ICDREF(+ICDRG,+ICDDATE)
|
|---|
| 31 | I ICDRG["^"&($D(ICDREF)) X "D DRG"_+ICDRG_"^"_^ICDREF Q
|
|---|
| 32 | S ICDRG=+ICDPDRG
|
|---|
| 33 | Q
|
|---|
| 34 | DRG188 S ICDRG=$S(AGE<18:190,ICDCC:188,1:189) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 35 | Q
|
|---|
| 36 | DRG189 S ICDRG=$S(AGE<18:190,ICDCC:188,1:189) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 37 | Q
|
|---|
| 38 | DRG190 S ICDRG=$S(AGE<18:190,ICDCC:188,1:189) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 39 | Q
|
|---|
| 40 | DRG191 S ICDRG=$S(ICDCC:191,1:192) Q
|
|---|
| 41 | DRG192 S ICDRG=$S(ICDCC:191,1:192) Q
|
|---|
| 42 | DRG193 ;
|
|---|
| 43 | I ICDOR["T"&(ICDOR'["3"!(ICDOR'["h")) D Q:"195^196^197^198"[ICDRG
|
|---|
| 44 | .I ICDOR["E" S ICDRG=$S(ICDCC:195,1:196) Q
|
|---|
| 45 | .I ICDOR'["E" S ICDRG=$S(ICDCC:197,1:198)
|
|---|
| 46 | I ICDOR["3"!(ICDOR["E") S ICDRG=$S(ICDCC:193,1:194) Q
|
|---|
| 47 | I ICDPD["M"&(ICDOR["h") S ICDRG=199 Q
|
|---|
| 48 | I ICDPD'["M"&(ICDOR["h") S ICDRG=200 Q
|
|---|
| 49 | I ICDPD["M"&(ICDOR'["h") S ICDRG=203 Q
|
|---|
| 50 | S ICDRG=204
|
|---|
| 51 | Q
|
|---|
| 52 | DRG194 D DRG193 Q
|
|---|
| 53 | DRG195 G:ICDOR["TT" DRG493^ICDTLB6 D DRG193 Q
|
|---|
| 54 | DRG196 D DRG193 Q
|
|---|
| 55 | DRG197 S ICDRG=$S(ICDCC:197,1:198) Q
|
|---|
| 56 | DRG198 S ICDRG=$S(ICDCC:197,1:198) Q
|
|---|
| 57 | DRG199 D DRG193 Q
|
|---|
| 58 | DRG200 D DRG193 Q
|
|---|
| 59 | DRG205 S ICDRG=$S(ICDCC:205,1:206) Q
|
|---|
| 60 | DRG206 S ICDRG=$S(ICDCC:205,1:206) Q
|
|---|
| 61 | DRG207 S ICDRG=$S(ICDCC:207,1:208) Q
|
|---|
| 62 | DRG208 S ICDRG=$S(ICDCC:207,1:208) Q
|
|---|
| 63 | DRG209 S ICDRG=$S($F($P(ICDOR,"M",2,99),"M"):471,1:209) Q
|
|---|
| 64 | DRG210 S ICDRG=$S(AGE<18:212,ICDCC:210,1:211) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 65 | Q
|
|---|
| 66 | DRG211 S ICDRG=$S(AGE<18:212,ICDCC:210,1:211) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 67 | Q
|
|---|
| 68 | DRG212 S ICDRG=$S(AGE<18:212,ICDCC:210,1:211) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 69 | Q
|
|---|
| 70 | DRG214 Q
|
|---|
| 71 | DRG215 Q
|
|---|
| 72 | DRG218 S ICDRG=$S(AGE<18:220,ICDCC:218,1:219) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 73 | Q
|
|---|
| 74 | DRG219 S ICDRG=$S(AGE<18:220,ICDCC:218,1:219) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 75 | Q
|
|---|
| 76 | DRG220 S ICDRG=$S(AGE<18:220,ICDCC:218,1:219) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 77 | Q
|
|---|
| 78 | DRG221 Q
|
|---|
| 79 | DRG222 Q
|
|---|
| 80 | DRG224 S ICDRG=$S(ICDCC:223,1:224) Q
|
|---|
| 81 | DRG226 S ICDRG=$S(ICDCC:226,1:227) Q
|
|---|
| 82 | DRG227 S ICDRG=$S(ICDCC:226,1:227) Q
|
|---|
| 83 | DRG228 S ICDRG=$S(ICDOR["O2":228,ICDCC:228,1:229) Q
|
|---|
| 84 | DRG229 S ICDRG=$S(ICDOR["O2":228,ICDCC:228,1:229) Q
|
|---|
| 85 | DRG232 S ICDRG=232 Q
|
|---|
| 86 | DRG233 S ICDRG=$S(ICDCC:233,1:234) Q
|
|---|
| 87 | DRG234 S ICDRG=$S(ICDCC:233,1:234) Q
|
|---|
| 88 | DRG240 S ICDRG=$S(ICDCC:240,1:241) Q
|
|---|
| 89 | DRG241 S ICDRG=$S(ICDCC:240,1:241) Q
|
|---|
| 90 | DRG244 S ICDRG=$S(ICDCC:244,1:245) Q
|
|---|
| 91 | DRG245 S ICDRG=$S(ICDCC:244,1:245) Q
|
|---|
| 92 | DRG250 S ICDRG=$S(AGE<18:252,ICDCC:250,1:251) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 93 | Q
|
|---|
| 94 | DRG251 S ICDRG=$S(AGE<18:252,ICDCC:250,1:251) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 95 | Q
|
|---|
| 96 | DRG252 S ICDRG=$S(AGE<18:252,ICDCC:250,1:251) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 97 | Q
|
|---|
| 98 | DRG253 S ICDRG=$S(AGE<18:255,ICDCC:253,1:254) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 99 | Q
|
|---|
| 100 | DRG254 S ICDRG=$S(AGE<18:255,ICDCC:253,1:254) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 101 | Q
|
|---|
| 102 | DRG255 S ICDRG=$S(AGE<18:255,ICDCC:253,1:254) I AGE="" S ICDRG=470,ICDRTC=3
|
|---|
| 103 | Q
|
|---|
| 104 | DRG257 I ICDOR'=""&(ICDOR["M") D
|
|---|
| 105 | .S ICDRG=$S(ICDPD["r"&(ICDCC):257,ICDSD["r"&(ICDCC):257,ICDPD["r":258,ICDSD["r":258,1:"")
|
|---|
| 106 | S:ICDRG="" ICDRG=261
|
|---|
| 107 | Q
|
|---|
| 108 | DRG258 D DRG257 Q
|
|---|
| 109 | DRG259 I ICDOR'=""&(ICDOR["m") D
|
|---|
| 110 | .S ICDRG=$S(ICDPD["r"&(ICDCC):259,ICDSD["r"&(ICDCC):259,ICDPD["r":260,ICDSD["r":260,ICDOR["L":262,1:"")
|
|---|
| 111 | .I $D(ICDOP("85.12 "))!$D(ICDOP("85.20 "))!$D(ICDOP("85.21 ")) S ICDRG=262
|
|---|
| 112 | S:ICDRG="" ICDRG=261
|
|---|
| 113 | Q
|
|---|
| 114 | DRG260 D DRG259 Q
|
|---|
| 115 | DRG262 D DRG259 Q
|
|---|
