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

ATXXA21.m

Go to the documentation of this file.
ATXXA21 ;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,"S92.324B ")
 ;;7708
 ;;21,"S92.325A ")
 ;;7709
 ;;21,"S92.325B ")
 ;;7710
 ;;21,"S92.326A ")
 ;;7711
 ;;21,"S92.326B ")
 ;;7712
 ;;21,"S92.331A ")
 ;;7713
 ;;21,"S92.331B ")
 ;;7714
 ;;21,"S92.332A ")
 ;;7715
 ;;21,"S92.332B ")
 ;;7716
 ;;21,"S92.333A ")
 ;;7717
 ;;21,"S92.333B ")
 ;;7718
 ;;21,"S92.334A ")
 ;;7719
 ;;21,"S92.334B ")
 ;;7720
 ;;21,"S92.335A ")
 ;;7721
 ;;21,"S92.335B ")
 ;;7722
 ;;21,"S92.336A ")
 ;;7723
 ;;21,"S92.336B ")
 ;;7724
 ;;21,"S92.341A ")
 ;;7725
 ;;21,"S92.341B ")
 ;;7726
 ;;21,"S92.342A ")
 ;;7727
 ;;21,"S92.342B ")
 ;;7728
 ;;21,"S92.343A ")
 ;;7729
 ;;21,"S92.343B ")
 ;;7730
 ;;21,"S92.344A ")
 ;;7731
 ;;21,"S92.344B ")
 ;;7732
 ;;21,"S92.345A ")
 ;;7733
 ;;21,"S92.345B ")
 ;;7734
 ;;21,"S92.346A ")
 ;;7735
 ;;21,"S92.346B ")
 ;;7736
 ;;21,"S92.351A ")
 ;;7737
 ;;21,"S92.351B ")
 ;;7738
 ;;21,"S92.352A ")
 ;;7739
 ;;21,"S92.352B ")
 ;;7740
 ;;21,"S92.353A ")
 ;;7741
 ;;21,"S92.353B ")
 ;;7742
 ;;21,"S92.354A ")
 ;;7743
 ;;21,"S92.354B ")
 ;;7744
 ;;21,"S92.355A ")
 ;;7745
 ;;21,"S92.355B ")
 ;;7746
 ;;21,"S92.356A ")
 ;;7747
 ;;21,"S92.356B ")
 ;;7748
 ;;21,"S92.401A ")
 ;;7749
 ;;21,"S92.401B ")
 ;;7750
 ;;21,"S92.402A ")
 ;;7751
 ;;21,"S92.402B ")
 ;;7752
 ;;21,"S92.403A ")
 ;;7753
 ;;21,"S92.403B ")
 ;;7754
 ;;21,"S92.404A ")
 ;;7755
 ;;21,"S92.404B ")
 ;;7756
 ;;21,"S92.405A ")
 ;;7757
 ;;21,"S92.405B ")
 ;;7758
 ;;21,"S92.406A ")
 ;;7759
 ;;21,"S92.406B ")
 ;;7760
 ;;21,"S92.411A ")
 ;;7761
 ;;21,"S92.411B ")
 ;;7762
 ;;21,"S92.412A ")
 ;;7763
 ;;21,"S92.412B ")
 ;;7764
 ;;21,"S92.413A ")
 ;;7765
 ;;21,"S92.413B ")
 ;;7766
 ;;21,"S92.414A ")
 ;;7767
 ;;21,"S92.414B ")
 ;;7768
 ;;21,"S92.415A ")
 ;;7769
 ;;21,"S92.415B ")
 ;;7770
 ;;21,"S92.416A ")
 ;;7771
 ;;21,"S92.416B ")
 ;;7772
 ;;21,"S92.421A ")
 ;;7773
 ;;21,"S92.421B ")
 ;;7774
 ;;21,"S92.422A ")
 ;;7775
 ;;21,"S92.422B ")
 ;;7776
 ;;21,"S92.423A ")
 ;;7777
 ;;21,"S92.423B ")
 ;;7778
 ;;21,"S92.424A ")
 ;;7779
 ;;21,"S92.424B ")
 ;;7780
 ;;21,"S92.425A ")
 ;;7781
 ;;21,"S92.425B ")
 ;;7782
 ;;21,"S92.426A ")
 ;;7783
 ;;21,"S92.426B ")
 ;;7784
 ;;21,"S92.491A ")
 ;;7785
 ;;21,"S92.491B ")
 ;;7786
 ;;21,"S92.492A ")
 ;;7787
 ;;21,"S92.492B ")
 ;;7788
 ;;21,"S92.499A ")
 ;;7789
 ;;21,"S92.499B ")
 ;;7790
 ;;21,"S92.501A ")
 ;;7791
 ;;21,"S92.501B ")
 ;;7792
 ;;21,"S92.502A ")
 ;;7793
 ;;21,"S92.502B ")
 ;;7794
 ;;21,"S92.503A ")
 ;;7795
 ;;21,"S92.503B ")
 ;;7796
 ;;21,"S92.504A ")
 ;;7797
 ;;21,"S92.504B ")
 ;;7798
 ;;21,"S92.505A ")
 ;;7799
 ;;21,"S92.505B ")
 ;;7800
 ;;21,"S92.506A ")
 ;;7801
 ;;21,"S92.506B ")
 ;;7802
 ;;21,"S92.511A ")
 ;;7803
 ;;21,"S92.511B ")
 ;;7804
 ;;21,"S92.512A ")
 ;;7805
 ;;21,"S92.512B ")
 ;;7806
 ;;21,"S92.513A ")
 ;;7807
 ;;21,"S92.513B ")
 ;;7808
 ;;21,"S92.514A ")
 ;;7809
 ;;21,"S92.514B ")
 ;;7810
 ;;21,"S92.515A ")
 ;;7811
 ;;21,"S92.515B ")
 ;;7812
 ;;21,"S92.516A ")
 ;;7813
 ;;21,"S92.516B ")
 ;;7814
 ;;21,"S92.521A ")
 ;;7815
 ;;21,"S92.521B ")
 ;;7816
 ;;21,"S92.522A ")
 ;;7817
 ;;21,"S92.522B ")
 ;;7818
 ;;21,"S92.523A ")
 ;;7819
 ;;21,"S92.523B ")
 ;;7820
 ;;21,"S92.524A ")
 ;;7821
 ;;21,"S92.524B ")
 ;;7822
 ;;21,"S92.525A ")
 ;;7823
 ;;21,"S92.525B ")
 ;;7824
 ;;21,"S92.526A ")
 ;;7825
 ;;21,"S92.526B ")
 ;;7826
 ;;21,"S92.531A ")
 ;;7827
 ;;21,"S92.531B ")
 ;;7828
 ;;21,"S92.532A ")
 ;;7829
 ;;21,"S92.532B ")
 ;;7830
 ;;21,"S92.533A ")
 ;;7831
 ;;21,"S92.533B ")
 ;;7832
 ;;21,"S92.534A ")
 ;;7833
 ;;21,"S92.534B ")
 ;;7834
 ;;21,"S92.535A ")
 ;;7835
 ;;21,"S92.535B ")
 ;;7836
 ;;21,"S92.536A ")
 ;;7837
 ;;21,"S92.536B ")
 ;;7838
 ;;21,"S92.591A ")
 ;;7839
 ;;21,"S92.591B ")
 ;;7840
 ;;21,"S92.592A ")
 ;;7841
 ;;21,"S92.592B ")
 ;;7842
 ;;21,"S92.599A ")
 ;;7843
 ;;21,"S92.599B ")
 ;;7844
 ;;21,"S92.901A ")
 ;;7845
 ;;21,"S92.901B ")
 ;;7846
 ;;21,"S92.902A ")
 ;;7847
 ;;21,"S92.902B ")
 ;;7848
 ;;21,"S92.909A ")
 ;;7849
 ;;21,"S92.909B ")
 ;;7850
 ;;21,"S92.911A ")
 ;;7851
 ;;21,"S92.911B ")
 ;;7852
 ;;21,"S92.912A ")
 ;;7853
 ;;21,"S92.912B ")
 ;;7854
 ;;21,"S92.919A ")
 ;;7855
 ;;21,"S92.919B ")
 ;;7856
 ;;21,"S93.01XA ")
 ;;7857
 ;;21,"S93.02XA ")
 ;;7858
 ;;21,"S93.03XA ")
 ;;7859
 ;;21,"S93.04XA ")
 ;;7860
 ;;21,"S93.05XA ")
 ;;7861
 ;;21,"S93.06XA ")
 ;;7862
 ;;21,"S93.101A ")
 ;;7863
 ;;21,"S93.102A ")
 ;;7864
 ;;21,"S93.103A ")
 ;;7865
 ;;21,"S93.104A ")
 ;;7866
 ;;21,"S93.105A ")
 ;;7867
 ;;21,"S93.106A ")
 ;;7868
 ;;21,"S93.111A ")
 ;;7869
 ;;21,"S93.112A ")
 ;;7870
 ;;21,"S93.113A ")
 ;;7871
 ;;21,"S93.114A ")
 ;;7872
 ;;21,"S93.115A ")
 ;;7873
 ;;21,"S93.116A ")
 ;;7874
 ;;21,"S93.119A ")
 ;;7875
 ;;21,"S93.121A ")
 ;;7876
 ;;21,"S93.122A ")
 ;;7877
 ;;21,"S93.123A ")
 ;;7878
 ;;21,"S93.124A ")
 ;;7879
 ;;21,"S93.125A ")
 ;;7880
 ;;21,"S93.126A ")
 ;;7881
 ;;21,"S93.129A ")
 ;;7882
 ;;21,"S93.131A ")
 ;;7883
 ;;21,"S93.132A ")
 ;;7884
 ;;21,"S93.133A ")
 ;;7885
 ;;21,"S93.134A ")
 ;;7886
 ;;21,"S93.135A ")
 ;;7887
 ;;21,"S93.136A ")
 ;;7888
 ;;21,"S93.139A ")
 ;;7889
 ;;21,"S93.141A ")
 ;;7890
 ;;21,"S93.142A ")
 ;;7891
 ;;21,"S93.143A ")
 ;;7892
 ;;21,"S93.144A ")
 ;;7893
 ;;21,"S93.145A ")
 ;;7894
 ;;21,"S93.146A ")
 ;;7895
 ;;21,"S93.149A ")
 ;;7896
 ;;21,"S93.301A ")
 ;;7897
 ;;21,"S93.302A ")
 ;;7898
 ;;21,"S93.303A ")
 ;;7899
 ;;21,"S93.304A ")
 ;;7900
 ;;21,"S93.305A ")
 ;;7901
 ;;21,"S93.306A ")
 ;;7902
 ;;21,"S93.311A ")
 ;;7903
 ;;21,"S93.312A ")
 ;;7904
 ;;21,"S93.313A ")
 ;;7905
 ;;21,"S93.314A ")
 ;;7906
 ;;21,"S93.315A ")
 ;;7907
 ;;21,"S93.316A ")
 ;;7908
 ;;21,"S93.321A ")
 ;;7909
 ;;21,"S93.322A ")
 ;;7910
 ;;21,"S93.323A ")
 ;;7911
 ;;21,"S93.324A ")
 ;;7912
 ;;21,"S93.325A ")
 ;;7913
 ;;21,"S93.326A ")
 ;;7914
 ;;21,"S93.331A ")
 ;;7915
 ;;21,"S93.332A ")
 ;;7916
 ;;21,"S93.333A ")
 ;;7917
 ;;21,"S93.334A ")
 ;;7918
 ;;21,"S93.335A ")
 ;;7919
 ;;21,"S93.336A ")
 ;;7920
 ;;21,"S93.401A ")
 ;;7921
 ;;21,"S93.402A ")
 ;;7922
 ;;21,"S93.409A ")
 ;;7923
 ;;21,"S93.411A ")
 ;;7924
 ;;21,"S93.412A ")
 ;;7925
 ;;21,"S93.419A ")
 ;;7926
 ;;21,"S93.421A ")
 ;;7927
 ;;21,"S93.422A ")
 ;;7928
 ;;21,"S93.429A ")
 ;;7929
 ;;21,"S93.431A ")
 ;;7930
 ;;21,"S93.432A ")
 ;;7931
 ;;21,"S93.439A ")
 ;;7932
 ;;21,"S93.491A ")
 ;;7933
 ;;21,"S93.492A ")
 ;;7934
 ;;21,"S93.499A ")
 ;;7935
 ;;21,"S93.501A ")
 ;;7936
 ;;21,"S93.502A ")
 ;;7937
 ;;21,"S93.503A ")
 ;;7938
 ;;21,"S93.504A ")
 ;;7939
 ;;21,"S93.505A ")
 ;;7940
 ;;21,"S93.506A ")
 ;;7941
 ;;21,"S93.509A ")
 ;;7942
 ;;21,"S93.511A ")
 ;;7943
 ;;21,"S93.512A ")
 ;;7944
 ;;21,"S93.513A ")
 ;;7945
 ;;21,"S93.514A ")
 ;;7946
 ;;21,"S93.515A ")
 ;;7947
 ;;21,"S93.516A ")
 ;;7948
 ;;21,"S93.519A ")
 ;;7949
 ;;21,"S93.521A ")
 ;;7950
 ;;21,"S93.522A ")
 ;;7951
 ;;21,"S93.523A ")
 ;;7952
 ;;21,"S93.524A ")
 ;;7953
 ;;21,"S93.525A ")
 ;;7954
 ;;21,"S93.526A ")
 ;;7955
 ;;21,"S93.529A ")
 ;;7956
 ;;21,"S93.601A ")
 ;;7957
 ;;21,"S93.602A ")
 ;;7958
 ;;21,"S93.609A ")
 ;;7959
 ;;21,"S93.611A ")
 ;;7960
 ;;21,"S93.612A ")
 ;;7961
 ;;21,"S93.619A ")
 ;;7962
 ;;21,"S93.621A ")
 ;;7963
 ;;21,"S93.622A ")
 ;;7964
 ;;21,"S93.629A ")
 ;;7965
 ;;21,"S93.691A ")
 ;;7966
 ;;21,"S93.692A ")
 ;;7967
 ;;21,"S93.699A ")
 ;;7968
 ;;21,"S94.00XA ")
 ;;7969
 ;;21,"S94.01XA ")
 ;;7970
 ;;21,"S94.02XA ")
 ;;7971
 ;;21,"S94.10XA ")
 ;;7972
 ;;21,"S94.11XA ")
 ;;7973
 ;;21,"S94.12XA ")
 ;;7974
 ;;21,"S94.20XA ")
 ;;7975
 ;;21,"S94.21XA ")
 ;;7976
 ;;21,"S94.22XA ")
 ;;7977
 ;;21,"S94.30XA ")
 ;;7978
 ;;21,"S94.31XA ")
 ;;7979
 ;;21,"S94.32XA ")
 ;;7980
 ;;21,"S94.8X1A ")
 ;;7981
 ;;21,"S94.8X2A ")
 ;;7982
 ;;21,"S94.8X9A ")
 ;;7983
 ;;21,"S94.90XA ")
 ;;7984
 ;;21,"S94.91XA ")
 ;;7985
 ;;21,"S94.92XA ")
 ;;7986
 ;;21,"S95.001A ")
 ;;7987
 ;;21,"S95.002A ")
 ;;7988
 ;;21,"S95.009A ")
 ;;7989
 ;;21,"S95.011A ")
 ;;7990
 ;;21,"S95.012A ")
 ;;7991
 ;;21,"S95.019A ")
 ;;7992
 ;;21,"S95.091A ")
 ;;7993
 ;;21,"S95.092A ")
 ;;7994
 ;;21,"S95.099A ")
 ;;7995
 ;;21,"S95.101A ")
 ;;7996
 ;;21,"S95.102A ")
 ;;7997
 ;;21,"S95.109A ")
 ;;7998
 ;;21,"S95.111A ")
 ;;7999
 ;;21,"S95.112A ")
 ;;8000
 ;;21,"S95.119A ")
 ;;8001
 ;;21,"S95.191A ")
 ;;8002
 ;;21,"S95.192A ")
 ;;8003
 ;;21,"S95.199A ")
 ;;8004
 ;;21,"S95.201A ")
 ;;8005
 ;;21,"S95.202A ")
 ;;8006
 ;;21,"S95.209A ")
 ;;8007
 ;;21,"S95.211A ")
 ;;8008
 ;;21,"S95.212A ")
 ;;8009
 ;;21,"S95.219A ")
 ;;8010
 ;;21,"S95.291A ")
 ;;8011
 ;;21,"S95.292A ")
 ;;8012
 ;;21,"S95.299A ")
 ;;8013
 ;;21,"S95.801A ")
 ;;8014
 ;;21,"S95.802A ")
 ;;8015
 ;;21,"S95.809A ")
 ;;8016
 ;;21,"S95.811A ")
 ;;8017
 ;;21,"S95.812A ")
 ;;8018
 ;;21,"S95.819A ")
 ;;8019
 ;;21,"S95.891A ")
 ;;8020
 ;;21,"S95.892A ")
 ;;8021
 ;;21,"S95.899A ")
 ;;8022
 ;;21,"S95.901A ")
 ;;8023
 ;;21,"S95.902A ")
 ;;8024
 ;;21,"S95.909A ")
 ;;8025
 ;;21,"S95.911A ")
 ;;8026
 ;;21,"S95.912A ")
 ;;8027
 ;;21,"S95.919A ")
 ;;8028
 ;;21,"S95.991A ")
 ;;8029
 ;;21,"S95.992A ")
 ;;8030
 ;;21,"S95.999A ")
 ;;8031
 ;;21,"S96.001A ")
 ;;8032
 ;;21,"S96.002A ")
 ;;8033
 ;;21,"S96.009A ")
 ;;8034
 ;;21,"S96.011A ")
 ;;8035
 ;;21,"S96.012A ")
 ;;8036
 ;;21,"S96.019A ")
 ;;8037
 ;;21,"S96.021A ")
 ;;8038
 ;;21,"S96.022A ")
 ;;8039
 ;;21,"S96.029A ")
 ;;8040
 ;;21,"S96.091A ")
 ;;8041
 ;;21,"S96.092A ")
 ;;8042
 ;;21,"S96.099A ")
 ;;8043
 ;;21,"S96.101A ")
 ;;8044
 ;;21,"S96.102A ")
 ;;8045
 ;;21,"S96.109A ")
 ;;8046
 ;;21,"S96.111A ")
 ;;8047
 ;;21,"S96.112A ")
 ;;8048
 ;;21,"S96.119A ")
 ;;8049
 ;;21,"S96.121A ")
 ;;8050
 ;;21,"S96.122A ")
 ;;8051
 ;;21,"S96.129A ")
 ;;8052
 ;;21,"S96.191A ")
 ;;8053
 ;;21,"S96.192A ")
 ;;8054
 ;;21,"S96.199A ")
 ;;8055
 ;;21,"S96.201A ")
 ;;8056
 ;;21,"S96.202A ")
 ;;8057
 ;;21,"S96.209A ")
 ;;8058
 ;;21,"S96.211A ")
 ;;8059
 ;;21,"S96.212A ")
 ;;8060
 ;;21,"S96.219A ")
 ;;8061
 ;;21,"S96.221A ")
 ;;8062
 ;;21,"S96.222A ")
 ;;8063
 ;;21,"S96.229A ")
 ;;8064
 ;;21,"S96.291A ")
 ;;8065
 ;;21,"S96.292A ")
 ;;8066
 ;;21,"S96.299A ")
 ;;8067
 ;;21,"S96.801A ")
 ;;8068
 ;;21,"S96.802A ")
 ;;8069
 ;;21,"S96.809A ")
 ;;8070
 ;;21,"S96.811A ")
 ;;8071
 ;;21,"S96.812A ")
 ;;8072
 ;;21,"S96.819A ")
 ;;8073
 ;;21,"S96.821A ")
 ;;8074
 ;;21,"S96.822A ")
 ;;8075
 ;;21,"S96.829A ")
 ;;8076
 ;;21,"S96.891A ")
 ;;8077
 ;;21,"S96.892A ")
 ;;8078
 ;;21,"S96.899A ")
 ;;8079
 ;;21,"S96.901A ")
 ;;8080
 ;;21,"S96.902A ")
 ;;8081
 ;;21,"S96.909A ")
 ;;8082
 ;;21,"S96.911A ")
 ;;8083
 ;;21,"S96.912A ")
 ;;8084
 ;;21,"S96.919A ")
 ;;8085
 ;;21,"S96.921A ")
 ;;8086
 ;;21,"S96.922A ")
 ;;8087
 ;;21,"S96.929A ")
 ;;8088
 ;;21,"S96.991A ")
 ;;8089
 ;;21,"S96.992A ")
 ;;8090
 ;;21,"S96.999A ")
 ;;8091