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

ATXD7H6.m

Go to the documentation of this file.
ATXD7H6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 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,"809,N04.2 ",.01)
 ;;N04.2 
 ;;9002226.02101,"809,N04.2 ",.02)
 ;;N04.2 
 ;;9002226.02101,"809,N04.2 ",.03)
 ;;30
 ;;9002226.02101,"809,N04.3 ",.01)
 ;;N04.3 
 ;;9002226.02101,"809,N04.3 ",.02)
 ;;N04.3 
 ;;9002226.02101,"809,N04.3 ",.03)
 ;;30
 ;;9002226.02101,"809,N04.4 ",.01)
 ;;N04.4 
 ;;9002226.02101,"809,N04.4 ",.02)
 ;;N04.4 
 ;;9002226.02101,"809,N04.4 ",.03)
 ;;30
 ;;9002226.02101,"809,N04.5 ",.01)
 ;;N04.5 
 ;;9002226.02101,"809,N04.5 ",.02)
 ;;N04.5 
 ;;9002226.02101,"809,N04.5 ",.03)
 ;;30
 ;;9002226.02101,"809,N04.6 ",.01)
 ;;N04.6 
 ;;9002226.02101,"809,N04.6 ",.02)
 ;;N04.6 
 ;;9002226.02101,"809,N04.6 ",.03)
 ;;30
 ;;9002226.02101,"809,N04.7 ",.01)
 ;;N04.7 
 ;;9002226.02101,"809,N04.7 ",.02)
 ;;N04.7 
 ;;9002226.02101,"809,N04.7 ",.03)
 ;;30
 ;;9002226.02101,"809,N04.8 ",.01)
 ;;N04.8 
 ;;9002226.02101,"809,N04.8 ",.02)
 ;;N04.8 
 ;;9002226.02101,"809,N04.8 ",.03)
 ;;30
 ;;9002226.02101,"809,N04.9 ",.01)
 ;;N04.9 
 ;;9002226.02101,"809,N04.9 ",.02)
 ;;N04.9 
 ;;9002226.02101,"809,N04.9 ",.03)
 ;;30
 ;;9002226.02101,"809,N08. ",.01)
 ;;N08. 
 ;;9002226.02101,"809,N08. ",.02)
 ;;N08. 
 ;;9002226.02101,"809,N08. ",.03)
 ;;30
 ;;9002226.02101,"809,N18.6 ",.01)
 ;;N18.6 
 ;;9002226.02101,"809,N18.6 ",.02)
 ;;N18.6 
 ;;9002226.02101,"809,N18.6 ",.03)
 ;;30
 ;;9002226.02101,"809,N18.9 ",.01)
 ;;N18.9 
 ;;9002226.02101,"809,N18.9 ",.02)
 ;;N18.9 
 ;;9002226.02101,"809,N18.9 ",.03)
 ;;30
 ;;9002226.02101,"809,N19. ",.01)
 ;;N19. 
 ;;9002226.02101,"809,N19. ",.02)
 ;;N19. 
 ;;9002226.02101,"809,N19. ",.03)
 ;;30
 ;;9002226.02101,"809,T86.00 ",.01)
 ;;T86.00 
 ;;9002226.02101,"809,T86.00 ",.02)
 ;;T86.00 
 ;;9002226.02101,"809,T86.00 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.01 ",.01)
 ;;T86.01 
 ;;9002226.02101,"809,T86.01 ",.02)
 ;;T86.01 
 ;;9002226.02101,"809,T86.01 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.02 ",.01)
 ;;T86.02 
 ;;9002226.02101,"809,T86.02 ",.02)
 ;;T86.02 
 ;;9002226.02101,"809,T86.02 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.03 ",.01)
 ;;T86.03 
 ;;9002226.02101,"809,T86.03 ",.02)
 ;;T86.03 
 ;;9002226.02101,"809,T86.03 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.09 ",.01)
 ;;T86.09 
 ;;9002226.02101,"809,T86.09 ",.02)
 ;;T86.09 
 ;;9002226.02101,"809,T86.09 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.10 ",.01)
 ;;T86.10 
 ;;9002226.02101,"809,T86.10 ",.02)
 ;;T86.10 
 ;;9002226.02101,"809,T86.10 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.11 ",.01)
 ;;T86.11 
 ;;9002226.02101,"809,T86.11 ",.02)
 ;;T86.11 
 ;;9002226.02101,"809,T86.11 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.12 ",.01)
 ;;T86.12 
 ;;9002226.02101,"809,T86.12 ",.02)
 ;;T86.12 
 ;;9002226.02101,"809,T86.12 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.13 ",.01)
 ;;T86.13 
 ;;9002226.02101,"809,T86.13 ",.02)
 ;;T86.13 
 ;;9002226.02101,"809,T86.13 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.19 ",.01)
 ;;T86.19 
 ;;9002226.02101,"809,T86.19 ",.02)
 ;;T86.19 
 ;;9002226.02101,"809,T86.19 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.20 ",.01)
 ;;T86.20 
 ;;9002226.02101,"809,T86.20 ",.02)
 ;;T86.20 
 ;;9002226.02101,"809,T86.20 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.21 ",.01)
 ;;T86.21 
 ;;9002226.02101,"809,T86.21 ",.02)
 ;;T86.21 
 ;;9002226.02101,"809,T86.21 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.22 ",.01)
 ;;T86.22 
 ;;9002226.02101,"809,T86.22 ",.02)
 ;;T86.22 
 ;;9002226.02101,"809,T86.22 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.23 ",.01)
 ;;T86.23 
 ;;9002226.02101,"809,T86.23 ",.02)
 ;;T86.23 
 ;;9002226.02101,"809,T86.23 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.290 ",.01)
 ;;T86.290 
 ;;9002226.02101,"809,T86.290 ",.02)
 ;;T86.290 
 ;;9002226.02101,"809,T86.290 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.298 ",.01)
 ;;T86.298 
 ;;9002226.02101,"809,T86.298 ",.02)
 ;;T86.298 
 ;;9002226.02101,"809,T86.298 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.30 ",.01)
 ;;T86.30 
 ;;9002226.02101,"809,T86.30 ",.02)
 ;;T86.30 
 ;;9002226.02101,"809,T86.30 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.31 ",.01)
 ;;T86.31 
 ;;9002226.02101,"809,T86.31 ",.02)
 ;;T86.31 
 ;;9002226.02101,"809,T86.31 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.32 ",.01)
 ;;T86.32 
 ;;9002226.02101,"809,T86.32 ",.02)
 ;;T86.32 
 ;;9002226.02101,"809,T86.32 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.33 ",.01)
 ;;T86.33 
 ;;9002226.02101,"809,T86.33 ",.02)
 ;;T86.33 
 ;;9002226.02101,"809,T86.33 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.39 ",.01)
 ;;T86.39 
 ;;9002226.02101,"809,T86.39 ",.02)
 ;;T86.39 
 ;;9002226.02101,"809,T86.39 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.40 ",.01)
 ;;T86.40 
 ;;9002226.02101,"809,T86.40 ",.02)
 ;;T86.40 
 ;;9002226.02101,"809,T86.40 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.41 ",.01)
 ;;T86.41 
 ;;9002226.02101,"809,T86.41 ",.02)
 ;;T86.41 
 ;;9002226.02101,"809,T86.41 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.42 ",.01)
 ;;T86.42 
 ;;9002226.02101,"809,T86.42 ",.02)
 ;;T86.42 
 ;;9002226.02101,"809,T86.42 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.43 ",.01)
 ;;T86.43 
 ;;9002226.02101,"809,T86.43 ",.02)
 ;;T86.43 
 ;;9002226.02101,"809,T86.43 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.49 ",.01)
 ;;T86.49 
 ;;9002226.02101,"809,T86.49 ",.02)
 ;;T86.49 
 ;;9002226.02101,"809,T86.49 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.5 ",.01)
 ;;T86.5 
 ;;9002226.02101,"809,T86.5 ",.02)
 ;;T86.5 
 ;;9002226.02101,"809,T86.5 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.810 ",.01)
 ;;T86.810 
 ;;9002226.02101,"809,T86.810 ",.02)
 ;;T86.810 
 ;;9002226.02101,"809,T86.810 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.811 ",.01)
 ;;T86.811 
 ;;9002226.02101,"809,T86.811 ",.02)
 ;;T86.811 
 ;;9002226.02101,"809,T86.811 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.812 ",.01)
 ;;T86.812 
 ;;9002226.02101,"809,T86.812 ",.02)
 ;;T86.812 
 ;;9002226.02101,"809,T86.812 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.818 ",.01)
 ;;T86.818 
 ;;9002226.02101,"809,T86.818 ",.02)
 ;;T86.818 
 ;;9002226.02101,"809,T86.818 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.819 ",.01)
 ;;T86.819 
 ;;9002226.02101,"809,T86.819 ",.02)
 ;;T86.819 
 ;;9002226.02101,"809,T86.819 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.830 ",.01)
 ;;T86.830 
 ;;9002226.02101,"809,T86.830 ",.02)
 ;;T86.830 
 ;;9002226.02101,"809,T86.830 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.831 ",.01)
 ;;T86.831 
 ;;9002226.02101,"809,T86.831 ",.02)
 ;;T86.831 
 ;;9002226.02101,"809,T86.831 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.832 ",.01)
 ;;T86.832 
 ;;9002226.02101,"809,T86.832 ",.02)
 ;;T86.832 
 ;;9002226.02101,"809,T86.832 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.838 ",.01)
 ;;T86.838 
 ;;9002226.02101,"809,T86.838 ",.02)
 ;;T86.838 
 ;;9002226.02101,"809,T86.838 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.839 ",.01)
 ;;T86.839 
 ;;9002226.02101,"809,T86.839 ",.02)
 ;;T86.839 
 ;;9002226.02101,"809,T86.839 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.850 ",.01)
 ;;T86.850 
 ;;9002226.02101,"809,T86.850 ",.02)
 ;;T86.850 
 ;;9002226.02101,"809,T86.850 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.851 ",.01)
 ;;T86.851 
 ;;9002226.02101,"809,T86.851 ",.02)
 ;;T86.851 
 ;;9002226.02101,"809,T86.851 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.852 ",.01)
 ;;T86.852 
 ;;9002226.02101,"809,T86.852 ",.02)
 ;;T86.852 
 ;;9002226.02101,"809,T86.852 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.858 ",.01)
 ;;T86.858 
 ;;9002226.02101,"809,T86.858 ",.02)
 ;;T86.858 
 ;;9002226.02101,"809,T86.858 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.859 ",.01)
 ;;T86.859 
 ;;9002226.02101,"809,T86.859 ",.02)
 ;;T86.859 
 ;;9002226.02101,"809,T86.859 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.890 ",.01)
 ;;T86.890 
 ;;9002226.02101,"809,T86.890 ",.02)
 ;;T86.890 
 ;;9002226.02101,"809,T86.890 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.891 ",.01)
 ;;T86.891 
 ;;9002226.02101,"809,T86.891 ",.02)
 ;;T86.891 
 ;;9002226.02101,"809,T86.891 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.892 ",.01)
 ;;T86.892 
 ;;9002226.02101,"809,T86.892 ",.02)
 ;;T86.892 
 ;;9002226.02101,"809,T86.892 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.898 ",.01)
 ;;T86.898 
 ;;9002226.02101,"809,T86.898 ",.02)
 ;;T86.898 
 ;;9002226.02101,"809,T86.898 ",.03)
 ;;30
 ;;9002226.02101,"809,T86.899 ",.01)
 ;;T86.899 
 ;;9002226.02101,"809,T86.899 ",.02)
 ;;T86.899 
 ;;9002226.02101,"809,T86.899 ",.03)
 ;;30
 ;;9002226.02101,"809,V42.0 ",.01)
 ;;V42.0
 ;;9002226.02101,"809,V42.0 ",.02)
 ;;V42.89
 ;;9002226.02101,"809,V42.0 ",.03)
 ;;1
 ;;9002226.02101,"809,V58.1 ",.01)
 ;;V58.1
 ;;9002226.02101,"809,V58.1 ",.02)
 ;;V58.1
 ;;9002226.02101,"809,V58.1 ",.03)
 ;;1
 ;;9002226.02101,"809,V67.2 ",.01)
 ;;V67.2
 ;;9002226.02101,"809,V67.2 ",.02)
 ;;V67.2
 ;;9002226.02101,"809,V67.2 ",.03)
 ;;1
 ;;9002226.02101,"809,Z08. ",.01)
 ;;Z08. 
 ;;9002226.02101,"809,Z08. ",.02)
 ;;Z08. 
 ;;9002226.02101,"809,Z08. ",.03)
 ;;30
 ;;9002226.02101,"809,Z21. ",.01)
 ;;Z21. 
 ;;9002226.02101,"809,Z21. ",.02)
 ;;Z21. 
 ;;9002226.02101,"809,Z21. ",.03)
 ;;30
 ;;9002226.02101,"809,Z48.21 ",.01)
 ;;Z48.21 
 ;;9002226.02101,"809,Z48.21 ",.02)
 ;;Z48.21 
 ;;9002226.02101,"809,Z48.21 ",.03)
 ;;30
 ;;9002226.02101,"809,Z48.22 ",.01)
 ;;Z48.22 
 ;;9002226.02101,"809,Z48.22 ",.02)
 ;;Z48.22 
 ;;9002226.02101,"809,Z48.22 ",.03)
 ;;30
 ;;9002226.02101,"809,Z48.23 ",.01)
 ;;Z48.23 
 ;;9002226.02101,"809,Z48.23 ",.02)
 ;;Z48.23 
 ;;9002226.02101,"809,Z48.23 ",.03)
 ;;30
 ;;9002226.02101,"809,Z48.24 ",.01)
 ;;Z48.24 
 ;;9002226.02101,"809,Z48.24 ",.02)
 ;;Z48.24 
 ;;9002226.02101,"809,Z48.24 ",.03)
 ;;30
 ;;9002226.02101,"809,Z48.280 ",.01)
 ;;Z48.280 
 ;;9002226.02101,"809,Z48.280 ",.02)
 ;;Z48.280 
 ;;9002226.02101,"809,Z48.280 ",.03)
 ;;30
 ;;9002226.02101,"809,Z48.290 ",.01)
 ;;Z48.290 
 ;;9002226.02101,"809,Z48.290 ",.02)
 ;;Z48.290 
 ;;9002226.02101,"809,Z48.290 ",.03)
 ;;30
 ;;9002226.02101,"809,Z51.11 ",.01)
 ;;Z51.11 
 ;;9002226.02101,"809,Z51.11 ",.02)
 ;;Z51.11 
 ;;9002226.02101,"809,Z51.11 ",.03)
 ;;30
 ;;9002226.02101,"809,Z51.12 ",.01)
 ;;Z51.12 
 ;;9002226.02101,"809,Z51.12 ",.02)
 ;;Z51.12 
 ;;9002226.02101,"809,Z51.12 ",.03)
 ;;30
 ;;9002226.02101,"809,Z94.0 ",.01)
 ;;Z94.0 
 ;;9002226.02101,"809,Z94.0 ",.02)
 ;;Z94.0 
 ;;9002226.02101,"809,Z94.0 ",.03)
 ;;30
 ;;9002226.02101,"809,Z94.1 ",.01)
 ;;Z94.1 
 ;;9002226.02101,"809,Z94.1 ",.02)
 ;;Z94.1 
 ;;9002226.02101,"809,Z94.1 ",.03)
 ;;30
 ;;9002226.02101,"809,Z94.2 ",.01)
 ;;Z94.2 
 ;;9002226.02101,"809,Z94.2 ",.02)
 ;;Z94.2 
 ;;9002226.02101,"809,Z94.2 ",.03)
 ;;30
 ;;9002226.02101,"809,Z94.3 ",.01)
 ;;Z94.3 
 ;;9002226.02101,"809,Z94.3 ",.02)
 ;;Z94.3 
 ;;9002226.02101,"809,Z94.3 ",.03)
 ;;30
 ;;9002226.02101,"809,Z94.4 ",.01)
 ;;Z94.4 
 ;;9002226.02101,"809,Z94.4 ",.02)
 ;;Z94.4 
 ;;9002226.02101,"809,Z94.4 ",.03)
 ;;30
 ;;9002226.02101,"809,Z94.6 ",.01)
 ;;Z94.6 
 ;;9002226.02101,"809,Z94.6 ",.02)
 ;;Z94.6 
 ;;9002226.02101,"809,Z94.6 ",.03)
 ;;30
 ;;9002226.02101,"809,Z94.81 ",.01)
 ;;Z94.81 
 ;;9002226.02101,"809,Z94.81 ",.02)
 ;;Z94.81 
 ;;9002226.02101,"809,Z94.81 ",.03)
 ;;30
 ;;9002226.02101,"809,Z94.82 ",.01)
 ;;Z94.82 
 ;;9002226.02101,"809,Z94.82 ",.02)
 ;;Z94.82 
 ;;9002226.02101,"809,Z94.82 ",.03)
 ;;30
 ;;9002226.02101,"809,Z94.83 ",.01)
 ;;Z94.83 
 ;;9002226.02101,"809,Z94.83 ",.02)
 ;;Z94.83 
 ;;9002226.02101,"809,Z94.83 ",.03)
 ;;30
 ;;9002226.02101,"809,Z94.84 ",.01)
 ;;Z94.84 
 ;;9002226.02101,"809,Z94.84 ",.02)
 ;;Z94.84 
 ;;9002226.02101,"809,Z94.84 ",.03)
 ;;30
 ;;9002226.02101,"809,Z95.3 ",.01)
 ;;Z95.3 
 ;;9002226.02101,"809,Z95.3 ",.02)
 ;;Z95.3 
 ;;9002226.02101,"809,Z95.3 ",.03)
 ;;30
 ;;9002226.02101,"809,Z95.4 ",.01)
 ;;Z95.4 
 ;;9002226.02101,"809,Z95.4 ",.02)
 ;;Z95.4 
 ;;9002226.02101,"809,Z95.4 ",.03)
 ;;30