BGPM5ATW ;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,"58016045383 ")
+2 ;;2917
+3 ;;21,"58016045384 ")
+4 ;;2918
+5 ;;21,"58016045387 ")
+6 ;;2919
+7 ;;21,"58016045389 ")
+8 ;;2920
+9 ;;21,"58016045390 ")
+10 ;;2921
+11 ;;21,"58016045391 ")
+12 ;;2922
+13 ;;21,"58016045392 ")
+14 ;;2923
+15 ;;21,"58016045393 ")
+16 ;;2924
+17 ;;21,"58016045396 ")
+18 ;;2925
+19 ;;21,"58016045397 ")
+20 ;;2926
+21 ;;21,"58016045398 ")
+22 ;;2927
+23 ;;21,"58016045399 ")
+24 ;;2928
+25 ;;21,"58016055430 ")
+26 ;;2929
+27 ;;21,"58016063400 ")
+28 ;;2930
+29 ;;21,"58016063401 ")
+30 ;;2931
+31 ;;21,"58016063402 ")
+32 ;;2932
+33 ;;21,"58016063403 ")
+34 ;;2933
+35 ;;21,"58016063404 ")
+36 ;;2934
+37 ;;21,"58016063405 ")
+38 ;;2935
+39 ;;21,"58016063406 ")
+40 ;;2936
+41 ;;21,"58016063407 ")
+42 ;;2937
+43 ;;21,"58016063408 ")
+44 ;;2938
+45 ;;21,"58016063409 ")
+46 ;;2939
+47 ;;21,"58016063410 ")
+48 ;;2940
+49 ;;21,"58016063412 ")
+50 ;;2941
+51 ;;21,"58016063414 ")
+52 ;;2942
+53 ;;21,"58016063415 ")
+54 ;;2943
+55 ;;21,"58016063416 ")
+56 ;;2944
+57 ;;21,"58016063418 ")
+58 ;;2945
+59 ;;21,"58016063420 ")
+60 ;;2946
+61 ;;21,"58016063421 ")
+62 ;;2947
+63 ;;21,"58016063424 ")
+64 ;;2948
+65 ;;21,"58016063425 ")
+66 ;;2949
+67 ;;21,"58016063426 ")
+68 ;;2950
+69 ;;21,"58016063427 ")
+70 ;;2951
+71 ;;21,"58016063428 ")
+72 ;;2952
+73 ;;21,"58016063430 ")
+74 ;;2953
+75 ;;21,"58016063432 ")
+76 ;;2954
+77 ;;21,"58016063435 ")
+78 ;;2955
+79 ;;21,"58016063436 ")
+80 ;;2956
+81 ;;21,"58016063440 ")
+82 ;;2957
+83 ;;21,"58016063442 ")
+84 ;;2958
+85 ;;21,"58016063444 ")
+86 ;;2959
+87 ;;21,"58016063445 ")
+88 ;;2960
+89 ;;21,"58016063448 ")
+90 ;;2961
+91 ;;21,"58016063450 ")
+92 ;;2962
+93 ;;21,"58016063456 ")
+94 ;;2963
+95 ;;21,"58016063460 ")
+96 ;;2964
+97 ;;21,"58016063467 ")
+98 ;;2965
+99 ;;21,"58016063469 ")
+100 ;;2966
+101 ;;21,"58016063470 ")
+102 ;;2967
+103 ;;21,"58016063471 ")
+104 ;;2968
+105 ;;21,"58016063472 ")
+106 ;;2969
+107 ;;21,"58016063473 ")
+108 ;;2970
+109 ;;21,"58016063475 ")
+110 ;;2971
+111 ;;21,"58016063476 ")
+112 ;;2972
+113 ;;21,"58016063477 ")
+114 ;;2973
+115 ;;21,"58016063479 ")
+116 ;;2974
+117 ;;21,"58016063480 ")
+118 ;;2975
+119 ;;21,"58016063481 ")
+120 ;;2976
+121 ;;21,"58016063482 ")
+122 ;;2977
+123 ;;21,"58016063483 ")
+124 ;;2978
+125 ;;21,"58016063484 ")
+126 ;;2979
+127 ;;21,"58016063487 ")
+128 ;;2980
+129 ;;21,"58016063489 ")
+130 ;;2981
+131 ;;21,"58016063490 ")
+132 ;;2982
+133 ;;21,"58016063491 ")
+134 ;;2983
+135 ;;21,"58016063492 ")
+136 ;;2984
+137 ;;21,"58016063493 ")
+138 ;;2985
+139 ;;21,"58016063496 ")
+140 ;;2986
+141 ;;21,"58016063497 ")
+142 ;;2987
+143 ;;21,"58016063498 ")
+144 ;;2988
+145 ;;21,"58016063499 ")
+146 ;;2989
+147 ;;21,"58016064300 ")
+148 ;;2990
+149 ;;21,"58016064301 ")
+150 ;;2991
+151 ;;21,"58016064302 ")
+152 ;;2992
+153 ;;21,"58016064303 ")
+154 ;;2993
+155 ;;21,"58016064304 ")
+156 ;;2994
+157 ;;21,"58016064305 ")
+158 ;;2995
+159 ;;21,"58016064306 ")
+160 ;;2996
+161 ;;21,"58016064307 ")
+162 ;;2997
+163 ;;21,"58016064308 ")
+164 ;;2998
+165 ;;21,"58016064309 ")
+166 ;;2999
+167 ;;21,"58016064310 ")
+168 ;;3000
+169 ;;21,"58016064312 ")
+170 ;;3001
+171 ;;21,"58016064314 ")
+172 ;;3002
+173 ;;21,"58016064315 ")
+174 ;;3003
+175 ;;21,"58016064316 ")
+176 ;;3004
+177 ;;21,"58016064318 ")
+178 ;;3005
+179 ;;21,"58016064320 ")
+180 ;;3006
+181 ;;21,"58016064321 ")
+182 ;;3007
+183 ;;21,"58016064324 ")
+184 ;;3008
+185 ;;21,"58016064325 ")
+186 ;;3009
+187 ;;21,"58016064326 ")
+188 ;;3010
+189 ;;21,"58016064327 ")
+190 ;;3011
+191 ;;21,"58016064328 ")
+192 ;;3012
+193 ;;21,"58016064330 ")
+194 ;;3013
+195 ;;21,"58016064332 ")
+196 ;;3014
+197 ;;21,"58016064335 ")
+198 ;;3015
+199 ;;21,"58016064336 ")
+200 ;;3016
+201 ;;21,"58016064340 ")
+202 ;;3017
+203 ;;21,"58016064342 ")
+204 ;;3018
+205 ;;21,"58016064344 ")
+206 ;;3019
+207 ;;21,"58016064345 ")
+208 ;;3020
+209 ;;21,"58016064348 ")
+210 ;;3021
+211 ;;21,"58016064350 ")
+212 ;;3022
+213 ;;21,"58016064356 ")
+214 ;;3023
+215 ;;21,"58016064360 ")
+216 ;;3024
+217 ;;21,"58016064367 ")
+218 ;;3025
+219 ;;21,"58016064369 ")
+220 ;;3026
+221 ;;21,"58016064370 ")
+222 ;;3027
+223 ;;21,"58016064371 ")
+224 ;;3028
+225 ;;21,"58016064372 ")
+226 ;;3029
+227 ;;21,"58016064373 ")
+228 ;;3030
+229 ;;21,"58016064375 ")
+230 ;;3031
+231 ;;21,"58016064376 ")
+232 ;;3032
+233 ;;21,"58016064377 ")
+234 ;;3033
+235 ;;21,"58016064379 ")
+236 ;;3034
+237 ;;21,"58016064380 ")
+238 ;;3035
+239 ;;21,"58016064381 ")
+240 ;;3036
+241 ;;21,"58016064382 ")
+242 ;;3037
+243 ;;21,"58016064383 ")
+244 ;;3038
+245 ;;21,"58016064384 ")
+246 ;;3039
+247 ;;21,"58016064387 ")
+248 ;;3040
+249 ;;21,"58016064389 ")
+250 ;;3041
+251 ;;21,"58016064390 ")
+252 ;;3042
+253 ;;21,"58016064391 ")
+254 ;;3043
+255 ;;21,"58016064392 ")
+256 ;;3044
+257 ;;21,"58016064393 ")
+258 ;;3045
+259 ;;21,"58016064396 ")
+260 ;;3046
+261 ;;21,"58016064397 ")
+262 ;;3047
+263 ;;21,"58016064398 ")
+264 ;;3048
+265 ;;21,"58016064399 ")
+266 ;;3049
+267 ;;21,"58016087200 ")
+268 ;;3050
+269 ;;21,"58016087201 ")
+270 ;;3051
+271 ;;21,"58016087202 ")
+272 ;;3052
+273 ;;21,"58016087203 ")
+274 ;;3053
+275 ;;21,"58016087204 ")
+276 ;;3054
+277 ;;21,"58016087205 ")
+278 ;;3055
+279 ;;21,"58016087206 ")
+280 ;;3056
+281 ;;21,"58016087207 ")
+282 ;;3057
+283 ;;21,"58016087208 ")
+284 ;;3058
+285 ;;21,"58016087209 ")
+286 ;;3059
+287 ;;21,"58016087210 ")
+288 ;;3060
+289 ;;21,"58016087212 ")
+290 ;;3061
+291 ;;21,"58016087214 ")
+292 ;;3062
+293 ;;21,"58016087215 ")
+294 ;;3063
+295 ;;21,"58016087216 ")
+296 ;;3064
+297 ;;21,"58016087218 ")
+298 ;;3065
+299 ;;21,"58016087220 ")
+300 ;;3066
+301 ;;21,"58016087221 ")
+302 ;;3067
+303 ;;21,"58016087224 ")
+304 ;;3068
+305 ;;21,"58016087225 ")
+306 ;;3069
+307 ;;21,"58016087226 ")
+308 ;;3070
+309 ;;21,"58016087227 ")
+310 ;;3071
+311 ;;21,"58016087228 ")
+312 ;;3072
+313 ;;21,"58016087230 ")
+314 ;;3073
+315 ;;21,"58016087232 ")
+316 ;;3074
+317 ;;21,"58016087235 ")
+318 ;;3075
+319 ;;21,"58016087236 ")
+320 ;;3076
+321 ;;21,"58016087240 ")
+322 ;;3077
+323 ;;21,"58016087242 ")
+324 ;;3078
+325 ;;21,"58016087244 ")
+326 ;;3079
+327 ;;21,"58016087245 ")
+328 ;;3080
+329 ;;21,"58016087248 ")
+330 ;;3081
+331 ;;21,"58016087250 ")
+332 ;;3082
+333 ;;21,"58016087256 ")
+334 ;;3083
+335 ;;21,"58016087260 ")
+336 ;;3084
+337 ;;21,"58016087267 ")
+338 ;;3085
+339 ;;21,"58016087269 ")
+340 ;;3086
+341 ;;21,"58016087270 ")
+342 ;;3087
+343 ;;21,"58016087271 ")
+344 ;;3088
+345 ;;21,"58016087272 ")
+346 ;;3089
+347 ;;21,"58016087273 ")
+348 ;;3090
+349 ;;21,"58016087275 ")
+350 ;;3091
+351 ;;21,"58016087276 ")
+352 ;;3092
+353 ;;21,"58016087277 ")
+354 ;;3093
+355 ;;21,"58016087279 ")
+356 ;;3094
+357 ;;21,"58016087280 ")
+358 ;;3095
+359 ;;21,"58016087281 ")
+360 ;;3096
+361 ;;21,"58016087282 ")
+362 ;;3097
+363 ;;21,"58016087283 ")
+364 ;;3098
+365 ;;21,"58016087284 ")
+366 ;;3099
+367 ;;21,"58016087287 ")
+368 ;;3100
+369 ;;21,"58016087289 ")
+370 ;;3101
+371 ;;21,"58016087290 ")
+372 ;;3102
+373 ;;21,"58016087291 ")
+374 ;;3103
+375 ;;21,"58016087292 ")
+376 ;;3104
+377 ;;21,"58016087293 ")
+378 ;;3105
+379 ;;21,"58016087296 ")
+380 ;;3106
+381 ;;21,"58016087297 ")
+382 ;;3107
+383 ;;21,"58016087298 ")
+384 ;;3108
+385 ;;21,"58016087299 ")
+386 ;;3109
+387 ;;21,"58016087300 ")
+388 ;;3110
+389 ;;21,"58016087315 ")
+390 ;;3111
+391 ;;21,"58016087320 ")
+392 ;;3112
+393 ;;21,"58016087330 ")
+394 ;;3113
+395 ;;21,"58016088400 ")
+396 ;;3114
+397 ;;21,"58016088401 ")
+398 ;;3115
+399 ;;21,"58016088402 ")
+400 ;;3116
+401 ;;21,"58016088403 ")
+402 ;;3117
+403 ;;21,"58016088404 ")
+404 ;;3118
+405 ;;21,"58016088405 ")
+406 ;;3119
+407 ;;21,"58016088406 ")
+408 ;;3120
+409 ;;21,"58016088407 ")
+410 ;;3121
+411 ;;21,"58016088408 ")
+412 ;;3122
+413 ;;21,"58016088409 ")
+414 ;;3123
+415 ;;21,"58016088410 ")
+416 ;;3124
+417 ;;21,"58016088412 ")
+418 ;;3125
+419 ;;21,"58016088414 ")
+420 ;;3126
+421 ;;21,"58016088415 ")
+422 ;;3127
+423 ;;21,"58016088416 ")
+424 ;;3128
+425 ;;21,"58016088418 ")
+426 ;;3129
+427 ;;21,"58016088420 ")
+428 ;;3130
+429 ;;21,"58016088421 ")
+430 ;;3131
+431 ;;21,"58016088424 ")
+432 ;;3132
+433 ;;21,"58016088425 ")
+434 ;;3133
+435 ;;21,"58016088426 ")
+436 ;;3134
+437 ;;21,"58016088427 ")
+438 ;;3135
+439 ;;21,"58016088428 ")
+440 ;;3136
+441 ;;21,"58016088430 ")
+442 ;;3137
+443 ;;21,"58016088432 ")
+444 ;;3138
+445 ;;21,"58016088435 ")
+446 ;;3139
+447 ;;21,"58016088436 ")
+448 ;;3140
+449 ;;21,"58016088440 ")
+450 ;;3141
+451 ;;21,"58016088442 ")
+452 ;;3142
+453 ;;21,"58016088444 ")
+454 ;;3143
+455 ;;21,"58016088445 ")
+456 ;;3144
+457 ;;21,"58016088448 ")
+458 ;;3145
+459 ;;21,"58016088450 ")
+460 ;;3146
+461 ;;21,"58016088456 ")
+462 ;;3147
+463 ;;21,"58016088460 ")
+464 ;;3148
+465 ;;21,"58016088467 ")
+466 ;;3149
+467 ;;21,"58016088469 ")
+468 ;;3150
+469 ;;21,"58016088470 ")
+470 ;;3151
+471 ;;21,"58016088471 ")
+472 ;;3152
+473 ;;21,"58016088472 ")
+474 ;;3153
+475 ;;21,"58016088473 ")
+476 ;;3154
+477 ;;21,"58016088475 ")
+478 ;;3155
+479 ;;21,"58016088476 ")
+480 ;;3156
+481 ;;21,"58016088479 ")
+482 ;;3157
+483 ;;21,"58016088480 ")
+484 ;;3158
+485 ;;21,"58016088481 ")
+486 ;;3159
+487 ;;21,"58016088482 ")
+488 ;;3160
+489 ;;21,"58016088483 ")
+490 ;;3161
+491 ;;21,"58016088484 ")
+492 ;;3162
+493 ;;21,"58016088487 ")
+494 ;;3163
+495 ;;21,"58016088489 ")
+496 ;;3164
+497 ;;21,"58016088490 ")
+498 ;;3165
+499 ;;21,"58016088491 ")
+500 ;;3166
+501 ;;21,"58016088492 ")
+502 ;;3167
+503 ;;21,"58016088493 ")
+504 ;;3168
+505 ;;21,"58016088496 ")
+506 ;;3169
+507 ;;21,"58016088497 ")
+508 ;;3170
+509 ;;21,"58016088498 ")
+510 ;;3171
+511 ;;21,"58016088499 ")
+512 ;;3172
+513 ;;21,"58016095300 ")
+514 ;;3173
+515 ;;21,"58016095301 ")
+516 ;;3174
+517 ;;21,"58016095302 ")
+518 ;;3175
+519 ;;21,"58016095303 ")
+520 ;;3176
+521 ;;21,"58016095304 ")
+522 ;;3177
+523 ;;21,"58016095305 ")
+524 ;;3178
+525 ;;21,"58016095306 ")
+526 ;;3179
+527 ;;21,"58016095307 ")
+528 ;;3180
+529 ;;21,"58016095308 ")
+530 ;;3181
+531 ;;21,"58016095309 ")
+532 ;;3182
+533 ;;21,"58016095310 ")
+534 ;;3183
+535 ;;21,"58016095312 ")
+536 ;;3184
+537 ;;21,"58016095314 ")
+538 ;;3185
+539 ;;21,"58016095315 ")
+540 ;;3186
+541 ;;21,"58016095316 ")
+542 ;;3187
+543 ;;21,"58016095318 ")
+544 ;;3188
+545 ;;21,"58016095320 ")
+546 ;;3189
+547 ;;21,"58016095321 ")
+548 ;;3190
+549 ;;21,"58016095324 ")
+550 ;;3191
+551 ;;21,"58016095325 ")
+552 ;;3192
+553 ;;21,"58016095326 ")
+554 ;;3193
+555 ;;21,"58016095327 ")
+556 ;;3194
+557 ;;21,"58016095328 ")
+558 ;;3195
+559 ;;21,"58016095330 ")
+560 ;;3196
+561 ;;21,"58016095332 ")
+562 ;;3197
+563 ;;21,"58016095335 ")
+564 ;;3198
+565 ;;21,"58016095336 ")
+566 ;;3199
+567 ;;21,"58016095340 ")
+568 ;;3200
+569 ;;21,"58016095342 ")
+570 ;;3201
+571 ;;21,"58016095344 ")
+572 ;;3202
+573 ;;21,"58016095345 ")
+574 ;;3203
+575 ;;21,"58016095348 ")
+576 ;;3204
+577 ;;21,"58016095350 ")
+578 ;;3205
+579 ;;21,"58016095356 ")
+580 ;;3206
+581 ;;21,"58016095360 ")
+582 ;;3207
+583 ;;21,"58016095367 ")
+584 ;;3208
+585 ;;21,"58016095369 ")
+586 ;;3209
+587 ;;21,"58016095370 ")
+588 ;;3210
+589 ;;21,"58016095371 ")
+590 ;;3211
+591 ;;21,"58016095372 ")
+592 ;;3212
+593 ;;21,"58016095373 ")
+594 ;;3213
+595 ;;21,"58016095375 ")
+596 ;;3214
+597 ;;21,"58016095376 ")
+598 ;;3215
+599 ;;21,"58016095377 ")
+600 ;;3216
+601 ;;21,"58016095379 ")
+602 ;;3217
+603 ;;21,"58016095380 ")
+604 ;;3218
+605 ;;21,"58016095381 ")
+606 ;;3219
+607 ;;21,"58016095382 ")
+608 ;;3220
+609 ;;21,"58016095383 ")
+610 ;;3221
+611 ;;21,"58016095384 ")
+612 ;;3222
+613 ;;21,"58016095387 ")
+614 ;;3223
+615 ;;21,"58016095389 ")
+616 ;;3224
+617 ;;21,"58016095390 ")
+618 ;;3225
+619 ;;21,"58016095391 ")
+620 ;;3226
+621 ;;21,"58016095392 ")
+622 ;;3227
+623 ;;21,"58016095393 ")
+624 ;;3228
+625 ;;21,"58016095396 ")
+626 ;;3229
+627 ;;21,"58016095397 ")
+628 ;;3230
+629 ;;21,"58016095398 ")
+630 ;;3231
+631 ;;21,"58016095399 ")
+632 ;;3232
+633 ;;21,"58016095700 ")
+634 ;;3233
+635 ;;21,"58016095701 ")
+636 ;;3234
+637 ;;21,"58016095702 ")
+638 ;;3235
+639 ;;21,"58016095703 ")
+640 ;;3236
+641 ;;21,"58016095704 ")
+642 ;;3237
+643 ;;21,"58016095705 ")
+644 ;;3238
+645 ;;21,"58016095706 ")
+646 ;;3239
+647 ;;21,"58016095707 ")
+648 ;;3240
+649 ;;21,"58016095708 ")
+650 ;;3241
+651 ;;21,"58016095709 ")
+652 ;;3242
+653 ;;21,"58016095710 ")
+654 ;;3243
+655 ;;21,"58016095712 ")
+656 ;;3244
+657 ;;21,"58016095714 ")
+658 ;;3245
+659 ;;21,"58016095715 ")
+660 ;;3246
+661 ;;21,"58016095716 ")
+662 ;;3247
+663 ;;21,"58016095718 ")
+664 ;;3248
+665 ;;21,"58016095720 ")
+666 ;;3249
+667 ;;21,"58016095721 ")
+668 ;;3250
+669 ;;21,"58016095724 ")
+670 ;;3251
+671 ;;21,"58016095725 ")
+672 ;;3252
+673 ;;21,"58016095726 ")
+674 ;;3253
+675 ;;21,"58016095727 ")
+676 ;;3254
+677 ;;21,"58016095728 ")
+678 ;;3255
+679 ;;21,"58016095730 ")
+680 ;;3256
+681 ;;21,"58016095732 ")
+682 ;;3257
+683 ;;21,"58016095735 ")
+684 ;;3258
+685 ;;21,"58016095736 ")
+686 ;;3259
+687 ;;21,"58016095740 ")
+688 ;;3260
+689 ;;21,"58016095742 ")
+690 ;;3261
+691 ;;21,"58016095744 ")
+692 ;;3262
+693 ;;21,"58016095745 ")
+694 ;;3263
+695 ;;21,"58016095748 ")
+696 ;;3264
+697 ;;21,"58016095750 ")
+698 ;;3265
+699 ;;21,"58016095756 ")
+700 ;;3266
+701 ;;21,"58016095760 ")
+702 ;;3267
+703 ;;21,"58016095767 ")
+704 ;;3268