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

ATXXA92.m

Go to the documentation of this file.
ATXXA92 ;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,S63.432A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.433A ",.01)
 ;;S63.433A
 ;;9002226.02101,"873,S63.433A ",.02)
 ;;S63.433A
 ;;9002226.02101,"873,S63.433A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.434A ",.01)
 ;;S63.434A
 ;;9002226.02101,"873,S63.434A ",.02)
 ;;S63.434A
 ;;9002226.02101,"873,S63.434A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.435A ",.01)
 ;;S63.435A
 ;;9002226.02101,"873,S63.435A ",.02)
 ;;S63.435A
 ;;9002226.02101,"873,S63.435A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.436A ",.01)
 ;;S63.436A
 ;;9002226.02101,"873,S63.436A ",.02)
 ;;S63.436A
 ;;9002226.02101,"873,S63.436A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.437A ",.01)
 ;;S63.437A
 ;;9002226.02101,"873,S63.437A ",.02)
 ;;S63.437A
 ;;9002226.02101,"873,S63.437A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.438A ",.01)
 ;;S63.438A
 ;;9002226.02101,"873,S63.438A ",.02)
 ;;S63.438A
 ;;9002226.02101,"873,S63.438A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.439A ",.01)
 ;;S63.439A
 ;;9002226.02101,"873,S63.439A ",.02)
 ;;S63.439A
 ;;9002226.02101,"873,S63.439A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.490A ",.01)
 ;;S63.490A
 ;;9002226.02101,"873,S63.490A ",.02)
 ;;S63.490A
 ;;9002226.02101,"873,S63.490A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.491A ",.01)
 ;;S63.491A
 ;;9002226.02101,"873,S63.491A ",.02)
 ;;S63.491A
 ;;9002226.02101,"873,S63.491A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.492A ",.01)
 ;;S63.492A
 ;;9002226.02101,"873,S63.492A ",.02)
 ;;S63.492A
 ;;9002226.02101,"873,S63.492A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.493A ",.01)
 ;;S63.493A
 ;;9002226.02101,"873,S63.493A ",.02)
 ;;S63.493A
 ;;9002226.02101,"873,S63.493A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.494A ",.01)
 ;;S63.494A
 ;;9002226.02101,"873,S63.494A ",.02)
 ;;S63.494A
 ;;9002226.02101,"873,S63.494A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.495A ",.01)
 ;;S63.495A
 ;;9002226.02101,"873,S63.495A ",.02)
 ;;S63.495A
 ;;9002226.02101,"873,S63.495A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.496A ",.01)
 ;;S63.496A
 ;;9002226.02101,"873,S63.496A ",.02)
 ;;S63.496A
 ;;9002226.02101,"873,S63.496A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.497A ",.01)
 ;;S63.497A
 ;;9002226.02101,"873,S63.497A ",.02)
 ;;S63.497A
 ;;9002226.02101,"873,S63.497A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.498A ",.01)
 ;;S63.498A
 ;;9002226.02101,"873,S63.498A ",.02)
 ;;S63.498A
 ;;9002226.02101,"873,S63.498A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.499A ",.01)
 ;;S63.499A
 ;;9002226.02101,"873,S63.499A ",.02)
 ;;S63.499A
 ;;9002226.02101,"873,S63.499A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.501A ",.01)
 ;;S63.501A
 ;;9002226.02101,"873,S63.501A ",.02)
 ;;S63.501A
 ;;9002226.02101,"873,S63.501A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.502A ",.01)
 ;;S63.502A
 ;;9002226.02101,"873,S63.502A ",.02)
 ;;S63.502A
 ;;9002226.02101,"873,S63.502A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.509A ",.01)
 ;;S63.509A
 ;;9002226.02101,"873,S63.509A ",.02)
 ;;S63.509A
 ;;9002226.02101,"873,S63.509A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.511A ",.01)
 ;;S63.511A
 ;;9002226.02101,"873,S63.511A ",.02)
 ;;S63.511A
 ;;9002226.02101,"873,S63.511A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.512A ",.01)
 ;;S63.512A
 ;;9002226.02101,"873,S63.512A ",.02)
 ;;S63.512A
 ;;9002226.02101,"873,S63.512A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.519A ",.01)
 ;;S63.519A
 ;;9002226.02101,"873,S63.519A ",.02)
 ;;S63.519A
 ;;9002226.02101,"873,S63.519A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.521A ",.01)
 ;;S63.521A
 ;;9002226.02101,"873,S63.521A ",.02)
 ;;S63.521A
 ;;9002226.02101,"873,S63.521A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.522A ",.01)
 ;;S63.522A
 ;;9002226.02101,"873,S63.522A ",.02)
 ;;S63.522A
 ;;9002226.02101,"873,S63.522A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.529A ",.01)
 ;;S63.529A
 ;;9002226.02101,"873,S63.529A ",.02)
 ;;S63.529A
 ;;9002226.02101,"873,S63.529A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.591A ",.01)
 ;;S63.591A
 ;;9002226.02101,"873,S63.591A ",.02)
 ;;S63.591A
 ;;9002226.02101,"873,S63.591A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.592A ",.01)
 ;;S63.592A
 ;;9002226.02101,"873,S63.592A ",.02)
 ;;S63.592A
 ;;9002226.02101,"873,S63.592A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.599A ",.01)
 ;;S63.599A
 ;;9002226.02101,"873,S63.599A ",.02)
 ;;S63.599A
 ;;9002226.02101,"873,S63.599A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.601A ",.01)
 ;;S63.601A
 ;;9002226.02101,"873,S63.601A ",.02)
 ;;S63.601A
 ;;9002226.02101,"873,S63.601A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.602A ",.01)
 ;;S63.602A
 ;;9002226.02101,"873,S63.602A ",.02)
 ;;S63.602A
 ;;9002226.02101,"873,S63.602A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.609A ",.01)
 ;;S63.609A
 ;;9002226.02101,"873,S63.609A ",.02)
 ;;S63.609A
 ;;9002226.02101,"873,S63.609A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.610A ",.01)
 ;;S63.610A
 ;;9002226.02101,"873,S63.610A ",.02)
 ;;S63.610A
 ;;9002226.02101,"873,S63.610A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.611A ",.01)
 ;;S63.611A
 ;;9002226.02101,"873,S63.611A ",.02)
 ;;S63.611A
 ;;9002226.02101,"873,S63.611A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.612A ",.01)
 ;;S63.612A
 ;;9002226.02101,"873,S63.612A ",.02)
 ;;S63.612A
 ;;9002226.02101,"873,S63.612A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.613A ",.01)
 ;;S63.613A
 ;;9002226.02101,"873,S63.613A ",.02)
 ;;S63.613A
 ;;9002226.02101,"873,S63.613A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.614A ",.01)
 ;;S63.614A
 ;;9002226.02101,"873,S63.614A ",.02)
 ;;S63.614A
 ;;9002226.02101,"873,S63.614A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.615A ",.01)
 ;;S63.615A
 ;;9002226.02101,"873,S63.615A ",.02)
 ;;S63.615A
 ;;9002226.02101,"873,S63.615A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.616A ",.01)
 ;;S63.616A
 ;;9002226.02101,"873,S63.616A ",.02)
 ;;S63.616A
 ;;9002226.02101,"873,S63.616A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.617A ",.01)
 ;;S63.617A
 ;;9002226.02101,"873,S63.617A ",.02)
 ;;S63.617A
 ;;9002226.02101,"873,S63.617A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.618A ",.01)
 ;;S63.618A
 ;;9002226.02101,"873,S63.618A ",.02)
 ;;S63.618A
 ;;9002226.02101,"873,S63.618A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.619A ",.01)
 ;;S63.619A
 ;;9002226.02101,"873,S63.619A ",.02)
 ;;S63.619A
 ;;9002226.02101,"873,S63.619A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.621A ",.01)
 ;;S63.621A
 ;;9002226.02101,"873,S63.621A ",.02)
 ;;S63.621A
 ;;9002226.02101,"873,S63.621A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.622A ",.01)
 ;;S63.622A
 ;;9002226.02101,"873,S63.622A ",.02)
 ;;S63.622A
 ;;9002226.02101,"873,S63.622A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.629A ",.01)
 ;;S63.629A
 ;;9002226.02101,"873,S63.629A ",.02)
 ;;S63.629A
 ;;9002226.02101,"873,S63.629A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.630A ",.01)
 ;;S63.630A
 ;;9002226.02101,"873,S63.630A ",.02)
 ;;S63.630A
 ;;9002226.02101,"873,S63.630A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.631A ",.01)
 ;;S63.631A
 ;;9002226.02101,"873,S63.631A ",.02)
 ;;S63.631A
 ;;9002226.02101,"873,S63.631A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.632A ",.01)
 ;;S63.632A
 ;;9002226.02101,"873,S63.632A ",.02)
 ;;S63.632A
 ;;9002226.02101,"873,S63.632A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.633A ",.01)
 ;;S63.633A
 ;;9002226.02101,"873,S63.633A ",.02)
 ;;S63.633A
 ;;9002226.02101,"873,S63.633A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.634A ",.01)
 ;;S63.634A
 ;;9002226.02101,"873,S63.634A ",.02)
 ;;S63.634A
 ;;9002226.02101,"873,S63.634A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.635A ",.01)
 ;;S63.635A
 ;;9002226.02101,"873,S63.635A ",.02)
 ;;S63.635A
 ;;9002226.02101,"873,S63.635A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.636A ",.01)
 ;;S63.636A
 ;;9002226.02101,"873,S63.636A ",.02)
 ;;S63.636A
 ;;9002226.02101,"873,S63.636A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.637A ",.01)
 ;;S63.637A
 ;;9002226.02101,"873,S63.637A ",.02)
 ;;S63.637A
 ;;9002226.02101,"873,S63.637A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.638A ",.01)
 ;;S63.638A
 ;;9002226.02101,"873,S63.638A ",.02)
 ;;S63.638A
 ;;9002226.02101,"873,S63.638A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.639A ",.01)
 ;;S63.639A
 ;;9002226.02101,"873,S63.639A ",.02)
 ;;S63.639A
 ;;9002226.02101,"873,S63.639A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.641A ",.01)
 ;;S63.641A
 ;;9002226.02101,"873,S63.641A ",.02)
 ;;S63.641A
 ;;9002226.02101,"873,S63.641A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.642A ",.01)
 ;;S63.642A
 ;;9002226.02101,"873,S63.642A ",.02)
 ;;S63.642A
 ;;9002226.02101,"873,S63.642A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.649A ",.01)
 ;;S63.649A
 ;;9002226.02101,"873,S63.649A ",.02)
 ;;S63.649A
 ;;9002226.02101,"873,S63.649A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.650A ",.01)
 ;;S63.650A
 ;;9002226.02101,"873,S63.650A ",.02)
 ;;S63.650A
 ;;9002226.02101,"873,S63.650A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.651A ",.01)
 ;;S63.651A
 ;;9002226.02101,"873,S63.651A ",.02)
 ;;S63.651A
 ;;9002226.02101,"873,S63.651A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.652A ",.01)
 ;;S63.652A
 ;;9002226.02101,"873,S63.652A ",.02)
 ;;S63.652A
 ;;9002226.02101,"873,S63.652A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.653A ",.01)
 ;;S63.653A
 ;;9002226.02101,"873,S63.653A ",.02)
 ;;S63.653A
 ;;9002226.02101,"873,S63.653A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.654A ",.01)
 ;;S63.654A
 ;;9002226.02101,"873,S63.654A ",.02)
 ;;S63.654A
 ;;9002226.02101,"873,S63.654A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.655A ",.01)
 ;;S63.655A
 ;;9002226.02101,"873,S63.655A ",.02)
 ;;S63.655A
 ;;9002226.02101,"873,S63.655A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.656A ",.01)
 ;;S63.656A
 ;;9002226.02101,"873,S63.656A ",.02)
 ;;S63.656A
 ;;9002226.02101,"873,S63.656A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.657A ",.01)
 ;;S63.657A
 ;;9002226.02101,"873,S63.657A ",.02)
 ;;S63.657A
 ;;9002226.02101,"873,S63.657A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.658A ",.01)
 ;;S63.658A
 ;;9002226.02101,"873,S63.658A ",.02)
 ;;S63.658A
 ;;9002226.02101,"873,S63.658A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.659A ",.01)
 ;;S63.659A
 ;;9002226.02101,"873,S63.659A ",.02)
 ;;S63.659A
 ;;9002226.02101,"873,S63.659A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.681A ",.01)
 ;;S63.681A
 ;;9002226.02101,"873,S63.681A ",.02)
 ;;S63.681A
 ;;9002226.02101,"873,S63.681A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.682A ",.01)
 ;;S63.682A
 ;;9002226.02101,"873,S63.682A ",.02)
 ;;S63.682A
 ;;9002226.02101,"873,S63.682A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.689A ",.01)
 ;;S63.689A
 ;;9002226.02101,"873,S63.689A ",.02)
 ;;S63.689A
 ;;9002226.02101,"873,S63.689A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.690A ",.01)
 ;;S63.690A
 ;;9002226.02101,"873,S63.690A ",.02)
 ;;S63.690A
 ;;9002226.02101,"873,S63.690A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.691A ",.01)
 ;;S63.691A
 ;;9002226.02101,"873,S63.691A ",.02)
 ;;S63.691A
 ;;9002226.02101,"873,S63.691A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.692A ",.01)
 ;;S63.692A
 ;;9002226.02101,"873,S63.692A ",.02)
 ;;S63.692A
 ;;9002226.02101,"873,S63.692A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.693A ",.01)
 ;;S63.693A
 ;;9002226.02101,"873,S63.693A ",.02)
 ;;S63.693A
 ;;9002226.02101,"873,S63.693A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.694A ",.01)
 ;;S63.694A
 ;;9002226.02101,"873,S63.694A ",.02)
 ;;S63.694A
 ;;9002226.02101,"873,S63.694A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.695A ",.01)
 ;;S63.695A
 ;;9002226.02101,"873,S63.695A ",.02)
 ;;S63.695A
 ;;9002226.02101,"873,S63.695A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.696A ",.01)
 ;;S63.696A
 ;;9002226.02101,"873,S63.696A ",.02)
 ;;S63.696A
 ;;9002226.02101,"873,S63.696A ",.03)
 ;;30