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

ATXF6O32.m

Go to the documentation of this file.
ATXF6O32 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 02, 2017;
 ;;5.1;TAXONOMY;**19**;FEB 04, 1997;Build 32
 ;
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,"1075,O99.343 ",.01)
 ;;O99.343 
 ;;9002226.02101,"1075,O99.343 ",.02)
 ;;O99.343 
 ;;9002226.02101,"1075,O99.343 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.344 ",.01)
 ;;O99.344 
 ;;9002226.02101,"1075,O99.344 ",.02)
 ;;O99.344 
 ;;9002226.02101,"1075,O99.344 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.350 ",.01)
 ;;O99.350 
 ;;9002226.02101,"1075,O99.350 ",.02)
 ;;O99.350 
 ;;9002226.02101,"1075,O99.350 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.351 ",.01)
 ;;O99.351 
 ;;9002226.02101,"1075,O99.351 ",.02)
 ;;O99.351 
 ;;9002226.02101,"1075,O99.351 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.352 ",.01)
 ;;O99.352 
 ;;9002226.02101,"1075,O99.352 ",.02)
 ;;O99.352 
 ;;9002226.02101,"1075,O99.352 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.353 ",.01)
 ;;O99.353 
 ;;9002226.02101,"1075,O99.353 ",.02)
 ;;O99.353 
 ;;9002226.02101,"1075,O99.353 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.354 ",.01)
 ;;O99.354 
 ;;9002226.02101,"1075,O99.354 ",.02)
 ;;O99.354 
 ;;9002226.02101,"1075,O99.354 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.411 ",.01)
 ;;O99.411 
 ;;9002226.02101,"1075,O99.411 ",.02)
 ;;O99.411 
 ;;9002226.02101,"1075,O99.411 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.412 ",.01)
 ;;O99.412 
 ;;9002226.02101,"1075,O99.412 ",.02)
 ;;O99.412 
 ;;9002226.02101,"1075,O99.412 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.413 ",.01)
 ;;O99.413 
 ;;9002226.02101,"1075,O99.413 ",.02)
 ;;O99.413 
 ;;9002226.02101,"1075,O99.413 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.419 ",.01)
 ;;O99.419 
 ;;9002226.02101,"1075,O99.419 ",.02)
 ;;O99.419 
 ;;9002226.02101,"1075,O99.419 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.511 ",.01)
 ;;O99.511 
 ;;9002226.02101,"1075,O99.511 ",.02)
 ;;O99.511 
 ;;9002226.02101,"1075,O99.511 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.512 ",.01)
 ;;O99.512 
 ;;9002226.02101,"1075,O99.512 ",.02)
 ;;O99.512 
 ;;9002226.02101,"1075,O99.512 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.513 ",.01)
 ;;O99.513 
 ;;9002226.02101,"1075,O99.513 ",.02)
 ;;O99.513 
 ;;9002226.02101,"1075,O99.513 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.519 ",.01)
 ;;O99.519 
 ;;9002226.02101,"1075,O99.519 ",.02)
 ;;O99.519 
 ;;9002226.02101,"1075,O99.519 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.52 ",.01)
 ;;O99.52 
 ;;9002226.02101,"1075,O99.52 ",.02)
 ;;O99.52 
 ;;9002226.02101,"1075,O99.52 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.611 ",.01)
 ;;O99.611 
 ;;9002226.02101,"1075,O99.611 ",.02)
 ;;O99.611 
 ;;9002226.02101,"1075,O99.611 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.612 ",.01)
 ;;O99.612 
 ;;9002226.02101,"1075,O99.612 ",.02)
 ;;O99.612 
 ;;9002226.02101,"1075,O99.612 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.613 ",.01)
 ;;O99.613 
 ;;9002226.02101,"1075,O99.613 ",.02)
 ;;O99.613 
 ;;9002226.02101,"1075,O99.613 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.619 ",.01)
 ;;O99.619 
 ;;9002226.02101,"1075,O99.619 ",.02)
 ;;O99.619 
 ;;9002226.02101,"1075,O99.619 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.62 ",.01)
 ;;O99.62 
 ;;9002226.02101,"1075,O99.62 ",.02)
 ;;O99.62 
 ;;9002226.02101,"1075,O99.62 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.711 ",.01)
 ;;O99.711 
 ;;9002226.02101,"1075,O99.711 ",.02)
 ;;O99.711 
 ;;9002226.02101,"1075,O99.711 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.712 ",.01)
 ;;O99.712 
 ;;9002226.02101,"1075,O99.712 ",.02)
 ;;O99.712 
 ;;9002226.02101,"1075,O99.712 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.713 ",.01)
 ;;O99.713 
 ;;9002226.02101,"1075,O99.713 ",.02)
 ;;O99.713 
 ;;9002226.02101,"1075,O99.713 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.719 ",.01)
 ;;O99.719 
 ;;9002226.02101,"1075,O99.719 ",.02)
 ;;O99.719 
 ;;9002226.02101,"1075,O99.719 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.72 ",.01)
 ;;O99.72 
 ;;9002226.02101,"1075,O99.72 ",.02)
 ;;O99.72 
 ;;9002226.02101,"1075,O99.72 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.810 ",.01)
 ;;O99.810 
 ;;9002226.02101,"1075,O99.810 ",.02)
 ;;O99.810 
 ;;9002226.02101,"1075,O99.810 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.814 ",.01)
 ;;O99.814 
 ;;9002226.02101,"1075,O99.814 ",.02)
 ;;O99.814 
 ;;9002226.02101,"1075,O99.814 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.820 ",.01)
 ;;O99.820 
 ;;9002226.02101,"1075,O99.820 ",.02)
 ;;O99.820 
 ;;9002226.02101,"1075,O99.820 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.824 ",.01)
 ;;O99.824 
 ;;9002226.02101,"1075,O99.824 ",.02)
 ;;O99.824 
 ;;9002226.02101,"1075,O99.824 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.830 ",.01)
 ;;O99.830 
 ;;9002226.02101,"1075,O99.830 ",.02)
 ;;O99.830 
 ;;9002226.02101,"1075,O99.830 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.834 ",.01)
 ;;O99.834 
 ;;9002226.02101,"1075,O99.834 ",.02)
 ;;O99.834 
 ;;9002226.02101,"1075,O99.834 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.840 ",.01)
 ;;O99.840 
 ;;9002226.02101,"1075,O99.840 ",.02)
 ;;O99.840 
 ;;9002226.02101,"1075,O99.840 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.841 ",.01)
 ;;O99.841 
 ;;9002226.02101,"1075,O99.841 ",.02)
 ;;O99.841 
 ;;9002226.02101,"1075,O99.841 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.842 ",.01)
 ;;O99.842 
 ;;9002226.02101,"1075,O99.842 ",.02)
 ;;O99.842 
 ;;9002226.02101,"1075,O99.842 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.843 ",.01)
 ;;O99.843 
 ;;9002226.02101,"1075,O99.843 ",.02)
 ;;O99.843 
 ;;9002226.02101,"1075,O99.843 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.844 ",.01)
 ;;O99.844 
 ;;9002226.02101,"1075,O99.844 ",.02)
 ;;O99.844 
 ;;9002226.02101,"1075,O99.844 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.89 ",.01)
 ;;O99.89 
 ;;9002226.02101,"1075,O99.89 ",.02)
 ;;O99.89 
 ;;9002226.02101,"1075,O99.89 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.111 ",.01)
 ;;O9A.111 
 ;;9002226.02101,"1075,O9A.111 ",.02)
 ;;O9A.111 
 ;;9002226.02101,"1075,O9A.111 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.112 ",.01)
 ;;O9A.112 
 ;;9002226.02101,"1075,O9A.112 ",.02)
 ;;O9A.112 
 ;;9002226.02101,"1075,O9A.112 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.113 ",.01)
 ;;O9A.113 
 ;;9002226.02101,"1075,O9A.113 ",.02)
 ;;O9A.113 
 ;;9002226.02101,"1075,O9A.113 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.119 ",.01)
 ;;O9A.119 
 ;;9002226.02101,"1075,O9A.119 ",.02)
 ;;O9A.119 
 ;;9002226.02101,"1075,O9A.119 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.12 ",.01)
 ;;O9A.12 
 ;;9002226.02101,"1075,O9A.12 ",.02)
 ;;O9A.12 
 ;;9002226.02101,"1075,O9A.12 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.211 ",.01)
 ;;O9A.211 
 ;;9002226.02101,"1075,O9A.211 ",.02)
 ;;O9A.211 
 ;;9002226.02101,"1075,O9A.211 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.212 ",.01)
 ;;O9A.212 
 ;;9002226.02101,"1075,O9A.212 ",.02)
 ;;O9A.212 
 ;;9002226.02101,"1075,O9A.212 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.213 ",.01)
 ;;O9A.213 
 ;;9002226.02101,"1075,O9A.213 ",.02)
 ;;O9A.213 
 ;;9002226.02101,"1075,O9A.213 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.219 ",.01)
 ;;O9A.219 
 ;;9002226.02101,"1075,O9A.219 ",.02)
 ;;O9A.219 
 ;;9002226.02101,"1075,O9A.219 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.22 ",.01)
 ;;O9A.22 
 ;;9002226.02101,"1075,O9A.22 ",.02)
 ;;O9A.22 
 ;;9002226.02101,"1075,O9A.22 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.311 ",.01)
 ;;O9A.311 
 ;;9002226.02101,"1075,O9A.311 ",.02)
 ;;O9A.311 
 ;;9002226.02101,"1075,O9A.311 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.312 ",.01)
 ;;O9A.312 
 ;;9002226.02101,"1075,O9A.312 ",.02)
 ;;O9A.312 
 ;;9002226.02101,"1075,O9A.312 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.313 ",.01)
 ;;O9A.313 
 ;;9002226.02101,"1075,O9A.313 ",.02)
 ;;O9A.313 
 ;;9002226.02101,"1075,O9A.313 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.319 ",.01)
 ;;O9A.319 
 ;;9002226.02101,"1075,O9A.319 ",.02)
 ;;O9A.319 
 ;;9002226.02101,"1075,O9A.319 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.32 ",.01)
 ;;O9A.32 
 ;;9002226.02101,"1075,O9A.32 ",.02)
 ;;O9A.32 
 ;;9002226.02101,"1075,O9A.32 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.411 ",.01)
 ;;O9A.411 
 ;;9002226.02101,"1075,O9A.411 ",.02)
 ;;O9A.411 
 ;;9002226.02101,"1075,O9A.411 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.412 ",.01)
 ;;O9A.412 
 ;;9002226.02101,"1075,O9A.412 ",.02)
 ;;O9A.412 
 ;;9002226.02101,"1075,O9A.412 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.413 ",.01)
 ;;O9A.413 
 ;;9002226.02101,"1075,O9A.413 ",.02)
 ;;O9A.413 
 ;;9002226.02101,"1075,O9A.413 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.419 ",.01)
 ;;O9A.419 
 ;;9002226.02101,"1075,O9A.419 ",.02)
 ;;O9A.419 
 ;;9002226.02101,"1075,O9A.419 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.42 ",.01)
 ;;O9A.42 
 ;;9002226.02101,"1075,O9A.42 ",.02)
 ;;O9A.42 
 ;;9002226.02101,"1075,O9A.42 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.511 ",.01)
 ;;O9A.511 
 ;;9002226.02101,"1075,O9A.511 ",.02)
 ;;O9A.511 
 ;;9002226.02101,"1075,O9A.511 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.512 ",.01)
 ;;O9A.512 
 ;;9002226.02101,"1075,O9A.512 ",.02)
 ;;O9A.512 
 ;;9002226.02101,"1075,O9A.512 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.513 ",.01)
 ;;O9A.513 
 ;;9002226.02101,"1075,O9A.513 ",.02)
 ;;O9A.513 
 ;;9002226.02101,"1075,O9A.513 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.519 ",.01)
 ;;O9A.519 
 ;;9002226.02101,"1075,O9A.519 ",.02)
 ;;O9A.519 
 ;;9002226.02101,"1075,O9A.519 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.52 ",.01)
 ;;O9A.52 
 ;;9002226.02101,"1075,O9A.52 ",.02)
 ;;O9A.52 
 ;;9002226.02101,"1075,O9A.52 ",.03)
 ;;30
 ;;9002226.02101,"1075,V22.0 ",.01)
 ;;V22.0 
 ;;9002226.02101,"1075,V22.0 ",.02)
 ;;V23.9 
 ;;9002226.02101,"1075,V22.0 ",.03)
 ;;1
 ;;9002226.02101,"1075,V24.0 ",.01)
 ;;V24.0 
 ;;9002226.02101,"1075,V24.0 ",.02)
 ;;V24.2 
 ;;9002226.02101,"1075,V24.0 ",.03)
 ;;1
 ;;9002226.02101,"1075,V27.0 ",.01)
 ;;V27.0 
 ;;9002226.02101,"1075,V27.0 ",.02)
 ;;V27.9 
 ;;9002226.02101,"1075,V27.0 ",.03)
 ;;1
 ;;9002226.02101,"1075,V28.81 ",.01)
 ;;V28.81 
 ;;9002226.02101,"1075,V28.81 ",.02)
 ;;V28.89 
 ;;9002226.02101,"1075,V28.81 ",.03)
 ;;1
 ;;9002226.02101,"1075,V72.42 ",.01)
 ;;V72.42 
 ;;9002226.02101,"1075,V72.42 ",.02)
 ;;V72.42 
 ;;9002226.02101,"1075,V72.42 ",.03)
 ;;1
 ;;9002226.02101,"1075,V89.01 ",.01)
 ;;V89.01 
 ;;9002226.02101,"1075,V89.01 ",.02)
 ;;V89.09 
 ;;9002226.02101,"1075,V89.01 ",.03)
 ;;1
 ;;9002226.02101,"1075,Z03.71 ",.01)
 ;;Z03.71 
 ;;9002226.02101,"1075,Z03.71 ",.02)
 ;;Z03.71 
 ;;9002226.02101,"1075,Z03.71 ",.03)
 ;;30
 ;;9002226.02101,"1075,Z03.72 ",.01)
 ;;Z03.72 
 ;;9002226.02101,"1075,Z03.72 ",.02)
 ;;Z03.72 
 ;;9002226.02101,"1075,Z03.72 ",.03)
 ;;30
 ;;9002226.02101,"1075,Z03.73 ",.01)
 ;;Z03.73 
 ;;9002226.02101,"1075,Z03.73 ",.02)
 ;;Z03.73 
 ;;9002226.02101,"1075,Z03.73 ",.03)
 ;;30
 ;;9002226.02101,"1075,Z03.74 ",.01)
 ;;Z03.74 
 ;;9002226.02101,"1075,Z03.74 ",.02)
 ;;Z03.74 
 ;;9002226.02101,"1075,Z03.74 ",.03)
 ;;30
 ;;9002226.02101,"1075,Z03.75 ",.01)
 ;;Z03.75 
 ;;9002226.02101,"1075,Z03.75 ",.02)
 ;;Z03.75 
 ;;9002226.02101,"1075,Z03.75 ",.03)
 ;;30
 ;;9002226.02101,"1075,Z03.79 ",.01)
 ;;Z03.79 
 ;;9002226.02101,"1075,Z03.79 ",.02)
 ;;Z03.79 
 ;;9002226.02101,"1075,Z03.79 ",.03)
 ;;30
 ;;9002226.02101,"1075,Z32.01 ",.01)
 ;;Z32.01 
 ;;9002226.02101,"1075,Z32.01 ",.02)
 ;;Z32.01 
 ;;9002226.02101,"1075,Z32.01 ",.03)
 ;;30
 ;;9002226.02101,"1075,Z33.1 ",.01)
 ;;Z33.1 
 ;;9002226.02101,"1075,Z33.1 ",.02)
 ;;Z33.1 
 ;;9002226.02101,"1075,Z33.1 ",.03)
 ;;30
 ;;9002226.02101,"1075,Z34.00 ",.01)
 ;;Z34.00 
 ;;9002226.02101,"1075,Z34.00 ",.02)
 ;;Z34.00 
 ;;9002226.02101,"1075,Z34.00 ",.03)
 ;;30
 ;;9002226.02101,"1075,Z34.01 ",.01)
 ;;Z34.01 
 ;;9002226.02101,"1075,Z34.01 ",.02)
 ;;Z34.01 
 ;;9002226.02101,"1075,Z34.01 ",.03)
 ;;30
 ;;9002226.02101,"1075,Z34.02 ",.01)
 ;;Z34.02