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.
  1. ATXD3T6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 2013;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"548,M08.471 ",.02)
  1. ;;M08.471
  1. ;;9002226.02101,"548,M08.471 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.472 ",.01)
  1. ;;M08.472
  1. ;;9002226.02101,"548,M08.472 ",.02)
  1. ;;M08.472
  1. ;;9002226.02101,"548,M08.472 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.479 ",.01)
  1. ;;M08.479
  1. ;;9002226.02101,"548,M08.479 ",.02)
  1. ;;M08.479
  1. ;;9002226.02101,"548,M08.479 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.48 ",.01)
  1. ;;M08.48
  1. ;;9002226.02101,"548,M08.48 ",.02)
  1. ;;M08.48
  1. ;;9002226.02101,"548,M08.48 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.80 ",.01)
  1. ;;M08.80
  1. ;;9002226.02101,"548,M08.80 ",.02)
  1. ;;M08.80
  1. ;;9002226.02101,"548,M08.80 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.811 ",.01)
  1. ;;M08.811
  1. ;;9002226.02101,"548,M08.811 ",.02)
  1. ;;M08.811
  1. ;;9002226.02101,"548,M08.811 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.812 ",.01)
  1. ;;M08.812
  1. ;;9002226.02101,"548,M08.812 ",.02)
  1. ;;M08.812
  1. ;;9002226.02101,"548,M08.812 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.819 ",.01)
  1. ;;M08.819
  1. ;;9002226.02101,"548,M08.819 ",.02)
  1. ;;M08.819
  1. ;;9002226.02101,"548,M08.819 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.821 ",.01)
  1. ;;M08.821
  1. ;;9002226.02101,"548,M08.821 ",.02)
  1. ;;M08.821
  1. ;;9002226.02101,"548,M08.821 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.822 ",.01)
  1. ;;M08.822
  1. ;;9002226.02101,"548,M08.822 ",.02)
  1. ;;M08.822
  1. ;;9002226.02101,"548,M08.822 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.829 ",.01)
  1. ;;M08.829
  1. ;;9002226.02101,"548,M08.829 ",.02)
  1. ;;M08.829
  1. ;;9002226.02101,"548,M08.829 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.831 ",.01)
  1. ;;M08.831
  1. ;;9002226.02101,"548,M08.831 ",.02)
  1. ;;M08.831
  1. ;;9002226.02101,"548,M08.831 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.832 ",.01)
  1. ;;M08.832
  1. ;;9002226.02101,"548,M08.832 ",.02)
  1. ;;M08.832
  1. ;;9002226.02101,"548,M08.832 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.839 ",.01)
  1. ;;M08.839
  1. ;;9002226.02101,"548,M08.839 ",.02)
  1. ;;M08.839
  1. ;;9002226.02101,"548,M08.839 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.841 ",.01)
  1. ;;M08.841
  1. ;;9002226.02101,"548,M08.841 ",.02)
  1. ;;M08.841
  1. ;;9002226.02101,"548,M08.841 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.842 ",.01)
  1. ;;M08.842
  1. ;;9002226.02101,"548,M08.842 ",.02)
  1. ;;M08.842
  1. ;;9002226.02101,"548,M08.842 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.849 ",.01)
  1. ;;M08.849
  1. ;;9002226.02101,"548,M08.849 ",.02)
  1. ;;M08.849
  1. ;;9002226.02101,"548,M08.849 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.851 ",.01)
  1. ;;M08.851
  1. ;;9002226.02101,"548,M08.851 ",.02)
  1. ;;M08.851
  1. ;;9002226.02101,"548,M08.851 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.852 ",.01)
  1. ;;M08.852
  1. ;;9002226.02101,"548,M08.852 ",.02)
  1. ;;M08.852
  1. ;;9002226.02101,"548,M08.852 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.859 ",.01)
  1. ;;M08.859
  1. ;;9002226.02101,"548,M08.859 ",.02)
  1. ;;M08.859
  1. ;;9002226.02101,"548,M08.859 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.861 ",.01)
  1. ;;M08.861
  1. ;;9002226.02101,"548,M08.861 ",.02)
  1. ;;M08.861
  1. ;;9002226.02101,"548,M08.861 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.862 ",.01)
  1. ;;M08.862
  1. ;;9002226.02101,"548,M08.862 ",.02)
  1. ;;M08.862
  1. ;;9002226.02101,"548,M08.862 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.869 ",.01)
  1. ;;M08.869
  1. ;;9002226.02101,"548,M08.869 ",.02)
  1. ;;M08.869
  1. ;;9002226.02101,"548,M08.869 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.871 ",.01)
  1. ;;M08.871
  1. ;;9002226.02101,"548,M08.871 ",.02)
  1. ;;M08.871
  1. ;;9002226.02101,"548,M08.871 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.872 ",.01)
  1. ;;M08.872
  1. ;;9002226.02101,"548,M08.872 ",.02)
  1. ;;M08.872
  1. ;;9002226.02101,"548,M08.872 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.879 ",.01)
  1. ;;M08.879
  1. ;;9002226.02101,"548,M08.879 ",.02)
  1. ;;M08.879
  1. ;;9002226.02101,"548,M08.879 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.88 ",.01)
  1. ;;M08.88
  1. ;;9002226.02101,"548,M08.88 ",.02)
  1. ;;M08.88
  1. ;;9002226.02101,"548,M08.88 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.89 ",.01)
  1. ;;M08.89
  1. ;;9002226.02101,"548,M08.89 ",.02)
  1. ;;M08.89
  1. ;;9002226.02101,"548,M08.89 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.90 ",.01)
  1. ;;M08.90
  1. ;;9002226.02101,"548,M08.90 ",.02)
  1. ;;M08.90
  1. ;;9002226.02101,"548,M08.90 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.911 ",.01)
  1. ;;M08.911
  1. ;;9002226.02101,"548,M08.911 ",.02)
  1. ;;M08.911
  1. ;;9002226.02101,"548,M08.911 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.912 ",.01)
  1. ;;M08.912
  1. ;;9002226.02101,"548,M08.912 ",.02)
  1. ;;M08.912
  1. ;;9002226.02101,"548,M08.912 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.919 ",.01)
  1. ;;M08.919
  1. ;;9002226.02101,"548,M08.919 ",.02)
  1. ;;M08.919
  1. ;;9002226.02101,"548,M08.919 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.921 ",.01)
  1. ;;M08.921
  1. ;;9002226.02101,"548,M08.921 ",.02)
  1. ;;M08.921
  1. ;;9002226.02101,"548,M08.921 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.922 ",.01)
  1. ;;M08.922
  1. ;;9002226.02101,"548,M08.922 ",.02)
  1. ;;M08.922
  1. ;;9002226.02101,"548,M08.922 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.929 ",.01)
  1. ;;M08.929
  1. ;;9002226.02101,"548,M08.929 ",.02)
  1. ;;M08.929
  1. ;;9002226.02101,"548,M08.929 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.931 ",.01)
  1. ;;M08.931
  1. ;;9002226.02101,"548,M08.931 ",.02)
  1. ;;M08.931
  1. ;;9002226.02101,"548,M08.931 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.932 ",.01)
  1. ;;M08.932
  1. ;;9002226.02101,"548,M08.932 ",.02)
  1. ;;M08.932
  1. ;;9002226.02101,"548,M08.932 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.939 ",.01)
  1. ;;M08.939
  1. ;;9002226.02101,"548,M08.939 ",.02)
  1. ;;M08.939
  1. ;;9002226.02101,"548,M08.939 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.941 ",.01)
  1. ;;M08.941
  1. ;;9002226.02101,"548,M08.941 ",.02)
  1. ;;M08.941
  1. ;;9002226.02101,"548,M08.941 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.942 ",.01)
  1. ;;M08.942
  1. ;;9002226.02101,"548,M08.942 ",.02)
  1. ;;M08.942
  1. ;;9002226.02101,"548,M08.942 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.949 ",.01)
  1. ;;M08.949
  1. ;;9002226.02101,"548,M08.949 ",.02)
  1. ;;M08.949
  1. ;;9002226.02101,"548,M08.949 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.951 ",.01)
  1. ;;M08.951
  1. ;;9002226.02101,"548,M08.951 ",.02)
  1. ;;M08.951
  1. ;;9002226.02101,"548,M08.951 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.952 ",.01)
  1. ;;M08.952
  1. ;;9002226.02101,"548,M08.952 ",.02)
  1. ;;M08.952
  1. ;;9002226.02101,"548,M08.952 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.959 ",.01)
  1. ;;M08.959
  1. ;;9002226.02101,"548,M08.959 ",.02)
  1. ;;M08.959
  1. ;;9002226.02101,"548,M08.959 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.961 ",.01)
  1. ;;M08.961
  1. ;;9002226.02101,"548,M08.961 ",.02)
  1. ;;M08.961
  1. ;;9002226.02101,"548,M08.961 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.962 ",.01)
  1. ;;M08.962
  1. ;;9002226.02101,"548,M08.962 ",.02)
  1. ;;M08.962
  1. ;;9002226.02101,"548,M08.962 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.969 ",.01)
  1. ;;M08.969
  1. ;;9002226.02101,"548,M08.969 ",.02)
  1. ;;M08.969
  1. ;;9002226.02101,"548,M08.969 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.971 ",.01)
  1. ;;M08.971
  1. ;;9002226.02101,"548,M08.971 ",.02)
  1. ;;M08.971
  1. ;;9002226.02101,"548,M08.971 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.972 ",.01)
  1. ;;M08.972
  1. ;;9002226.02101,"548,M08.972 ",.02)
  1. ;;M08.972
  1. ;;9002226.02101,"548,M08.972 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.979 ",.01)
  1. ;;M08.979
  1. ;;9002226.02101,"548,M08.979 ",.02)
  1. ;;M08.979
  1. ;;9002226.02101,"548,M08.979 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.98 ",.01)
  1. ;;M08.98
  1. ;;9002226.02101,"548,M08.98 ",.02)
  1. ;;M08.98
  1. ;;9002226.02101,"548,M08.98 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M08.99 ",.01)
  1. ;;M08.99
  1. ;;9002226.02101,"548,M08.99 ",.02)
  1. ;;M08.99
  1. ;;9002226.02101,"548,M08.99 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.00 ",.01)
  1. ;;M12.00
  1. ;;9002226.02101,"548,M12.00 ",.02)
  1. ;;M12.00
  1. ;;9002226.02101,"548,M12.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.011 ",.01)
  1. ;;M12.011
  1. ;;9002226.02101,"548,M12.011 ",.02)
  1. ;;M12.011
  1. ;;9002226.02101,"548,M12.011 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.012 ",.01)
  1. ;;M12.012
  1. ;;9002226.02101,"548,M12.012 ",.02)
  1. ;;M12.012
  1. ;;9002226.02101,"548,M12.012 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.019 ",.01)
  1. ;;M12.019
  1. ;;9002226.02101,"548,M12.019 ",.02)
  1. ;;M12.019
  1. ;;9002226.02101,"548,M12.019 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.021 ",.01)
  1. ;;M12.021
  1. ;;9002226.02101,"548,M12.021 ",.02)
  1. ;;M12.021
  1. ;;9002226.02101,"548,M12.021 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.022 ",.01)
  1. ;;M12.022
  1. ;;9002226.02101,"548,M12.022 ",.02)
  1. ;;M12.022
  1. ;;9002226.02101,"548,M12.022 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.029 ",.01)
  1. ;;M12.029
  1. ;;9002226.02101,"548,M12.029 ",.02)
  1. ;;M12.029
  1. ;;9002226.02101,"548,M12.029 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.031 ",.01)
  1. ;;M12.031
  1. ;;9002226.02101,"548,M12.031 ",.02)
  1. ;;M12.031
  1. ;;9002226.02101,"548,M12.031 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.032 ",.01)
  1. ;;M12.032
  1. ;;9002226.02101,"548,M12.032 ",.02)
  1. ;;M12.032
  1. ;;9002226.02101,"548,M12.032 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.039 ",.01)
  1. ;;M12.039
  1. ;;9002226.02101,"548,M12.039 ",.02)
  1. ;;M12.039
  1. ;;9002226.02101,"548,M12.039 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.041 ",.01)
  1. ;;M12.041
  1. ;;9002226.02101,"548,M12.041 ",.02)
  1. ;;M12.041
  1. ;;9002226.02101,"548,M12.041 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.042 ",.01)
  1. ;;M12.042
  1. ;;9002226.02101,"548,M12.042 ",.02)
  1. ;;M12.042
  1. ;;9002226.02101,"548,M12.042 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.049 ",.01)
  1. ;;M12.049
  1. ;;9002226.02101,"548,M12.049 ",.02)
  1. ;;M12.049
  1. ;;9002226.02101,"548,M12.049 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.051 ",.01)
  1. ;;M12.051
  1. ;;9002226.02101,"548,M12.051 ",.02)
  1. ;;M12.051
  1. ;;9002226.02101,"548,M12.051 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.052 ",.01)
  1. ;;M12.052
  1. ;;9002226.02101,"548,M12.052 ",.02)
  1. ;;M12.052
  1. ;;9002226.02101,"548,M12.052 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.059 ",.01)
  1. ;;M12.059
  1. ;;9002226.02101,"548,M12.059 ",.02)
  1. ;;M12.059
  1. ;;9002226.02101,"548,M12.059 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.061 ",.01)
  1. ;;M12.061
  1. ;;9002226.02101,"548,M12.061 ",.02)
  1. ;;M12.061
  1. ;;9002226.02101,"548,M12.061 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.062 ",.01)
  1. ;;M12.062
  1. ;;9002226.02101,"548,M12.062 ",.02)
  1. ;;M12.062
  1. ;;9002226.02101,"548,M12.062 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.069 ",.01)
  1. ;;M12.069
  1. ;;9002226.02101,"548,M12.069 ",.02)
  1. ;;M12.069
  1. ;;9002226.02101,"548,M12.069 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.071 ",.01)
  1. ;;M12.071
  1. ;;9002226.02101,"548,M12.071 ",.02)
  1. ;;M12.071
  1. ;;9002226.02101,"548,M12.071 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.072 ",.01)
  1. ;;M12.072
  1. ;;9002226.02101,"548,M12.072 ",.02)
  1. ;;M12.072
  1. ;;9002226.02101,"548,M12.072 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.079 ",.01)
  1. ;;M12.079
  1. ;;9002226.02101,"548,M12.079 ",.02)
  1. ;;M12.079
  1. ;;9002226.02101,"548,M12.079 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.08 ",.01)
  1. ;;M12.08
  1. ;;9002226.02101,"548,M12.08 ",.02)
  1. ;;M12.08
  1. ;;9002226.02101,"548,M12.08 ",.03)
  1. ;;30
  1. ;;9002226.02101,"548,M12.09 ",.01)
  1. ;;M12.09
  1. ;;9002226.02101,"548,M12.09 ",.02)
  1. ;;M12.09
  1. ;;9002226.02101,"548,M12.09 ",.03)
  1. ;;30
  1. ;;9002226.04101,"548,1",.01)
  1. ;;BGP