- BGPM5BEH ;IHS/MSC/MMT-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,"11819012160 ")
- +2 ;;269
- +3 ;;21,"11819012190 ")
- +4 ;;270
- +5 ;;21,"12634049060 ")
- +6 ;;2052
- +7 ;;21,"12634072960 ")
- +8 ;;2053
- +9 ;;21,"12634075690 ")
- +10 ;;271
- +11 ;;21,"12634078480 ")
- +12 ;;2054
- +13 ;;21,"12634078912 ")
- +14 ;;272
- +15 ;;21,"12634079012 ")
- +16 ;;2055
- +17 ;;21,"13107000801 ")
- +18 ;;273
- +19 ;;21,"13107000805 ")
- +20 ;;274
- +21 ;;21,"13107000849 ")
- +22 ;;275
- +23 ;;21,"13107000850 ")
- +24 ;;276
- +25 ;;21,"13107000860 ")
- +26 ;;277
- +27 ;;21,"13107000890 ")
- +28 ;;278
- +29 ;;21,"13107000901 ")
- +30 ;;279
- +31 ;;21,"13107000905 ")
- +32 ;;280
- +33 ;;21,"13107000922 ")
- +34 ;;281
- +35 ;;21,"13107000950 ")
- +36 ;;282
- +37 ;;21,"13107000960 ")
- +38 ;;283
- +39 ;;21,"13107000990 ")
- +40 ;;284
- +41 ;;21,"13107001001 ")
- +42 ;;285
- +43 ;;21,"13107001005 ")
- +44 ;;286
- +45 ;;21,"13107001026 ")
- +46 ;;287
- +47 ;;21,"13107001050 ")
- +48 ;;288
- +49 ;;21,"13107001090 ")
- +50 ;;289
- +51 ;;21,"13411016302 ")
- +52 ;;290
- +53 ;;21,"13411016303 ")
- +54 ;;291
- +55 ;;21,"13411016306 ")
- +56 ;;292
- +57 ;;21,"13411016309 ")
- +58 ;;293
- +59 ;;21,"13411016310 ")
- +60 ;;294
- +61 ;;21,"13411016402 ")
- +62 ;;295
- +63 ;;21,"13411016403 ")
- +64 ;;296
- +65 ;;21,"13411016406 ")
- +66 ;;297
- +67 ;;21,"13411016409 ")
- +68 ;;298
- +69 ;;21,"13411016410 ")
- +70 ;;299
- +71 ;;21,"13411022001 ")
- +72 ;;2056
- +73 ;;21,"13411022002 ")
- +74 ;;2057
- +75 ;;21,"13411022003 ")
- +76 ;;2058
- +77 ;;21,"13411022006 ")
- +78 ;;2059
- +79 ;;21,"13411022010 ")
- +80 ;;2060
- +81 ;;21,"13411022101 ")
- +82 ;;2061
- +83 ;;21,"13411022102 ")
- +84 ;;2062
- +85 ;;21,"13411022103 ")
- +86 ;;2063
- +87 ;;21,"13411022106 ")
- +88 ;;2064
- +89 ;;21,"13411022110 ")
- +90 ;;2065
- +91 ;;21,"13411022302 ")
- +92 ;;300
- +93 ;;21,"13411022303 ")
- +94 ;;301
- +95 ;;21,"13411022306 ")
- +96 ;;302
- +97 ;;21,"13411022309 ")
- +98 ;;303
- +99 ;;21,"13411022310 ")
- +100 ;;304
- +101 ;;21,"13411034603 ")
- +102 ;;2066
- +103 ;;21,"13411034703 ")
- +104 ;;2067
- +105 ;;21,"13411034803 ")
- +106 ;;2068
- +107 ;;21,"13411034903 ")
- +108 ;;2069
- +109 ;;21,"13411035003 ")
- +110 ;;2070
- +111 ;;21,"13668000101 ")
- +112 ;;305
- +113 ;;21,"13668000105 ")
- +114 ;;306
- +115 ;;21,"13668000110 ")
- +116 ;;307
- +117 ;;21,"13668000112 ")
- +118 ;;308
- +119 ;;21,"13668000130 ")
- +120 ;;309
- +121 ;;21,"13668000160 ")
- +122 ;;310
- +123 ;;21,"13668000190 ")
- +124 ;;311
- +125 ;;21,"13668000201 ")
- +126 ;;312
- +127 ;;21,"13668000205 ")
- +128 ;;313
- +129 ;;21,"13668000212 ")
- +130 ;;314
- +131 ;;21,"13668000230 ")
- +132 ;;315
- +133 ;;21,"13668000260 ")
- +134 ;;316
- +135 ;;21,"13668000290 ")
- +136 ;;317
- +137 ;;21,"13668000301 ")
- +138 ;;318
- +139 ;;21,"13668000305 ")
- +140 ;;319
- +141 ;;21,"13668000312 ")
- +142 ;;320
- +143 ;;21,"13668000330 ")
- +144 ;;321
- +145 ;;21,"13668000360 ")
- +146 ;;322
- +147 ;;21,"13668000390 ")
- +148 ;;323
- +149 ;;21,"13668001205 ")
- +150 ;;324
- +151 ;;21,"13668001212 ")
- +152 ;;325
- +153 ;;21,"13668001230 ")
- +154 ;;326
- +155 ;;21,"13668001260 ")
- +156 ;;327
- +157 ;;21,"13668001290 ")
- +158 ;;328
- +159 ;;21,"13668001305 ")
- +160 ;;329
- +161 ;;21,"13668001312 ")
- +162 ;;330
- +163 ;;21,"13668001330 ")
- +164 ;;331
- +165 ;;21,"13668001360 ")
- +166 ;;332
- +167 ;;21,"13668001390 ")
- +168 ;;333
- +169 ;;21,"14550020210 ")
- +170 ;;334
- +171 ;;21,"14550020250 ")
- +172 ;;335
- +173 ;;21,"14550051702 ")
- +174 ;;1
- +175 ;;21,"14550051704 ")
- +176 ;;2
- +177 ;;21,"14550051802 ")
- +178 ;;3
- +179 ;;21,"14550051804 ")
- +180 ;;4
- +181 ;;21,"14550051902 ")
- +182 ;;5
- +183 ;;21,"14550051904 ")
- +184 ;;6
- +185 ;;21,"14565020210 ")
- +186 ;;342
- +187 ;;21,"14565020250 ")
- +188 ;;343
- +189 ;;21,"14593040901 ")
- +190 ;;344
- +191 ;;21,"14593040902 ")
- +192 ;;345
- +193 ;;21,"14593040905 ")
- +194 ;;346
- +195 ;;21,"14593040910 ")
- +196 ;;347
- +197 ;;21,"14593041001 ")
- +198 ;;348
- +199 ;;21,"14593041010 ")
- +200 ;;349
- +201 ;;21,"14593041101 ")
- +202 ;;350
- +203 ;;21,"14593041110 ")
- +204 ;;351
- +205 ;;21,"15548096701 ")
- +206 ;;7
- +207 ;;21,"15548096705 ")
- +208 ;;8
- +209 ;;21,"15548096801 ")
- +210 ;;9
- +211 ;;21,"15548096805 ")
- +212 ;;10
- +213 ;;21,"16252051801 ")
- +214 ;;2081
- +215 ;;21,"16252051901 ")
- +216 ;;2082
- +217 ;;21,"16252052001 ")
- +218 ;;2083
- +219 ;;21,"16252052300 ")
- +220 ;;4339
- +221 ;;21,"16252052301 ")
- +222 ;;4340
- +223 ;;21,"16252052400 ")
- +224 ;;4341
- +225 ;;21,"16252052401 ")
- +226 ;;4342
- +227 ;;21,"16252052500 ")
- +228 ;;4343
- +229 ;;21,"16252052501 ")
- +230 ;;4344
- +231 ;;21,"16364000101 ")
- +232 ;;2084
- +233 ;;21,"16364000201 ")
- +234 ;;2085
- +235 ;;21,"16364000301 ")
- +236 ;;2086
- +237 ;;21,"16590028730 ")
- +238 ;;2087
- +239 ;;21,"16590028760 ")
- +240 ;;2088
- +241 ;;21,"16590028771 ")
- +242 ;;2089
- +243 ;;21,"16590028790 ")
- +244 ;;2090
- +245 ;;21,"16590031330 ")
- +246 ;;356
- +247 ;;21,"16590031360 ")
- +248 ;;357
- +249 ;;21,"16590031390 ")
- +250 ;;358
- +251 ;;21,"16590041860 ")
- +252 ;;11
- +253 ;;21,"16729000101 ")
- +254 ;;2092
- +255 ;;21,"16729000201 ")
- +256 ;;2093
- +257 ;;21,"16729000301 ")
- +258 ;;2094
- +259 ;;21,"16729013900 ")
- +260 ;;2095
- +261 ;;21,"16729013916 ")
- +262 ;;2096
- +263 ;;21,"16729013917 ")
- +264 ;;2097
- +265 ;;21,"16729014000 ")
- +266 ;;2098
- +267 ;;21,"16729014016 ")
- +268 ;;2099
- +269 ;;21,"16729014017 ")
- +270 ;;2100
- +271 ;;21,"17856084402 ")
- +272 ;;2101
- +273 ;;21,"17856087302 ")
- +274 ;;2102
- +275 ;;21,"17856289802 ")
- +276 ;;2103
- +277 ;;21,"17856315802 ")
- +278 ;;2104
- +279 ;;21,"20091053101 ")
- +280 ;;360
- +281 ;;21,"20091053105 ")
- +282 ;;361
- +283 ;;21,"20091053110 ")
- +284 ;;362
- +285 ;;21,"20091053301 ")
- +286 ;;363
- +287 ;;21,"20091053305 ")
- +288 ;;364
- +289 ;;21,"20091053310 ")
- +290 ;;365
- +291 ;;21,"20091053501 ")
- +292 ;;366
- +293 ;;21,"20091053505 ")
- +294 ;;367
- +295 ;;21,"20091053510 ")
- +296 ;;368
- +297 ;;21,"21695046730 ")
- +298 ;;2105
- +299 ;;21,"21695046760 ")
- +300 ;;2106
- +301 ;;21,"21695046830 ")
- +302 ;;2107
- +303 ;;21,"21695046860 ")
- +304 ;;2108
- +305 ;;21,"21695046872 ")
- +306 ;;2109
- +307 ;;21,"21695046878 ")
- +308 ;;2110
- +309 ;;21,"21695046930 ")
- +310 ;;2111
- +311 ;;21,"21695046990 ")
- +312 ;;2112
- +313 ;;21,"21695047000 ")
- +314 ;;2113
- +315 ;;21,"21695047030 ")
- +316 ;;2114
- +317 ;;21,"21695047060 ")
- +318 ;;2115
- +319 ;;21,"21695047078 ")
- +320 ;;2116
- +321 ;;21,"21695047090 ")
- +322 ;;2117
- +323 ;;21,"21695047100 ")
- +324 ;;369
- +325 ;;21,"21695047130 ")
- +326 ;;370
- +327 ;;21,"21695047160 ")
- +328 ;;371
- +329 ;;21,"21695047178 ")
- +330 ;;372
- +331 ;;21,"21695047190 ")
- +332 ;;373
- +333 ;;21,"21695047230 ")
- +334 ;;374
- +335 ;;21,"21695047260 ")
- +336 ;;375
- +337 ;;21,"21695047300 ")
- +338 ;;376
- +339 ;;21,"21695047330 ")
- +340 ;;377
- +341 ;;21,"21695047360 ")
- +342 ;;378
- +343 ;;21,"21695047378 ")
- +344 ;;379
- +345 ;;21,"21695047390 ")
- +346 ;;380
- +347 ;;21,"21695056830 ")
- +348 ;;12
- +349 ;;21,"21695074630 ")
- +350 ;;2119
- +351 ;;21,"21695074690 ")
- +352 ;;2120
- +353 ;;21,"21695074730 ")
- +354 ;;2121
- +355 ;;21,"21695074760 ")
- +356 ;;2122
- +357 ;;21,"21695074790 ")
- +358 ;;2123
- +359 ;;21,"21695082860 ")
- +360 ;;382
- +361 ;;21,"21695082890 ")
- +362 ;;383
- +363 ;;21,"21695089400 ")
- +364 ;;13
- +365 ;;21,"23155005601 ")
- +366 ;;2125
- +367 ;;21,"23155005610 ")
- +368 ;;2126
- +369 ;;21,"23155005701 ")
- +370 ;;2127
- +371 ;;21,"23155005710 ")
- +372 ;;2128
- +373 ;;21,"23155005801 ")
- +374 ;;2129
- +375 ;;21,"23155005810 ")
- +376 ;;2130
- +377 ;;21,"23155010201 ")
- +378 ;;385
- +379 ;;21,"23155010205 ")
- +380 ;;386
- +381 ;;21,"23155010210 ")
- +382 ;;387
- +383 ;;21,"23155010301 ")
- +384 ;;388
- +385 ;;21,"23155010305 ")
- +386 ;;389
- +387 ;;21,"23155010310 ")
- +388 ;;390
- +389 ;;21,"23155010401 ")
- +390 ;;391
- +391 ;;21,"23155010405 ")
- +392 ;;392
- +393 ;;21,"23155010410 ")
- +394 ;;393
- +395 ;;21,"23155011501 ")
- +396 ;;14
- +397 ;;21,"23155011510 ")
- +398 ;;15
- +399 ;;21,"23155011601 ")
- +400 ;;16
- +401 ;;21,"23155011610 ")
- +402 ;;17
- +403 ;;21,"23155011701 ")
- +404 ;;18
- +405 ;;21,"23155011710 ")
- +406 ;;19
- +407 ;;21,"23490046000 ")
- +408 ;;2137
- +409 ;;21,"23490046100 ")
- +410 ;;2138
- +411 ;;21,"23490064103 ")
- +412 ;;2139
- +413 ;;21,"23490064106 ")
- +414 ;;2140
- +415 ;;21,"23490064200 ")
- +416 ;;2141
- +417 ;;21,"23490064203 ")
- +418 ;;2142
- +419 ;;21,"23490064206 ")
- +420 ;;2143
- +421 ;;21,"23490064209 ")
- +422 ;;2144
- +423 ;;21,"23490089800 ")
- +424 ;;400
- +425 ;;21,"23490089803 ")
- +426 ;;401
- +427 ;;21,"23490089806 ")
- +428 ;;402
- +429 ;;21,"23490089809 ")
- +430 ;;403
- +431 ;;21,"23490089900 ")
- +432 ;;404
- +433 ;;21,"23490089906 ")
- +434 ;;405
- +435 ;;21,"23490090003 ")
- +436 ;;406
- +437 ;;21,"23490090006 ")
- +438 ;;407
- +439 ;;21,"23490112807 ")
- +440 ;;2145
- +441 ;;21,"23490563201 ")
- +442 ;;2146
- +443 ;;21,"23490563202 ")
- +444 ;;2147
- +445 ;;21,"23490563203 ")
- +446 ;;2148
- +447 ;;21,"23490563301 ")
- +448 ;;2149
- +449 ;;21,"23490563403 ")
- +450 ;;2150
- +451 ;;21,"23490563503 ")
- +452 ;;2151
- +453 ;;21,"23490563801 ")
- +454 ;;2152
- +455 ;;21,"23490563802 ")
- +456 ;;2153
- +457 ;;21,"23490563901 ")
- +458 ;;2154
- +459 ;;21,"23490563902 ")
- +460 ;;2155
- +461 ;;21,"23490683801 ")
- +462 ;;408
- +463 ;;21,"23490683802 ")
- +464 ;;409
- +465 ;;21,"23490683803 ")
- +466 ;;410
- +467 ;;21,"23490683804 ")
- +468 ;;411
- +469 ;;21,"23490683901 ")
- +470 ;;412
- +471 ;;21,"23490683902 ")
- +472 ;;413
- +473 ;;21,"23490683903 ")
- +474 ;;414
- +475 ;;21,"23490683904 ")
- +476 ;;415
- +477 ;;21,"23490726001 ")
- +478 ;;416
- +479 ;;21,"23490726002 ")
- +480 ;;417
- +481 ;;21,"23490726003 ")
- +482 ;;418
- +483 ;;21,"23490726004 ")
- +484 ;;419
- +485 ;;21,"23490744901 ")
- +486 ;;20
- +487 ;;21,"23490745806 ")
- +488 ;;421
- +489 ;;21,"24196054501 ")
- +490 ;;2157
- +491 ;;21,"24196054505 ")
- +492 ;;2158
- +493 ;;21,"24196054510 ")
- +494 ;;2159
- +495 ;;21,"24196054601 ")
- +496 ;;2160
- +497 ;;21,"24196054605 ")
- +498 ;;2161
- +499 ;;21,"24196054610 ")
- +500 ;;2162
- +501 ;;21,"24236006402 ")
- +502 ;;2163
- +503 ;;21,"24236008702 ")
- +504 ;;422
- +505 ;;21,"24236015702 ")
- +506 ;;423
- +507 ;;21,"24236017202 ")
- +508 ;;2164
- +509 ;;21,"24236017702 ")
- +510 ;;424
- +511 ;;21,"24236018002 ")
- +512 ;;2165
- +513 ;;21,"24236021602 ")
- +514 ;;2166
- +515 ;;21,"24236023602 ")
- +516 ;;425
- +517 ;;21,"24236025202 ")
- +518 ;;2167
- +519 ;;21,"24236025502 ")
- +520 ;;2168
- +521 ;;21,"24236026602 ")
- +522 ;;2169
- +523 ;;21,"24236027602 ")
- +524 ;;2170
- +525 ;;21,"24236030402 ")
- +526 ;;426
- +527 ;;21,"24236031602 ")
- +528 ;;427
- +529 ;;21,"24236034002 ")
- +530 ;;428
- +531 ;;21,"24236036802 ")
- +532 ;;2171
- +533 ;;21,"24236038102 ")
- +534 ;;2172
- +535 ;;21,"24236043102 ")
- +536 ;;2173
- +537 ;;21,"24236048902 ")
- +538 ;;2174
- +539 ;;21,"24236056802 ")
- +540 ;;429
- +541 ;;21,"24236063202 ")
- +542 ;;2175
- +543 ;;21,"24236071502 ")
- +544 ;;430
- +545 ;;21,"24236079102 ")
- +546 ;;431
- +547 ;;21,"24236079902 ")
- +548 ;;2176
- +549 ;;21,"24236090802 ")
- +550 ;;432
- +551 ;;21,"24236098802 ")
- +552 ;;433
- +553 ;;21,"24236099402 ")
- +554 ;;434
- +555 ;;21,"24724001401 ")
- +556 ;;435
- +557 ;;21,"24724001450 ")
- +558 ;;436
- +559 ;;21,"24724001501 ")
- +560 ;;437
- +561 ;;21,"24724001550 ")
- +562 ;;438
- +563 ;;21,"24724001601 ")
- +564 ;;439
- +565 ;;21,"24724001650 ")
- +566 ;;440
- +567 ;;21,"26053006701 ")
- +568 ;;2177
- +569 ;;21,"26053015701 ")
- +570 ;;2178
- +571 ;;21,"26053015801 ")
- +572 ;;2179
- +573 ;;21,"26053015901 ")
- +574 ;;2180
- +575 ;;21,"26053016001 ")
- +576 ;;2181
- +577 ;;21,"26053016101 ")
- +578 ;;2182
- +579 ;;21,"26053016201 ")
- +580 ;;2183
- +581 ;;21,"26053016301 ")
- +582 ;;2184
- +583 ;;21,"26053016401 ")
- +584 ;;21
- +585 ;;21,"26053022001 ")
- +586 ;;442
- +587 ;;21,"26053022101 ")
- +588 ;;443
- +589 ;;21,"26053043901 ")
- +590 ;;444
- +591 ;;21,"33358015730 ")
- +592 ;;2186
- +593 ;;21,"33358015760 ")
- +594 ;;2187
- +595 ;;21,"33358015800 ")
- +596 ;;2188
- +597 ;;21,"33358015830 ")
- +598 ;;2189
- +599 ;;21,"33358015860 ")
- +600 ;;2190
- +601 ;;21,"33358016030 ")
- +602 ;;2191
- +603 ;;21,"33358016060 ")
- +604 ;;2192
- +605 ;;21,"33358016101 ")
- +606 ;;2193
- +607 ;;21,"33358016130 ")
- +608 ;;2194
- +609 ;;21,"33358016160 ")
- +610 ;;2195
- +611 ;;21,"33358023400 ")
- +612 ;;445
- +613 ;;21,"33358023430 ")
- +614 ;;446
- +615 ;;21,"33358023460 ")
- +616 ;;447
- +617 ;;21,"33358023560 ")
- +618 ;;448
- +619 ;;21,"33358023630 ")
- +620 ;;449
- +621 ;;21,"33358023660 ")
- +622 ;;450
- +623 ;;21,"33358023730 ")
- +624 ;;451
- +625 ;;21,"33358023760 ")
- +626 ;;452
- +627 ;;21,"33358046530 ")
- +628 ;;453
- +629 ;;21,"35356011300 ")
- +630 ;;2196
- +631 ;;21,"35356011330 ")
- +632 ;;2197
- +633 ;;21,"35356026928 ")
- +634 ;;454
- +635 ;;21,"35356036030 ")
- +636 ;;2198
- +637 ;;21,"41284052301 ")
- +638 ;;4345
- +639 ;;21,"41284052400 ")
- +640 ;;4346
- +641 ;;21,"41284052401 ")
- +642 ;;4347
- +643 ;;21,"41284052500 ")
- +644 ;;4348
- +645 ;;21,"41284052501 ")
- +646 ;;4349
- +647 ;;21,"42291030790 ")
- +648 ;;2199
- +649 ;;21,"42291030890 ")
- +650 ;;2200
- +651 ;;21,"42291030990 ")
- +652 ;;2201
- +653 ;;21,"42291061018 ")
- +654 ;;455
- +655 ;;21,"42291061036 ")
- +656 ;;456
- +657 ;;21,"42291061090 ")
- +658 ;;457
- +659 ;;21,"42291061118 ")
- +660 ;;458
- +661 ;;21,"43063001201 ")
- +662 ;;459
- +663 ;;21,"43063003430 ")
- +664 ;;2202
- +665 ;;21,"43063003490 ")
- +666 ;;2203
- +667 ;;21,"43063011990 ")
- +668 ;;2204
- +669 ;;21,"43063012090 ")
- +670 ;;2205
- +671 ;;21,"43063012130 ")
- +672 ;;2206
- +673 ;;21,"43063012190 ")
- +674 ;;2207
- +675 ;;21,"43063012230 ")
- +676 ;;2208
- +677 ;;21,"43063012290 ")
- +678 ;;2209
- +679 ;;21,"43353006553 ")
- +680 ;;460
- +681 ;;21,"43353006560 ")
- +682 ;;461
- +683 ;;21,"43353006580 ")
- +684 ;;462
- +685 ;;21,"43353006594 ")
- +686 ;;463
- +687 ;;21,"43353012530 ")
- +688 ;;464
- +689 ;;21,"43353012560 ")
- +690 ;;465
- +691 ;;21,"43353012630 ")
- +692 ;;466
- +693 ;;21,"43353012660 ")
- +694 ;;467
- +695 ;;21,"43353017145 ")
- +696 ;;468
- +697 ;;21,"43353017153 ")
- +698 ;;469
- +699 ;;21,"43353017160 ")
- +700 ;;470
- +701 ;;21,"43353017180 ")
- +702 ;;471
- +703 ;;21,"43353026160 ")
- +704 ;;2210
- +705 ;;21,"43353034030 ")
- +706 ;;472
- +707 ;;21,"43353034053 ")
- +708 ;;473
- +709 ;;21,"43353034060 ")
- +710 ;;474
- +711 ;;21,"43353034070 ")
- +712 ;;475
- +713 ;;21,"43353034075 ")
- +714 ;;476
- +715 ;;21,"43353034080 ")
- +716 ;;477