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

ATXXA145.m

Go to the documentation of this file.
ATXXA145 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
 ;;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,"873,T31.96 ",.01)
 ;;T31.96
 ;;9002226.02101,"873,T31.96 ",.02)
 ;;T31.96
 ;;9002226.02101,"873,T31.96 ",.03)
 ;;30
 ;;9002226.02101,"873,T31.97 ",.01)
 ;;T31.97
 ;;9002226.02101,"873,T31.97 ",.02)
 ;;T31.97
 ;;9002226.02101,"873,T31.97 ",.03)
 ;;30
 ;;9002226.02101,"873,T31.98 ",.01)
 ;;T31.98
 ;;9002226.02101,"873,T31.98 ",.02)
 ;;T31.98
 ;;9002226.02101,"873,T31.98 ",.03)
 ;;30
 ;;9002226.02101,"873,T31.99 ",.01)
 ;;T31.99
 ;;9002226.02101,"873,T31.99 ",.02)
 ;;T31.99
 ;;9002226.02101,"873,T31.99 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.0 ",.01)
 ;;T32.0
 ;;9002226.02101,"873,T32.0 ",.02)
 ;;T32.0
 ;;9002226.02101,"873,T32.0 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.10 ",.01)
 ;;T32.10
 ;;9002226.02101,"873,T32.10 ",.02)
 ;;T32.10
 ;;9002226.02101,"873,T32.10 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.11 ",.01)
 ;;T32.11
 ;;9002226.02101,"873,T32.11 ",.02)
 ;;T32.11
 ;;9002226.02101,"873,T32.11 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.20 ",.01)
 ;;T32.20
 ;;9002226.02101,"873,T32.20 ",.02)
 ;;T32.20
 ;;9002226.02101,"873,T32.20 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.21 ",.01)
 ;;T32.21
 ;;9002226.02101,"873,T32.21 ",.02)
 ;;T32.21
 ;;9002226.02101,"873,T32.21 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.22 ",.01)
 ;;T32.22
 ;;9002226.02101,"873,T32.22 ",.02)
 ;;T32.22
 ;;9002226.02101,"873,T32.22 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.30 ",.01)
 ;;T32.30
 ;;9002226.02101,"873,T32.30 ",.02)
 ;;T32.30
 ;;9002226.02101,"873,T32.30 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.31 ",.01)
 ;;T32.31
 ;;9002226.02101,"873,T32.31 ",.02)
 ;;T32.31
 ;;9002226.02101,"873,T32.31 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.32 ",.01)
 ;;T32.32
 ;;9002226.02101,"873,T32.32 ",.02)
 ;;T32.32
 ;;9002226.02101,"873,T32.32 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.33 ",.01)
 ;;T32.33
 ;;9002226.02101,"873,T32.33 ",.02)
 ;;T32.33
 ;;9002226.02101,"873,T32.33 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.40 ",.01)
 ;;T32.40
 ;;9002226.02101,"873,T32.40 ",.02)
 ;;T32.40
 ;;9002226.02101,"873,T32.40 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.41 ",.01)
 ;;T32.41
 ;;9002226.02101,"873,T32.41 ",.02)
 ;;T32.41
 ;;9002226.02101,"873,T32.41 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.42 ",.01)
 ;;T32.42
 ;;9002226.02101,"873,T32.42 ",.02)
 ;;T32.42
 ;;9002226.02101,"873,T32.42 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.43 ",.01)
 ;;T32.43
 ;;9002226.02101,"873,T32.43 ",.02)
 ;;T32.43
 ;;9002226.02101,"873,T32.43 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.44 ",.01)
 ;;T32.44
 ;;9002226.02101,"873,T32.44 ",.02)
 ;;T32.44
 ;;9002226.02101,"873,T32.44 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.50 ",.01)
 ;;T32.50
 ;;9002226.02101,"873,T32.50 ",.02)
 ;;T32.50
 ;;9002226.02101,"873,T32.50 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.51 ",.01)
 ;;T32.51
 ;;9002226.02101,"873,T32.51 ",.02)
 ;;T32.51
 ;;9002226.02101,"873,T32.51 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.52 ",.01)
 ;;T32.52
 ;;9002226.02101,"873,T32.52 ",.02)
 ;;T32.52
 ;;9002226.02101,"873,T32.52 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.53 ",.01)
 ;;T32.53
 ;;9002226.02101,"873,T32.53 ",.02)
 ;;T32.53
 ;;9002226.02101,"873,T32.53 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.54 ",.01)
 ;;T32.54
 ;;9002226.02101,"873,T32.54 ",.02)
 ;;T32.54
 ;;9002226.02101,"873,T32.54 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.55 ",.01)
 ;;T32.55
 ;;9002226.02101,"873,T32.55 ",.02)
 ;;T32.55
 ;;9002226.02101,"873,T32.55 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.60 ",.01)
 ;;T32.60
 ;;9002226.02101,"873,T32.60 ",.02)
 ;;T32.60
 ;;9002226.02101,"873,T32.60 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.61 ",.01)
 ;;T32.61
 ;;9002226.02101,"873,T32.61 ",.02)
 ;;T32.61
 ;;9002226.02101,"873,T32.61 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.62 ",.01)
 ;;T32.62
 ;;9002226.02101,"873,T32.62 ",.02)
 ;;T32.62
 ;;9002226.02101,"873,T32.62 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.63 ",.01)
 ;;T32.63
 ;;9002226.02101,"873,T32.63 ",.02)
 ;;T32.63
 ;;9002226.02101,"873,T32.63 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.64 ",.01)
 ;;T32.64
 ;;9002226.02101,"873,T32.64 ",.02)
 ;;T32.64
 ;;9002226.02101,"873,T32.64 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.65 ",.01)
 ;;T32.65
 ;;9002226.02101,"873,T32.65 ",.02)
 ;;T32.65
 ;;9002226.02101,"873,T32.65 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.66 ",.01)
 ;;T32.66
 ;;9002226.02101,"873,T32.66 ",.02)
 ;;T32.66
 ;;9002226.02101,"873,T32.66 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.70 ",.01)
 ;;T32.70
 ;;9002226.02101,"873,T32.70 ",.02)
 ;;T32.70
 ;;9002226.02101,"873,T32.70 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.71 ",.01)
 ;;T32.71
 ;;9002226.02101,"873,T32.71 ",.02)
 ;;T32.71
 ;;9002226.02101,"873,T32.71 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.72 ",.01)
 ;;T32.72
 ;;9002226.02101,"873,T32.72 ",.02)
 ;;T32.72
 ;;9002226.02101,"873,T32.72 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.73 ",.01)
 ;;T32.73
 ;;9002226.02101,"873,T32.73 ",.02)
 ;;T32.73
 ;;9002226.02101,"873,T32.73 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.74 ",.01)
 ;;T32.74
 ;;9002226.02101,"873,T32.74 ",.02)
 ;;T32.74
 ;;9002226.02101,"873,T32.74 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.75 ",.01)
 ;;T32.75
 ;;9002226.02101,"873,T32.75 ",.02)
 ;;T32.75
 ;;9002226.02101,"873,T32.75 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.76 ",.01)
 ;;T32.76
 ;;9002226.02101,"873,T32.76 ",.02)
 ;;T32.76
 ;;9002226.02101,"873,T32.76 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.77 ",.01)
 ;;T32.77
 ;;9002226.02101,"873,T32.77 ",.02)
 ;;T32.77
 ;;9002226.02101,"873,T32.77 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.80 ",.01)
 ;;T32.80
 ;;9002226.02101,"873,T32.80 ",.02)
 ;;T32.80
 ;;9002226.02101,"873,T32.80 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.81 ",.01)
 ;;T32.81
 ;;9002226.02101,"873,T32.81 ",.02)
 ;;T32.81
 ;;9002226.02101,"873,T32.81 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.82 ",.01)
 ;;T32.82
 ;;9002226.02101,"873,T32.82 ",.02)
 ;;T32.82
 ;;9002226.02101,"873,T32.82 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.83 ",.01)
 ;;T32.83
 ;;9002226.02101,"873,T32.83 ",.02)
 ;;T32.83
 ;;9002226.02101,"873,T32.83 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.84 ",.01)
 ;;T32.84
 ;;9002226.02101,"873,T32.84 ",.02)
 ;;T32.84
 ;;9002226.02101,"873,T32.84 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.85 ",.01)
 ;;T32.85
 ;;9002226.02101,"873,T32.85 ",.02)
 ;;T32.85
 ;;9002226.02101,"873,T32.85 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.86 ",.01)
 ;;T32.86
 ;;9002226.02101,"873,T32.86 ",.02)
 ;;T32.86
 ;;9002226.02101,"873,T32.86 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.87 ",.01)
 ;;T32.87
 ;;9002226.02101,"873,T32.87 ",.02)
 ;;T32.87
 ;;9002226.02101,"873,T32.87 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.88 ",.01)
 ;;T32.88
 ;;9002226.02101,"873,T32.88 ",.02)
 ;;T32.88
 ;;9002226.02101,"873,T32.88 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.90 ",.01)
 ;;T32.90
 ;;9002226.02101,"873,T32.90 ",.02)
 ;;T32.90
 ;;9002226.02101,"873,T32.90 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.91 ",.01)
 ;;T32.91
 ;;9002226.02101,"873,T32.91 ",.02)
 ;;T32.91
 ;;9002226.02101,"873,T32.91 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.92 ",.01)
 ;;T32.92
 ;;9002226.02101,"873,T32.92 ",.02)
 ;;T32.92
 ;;9002226.02101,"873,T32.92 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.93 ",.01)
 ;;T32.93
 ;;9002226.02101,"873,T32.93 ",.02)
 ;;T32.93
 ;;9002226.02101,"873,T32.93 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.94 ",.01)
 ;;T32.94
 ;;9002226.02101,"873,T32.94 ",.02)
 ;;T32.94
 ;;9002226.02101,"873,T32.94 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.95 ",.01)
 ;;T32.95
 ;;9002226.02101,"873,T32.95 ",.02)
 ;;T32.95
 ;;9002226.02101,"873,T32.95 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.96 ",.01)
 ;;T32.96
 ;;9002226.02101,"873,T32.96 ",.02)
 ;;T32.96
 ;;9002226.02101,"873,T32.96 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.97 ",.01)
 ;;T32.97
 ;;9002226.02101,"873,T32.97 ",.02)
 ;;T32.97
 ;;9002226.02101,"873,T32.97 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.98 ",.01)
 ;;T32.98
 ;;9002226.02101,"873,T32.98 ",.02)
 ;;T32.98
 ;;9002226.02101,"873,T32.98 ",.03)
 ;;30
 ;;9002226.02101,"873,T32.99 ",.01)
 ;;T32.99
 ;;9002226.02101,"873,T32.99 ",.02)
 ;;T32.99
 ;;9002226.02101,"873,T32.99 ",.03)
 ;;30
 ;;9002226.02101,"873,T33.011A ",.01)
 ;;T33.011A
 ;;9002226.02101,"873,T33.011A ",.02)
 ;;T33.011A
 ;;9002226.02101,"873,T33.011A ",.03)
 ;;30
 ;;9002226.02101,"873,T33.012A ",.01)
 ;;T33.012A
 ;;9002226.02101,"873,T33.012A ",.02)
 ;;T33.012A
 ;;9002226.02101,"873,T33.012A ",.03)
 ;;30
 ;;9002226.02101,"873,T33.019A ",.01)
 ;;T33.019A
 ;;9002226.02101,"873,T33.019A ",.02)
 ;;T33.019A
 ;;9002226.02101,"873,T33.019A ",.03)
 ;;30
 ;;9002226.02101,"873,T33.02XA ",.01)
 ;;T33.02XA
 ;;9002226.02101,"873,T33.02XA ",.02)
 ;;T33.02XA
 ;;9002226.02101,"873,T33.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,T33.09XA ",.01)
 ;;T33.09XA
 ;;9002226.02101,"873,T33.09XA ",.02)
 ;;T33.09XA
 ;;9002226.02101,"873,T33.09XA ",.03)
 ;;30
 ;;9002226.02101,"873,T33.1XXA ",.01)
 ;;T33.1XXA
 ;;9002226.02101,"873,T33.1XXA ",.02)
 ;;T33.1XXA
 ;;9002226.02101,"873,T33.1XXA ",.03)
 ;;30
 ;;9002226.02101,"873,T33.2XXA ",.01)
 ;;T33.2XXA
 ;;9002226.02101,"873,T33.2XXA ",.02)
 ;;T33.2XXA
 ;;9002226.02101,"873,T33.2XXA ",.03)
 ;;30
 ;;9002226.02101,"873,T33.3XXA ",.01)
 ;;T33.3XXA
 ;;9002226.02101,"873,T33.3XXA ",.02)
 ;;T33.3XXA
 ;;9002226.02101,"873,T33.3XXA ",.03)
 ;;30
 ;;9002226.02101,"873,T33.40XA ",.01)
 ;;T33.40XA
 ;;9002226.02101,"873,T33.40XA ",.02)
 ;;T33.40XA
 ;;9002226.02101,"873,T33.40XA ",.03)
 ;;30
 ;;9002226.02101,"873,T33.41XA ",.01)
 ;;T33.41XA
 ;;9002226.02101,"873,T33.41XA ",.02)
 ;;T33.41XA
 ;;9002226.02101,"873,T33.41XA ",.03)
 ;;30
 ;;9002226.02101,"873,T33.42XA ",.01)
 ;;T33.42XA
 ;;9002226.02101,"873,T33.42XA ",.02)
 ;;T33.42XA
 ;;9002226.02101,"873,T33.42XA ",.03)
 ;;30
 ;;9002226.02101,"873,T33.511A ",.01)
 ;;T33.511A
 ;;9002226.02101,"873,T33.511A ",.02)
 ;;T33.511A
 ;;9002226.02101,"873,T33.511A ",.03)
 ;;30
 ;;9002226.02101,"873,T33.512A ",.01)
 ;;T33.512A
 ;;9002226.02101,"873,T33.512A ",.02)
 ;;T33.512A
 ;;9002226.02101,"873,T33.512A ",.03)
 ;;30
 ;;9002226.02101,"873,T33.519A ",.01)
 ;;T33.519A
 ;;9002226.02101,"873,T33.519A ",.02)
 ;;T33.519A
 ;;9002226.02101,"873,T33.519A ",.03)
 ;;30
 ;;9002226.02101,"873,T33.521A ",.01)
 ;;T33.521A
 ;;9002226.02101,"873,T33.521A ",.02)
 ;;T33.521A
 ;;9002226.02101,"873,T33.521A ",.03)
 ;;30
 ;;9002226.02101,"873,T33.522A ",.01)
 ;;T33.522A
 ;;9002226.02101,"873,T33.522A ",.02)
 ;;T33.522A
 ;;9002226.02101,"873,T33.522A ",.03)
 ;;30
 ;;9002226.02101,"873,T33.529A ",.01)
 ;;T33.529A
 ;;9002226.02101,"873,T33.529A ",.02)
 ;;T33.529A
 ;;9002226.02101,"873,T33.529A ",.03)
 ;;30
 ;;9002226.02101,"873,T33.531A ",.01)
 ;;T33.531A
 ;;9002226.02101,"873,T33.531A ",.02)
 ;;T33.531A
 ;;9002226.02101,"873,T33.531A ",.03)
 ;;30
 ;;9002226.02101,"873,T33.532A ",.01)
 ;;T33.532A
 ;;9002226.02101,"873,T33.532A ",.02)
 ;;T33.532A
 ;;9002226.02101,"873,T33.532A ",.03)
 ;;30
 ;;9002226.02101,"873,T33.539A ",.01)
 ;;T33.539A
 ;;9002226.02101,"873,T33.539A ",.02)
 ;;T33.539A
 ;;9002226.02101,"873,T33.539A ",.03)
 ;;30
 ;;9002226.02101,"873,T33.60XA ",.01)
 ;;T33.60XA
 ;;9002226.02101,"873,T33.60XA ",.02)
 ;;T33.60XA
 ;;9002226.02101,"873,T33.60XA ",.03)
 ;;30
 ;;9002226.02101,"873,T33.61XA ",.01)
 ;;T33.61XA
 ;;9002226.02101,"873,T33.61XA ",.02)
 ;;T33.61XA
 ;;9002226.02101,"873,T33.61XA ",.03)
 ;;30
 ;;9002226.02101,"873,T33.62XA ",.01)
 ;;T33.62XA
 ;;9002226.02101,"873,T33.62XA ",.02)
 ;;T33.62XA
 ;;9002226.02101,"873,T33.62XA ",.03)
 ;;30