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

ATXD3T6.m

Go to the documentation of this file.
ATXD3T6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 2013;
 ;;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)
 ;;9002226.02101,"548,M08.471 ",.02)
 ;;M08.471
 ;;9002226.02101,"548,M08.471 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.472 ",.01)
 ;;M08.472
 ;;9002226.02101,"548,M08.472 ",.02)
 ;;M08.472
 ;;9002226.02101,"548,M08.472 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.479 ",.01)
 ;;M08.479
 ;;9002226.02101,"548,M08.479 ",.02)
 ;;M08.479
 ;;9002226.02101,"548,M08.479 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.48 ",.01)
 ;;M08.48
 ;;9002226.02101,"548,M08.48 ",.02)
 ;;M08.48
 ;;9002226.02101,"548,M08.48 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.80 ",.01)
 ;;M08.80
 ;;9002226.02101,"548,M08.80 ",.02)
 ;;M08.80
 ;;9002226.02101,"548,M08.80 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.811 ",.01)
 ;;M08.811
 ;;9002226.02101,"548,M08.811 ",.02)
 ;;M08.811
 ;;9002226.02101,"548,M08.811 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.812 ",.01)
 ;;M08.812
 ;;9002226.02101,"548,M08.812 ",.02)
 ;;M08.812
 ;;9002226.02101,"548,M08.812 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.819 ",.01)
 ;;M08.819
 ;;9002226.02101,"548,M08.819 ",.02)
 ;;M08.819
 ;;9002226.02101,"548,M08.819 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.821 ",.01)
 ;;M08.821
 ;;9002226.02101,"548,M08.821 ",.02)
 ;;M08.821
 ;;9002226.02101,"548,M08.821 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.822 ",.01)
 ;;M08.822
 ;;9002226.02101,"548,M08.822 ",.02)
 ;;M08.822
 ;;9002226.02101,"548,M08.822 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.829 ",.01)
 ;;M08.829
 ;;9002226.02101,"548,M08.829 ",.02)
 ;;M08.829
 ;;9002226.02101,"548,M08.829 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.831 ",.01)
 ;;M08.831
 ;;9002226.02101,"548,M08.831 ",.02)
 ;;M08.831
 ;;9002226.02101,"548,M08.831 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.832 ",.01)
 ;;M08.832
 ;;9002226.02101,"548,M08.832 ",.02)
 ;;M08.832
 ;;9002226.02101,"548,M08.832 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.839 ",.01)
 ;;M08.839
 ;;9002226.02101,"548,M08.839 ",.02)
 ;;M08.839
 ;;9002226.02101,"548,M08.839 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.841 ",.01)
 ;;M08.841
 ;;9002226.02101,"548,M08.841 ",.02)
 ;;M08.841
 ;;9002226.02101,"548,M08.841 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.842 ",.01)
 ;;M08.842
 ;;9002226.02101,"548,M08.842 ",.02)
 ;;M08.842
 ;;9002226.02101,"548,M08.842 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.849 ",.01)
 ;;M08.849
 ;;9002226.02101,"548,M08.849 ",.02)
 ;;M08.849
 ;;9002226.02101,"548,M08.849 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.851 ",.01)
 ;;M08.851
 ;;9002226.02101,"548,M08.851 ",.02)
 ;;M08.851
 ;;9002226.02101,"548,M08.851 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.852 ",.01)
 ;;M08.852
 ;;9002226.02101,"548,M08.852 ",.02)
 ;;M08.852
 ;;9002226.02101,"548,M08.852 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.859 ",.01)
 ;;M08.859
 ;;9002226.02101,"548,M08.859 ",.02)
 ;;M08.859
 ;;9002226.02101,"548,M08.859 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.861 ",.01)
 ;;M08.861
 ;;9002226.02101,"548,M08.861 ",.02)
 ;;M08.861
 ;;9002226.02101,"548,M08.861 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.862 ",.01)
 ;;M08.862
 ;;9002226.02101,"548,M08.862 ",.02)
 ;;M08.862
 ;;9002226.02101,"548,M08.862 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.869 ",.01)
 ;;M08.869
 ;;9002226.02101,"548,M08.869 ",.02)
 ;;M08.869
 ;;9002226.02101,"548,M08.869 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.871 ",.01)
 ;;M08.871
 ;;9002226.02101,"548,M08.871 ",.02)
 ;;M08.871
 ;;9002226.02101,"548,M08.871 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.872 ",.01)
 ;;M08.872
 ;;9002226.02101,"548,M08.872 ",.02)
 ;;M08.872
 ;;9002226.02101,"548,M08.872 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.879 ",.01)
 ;;M08.879
 ;;9002226.02101,"548,M08.879 ",.02)
 ;;M08.879
 ;;9002226.02101,"548,M08.879 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.88 ",.01)
 ;;M08.88
 ;;9002226.02101,"548,M08.88 ",.02)
 ;;M08.88
 ;;9002226.02101,"548,M08.88 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.89 ",.01)
 ;;M08.89
 ;;9002226.02101,"548,M08.89 ",.02)
 ;;M08.89
 ;;9002226.02101,"548,M08.89 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.90 ",.01)
 ;;M08.90
 ;;9002226.02101,"548,M08.90 ",.02)
 ;;M08.90
 ;;9002226.02101,"548,M08.90 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.911 ",.01)
 ;;M08.911
 ;;9002226.02101,"548,M08.911 ",.02)
 ;;M08.911
 ;;9002226.02101,"548,M08.911 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.912 ",.01)
 ;;M08.912
 ;;9002226.02101,"548,M08.912 ",.02)
 ;;M08.912
 ;;9002226.02101,"548,M08.912 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.919 ",.01)
 ;;M08.919
 ;;9002226.02101,"548,M08.919 ",.02)
 ;;M08.919
 ;;9002226.02101,"548,M08.919 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.921 ",.01)
 ;;M08.921
 ;;9002226.02101,"548,M08.921 ",.02)
 ;;M08.921
 ;;9002226.02101,"548,M08.921 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.922 ",.01)
 ;;M08.922
 ;;9002226.02101,"548,M08.922 ",.02)
 ;;M08.922
 ;;9002226.02101,"548,M08.922 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.929 ",.01)
 ;;M08.929
 ;;9002226.02101,"548,M08.929 ",.02)
 ;;M08.929
 ;;9002226.02101,"548,M08.929 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.931 ",.01)
 ;;M08.931
 ;;9002226.02101,"548,M08.931 ",.02)
 ;;M08.931
 ;;9002226.02101,"548,M08.931 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.932 ",.01)
 ;;M08.932
 ;;9002226.02101,"548,M08.932 ",.02)
 ;;M08.932
 ;;9002226.02101,"548,M08.932 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.939 ",.01)
 ;;M08.939
 ;;9002226.02101,"548,M08.939 ",.02)
 ;;M08.939
 ;;9002226.02101,"548,M08.939 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.941 ",.01)
 ;;M08.941
 ;;9002226.02101,"548,M08.941 ",.02)
 ;;M08.941
 ;;9002226.02101,"548,M08.941 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.942 ",.01)
 ;;M08.942
 ;;9002226.02101,"548,M08.942 ",.02)
 ;;M08.942
 ;;9002226.02101,"548,M08.942 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.949 ",.01)
 ;;M08.949
 ;;9002226.02101,"548,M08.949 ",.02)
 ;;M08.949
 ;;9002226.02101,"548,M08.949 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.951 ",.01)
 ;;M08.951
 ;;9002226.02101,"548,M08.951 ",.02)
 ;;M08.951
 ;;9002226.02101,"548,M08.951 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.952 ",.01)
 ;;M08.952
 ;;9002226.02101,"548,M08.952 ",.02)
 ;;M08.952
 ;;9002226.02101,"548,M08.952 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.959 ",.01)
 ;;M08.959
 ;;9002226.02101,"548,M08.959 ",.02)
 ;;M08.959
 ;;9002226.02101,"548,M08.959 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.961 ",.01)
 ;;M08.961
 ;;9002226.02101,"548,M08.961 ",.02)
 ;;M08.961
 ;;9002226.02101,"548,M08.961 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.962 ",.01)
 ;;M08.962
 ;;9002226.02101,"548,M08.962 ",.02)
 ;;M08.962
 ;;9002226.02101,"548,M08.962 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.969 ",.01)
 ;;M08.969
 ;;9002226.02101,"548,M08.969 ",.02)
 ;;M08.969
 ;;9002226.02101,"548,M08.969 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.971 ",.01)
 ;;M08.971
 ;;9002226.02101,"548,M08.971 ",.02)
 ;;M08.971
 ;;9002226.02101,"548,M08.971 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.972 ",.01)
 ;;M08.972
 ;;9002226.02101,"548,M08.972 ",.02)
 ;;M08.972
 ;;9002226.02101,"548,M08.972 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.979 ",.01)
 ;;M08.979
 ;;9002226.02101,"548,M08.979 ",.02)
 ;;M08.979
 ;;9002226.02101,"548,M08.979 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.98 ",.01)
 ;;M08.98
 ;;9002226.02101,"548,M08.98 ",.02)
 ;;M08.98
 ;;9002226.02101,"548,M08.98 ",.03)
 ;;30
 ;;9002226.02101,"548,M08.99 ",.01)
 ;;M08.99
 ;;9002226.02101,"548,M08.99 ",.02)
 ;;M08.99
 ;;9002226.02101,"548,M08.99 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.00 ",.01)
 ;;M12.00
 ;;9002226.02101,"548,M12.00 ",.02)
 ;;M12.00
 ;;9002226.02101,"548,M12.00 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.011 ",.01)
 ;;M12.011
 ;;9002226.02101,"548,M12.011 ",.02)
 ;;M12.011
 ;;9002226.02101,"548,M12.011 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.012 ",.01)
 ;;M12.012
 ;;9002226.02101,"548,M12.012 ",.02)
 ;;M12.012
 ;;9002226.02101,"548,M12.012 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.019 ",.01)
 ;;M12.019
 ;;9002226.02101,"548,M12.019 ",.02)
 ;;M12.019
 ;;9002226.02101,"548,M12.019 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.021 ",.01)
 ;;M12.021
 ;;9002226.02101,"548,M12.021 ",.02)
 ;;M12.021
 ;;9002226.02101,"548,M12.021 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.022 ",.01)
 ;;M12.022
 ;;9002226.02101,"548,M12.022 ",.02)
 ;;M12.022
 ;;9002226.02101,"548,M12.022 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.029 ",.01)
 ;;M12.029
 ;;9002226.02101,"548,M12.029 ",.02)
 ;;M12.029
 ;;9002226.02101,"548,M12.029 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.031 ",.01)
 ;;M12.031
 ;;9002226.02101,"548,M12.031 ",.02)
 ;;M12.031
 ;;9002226.02101,"548,M12.031 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.032 ",.01)
 ;;M12.032
 ;;9002226.02101,"548,M12.032 ",.02)
 ;;M12.032
 ;;9002226.02101,"548,M12.032 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.039 ",.01)
 ;;M12.039
 ;;9002226.02101,"548,M12.039 ",.02)
 ;;M12.039
 ;;9002226.02101,"548,M12.039 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.041 ",.01)
 ;;M12.041
 ;;9002226.02101,"548,M12.041 ",.02)
 ;;M12.041
 ;;9002226.02101,"548,M12.041 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.042 ",.01)
 ;;M12.042
 ;;9002226.02101,"548,M12.042 ",.02)
 ;;M12.042
 ;;9002226.02101,"548,M12.042 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.049 ",.01)
 ;;M12.049
 ;;9002226.02101,"548,M12.049 ",.02)
 ;;M12.049
 ;;9002226.02101,"548,M12.049 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.051 ",.01)
 ;;M12.051
 ;;9002226.02101,"548,M12.051 ",.02)
 ;;M12.051
 ;;9002226.02101,"548,M12.051 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.052 ",.01)
 ;;M12.052
 ;;9002226.02101,"548,M12.052 ",.02)
 ;;M12.052
 ;;9002226.02101,"548,M12.052 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.059 ",.01)
 ;;M12.059
 ;;9002226.02101,"548,M12.059 ",.02)
 ;;M12.059
 ;;9002226.02101,"548,M12.059 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.061 ",.01)
 ;;M12.061
 ;;9002226.02101,"548,M12.061 ",.02)
 ;;M12.061
 ;;9002226.02101,"548,M12.061 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.062 ",.01)
 ;;M12.062
 ;;9002226.02101,"548,M12.062 ",.02)
 ;;M12.062
 ;;9002226.02101,"548,M12.062 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.069 ",.01)
 ;;M12.069
 ;;9002226.02101,"548,M12.069 ",.02)
 ;;M12.069
 ;;9002226.02101,"548,M12.069 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.071 ",.01)
 ;;M12.071
 ;;9002226.02101,"548,M12.071 ",.02)
 ;;M12.071
 ;;9002226.02101,"548,M12.071 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.072 ",.01)
 ;;M12.072
 ;;9002226.02101,"548,M12.072 ",.02)
 ;;M12.072
 ;;9002226.02101,"548,M12.072 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.079 ",.01)
 ;;M12.079
 ;;9002226.02101,"548,M12.079 ",.02)
 ;;M12.079
 ;;9002226.02101,"548,M12.079 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.08 ",.01)
 ;;M12.08
 ;;9002226.02101,"548,M12.08 ",.02)
 ;;M12.08
 ;;9002226.02101,"548,M12.08 ",.03)
 ;;30
 ;;9002226.02101,"548,M12.09 ",.01)
 ;;M12.09
 ;;9002226.02101,"548,M12.09 ",.02)
 ;;M12.09
 ;;9002226.02101,"548,M12.09 ",.03)
 ;;30
 ;;9002226.04101,"548,1",.01)
 ;;BGP