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

ATXD3S28.m

Go to the documentation of this file.
ATXD3S28 ;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,"1011,O99.350 ",.01)
 ;;O99.350 
 ;;9002226.02101,"1011,O99.350 ",.02)
 ;;O99.350 
 ;;9002226.02101,"1011,O99.350 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.351 ",.01)
 ;;O99.351 
 ;;9002226.02101,"1011,O99.351 ",.02)
 ;;O99.351 
 ;;9002226.02101,"1011,O99.351 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.352 ",.01)
 ;;O99.352 
 ;;9002226.02101,"1011,O99.352 ",.02)
 ;;O99.352 
 ;;9002226.02101,"1011,O99.352 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.353 ",.01)
 ;;O99.353 
 ;;9002226.02101,"1011,O99.353 ",.02)
 ;;O99.353 
 ;;9002226.02101,"1011,O99.353 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.354 ",.01)
 ;;O99.354 
 ;;9002226.02101,"1011,O99.354 ",.02)
 ;;O99.354 
 ;;9002226.02101,"1011,O99.354 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.411 ",.01)
 ;;O99.411 
 ;;9002226.02101,"1011,O99.411 ",.02)
 ;;O99.411 
 ;;9002226.02101,"1011,O99.411 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.412 ",.01)
 ;;O99.412 
 ;;9002226.02101,"1011,O99.412 ",.02)
 ;;O99.412 
 ;;9002226.02101,"1011,O99.412 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.413 ",.01)
 ;;O99.413 
 ;;9002226.02101,"1011,O99.413 ",.02)
 ;;O99.413 
 ;;9002226.02101,"1011,O99.413 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.419 ",.01)
 ;;O99.419 
 ;;9002226.02101,"1011,O99.419 ",.02)
 ;;O99.419 
 ;;9002226.02101,"1011,O99.419 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.511 ",.01)
 ;;O99.511 
 ;;9002226.02101,"1011,O99.511 ",.02)
 ;;O99.511 
 ;;9002226.02101,"1011,O99.511 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.512 ",.01)
 ;;O99.512 
 ;;9002226.02101,"1011,O99.512 ",.02)
 ;;O99.512 
 ;;9002226.02101,"1011,O99.512 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.513 ",.01)
 ;;O99.513 
 ;;9002226.02101,"1011,O99.513 ",.02)
 ;;O99.513 
 ;;9002226.02101,"1011,O99.513 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.519 ",.01)
 ;;O99.519 
 ;;9002226.02101,"1011,O99.519 ",.02)
 ;;O99.519 
 ;;9002226.02101,"1011,O99.519 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.52 ",.01)
 ;;O99.52 
 ;;9002226.02101,"1011,O99.52 ",.02)
 ;;O99.52 
 ;;9002226.02101,"1011,O99.52 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.611 ",.01)
 ;;O99.611 
 ;;9002226.02101,"1011,O99.611 ",.02)
 ;;O99.611 
 ;;9002226.02101,"1011,O99.611 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.612 ",.01)
 ;;O99.612 
 ;;9002226.02101,"1011,O99.612 ",.02)
 ;;O99.612 
 ;;9002226.02101,"1011,O99.612 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.613 ",.01)
 ;;O99.613 
 ;;9002226.02101,"1011,O99.613 ",.02)
 ;;O99.613 
 ;;9002226.02101,"1011,O99.613 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.619 ",.01)
 ;;O99.619 
 ;;9002226.02101,"1011,O99.619 ",.02)
 ;;O99.619 
 ;;9002226.02101,"1011,O99.619 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.62 ",.01)
 ;;O99.62 
 ;;9002226.02101,"1011,O99.62 ",.02)
 ;;O99.62 
 ;;9002226.02101,"1011,O99.62 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.711 ",.01)
 ;;O99.711 
 ;;9002226.02101,"1011,O99.711 ",.02)
 ;;O99.711 
 ;;9002226.02101,"1011,O99.711 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.712 ",.01)
 ;;O99.712 
 ;;9002226.02101,"1011,O99.712 ",.02)
 ;;O99.712 
 ;;9002226.02101,"1011,O99.712 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.713 ",.01)
 ;;O99.713 
 ;;9002226.02101,"1011,O99.713 ",.02)
 ;;O99.713 
 ;;9002226.02101,"1011,O99.713 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.719 ",.01)
 ;;O99.719 
 ;;9002226.02101,"1011,O99.719 ",.02)
 ;;O99.719 
 ;;9002226.02101,"1011,O99.719 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.72 ",.01)
 ;;O99.72 
 ;;9002226.02101,"1011,O99.72 ",.02)
 ;;O99.72 
 ;;9002226.02101,"1011,O99.72 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.810 ",.01)
 ;;O99.810 
 ;;9002226.02101,"1011,O99.810 ",.02)
 ;;O99.810 
 ;;9002226.02101,"1011,O99.810 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.814 ",.01)
 ;;O99.814 
 ;;9002226.02101,"1011,O99.814 ",.02)
 ;;O99.814 
 ;;9002226.02101,"1011,O99.814 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.820 ",.01)
 ;;O99.820 
 ;;9002226.02101,"1011,O99.820 ",.02)
 ;;O99.820 
 ;;9002226.02101,"1011,O99.820 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.824 ",.01)
 ;;O99.824 
 ;;9002226.02101,"1011,O99.824 ",.02)
 ;;O99.824 
 ;;9002226.02101,"1011,O99.824 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.830 ",.01)
 ;;O99.830 
 ;;9002226.02101,"1011,O99.830 ",.02)
 ;;O99.830 
 ;;9002226.02101,"1011,O99.830 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.834 ",.01)
 ;;O99.834 
 ;;9002226.02101,"1011,O99.834 ",.02)
 ;;O99.834 
 ;;9002226.02101,"1011,O99.834 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.840 ",.01)
 ;;O99.840 
 ;;9002226.02101,"1011,O99.840 ",.02)
 ;;O99.840 
 ;;9002226.02101,"1011,O99.840 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.841 ",.01)
 ;;O99.841 
 ;;9002226.02101,"1011,O99.841 ",.02)
 ;;O99.841 
 ;;9002226.02101,"1011,O99.841 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.842 ",.01)
 ;;O99.842 
 ;;9002226.02101,"1011,O99.842 ",.02)
 ;;O99.842 
 ;;9002226.02101,"1011,O99.842 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.843 ",.01)
 ;;O99.843 
 ;;9002226.02101,"1011,O99.843 ",.02)
 ;;O99.843 
 ;;9002226.02101,"1011,O99.843 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.844 ",.01)
 ;;O99.844 
 ;;9002226.02101,"1011,O99.844 ",.02)
 ;;O99.844 
 ;;9002226.02101,"1011,O99.844 ",.03)
 ;;30
 ;;9002226.02101,"1011,O99.89 ",.01)
 ;;O99.89 
 ;;9002226.02101,"1011,O99.89 ",.02)
 ;;O99.89 
 ;;9002226.02101,"1011,O99.89 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.111 ",.01)
 ;;O9A.111 
 ;;9002226.02101,"1011,O9A.111 ",.02)
 ;;O9A.111 
 ;;9002226.02101,"1011,O9A.111 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.112 ",.01)
 ;;O9A.112 
 ;;9002226.02101,"1011,O9A.112 ",.02)
 ;;O9A.112 
 ;;9002226.02101,"1011,O9A.112 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.113 ",.01)
 ;;O9A.113 
 ;;9002226.02101,"1011,O9A.113 ",.02)
 ;;O9A.113 
 ;;9002226.02101,"1011,O9A.113 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.119 ",.01)
 ;;O9A.119 
 ;;9002226.02101,"1011,O9A.119 ",.02)
 ;;O9A.119 
 ;;9002226.02101,"1011,O9A.119 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.12 ",.01)
 ;;O9A.12 
 ;;9002226.02101,"1011,O9A.12 ",.02)
 ;;O9A.12 
 ;;9002226.02101,"1011,O9A.12 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.211 ",.01)
 ;;O9A.211 
 ;;9002226.02101,"1011,O9A.211 ",.02)
 ;;O9A.211 
 ;;9002226.02101,"1011,O9A.211 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.212 ",.01)
 ;;O9A.212 
 ;;9002226.02101,"1011,O9A.212 ",.02)
 ;;O9A.212 
 ;;9002226.02101,"1011,O9A.212 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.213 ",.01)
 ;;O9A.213 
 ;;9002226.02101,"1011,O9A.213 ",.02)
 ;;O9A.213 
 ;;9002226.02101,"1011,O9A.213 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.219 ",.01)
 ;;O9A.219 
 ;;9002226.02101,"1011,O9A.219 ",.02)
 ;;O9A.219 
 ;;9002226.02101,"1011,O9A.219 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.22 ",.01)
 ;;O9A.22 
 ;;9002226.02101,"1011,O9A.22 ",.02)
 ;;O9A.22 
 ;;9002226.02101,"1011,O9A.22 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.311 ",.01)
 ;;O9A.311 
 ;;9002226.02101,"1011,O9A.311 ",.02)
 ;;O9A.311 
 ;;9002226.02101,"1011,O9A.311 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.312 ",.01)
 ;;O9A.312 
 ;;9002226.02101,"1011,O9A.312 ",.02)
 ;;O9A.312 
 ;;9002226.02101,"1011,O9A.312 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.313 ",.01)
 ;;O9A.313 
 ;;9002226.02101,"1011,O9A.313 ",.02)
 ;;O9A.313 
 ;;9002226.02101,"1011,O9A.313 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.319 ",.01)
 ;;O9A.319 
 ;;9002226.02101,"1011,O9A.319 ",.02)
 ;;O9A.319 
 ;;9002226.02101,"1011,O9A.319 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.32 ",.01)
 ;;O9A.32 
 ;;9002226.02101,"1011,O9A.32 ",.02)
 ;;O9A.32 
 ;;9002226.02101,"1011,O9A.32 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.411 ",.01)
 ;;O9A.411 
 ;;9002226.02101,"1011,O9A.411 ",.02)
 ;;O9A.411 
 ;;9002226.02101,"1011,O9A.411 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.412 ",.01)
 ;;O9A.412 
 ;;9002226.02101,"1011,O9A.412 ",.02)
 ;;O9A.412 
 ;;9002226.02101,"1011,O9A.412 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.413 ",.01)
 ;;O9A.413 
 ;;9002226.02101,"1011,O9A.413 ",.02)
 ;;O9A.413 
 ;;9002226.02101,"1011,O9A.413 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.419 ",.01)
 ;;O9A.419 
 ;;9002226.02101,"1011,O9A.419 ",.02)
 ;;O9A.419 
 ;;9002226.02101,"1011,O9A.419 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.42 ",.01)
 ;;O9A.42 
 ;;9002226.02101,"1011,O9A.42 ",.02)
 ;;O9A.42 
 ;;9002226.02101,"1011,O9A.42 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.511 ",.01)
 ;;O9A.511 
 ;;9002226.02101,"1011,O9A.511 ",.02)
 ;;O9A.511 
 ;;9002226.02101,"1011,O9A.511 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.512 ",.01)
 ;;O9A.512 
 ;;9002226.02101,"1011,O9A.512 ",.02)
 ;;O9A.512 
 ;;9002226.02101,"1011,O9A.512 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.513 ",.01)
 ;;O9A.513 
 ;;9002226.02101,"1011,O9A.513 ",.02)
 ;;O9A.513 
 ;;9002226.02101,"1011,O9A.513 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.519 ",.01)
 ;;O9A.519 
 ;;9002226.02101,"1011,O9A.519 ",.02)
 ;;O9A.519 
 ;;9002226.02101,"1011,O9A.519 ",.03)
 ;;30
 ;;9002226.02101,"1011,O9A.52 ",.01)
 ;;O9A.52 
 ;;9002226.02101,"1011,O9A.52 ",.02)
 ;;O9A.52 
 ;;9002226.02101,"1011,O9A.52 ",.03)
 ;;30
 ;;9002226.02101,"1011,V22.0 ",.01)
 ;;V22.0 
 ;;9002226.02101,"1011,V22.0 ",.02)
 ;;V23.9 
 ;;9002226.02101,"1011,V22.0 ",.03)
 ;;1
 ;;9002226.02101,"1011,V28.81 ",.01)
 ;;V28.81 
 ;;9002226.02101,"1011,V28.81 ",.02)
 ;;V28.89 
 ;;9002226.02101,"1011,V28.81 ",.03)
 ;;1
 ;;9002226.02101,"1011,V72.42 ",.01)
 ;;V72.42 
 ;;9002226.02101,"1011,V72.42 ",.02)
 ;;V72.42 
 ;;9002226.02101,"1011,V72.42 ",.03)
 ;;1
 ;;9002226.02101,"1011,V89.01 ",.01)
 ;;V89.01 
 ;;9002226.02101,"1011,V89.01 ",.02)
 ;;V89.09 
 ;;9002226.02101,"1011,V89.01 ",.03)
 ;;1
 ;;9002226.02101,"1011,Z03.71 ",.01)
 ;;Z03.71 
 ;;9002226.02101,"1011,Z03.71 ",.02)
 ;;Z03.71 
 ;;9002226.02101,"1011,Z03.71 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z03.72 ",.01)
 ;;Z03.72 
 ;;9002226.02101,"1011,Z03.72 ",.02)
 ;;Z03.72 
 ;;9002226.02101,"1011,Z03.72 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z03.73 ",.01)
 ;;Z03.73 
 ;;9002226.02101,"1011,Z03.73 ",.02)
 ;;Z03.73 
 ;;9002226.02101,"1011,Z03.73 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z03.74 ",.01)
 ;;Z03.74 
 ;;9002226.02101,"1011,Z03.74 ",.02)
 ;;Z03.74 
 ;;9002226.02101,"1011,Z03.74 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z03.75 ",.01)
 ;;Z03.75 
 ;;9002226.02101,"1011,Z03.75 ",.02)
 ;;Z03.75 
 ;;9002226.02101,"1011,Z03.75 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z03.79 ",.01)
 ;;Z03.79 
 ;;9002226.02101,"1011,Z03.79 ",.02)
 ;;Z03.79 
 ;;9002226.02101,"1011,Z03.79 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z32.01 ",.01)
 ;;Z32.01 
 ;;9002226.02101,"1011,Z32.01 ",.02)
 ;;Z32.01 
 ;;9002226.02101,"1011,Z32.01 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z33.1 ",.01)
 ;;Z33.1 
 ;;9002226.02101,"1011,Z33.1 ",.02)
 ;;Z33.1 
 ;;9002226.02101,"1011,Z33.1 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z34.00 ",.01)
 ;;Z34.00 
 ;;9002226.02101,"1011,Z34.00 ",.02)
 ;;Z34.00 
 ;;9002226.02101,"1011,Z34.00 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z34.01 ",.01)
 ;;Z34.01 
 ;;9002226.02101,"1011,Z34.01 ",.02)
 ;;Z34.01 
 ;;9002226.02101,"1011,Z34.01 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z34.02 ",.01)
 ;;Z34.02 
 ;;9002226.02101,"1011,Z34.02 ",.02)
 ;;Z34.02 
 ;;9002226.02101,"1011,Z34.02 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z34.03 ",.01)
 ;;Z34.03 
 ;;9002226.02101,"1011,Z34.03 ",.02)
 ;;Z34.03 
 ;;9002226.02101,"1011,Z34.03 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z34.80 ",.01)
 ;;Z34.80 
 ;;9002226.02101,"1011,Z34.80 ",.02)
 ;;Z34.80 
 ;;9002226.02101,"1011,Z34.80 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z34.81 ",.01)
 ;;Z34.81 
 ;;9002226.02101,"1011,Z34.81 ",.02)
 ;;Z34.81 
 ;;9002226.02101,"1011,Z34.81 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z34.82 ",.01)
 ;;Z34.82 
 ;;9002226.02101,"1011,Z34.82 ",.02)
 ;;Z34.82 
 ;;9002226.02101,"1011,Z34.82 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z34.83 ",.01)
 ;;Z34.83 
 ;;9002226.02101,"1011,Z34.83 ",.02)
 ;;Z34.83 
 ;;9002226.02101,"1011,Z34.83 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z34.90 ",.01)
 ;;Z34.90 
 ;;9002226.02101,"1011,Z34.90 ",.02)
 ;;Z34.90 
 ;;9002226.02101,"1011,Z34.90 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z34.91 ",.01)
 ;;Z34.91 
 ;;9002226.02101,"1011,Z34.91 ",.02)
 ;;Z34.91 
 ;;9002226.02101,"1011,Z34.91 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z34.92 ",.01)
 ;;Z34.92 
 ;;9002226.02101,"1011,Z34.92 ",.02)
 ;;Z34.92 
 ;;9002226.02101,"1011,Z34.92 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z34.93 ",.01)
 ;;Z34.93 
 ;;9002226.02101,"1011,Z34.93 ",.02)
 ;;Z34.93 
 ;;9002226.02101,"1011,Z34.93 ",.03)
 ;;30
 ;;9002226.02101,"1011,Z36. ",.01)
 ;;Z36. 
 ;;9002226.02101,"1011,Z36. ",.02)
 ;;Z36. 
 ;;9002226.02101,"1011,Z36. ",.03)
 ;;30
 ;;9002226.04101,"1011,1",.01)
 ;;BGP