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

ATXXA46.m

Go to the documentation of this file.
ATXXA46 ;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,S31.159A ",.02)
 ;;S31.159A
 ;;9002226.02101,"873,S31.159A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.20XA ",.01)
 ;;S31.20XA
 ;;9002226.02101,"873,S31.20XA ",.02)
 ;;S31.20XA
 ;;9002226.02101,"873,S31.20XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.21XA ",.01)
 ;;S31.21XA
 ;;9002226.02101,"873,S31.21XA ",.02)
 ;;S31.21XA
 ;;9002226.02101,"873,S31.21XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.22XA ",.01)
 ;;S31.22XA
 ;;9002226.02101,"873,S31.22XA ",.02)
 ;;S31.22XA
 ;;9002226.02101,"873,S31.22XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.23XA ",.01)
 ;;S31.23XA
 ;;9002226.02101,"873,S31.23XA ",.02)
 ;;S31.23XA
 ;;9002226.02101,"873,S31.23XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.24XA ",.01)
 ;;S31.24XA
 ;;9002226.02101,"873,S31.24XA ",.02)
 ;;S31.24XA
 ;;9002226.02101,"873,S31.24XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.25XA ",.01)
 ;;S31.25XA
 ;;9002226.02101,"873,S31.25XA ",.02)
 ;;S31.25XA
 ;;9002226.02101,"873,S31.25XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.30XA ",.01)
 ;;S31.30XA
 ;;9002226.02101,"873,S31.30XA ",.02)
 ;;S31.30XA
 ;;9002226.02101,"873,S31.30XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.31XA ",.01)
 ;;S31.31XA
 ;;9002226.02101,"873,S31.31XA ",.02)
 ;;S31.31XA
 ;;9002226.02101,"873,S31.31XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.32XA ",.01)
 ;;S31.32XA
 ;;9002226.02101,"873,S31.32XA ",.02)
 ;;S31.32XA
 ;;9002226.02101,"873,S31.32XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.33XA ",.01)
 ;;S31.33XA
 ;;9002226.02101,"873,S31.33XA ",.02)
 ;;S31.33XA
 ;;9002226.02101,"873,S31.33XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.34XA ",.01)
 ;;S31.34XA
 ;;9002226.02101,"873,S31.34XA ",.02)
 ;;S31.34XA
 ;;9002226.02101,"873,S31.34XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.35XA ",.01)
 ;;S31.35XA
 ;;9002226.02101,"873,S31.35XA ",.02)
 ;;S31.35XA
 ;;9002226.02101,"873,S31.35XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.40XA ",.01)
 ;;S31.40XA
 ;;9002226.02101,"873,S31.40XA ",.02)
 ;;S31.40XA
 ;;9002226.02101,"873,S31.40XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.41XA ",.01)
 ;;S31.41XA
 ;;9002226.02101,"873,S31.41XA ",.02)
 ;;S31.41XA
 ;;9002226.02101,"873,S31.41XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.42XA ",.01)
 ;;S31.42XA
 ;;9002226.02101,"873,S31.42XA ",.02)
 ;;S31.42XA
 ;;9002226.02101,"873,S31.42XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.43XA ",.01)
 ;;S31.43XA
 ;;9002226.02101,"873,S31.43XA ",.02)
 ;;S31.43XA
 ;;9002226.02101,"873,S31.43XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.44XA ",.01)
 ;;S31.44XA
 ;;9002226.02101,"873,S31.44XA ",.02)
 ;;S31.44XA
 ;;9002226.02101,"873,S31.44XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.45XA ",.01)
 ;;S31.45XA
 ;;9002226.02101,"873,S31.45XA ",.02)
 ;;S31.45XA
 ;;9002226.02101,"873,S31.45XA ",.03)
 ;;30
 ;;9002226.02101,"873,S31.501A ",.01)
 ;;S31.501A
 ;;9002226.02101,"873,S31.501A ",.02)
 ;;S31.501A
 ;;9002226.02101,"873,S31.501A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.502A ",.01)
 ;;S31.502A
 ;;9002226.02101,"873,S31.502A ",.02)
 ;;S31.502A
 ;;9002226.02101,"873,S31.502A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.511A ",.01)
 ;;S31.511A
 ;;9002226.02101,"873,S31.511A ",.02)
 ;;S31.511A
 ;;9002226.02101,"873,S31.511A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.512A ",.01)
 ;;S31.512A
 ;;9002226.02101,"873,S31.512A ",.02)
 ;;S31.512A
 ;;9002226.02101,"873,S31.512A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.521A ",.01)
 ;;S31.521A
 ;;9002226.02101,"873,S31.521A ",.02)
 ;;S31.521A
 ;;9002226.02101,"873,S31.521A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.522A ",.01)
 ;;S31.522A
 ;;9002226.02101,"873,S31.522A ",.02)
 ;;S31.522A
 ;;9002226.02101,"873,S31.522A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.531A ",.01)
 ;;S31.531A
 ;;9002226.02101,"873,S31.531A ",.02)
 ;;S31.531A
 ;;9002226.02101,"873,S31.531A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.532A ",.01)
 ;;S31.532A
 ;;9002226.02101,"873,S31.532A ",.02)
 ;;S31.532A
 ;;9002226.02101,"873,S31.532A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.541A ",.01)
 ;;S31.541A
 ;;9002226.02101,"873,S31.541A ",.02)
 ;;S31.541A
 ;;9002226.02101,"873,S31.541A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.542A ",.01)
 ;;S31.542A
 ;;9002226.02101,"873,S31.542A ",.02)
 ;;S31.542A
 ;;9002226.02101,"873,S31.542A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.551A ",.01)
 ;;S31.551A
 ;;9002226.02101,"873,S31.551A ",.02)
 ;;S31.551A
 ;;9002226.02101,"873,S31.551A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.552A ",.01)
 ;;S31.552A
 ;;9002226.02101,"873,S31.552A ",.02)
 ;;S31.552A
 ;;9002226.02101,"873,S31.552A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.600A ",.01)
 ;;S31.600A
 ;;9002226.02101,"873,S31.600A ",.02)
 ;;S31.600A
 ;;9002226.02101,"873,S31.600A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.601A ",.01)
 ;;S31.601A
 ;;9002226.02101,"873,S31.601A ",.02)
 ;;S31.601A
 ;;9002226.02101,"873,S31.601A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.602A ",.01)
 ;;S31.602A
 ;;9002226.02101,"873,S31.602A ",.02)
 ;;S31.602A
 ;;9002226.02101,"873,S31.602A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.603A ",.01)
 ;;S31.603A
 ;;9002226.02101,"873,S31.603A ",.02)
 ;;S31.603A
 ;;9002226.02101,"873,S31.603A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.604A ",.01)
 ;;S31.604A
 ;;9002226.02101,"873,S31.604A ",.02)
 ;;S31.604A
 ;;9002226.02101,"873,S31.604A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.605A ",.01)
 ;;S31.605A
 ;;9002226.02101,"873,S31.605A ",.02)
 ;;S31.605A
 ;;9002226.02101,"873,S31.605A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.609A ",.01)
 ;;S31.609A
 ;;9002226.02101,"873,S31.609A ",.02)
 ;;S31.609A
 ;;9002226.02101,"873,S31.609A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.610A ",.01)
 ;;S31.610A
 ;;9002226.02101,"873,S31.610A ",.02)
 ;;S31.610A
 ;;9002226.02101,"873,S31.610A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.611A ",.01)
 ;;S31.611A
 ;;9002226.02101,"873,S31.611A ",.02)
 ;;S31.611A
 ;;9002226.02101,"873,S31.611A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.612A ",.01)
 ;;S31.612A
 ;;9002226.02101,"873,S31.612A ",.02)
 ;;S31.612A
 ;;9002226.02101,"873,S31.612A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.613A ",.01)
 ;;S31.613A
 ;;9002226.02101,"873,S31.613A ",.02)
 ;;S31.613A
 ;;9002226.02101,"873,S31.613A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.614A ",.01)
 ;;S31.614A
 ;;9002226.02101,"873,S31.614A ",.02)
 ;;S31.614A
 ;;9002226.02101,"873,S31.614A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.615A ",.01)
 ;;S31.615A
 ;;9002226.02101,"873,S31.615A ",.02)
 ;;S31.615A
 ;;9002226.02101,"873,S31.615A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.619A ",.01)
 ;;S31.619A
 ;;9002226.02101,"873,S31.619A ",.02)
 ;;S31.619A
 ;;9002226.02101,"873,S31.619A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.620A ",.01)
 ;;S31.620A
 ;;9002226.02101,"873,S31.620A ",.02)
 ;;S31.620A
 ;;9002226.02101,"873,S31.620A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.621A ",.01)
 ;;S31.621A
 ;;9002226.02101,"873,S31.621A ",.02)
 ;;S31.621A
 ;;9002226.02101,"873,S31.621A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.622A ",.01)
 ;;S31.622A
 ;;9002226.02101,"873,S31.622A ",.02)
 ;;S31.622A
 ;;9002226.02101,"873,S31.622A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.623A ",.01)
 ;;S31.623A
 ;;9002226.02101,"873,S31.623A ",.02)
 ;;S31.623A
 ;;9002226.02101,"873,S31.623A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.624A ",.01)
 ;;S31.624A
 ;;9002226.02101,"873,S31.624A ",.02)
 ;;S31.624A
 ;;9002226.02101,"873,S31.624A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.625A ",.01)
 ;;S31.625A
 ;;9002226.02101,"873,S31.625A ",.02)
 ;;S31.625A
 ;;9002226.02101,"873,S31.625A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.629A ",.01)
 ;;S31.629A
 ;;9002226.02101,"873,S31.629A ",.02)
 ;;S31.629A
 ;;9002226.02101,"873,S31.629A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.630A ",.01)
 ;;S31.630A
 ;;9002226.02101,"873,S31.630A ",.02)
 ;;S31.630A
 ;;9002226.02101,"873,S31.630A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.631A ",.01)
 ;;S31.631A
 ;;9002226.02101,"873,S31.631A ",.02)
 ;;S31.631A
 ;;9002226.02101,"873,S31.631A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.632A ",.01)
 ;;S31.632A
 ;;9002226.02101,"873,S31.632A ",.02)
 ;;S31.632A
 ;;9002226.02101,"873,S31.632A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.633A ",.01)
 ;;S31.633A
 ;;9002226.02101,"873,S31.633A ",.02)
 ;;S31.633A
 ;;9002226.02101,"873,S31.633A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.634A ",.01)
 ;;S31.634A
 ;;9002226.02101,"873,S31.634A ",.02)
 ;;S31.634A
 ;;9002226.02101,"873,S31.634A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.635A ",.01)
 ;;S31.635A
 ;;9002226.02101,"873,S31.635A ",.02)
 ;;S31.635A
 ;;9002226.02101,"873,S31.635A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.639A ",.01)
 ;;S31.639A
 ;;9002226.02101,"873,S31.639A ",.02)
 ;;S31.639A
 ;;9002226.02101,"873,S31.639A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.640A ",.01)
 ;;S31.640A
 ;;9002226.02101,"873,S31.640A ",.02)
 ;;S31.640A
 ;;9002226.02101,"873,S31.640A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.641A ",.01)
 ;;S31.641A
 ;;9002226.02101,"873,S31.641A ",.02)
 ;;S31.641A
 ;;9002226.02101,"873,S31.641A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.642A ",.01)
 ;;S31.642A
 ;;9002226.02101,"873,S31.642A ",.02)
 ;;S31.642A
 ;;9002226.02101,"873,S31.642A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.643A ",.01)
 ;;S31.643A
 ;;9002226.02101,"873,S31.643A ",.02)
 ;;S31.643A
 ;;9002226.02101,"873,S31.643A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.644A ",.01)
 ;;S31.644A
 ;;9002226.02101,"873,S31.644A ",.02)
 ;;S31.644A
 ;;9002226.02101,"873,S31.644A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.645A ",.01)
 ;;S31.645A
 ;;9002226.02101,"873,S31.645A ",.02)
 ;;S31.645A
 ;;9002226.02101,"873,S31.645A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.649A ",.01)
 ;;S31.649A
 ;;9002226.02101,"873,S31.649A ",.02)
 ;;S31.649A
 ;;9002226.02101,"873,S31.649A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.650A ",.01)
 ;;S31.650A
 ;;9002226.02101,"873,S31.650A ",.02)
 ;;S31.650A
 ;;9002226.02101,"873,S31.650A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.651A ",.01)
 ;;S31.651A
 ;;9002226.02101,"873,S31.651A ",.02)
 ;;S31.651A
 ;;9002226.02101,"873,S31.651A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.652A ",.01)
 ;;S31.652A
 ;;9002226.02101,"873,S31.652A ",.02)
 ;;S31.652A
 ;;9002226.02101,"873,S31.652A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.653A ",.01)
 ;;S31.653A
 ;;9002226.02101,"873,S31.653A ",.02)
 ;;S31.653A
 ;;9002226.02101,"873,S31.653A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.654A ",.01)
 ;;S31.654A
 ;;9002226.02101,"873,S31.654A ",.02)
 ;;S31.654A
 ;;9002226.02101,"873,S31.654A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.655A ",.01)
 ;;S31.655A
 ;;9002226.02101,"873,S31.655A ",.02)
 ;;S31.655A
 ;;9002226.02101,"873,S31.655A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.659A ",.01)
 ;;S31.659A
 ;;9002226.02101,"873,S31.659A ",.02)
 ;;S31.659A
 ;;9002226.02101,"873,S31.659A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.801A ",.01)
 ;;S31.801A
 ;;9002226.02101,"873,S31.801A ",.02)
 ;;S31.801A
 ;;9002226.02101,"873,S31.801A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.802A ",.01)
 ;;S31.802A
 ;;9002226.02101,"873,S31.802A ",.02)
 ;;S31.802A
 ;;9002226.02101,"873,S31.802A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.803A ",.01)
 ;;S31.803A
 ;;9002226.02101,"873,S31.803A ",.02)
 ;;S31.803A
 ;;9002226.02101,"873,S31.803A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.804A ",.01)
 ;;S31.804A
 ;;9002226.02101,"873,S31.804A ",.02)
 ;;S31.804A
 ;;9002226.02101,"873,S31.804A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.805A ",.01)
 ;;S31.805A
 ;;9002226.02101,"873,S31.805A ",.02)
 ;;S31.805A
 ;;9002226.02101,"873,S31.805A ",.03)
 ;;30
 ;;9002226.02101,"873,S31.809A ",.01)
 ;;S31.809A
 ;;9002226.02101,"873,S31.809A ",.02)
 ;;S31.809A