| 1 | ICD1824N ; ALB/JAT - FY 2007 UPDATE; 7/27/05 14:50;
|
---|
| 2 | ;;18.0;DRG Grouper;**24**;Oct 13,2000;Build 5
|
---|
| 3 | Q
|
---|
| 4 | ;
|
---|
| 5 | DIAG ;
|
---|
| 6 | D BMES^XPDUTL(">>>DRG Reclassification changes")
|
---|
| 7 | D MES^XPDUTL(">>>Modifying diagnosis codes - file 80")
|
---|
| 8 | D MES^XPDUTL(">>>for new DRGs")
|
---|
| 9 | N LINE,X,ICDDIAG,ENTRY,FDA
|
---|
| 10 | F LINE=1:1 S X=$T(REVD+LINE) S ICDDIAG=$P(X,";;",2) Q:ICDDIAG="EXIT" D
|
---|
| 11 | .S ENTRY=+$O(^ICD9("BA",$P(ICDDIAG,U)_" ",0))
|
---|
| 12 | .I ENTRY D
|
---|
| 13 | ..;check for possible inactive dupe
|
---|
| 14 | ..I $P($G(^ICD9(ENTRY,0)),U,9)=1 S ENTRY=+$O(^ICD9("BA",$P(ICDDIAG,U)_" ",ENTRY)) I 'ENTRY Q
|
---|
| 15 | ..;check if already created in case patch being re-installed
|
---|
| 16 | ..Q:$D(^ICD9(ENTRY,3,"B",3061001))
|
---|
| 17 | ..; add 80.071 and 80.711 records
|
---|
| 18 | ..S FDA(1820,80,"?1,",.01)="`"_ENTRY
|
---|
| 19 | ..S FDA(1820,80.071,"+2,?1,",.01)=3061001
|
---|
| 20 | ..D UPDATE^DIE("","FDA(1820)") K FDA(1820)
|
---|
| 21 | ..S FDA(1820,80,"?1,",.01)="`"_ENTRY
|
---|
| 22 | ..S FDA(1820,80.071,"?2,?1,",.01)=3061001
|
---|
| 23 | ..S FDA(1820,80.711,"+3,?2,?1,",.01)=$P(ICDDIAG,U,2)
|
---|
| 24 | ..I $P(ICDDIAG,U,3) S FDA(1820,80.711,"+4,?2,?1,",.01)=$P(ICDDIAG,U,3)
|
---|
| 25 | ..I $P(ICDDIAG,U,4) S FDA(1820,80.711,"+5,?2,?1,",.01)=$P(ICDDIAG,U,4)
|
---|
| 26 | ..D UPDATE^DIE("","FDA(1820)") K FDA(1820)
|
---|
| 27 | Q
|
---|
| 28 | REVD ;
|
---|
| 29 | ;;100.81^561^
|
---|
| 30 | ;;100.89^561^
|
---|
| 31 | ;;112.83^561^489
|
---|
| 32 | ;;114.2^561^489
|
---|
| 33 | ;;115.01^561^489
|
---|
| 34 | ;;115.11^561^489
|
---|
| 35 | ;;115.91^561^489
|
---|
| 36 | ;;320.0^560^
|
---|
| 37 | ;;320.1^560^
|
---|
| 38 | ;;320.2^560^
|
---|
| 39 | ;;320.3^560^
|
---|
| 40 | ;;320.7^560^
|
---|
| 41 | ;;320.9^560^
|
---|
| 42 | ;;321.1^561^
|
---|
| 43 | ;;321.2^561^
|
---|
| 44 | ;;321.3^561^
|
---|
| 45 | ;;321.4^561^
|
---|
| 46 | ;;321.8^561^
|
---|
| 47 | ;;322.1^561^
|
---|
| 48 | ;;322.2^561^
|
---|
| 49 | ;;322.9^561^
|
---|
| 50 | ;;323.1^561^
|
---|
| 51 | ;;323.2^561^
|
---|
| 52 | ;;323.9^561^489
|
---|
| 53 | ;;324.1^560^
|
---|
| 54 | ;;324.9^560^
|
---|
| 55 | ;;003.21^560^489
|
---|
| 56 | ;;006.5^561^
|
---|
| 57 | ;;013.00^560^489
|
---|
| 58 | ;;013.01^560^489
|
---|
| 59 | ;;013.02^560^489
|
---|
| 60 | ;;013.03^560^489
|
---|
| 61 | ;;013.04^560^489
|
---|
| 62 | ;;013.05^560^489
|
---|
| 63 | ;;013.06^560^489
|
---|
| 64 | ;;013.10^560^489
|
---|
| 65 | ;;013.11^560^489
|
---|
| 66 | ;;013.12^560^489
|
---|
| 67 | ;;013.13^560^489
|
---|
| 68 | ;;013.14^560^489
|
---|
| 69 | ;;013.15^560^489
|
---|
| 70 | ;;013.16^560^489
|
---|
| 71 | ;;013.20^560^489
|
---|
| 72 | ;;013.21^560^489
|
---|
| 73 | ;;013.22^560^489
|
---|
| 74 | ;;013.23^560^489
|
---|
| 75 | ;;013.24^560^489
|
---|
| 76 | ;;013.25^560^489
|
---|
| 77 | ;;013.26^560^489
|
---|
| 78 | ;;013.30^560^489
|
---|
| 79 | ;;013.31^560^489
|
---|
| 80 | ;;013.32^560^489
|
---|
| 81 | ;;013.33^560^489
|
---|
| 82 | ;;013.34^560^489
|
---|
| 83 | ;;013.35^560^489
|
---|
| 84 | ;;013.36^560^489
|
---|
| 85 | ;;013.40^560^489
|
---|
| 86 | ;;013.41^560^489
|
---|
| 87 | ;;013.42^560^489
|
---|
| 88 | ;;013.43^560^489
|
---|
| 89 | ;;013.44^560^489
|
---|
| 90 | ;;013.45^560^489
|
---|
| 91 | ;;013.46^560^489
|
---|
| 92 | ;;013.50^560^489
|
---|
| 93 | ;;013.51^560^489
|
---|
| 94 | ;;013.52^560^489
|
---|
| 95 | ;;013.53^560^489
|
---|
| 96 | ;;013.54^560^489
|
---|
| 97 | ;;013.55^560^489
|
---|
| 98 | ;;013.56^560^489
|
---|
| 99 | ;;013.60^560^489
|
---|
| 100 | ;;013.61^560^489
|
---|
| 101 | ;;013.62^560^489
|
---|
| 102 | ;;013.63^560^489
|
---|
| 103 | ;;013.64^560^489
|
---|
| 104 | ;;013.65^560^489
|
---|
| 105 | ;;013.66^560^489
|
---|
| 106 | ;;013.80^560^489
|
---|
| 107 | ;;013.81^560^489
|
---|
| 108 | ;;013.82^560^489
|
---|
| 109 | ;;013.83^560^489
|
---|
| 110 | ;;013.84^560^489
|
---|
| 111 | ;;013.85^560^489
|
---|
| 112 | ;;013.86^560^489
|
---|
| 113 | ;;013.90^560^489
|
---|
| 114 | ;;013.91^560^489
|
---|
| 115 | ;;013.92^560^489
|
---|
| 116 | ;;013.93^560^489
|
---|
| 117 | ;;013.94^560^
|
---|
| 118 | ;;013.95^560^
|
---|
| 119 | ;;013.96^560^
|
---|
| 120 | ;;036.0^560^
|
---|
| 121 | ;;036.1^560^
|
---|
| 122 | ;;045.00^561^
|
---|
| 123 | ;;045.01^561^
|
---|
| 124 | ;;045.02^561^
|
---|
| 125 | ;;045.03^561^
|
---|
| 126 | ;;045.10^561^
|
---|
| 127 | ;;045.11^561^
|
---|
| 128 | ;;045.12^561^
|
---|
| 129 | ;;045.13^561^
|
---|
| 130 | ;;045.90^561^
|
---|
| 131 | ;;045.91^561^
|
---|
| 132 | ;;045.92^561^
|
---|
| 133 | ;;045.93^561^
|
---|
| 134 | ;;049.8^561^489
|
---|
| 135 | ;;049.9^561^489
|
---|
| 136 | ;;052.0^561^
|
---|
| 137 | ;;054.3^561^489
|
---|
| 138 | ;;055.0^561^
|
---|
| 139 | ;;056.01^561^
|
---|
| 140 | ;;056.09^561^
|
---|
| 141 | ;;062.0^561^
|
---|
| 142 | ;;062.1^561^
|
---|
| 143 | ;;062.2^561^
|
---|
| 144 | ;;062.3^561^
|
---|
| 145 | ;;062.4^561^
|
---|
| 146 | ;;062.5^561^
|
---|
| 147 | ;;062.8^561^
|
---|
| 148 | ;;062.9^561^
|
---|
| 149 | ;;063.0^561^
|
---|
| 150 | ;;063.1^561^
|
---|
| 151 | ;;063.2^561^
|
---|
| 152 | ;;063.8^561^
|
---|
| 153 | ;;063.9^561^
|
---|
| 154 | ;;064.^561^
|
---|
| 155 | ;;066.2^561^
|
---|
| 156 | ;;071.^561^
|
---|
| 157 | ;;072.2^561^
|
---|
| 158 | ;;090.40^561^
|
---|
| 159 | ;;090.41^561^
|
---|
| 160 | ;;090.42^561^
|
---|
| 161 | ;;090.49^561^
|
---|
| 162 | ;;091.81^561^
|
---|
| 163 | ;;094.2^561^
|
---|
| 164 | ;;094.3^561^
|
---|
| 165 | ;;094.81^561^
|
---|
| 166 | ;;098.82^560^
|
---|
| 167 | ;;130.0^561^489
|
---|
| 168 | ;;321.0^561^
|
---|
| 169 | ;;322.0^561^
|
---|
| 170 | ;;324.0^560^
|
---|
| 171 | ;;357.0^560^
|
---|
| 172 | ;;320.82^560^
|
---|
| 173 | ;;320.81^560^
|
---|
| 174 | ;;320.89^560^
|
---|
| 175 | ;;307.81^26^564
|
---|
| 176 | ;;310.2^26^564
|
---|
| 177 | ;;345.2^26^562^563
|
---|
| 178 | ;;345.3^26^562^563
|
---|
| 179 | ;;348.2^26^564
|
---|
| 180 | ;;437.4^26^564
|
---|
| 181 | ;;349.0^26^564
|
---|
| 182 | ;;784.0^26^564
|
---|
| 183 | ;;345.00^26^562^563
|
---|
| 184 | ;;345.01^26^562^563
|
---|
| 185 | ;;345.10^26^562^563
|
---|
| 186 | ;;345.11^26^562^563
|
---|
| 187 | ;;345.40^26^562^563
|
---|
| 188 | ;;345.41^26^562^563
|
---|
| 189 | ;;345.50^26^562^563
|
---|
| 190 | ;;345.51^26^562^563
|
---|
| 191 | ;;345.60^26^562^563
|
---|
| 192 | ;;345.61^26^562^563
|
---|
| 193 | ;;345.70^26^562^563
|
---|
| 194 | ;;345.71^26^562^563
|
---|
| 195 | ;;345.80^26^562^563
|
---|
| 196 | ;;345.81^26^562^563
|
---|
| 197 | ;;345.90^26^562^563
|
---|
| 198 | ;;345.91^26^562^563
|
---|
| 199 | ;;346.01^26^564
|
---|
| 200 | ;;346.11^26^564
|
---|
| 201 | ;;346.21^26^564
|
---|
| 202 | ;;346.81^26^564
|
---|
| 203 | ;;346.91^26^564
|
---|
| 204 | ;;346.00^26^564
|
---|
| 205 | ;;346.10^26^564
|
---|
| 206 | ;;346.20^26^564
|
---|
| 207 | ;;346.80^26^564
|
---|
| 208 | ;;346.90^26^564
|
---|
| 209 | ;;780.31^26^562^563
|
---|
| 210 | ;;780.39^26^562^563
|
---|
| 211 | ;;017.80^571^489
|
---|
| 212 | ;;017.81^571^489
|
---|
| 213 | ;;017.82^571^489
|
---|
| 214 | ;;017.83^571^489
|
---|
| 215 | ;;017.84^571^489
|
---|
| 216 | ;;017.85^571^489
|
---|
| 217 | ;;017.86^571^489
|
---|
| 218 | ;;112.84^571^489
|
---|
| 219 | ;;456.0^571
|
---|
| 220 | ;;456.1^571
|
---|
| 221 | ;;456.20^571
|
---|
| 222 | ;;530.4^571
|
---|
| 223 | ;;530.7^571
|
---|
| 224 | ;;530.82^571
|
---|
| 225 | ;;530.84^571
|
---|
| 226 | ;;750.3^571
|
---|
| 227 | ;;750.4^571
|
---|
| 228 | ;;862.22^571
|
---|
| 229 | ;;947.2^571
|
---|
| 230 | ;;001.0^572
|
---|
| 231 | ;;001.1^572
|
---|
| 232 | ;;001.9^572
|
---|
| 233 | ;;003.0^572
|
---|
| 234 | ;;004.0^572
|
---|
| 235 | ;;004.1^572
|
---|
| 236 | ;;004.2^572
|
---|
| 237 | ;;004.3^572
|
---|
| 238 | ;;004.8^572
|
---|
| 239 | ;;004.9^572
|
---|
| 240 | ;;005.0^572
|
---|
| 241 | ;;005.2^572
|
---|
| 242 | ;;005.3^572
|
---|
| 243 | ;;005.4^572
|
---|
| 244 | ;;005.81^572
|
---|
| 245 | ;;005.89^572
|
---|
| 246 | ;;006.0^572
|
---|
| 247 | ;;006.1^572
|
---|
| 248 | ;;006.2^572
|
---|
| 249 | ;;007.0^572
|
---|
| 250 | ;;007.1^572
|
---|
| 251 | ;;007.2^572^489
|
---|
| 252 | ;;007.3^572
|
---|
| 253 | ;;007.4^572
|
---|
| 254 | ;;007.5^572
|
---|
| 255 | ;;007.8^572
|
---|
| 256 | ;;007.9^572
|
---|
| 257 | ;;008.00^572
|
---|
| 258 | ;;008.01^572
|
---|
| 259 | ;;008.02^572
|
---|
| 260 | ;;008.03^572
|
---|
| 261 | ;;008.04^572
|
---|
| 262 | ;;008.09^572
|
---|
| 263 | ;;008.1^572
|
---|
| 264 | ;;008.2^572
|
---|
| 265 | ;;008.3^572
|
---|
| 266 | ;;008.41^572
|
---|
| 267 | ;;008.42^572
|
---|
| 268 | ;;008.43^572
|
---|
| 269 | ;;008.44^572
|
---|
| 270 | ;;008.45^572
|
---|
| 271 | ;;008.46^572
|
---|
| 272 | ;;008.47^572
|
---|
| 273 | ;;008.49^572
|
---|
| 274 | ;;008.5^572
|
---|
| 275 | ;;4.00^572
|
---|
| 276 | ;;014.01^572
|
---|
| 277 | ;;014.02^572
|
---|
| 278 | ;;014.03^572
|
---|
| 279 | ;;014.04^572
|
---|
| 280 | ;;014.05^572
|
---|
| 281 | ;;014.06^572
|
---|
| 282 | ;;014.80^572
|
---|
| 283 | ;;014.81^572
|
---|
| 284 | ;;014.82^572
|
---|
| 285 | ;;014.83^572
|
---|
| 286 | ;;014.84^572
|
---|
| 287 | ;;014.85^572
|
---|
| 288 | ;;014.86^572
|
---|
| 289 | ;;021.1^572
|
---|
| 290 | ;;022.2^572
|
---|
| 291 | ;;032.83^572
|
---|
| 292 | ;;039.2^572^489
|
---|
| 293 | ;;095.2^572
|
---|
| 294 | ;;098.86^572
|
---|
| 295 | ;;123.1^572
|
---|
| 296 | ;;123.5^572
|
---|
| 297 | ;;123.6^572
|
---|
| 298 | ;;123.8^572
|
---|
| 299 | ;;123.9^572
|
---|
| 300 | ;;126.0^572
|
---|
| 301 | ;;126.1^572
|
---|
| 302 | ;;126.2^572
|
---|
| 303 | ;;126.3^572
|
---|
| 304 | ;;126.8^572
|
---|
| 305 | ;;126.9^572
|
---|
| 306 | ;;540.0^572
|
---|
| 307 | ;;540.1^572
|
---|
| 308 | ;;567.0^572
|
---|
| 309 | ;;567.1^572
|
---|
| 310 | ;;567.21^572
|
---|
| 311 | ;;567.22^572
|
---|
| 312 | ;;567.23^572
|
---|
| 313 | ;;567.29^572
|
---|
| 314 | ;;567.31^572
|
---|
| 315 | ;;567.38^572
|
---|
| 316 | ;;7.39^572
|
---|
| 317 | ;;567.89^572
|
---|
| 318 | ;;567.9^572
|
---|
| 319 | ;;569.5^572
|
---|
| 320 | ;;279.11^574
|
---|
| 321 | ;;279.12^574
|
---|
| 322 | ;;279.13^574
|
---|
| 323 | ;;279.19^574
|
---|
| 324 | ;;279.2^574
|
---|
| 325 | ;;283.0^574
|
---|
| 326 | ;;283.10^574
|
---|
| 327 | ;;283.19^574
|
---|
| 328 | ;;283.2^574
|
---|
| 329 | ;;283.9^574
|
---|
| 330 | ;;284.8^574
|
---|
| 331 | ;;284.9^574
|
---|
| 332 | ;;288.1^574
|
---|
| 333 | ;;288.2^574
|
---|
| 334 | ;;996.85^574
|
---|
| 335 | ;;EXIT
|
---|