BGPM5BAQ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
+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,"13668000450 ")
+2 ;;164
+3 ;;21,"13668000490 ")
+4 ;;165
+5 ;;21,"13668000501 ")
+6 ;;166
+7 ;;21,"13668000505 ")
+8 ;;167
+9 ;;21,"13668000510 ")
+10 ;;168
+11 ;;21,"13668000530 ")
+12 ;;169
+13 ;;21,"13668000550 ")
+14 ;;170
+15 ;;21,"13668000590 ")
+16 ;;171
+17 ;;21,"13668000601 ")
+18 ;;172
+19 ;;21,"13668000605 ")
+20 ;;173
+21 ;;21,"13668000610 ")
+22 ;;174
+23 ;;21,"13668000613 ")
+24 ;;175
+25 ;;21,"13668000630 ")
+26 ;;176
+27 ;;21,"13668000650 ")
+28 ;;177
+29 ;;21,"13668000674 ")
+30 ;;178
+31 ;;21,"13668000690 ")
+32 ;;179
+33 ;;21,"13668000901 ")
+34 ;;180
+35 ;;21,"13668000905 ")
+36 ;;181
+37 ;;21,"13668000909 ")
+38 ;;182
+39 ;;21,"13668000930 ")
+40 ;;183
+41 ;;21,"13668000974 ")
+42 ;;184
+43 ;;21,"13668001001 ")
+44 ;;185
+45 ;;21,"13668001005 ")
+46 ;;186
+47 ;;21,"13668001006 ")
+48 ;;187
+49 ;;21,"13668001030 ")
+50 ;;188
+51 ;;21,"13668001074 ")
+52 ;;189
+53 ;;21,"13668001101 ")
+54 ;;190
+55 ;;21,"13668001105 ")
+56 ;;191
+57 ;;21,"13668001108 ")
+58 ;;192
+59 ;;21,"13668001130 ")
+60 ;;193
+61 ;;21,"13668001174 ")
+62 ;;194
+63 ;;21,"13668001801 ")
+64 ;;195
+65 ;;21,"13668001805 ")
+66 ;;196
+67 ;;21,"13668001830 ")
+68 ;;197
+69 ;;21,"13668001845 ")
+70 ;;198
+71 ;;21,"13668001874 ")
+72 ;;199
+73 ;;21,"13668001890 ")
+74 ;;200
+75 ;;21,"13668001901 ")
+76 ;;201
+77 ;;21,"13668001905 ")
+78 ;;202
+79 ;;21,"13668001930 ")
+80 ;;203
+81 ;;21,"13668001946 ")
+82 ;;204
+83 ;;21,"13668001974 ")
+84 ;;205
+85 ;;21,"13668001990 ")
+86 ;;206
+87 ;;21,"13668002001 ")
+88 ;;207
+89 ;;21,"13668002005 ")
+90 ;;208
+91 ;;21,"13668002030 ")
+92 ;;209
+93 ;;21,"13668002074 ")
+94 ;;210
+95 ;;21,"13668002090 ")
+96 ;;211
+97 ;;21,"16252001200 ")
+98 ;;212
+99 ;;21,"16252001217 ")
+100 ;;213
+101 ;;21,"16252001225 ")
+102 ;;214
+103 ;;21,"16252001240 ")
+104 ;;215
+105 ;;21,"16252051000 ")
+106 ;;216
+107 ;;21,"16252051001 ")
+108 ;;217
+109 ;;21,"16252051100 ")
+110 ;;218
+111 ;;21,"16252051101 ")
+112 ;;219
+113 ;;21,"16252051200 ")
+114 ;;220
+115 ;;21,"16252051201 ")
+116 ;;221
+117 ;;21,"16252053330 ")
+118 ;;222
+119 ;;21,"16252053350 ")
+120 ;;223
+121 ;;21,"16252053390 ")
+122 ;;224
+123 ;;21,"16252053430 ")
+124 ;;225
+125 ;;21,"16252053450 ")
+126 ;;226
+127 ;;21,"16252053490 ")
+128 ;;227
+129 ;;21,"16252053530 ")
+130 ;;228
+131 ;;21,"16252053550 ")
+132 ;;229
+133 ;;21,"16252053590 ")
+134 ;;230
+135 ;;21,"16590001128 ")
+136 ;;231
+137 ;;21,"16590001130 ")
+138 ;;232
+139 ;;21,"16590001145 ")
+140 ;;233
+141 ;;21,"16590001156 ")
+142 ;;234
+143 ;;21,"16590001160 ")
+144 ;;235
+145 ;;21,"16590001172 ")
+146 ;;236
+147 ;;21,"16590001190 ")
+148 ;;237
+149 ;;21,"16590001215 ")
+150 ;;238
+151 ;;21,"16590001230 ")
+152 ;;239
+153 ;;21,"16590001256 ")
+154 ;;240
+155 ;;21,"16590001260 ")
+156 ;;241
+157 ;;21,"16590001272 ")
+158 ;;242
+159 ;;21,"16590001282 ")
+160 ;;243
+161 ;;21,"16590001290 ")
+162 ;;244
+163 ;;21,"16590001328 ")
+164 ;;245
+165 ;;21,"16590001330 ")
+166 ;;246
+167 ;;21,"16590001360 ")
+168 ;;247
+169 ;;21,"16590001390 ")
+170 ;;248
+171 ;;21,"16590005530 ")
+172 ;;249
+173 ;;21,"16590005560 ")
+174 ;;250
+175 ;;21,"16590005590 ")
+176 ;;251
+177 ;;21,"16590005615 ")
+178 ;;252
+179 ;;21,"16590005630 ")
+180 ;;253
+181 ;;21,"16590005660 ")
+182 ;;254
+183 ;;21,"16590005671 ")
+184 ;;255
+185 ;;21,"16590005690 ")
+186 ;;256
+187 ;;21,"16590009930 ")
+188 ;;257
+189 ;;21,"16590009960 ")
+190 ;;258
+191 ;;21,"16590010028 ")
+192 ;;259
+193 ;;21,"16590010030 ")
+194 ;;260
+195 ;;21,"16590010056 ")
+196 ;;261
+197 ;;21,"16590010060 ")
+198 ;;262
+199 ;;21,"16590010071 ")
+200 ;;263
+201 ;;21,"16590010090 ")
+202 ;;264
+203 ;;21,"16590015330 ")
+204 ;;265
+205 ;;21,"16590015360 ")
+206 ;;266
+207 ;;21,"16590015430 ")
+208 ;;267
+209 ;;21,"16590015445 ")
+210 ;;268
+211 ;;21,"16590015456 ")
+212 ;;269
+213 ;;21,"16590015460 ")
+214 ;;270
+215 ;;21,"16590015490 ")
+216 ;;271
+217 ;;21,"16590015530 ")
+218 ;;272
+219 ;;21,"16590015560 ")
+220 ;;273
+221 ;;21,"16590017130 ")
+222 ;;274
+223 ;;21,"16590017160 ")
+224 ;;275
+225 ;;21,"16590017171 ")
+226 ;;276
+227 ;;21,"16590017190 ")
+228 ;;277
+229 ;;21,"16590018115 ")
+230 ;;278
+231 ;;21,"16590018128 ")
+232 ;;279
+233 ;;21,"16590018130 ")
+234 ;;280
+235 ;;21,"16590018160 ")
+236 ;;281
+237 ;;21,"16590018182 ")
+238 ;;282
+239 ;;21,"16590018190 ")
+240 ;;283
+241 ;;21,"16590023115 ")
+242 ;;284
+243 ;;21,"16590023130 ")
+244 ;;285
+245 ;;21,"16590023145 ")
+246 ;;286
+247 ;;21,"16590023160 ")
+248 ;;287
+249 ;;21,"16590023182 ")
+250 ;;288
+251 ;;21,"16590023190 ")
+252 ;;289
+253 ;;21,"16590023215 ")
+254 ;;290
+255 ;;21,"16590023228 ")
+256 ;;291
+257 ;;21,"16590023230 ")
+258 ;;292
+259 ;;21,"16590023245 ")
+260 ;;293
+261 ;;21,"16590023260 ")
+262 ;;294
+263 ;;21,"16590023271 ")
+264 ;;295
+265 ;;21,"16590023290 ")
+266 ;;296
+267 ;;21,"16590027030 ")
+268 ;;297
+269 ;;21,"16590027060 ")
+270 ;;298
+271 ;;21,"16590027090 ")
+272 ;;299
+273 ;;21,"16590032215 ")
+274 ;;300
+275 ;;21,"16590032230 ")
+276 ;;301
+277 ;;21,"16590032256 ")
+278 ;;302
+279 ;;21,"16590032260 ")
+280 ;;303
+281 ;;21,"16590032272 ")
+282 ;;304
+283 ;;21,"16590032290 ")
+284 ;;305
+285 ;;21,"16590040630 ")
+286 ;;306
+287 ;;21,"16590040660 ")
+288 ;;307
+289 ;;21,"16590041610 ")
+290 ;;308
+291 ;;21,"16590041615 ")
+292 ;;309
+293 ;;21,"16590041630 ")
+294 ;;310
+295 ;;21,"16590041660 ")
+296 ;;311
+297 ;;21,"16590041672 ")
+298 ;;312
+299 ;;21,"16590041690 ")
+300 ;;313
+301 ;;21,"16590043530 ")
+302 ;;314
+303 ;;21,"16590043560 ")
+304 ;;315
+305 ;;21,"16590043590 ")
+306 ;;316
+307 ;;21,"16590043730 ")
+308 ;;317
+309 ;;21,"16590043760 ")
+310 ;;318
+311 ;;21,"16590043772 ")
+312 ;;319
+313 ;;21,"16590043790 ")
+314 ;;320
+315 ;;21,"16590045715 ")
+316 ;;321
+317 ;;21,"16590045728 ")
+318 ;;322
+319 ;;21,"16590045730 ")
+320 ;;323
+321 ;;21,"16590045745 ")
+322 ;;324
+323 ;;21,"16590045756 ")
+324 ;;325
+325 ;;21,"16590045760 ")
+326 ;;326
+327 ;;21,"16590045772 ")
+328 ;;327
+329 ;;21,"16590045790 ")
+330 ;;328
+331 ;;21,"16590048015 ")
+332 ;;329
+333 ;;21,"16590048030 ")
+334 ;;330
+335 ;;21,"16590048045 ")
+336 ;;331
+337 ;;21,"16590048060 ")
+338 ;;332
+339 ;;21,"16590048072 ")
+340 ;;333
+341 ;;21,"16590048090 ")
+342 ;;334
+343 ;;21,"16590049030 ")
+344 ;;335
+345 ;;21,"16590049060 ")
+346 ;;336
+347 ;;21,"16590049072 ")
+348 ;;337
+349 ;;21,"16590049090 ")
+350 ;;338
+351 ;;21,"16590051030 ")
+352 ;;339
+353 ;;21,"16590051060 ")
+354 ;;340
+355 ;;21,"16590051072 ")
+356 ;;341
+357 ;;21,"16590051090 ")
+358 ;;342
+359 ;;21,"16590051206 ")
+360 ;;343
+361 ;;21,"16590051230 ")
+362 ;;344
+363 ;;21,"16590051260 ")
+364 ;;345
+365 ;;21,"16590051272 ")
+366 ;;346
+367 ;;21,"16590051290 ")
+368 ;;347
+369 ;;21,"16590051330 ")
+370 ;;348
+371 ;;21,"16590051356 ")
+372 ;;349
+373 ;;21,"16590051360 ")
+374 ;;350
+375 ;;21,"16590051372 ")
+376 ;;351
+377 ;;21,"16590051390 ")
+378 ;;352
+379 ;;21,"16590053530 ")
+380 ;;353
+381 ;;21,"16590053560 ")
+382 ;;354
+383 ;;21,"16590053562 ")
+384 ;;355
+385 ;;21,"16590053571 ")
+386 ;;356
+387 ;;21,"16590053572 ")
+388 ;;357
+389 ;;21,"16590053590 ")
+390 ;;358
+391 ;;21,"16590054130 ")
+392 ;;359
+393 ;;21,"16590054160 ")
+394 ;;360
+395 ;;21,"16590054172 ")
+396 ;;361
+397 ;;21,"16590054190 ")
+398 ;;362
+399 ;;21,"16590056530 ")
+400 ;;363
+401 ;;21,"16590056560 ")
+402 ;;364
+403 ;;21,"16590056572 ")
+404 ;;365
+405 ;;21,"16590056590 ")
+406 ;;366
+407 ;;21,"16590057730 ")
+408 ;;367
+409 ;;21,"16590057760 ")
+410 ;;368
+411 ;;21,"16590057790 ")
+412 ;;369
+413 ;;21,"16590058528 ")
+414 ;;370
+415 ;;21,"16590058530 ")
+416 ;;371
+417 ;;21,"16590058560 ")
+418 ;;372
+419 ;;21,"16590058571 ")
+420 ;;373
+421 ;;21,"16590058572 ")
+422 ;;374
+423 ;;21,"16590058590 ")
+424 ;;375
+425 ;;21,"16590059030 ")
+426 ;;376
+427 ;;21,"16590059060 ")
+428 ;;377
+429 ;;21,"16590059072 ")
+430 ;;378
+431 ;;21,"16590059090 ")
+432 ;;379
+433 ;;21,"16590064430 ")
+434 ;;380
+435 ;;21,"16590064460 ")
+436 ;;381
+437 ;;21,"16590064482 ")
+438 ;;382
+439 ;;21,"16590064490 ")
+440 ;;383
+441 ;;21,"16590065030 ")
+442 ;;384
+443 ;;21,"16590065060 ")
+444 ;;385
+445 ;;21,"16590065090 ")
+446 ;;386
+447 ;;21,"16590070030 ")
+448 ;;387
+449 ;;21,"16590070082 ")
+450 ;;388
+451 ;;21,"16590071330 ")
+452 ;;389
+453 ;;21,"16590071360 ")
+454 ;;390
+455 ;;21,"16590071390 ")
+456 ;;391
+457 ;;21,"16590072030 ")
+458 ;;392
+459 ;;21,"16590079930 ")
+460 ;;393
+461 ;;21,"16590080030 ")
+462 ;;394
+463 ;;21,"16590080430 ")
+464 ;;395
+465 ;;21,"16590080472 ")
+466 ;;396
+467 ;;21,"16590084830 ")
+468 ;;397
+469 ;;21,"16590084860 ")
+470 ;;398
+471 ;;21,"16590089630 ")
+472 ;;399
+473 ;;21,"16590089660 ")
+474 ;;400
+475 ;;21,"16590089690 ")
+476 ;;401
+477 ;;21,"16590092030 ")
+478 ;;402
+479 ;;21,"16590092060 ")
+480 ;;403
+481 ;;21,"16590092090 ")
+482 ;;404
+483 ;;21,"16590096330 ")
+484 ;;405
+485 ;;21,"16590096360 ")
+486 ;;406
+487 ;;21,"16590096390 ")
+488 ;;407
+489 ;;21,"16714031101 ")
+490 ;;408
+491 ;;21,"16714031110 ")
+492 ;;409
+493 ;;21,"16714031111 ")
+494 ;;410
+495 ;;21,"16714031201 ")
+496 ;;411
+497 ;;21,"16714031210 ")
+498 ;;412
+499 ;;21,"16714031211 ")
+500 ;;413
+501 ;;21,"16714031301 ")
+502 ;;414
+503 ;;21,"16714031310 ")
+504 ;;415
+505 ;;21,"16714031311 ")
+506 ;;416
+507 ;;21,"16714031401 ")
+508 ;;417
+509 ;;21,"16714031410 ")
+510 ;;418
+511 ;;21,"16714031411 ")
+512 ;;419
+513 ;;21,"16714031501 ")
+514 ;;420
+515 ;;21,"16714031510 ")
+516 ;;421
+517 ;;21,"16714031511 ")
+518 ;;422
+519 ;;21,"16714035101 ")
+520 ;;423
+521 ;;21,"16714035102 ")
+522 ;;424
+523 ;;21,"16714035103 ")
+524 ;;425
+525 ;;21,"16714035201 ")
+526 ;;426
+527 ;;21,"16714035202 ")
+528 ;;427
+529 ;;21,"16714035203 ")
+530 ;;428
+531 ;;21,"16714035301 ")
+532 ;;429
+533 ;;21,"16714035302 ")
+534 ;;430
+535 ;;21,"16714035303 ")
+536 ;;431
+537 ;;21,"16714035304 ")
+538 ;;432
+539 ;;21,"16714060101 ")
+540 ;;433
+541 ;;21,"16714061101 ")
+542 ;;434
+543 ;;21,"16714061102 ")
+544 ;;435
+545 ;;21,"16714061103 ")
+546 ;;436
+547 ;;21,"16714061104 ")
+548 ;;437
+549 ;;21,"16714061105 ")
+550 ;;438
+551 ;;21,"16714061106 ")
+552 ;;439
+553 ;;21,"16714061201 ")
+554 ;;440
+555 ;;21,"16714061202 ")
+556 ;;441
+557 ;;21,"16714061203 ")
+558 ;;442
+559 ;;21,"16714061204 ")
+560 ;;443
+561 ;;21,"16714061205 ")
+562 ;;444
+563 ;;21,"16714061206 ")
+564 ;;445
+565 ;;21,"16714061301 ")
+566 ;;446
+567 ;;21,"16714061302 ")
+568 ;;447
+569 ;;21,"16714061303 ")
+570 ;;448
+571 ;;21,"16714061304 ")
+572 ;;449
+573 ;;21,"16714061305 ")
+574 ;;450
+575 ;;21,"16714061306 ")
+576 ;;451
+577 ;;21,"17856054002 ")
+578 ;;452
+579 ;;21,"17856054030 ")
+580 ;;453
+581 ;;21,"17856418602 ")
+582 ;;454
+583 ;;21,"18837000630 ")
+584 ;;455
+585 ;;21,"18837000660 ")
+586 ;;456
+587 ;;21,"18837000690 ")
+588 ;;457
+589 ;;21,"18837000730 ")
+590 ;;458
+591 ;;21,"18837000830 ")
+592 ;;459
+593 ;;21,"18837000860 ")
+594 ;;460
+595 ;;21,"18837000890 ")
+596 ;;461
+597 ;;21,"18837000898 ")
+598 ;;462
+599 ;;21,"18837000930 ")
+600 ;;463
+601 ;;21,"18837000960 ")
+602 ;;464
+603 ;;21,"18837000990 ")
+604 ;;465
+605 ;;21,"18837004730 ")
+606 ;;466
+607 ;;21,"18837004760 ")
+608 ;;467
+609 ;;21,"18837005430 ")
+610 ;;468
+611 ;;21,"18837005460 ")
+612 ;;469
+613 ;;21,"18837005490 ")
+614 ;;470
+615 ;;21,"18837009360 ")
+616 ;;471
+617 ;;21,"18837009430 ")
+618 ;;472
+619 ;;21,"18837011430 ")
+620 ;;473
+621 ;;21,"18837016030 ")
+622 ;;474
+623 ;;21,"18837016060 ")
+624 ;;475
+625 ;;21,"18837016230 ")
+626 ;;476
+627 ;;21,"18837016260 ")
+628 ;;477
+629 ;;21,"18837022230 ")
+630 ;;478
+631 ;;21,"18837024230 ")
+632 ;;479
+633 ;;21,"18837024830 ")
+634 ;;480
+635 ;;21,"18837024860 ")
+636 ;;481
+637 ;;21,"18837024890 ")
+638 ;;482
+639 ;;21,"18837024930 ")
+640 ;;483
+641 ;;21,"18837024960 ")
+642 ;;484
+643 ;;21,"18837024990 ")
+644 ;;485
+645 ;;21,"18837025230 ")
+646 ;;486
+647 ;;21,"18837025260 ")
+648 ;;487
+649 ;;21,"18837025290 ")
+650 ;;488
+651 ;;21,"18837025330 ")
+652 ;;489
+653 ;;21,"18837025360 ")
+654 ;;490
+655 ;;21,"18837025390 ")
+656 ;;491
+657 ;;21,"18837027830 ")
+658 ;;492
+659 ;;21,"18837029530 ")
+660 ;;493
+661 ;;21,"18837030430 ")
+662 ;;494
+663 ;;21,"18837030630 ")
+664 ;;495
+665 ;;21,"18837031030 ")
+666 ;;496
+667 ;;21,"18837031060 ")
+668 ;;497
+669 ;;21,"18837036490 ")
+670 ;;498
+671 ;;21,"18837037630 ")
+672 ;;499
+673 ;;21,"21695003000 ")
+674 ;;500
+675 ;;21,"21695003030 ")
+676 ;;501
+677 ;;21,"21695003060 ")
+678 ;;502
+679 ;;21,"21695003090 ")
+680 ;;503
+681 ;;21,"21695003100 ")
+682 ;;504
+683 ;;21,"21695003130 ")
+684 ;;505
+685 ;;21,"21695003160 ")
+686 ;;506
+687 ;;21,"21695003190 ")
+688 ;;507
+689 ;;21,"21695003200 ")
+690 ;;508
+691 ;;21,"21695003230 ")
+692 ;;509
+693 ;;21,"21695003260 ")
+694 ;;510
+695 ;;21,"21695003290 ")
+696 ;;511
+697 ;;21,"21695005220 ")
+698 ;;512
+699 ;;21,"21695005230 ")
+700 ;;513
+701 ;;21,"21695005260 ")
+702 ;;514
+703 ;;21,"21695005290 ")
+704 ;;515
+705 ;;21,"21695005330 ")
+706 ;;516
+707 ;;21,"21695005360 ")
+708 ;;517
+709 ;;21,"21695005390 ")
+710 ;;518
+711 ;;21,"21695005407 ")
+712 ;;519
+713 ;;21,"21695005430 ")
+714 ;;520
+715 ;;21,"21695005460 ")
+716 ;;521
+717 ;;21,"21695005490 ")
+718 ;;522
+719 ;;21,"21695008100 ")
+720 ;;523
+721 ;;21,"21695008130 ")
+722 ;;524
+723 ;;21,"21695008160 ")
+724 ;;525