- BGPM5ADW ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"63304044269 ")
- +2 ;;2698
- +3 ;;21,"63304052201 ")
- +4 ;;2699
- +5 ;;21,"63304052210 ")
- +6 ;;2700
- +7 ;;21,"63304052301 ")
- +8 ;;2701
- +9 ;;21,"63304052310 ")
- +10 ;;2702
- +11 ;;21,"63304052401 ")
- +12 ;;2703
- +13 ;;21,"63304052410 ")
- +14 ;;2704
- +15 ;;21,"63304052501 ")
- +16 ;;2705
- +17 ;;21,"63304052510 ")
- +18 ;;2706
- +19 ;;21,"63304053101 ")
- +20 ;;2707
- +21 ;;21,"63304053111 ")
- +22 ;;2708
- +23 ;;21,"63304053177 ")
- +24 ;;2709
- +25 ;;21,"63304053201 ")
- +26 ;;2710
- +27 ;;21,"63304053210 ")
- +28 ;;2711
- +29 ;;21,"63304053211 ")
- +30 ;;2712
- +31 ;;21,"63304053277 ")
- +32 ;;2713
- +33 ;;21,"63304053301 ")
- +34 ;;2714
- +35 ;;21,"63304053310 ")
- +36 ;;2715
- +37 ;;21,"63304053311 ")
- +38 ;;2716
- +39 ;;21,"63304053377 ")
- +40 ;;2717
- +41 ;;21,"63304053401 ")
- +42 ;;2718
- +43 ;;21,"63304053410 ")
- +44 ;;2719
- +45 ;;21,"63304053411 ")
- +46 ;;2720
- +47 ;;21,"63304053477 ")
- +48 ;;2721
- +49 ;;21,"63304053501 ")
- +50 ;;2722
- +51 ;;21,"63304053510 ")
- +52 ;;2723
- +53 ;;21,"63304053511 ")
- +54 ;;2724
- +55 ;;21,"63304053577 ")
- +56 ;;2725
- +57 ;;21,"63304053601 ")
- +58 ;;2726
- +59 ;;21,"63304053605 ")
- +60 ;;2727
- +61 ;;21,"63304053701 ")
- +62 ;;2728
- +63 ;;21,"63304053705 ")
- +64 ;;2729
- +65 ;;21,"63304053801 ")
- +66 ;;2730
- +67 ;;21,"63304053805 ")
- +68 ;;2731
- +69 ;;21,"63304054890 ")
- +70 ;;2732
- +71 ;;21,"63304054990 ")
- +72 ;;2733
- +73 ;;21,"63304055090 ")
- +74 ;;2734
- +75 ;;21,"63304055190 ")
- +76 ;;2735
- +77 ;;21,"63304059901 ")
- +78 ;;2736
- +79 ;;21,"63304059910 ")
- +80 ;;2737
- +81 ;;21,"63304077501 ")
- +82 ;;2738
- +83 ;;21,"63304077505 ")
- +84 ;;2739
- +85 ;;21,"63304077510 ")
- +86 ;;2740
- +87 ;;21,"63304077530 ")
- +88 ;;2741
- +89 ;;21,"63304077590 ")
- +90 ;;2742
- +91 ;;21,"63304077601 ")
- +92 ;;2743
- +93 ;;21,"63304077605 ")
- +94 ;;2744
- +95 ;;21,"63304077610 ")
- +96 ;;2745
- +97 ;;21,"63304077630 ")
- +98 ;;2746
- +99 ;;21,"63304077690 ")
- +100 ;;2747
- +101 ;;21,"63304077701 ")
- +102 ;;2748
- +103 ;;21,"63304077705 ")
- +104 ;;2749
- +105 ;;21,"63304077710 ")
- +106 ;;2750
- +107 ;;21,"63304077730 ")
- +108 ;;2751
- +109 ;;21,"63304077790 ")
- +110 ;;2752
- +111 ;;21,"63304083401 ")
- +112 ;;2753
- +113 ;;21,"63304083410 ")
- +114 ;;2754
- +115 ;;21,"63304083501 ")
- +116 ;;2755
- +117 ;;21,"63304083510 ")
- +118 ;;2756
- +119 ;;21,"63304083601 ")
- +120 ;;2757
- +121 ;;21,"63304083610 ")
- +122 ;;2758
- +123 ;;21,"63304083701 ")
- +124 ;;2759
- +125 ;;21,"63304083710 ")
- +126 ;;2760
- +127 ;;21,"63629125301 ")
- +128 ;;2761
- +129 ;;21,"63629125302 ")
- +130 ;;2762
- +131 ;;21,"63629125401 ")
- +132 ;;2763
- +133 ;;21,"63629125402 ")
- +134 ;;2764
- +135 ;;21,"63629133801 ")
- +136 ;;2765
- +137 ;;21,"63629133802 ")
- +138 ;;2766
- +139 ;;21,"63629133803 ")
- +140 ;;2767
- +141 ;;21,"63629152201 ")
- +142 ;;2768
- +143 ;;21,"63629152202 ")
- +144 ;;2769
- +145 ;;21,"63629152203 ")
- +146 ;;2770
- +147 ;;21,"63629152204 ")
- +148 ;;2771
- +149 ;;21,"63629152205 ")
- +150 ;;2772
- +151 ;;21,"63629152501 ")
- +152 ;;2773
- +153 ;;21,"63629152502 ")
- +154 ;;2774
- +155 ;;21,"63629152503 ")
- +156 ;;2775
- +157 ;;21,"63629152601 ")
- +158 ;;2776
- +159 ;;21,"63629152602 ")
- +160 ;;2777
- +161 ;;21,"63629152603 ")
- +162 ;;2778
- +163 ;;21,"63629152604 ")
- +164 ;;2779
- +165 ;;21,"63629167901 ")
- +166 ;;2780
- +167 ;;21,"63629167902 ")
- +168 ;;2781
- +169 ;;21,"63629167903 ")
- +170 ;;2782
- +171 ;;21,"63629167904 ")
- +172 ;;2783
- +173 ;;21,"63629170601 ")
- +174 ;;2784
- +175 ;;21,"63629170602 ")
- +176 ;;2785
- +177 ;;21,"63629170603 ")
- +178 ;;2786
- +179 ;;21,"63629176101 ")
- +180 ;;2787
- +181 ;;21,"63629176102 ")
- +182 ;;2788
- +183 ;;21,"63629176103 ")
- +184 ;;2789
- +185 ;;21,"63629254101 ")
- +186 ;;2790
- +187 ;;21,"63629254102 ")
- +188 ;;2791
- +189 ;;21,"63629254103 ")
- +190 ;;2792
- +191 ;;21,"63629254104 ")
- +192 ;;2793
- +193 ;;21,"63629268801 ")
- +194 ;;2794
- +195 ;;21,"63629268802 ")
- +196 ;;2795
- +197 ;;21,"63629268803 ")
- +198 ;;2796
- +199 ;;21,"63629268804 ")
- +200 ;;2797
- +201 ;;21,"63629268805 ")
- +202 ;;2798
- +203 ;;21,"63629289601 ")
- +204 ;;2799
- +205 ;;21,"63629290801 ")
- +206 ;;2800
- +207 ;;21,"63629290802 ")
- +208 ;;2801
- +209 ;;21,"63629290803 ")
- +210 ;;2802
- +211 ;;21,"63629290804 ")
- +212 ;;2803
- +213 ;;21,"63629293501 ")
- +214 ;;2804
- +215 ;;21,"63629293502 ")
- +216 ;;2805
- +217 ;;21,"63629293503 ")
- +218 ;;2806
- +219 ;;21,"63629293504 ")
- +220 ;;2807
- +221 ;;21,"63629321701 ")
- +222 ;;2808
- +223 ;;21,"63629373901 ")
- +224 ;;2809
- +225 ;;21,"63629373902 ")
- +226 ;;2810
- +227 ;;21,"63629373903 ")
- +228 ;;2811
- +229 ;;21,"63629447001 ")
- +230 ;;2812
- +231 ;;21,"63629447002 ")
- +232 ;;2813
- +233 ;;21,"63739004201 ")
- +234 ;;2814
- +235 ;;21,"63739004301 ")
- +236 ;;2815
- +237 ;;21,"63739030210 ")
- +238 ;;2816
- +239 ;;21,"63739032205 ")
- +240 ;;2817
- +241 ;;21,"63739034810 ")
- +242 ;;2818
- +243 ;;21,"63739034910 ")
- +244 ;;2819
- +245 ;;21,"63739035010 ")
- +246 ;;2820
- +247 ;;21,"63874034701 ")
- +248 ;;2821
- +249 ;;21,"63874034702 ")
- +250 ;;2822
- +251 ;;21,"63874034705 ")
- +252 ;;2823
- +253 ;;21,"63874034720 ")
- +254 ;;2824
- +255 ;;21,"63874034730 ")
- +256 ;;2825
- +257 ;;21,"63874034740 ")
- +258 ;;2826
- +259 ;;21,"63874034742 ")
- +260 ;;2827
- +261 ;;21,"63874034745 ")
- +262 ;;2828
- +263 ;;21,"63874034790 ")
- +264 ;;2829
- +265 ;;21,"63874034801 ")
- +266 ;;2830
- +267 ;;21,"63874034810 ")
- +268 ;;2831
- +269 ;;21,"63874034814 ")
- +270 ;;2832
- +271 ;;21,"63874034820 ")
- +272 ;;2833
- +273 ;;21,"63874034830 ")
- +274 ;;2834
- +275 ;;21,"63874034860 ")
- +276 ;;2835
- +277 ;;21,"63874034890 ")
- +278 ;;2836
- +279 ;;21,"63874042301 ")
- +280 ;;2837
- +281 ;;21,"63874042307 ")
- +282 ;;2838
- +283 ;;21,"63874042310 ")
- +284 ;;2839
- +285 ;;21,"63874042314 ")
- +286 ;;2840
- +287 ;;21,"63874042320 ")
- +288 ;;2841
- +289 ;;21,"63874042330 ")
- +290 ;;2842
- +291 ;;21,"63874042360 ")
- +292 ;;2843
- +293 ;;21,"63874051401 ")
- +294 ;;2844
- +295 ;;21,"63874051410 ")
- +296 ;;2845
- +297 ;;21,"63874051414 ")
- +298 ;;2846
- +299 ;;21,"63874051415 ")
- +300 ;;2847
- +301 ;;21,"63874051416 ")
- +302 ;;2848
- +303 ;;21,"63874051420 ")
- +304 ;;2849
- +305 ;;21,"63874051428 ")
- +306 ;;2850
- +307 ;;21,"63874051430 ")
- +308 ;;2851
- +309 ;;21,"63874051460 ")
- +310 ;;2852
- +311 ;;21,"63874051490 ")
- +312 ;;2853
- +313 ;;21,"63874052201 ")
- +314 ;;2854
- +315 ;;21,"63874052215 ")
- +316 ;;2855
- +317 ;;21,"63874052230 ")
- +318 ;;2856
- +319 ;;21,"63874052260 ")
- +320 ;;2857
- +321 ;;21,"63874055801 ")
- +322 ;;2858
- +323 ;;21,"63874055810 ")
- +324 ;;2859
- +325 ;;21,"63874055814 ")
- +326 ;;2860
- +327 ;;21,"63874055816 ")
- +328 ;;2861
- +329 ;;21,"63874055828 ")
- +330 ;;2862
- +331 ;;21,"63874055830 ")
- +332 ;;2863
- +333 ;;21,"63874055860 ")
- +334 ;;2864
- +335 ;;21,"63874055890 ")
- +336 ;;2865
- +337 ;;21,"63874065501 ")
- +338 ;;2866
- +339 ;;21,"63874065510 ")
- +340 ;;2867
- +341 ;;21,"63874065520 ")
- +342 ;;2868
- +343 ;;21,"63874065530 ")
- +344 ;;2869
- +345 ;;21,"63874065560 ")
- +346 ;;2870
- +347 ;;21,"63874098701 ")
- +348 ;;2871
- +349 ;;21,"63874098710 ")
- +350 ;;2872
- +351 ;;21,"63874098714 ")
- +352 ;;2873
- +353 ;;21,"63874098720 ")
- +354 ;;2874
- +355 ;;21,"63874098730 ")
- +356 ;;2875
- +357 ;;21,"63874098760 ")
- +358 ;;2876
- +359 ;;21,"63874111409 ")
- +360 ;;2877
- +361 ;;21,"64579001300 ")
- +362 ;;2878
- +363 ;;21,"64579001301 ")
- +364 ;;2879
- +365 ;;21,"64579001400 ")
- +366 ;;2880
- +367 ;;21,"64579001420 ")
- +368 ;;2881
- +369 ;;21,"64579001500 ")
- +370 ;;2882
- +371 ;;21,"64579001501 ")
- +372 ;;2883
- +373 ;;21,"64679090201 ")
- +374 ;;2884
- +375 ;;21,"64679090202 ")
- +376 ;;2885
- +377 ;;21,"64679090301 ")
- +378 ;;2886
- +379 ;;21,"64679090302 ")
- +380 ;;2887
- +381 ;;21,"64679090401 ")
- +382 ;;2888
- +383 ;;21,"64679090402 ")
- +384 ;;2889
- +385 ;;21,"64679090501 ")
- +386 ;;2890
- +387 ;;21,"64679090502 ")
- +388 ;;2891
- +389 ;;21,"64679092301 ")
- +390 ;;2892
- +391 ;;21,"64679092302 ")
- +392 ;;2893
- +393 ;;21,"64679092303 ")
- +394 ;;2894
- +395 ;;21,"64679092307 ")
- +396 ;;2895
- +397 ;;21,"64679092309 ")
- +398 ;;2896
- +399 ;;21,"64679092310 ")
- +400 ;;2897
- +401 ;;21,"64679092401 ")
- +402 ;;2898
- +403 ;;21,"64679092402 ")
- +404 ;;2899
- +405 ;;21,"64679092403 ")
- +406 ;;2900
- +407 ;;21,"64679092407 ")
- +408 ;;2901
- +409 ;;21,"64679092409 ")
- +410 ;;2902
- +411 ;;21,"64679092410 ")
- +412 ;;2903
- +413 ;;21,"64679092501 ")
- +414 ;;2904
- +415 ;;21,"64679092502 ")
- +416 ;;2905
- +417 ;;21,"64679092503 ")
- +418 ;;2906
- +419 ;;21,"64679092507 ")
- +420 ;;2907
- +421 ;;21,"64679092509 ")
- +422 ;;2908
- +423 ;;21,"64679092510 ")
- +424 ;;2909
- +425 ;;21,"64679092601 ")
- +426 ;;2910
- +427 ;;21,"64679092602 ")
- +428 ;;2911
- +429 ;;21,"64679092603 ")
- +430 ;;2912
- +431 ;;21,"64679092607 ")
- +432 ;;2913
- +433 ;;21,"64679092609 ")
- +434 ;;2914
- +435 ;;21,"64679092610 ")
- +436 ;;2915
- +437 ;;21,"64679092701 ")
- +438 ;;2916
- +439 ;;21,"64679092702 ")
- +440 ;;2917
- +441 ;;21,"64679092705 ")
- +442 ;;2918
- +443 ;;21,"64679092709 ")
- +444 ;;2919
- +445 ;;21,"64679092801 ")
- +446 ;;2920
- +447 ;;21,"64679092802 ")
- +448 ;;2921
- +449 ;;21,"64679092805 ")
- +450 ;;2922
- +451 ;;21,"64679092806 ")
- +452 ;;2923
- +453 ;;21,"64679092810 ")
- +454 ;;2924
- +455 ;;21,"64679092901 ")
- +456 ;;2925
- +457 ;;21,"64679092902 ")
- +458 ;;2926
- +459 ;;21,"64679092905 ")
- +460 ;;2927
- +461 ;;21,"64679092906 ")
- +462 ;;2928
- +463 ;;21,"64679092910 ")
- +464 ;;2929
- +465 ;;21,"64679094101 ")
- +466 ;;2930
- +467 ;;21,"64679094102 ")
- +468 ;;2931
- +469 ;;21,"64679094105 ")
- +470 ;;2932
- +471 ;;21,"64679094106 ")
- +472 ;;2933
- +473 ;;21,"64679094110 ")
- +474 ;;2934
- +475 ;;21,"64679094201 ")
- +476 ;;2935
- +477 ;;21,"64679094202 ")
- +478 ;;2936
- +479 ;;21,"64679094205 ")
- +480 ;;2937
- +481 ;;21,"64679094209 ")
- +482 ;;2938
- +483 ;;21,"64679095301 ")
- +484 ;;2939
- +485 ;;21,"64679095302 ")
- +486 ;;2940
- +487 ;;21,"64679095305 ")
- +488 ;;2941
- +489 ;;21,"64679095309 ")
- +490 ;;2942
- +491 ;;21,"64720016110 ")
- +492 ;;2943
- +493 ;;21,"64720016111 ")
- +494 ;;2944
- +495 ;;21,"64720016210 ")
- +496 ;;2945
- +497 ;;21,"64720016211 ")
- +498 ;;2946
- +499 ;;21,"64725005003 ")
- +500 ;;2947
- +501 ;;21,"64725005203 ")
- +502 ;;2948
- +503 ;;21,"64725005303 ")
- +504 ;;2949
- +505 ;;21,"64725012303 ")
- +506 ;;2950
- +507 ;;21,"64725012503 ")
- +508 ;;2951
- +509 ;;21,"64725012603 ")
- +510 ;;2952
- +511 ;;21,"64725019803 ")
- +512 ;;2953
- +513 ;;21,"64725019903 ")
- +514 ;;2954
- +515 ;;21,"64725039403 ")
- +516 ;;2955
- +517 ;;21,"65243030303 ")
- +518 ;;2956
- +519 ;;21,"65243030306 ")
- +520 ;;2957
- +521 ;;21,"65243030309 ")
- +522 ;;2958
- +523 ;;21,"65243030312 ")
- +524 ;;2959
- +525 ;;21,"65243030318 ")
- +526 ;;2960
- +527 ;;21,"65243031403 ")
- +528 ;;2961
- +529 ;;21,"65243031406 ")
- +530 ;;2962
- +531 ;;21,"65243031409 ")
- +532 ;;2963
- +533 ;;21,"65243031412 ")
- +534 ;;2964
- +535 ;;21,"65243031445 ")
- +536 ;;2965
- +537 ;;21,"65243034103 ")
- +538 ;;2966
- +539 ;;21,"65243034106 ")
- +540 ;;2967
- +541 ;;21,"65243034109 ")
- +542 ;;2968
- +543 ;;21,"65243034112 ")
- +544 ;;2969
- +545 ;;21,"65243034145 ")
- +546 ;;2970
- +547 ;;21,"65427001901 ")
- +548 ;;2971
- +549 ;;21,"65427002001 ")
- +550 ;;2972
- +551 ;;21,"65427002101 ")
- +552 ;;2973
- +553 ;;21,"65427002201 ")
- +554 ;;2974
- +555 ;;21,"65841065501 ")
- +556 ;;2975
- +557 ;;21,"65841065505 ")
- +558 ;;2976
- +559 ;;21,"65841065506 ")
- +560 ;;2977
- +561 ;;21,"65841065516 ")
- +562 ;;2978
- +563 ;;21,"65841065530 ")
- +564 ;;2979
- +565 ;;21,"65841065601 ")
- +566 ;;2980
- +567 ;;21,"65841065605 ")
- +568 ;;2981
- +569 ;;21,"65841065606 ")
- +570 ;;2982
- +571 ;;21,"65841065616 ")
- +572 ;;2983
- +573 ;;21,"65841065630 ")
- +574 ;;2984
- +575 ;;21,"65841065701 ")
- +576 ;;2985
- +577 ;;21,"65841065705 ")
- +578 ;;2986
- +579 ;;21,"65841065706 ")
- +580 ;;2987
- +581 ;;21,"65841065716 ")
- +582 ;;2988
- +583 ;;21,"65841065730 ")
- +584 ;;2989
- +585 ;;21,"65841065801 ")
- +586 ;;2990
- +587 ;;21,"65841065805 ")
- +588 ;;2991
- +589 ;;21,"65841065806 ")
- +590 ;;2992
- +591 ;;21,"65841065816 ")
- +592 ;;2993
- +593 ;;21,"65841065830 ")
- +594 ;;2994
- +595 ;;21,"65862003700 ")
- +596 ;;2995
- +597 ;;21,"65862003701 ")
- +598 ;;2996
- +599 ;;21,"65862003705 ")
- +600 ;;2997
- +601 ;;21,"65862003713 ")
- +602 ;;2998
- +603 ;;21,"65862003730 ")
- +604 ;;2999
- +605 ;;21,"65862003800 ")
- +606 ;;3000
- +607 ;;21,"65862003801 ")
- +608 ;;3001
- +609 ;;21,"65862003805 ")
- +610 ;;3002
- +611 ;;21,"65862003813 ")
- +612 ;;3003
- +613 ;;21,"65862003830 ")
- +614 ;;3004
- +615 ;;21,"65862003900 ")
- +616 ;;3005
- +617 ;;21,"65862003901 ")
- +618 ;;3006
- +619 ;;21,"65862003905 ")
- +620 ;;3007
- +621 ;;21,"65862003913 ")
- +622 ;;3008
- +623 ;;21,"65862003930 ")
- +624 ;;3009
- +625 ;;21,"65862004000 ")
- +626 ;;3010
- +627 ;;21,"65862004001 ")
- +628 ;;3011
- +629 ;;21,"65862004005 ")
- +630 ;;3012
- +631 ;;21,"65862004030 ")
- +632 ;;3013
- +633 ;;21,"65862004065 ")
- +634 ;;3014
- +635 ;;21,"65862004100 ")
- +636 ;;3015
- +637 ;;21,"65862004101 ")
- +638 ;;3016
- +639 ;;21,"65862004105 ")
- +640 ;;3017
- +641 ;;21,"65862004130 ")
- +642 ;;3018
- +643 ;;21,"65862004159 ")
- +644 ;;3019
- +645 ;;21,"65862004200 ")
- +646 ;;3020
- +647 ;;21,"65862004201 ")
- +648 ;;3021
- +649 ;;21,"65862004205 ")
- +650 ;;3022
- +651 ;;21,"65862004230 ")
- +652 ;;3023
- +653 ;;21,"65862004249 ")
- +654 ;;3024
- +655 ;;21,"65862004300 ")
- +656 ;;3025
- +657 ;;21,"65862004301 ")
- +658 ;;3026
- +659 ;;21,"65862004305 ")
- +660 ;;3027
- +661 ;;21,"65862004319 ")
- +662 ;;3028
- +663 ;;21,"65862004330 ")
- +664 ;;3029
- +665 ;;21,"65862004399 ")
- +666 ;;3030
- +667 ;;21,"65862004400 ")
- +668 ;;3031
- +669 ;;21,"65862004401 ")
- +670 ;;3032
- +671 ;;21,"65862004405 ")
- +672 ;;3033
- +673 ;;21,"65862004430 ")
- +674 ;;3034
- +675 ;;21,"65862004459 ")
- +676 ;;3035
- +677 ;;21,"65862004499 ")
- +678 ;;3036
- +679 ;;21,"65862004500 ")
- +680 ;;3037
- +681 ;;21,"65862004501 ")
- +682 ;;3038
- +683 ;;21,"65862004505 ")
- +684 ;;3039
- +685 ;;21,"65862004530 ")
- +686 ;;3040
- +687 ;;21,"65862004559 ")
- +688 ;;3041
- +689 ;;21,"65862004599 ")
- +690 ;;3042
- +691 ;;21,"65862016171 ")
- +692 ;;3043
- +693 ;;21,"65862016190 ")
- +694 ;;3044
- +695 ;;21,"65862016230 ")
- +696 ;;3045
- +697 ;;21,"65862016259 ")
- +698 ;;3046
- +699 ;;21,"65862016290 ")
- +700 ;;3047
- +701 ;;21,"65862016359 ")
- +702 ;;3048
- +703 ;;21,"65862016390 ")
- +704 ;;3049