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

ATXF1E2.m

Go to the documentation of this file.
ATXF1E2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUL 09, 2015;
 ;;5.1;TAXONOMY;**12**;FEB 04, 1997;Build 5
 ;
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,"487,O09.611 ",.01)
 ;;O09.611
 ;;9002226.02101,"487,O09.611 ",.02)
 ;;O09.611
 ;;9002226.02101,"487,O09.611 ",.03)
 ;;30
 ;;9002226.02101,"487,O09.621 ",.01)
 ;;O09.621
 ;;9002226.02101,"487,O09.621 ",.02)
 ;;O09.621
 ;;9002226.02101,"487,O09.621 ",.03)
 ;;30
 ;;9002226.02101,"487,O09.71 ",.01)
 ;;O09.71
 ;;9002226.02101,"487,O09.71 ",.02)
 ;;O09.71
 ;;9002226.02101,"487,O09.71 ",.03)
 ;;30
 ;;9002226.02101,"487,O09.811 ",.01)
 ;;O09.811
 ;;9002226.02101,"487,O09.811 ",.02)
 ;;O09.811
 ;;9002226.02101,"487,O09.811 ",.03)
 ;;30
 ;;9002226.02101,"487,O09.821 ",.01)
 ;;O09.821
 ;;9002226.02101,"487,O09.821 ",.02)
 ;;O09.821
 ;;9002226.02101,"487,O09.821 ",.03)
 ;;30
 ;;9002226.02101,"487,O09.891 ",.01)
 ;;O09.891
 ;;9002226.02101,"487,O09.891 ",.02)
 ;;O09.891
 ;;9002226.02101,"487,O09.891 ",.03)
 ;;30
 ;;9002226.02101,"487,O09.91 ",.01)
 ;;O09.91
 ;;9002226.02101,"487,O09.91 ",.02)
 ;;O09.91
 ;;9002226.02101,"487,O09.91 ",.03)
 ;;30
 ;;9002226.02101,"487,O10.011 ",.01)
 ;;O10.011
 ;;9002226.02101,"487,O10.011 ",.02)
 ;;O10.011
 ;;9002226.02101,"487,O10.011 ",.03)
 ;;30
 ;;9002226.02101,"487,O10.111 ",.01)
 ;;O10.111
 ;;9002226.02101,"487,O10.111 ",.02)
 ;;O10.111
 ;;9002226.02101,"487,O10.111 ",.03)
 ;;30
 ;;9002226.02101,"487,O10.211 ",.01)
 ;;O10.211
 ;;9002226.02101,"487,O10.211 ",.02)
 ;;O10.211
 ;;9002226.02101,"487,O10.211 ",.03)
 ;;30
 ;;9002226.02101,"487,O10.311 ",.01)
 ;;O10.311
 ;;9002226.02101,"487,O10.311 ",.02)
 ;;O10.311
 ;;9002226.02101,"487,O10.311 ",.03)
 ;;30
 ;;9002226.02101,"487,O10.411 ",.01)
 ;;O10.411
 ;;9002226.02101,"487,O10.411 ",.02)
 ;;O10.411
 ;;9002226.02101,"487,O10.411 ",.03)
 ;;30
 ;;9002226.02101,"487,O10.911 ",.01)
 ;;O10.911
 ;;9002226.02101,"487,O10.911 ",.02)
 ;;O10.911
 ;;9002226.02101,"487,O10.911 ",.03)
 ;;30
 ;;9002226.02101,"487,O11.1 ",.01)
 ;;O11.1
 ;;9002226.02101,"487,O11.1 ",.02)
 ;;O11.1
 ;;9002226.02101,"487,O11.1 ",.03)
 ;;30
 ;;9002226.02101,"487,O12.01 ",.01)
 ;;O12.01
 ;;9002226.02101,"487,O12.01 ",.02)
 ;;O12.01
 ;;9002226.02101,"487,O12.01 ",.03)
 ;;30
 ;;9002226.02101,"487,O12.11 ",.01)
 ;;O12.11
 ;;9002226.02101,"487,O12.11 ",.02)
 ;;O12.11
 ;;9002226.02101,"487,O12.11 ",.03)
 ;;30
 ;;9002226.02101,"487,O12.21 ",.01)
 ;;O12.21
 ;;9002226.02101,"487,O12.21 ",.02)
 ;;O12.21
 ;;9002226.02101,"487,O12.21 ",.03)
 ;;30
 ;;9002226.02101,"487,O13.1 ",.01)
 ;;O13.1
 ;;9002226.02101,"487,O13.1 ",.02)
 ;;O13.1
 ;;9002226.02101,"487,O13.1 ",.03)
 ;;30
 ;;9002226.02101,"487,O16.1 ",.01)
 ;;O16.1
 ;;9002226.02101,"487,O16.1 ",.02)
 ;;O16.1
 ;;9002226.02101,"487,O16.1 ",.03)
 ;;30
 ;;9002226.02101,"487,O22.01 ",.01)
 ;;O22.01
 ;;9002226.02101,"487,O22.01 ",.02)
 ;;O22.01
 ;;9002226.02101,"487,O22.01 ",.03)
 ;;30
 ;;9002226.02101,"487,O22.11 ",.01)
 ;;O22.11
 ;;9002226.02101,"487,O22.11 ",.02)
 ;;O22.11
 ;;9002226.02101,"487,O22.11 ",.03)
 ;;30
 ;;9002226.02101,"487,O22.21 ",.01)
 ;;O22.21
 ;;9002226.02101,"487,O22.21 ",.02)
 ;;O22.21
 ;;9002226.02101,"487,O22.21 ",.03)
 ;;30
 ;;9002226.02101,"487,O22.31 ",.01)
 ;;O22.31
 ;;9002226.02101,"487,O22.31 ",.02)
 ;;O22.31
 ;;9002226.02101,"487,O22.31 ",.03)
 ;;30
 ;;9002226.02101,"487,O22.41 ",.01)
 ;;O22.41
 ;;9002226.02101,"487,O22.41 ",.02)
 ;;O22.41
 ;;9002226.02101,"487,O22.41 ",.03)
 ;;30
 ;;9002226.02101,"487,O22.51 ",.01)
 ;;O22.51
 ;;9002226.02101,"487,O22.51 ",.02)
 ;;O22.51
 ;;9002226.02101,"487,O22.51 ",.03)
 ;;30
 ;;9002226.02101,"487,O22.8X1 ",.01)
 ;;O22.8X1
 ;;9002226.02101,"487,O22.8X1 ",.02)
 ;;O22.8X1
 ;;9002226.02101,"487,O22.8X1 ",.03)
 ;;30
 ;;9002226.02101,"487,O22.91 ",.01)
 ;;O22.91
 ;;9002226.02101,"487,O22.91 ",.02)
 ;;O22.91
 ;;9002226.02101,"487,O22.91 ",.03)
 ;;30
 ;;9002226.02101,"487,O23.01 ",.01)
 ;;O23.01
 ;;9002226.02101,"487,O23.01 ",.02)
 ;;O23.01
 ;;9002226.02101,"487,O23.01 ",.03)
 ;;30
 ;;9002226.02101,"487,O23.11 ",.01)
 ;;O23.11
 ;;9002226.02101,"487,O23.11 ",.02)
 ;;O23.11
 ;;9002226.02101,"487,O23.11 ",.03)
 ;;30
 ;;9002226.02101,"487,O23.21 ",.01)
 ;;O23.21
 ;;9002226.02101,"487,O23.21 ",.02)
 ;;O23.21
 ;;9002226.02101,"487,O23.21 ",.03)
 ;;30
 ;;9002226.02101,"487,O23.31 ",.01)
 ;;O23.31
 ;;9002226.02101,"487,O23.31 ",.02)
 ;;O23.31
 ;;9002226.02101,"487,O23.31 ",.03)
 ;;30
 ;;9002226.02101,"487,O23.41 ",.01)
 ;;O23.41
 ;;9002226.02101,"487,O23.41 ",.02)
 ;;O23.41
 ;;9002226.02101,"487,O23.41 ",.03)
 ;;30
 ;;9002226.02101,"487,O23.511 ",.01)
 ;;O23.511
 ;;9002226.02101,"487,O23.511 ",.02)
 ;;O23.511
 ;;9002226.02101,"487,O23.511 ",.03)
 ;;30
 ;;9002226.02101,"487,O23.521 ",.01)
 ;;O23.521
 ;;9002226.02101,"487,O23.521 ",.02)
 ;;O23.521
 ;;9002226.02101,"487,O23.521 ",.03)
 ;;30
 ;;9002226.02101,"487,O23.591 ",.01)
 ;;O23.591
 ;;9002226.02101,"487,O23.591 ",.02)
 ;;O23.591
 ;;9002226.02101,"487,O23.591 ",.03)
 ;;30
 ;;9002226.02101,"487,O23.91 ",.01)
 ;;O23.91
 ;;9002226.02101,"487,O23.91 ",.02)
 ;;O23.91
 ;;9002226.02101,"487,O23.91 ",.03)
 ;;30
 ;;9002226.02101,"487,O24.011 ",.01)
 ;;O24.011
 ;;9002226.02101,"487,O24.011 ",.02)
 ;;O24.011
 ;;9002226.02101,"487,O24.011 ",.03)
 ;;30
 ;;9002226.02101,"487,O24.111 ",.01)
 ;;O24.111
 ;;9002226.02101,"487,O24.111 ",.02)
 ;;O24.111
 ;;9002226.02101,"487,O24.111 ",.03)
 ;;30
 ;;9002226.02101,"487,O24.311 ",.01)
 ;;O24.311
 ;;9002226.02101,"487,O24.311 ",.02)
 ;;O24.311
 ;;9002226.02101,"487,O24.311 ",.03)
 ;;30
 ;;9002226.02101,"487,O24.811 ",.01)
 ;;O24.811
 ;;9002226.02101,"487,O24.811 ",.02)
 ;;O24.811
 ;;9002226.02101,"487,O24.811 ",.03)
 ;;30
 ;;9002226.02101,"487,O24.911 ",.01)
 ;;O24.911
 ;;9002226.02101,"487,O24.911 ",.02)
 ;;O24.911
 ;;9002226.02101,"487,O24.911 ",.03)
 ;;30
 ;;9002226.02101,"487,O25.11 ",.01)
 ;;O25.11
 ;;9002226.02101,"487,O25.11 ",.02)
 ;;O25.11
 ;;9002226.02101,"487,O25.11 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.01 ",.01)
 ;;O26.01
 ;;9002226.02101,"487,O26.01 ",.02)
 ;;O26.01
 ;;9002226.02101,"487,O26.01 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.11 ",.01)
 ;;O26.11
 ;;9002226.02101,"487,O26.11 ",.02)
 ;;O26.11
 ;;9002226.02101,"487,O26.11 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.21 ",.01)
 ;;O26.21
 ;;9002226.02101,"487,O26.21 ",.02)
 ;;O26.21
 ;;9002226.02101,"487,O26.21 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.31 ",.01)
 ;;O26.31
 ;;9002226.02101,"487,O26.31 ",.02)
 ;;O26.31
 ;;9002226.02101,"487,O26.31 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.41 ",.01)
 ;;O26.41
 ;;9002226.02101,"487,O26.41 ",.02)
 ;;O26.41
 ;;9002226.02101,"487,O26.41 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.51 ",.01)
 ;;O26.51
 ;;9002226.02101,"487,O26.51 ",.02)
 ;;O26.51
 ;;9002226.02101,"487,O26.51 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.611 ",.01)
 ;;O26.611
 ;;9002226.02101,"487,O26.611 ",.02)
 ;;O26.611
 ;;9002226.02101,"487,O26.611 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.711 ",.01)
 ;;O26.711
 ;;9002226.02101,"487,O26.711 ",.02)
 ;;O26.711
 ;;9002226.02101,"487,O26.711 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.811 ",.01)
 ;;O26.811
 ;;9002226.02101,"487,O26.811 ",.02)
 ;;O26.811
 ;;9002226.02101,"487,O26.811 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.821 ",.01)
 ;;O26.821
 ;;9002226.02101,"487,O26.821 ",.02)
 ;;O26.821
 ;;9002226.02101,"487,O26.821 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.831 ",.01)
 ;;O26.831
 ;;9002226.02101,"487,O26.831 ",.02)
 ;;O26.831
 ;;9002226.02101,"487,O26.831 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.841 ",.01)
 ;;O26.841
 ;;9002226.02101,"487,O26.841 ",.02)
 ;;O26.841
 ;;9002226.02101,"487,O26.841 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.851 ",.01)
 ;;O26.851
 ;;9002226.02101,"487,O26.851 ",.02)
 ;;O26.851
 ;;9002226.02101,"487,O26.851 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.891 ",.01)
 ;;O26.891
 ;;9002226.02101,"487,O26.891 ",.02)
 ;;O26.891
 ;;9002226.02101,"487,O26.891 ",.03)
 ;;30
 ;;9002226.02101,"487,O26.91 ",.01)
 ;;O26.91
 ;;9002226.02101,"487,O26.91 ",.02)
 ;;O26.91
 ;;9002226.02101,"487,O26.91 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.011 ",.01)
 ;;O29.011
 ;;9002226.02101,"487,O29.011 ",.02)
 ;;O29.011
 ;;9002226.02101,"487,O29.011 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.021 ",.01)
 ;;O29.021
 ;;9002226.02101,"487,O29.021 ",.02)
 ;;O29.021
 ;;9002226.02101,"487,O29.021 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.091 ",.01)
 ;;O29.091
 ;;9002226.02101,"487,O29.091 ",.02)
 ;;O29.091
 ;;9002226.02101,"487,O29.091 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.111 ",.01)
 ;;O29.111
 ;;9002226.02101,"487,O29.111 ",.02)
 ;;O29.111
 ;;9002226.02101,"487,O29.111 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.121 ",.01)
 ;;O29.121
 ;;9002226.02101,"487,O29.121 ",.02)
 ;;O29.121
 ;;9002226.02101,"487,O29.121 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.191 ",.01)
 ;;O29.191
 ;;9002226.02101,"487,O29.191 ",.02)
 ;;O29.191
 ;;9002226.02101,"487,O29.191 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.211 ",.01)
 ;;O29.211
 ;;9002226.02101,"487,O29.211 ",.02)
 ;;O29.211
 ;;9002226.02101,"487,O29.211 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.291 ",.01)
 ;;O29.291
 ;;9002226.02101,"487,O29.291 ",.02)
 ;;O29.291
 ;;9002226.02101,"487,O29.291 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.3X1 ",.01)
 ;;O29.3X1
 ;;9002226.02101,"487,O29.3X1 ",.02)
 ;;O29.3X1
 ;;9002226.02101,"487,O29.3X1 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.41 ",.01)
 ;;O29.41
 ;;9002226.02101,"487,O29.41 ",.02)
 ;;O29.41
 ;;9002226.02101,"487,O29.41 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.5X1 ",.01)
 ;;O29.5X1
 ;;9002226.02101,"487,O29.5X1 ",.02)
 ;;O29.5X1
 ;;9002226.02101,"487,O29.5X1 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.61 ",.01)
 ;;O29.61
 ;;9002226.02101,"487,O29.61 ",.02)
 ;;O29.61
 ;;9002226.02101,"487,O29.61 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.8X1 ",.01)
 ;;O29.8X1
 ;;9002226.02101,"487,O29.8X1 ",.02)
 ;;O29.8X1
 ;;9002226.02101,"487,O29.8X1 ",.03)
 ;;30
 ;;9002226.02101,"487,O29.91 ",.01)
 ;;O29.91
 ;;9002226.02101,"487,O29.91 ",.02)
 ;;O29.91
 ;;9002226.02101,"487,O29.91 ",.03)
 ;;30
 ;;9002226.02101,"487,O30.001 ",.01)
 ;;O30.001
 ;;9002226.02101,"487,O30.001 ",.02)
 ;;O30.001
 ;;9002226.02101,"487,O30.001 ",.03)
 ;;30
 ;;9002226.02101,"487,O30.011 ",.01)
 ;;O30.011
 ;;9002226.02101,"487,O30.011 ",.02)
 ;;O30.011
 ;;9002226.02101,"487,O30.011 ",.03)
 ;;30
 ;;9002226.02101,"487,O30.021 ",.01)
 ;;O30.021
 ;;9002226.02101,"487,O30.021 ",.02)
 ;;O30.021
 ;;9002226.02101,"487,O30.021 ",.03)
 ;;30
 ;;9002226.02101,"487,O30.031 ",.01)
 ;;O30.031
 ;;9002226.02101,"487,O30.031 ",.02)
 ;;O30.031
 ;;9002226.02101,"487,O30.031 ",.03)
 ;;30
 ;;9002226.02101,"487,O30.041 ",.01)
 ;;O30.041
 ;;9002226.02101,"487,O30.041 ",.02)
 ;;O30.041
 ;;9002226.02101,"487,O30.041 ",.03)
 ;;30
 ;;9002226.02101,"487,O30.091 ",.01)
 ;;O30.091
 ;;9002226.02101,"487,O30.091 ",.02)
 ;;O30.091
 ;;9002226.02101,"487,O30.091 ",.03)
 ;;30
 ;;9002226.02101,"487,O30.101 ",.01)
 ;;O30.101
 ;;9002226.02101,"487,O30.101 ",.02)
 ;;O30.101
 ;;9002226.02101,"487,O30.101 ",.03)
 ;;30
 ;;9002226.02101,"487,O30.111 ",.01)
 ;;O30.111
 ;;9002226.02101,"487,O30.111 ",.02)
 ;;O30.111
 ;;9002226.02101,"487,O30.111 ",.03)
 ;;30
 ;;9002226.02101,"487,O30.121 ",.01)
 ;;O30.121
 ;;9002226.02101,"487,O30.121 ",.02)
 ;;O30.121
 ;;9002226.02101,"487,O30.121 ",.03)
 ;;30
 ;;9002226.02101,"487,O30.191 ",.01)
 ;;O30.191
 ;;9002226.02101,"487,O30.191 ",.02)
 ;;O30.191
 ;;9002226.02101,"487,O30.191 ",.03)
 ;;30
 ;;9002226.02101,"487,O30.201 ",.01)
 ;;O30.201
 ;;9002226.02101,"487,O30.201 ",.02)
 ;;O30.201
 ;;9002226.02101,"487,O30.201 ",.03)
 ;;30