- BGP7GXND ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 25, 2006 ;
- +1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- +2 ;
- START ;
- +1 IF '$GET(ATXPGMC)
- KILL ^TMP("ATX",$JOB)
- +2 SET ATXPGMC=$GET(ATXPGMC)+1
- +3 FOR ATXI=1:1
- SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- IF X=""
- QUIT
- SET X="^TMP(""ATX"",$J,"_X
- SET ATXI=ATXI+1
- SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- SET @X=Y
- +4 QUIT
- +5 ;
- TMP ;;TAXONOMY (WITH BULLETIN)
- +1 ;;21,"55175-4181-03 ")
- +2 ;;1329
- +3 ;;21,"55175-4186-01 ")
- +4 ;;1330
- +5 ;;21,"55175-4186-03 ")
- +6 ;;1331
- +7 ;;21,"55175-4186-06 ")
- +8 ;;367
- +9 ;;21,"55175-4187-00 ")
- +10 ;;892
- +11 ;;21,"55175-4187-03 ")
- +12 ;;893
- +13 ;;21,"55175-4187-04 ")
- +14 ;;894
- +15 ;;21,"55175-4187-06 ")
- +16 ;;285
- +17 ;;21,"55175-4435-01 ")
- +18 ;;876
- +19 ;;21,"55175-4460-01 ")
- +20 ;;106
- +21 ;;21,"55175-4461-01 ")
- +22 ;;1161
- +23 ;;21,"55175-4465-01 ")
- +24 ;;886
- +25 ;;21,"55175-4466-01 ")
- +26 ;;887
- +27 ;;21,"55175-5245-01 ")
- +28 ;;119
- +29 ;;21,"55289-0003-60 ")
- +30 ;;870
- +31 ;;21,"55289-0155-97 ")
- +32 ;;871
- +33 ;;21,"55289-0259-01 ")
- +34 ;;895
- +35 ;;21,"55289-0259-30 ")
- +36 ;;896
- +37 ;;21,"55289-0259-60 ")
- +38 ;;897
- +39 ;;21,"55289-0260-01 ")
- +40 ;;898
- +41 ;;21,"55289-0260-06 ")
- +42 ;;899
- +43 ;;21,"55289-0260-20 ")
- +44 ;;900
- +45 ;;21,"55289-0260-30 ")
- +46 ;;901
- +47 ;;21,"55289-0260-60 ")
- +48 ;;902
- +49 ;;21,"55289-0260-97 ")
- +50 ;;903
- +51 ;;21,"55289-0404-30 ")
- +52 ;;368
- +53 ;;21,"55289-0751-30 ")
- +54 ;;874
- +55 ;;21,"55289-0751-60 ")
- +56 ;;875
- +57 ;;21,"55289-0787-60 ")
- +58 ;;236
- +59 ;;21,"55289-0788-60 ")
- +60 ;;916
- +61 ;;21,"55289-0789-30 ")
- +62 ;;890
- +63 ;;21,"55289-0863-04 ")
- +64 ;;1380
- +65 ;;21,"55726-0100-01 ")
- +66 ;;1100
- +67 ;;21,"55726-0200-04 ")
- +68 ;;122
- +69 ;;21,"55726-1540-16 ")
- +70 ;;1136
- +71 ;;21,"55887-0726-20 ")
- +72 ;;1388
- +73 ;;21,"56126-0436-11 ")
- +74 ;;216
- +75 ;;21,"56126-0437-11 ")
- +76 ;;1255
- +77 ;;21,"56126-0438-11 ")
- +78 ;;912
- +79 ;;21,"57362-0105-01 ")
- +80 ;;87
- +81 ;;21,"57362-0119-13 ")
- +82 ;;286
- +83 ;;21,"57362-0119-19 ")
- +84 ;;287
- +85 ;;21,"57362-0119-83 ")
- +86 ;;288
- +87 ;;21,"57362-0119-84 ")
- +88 ;;289
- +89 ;;21,"57362-0119-85 ")
- +90 ;;290
- +91 ;;21,"57362-0131-13 ")
- +92 ;;369
- +93 ;;21,"57362-0131-19 ")
- +94 ;;1332
- +95 ;;21,"57362-0131-83 ")
- +96 ;;370
- +97 ;;21,"57362-0131-84 ")
- +98 ;;1333
- +99 ;;21,"57362-0131-85 ")
- +100 ;;371
- +101 ;;21,"57362-0326-55 ")
- +102 ;;84
- +103 ;;21,"57362-0365-43 ")
- +104 ;;52
- +105 ;;21,"57362-0522-11 ")
- +106 ;;193
- +107 ;;21,"57362-0522-19 ")
- +108 ;;194
- +109 ;;21,"57362-0523-11 ")
- +110 ;;237
- +111 ;;21,"57362-0523-19 ")
- +112 ;;1207
- +113 ;;21,"57362-0524-11 ")
- +114 ;;315
- +115 ;;21,"57362-0524-19 ")
- +116 ;;316
- +117 ;;21,"57480-0365-01 ")
- +118 ;;932
- +119 ;;21,"57480-0365-06 ")
- +120 ;;933
- +121 ;;21,"57480-0366-01 ")
- +122 ;;921
- +123 ;;21,"57480-0366-06 ")
- +124 ;;922
- +125 ;;21,"57480-0367-01 ")
- +126 ;;923
- +127 ;;21,"57480-0367-06 ")
- +128 ;;924
- +129 ;;21,"57779-0115-09 ")
- +130 ;;925
- +131 ;;21,"57866-4651-02 ")
- +132 ;;934
- +133 ;;21,"57866-4652-02 ")
- +134 ;;935
- +135 ;;21,"57866-4653-01 ")
- +136 ;;928
- +137 ;;21,"58016-0416-24 ")
- +138 ;;432
- +139 ;;21,"58016-0416-48 ")
- +140 ;;1377
- +141 ;;21,"58016-0441-00 ")
- +142 ;;1193
- +143 ;;21,"58016-0441-15 ")
- +144 ;;217
- +145 ;;21,"58016-0441-20 ")
- +146 ;;218
- +147 ;;21,"58016-0441-30 ")
- +148 ;;1194
- +149 ;;21,"58016-0442-00 ")
- +150 ;;1256
- +151 ;;21,"58016-0442-15 ")
- +152 ;;1257
- +153 ;;21,"58016-0442-20 ")
- +154 ;;291
- +155 ;;21,"58016-0442-30 ")
- +156 ;;292
- +157 ;;21,"58016-0442-60 ")
- +158 ;;293
- +159 ;;21,"58016-0443-00 ")
- +160 ;;372
- +161 ;;21,"58016-0443-06 ")
- +162 ;;1334
- +163 ;;21,"58016-0443-15 ")
- +164 ;;373
- +165 ;;21,"58016-0443-20 ")
- +166 ;;374
- +167 ;;21,"58016-0443-30 ")
- +168 ;;375
- +169 ;;21,"58016-0443-60 ")
- +170 ;;1335
- +171 ;;21,"58016-0477-06 ")
- +172 ;;910
- +173 ;;21,"58016-4183-04 ")
- +174 ;;307
- +175 ;;21,"58016-4604-01 ")
- +176 ;;33
- +177 ;;21,"58016-6207-00 ")
- +178 ;;929
- +179 ;;21,"58016-6207-01 ")
- +180 ;;930
- +181 ;;21,"58087-0317-20 ")
- +182 ;;1389
- +183 ;;21,"58729-0507-41 ")
- +184 ;;1111
- +185 ;;21,"58864-0501-17 ")
- +186 ;;1258
- +187 ;;21,"58864-0658-30 ")
- +188 ;;1158
- +189 ;;21,"58864-0694-30 ")
- +190 ;;1159
- +191 ;;21,"59198-0252-01 ")
- +192 ;;195
- +193 ;;21,"59198-0253-01 ")
- +194 ;;1200
- +195 ;;21,"59198-0254-01 ")
- +196 ;;238
- +197 ;;21,"59198-0255-01 ")
- +198 ;;317
- +199 ;;21,"59198-0356-04 ")
- +200 ;;107
- +201 ;;21,"59243-0021-10 ")
- +202 ;;940
- +203 ;;21,"59310-0175-40 ")
- +204 ;;941
- +205 ;;21,"59310-0177-80 ")
- +206 ;;961
- +207 ;;21,"59743-0006-01 ")
- +208 ;;954
- +209 ;;21,"59930-1509-01 ")
- +210 ;;943
- +211 ;;21,"59930-1509-02 ")
- +212 ;;944
- +213 ;;21,"59930-1650-01 ")
- +214 ;;958
- +215 ;;21,"59930-1650-02 ")
- +216 ;;959
- +217 ;;21,"59930-1650-03 ")
- +218 ;;960
- +219 ;;21,"59930-1660-01 ")
- +220 ;;946
- +221 ;;21,"59930-1660-02 ")
- +222 ;;947
- +223 ;;21,"59930-1660-03 ")
- +224 ;;948
- +225 ;;21,"59930-1670-01 ")
- +226 ;;949
- +227 ;;21,"59930-1670-02 ")
- +228 ;;950
- +229 ;;21,"59930-1670-03 ")
- +230 ;;951
- +231 ;;21,"59930-1680-01 ")
- +232 ;;945
- +233 ;;21,"59936-0003-42 ")
- +234 ;;1399
- +235 ;;21,"59936-0231-02 ")
- +236 ;;1400
- +237 ;;21,"60258-0335-16 ")
- +238 ;;962
- +239 ;;21,"60258-0371-16 ")
- +240 ;;963
- +241 ;;21,"60346-0168-64 ")
- +242 ;;108
- +243 ;;21,"60346-0180-46 ")
- +244 ;;1390
- +245 ;;21,"60346-0226-76 ")
- +246 ;;952
- +247 ;;21,"60346-0282-74 ")
- +248 ;;953
- +249 ;;21,"60346-0328-20 ")
- +250 ;;1055
- +251 ;;21,"60346-0328-90 ")
- +252 ;;1056
- +253 ;;21,"60346-0420-84 ")
- +254 ;;6
- +255 ;;21,"60346-0596-00 ")
- +256 ;;376
- +257 ;;21,"60346-0596-06 ")
- +258 ;;1336
- +259 ;;21,"60346-0596-14 ")
- +260 ;;1337
- +261 ;;21,"60346-0596-20 ")
- +262 ;;377
- +263 ;;21,"60346-0596-25 ")
- +264 ;;378
- +265 ;;21,"60346-0596-30 ")
- +266 ;;379
- +267 ;;21,"60346-0596-60 ")
- +268 ;;380
- +269 ;;21,"60346-0596-90 ")
- +270 ;;381
- +271 ;;21,"60346-0669-00 ")
- +272 ;;1259
- +273 ;;21,"60346-0669-20 ")
- +274 ;;294
- +275 ;;21,"60346-0669-30 ")
- +276 ;;1260
- +277 ;;21,"60346-0669-44 ")
- +278 ;;295
- +279 ;;21,"60346-0669-60 ")
- +280 ;;1261
- +281 ;;21,"60346-0669-90 ")
- +282 ;;1262
- +283 ;;21,"60346-0713-30 ")
- +284 ;;219
- +285 ;;21,"60346-0713-60 ")
- +286 ;;220
- +287 ;;21,"60346-0717-30 ")
- +288 ;;1208
- +289 ;;21,"60432-0019-16 ")
- +290 ;;942
- +291 ;;21,"60432-0157-06 ")
- +292 ;;956
- +293 ;;21,"60432-0157-21 ")
- +294 ;;957
- +295 ;;21,"60505-0802-01 ")
- +296 ;;936
- +297 ;;21,"60505-0802-02 ")
- +298 ;;937
- +299 ;;21,"60598-0061-60 ")
- +300 ;;927
- +301 ;;21,"60793-0011-08 ")
- +302 ;;938
- +303 ;;21,"60793-0011-14 ")
- +304 ;;939
- +305 ;;21,"60793-0120-01 ")
- +306 ;;931
- +307 ;;21,"60937-0504-00 ")
- +308 ;;27
- +309 ;;21,"60937-0509-01 ")
- +310 ;;115
- +311 ;;21,"60937-0510-00 ")
- +312 ;;28
- +313 ;;21,"60937-0511-00 ")
- +314 ;;29
- +315 ;;21,"61392-0016-30 ")
- +316 ;;967
- +317 ;;21,"61392-0016-31 ")
- +318 ;;296
- +319 ;;21,"61392-0016-32 ")
- +320 ;;1263
- +321 ;;21,"61392-0016-39 ")
- +322 ;;1264
- +323 ;;21,"61392-0016-45 ")
- +324 ;;968
- +325 ;;21,"61392-0016-51 ")
- +326 ;;969
- +327 ;;21,"61392-0016-54 ")
- +328 ;;970
- +329 ;;21,"61392-0016-56 ")
- +330 ;;971
- +331 ;;21,"61392-0016-60 ")
- +332 ;;972
- +333 ;;21,"61392-0016-90 ")
- +334 ;;973
- +335 ;;21,"61392-0016-91 ")
- +336 ;;974
- +337 ;;21,"61392-0017-30 ")
- +338 ;;975
- +339 ;;21,"61392-0017-31 ")
- +340 ;;1343
- +341 ;;21,"61392-0017-32 ")
- +342 ;;1344
- +343 ;;21,"61392-0017-39 ")
- +344 ;;1345
- +345 ;;21,"61392-0017-45 ")
- +346 ;;393
- +347 ;;21,"61392-0017-51 ")
- +348 ;;976
- +349 ;;21,"61392-0017-54 ")
- +350 ;;977
- +351 ;;21,"61392-0017-56 ")
- +352 ;;978
- +353 ;;21,"61392-0017-60 ")
- +354 ;;979
- +355 ;;21,"61392-0017-90 ")
- +356 ;;980
- +357 ;;21,"61392-0017-91 ")
- +358 ;;981
- +359 ;;21,"61570-0019-01 ")
- +360 ;;964
- +361 ;;21,"61570-0019-05 ")
- +362 ;;965
- +363 ;;21,"61570-0020-01 ")
- +364 ;;955
- +365 ;;21,"61570-0022-00 ")
- +366 ;;182
- +367 ;;21,"61570-0022-01 ")
- +368 ;;966
- +369 ;;21,"62301-0045-45 ")
- +370 ;;121
- +371 ;;21,"62947-6406-05 ")
- +372 ;;92
- +373 ;;21,"62947-6406-09 ")
- +374 ;;93
- +375 ;;21,"63874-0443-01 ")
- +376 ;;1029
- +377 ;;21,"63874-0443-15 ")
- +378 ;;1030
- +379 ;;21,"63874-0443-20 ")
- +380 ;;1031
- +381 ;;21,"63874-0443-30 ")
- +382 ;;1032
- +383 ;;21,"63874-0447-01 ")
- +384 ;;990
- +385 ;;21,"63874-0447-15 ")
- +386 ;;991
- +387 ;;21,"63874-0447-20 ")
- +388 ;;992
- +389 ;;21,"63874-0447-30 ")
- +390 ;;993
- +391 ;;21,"63874-0447-60 ")
- +392 ;;994
- +393 ;;21,"63874-0675-01 ")
- +394 ;;995
- +395 ;;21,"63874-0675-15 ")
- +396 ;;996
- +397 ;;21,"63874-0675-20 ")
- +398 ;;997
- +399 ;;21,"63874-0675-30 ")
- +400 ;;1033
- +401 ;;21,"63874-0744-12 ")
- +402 ;;984
- +403 ;;21,"63874-0744-24 ")
- +404 ;;985
- +405 ;;21,"64661-0814-16 ")
- +406 ;;135
- +407 ;;21,"64681-0157-06 ")
- +408 ;;94
- +409 ;;21,"64681-0157-21 ")
- +410 ;;10
- +411 ;;21,"65162-0324-10 ")
- +412 ;;297
- +413 ;;21,"65162-0324-11 ")
- +414 ;;1265
- +415 ;;21,"65162-0325-10 ")
- +416 ;;382
- +417 ;;21,"65162-0325-11 ")
- +418 ;;1338
- +419 ;;21,"65162-0335-10 ")
- +420 ;;1195
- +421 ;;21,"66239-0111-16 ")
- +422 ;;1020
- +423 ;;21,"67781-0251-01 ")
- +424 ;;998
- +425 ;;21,"67781-0251-05 ")
- +426 ;;999
- +427 ;;21,"67781-0252-01 ")
- +428 ;;1019
- +429 ;;21,"68115-0328-60 ")
- +430 ;;1011
- +431 ;;21,"68115-0547-20 ")
- +432 ;;1002
- +433 ;;21,"68115-0637-13 ")
- +434 ;;1009
- +435 ;;21,"68115-0638-60 ")
- +436 ;;989
- +437 ;;21,"68115-0652-01 ")
- +438 ;;1018
- +439 ;;21,"68115-0653-01 ")
- +440 ;;1012
- +441 ;;21,"68115-0657-01 ")
- +442 ;;982
- +443 ;;21,"68115-0760-01 ")
- +444 ;;1021
- +445 ;;21,"68115-0775-07 ")
- +446 ;;1022
- +447 ;;21,"68115-0923-90 ")
- +448 ;;983
- +449 ;;21,"68115-0924-60 ")
- +450 ;;1010
- +451 ;;9002226,603,.01)
- +452 ;;BGP HEDIS PRIMARY ASTHMA NDC
- +453 ;;9002226,603,.02)
- +454 ;;@
- +455 ;;9002226,603,.04)
- +456 ;;n
- +457 ;;9002226,603,.06)
- +458 ;;@
- +459 ;;9002226,603,.08)
- +460 ;;@
- +461 ;;9002226,603,.09)
- +462 ;;@
- +463 ;;9002226,603,.11)
- +464 ;;@
- +465 ;;9002226,603,.12)
- +466 ;;@
- +467 ;;9002226,603,.13)
- +468 ;;1
- +469 ;;9002226,603,.14)
- +470 ;;@
- +471 ;;9002226,603,.15)
- +472 ;;@
- +473 ;;9002226,603,.16)
- +474 ;;@
- +475 ;;9002226,603,.17)
- +476 ;;@
- +477 ;;9002226,603,3101)
- +478 ;;@