ATXXA8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
;
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,"S45.211A ")
;;2716
;;21,"S45.212A ")
;;2717
;;21,"S45.219A ")
;;2718
;;21,"S45.291A ")
;;2719
;;21,"S45.292A ")
;;2720
;;21,"S45.299A ")
;;2721
;;21,"S45.301A ")
;;2722
;;21,"S45.302A ")
;;2723
;;21,"S45.309A ")
;;2724
;;21,"S45.311A ")
;;2725
;;21,"S45.312A ")
;;2726
;;21,"S45.319A ")
;;2727
;;21,"S45.391A ")
;;2728
;;21,"S45.392A ")
;;2729
;;21,"S45.399A ")
;;2730
;;21,"S45.801A ")
;;2731
;;21,"S45.802A ")
;;2732
;;21,"S45.809A ")
;;2733
;;21,"S45.811A ")
;;2734
;;21,"S45.812A ")
;;2735
;;21,"S45.819A ")
;;2736
;;21,"S45.891A ")
;;2737
;;21,"S45.892A ")
;;2738
;;21,"S45.899A ")
;;2739
;;21,"S45.901A ")
;;2740
;;21,"S45.902A ")
;;2741
;;21,"S45.909A ")
;;2742
;;21,"S45.911A ")
;;2743
;;21,"S45.912A ")
;;2744
;;21,"S45.919A ")
;;2745
;;21,"S45.991A ")
;;2746
;;21,"S45.992A ")
;;2747
;;21,"S45.999A ")
;;2748
;;21,"S46.001A ")
;;2749
;;21,"S46.002A ")
;;2750
;;21,"S46.009A ")
;;2751
;;21,"S46.011A ")
;;2752
;;21,"S46.012A ")
;;2753
;;21,"S46.019A ")
;;2754
;;21,"S46.021A ")
;;2755
;;21,"S46.022A ")
;;2756
;;21,"S46.029A ")
;;2757
;;21,"S46.091A ")
;;2758
;;21,"S46.092A ")
;;2759
;;21,"S46.099A ")
;;2760
;;21,"S46.101A ")
;;2761
;;21,"S46.102A ")
;;2762
;;21,"S46.109A ")
;;2763
;;21,"S46.111A ")
;;2764
;;21,"S46.112A ")
;;2765
;;21,"S46.119A ")
;;2766
;;21,"S46.121A ")
;;2767
;;21,"S46.122A ")
;;2768
;;21,"S46.129A ")
;;2769
;;21,"S46.191A ")
;;2770
;;21,"S46.192A ")
;;2771
;;21,"S46.199A ")
;;2772
;;21,"S46.201A ")
;;2773
;;21,"S46.202A ")
;;2774
;;21,"S46.209A ")
;;2775
;;21,"S46.211A ")
;;2776
;;21,"S46.212A ")
;;2777
;;21,"S46.219A ")
;;2778
;;21,"S46.221A ")
;;2779
;;21,"S46.222A ")
;;2780
;;21,"S46.229A ")
;;2781
;;21,"S46.291A ")
;;2782
;;21,"S46.292A ")
;;2783
;;21,"S46.299A ")
;;2784
;;21,"S46.301A ")
;;2785
;;21,"S46.302A ")
;;2786
;;21,"S46.309A ")
;;2787
;;21,"S46.311A ")
;;2788
;;21,"S46.312A ")
;;2789
;;21,"S46.319A ")
;;2790
;;21,"S46.321A ")
;;2791
;;21,"S46.322A ")
;;2792
;;21,"S46.329A ")
;;2793
;;21,"S46.391A ")
;;2794
;;21,"S46.392A ")
;;2795
;;21,"S46.399A ")
;;2796
;;21,"S46.801A ")
;;2797
;;21,"S46.802A ")
;;2798
;;21,"S46.809A ")
;;2799
;;21,"S46.811A ")
;;2800
;;21,"S46.812A ")
;;2801
;;21,"S46.819A ")
;;2802
;;21,"S46.821A ")
;;2803
;;21,"S46.822A ")
;;2804
;;21,"S46.829A ")
;;2805
;;21,"S46.891A ")
;;2806
;;21,"S46.892A ")
;;2807
;;21,"S46.899A ")
;;2808
;;21,"S46.901A ")
;;2809
;;21,"S46.902A ")
;;2810
;;21,"S46.909A ")
;;2811
;;21,"S46.911A ")
;;2812
;;21,"S46.912A ")
;;2813
;;21,"S46.919A ")
;;2814
;;21,"S46.921A ")
;;2815
;;21,"S46.922A ")
;;2816
;;21,"S46.929A ")
;;2817
;;21,"S46.991A ")
;;2818
;;21,"S46.992A ")
;;2819
;;21,"S46.999A ")
;;2820
;;21,"S47.1XXA ")
;;2821
;;21,"S47.2XXA ")
;;2822
;;21,"S47.9XXA ")
;;2823
;;21,"S48.011A ")
;;2824
;;21,"S48.012A ")
;;2825
;;21,"S48.019A ")
;;2826
;;21,"S48.021A ")
;;2827
;;21,"S48.022A ")
;;2828
;;21,"S48.029A ")
;;2829
;;21,"S48.111A ")
;;2830
;;21,"S48.112A ")
;;2831
;;21,"S48.119A ")
;;2832
;;21,"S48.121A ")
;;2833
;;21,"S48.122A ")
;;2834
;;21,"S48.129A ")
;;2835
;;21,"S48.911A ")
;;2836
;;21,"S48.912A ")
;;2837
;;21,"S48.919A ")
;;2838
;;21,"S48.921A ")
;;2839
;;21,"S48.922A ")
;;2840
;;21,"S48.929A ")
;;2841
;;21,"S49.001A ")
;;2842
;;21,"S49.002A ")
;;2843
;;21,"S49.009A ")
;;2844
;;21,"S49.011A ")
;;2845
;;21,"S49.012A ")
;;2846
;;21,"S49.019A ")
;;2847
;;21,"S49.021A ")
;;2848
;;21,"S49.022A ")
;;2849
;;21,"S49.029A ")
;;2850
;;21,"S49.031A ")
;;2851
;;21,"S49.032A ")
;;2852
;;21,"S49.039A ")
;;2853
;;21,"S49.041A ")
;;2854
;;21,"S49.042A ")
;;2855
;;21,"S49.049A ")
;;2856
;;21,"S49.091A ")
;;2857
;;21,"S49.092A ")
;;2858
;;21,"S49.099A ")
;;2859
;;21,"S49.101A ")
;;2860
;;21,"S49.102A ")
;;2861
;;21,"S49.109A ")
;;2862
;;21,"S49.111A ")
;;2863
;;21,"S49.112A ")
;;2864
;;21,"S49.119A ")
;;2865
;;21,"S49.121A ")
;;2866
;;21,"S49.122A ")
;;2867
;;21,"S49.129A ")
;;2868
;;21,"S49.131A ")
;;2869
;;21,"S49.132A ")
;;2870
;;21,"S49.139A ")
;;2871
;;21,"S49.141A ")
;;2872
;;21,"S49.142A ")
;;2873
;;21,"S49.149A ")
;;2874
;;21,"S49.191A ")
;;2875
;;21,"S49.192A ")
;;2876
;;21,"S49.199A ")
;;2877
;;21,"S49.80XA ")
;;2878
;;21,"S49.81XA ")
;;2879
;;21,"S49.82XA ")
;;2880
;;21,"S49.90XA ")
;;2881
;;21,"S49.91XA ")
;;2882
;;21,"S49.92XA ")
;;2883
;;21,"S50.00XA ")
;;2884
;;21,"S50.01XA ")
;;2885
;;21,"S50.02XA ")
;;2886
;;21,"S50.10XA ")
;;2887
;;21,"S50.11XA ")
;;2888
;;21,"S50.12XA ")
;;2889
;;21,"S50.311A ")
;;2890
;;21,"S50.312A ")
;;2891
;;21,"S50.319A ")
;;2892
;;21,"S50.341A ")
;;2893
;;21,"S50.342A ")
;;2894
;;21,"S50.349A ")
;;2895
;;21,"S50.351A ")
;;2896
;;21,"S50.352A ")
;;2897
;;21,"S50.359A ")
;;2898
;;21,"S50.371A ")
;;2899
;;21,"S50.372A ")
;;2900
;;21,"S50.379A ")
;;2901
;;21,"S50.811A ")
;;2902
;;21,"S50.812A ")
;;2903
;;21,"S50.819A ")
;;2904
;;21,"S50.841A ")
;;2905
;;21,"S50.842A ")
;;2906
;;21,"S50.849A ")
;;2907
;;21,"S50.851A ")
;;2908
;;21,"S50.852A ")
;;2909
;;21,"S50.859A ")
;;2910
;;21,"S50.871A ")
;;2911
;;21,"S50.872A ")
;;2912
;;21,"S50.879A ")
;;2913
;;21,"S50.901A ")
;;2914
;;21,"S50.902A ")
;;2915
;;21,"S50.909A ")
;;2916
;;21,"S50.911A ")
;;2917
;;21,"S50.912A ")
;;2918
;;21,"S50.919A ")
;;2919
;;21,"S51.001A ")
;;2920
;;21,"S51.002A ")
;;2921
;;21,"S51.009A ")
;;2922
;;21,"S51.011A ")
;;2923
;;21,"S51.012A ")
;;2924
;;21,"S51.019A ")
;;2925
;;21,"S51.021A ")
;;2926
;;21,"S51.022A ")
;;2927
;;21,"S51.029A ")
;;2928
;;21,"S51.031A ")
;;2929
;;21,"S51.032A ")
;;2930
;;21,"S51.039A ")
;;2931
;;21,"S51.041A ")
;;2932
;;21,"S51.042A ")
;;2933
;;21,"S51.049A ")
;;2934
;;21,"S51.051A ")
;;2935
;;21,"S51.052A ")
;;2936
;;21,"S51.059A ")
;;2937
;;21,"S51.801A ")
;;2938
;;21,"S51.802A ")
;;2939
;;21,"S51.809A ")
;;2940
;;21,"S51.811A ")
;;2941
;;21,"S51.812A ")
;;2942
;;21,"S51.819A ")
;;2943
;;21,"S51.821A ")
;;2944
;;21,"S51.822A ")
;;2945
;;21,"S51.829A ")
;;2946
;;21,"S51.831A ")
;;2947
;;21,"S51.832A ")
;;2948
;;21,"S51.839A ")
;;2949
;;21,"S51.841A ")
;;2950
;;21,"S51.842A ")
;;2951
;;21,"S51.849A ")
;;2952
;;21,"S51.851A ")
;;2953
;;21,"S51.852A ")
;;2954
;;21,"S51.859A ")
;;2955
;;21,"S52.001A ")
;;2956
;;21,"S52.001B ")
;;2957
;;21,"S52.001C ")
;;2958
;;21,"S52.002A ")
;;2959
;;21,"S52.002B ")
;;2960
;;21,"S52.002C ")
;;2961
;;21,"S52.009A ")
;;2962
;;21,"S52.009B ")
;;2963
;;21,"S52.009C ")
;;2964
;;21,"S52.011A ")
;;2965
;;21,"S52.012A ")
;;2966
;;21,"S52.019A ")
;;2967
;;21,"S52.021A ")
;;2968
;;21,"S52.021B ")
;;2969
;;21,"S52.021C ")
;;2970
;;21,"S52.022A ")
;;2971
;;21,"S52.022B ")
;;2972
;;21,"S52.022C ")
;;2973
;;21,"S52.023A ")
;;2974
;;21,"S52.023B ")
;;2975
;;21,"S52.023C ")
;;2976
;;21,"S52.024A ")
;;2977
;;21,"S52.024B ")
;;2978
;;21,"S52.024C ")
;;2979
;;21,"S52.025A ")
;;2980
;;21,"S52.025B ")
;;2981
;;21,"S52.025C ")
;;2982
;;21,"S52.026A ")
;;2983
;;21,"S52.026B ")
;;2984
;;21,"S52.026C ")
;;2985
;;21,"S52.031A ")
;;2986
;;21,"S52.031B ")
;;2987
;;21,"S52.031C ")
;;2988
;;21,"S52.032A ")
;;2989
;;21,"S52.032B ")
;;2990
;;21,"S52.032C ")
;;2991
;;21,"S52.033A ")
;;2992
;;21,"S52.033B ")
;;2993
;;21,"S52.033C ")
;;2994
;;21,"S52.034A ")
;;2995
;;21,"S52.034B ")
;;2996
;;21,"S52.034C ")
;;2997
;;21,"S52.035A ")
;;2998
;;21,"S52.035B ")
;;2999
;;21,"S52.035C ")
;;3000
;;21,"S52.036A ")
;;3001
;;21,"S52.036B ")
;;3002
;;21,"S52.036C ")
;;3003
;;21,"S52.041A ")
;;3004
;;21,"S52.041B ")
;;3005
;;21,"S52.041C ")
;;3006
;;21,"S52.042A ")
;;3007
;;21,"S52.042B ")
;;3008
;;21,"S52.042C ")
;;3009
;;21,"S52.043A ")
;;3010
;;21,"S52.043B ")
;;3011
;;21,"S52.043C ")
;;3012
;;21,"S52.044A ")
;;3013
;;21,"S52.044B ")
;;3014
;;21,"S52.044C ")
;;3015
;;21,"S52.045A ")
;;3016
;;21,"S52.045B ")
;;3017
;;21,"S52.045C ")
;;3018
;;21,"S52.046A ")
;;3019
;;21,"S52.046B ")
;;3020
;;21,"S52.046C ")
;;3021
;;21,"S52.091A ")
;;3022
;;21,"S52.091B ")
;;3023
;;21,"S52.091C ")
;;3024
;;21,"S52.092A ")
;;3025
;;21,"S52.092B ")
;;3026
;;21,"S52.092C ")
;;3027
;;21,"S52.099A ")
;;3028
;;21,"S52.099B ")
;;3029
;;21,"S52.099C ")
;;3030
;;21,"S52.101A ")
;;3031
;;21,"S52.101B ")
;;3032
;;21,"S52.101C ")
;;3033
;;21,"S52.102A ")
;;3034
;;21,"S52.102B ")
;;3035
;;21,"S52.102C ")
;;3036
;;21,"S52.109A ")
;;3037
;;21,"S52.109B ")
;;3038
;;21,"S52.109C ")
;;3039
;;21,"S52.111A ")
;;3040
;;21,"S52.112A ")
;;3041
;;21,"S52.119A ")
;;3042
;;21,"S52.121A ")
;;3043
;;21,"S52.121B ")
;;3044
;;21,"S52.121C ")
;;3045
;;21,"S52.122A ")
;;3046
;;21,"S52.122B ")
;;3047
;;21,"S52.122C ")
;;3048
;;21,"S52.123A ")
;;3049
;;21,"S52.123B ")
;;3050
;;21,"S52.123C ")
;;3051
;;21,"S52.124A ")
;;3052
;;21,"S52.124B ")
;;3053
;;21,"S52.124C ")
;;3054
;;21,"S52.125A ")
;;3055
;;21,"S52.125B ")
;;3056
;;21,"S52.125C ")
;;3057
;;21,"S52.126A ")
;;3058
;;21,"S52.126B ")
;;3059
;;21,"S52.126C ")
;;3060
;;21,"S52.131A ")
;;3061
;;21,"S52.131B ")
;;3062
;;21,"S52.131C ")
;;3063
;;21,"S52.132A ")
;;3064
;;21,"S52.132B ")
;;3065
;;21,"S52.132C ")
;;3066
;;21,"S52.133A ")
;;3067
;;21,"S52.133B ")
;;3068
;;21,"S52.133C ")
;;3069
;;21,"S52.134A ")
;;3070
;;21,"S52.134B ")
;;3071
;;21,"S52.134C ")
;;3072
;;21,"S52.135A ")
;;3073
;;21,"S52.135B ")
;;3074
;;21,"S52.135C ")
;;3075
;;21,"S52.136A ")
;;3076
;;21,"S52.136B ")
;;3077
;;21,"S52.136C ")
;;3078
;;21,"S52.181A ")
;;3079
;;21,"S52.181B ")
;;3080
;;21,"S52.181C ")
;;3081
;;21,"S52.182A ")
;;3082
;;21,"S52.182B ")
;;3083
;;21,"S52.182C ")
;;3084
;;21,"S52.189A ")
;;3085
;;21,"S52.189B ")
;;3086
;;21,"S52.189C ")
;;3087
;;21,"S52.201A ")
;;3088
;;21,"S52.201B ")
;;3089
;;21,"S52.201C ")
;;3090
;;21,"S52.202A ")
;;3091
;;21,"S52.202B ")
;;3092
;;21,"S52.202C ")
;;3093
;;21,"S52.209A ")
;;3094
;;21,"S52.209B ")
;;3095
;;21,"S52.209C ")
;;3096
;;21,"S52.211A ")
;;3097
;;21,"S52.212A ")
;;3098
;;21,"S52.219A ")
;;3099
ATXXA8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
+1 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
+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,"S45.211A ")
+2 ;;2716
+3 ;;21,"S45.212A ")
+4 ;;2717
+5 ;;21,"S45.219A ")
+6 ;;2718
+7 ;;21,"S45.291A ")
+8 ;;2719
+9 ;;21,"S45.292A ")
+10 ;;2720
+11 ;;21,"S45.299A ")
+12 ;;2721
+13 ;;21,"S45.301A ")
+14 ;;2722
+15 ;;21,"S45.302A ")
+16 ;;2723
+17 ;;21,"S45.309A ")
+18 ;;2724
+19 ;;21,"S45.311A ")
+20 ;;2725
+21 ;;21,"S45.312A ")
+22 ;;2726
+23 ;;21,"S45.319A ")
+24 ;;2727
+25 ;;21,"S45.391A ")
+26 ;;2728
+27 ;;21,"S45.392A ")
+28 ;;2729
+29 ;;21,"S45.399A ")
+30 ;;2730
+31 ;;21,"S45.801A ")
+32 ;;2731
+33 ;;21,"S45.802A ")
+34 ;;2732
+35 ;;21,"S45.809A ")
+36 ;;2733
+37 ;;21,"S45.811A ")
+38 ;;2734
+39 ;;21,"S45.812A ")
+40 ;;2735
+41 ;;21,"S45.819A ")
+42 ;;2736
+43 ;;21,"S45.891A ")
+44 ;;2737
+45 ;;21,"S45.892A ")
+46 ;;2738
+47 ;;21,"S45.899A ")
+48 ;;2739
+49 ;;21,"S45.901A ")
+50 ;;2740
+51 ;;21,"S45.902A ")
+52 ;;2741
+53 ;;21,"S45.909A ")
+54 ;;2742
+55 ;;21,"S45.911A ")
+56 ;;2743
+57 ;;21,"S45.912A ")
+58 ;;2744
+59 ;;21,"S45.919A ")
+60 ;;2745
+61 ;;21,"S45.991A ")
+62 ;;2746
+63 ;;21,"S45.992A ")
+64 ;;2747
+65 ;;21,"S45.999A ")
+66 ;;2748
+67 ;;21,"S46.001A ")
+68 ;;2749
+69 ;;21,"S46.002A ")
+70 ;;2750
+71 ;;21,"S46.009A ")
+72 ;;2751
+73 ;;21,"S46.011A ")
+74 ;;2752
+75 ;;21,"S46.012A ")
+76 ;;2753
+77 ;;21,"S46.019A ")
+78 ;;2754
+79 ;;21,"S46.021A ")
+80 ;;2755
+81 ;;21,"S46.022A ")
+82 ;;2756
+83 ;;21,"S46.029A ")
+84 ;;2757
+85 ;;21,"S46.091A ")
+86 ;;2758
+87 ;;21,"S46.092A ")
+88 ;;2759
+89 ;;21,"S46.099A ")
+90 ;;2760
+91 ;;21,"S46.101A ")
+92 ;;2761
+93 ;;21,"S46.102A ")
+94 ;;2762
+95 ;;21,"S46.109A ")
+96 ;;2763
+97 ;;21,"S46.111A ")
+98 ;;2764
+99 ;;21,"S46.112A ")
+100 ;;2765
+101 ;;21,"S46.119A ")
+102 ;;2766
+103 ;;21,"S46.121A ")
+104 ;;2767
+105 ;;21,"S46.122A ")
+106 ;;2768
+107 ;;21,"S46.129A ")
+108 ;;2769
+109 ;;21,"S46.191A ")
+110 ;;2770
+111 ;;21,"S46.192A ")
+112 ;;2771
+113 ;;21,"S46.199A ")
+114 ;;2772
+115 ;;21,"S46.201A ")
+116 ;;2773
+117 ;;21,"S46.202A ")
+118 ;;2774
+119 ;;21,"S46.209A ")
+120 ;;2775
+121 ;;21,"S46.211A ")
+122 ;;2776
+123 ;;21,"S46.212A ")
+124 ;;2777
+125 ;;21,"S46.219A ")
+126 ;;2778
+127 ;;21,"S46.221A ")
+128 ;;2779
+129 ;;21,"S46.222A ")
+130 ;;2780
+131 ;;21,"S46.229A ")
+132 ;;2781
+133 ;;21,"S46.291A ")
+134 ;;2782
+135 ;;21,"S46.292A ")
+136 ;;2783
+137 ;;21,"S46.299A ")
+138 ;;2784
+139 ;;21,"S46.301A ")
+140 ;;2785
+141 ;;21,"S46.302A ")
+142 ;;2786
+143 ;;21,"S46.309A ")
+144 ;;2787
+145 ;;21,"S46.311A ")
+146 ;;2788
+147 ;;21,"S46.312A ")
+148 ;;2789
+149 ;;21,"S46.319A ")
+150 ;;2790
+151 ;;21,"S46.321A ")
+152 ;;2791
+153 ;;21,"S46.322A ")
+154 ;;2792
+155 ;;21,"S46.329A ")
+156 ;;2793
+157 ;;21,"S46.391A ")
+158 ;;2794
+159 ;;21,"S46.392A ")
+160 ;;2795
+161 ;;21,"S46.399A ")
+162 ;;2796
+163 ;;21,"S46.801A ")
+164 ;;2797
+165 ;;21,"S46.802A ")
+166 ;;2798
+167 ;;21,"S46.809A ")
+168 ;;2799
+169 ;;21,"S46.811A ")
+170 ;;2800
+171 ;;21,"S46.812A ")
+172 ;;2801
+173 ;;21,"S46.819A ")
+174 ;;2802
+175 ;;21,"S46.821A ")
+176 ;;2803
+177 ;;21,"S46.822A ")
+178 ;;2804
+179 ;;21,"S46.829A ")
+180 ;;2805
+181 ;;21,"S46.891A ")
+182 ;;2806
+183 ;;21,"S46.892A ")
+184 ;;2807
+185 ;;21,"S46.899A ")
+186 ;;2808
+187 ;;21,"S46.901A ")
+188 ;;2809
+189 ;;21,"S46.902A ")
+190 ;;2810
+191 ;;21,"S46.909A ")
+192 ;;2811
+193 ;;21,"S46.911A ")
+194 ;;2812
+195 ;;21,"S46.912A ")
+196 ;;2813
+197 ;;21,"S46.919A ")
+198 ;;2814
+199 ;;21,"S46.921A ")
+200 ;;2815
+201 ;;21,"S46.922A ")
+202 ;;2816
+203 ;;21,"S46.929A ")
+204 ;;2817
+205 ;;21,"S46.991A ")
+206 ;;2818
+207 ;;21,"S46.992A ")
+208 ;;2819
+209 ;;21,"S46.999A ")
+210 ;;2820
+211 ;;21,"S47.1XXA ")
+212 ;;2821
+213 ;;21,"S47.2XXA ")
+214 ;;2822
+215 ;;21,"S47.9XXA ")
+216 ;;2823
+217 ;;21,"S48.011A ")
+218 ;;2824
+219 ;;21,"S48.012A ")
+220 ;;2825
+221 ;;21,"S48.019A ")
+222 ;;2826
+223 ;;21,"S48.021A ")
+224 ;;2827
+225 ;;21,"S48.022A ")
+226 ;;2828
+227 ;;21,"S48.029A ")
+228 ;;2829
+229 ;;21,"S48.111A ")
+230 ;;2830
+231 ;;21,"S48.112A ")
+232 ;;2831
+233 ;;21,"S48.119A ")
+234 ;;2832
+235 ;;21,"S48.121A ")
+236 ;;2833
+237 ;;21,"S48.122A ")
+238 ;;2834
+239 ;;21,"S48.129A ")
+240 ;;2835
+241 ;;21,"S48.911A ")
+242 ;;2836
+243 ;;21,"S48.912A ")
+244 ;;2837
+245 ;;21,"S48.919A ")
+246 ;;2838
+247 ;;21,"S48.921A ")
+248 ;;2839
+249 ;;21,"S48.922A ")
+250 ;;2840
+251 ;;21,"S48.929A ")
+252 ;;2841
+253 ;;21,"S49.001A ")
+254 ;;2842
+255 ;;21,"S49.002A ")
+256 ;;2843
+257 ;;21,"S49.009A ")
+258 ;;2844
+259 ;;21,"S49.011A ")
+260 ;;2845
+261 ;;21,"S49.012A ")
+262 ;;2846
+263 ;;21,"S49.019A ")
+264 ;;2847
+265 ;;21,"S49.021A ")
+266 ;;2848
+267 ;;21,"S49.022A ")
+268 ;;2849
+269 ;;21,"S49.029A ")
+270 ;;2850
+271 ;;21,"S49.031A ")
+272 ;;2851
+273 ;;21,"S49.032A ")
+274 ;;2852
+275 ;;21,"S49.039A ")
+276 ;;2853
+277 ;;21,"S49.041A ")
+278 ;;2854
+279 ;;21,"S49.042A ")
+280 ;;2855
+281 ;;21,"S49.049A ")
+282 ;;2856
+283 ;;21,"S49.091A ")
+284 ;;2857
+285 ;;21,"S49.092A ")
+286 ;;2858
+287 ;;21,"S49.099A ")
+288 ;;2859
+289 ;;21,"S49.101A ")
+290 ;;2860
+291 ;;21,"S49.102A ")
+292 ;;2861
+293 ;;21,"S49.109A ")
+294 ;;2862
+295 ;;21,"S49.111A ")
+296 ;;2863
+297 ;;21,"S49.112A ")
+298 ;;2864
+299 ;;21,"S49.119A ")
+300 ;;2865
+301 ;;21,"S49.121A ")
+302 ;;2866
+303 ;;21,"S49.122A ")
+304 ;;2867
+305 ;;21,"S49.129A ")
+306 ;;2868
+307 ;;21,"S49.131A ")
+308 ;;2869
+309 ;;21,"S49.132A ")
+310 ;;2870
+311 ;;21,"S49.139A ")
+312 ;;2871
+313 ;;21,"S49.141A ")
+314 ;;2872
+315 ;;21,"S49.142A ")
+316 ;;2873
+317 ;;21,"S49.149A ")
+318 ;;2874
+319 ;;21,"S49.191A ")
+320 ;;2875
+321 ;;21,"S49.192A ")
+322 ;;2876
+323 ;;21,"S49.199A ")
+324 ;;2877
+325 ;;21,"S49.80XA ")
+326 ;;2878
+327 ;;21,"S49.81XA ")
+328 ;;2879
+329 ;;21,"S49.82XA ")
+330 ;;2880
+331 ;;21,"S49.90XA ")
+332 ;;2881
+333 ;;21,"S49.91XA ")
+334 ;;2882
+335 ;;21,"S49.92XA ")
+336 ;;2883
+337 ;;21,"S50.00XA ")
+338 ;;2884
+339 ;;21,"S50.01XA ")
+340 ;;2885
+341 ;;21,"S50.02XA ")
+342 ;;2886
+343 ;;21,"S50.10XA ")
+344 ;;2887
+345 ;;21,"S50.11XA ")
+346 ;;2888
+347 ;;21,"S50.12XA ")
+348 ;;2889
+349 ;;21,"S50.311A ")
+350 ;;2890
+351 ;;21,"S50.312A ")
+352 ;;2891
+353 ;;21,"S50.319A ")
+354 ;;2892
+355 ;;21,"S50.341A ")
+356 ;;2893
+357 ;;21,"S50.342A ")
+358 ;;2894
+359 ;;21,"S50.349A ")
+360 ;;2895
+361 ;;21,"S50.351A ")
+362 ;;2896
+363 ;;21,"S50.352A ")
+364 ;;2897
+365 ;;21,"S50.359A ")
+366 ;;2898
+367 ;;21,"S50.371A ")
+368 ;;2899
+369 ;;21,"S50.372A ")
+370 ;;2900
+371 ;;21,"S50.379A ")
+372 ;;2901
+373 ;;21,"S50.811A ")
+374 ;;2902
+375 ;;21,"S50.812A ")
+376 ;;2903
+377 ;;21,"S50.819A ")
+378 ;;2904
+379 ;;21,"S50.841A ")
+380 ;;2905
+381 ;;21,"S50.842A ")
+382 ;;2906
+383 ;;21,"S50.849A ")
+384 ;;2907
+385 ;;21,"S50.851A ")
+386 ;;2908
+387 ;;21,"S50.852A ")
+388 ;;2909
+389 ;;21,"S50.859A ")
+390 ;;2910
+391 ;;21,"S50.871A ")
+392 ;;2911
+393 ;;21,"S50.872A ")
+394 ;;2912
+395 ;;21,"S50.879A ")
+396 ;;2913
+397 ;;21,"S50.901A ")
+398 ;;2914
+399 ;;21,"S50.902A ")
+400 ;;2915
+401 ;;21,"S50.909A ")
+402 ;;2916
+403 ;;21,"S50.911A ")
+404 ;;2917
+405 ;;21,"S50.912A ")
+406 ;;2918
+407 ;;21,"S50.919A ")
+408 ;;2919
+409 ;;21,"S51.001A ")
+410 ;;2920
+411 ;;21,"S51.002A ")
+412 ;;2921
+413 ;;21,"S51.009A ")
+414 ;;2922
+415 ;;21,"S51.011A ")
+416 ;;2923
+417 ;;21,"S51.012A ")
+418 ;;2924
+419 ;;21,"S51.019A ")
+420 ;;2925
+421 ;;21,"S51.021A ")
+422 ;;2926
+423 ;;21,"S51.022A ")
+424 ;;2927
+425 ;;21,"S51.029A ")
+426 ;;2928
+427 ;;21,"S51.031A ")
+428 ;;2929
+429 ;;21,"S51.032A ")
+430 ;;2930
+431 ;;21,"S51.039A ")
+432 ;;2931
+433 ;;21,"S51.041A ")
+434 ;;2932
+435 ;;21,"S51.042A ")
+436 ;;2933
+437 ;;21,"S51.049A ")
+438 ;;2934
+439 ;;21,"S51.051A ")
+440 ;;2935
+441 ;;21,"S51.052A ")
+442 ;;2936
+443 ;;21,"S51.059A ")
+444 ;;2937
+445 ;;21,"S51.801A ")
+446 ;;2938
+447 ;;21,"S51.802A ")
+448 ;;2939
+449 ;;21,"S51.809A ")
+450 ;;2940
+451 ;;21,"S51.811A ")
+452 ;;2941
+453 ;;21,"S51.812A ")
+454 ;;2942
+455 ;;21,"S51.819A ")
+456 ;;2943
+457 ;;21,"S51.821A ")
+458 ;;2944
+459 ;;21,"S51.822A ")
+460 ;;2945
+461 ;;21,"S51.829A ")
+462 ;;2946
+463 ;;21,"S51.831A ")
+464 ;;2947
+465 ;;21,"S51.832A ")
+466 ;;2948
+467 ;;21,"S51.839A ")
+468 ;;2949
+469 ;;21,"S51.841A ")
+470 ;;2950
+471 ;;21,"S51.842A ")
+472 ;;2951
+473 ;;21,"S51.849A ")
+474 ;;2952
+475 ;;21,"S51.851A ")
+476 ;;2953
+477 ;;21,"S51.852A ")
+478 ;;2954
+479 ;;21,"S51.859A ")
+480 ;;2955
+481 ;;21,"S52.001A ")
+482 ;;2956
+483 ;;21,"S52.001B ")
+484 ;;2957
+485 ;;21,"S52.001C ")
+486 ;;2958
+487 ;;21,"S52.002A ")
+488 ;;2959
+489 ;;21,"S52.002B ")
+490 ;;2960
+491 ;;21,"S52.002C ")
+492 ;;2961
+493 ;;21,"S52.009A ")
+494 ;;2962
+495 ;;21,"S52.009B ")
+496 ;;2963
+497 ;;21,"S52.009C ")
+498 ;;2964
+499 ;;21,"S52.011A ")
+500 ;;2965
+501 ;;21,"S52.012A ")
+502 ;;2966
+503 ;;21,"S52.019A ")
+504 ;;2967
+505 ;;21,"S52.021A ")
+506 ;;2968
+507 ;;21,"S52.021B ")
+508 ;;2969
+509 ;;21,"S52.021C ")
+510 ;;2970
+511 ;;21,"S52.022A ")
+512 ;;2971
+513 ;;21,"S52.022B ")
+514 ;;2972
+515 ;;21,"S52.022C ")
+516 ;;2973
+517 ;;21,"S52.023A ")
+518 ;;2974
+519 ;;21,"S52.023B ")
+520 ;;2975
+521 ;;21,"S52.023C ")
+522 ;;2976
+523 ;;21,"S52.024A ")
+524 ;;2977
+525 ;;21,"S52.024B ")
+526 ;;2978
+527 ;;21,"S52.024C ")
+528 ;;2979
+529 ;;21,"S52.025A ")
+530 ;;2980
+531 ;;21,"S52.025B ")
+532 ;;2981
+533 ;;21,"S52.025C ")
+534 ;;2982
+535 ;;21,"S52.026A ")
+536 ;;2983
+537 ;;21,"S52.026B ")
+538 ;;2984
+539 ;;21,"S52.026C ")
+540 ;;2985
+541 ;;21,"S52.031A ")
+542 ;;2986
+543 ;;21,"S52.031B ")
+544 ;;2987
+545 ;;21,"S52.031C ")
+546 ;;2988
+547 ;;21,"S52.032A ")
+548 ;;2989
+549 ;;21,"S52.032B ")
+550 ;;2990
+551 ;;21,"S52.032C ")
+552 ;;2991
+553 ;;21,"S52.033A ")
+554 ;;2992
+555 ;;21,"S52.033B ")
+556 ;;2993
+557 ;;21,"S52.033C ")
+558 ;;2994
+559 ;;21,"S52.034A ")
+560 ;;2995
+561 ;;21,"S52.034B ")
+562 ;;2996
+563 ;;21,"S52.034C ")
+564 ;;2997
+565 ;;21,"S52.035A ")
+566 ;;2998
+567 ;;21,"S52.035B ")
+568 ;;2999
+569 ;;21,"S52.035C ")
+570 ;;3000
+571 ;;21,"S52.036A ")
+572 ;;3001
+573 ;;21,"S52.036B ")
+574 ;;3002
+575 ;;21,"S52.036C ")
+576 ;;3003
+577 ;;21,"S52.041A ")
+578 ;;3004
+579 ;;21,"S52.041B ")
+580 ;;3005
+581 ;;21,"S52.041C ")
+582 ;;3006
+583 ;;21,"S52.042A ")
+584 ;;3007
+585 ;;21,"S52.042B ")
+586 ;;3008
+587 ;;21,"S52.042C ")
+588 ;;3009
+589 ;;21,"S52.043A ")
+590 ;;3010
+591 ;;21,"S52.043B ")
+592 ;;3011
+593 ;;21,"S52.043C ")
+594 ;;3012
+595 ;;21,"S52.044A ")
+596 ;;3013
+597 ;;21,"S52.044B ")
+598 ;;3014
+599 ;;21,"S52.044C ")
+600 ;;3015
+601 ;;21,"S52.045A ")
+602 ;;3016
+603 ;;21,"S52.045B ")
+604 ;;3017
+605 ;;21,"S52.045C ")
+606 ;;3018
+607 ;;21,"S52.046A ")
+608 ;;3019
+609 ;;21,"S52.046B ")
+610 ;;3020
+611 ;;21,"S52.046C ")
+612 ;;3021
+613 ;;21,"S52.091A ")
+614 ;;3022
+615 ;;21,"S52.091B ")
+616 ;;3023
+617 ;;21,"S52.091C ")
+618 ;;3024
+619 ;;21,"S52.092A ")
+620 ;;3025
+621 ;;21,"S52.092B ")
+622 ;;3026
+623 ;;21,"S52.092C ")
+624 ;;3027
+625 ;;21,"S52.099A ")
+626 ;;3028
+627 ;;21,"S52.099B ")
+628 ;;3029
+629 ;;21,"S52.099C ")
+630 ;;3030
+631 ;;21,"S52.101A ")
+632 ;;3031
+633 ;;21,"S52.101B ")
+634 ;;3032
+635 ;;21,"S52.101C ")
+636 ;;3033
+637 ;;21,"S52.102A ")
+638 ;;3034
+639 ;;21,"S52.102B ")
+640 ;;3035
+641 ;;21,"S52.102C ")
+642 ;;3036
+643 ;;21,"S52.109A ")
+644 ;;3037
+645 ;;21,"S52.109B ")
+646 ;;3038
+647 ;;21,"S52.109C ")
+648 ;;3039
+649 ;;21,"S52.111A ")
+650 ;;3040
+651 ;;21,"S52.112A ")
+652 ;;3041
+653 ;;21,"S52.119A ")
+654 ;;3042
+655 ;;21,"S52.121A ")
+656 ;;3043
+657 ;;21,"S52.121B ")
+658 ;;3044
+659 ;;21,"S52.121C ")
+660 ;;3045
+661 ;;21,"S52.122A ")
+662 ;;3046
+663 ;;21,"S52.122B ")
+664 ;;3047
+665 ;;21,"S52.122C ")
+666 ;;3048
+667 ;;21,"S52.123A ")
+668 ;;3049
+669 ;;21,"S52.123B ")
+670 ;;3050
+671 ;;21,"S52.123C ")
+672 ;;3051
+673 ;;21,"S52.124A ")
+674 ;;3052
+675 ;;21,"S52.124B ")
+676 ;;3053
+677 ;;21,"S52.124C ")
+678 ;;3054
+679 ;;21,"S52.125A ")
+680 ;;3055
+681 ;;21,"S52.125B ")
+682 ;;3056
+683 ;;21,"S52.125C ")
+684 ;;3057
+685 ;;21,"S52.126A ")
+686 ;;3058
+687 ;;21,"S52.126B ")
+688 ;;3059
+689 ;;21,"S52.126C ")
+690 ;;3060
+691 ;;21,"S52.131A ")
+692 ;;3061
+693 ;;21,"S52.131B ")
+694 ;;3062
+695 ;;21,"S52.131C ")
+696 ;;3063
+697 ;;21,"S52.132A ")
+698 ;;3064
+699 ;;21,"S52.132B ")
+700 ;;3065
+701 ;;21,"S52.132C ")
+702 ;;3066
+703 ;;21,"S52.133A ")
+704 ;;3067
+705 ;;21,"S52.133B ")
+706 ;;3068
+707 ;;21,"S52.133C ")
+708 ;;3069
+709 ;;21,"S52.134A ")
+710 ;;3070
+711 ;;21,"S52.134B ")
+712 ;;3071
+713 ;;21,"S52.134C ")
+714 ;;3072
+715 ;;21,"S52.135A ")
+716 ;;3073
+717 ;;21,"S52.135B ")
+718 ;;3074
+719 ;;21,"S52.135C ")
+720 ;;3075
+721 ;;21,"S52.136A ")
+722 ;;3076
+723 ;;21,"S52.136B ")
+724 ;;3077
+725 ;;21,"S52.136C ")
+726 ;;3078
+727 ;;21,"S52.181A ")
+728 ;;3079
+729 ;;21,"S52.181B ")
+730 ;;3080
+731 ;;21,"S52.181C ")
+732 ;;3081
+733 ;;21,"S52.182A ")
+734 ;;3082
+735 ;;21,"S52.182B ")
+736 ;;3083
+737 ;;21,"S52.182C ")
+738 ;;3084
+739 ;;21,"S52.189A ")
+740 ;;3085
+741 ;;21,"S52.189B ")
+742 ;;3086
+743 ;;21,"S52.189C ")
+744 ;;3087
+745 ;;21,"S52.201A ")
+746 ;;3088
+747 ;;21,"S52.201B ")
+748 ;;3089
+749 ;;21,"S52.201C ")
+750 ;;3090
+751 ;;21,"S52.202A ")
+752 ;;3091
+753 ;;21,"S52.202B ")
+754 ;;3092
+755 ;;21,"S52.202C ")
+756 ;;3093
+757 ;;21,"S52.209A ")
+758 ;;3094
+759 ;;21,"S52.209B ")
+760 ;;3095
+761 ;;21,"S52.209C ")
+762 ;;3096
+763 ;;21,"S52.211A ")
+764 ;;3097
+765 ;;21,"S52.212A ")
+766 ;;3098
+767 ;;21,"S52.219A ")
+768 ;;3099
