BGPM5ATL ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"00247063950 ")
+2 ;;7135
+3 ;;21,"00247063956 ")
+4 ;;7136
+5 ;;21,"00247063960 ")
+6 ;;7137
+7 ;;21,"00247063980 ")
+8 ;;7138
+9 ;;21,"00247064506 ")
+10 ;;7139
+11 ;;21,"00247064520 ")
+12 ;;7140
+13 ;;21,"00247064528 ")
+14 ;;7141
+15 ;;21,"00247064530 ")
+16 ;;7142
+17 ;;21,"00247066015 ")
+18 ;;7143
+19 ;;21,"00247066030 ")
+20 ;;7144
+21 ;;21,"00247066060 ")
+22 ;;7145
+23 ;;21,"00247066075 ")
+24 ;;7146
+25 ;;21,"00247078401 ")
+26 ;;7147
+27 ;;21,"00247078402 ")
+28 ;;7148
+29 ;;21,"00247078403 ")
+30 ;;7149
+31 ;;21,"00247078408 ")
+32 ;;7150
+33 ;;21,"00247078418 ")
+34 ;;7151
+35 ;;21,"00247078424 ")
+36 ;;7152
+37 ;;21,"00247078428 ")
+38 ;;7153
+39 ;;21,"00247092801 ")
+40 ;;7154
+41 ;;21,"00247092802 ")
+42 ;;7155
+43 ;;21,"00247094015 ")
+44 ;;7156
+45 ;;21,"00247094200 ")
+46 ;;7157
+47 ;;21,"00247094250 ")
+48 ;;7158
+49 ;;21,"00247094275 ")
+50 ;;7159
+51 ;;21,"00247100900 ")
+52 ;;7160
+53 ;;21,"00247100902 ")
+54 ;;7161
+55 ;;21,"00247100903 ")
+56 ;;7162
+57 ;;21,"00247100906 ")
+58 ;;7163
+59 ;;21,"00247100930 ")
+60 ;;7164
+61 ;;21,"00247118320 ")
+62 ;;7165
+63 ;;21,"00247138300 ")
+64 ;;7166
+65 ;;21,"00247138350 ")
+66 ;;7167
+67 ;;21,"00247138600 ")
+68 ;;7168
+69 ;;21,"00247138650 ")
+70 ;;7169
+71 ;;21,"00247146802 ")
+72 ;;7170
+73 ;;21,"00247146804 ")
+74 ;;7171
+75 ;;21,"00247146810 ")
+76 ;;7172
+77 ;;21,"00247146814 ")
+78 ;;7173
+79 ;;21,"00247146820 ")
+80 ;;7174
+81 ;;21,"00247151805 ")
+82 ;;7175
+83 ;;21,"00247151850 ")
+84 ;;7176
+85 ;;21,"00247151905 ")
+86 ;;7177
+87 ;;21,"00247151910 ")
+88 ;;7178
+89 ;;21,"00247151915 ")
+90 ;;7179
+91 ;;21,"00247151950 ")
+92 ;;7180
+93 ;;21,"00247152406 ")
+94 ;;7181
+95 ;;21,"00247166930 ")
+96 ;;7182
+97 ;;21,"00247171410 ")
+98 ;;7183
+99 ;;21,"00247172900 ")
+100 ;;7184
+101 ;;21,"00247172979 ")
+102 ;;7185
+103 ;;21,"00247195120 ")
+104 ;;7186
+105 ;;21,"00247196302 ")
+106 ;;7187
+107 ;;21,"00247196310 ")
+108 ;;7188
+109 ;;21,"00247196320 ")
+110 ;;7189
+111 ;;21,"00247199002 ")
+112 ;;7190
+113 ;;21,"00247199003 ")
+114 ;;7191
+115 ;;21,"00247199004 ")
+116 ;;7192
+117 ;;21,"00247199009 ")
+118 ;;7193
+119 ;;21,"00247199012 ")
+120 ;;7194
+121 ;;21,"00247199015 ")
+122 ;;7195
+123 ;;21,"00247199020 ")
+124 ;;7196
+125 ;;21,"00247199021 ")
+126 ;;7197
+127 ;;21,"00247199030 ")
+128 ;;7198
+129 ;;21,"00247199100 ")
+130 ;;7199
+131 ;;21,"00247199102 ")
+132 ;;7200
+133 ;;21,"00247199104 ")
+134 ;;7201
+135 ;;21,"00247199106 ")
+136 ;;7202
+137 ;;21,"00247199114 ")
+138 ;;7203
+139 ;;21,"00247199120 ")
+140 ;;7204
+141 ;;21,"00247201800 ")
+142 ;;7205
+143 ;;21,"00247201850 ")
+144 ;;7206
+145 ;;21,"00247201875 ")
+146 ;;7207
+147 ;;21,"00247204200 ")
+148 ;;7208
+149 ;;21,"00247204201 ")
+150 ;;7209
+151 ;;21,"00247204202 ")
+152 ;;7210
+153 ;;21,"00247204203 ")
+154 ;;7211
+155 ;;21,"00247204204 ")
+156 ;;7212
+157 ;;21,"00247204206 ")
+158 ;;7213
+159 ;;21,"00247204209 ")
+160 ;;7214
+161 ;;21,"00247204210 ")
+162 ;;7215
+163 ;;21,"00247204214 ")
+164 ;;7216
+165 ;;21,"00247204220 ")
+166 ;;7217
+167 ;;21,"00247204228 ")
+168 ;;7218
+169 ;;21,"00247204230 ")
+170 ;;7219
+171 ;;21,"00247204400 ")
+172 ;;7220
+173 ;;21,"00247204402 ")
+174 ;;7221
+175 ;;21,"00247204404 ")
+176 ;;7222
+177 ;;21,"00247204406 ")
+178 ;;7223
+179 ;;21,"00247204410 ")
+180 ;;7224
+181 ;;21,"00247204414 ")
+182 ;;7225
+183 ;;21,"00247204420 ")
+184 ;;7226
+185 ;;21,"00247204428 ")
+186 ;;7227
+187 ;;21,"00247217720 ")
+188 ;;7228
+189 ;;21,"00247220901 ")
+190 ;;7229
+191 ;;21,"00247220910 ")
+192 ;;7230
+193 ;;21,"00247220920 ")
+194 ;;7231
+195 ;;21,"00247221001 ")
+196 ;;7232
+197 ;;21,"00247221010 ")
+198 ;;7233
+199 ;;21,"00247221101 ")
+200 ;;7234
+201 ;;21,"00247221110 ")
+202 ;;7235
+203 ;;21,"00247221620 ")
+204 ;;7236
+205 ;;21,"00247223300 ")
+206 ;;7237
+207 ;;21,"00247223350 ")
+208 ;;7238
+209 ;;21,"00247223375 ")
+210 ;;7239
+211 ;;21,"00247225815 ")
+212 ;;7240
+213 ;;21,"00247227900 ")
+214 ;;7241
+215 ;;21,"00247227901 ")
+216 ;;7242
+217 ;;21,"00247227930 ")
+218 ;;7243
+219 ;;21,"00247227958 ")
+220 ;;7244
+221 ;;21,"00247235801 ")
+222 ;;7245
+223 ;;21,"00247235802 ")
+224 ;;7246
+225 ;;21,"00247235806 ")
+226 ;;7247
+227 ;;21,"00254168658 ")
+228 ;;7248
+229 ;;21,"00254168758 ")
+230 ;;7249
+231 ;;21,"00254589721 ")
+232 ;;7250
+233 ;;21,"00254589728 ")
+234 ;;7251
+235 ;;21,"00254589735 ")
+236 ;;7252
+237 ;;21,"00254589821 ")
+238 ;;7253
+239 ;;21,"00254589828 ")
+240 ;;7254
+241 ;;21,"00254589835 ")
+242 ;;7255
+243 ;;21,"00264310211 ")
+244 ;;7256
+245 ;;21,"00264310311 ")
+246 ;;7257
+247 ;;21,"00264311211 ")
+248 ;;7258
+249 ;;21,"00264311411 ")
+250 ;;7259
+251 ;;21,"00264315311 ")
+252 ;;7260
+253 ;;21,"00264315511 ")
+254 ;;7261
+255 ;;21,"00338096037 ")
+256 ;;7262
+257 ;;21,"00338096048 ")
+258 ;;7263
+259 ;;21,"00338102141 ")
+260 ;;7264
+261 ;;21,"00338102341 ")
+262 ;;7265
+263 ;;21,"00338102541 ")
+264 ;;7266
+265 ;;21,"00338350241 ")
+266 ;;7267
+267 ;;21,"00338350341 ")
+268 ;;7268
+269 ;;21,"00338500241 ")
+270 ;;7269
+271 ;;21,"00338500341 ")
+272 ;;7270
+273 ;;21,"00364203350 ")
+274 ;;7271
+275 ;;21,"00364246434 ")
+276 ;;7272
+277 ;;21,"00364246693 ")
+278 ;;7273
+279 ;;21,"00364290638 ")
+280 ;;7274
+281 ;;21,"00364290861 ")
+282 ;;7275
+283 ;;21,"00378010110 ")
+284 ;;7276
+285 ;;21,"00378010201 ")
+286 ;;7277
+287 ;;21,"00378010205 ")
+288 ;;7278
+289 ;;21,"00378122101 ")
+290 ;;7279
+291 ;;21,"00378122105 ")
+292 ;;7280
+293 ;;21,"00378122189 ")
+294 ;;7281
+295 ;;21,"00378122194 ")
+296 ;;7282
+297 ;;21,"00378132201 ")
+298 ;;7283
+299 ;;21,"00378132205 ")
+300 ;;7284
+301 ;;21,"00378132301 ")
+302 ;;7285
+303 ;;21,"00378132305 ")
+304 ;;7286
+305 ;;21,"00378132425 ")
+306 ;;7287
+307 ;;21,"00378132489 ")
+308 ;;7288
+309 ;;21,"00378153305 ")
+310 ;;7289
+311 ;;21,"00378153356 ")
+312 ;;7290
+313 ;;21,"00378153393 ")
+314 ;;7291
+315 ;;21,"00378174301 ")
+316 ;;7292
+317 ;;21,"00378174305 ")
+318 ;;7293
+319 ;;21,"00378174389 ")
+320 ;;7294
+321 ;;21,"00378174501 ")
+322 ;;7295
+323 ;;21,"00378174525 ")
+324 ;;7296
+325 ;;21,"00378174589 ")
+326 ;;7297
+327 ;;21,"00378429601 ")
+328 ;;7298
+329 ;;21,"00378429693 ")
+330 ;;7299
+331 ;;21,"00378429701 ")
+332 ;;7300
+333 ;;21,"00378429730 ")
+334 ;;7301
+335 ;;21,"00378429793 ")
+336 ;;7302
+337 ;;21,"00378429801 ")
+338 ;;7303
+339 ;;21,"00378429893 ")
+340 ;;7304
+341 ;;21,"00378453105 ")
+342 ;;7305
+343 ;;21,"00378453191 ")
+344 ;;7306
+345 ;;21,"00378453201 ")
+346 ;;7307
+347 ;;21,"00378453205 ")
+348 ;;7308
+349 ;;21,"00378453291 ")
+350 ;;7309
+351 ;;21,"00378602101 ")
+352 ;;7310
+353 ;;21,"00378602105 ")
+354 ;;7311
+355 ;;21,"00378602201 ")
+356 ;;7312
+357 ;;21,"00378602205 ")
+358 ;;7313
+359 ;;21,"00378602325 ")
+360 ;;7314
+361 ;;21,"00378602389 ")
+362 ;;7315
+363 ;;21,"00378606801 ")
+364 ;;7316
+365 ;;21,"00378606805 ")
+366 ;;7317
+367 ;;21,"00378606901 ")
+368 ;;7318
+369 ;;21,"00378606905 ")
+370 ;;7319
+371 ;;21,"00378607001 ")
+372 ;;7320
+373 ;;21,"00378607005 ")
+374 ;;7321
+375 ;;21,"00378612401 ")
+376 ;;7322
+377 ;;21,"00378612405 ")
+378 ;;7323
+379 ;;21,"00378612493 ")
+380 ;;7324
+381 ;;21,"00378640001 ")
+382 ;;7325
+383 ;;21,"00378640005 ")
+384 ;;7326
+385 ;;21,"00378709701 ")
+386 ;;7327
+387 ;;21,"00378709705 ")
+388 ;;7328
+389 ;;21,"00378709801 ")
+390 ;;7329
+391 ;;21,"00378709805 ")
+392 ;;7330
+393 ;;21,"00378709989 ")
+394 ;;7331
+395 ;;21,"00378825091 ")
+396 ;;7332
+397 ;;21,"00378850091 ")
+398 ;;7333
+399 ;;21,"00378868854 ")
+400 ;;7334
+401 ;;21,"00409014410 ")
+402 ;;7335
+403 ;;21,"00409014411 ")
+404 ;;7336
+405 ;;21,"00409052813 ")
+406 ;;7337
+407 ;;21,"00409052823 ")
+408 ;;7338
+409 ;;21,"00409052831 ")
+410 ;;7339
+411 ;;21,"00409080201 ")
+412 ;;7340
+413 ;;21,"00409080301 ")
+414 ;;7341
+415 ;;21,"00409080501 ")
+416 ;;7342
+417 ;;21,"00409080601 ")
+418 ;;7343
+419 ;;21,"00409258501 ")
+420 ;;7344
+421 ;;21,"00409268715 ")
+422 ;;7345
+423 ;;21,"00409268949 ")
+424 ;;7346
+425 ;;21,"00409298749 ")
+426 ;;7347
+427 ;;21,"00409298801 ")
+428 ;;7348
+429 ;;21,"00409299803 ")
+430 ;;7349
+431 ;;21,"00409405001 ")
+432 ;;7350
+433 ;;21,"00409405101 ")
+434 ;;7351
+435 ;;21,"00409405201 ")
+436 ;;7352
+437 ;;21,"00409405303 ")
+438 ;;7353
+439 ;;21,"00409405403 ")
+440 ;;7354
+441 ;;21,"00409405503 ")
+442 ;;7355
+443 ;;21,"00409419701 ")
+444 ;;7356
+445 ;;21,"00409477702 ")
+446 ;;7357
+447 ;;21,"00409477723 ")
+448 ;;7358
+449 ;;21,"00409477749 ")
+450 ;;7359
+451 ;;21,"00409477750 ")
+452 ;;7360
+453 ;;21,"00409477761 ")
+454 ;;7361
+455 ;;21,"00409477762 ")
+456 ;;7362
+457 ;;21,"00409733201 ")
+458 ;;7363
+459 ;;21,"00409733261 ")
+460 ;;7364
+461 ;;21,"00409733304 ")
+462 ;;7365
+463 ;;21,"00409733349 ")
+464 ;;7366
+465 ;;21,"00409733410 ")
+466 ;;7367
+467 ;;21,"00409733503 ")
+468 ;;7368
+469 ;;21,"00409733561 ")
+470 ;;7369
+471 ;;21,"00409733604 ")
+472 ;;7370
+473 ;;21,"00409733649 ")
+474 ;;7371
+475 ;;21,"00409733701 ")
+476 ;;7372
+477 ;;21,"00409733801 ")
+478 ;;7373
+479 ;;21,"00440110030 ")
+480 ;;7374
+481 ;;21,"00440110104 ")
+482 ;;7375
+483 ;;21,"00440110130 ")
+484 ;;7376
+485 ;;21,"00440124040 ")
+486 ;;7377
+487 ;;21,"00440124340 ")
+488 ;;7378
+489 ;;21,"00440124440 ")
+490 ;;7379
+491 ;;21,"00440130040 ")
+492 ;;7380
+493 ;;21,"00440138040 ")
+494 ;;7381
+495 ;;21,"00440148114 ")
+496 ;;7382
+497 ;;21,"00440148120 ")
+498 ;;7383
+499 ;;21,"00440205540 ")
+500 ;;7384
+501 ;;21,"00440205640 ")
+502 ;;7385
+503 ;;21,"00440240620 ")
+504 ;;7386
+505 ;;21,"00440250528 ")
+506 ;;7387
+507 ;;21,"00440710000 ")
+508 ;;7388
+509 ;;21,"00440710020 ")
+510 ;;7389
+511 ;;21,"00440710030 ")
+512 ;;7390
+513 ;;21,"00440710060 ")
+514 ;;7391
+515 ;;21,"00440710090 ")
+516 ;;7392
+517 ;;21,"00440710130 ")
+518 ;;7393
+519 ;;21,"00440710530 ")
+520 ;;7394
+521 ;;21,"00440710621 ")
+522 ;;7395
+523 ;;21,"00440710630 ")
+524 ;;7396
+525 ;;21,"00440710820 ")
+526 ;;7397
+527 ;;21,"00440724028 ")
+528 ;;7398
+529 ;;21,"00440724040 ")
+530 ;;7399
+531 ;;21,"00440724121 ")
+532 ;;7400
+533 ;;21,"00440724140 ")
+534 ;;7401
+535 ;;21,"00440724328 ")
+536 ;;7402
+537 ;;21,"00440729006 ")
+538 ;;7403
+539 ;;21,"00440729120 ")
+540 ;;7404
+541 ;;21,"00440729160 ")
+542 ;;7405
+543 ;;21,"00440730030 ")
+544 ;;7406
+545 ;;21,"00440730040 ")
+546 ;;7407
+547 ;;21,"00440730056 ")
+548 ;;7408
+549 ;;21,"00440730090 ")
+550 ;;7409
+551 ;;21,"00440738000 ")
+552 ;;7410
+553 ;;21,"00440738002 ")
+554 ;;7411
+555 ;;21,"00440738010 ")
+556 ;;7412
+557 ;;21,"00440738020 ")
+558 ;;7413
+559 ;;21,"00440738028 ")
+560 ;;7414
+561 ;;21,"00440738040 ")
+562 ;;7415
+563 ;;21,"00440738140 ")
+564 ;;7416
+565 ;;21,"00440748114 ")
+566 ;;7417
+567 ;;21,"00440748120 ")
+568 ;;7418
+569 ;;21,"00440748130 ")
+570 ;;7419
+571 ;;21,"00440748160 ")
+572 ;;7420
+573 ;;21,"00440748319 ")
+574 ;;7421
+575 ;;21,"00440748371 ")
+576 ;;7422
+577 ;;21,"00440748392 ")
+578 ;;7423
+579 ;;21,"00440748395 ")
+580 ;;7424
+581 ;;21,"00440748397 ")
+582 ;;7425
+583 ;;21,"00440751040 ")
+584 ;;7426
+585 ;;21,"00440780560 ")
+586 ;;7427
+587 ;;21,"00440805040 ")
+588 ;;7428
+589 ;;21,"00440805140 ")
+590 ;;7429
+591 ;;21,"00440805540 ")
+592 ;;7430
+593 ;;21,"00440805620 ")
+594 ;;7431
+595 ;;21,"00440805640 ")
+596 ;;7432
+597 ;;21,"00440805690 ")
+598 ;;7433
+599 ;;21,"00440835820 ")
+600 ;;7434
+601 ;;21,"00440835840 ")
+602 ;;7435
+603 ;;21,"00440840603 ")
+604 ;;7436
+605 ;;21,"00440840606 ")
+606 ;;7437
+607 ;;21,"00440840608 ")
+608 ;;7438
+609 ;;21,"00440840614 ")
+610 ;;7439
+611 ;;21,"00440840620 ")
+612 ;;7440
+613 ;;21,"00440840628 ")
+614 ;;7441
+615 ;;21,"00440840630 ")
+616 ;;7442
+617 ;;21,"00440840640 ")
+618 ;;7443
+619 ;;21,"00440840660 ")
+620 ;;7444
+621 ;;21,"00440850540 ")
+622 ;;7445
+623 ;;21,"00440850591 ")
+624 ;;7446
+625 ;;21,"00463025421 ")
+626 ;;7447
+627 ;;21,"00463025440 ")
+628 ;;7448
+629 ;;21,"00463111810 ")
+630 ;;7449
+631 ;;21,"00463111811 ")
+632 ;;7450
+633 ;;21,"00463501401 ")
+634 ;;7451
+635 ;;21,"00463501501 ")
+636 ;;7452
+637 ;;21,"00463501601 ")
+638 ;;7453
+639 ;;21,"00472085010 ")
+640 ;;7454
+641 ;;21,"00472192110 ")
+642 ;;7455
+643 ;;21,"00472192130 ")
+644 ;;7456
+645 ;;21,"00472192210 ")
+646 ;;7457
+647 ;;21,"00472192230 ")
+648 ;;7458
+649 ;;21,"00480008801 ")
+650 ;;7459
+651 ;;21,"00480008805 ")
+652 ;;7460
+653 ;;21,"00480008901 ")
+654 ;;7461
+655 ;;21,"00480008905 ")
+656 ;;7462
+657 ;;21,"00480056216 ")
+658 ;;7463
+659 ;;21,"00480086301 ")
+660 ;;7464
+661 ;;21,"00480086401 ")
+662 ;;7465
+663 ;;21,"00480086553 ")
+664 ;;7466
+665 ;;21,"00480316501 ")
+666 ;;7467
+667 ;;21,"00480316753 ")
+668 ;;7468
+669 ;;21,"00480714609 ")
+670 ;;7469
+671 ;;21,"00480714618 ")
+672 ;;7470
+673 ;;21,"00480714656 ")
+674 ;;7471
+675 ;;21,"00480714699 ")
+676 ;;7472
+677 ;;21,"00480714823 ")
+678 ;;7473
+679 ;;21,"00480714923 ")
+680 ;;7474
+681 ;;21,"00480714931 ")
+682 ;;7475
+683 ;;21,"00480714994 ")
+684 ;;7476
+685 ;;21,"00480715706 ")
+686 ;;7477
+687 ;;21,"00480715806 ")
+688 ;;7478
+689 ;;21,"00480718001 ")
+690 ;;7479
+691 ;;21,"00480718101 ")
+692 ;;7480
+693 ;;21,"00480718201 ")
+694 ;;7481
+695 ;;21,"00480719136 ")
+696 ;;7482
+697 ;;21,"00480719203 ")
+698 ;;7483
+699 ;;21,"00480724406 ")
+700 ;;7484
+701 ;;21,"00480729353 ")
+702 ;;7485
+703 ;;21,"00480730001 ")
+704 ;;7486