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

ATXXA137.m

Go to the documentation of this file.
  1. ATXXA137 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"873,T22.399A ",.01)
  1. ;;T22.399A
  1. ;;9002226.02101,"873,T22.399A ",.02)
  1. ;;T22.399A
  1. ;;9002226.02101,"873,T22.399A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.40XA ",.01)
  1. ;;T22.40XA
  1. ;;9002226.02101,"873,T22.40XA ",.02)
  1. ;;T22.40XA
  1. ;;9002226.02101,"873,T22.40XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.411A ",.01)
  1. ;;T22.411A
  1. ;;9002226.02101,"873,T22.411A ",.02)
  1. ;;T22.411A
  1. ;;9002226.02101,"873,T22.411A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.412A ",.01)
  1. ;;T22.412A
  1. ;;9002226.02101,"873,T22.412A ",.02)
  1. ;;T22.412A
  1. ;;9002226.02101,"873,T22.412A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.419A ",.01)
  1. ;;T22.419A
  1. ;;9002226.02101,"873,T22.419A ",.02)
  1. ;;T22.419A
  1. ;;9002226.02101,"873,T22.419A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.421A ",.01)
  1. ;;T22.421A
  1. ;;9002226.02101,"873,T22.421A ",.02)
  1. ;;T22.421A
  1. ;;9002226.02101,"873,T22.421A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.422A ",.01)
  1. ;;T22.422A
  1. ;;9002226.02101,"873,T22.422A ",.02)
  1. ;;T22.422A
  1. ;;9002226.02101,"873,T22.422A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.429A ",.01)
  1. ;;T22.429A
  1. ;;9002226.02101,"873,T22.429A ",.02)
  1. ;;T22.429A
  1. ;;9002226.02101,"873,T22.429A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.431A ",.01)
  1. ;;T22.431A
  1. ;;9002226.02101,"873,T22.431A ",.02)
  1. ;;T22.431A
  1. ;;9002226.02101,"873,T22.431A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.432A ",.01)
  1. ;;T22.432A
  1. ;;9002226.02101,"873,T22.432A ",.02)
  1. ;;T22.432A
  1. ;;9002226.02101,"873,T22.432A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.439A ",.01)
  1. ;;T22.439A
  1. ;;9002226.02101,"873,T22.439A ",.02)
  1. ;;T22.439A
  1. ;;9002226.02101,"873,T22.439A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.441A ",.01)
  1. ;;T22.441A
  1. ;;9002226.02101,"873,T22.441A ",.02)
  1. ;;T22.441A
  1. ;;9002226.02101,"873,T22.441A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.442A ",.01)
  1. ;;T22.442A
  1. ;;9002226.02101,"873,T22.442A ",.02)
  1. ;;T22.442A
  1. ;;9002226.02101,"873,T22.442A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.449A ",.01)
  1. ;;T22.449A
  1. ;;9002226.02101,"873,T22.449A ",.02)
  1. ;;T22.449A
  1. ;;9002226.02101,"873,T22.449A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.451A ",.01)
  1. ;;T22.451A
  1. ;;9002226.02101,"873,T22.451A ",.02)
  1. ;;T22.451A
  1. ;;9002226.02101,"873,T22.451A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.452A ",.01)
  1. ;;T22.452A
  1. ;;9002226.02101,"873,T22.452A ",.02)
  1. ;;T22.452A
  1. ;;9002226.02101,"873,T22.452A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.459A ",.01)
  1. ;;T22.459A
  1. ;;9002226.02101,"873,T22.459A ",.02)
  1. ;;T22.459A
  1. ;;9002226.02101,"873,T22.459A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.461A ",.01)
  1. ;;T22.461A
  1. ;;9002226.02101,"873,T22.461A ",.02)
  1. ;;T22.461A
  1. ;;9002226.02101,"873,T22.461A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.462A ",.01)
  1. ;;T22.462A
  1. ;;9002226.02101,"873,T22.462A ",.02)
  1. ;;T22.462A
  1. ;;9002226.02101,"873,T22.462A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.469A ",.01)
  1. ;;T22.469A
  1. ;;9002226.02101,"873,T22.469A ",.02)
  1. ;;T22.469A
  1. ;;9002226.02101,"873,T22.469A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.491A ",.01)
  1. ;;T22.491A
  1. ;;9002226.02101,"873,T22.491A ",.02)
  1. ;;T22.491A
  1. ;;9002226.02101,"873,T22.491A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.492A ",.01)
  1. ;;T22.492A
  1. ;;9002226.02101,"873,T22.492A ",.02)
  1. ;;T22.492A
  1. ;;9002226.02101,"873,T22.492A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.499A ",.01)
  1. ;;T22.499A
  1. ;;9002226.02101,"873,T22.499A ",.02)
  1. ;;T22.499A
  1. ;;9002226.02101,"873,T22.499A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.50XA ",.01)
  1. ;;T22.50XA
  1. ;;9002226.02101,"873,T22.50XA ",.02)
  1. ;;T22.50XA
  1. ;;9002226.02101,"873,T22.50XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.511A ",.01)
  1. ;;T22.511A
  1. ;;9002226.02101,"873,T22.511A ",.02)
  1. ;;T22.511A
  1. ;;9002226.02101,"873,T22.511A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.512A ",.01)
  1. ;;T22.512A
  1. ;;9002226.02101,"873,T22.512A ",.02)
  1. ;;T22.512A
  1. ;;9002226.02101,"873,T22.512A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.519A ",.01)
  1. ;;T22.519A
  1. ;;9002226.02101,"873,T22.519A ",.02)
  1. ;;T22.519A
  1. ;;9002226.02101,"873,T22.519A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.521A ",.01)
  1. ;;T22.521A
  1. ;;9002226.02101,"873,T22.521A ",.02)
  1. ;;T22.521A
  1. ;;9002226.02101,"873,T22.521A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.522A ",.01)
  1. ;;T22.522A
  1. ;;9002226.02101,"873,T22.522A ",.02)
  1. ;;T22.522A
  1. ;;9002226.02101,"873,T22.522A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.529A ",.01)
  1. ;;T22.529A
  1. ;;9002226.02101,"873,T22.529A ",.02)
  1. ;;T22.529A
  1. ;;9002226.02101,"873,T22.529A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.531A ",.01)
  1. ;;T22.531A
  1. ;;9002226.02101,"873,T22.531A ",.02)
  1. ;;T22.531A
  1. ;;9002226.02101,"873,T22.531A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.532A ",.01)
  1. ;;T22.532A
  1. ;;9002226.02101,"873,T22.532A ",.02)
  1. ;;T22.532A
  1. ;;9002226.02101,"873,T22.532A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.539A ",.01)
  1. ;;T22.539A
  1. ;;9002226.02101,"873,T22.539A ",.02)
  1. ;;T22.539A
  1. ;;9002226.02101,"873,T22.539A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.541A ",.01)
  1. ;;T22.541A
  1. ;;9002226.02101,"873,T22.541A ",.02)
  1. ;;T22.541A
  1. ;;9002226.02101,"873,T22.541A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.542A ",.01)
  1. ;;T22.542A
  1. ;;9002226.02101,"873,T22.542A ",.02)
  1. ;;T22.542A
  1. ;;9002226.02101,"873,T22.542A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.549A ",.01)
  1. ;;T22.549A
  1. ;;9002226.02101,"873,T22.549A ",.02)
  1. ;;T22.549A
  1. ;;9002226.02101,"873,T22.549A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.551A ",.01)
  1. ;;T22.551A
  1. ;;9002226.02101,"873,T22.551A ",.02)
  1. ;;T22.551A
  1. ;;9002226.02101,"873,T22.551A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.552A ",.01)
  1. ;;T22.552A
  1. ;;9002226.02101,"873,T22.552A ",.02)
  1. ;;T22.552A
  1. ;;9002226.02101,"873,T22.552A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.559A ",.01)
  1. ;;T22.559A
  1. ;;9002226.02101,"873,T22.559A ",.02)
  1. ;;T22.559A
  1. ;;9002226.02101,"873,T22.559A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.561A ",.01)
  1. ;;T22.561A
  1. ;;9002226.02101,"873,T22.561A ",.02)
  1. ;;T22.561A
  1. ;;9002226.02101,"873,T22.561A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.562A ",.01)
  1. ;;T22.562A
  1. ;;9002226.02101,"873,T22.562A ",.02)
  1. ;;T22.562A
  1. ;;9002226.02101,"873,T22.562A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.569A ",.01)
  1. ;;T22.569A
  1. ;;9002226.02101,"873,T22.569A ",.02)
  1. ;;T22.569A
  1. ;;9002226.02101,"873,T22.569A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.591A ",.01)
  1. ;;T22.591A
  1. ;;9002226.02101,"873,T22.591A ",.02)
  1. ;;T22.591A
  1. ;;9002226.02101,"873,T22.591A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.592A ",.01)
  1. ;;T22.592A
  1. ;;9002226.02101,"873,T22.592A ",.02)
  1. ;;T22.592A
  1. ;;9002226.02101,"873,T22.592A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.599A ",.01)
  1. ;;T22.599A
  1. ;;9002226.02101,"873,T22.599A ",.02)
  1. ;;T22.599A
  1. ;;9002226.02101,"873,T22.599A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.60XA ",.01)
  1. ;;T22.60XA
  1. ;;9002226.02101,"873,T22.60XA ",.02)
  1. ;;T22.60XA
  1. ;;9002226.02101,"873,T22.60XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.611A ",.01)
  1. ;;T22.611A
  1. ;;9002226.02101,"873,T22.611A ",.02)
  1. ;;T22.611A
  1. ;;9002226.02101,"873,T22.611A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.612A ",.01)
  1. ;;T22.612A
  1. ;;9002226.02101,"873,T22.612A ",.02)
  1. ;;T22.612A
  1. ;;9002226.02101,"873,T22.612A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.619A ",.01)
  1. ;;T22.619A
  1. ;;9002226.02101,"873,T22.619A ",.02)
  1. ;;T22.619A
  1. ;;9002226.02101,"873,T22.619A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.621A ",.01)
  1. ;;T22.621A
  1. ;;9002226.02101,"873,T22.621A ",.02)
  1. ;;T22.621A
  1. ;;9002226.02101,"873,T22.621A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.622A ",.01)
  1. ;;T22.622A
  1. ;;9002226.02101,"873,T22.622A ",.02)
  1. ;;T22.622A
  1. ;;9002226.02101,"873,T22.622A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.629A ",.01)
  1. ;;T22.629A
  1. ;;9002226.02101,"873,T22.629A ",.02)
  1. ;;T22.629A
  1. ;;9002226.02101,"873,T22.629A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.631A ",.01)
  1. ;;T22.631A
  1. ;;9002226.02101,"873,T22.631A ",.02)
  1. ;;T22.631A
  1. ;;9002226.02101,"873,T22.631A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.632A ",.01)
  1. ;;T22.632A
  1. ;;9002226.02101,"873,T22.632A ",.02)
  1. ;;T22.632A
  1. ;;9002226.02101,"873,T22.632A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.639A ",.01)
  1. ;;T22.639A
  1. ;;9002226.02101,"873,T22.639A ",.02)
  1. ;;T22.639A
  1. ;;9002226.02101,"873,T22.639A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.641A ",.01)
  1. ;;T22.641A
  1. ;;9002226.02101,"873,T22.641A ",.02)
  1. ;;T22.641A
  1. ;;9002226.02101,"873,T22.641A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.642A ",.01)
  1. ;;T22.642A
  1. ;;9002226.02101,"873,T22.642A ",.02)
  1. ;;T22.642A
  1. ;;9002226.02101,"873,T22.642A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.649A ",.01)
  1. ;;T22.649A
  1. ;;9002226.02101,"873,T22.649A ",.02)
  1. ;;T22.649A
  1. ;;9002226.02101,"873,T22.649A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.651A ",.01)
  1. ;;T22.651A
  1. ;;9002226.02101,"873,T22.651A ",.02)
  1. ;;T22.651A
  1. ;;9002226.02101,"873,T22.651A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.652A ",.01)
  1. ;;T22.652A
  1. ;;9002226.02101,"873,T22.652A ",.02)
  1. ;;T22.652A
  1. ;;9002226.02101,"873,T22.652A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.659A ",.01)
  1. ;;T22.659A
  1. ;;9002226.02101,"873,T22.659A ",.02)
  1. ;;T22.659A
  1. ;;9002226.02101,"873,T22.659A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.661A ",.01)
  1. ;;T22.661A
  1. ;;9002226.02101,"873,T22.661A ",.02)
  1. ;;T22.661A
  1. ;;9002226.02101,"873,T22.661A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.662A ",.01)
  1. ;;T22.662A
  1. ;;9002226.02101,"873,T22.662A ",.02)
  1. ;;T22.662A
  1. ;;9002226.02101,"873,T22.662A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.669A ",.01)
  1. ;;T22.669A
  1. ;;9002226.02101,"873,T22.669A ",.02)
  1. ;;T22.669A
  1. ;;9002226.02101,"873,T22.669A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.691A ",.01)
  1. ;;T22.691A
  1. ;;9002226.02101,"873,T22.691A ",.02)
  1. ;;T22.691A
  1. ;;9002226.02101,"873,T22.691A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.692A ",.01)
  1. ;;T22.692A
  1. ;;9002226.02101,"873,T22.692A ",.02)
  1. ;;T22.692A
  1. ;;9002226.02101,"873,T22.692A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.699A ",.01)
  1. ;;T22.699A
  1. ;;9002226.02101,"873,T22.699A ",.02)
  1. ;;T22.699A
  1. ;;9002226.02101,"873,T22.699A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.70XA ",.01)
  1. ;;T22.70XA
  1. ;;9002226.02101,"873,T22.70XA ",.02)
  1. ;;T22.70XA
  1. ;;9002226.02101,"873,T22.70XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.711A ",.01)
  1. ;;T22.711A
  1. ;;9002226.02101,"873,T22.711A ",.02)
  1. ;;T22.711A
  1. ;;9002226.02101,"873,T22.711A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.712A ",.01)
  1. ;;T22.712A
  1. ;;9002226.02101,"873,T22.712A ",.02)
  1. ;;T22.712A
  1. ;;9002226.02101,"873,T22.712A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.719A ",.01)
  1. ;;T22.719A
  1. ;;9002226.02101,"873,T22.719A ",.02)
  1. ;;T22.719A
  1. ;;9002226.02101,"873,T22.719A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.721A ",.01)
  1. ;;T22.721A
  1. ;;9002226.02101,"873,T22.721A ",.02)
  1. ;;T22.721A
  1. ;;9002226.02101,"873,T22.721A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.722A ",.01)
  1. ;;T22.722A
  1. ;;9002226.02101,"873,T22.722A ",.02)
  1. ;;T22.722A
  1. ;;9002226.02101,"873,T22.722A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.729A ",.01)
  1. ;;T22.729A
  1. ;;9002226.02101,"873,T22.729A ",.02)
  1. ;;T22.729A
  1. ;;9002226.02101,"873,T22.729A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.731A ",.01)
  1. ;;T22.731A
  1. ;;9002226.02101,"873,T22.731A ",.02)
  1. ;;T22.731A
  1. ;;9002226.02101,"873,T22.731A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.732A ",.01)
  1. ;;T22.732A
  1. ;;9002226.02101,"873,T22.732A ",.02)
  1. ;;T22.732A
  1. ;;9002226.02101,"873,T22.732A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.739A ",.01)
  1. ;;T22.739A
  1. ;;9002226.02101,"873,T22.739A ",.02)
  1. ;;T22.739A
  1. ;;9002226.02101,"873,T22.739A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.741A ",.01)
  1. ;;T22.741A
  1. ;;9002226.02101,"873,T22.741A ",.02)
  1. ;;T22.741A
  1. ;;9002226.02101,"873,T22.741A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T22.742A ",.01)
  1. ;;T22.742A