Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGPM5AIW

BGPM5AIW.m

Go to the documentation of this file.
BGPM5AIW ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+1
 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"63629178503 ")
 ;;2735
 ;;21,"63629184201 ")
 ;;2736
 ;;21,"63629257001 ")
 ;;2737
 ;;21,"63629257002 ")
 ;;2738
 ;;21,"63629257003 ")
 ;;2739
 ;;21,"63629257004 ")
 ;;2740
 ;;21,"63629262601 ")
 ;;2741
 ;;21,"63629262602 ")
 ;;2742
 ;;21,"63629262603 ")
 ;;2743
 ;;21,"63629262604 ")
 ;;2744
 ;;21,"63629290901 ")
 ;;2745
 ;;21,"63629290902 ")
 ;;2746
 ;;21,"63629290903 ")
 ;;2747
 ;;21,"63629290904 ")
 ;;2748
 ;;21,"63629358701 ")
 ;;2749
 ;;21,"63629358702 ")
 ;;2750
 ;;21,"63629373801 ")
 ;;2751
 ;;21,"63629407201 ")
 ;;2752
 ;;21,"63629407501 ")
 ;;2753
 ;;21,"63739002701 ")
 ;;2754
 ;;21,"63739002710 ")
 ;;2755
 ;;21,"63739002810 ")
 ;;2756
 ;;21,"63739036610 ")
 ;;2757
 ;;21,"63739040510 ")
 ;;2758
 ;;21,"63739042810 ")
 ;;2759
 ;;21,"63775071700 ")
 ;;2760
 ;;21,"63775071701 ")
 ;;2761
 ;;21,"63775071702 ")
 ;;2762
 ;;21,"63775071703 ")
 ;;2763
 ;;21,"63874033201 ")
 ;;2764
 ;;21,"63874033202 ")
 ;;2765
 ;;21,"63874033207 ")
 ;;2766
 ;;21,"63874033210 ")
 ;;2767
 ;;21,"63874033214 ")
 ;;2768
 ;;21,"63874033215 ")
 ;;2769
 ;;21,"63874033220 ")
 ;;2770
 ;;21,"63874033230 ")
 ;;2771
 ;;21,"63874033260 ")
 ;;2772
 ;;21,"63874033290 ")
 ;;2773
 ;;21,"63874036801 ")
 ;;2774
 ;;21,"63874036802 ")
 ;;2775
 ;;21,"63874036815 ")
 ;;2776
 ;;21,"63874036820 ")
 ;;2777
 ;;21,"63874036828 ")
 ;;2778
 ;;21,"63874036830 ")
 ;;2779
 ;;21,"63874036860 ")
 ;;2780
 ;;21,"63874038801 ")
 ;;2781
 ;;21,"63874038807 ")
 ;;2782
 ;;21,"63874038810 ")
 ;;2783
 ;;21,"63874038812 ")
 ;;2784
 ;;21,"63874038815 ")
 ;;2785
 ;;21,"63874038820 ")
 ;;2786
 ;;21,"63874038830 ")
 ;;2787
 ;;21,"63874040601 ")
 ;;2788
 ;;21,"63874040610 ")
 ;;2789
 ;;21,"63874040614 ")
 ;;2790
 ;;21,"63874040615 ")
 ;;2791
 ;;21,"63874040620 ")
 ;;2792
 ;;21,"63874040628 ")
 ;;2793
 ;;21,"63874040630 ")
 ;;2794
 ;;21,"63874040660 ")
 ;;2795
 ;;21,"63874040701 ")
 ;;2796
 ;;21,"63874040710 ")
 ;;2797
 ;;21,"63874040715 ")
 ;;2798
 ;;21,"63874040720 ")
 ;;2799
 ;;21,"63874040730 ")
 ;;2800
 ;;21,"63874040760 ")
 ;;2801
 ;;21,"63874040790 ")
 ;;2802
 ;;21,"63874045401 ")
 ;;2803
 ;;21,"63874045402 ")
 ;;2804
 ;;21,"63874045404 ")
 ;;2805
 ;;21,"63874045415 ")
 ;;2806
 ;;21,"63874045420 ")
 ;;2807
 ;;21,"63874045430 ")
 ;;2808
 ;;21,"63874045460 ")
 ;;2809
 ;;21,"63874046801 ")
 ;;2810
 ;;21,"63874046810 ")
 ;;2811
 ;;21,"63874046814 ")
 ;;2812
 ;;21,"63874046815 ")
 ;;2813
 ;;21,"63874046820 ")
 ;;2814
 ;;21,"63874046830 ")
 ;;2815
 ;;21,"63874046860 ")
 ;;2816
 ;;21,"63874046890 ")
 ;;2817
 ;;21,"63874048601 ")
 ;;2818
 ;;21,"63874048602 ")
 ;;2819
 ;;21,"63874048615 ")
 ;;2820
 ;;21,"63874048630 ")
 ;;2821
 ;;21,"63874048640 ")
 ;;2822
 ;;21,"63874048660 ")
 ;;2823
 ;;21,"63874067601 ")
 ;;2824
 ;;21,"63874067612 ")
 ;;2825
 ;;21,"63874067615 ")
 ;;2826
 ;;21,"63874067620 ")
 ;;2827
 ;;21,"64376050201 ")
 ;;2828
 ;;21,"64376050210 ")
 ;;2829
 ;;21,"64376050301 ")
 ;;2830
 ;;21,"64376050310 ")
 ;;2831
 ;;21,"64579038600 ")
 ;;2832
 ;;21,"64579038601 ")
 ;;2833
 ;;21,"64725003203 ")
 ;;2834
 ;;21,"64725021303 ")
 ;;2835
 ;;21,"64725021403 ")
 ;;2836
 ;;21,"64725027403 ")
 ;;2837
 ;;21,"64725027503 ")
 ;;2838
 ;;21,"64725027603 ")
 ;;2839
 ;;21,"64725039103 ")
 ;;2840
 ;;21,"65084028410 ")
 ;;2841
 ;;21,"65084035218 ")
 ;;2842
 ;;21,"65084035318 ")
 ;;2843
 ;;21,"65243001403 ")
 ;;2844
 ;;21,"65243001406 ")
 ;;2845
 ;;21,"65243001409 ")
 ;;2846
 ;;21,"65243001418 ")
 ;;2847
 ;;21,"65243001445 ")
 ;;2848
 ;;21,"65243004803 ")
 ;;2849
 ;;21,"65243004806 ")
 ;;2850
 ;;21,"65243004809 ")
 ;;2851
 ;;21,"65243004812 ")
 ;;2852
 ;;21,"65243004818 ")
 ;;2853
 ;;21,"65243004827 ")
 ;;2854
 ;;21,"65243004845 ")
 ;;2855
 ;;21,"65243009103 ")
 ;;2856
 ;;21,"65243009106 ")
 ;;2857
 ;;21,"65243009109 ")
 ;;2858
 ;;21,"65243009112 ")
 ;;2859
 ;;21,"65243009118 ")
 ;;2860
 ;;21,"65243009127 ")
 ;;2861
 ;;21,"65243009136 ")
 ;;2862
 ;;21,"65243011003 ")
 ;;2863
 ;;21,"65243011006 ")
 ;;2864
 ;;21,"65243011009 ")
 ;;2865
 ;;21,"65243011018 ")
 ;;2866
 ;;21,"65243011045 ")
 ;;2867
 ;;21,"65243023203 ")
 ;;2868
 ;;21,"65243023206 ")
 ;;2869
 ;;21,"65243023209 ")
 ;;2870
 ;;21,"65243023212 ")
 ;;2871
 ;;21,"65243023218 ")
 ;;2872
 ;;21,"65243026503 ")
 ;;2873
 ;;21,"65243026509 ")
 ;;2874
 ;;21,"65243026512 ")
 ;;2875
 ;;21,"65243026518 ")
 ;;2876
 ;;21,"65243026545 ")
 ;;2877
 ;;21,"65243032903 ")
 ;;2878
 ;;21,"65243032906 ")
 ;;2879
 ;;21,"65243032909 ")
 ;;2880
 ;;21,"65243032912 ")
 ;;2881
 ;;21,"65243032918 ")
 ;;2882
 ;;21,"65243034703 ")
 ;;2883
 ;;21,"65243034706 ")
 ;;2884
 ;;21,"65243034709 ")
 ;;2885
 ;;21,"65243034712 ")
 ;;2886
 ;;21,"65243034718 ")
 ;;2887
 ;;21,"65243037903 ")
 ;;2888
 ;;21,"65243037906 ")
 ;;2889
 ;;21,"65243037909 ")
 ;;2890
 ;;21,"65243037912 ")
 ;;2891
 ;;21,"65243037918 ")
 ;;2892
 ;;21,"65243038203 ")
 ;;2893
 ;;21,"65243038206 ")
 ;;2894
 ;;21,"65243038209 ")
 ;;2895
 ;;21,"65243038212 ")
 ;;2896
 ;;21,"65243038218 ")
 ;;2897
 ;;21,"65483035502 ")
 ;;2898
 ;;21,"65483035504 ")
 ;;2899
 ;;21,"65483039110 ")
 ;;2900
 ;;21,"65483039111 ")
 ;;2901
 ;;21,"65483039150 ")
 ;;2902
 ;;21,"65483039210 ")
 ;;2903
 ;;21,"65483039222 ")
 ;;2904
 ;;21,"65483039250 ")
 ;;2905
 ;;21,"65483039310 ")
 ;;2906
 ;;21,"65483039333 ")
 ;;2907
 ;;21,"65483039350 ")
 ;;2908
 ;;21,"65726025110 ")
 ;;2909
 ;;21,"65841002201 ")
 ;;2910
 ;;21,"65841002210 ")
 ;;2911
 ;;21,"65841002216 ")
 ;;2912
 ;;21,"65841002224 ")
 ;;2913
 ;;21,"65841002240 ")
 ;;2914
 ;;21,"65841002301 ")
 ;;2915
 ;;21,"65841002302 ")
 ;;2916
 ;;21,"65841002310 ")
 ;;2917
 ;;21,"65841002316 ")
 ;;2918
 ;;21,"65841002324 ")
 ;;2919
 ;;21,"65841002340 ")
 ;;2920
 ;;21,"65841002401 ")
 ;;2921
 ;;21,"65841002410 ")
 ;;2922
 ;;21,"65841002416 ")
 ;;2923
 ;;21,"65841002440 ")
 ;;2924
 ;;21,"65862006201 ")
 ;;2925
 ;;21,"65862006299 ")
 ;;2926
 ;;21,"65862006301 ")
 ;;2927
 ;;21,"65862006399 ")
 ;;2928
 ;;21,"65862006401 ")
 ;;2929
 ;;21,"65862006499 ")
 ;;2930
 ;;21,"65862008601 ")
 ;;2931
 ;;21,"65862008630 ")
 ;;2932
 ;;21,"65862008681 ")
 ;;2933
 ;;21,"65862008701 ")
 ;;2934
 ;;21,"65862008730 ")
 ;;2935
 ;;21,"65862008781 ")
 ;;2936
 ;;21,"65862016801 ")
 ;;2937
 ;;21,"65862016876 ")
 ;;2938
 ;;21,"65862016899 ")
 ;;2939
 ;;21,"65862016901 ")
 ;;2940
 ;;21,"65862016981 ")
 ;;2941
 ;;21,"65862016999 ")
 ;;2942
 ;;21,"65862017001 ")
 ;;2943
 ;;21,"65862017061 ")
 ;;2944
 ;;21,"65862017099 ")
 ;;2945
 ;;21,"66105060610 ")
 ;;2946
 ;;21,"66105060710 ")
 ;;2947
 ;;21,"66105078123 ")
 ;;2948
 ;;21,"66105090402 ")
 ;;2949
 ;;21,"66105090403 ")
 ;;2950
 ;;21,"66105090406 ")
 ;;2951
 ;;21,"66105090409 ")
 ;;2952
 ;;21,"66105090410 ")
 ;;2953
 ;;21,"66105099310 ")
 ;;2954
 ;;21,"66105099403 ")
 ;;2955
 ;;21,"66105099406 ")
 ;;2956
 ;;21,"66105099410 ")
 ;;2957
 ;;21,"66105099411 ")
 ;;2958
 ;;21,"66105099415 ")
 ;;2959
 ;;21,"66105099510 ")
 ;;2960
 ;;21,"66105099603 ")
 ;;2961
 ;;21,"66105099606 ")
 ;;2962
 ;;21,"66105099610 ")
 ;;2963
 ;;21,"66105099611 ")
 ;;2964
 ;;21,"66105099615 ")
 ;;2965
 ;;21,"66105099710 ")
 ;;2966
 ;;21,"66112012101 ")
 ;;2967
 ;;21,"66112012201 ")
 ;;2968
 ;;21,"66112012301 ")
 ;;2969
 ;;21,"66112012401 ")
 ;;2970
 ;;21,"66112012501 ")
 ;;2971
 ;;21,"66112013103 ")
 ;;2972
 ;;21,"66112013203 ")
 ;;2973
 ;;21,"66112013303 ")
 ;;2974
 ;;21,"66116023930 ")
 ;;2975
 ;;21,"66116032860 ")
 ;;2976
 ;;21,"66116033230 ")
 ;;2977
 ;;21,"66116033630 ")
 ;;2978
 ;;21,"66116035130 ")
 ;;2979
 ;;21,"66116042130 ")
 ;;2980
 ;;21,"66116071630 ")
 ;;2981
 ;;21,"66116078430 ")
 ;;2982
 ;;21,"66116080960 ")
 ;;2983
 ;;21,"66116081060 ")
 ;;2984
 ;;21,"66116082330 ")
 ;;2985
 ;;21,"66116083960 ")
 ;;2986
 ;;21,"66116084160 ")
 ;;2987
 ;;21,"66116084630 ")
 ;;2988
 ;;21,"66116087330 ")
 ;;2989
 ;;21,"66116087730 ")
 ;;2990
 ;;21,"66267002930 ")
 ;;2991
 ;;21,"66267002960 ")
 ;;2992
 ;;21,"66267002990 ")
 ;;2993
 ;;21,"66267002991 ")
 ;;2994
 ;;21,"66267002992 ")
 ;;2995
 ;;21,"66267003020 ")
 ;;2996
 ;;21,"66267003030 ")
 ;;2997
 ;;21,"66267003040 ")
 ;;2998
 ;;21,"66267003060 ")
 ;;2999
 ;;21,"66267003090 ")
 ;;3000
 ;;21,"66267003115 ")
 ;;3001
 ;;21,"66267003120 ")
 ;;3002
 ;;21,"66267003130 ")
 ;;3003
 ;;21,"66267003140 ")
 ;;3004
 ;;21,"66267003160 ")
 ;;3005
 ;;21,"66267003190 ")
 ;;3006
 ;;21,"66267018020 ")
 ;;3007
 ;;21,"66267018030 ")
 ;;3008
 ;;21,"66267018060 ")
 ;;3009
 ;;21,"66267018090 ")
 ;;3010
 ;;21,"66267018130 ")
 ;;3011
 ;;21,"66267018140 ")
 ;;3012
 ;;21,"66267018145 ")
 ;;3013
 ;;21,"66267018160 ")
 ;;3014
 ;;21,"66267018190 ")
 ;;3015
 ;;21,"66267018191 ")
 ;;3016
 ;;21,"66267018230 ")
 ;;3017
 ;;21,"66267018260 ")
 ;;3018
 ;;21,"66267024020 ")
 ;;3019
 ;;21,"66267024030 ")
 ;;3020
 ;;21,"66267024060 ")
 ;;3021
 ;;21,"66267024090 ")
 ;;3022
 ;;21,"66267024092 ")
 ;;3023
 ;;21,"66267026130 ")
 ;;3024
 ;;21,"66267026190 ")
 ;;3025
 ;;21,"66267032415 ")
 ;;3026
 ;;21,"66267032420 ")
 ;;3027
 ;;21,"66267032430 ")
 ;;3028
 ;;21,"66267032440 ")
 ;;3029
 ;;21,"66267032460 ")
 ;;3030
 ;;21,"66267034610 ")
 ;;3031
 ;;21,"66267034620 ")
 ;;3032
 ;;21,"66267034630 ")
 ;;3033
 ;;21,"66267034640 ")
 ;;3034
 ;;21,"66267034660 ")
 ;;3035
 ;;21,"66267034690 ")
 ;;3036
 ;;21,"66267034691 ")
 ;;3037
 ;;21,"66267034692 ")
 ;;3038
 ;;21,"66267034693 ")
 ;;3039
 ;;21,"66267035330 ")
 ;;3040
 ;;21,"66267045910 ")
 ;;3041
 ;;21,"66267045920 ")
 ;;3042
 ;;21,"66267045930 ")
 ;;3043
 ;;21,"66267045940 ")
 ;;3044
 ;;21,"66267045960 ")
 ;;3045
 ;;21,"66267046510 ")
 ;;3046
 ;;21,"66267046520 ")
 ;;3047
 ;;21,"66267046530 ")
 ;;3048
 ;;21,"66267046540 ")
 ;;3049
 ;;21,"66267046560 ")
 ;;3050
 ;;21,"66267047310 ")
 ;;3051
 ;;21,"66267047320 ")
 ;;3052
 ;;21,"66267047330 ")
 ;;3053
 ;;21,"66267047340 ")
 ;;3054
 ;;21,"66267047360 ")
 ;;3055
 ;;21,"66267056610 ")
 ;;3056
 ;;21,"66267056620 ")
 ;;3057
 ;;21,"66267056630 ")
 ;;3058
 ;;21,"66267056640 ")
 ;;3059
 ;;21,"66267056660 ")
 ;;3060
 ;;21,"66267056710 ")
 ;;3061
 ;;21,"66267056720 ")
 ;;3062
 ;;21,"66267056730 ")
 ;;3063
 ;;21,"66267056740 ")
 ;;3064
 ;;21,"66267056760 ")
 ;;3065
 ;;21,"66267056910 ")
 ;;3066
 ;;21,"66267056920 ")
 ;;3067
 ;;21,"66267056930 ")
 ;;3068
 ;;21,"66267056940 ")
 ;;3069
 ;;21,"66267056960 ")
 ;;3070
 ;;21,"66267058010 ")
 ;;3071
 ;;21,"66267058020 ")
 ;;3072
 ;;21,"66267058030 ")
 ;;3073
 ;;21,"66267058040 ")
 ;;3074
 ;;21,"66267058060 ")
 ;;3075
 ;;21,"66267082206 ")
 ;;3076
 ;;21,"66336012560 ")
 ;;3077
 ;;21,"66336012660 ")
 ;;3078
 ;;21,"66336051430 ")
 ;;3079
 ;;21,"66336051460 ")
 ;;3080
 ;;21,"66336052330 ")
 ;;3081
 ;;21,"66336052360 ")
 ;;3082
 ;;21,"66336058700 ")
 ;;3083
 ;;21,"66336058730 ")
 ;;3084
 ;;21,"66336058760 ")
 ;;3085
 ;;21,"66336058790 ")
 ;;3086