BGP7KXID ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 10, 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 ;;@