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

ATXXA128.m

Go to the documentation of this file.
ATXXA128 ;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,S92.492A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.492B ",.01)
 ;;S92.492B
 ;;9002226.02101,"873,S92.492B ",.02)
 ;;S92.492B
 ;;9002226.02101,"873,S92.492B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.499A ",.01)
 ;;S92.499A
 ;;9002226.02101,"873,S92.499A ",.02)
 ;;S92.499A
 ;;9002226.02101,"873,S92.499A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.499B ",.01)
 ;;S92.499B
 ;;9002226.02101,"873,S92.499B ",.02)
 ;;S92.499B
 ;;9002226.02101,"873,S92.499B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.501A ",.01)
 ;;S92.501A
 ;;9002226.02101,"873,S92.501A ",.02)
 ;;S92.501A
 ;;9002226.02101,"873,S92.501A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.501B ",.01)
 ;;S92.501B
 ;;9002226.02101,"873,S92.501B ",.02)
 ;;S92.501B
 ;;9002226.02101,"873,S92.501B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.502A ",.01)
 ;;S92.502A
 ;;9002226.02101,"873,S92.502A ",.02)
 ;;S92.502A
 ;;9002226.02101,"873,S92.502A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.502B ",.01)
 ;;S92.502B
 ;;9002226.02101,"873,S92.502B ",.02)
 ;;S92.502B
 ;;9002226.02101,"873,S92.502B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.503A ",.01)
 ;;S92.503A
 ;;9002226.02101,"873,S92.503A ",.02)
 ;;S92.503A
 ;;9002226.02101,"873,S92.503A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.503B ",.01)
 ;;S92.503B
 ;;9002226.02101,"873,S92.503B ",.02)
 ;;S92.503B
 ;;9002226.02101,"873,S92.503B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.504A ",.01)
 ;;S92.504A
 ;;9002226.02101,"873,S92.504A ",.02)
 ;;S92.504A
 ;;9002226.02101,"873,S92.504A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.504B ",.01)
 ;;S92.504B
 ;;9002226.02101,"873,S92.504B ",.02)
 ;;S92.504B
 ;;9002226.02101,"873,S92.504B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.505A ",.01)
 ;;S92.505A
 ;;9002226.02101,"873,S92.505A ",.02)
 ;;S92.505A
 ;;9002226.02101,"873,S92.505A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.505B ",.01)
 ;;S92.505B
 ;;9002226.02101,"873,S92.505B ",.02)
 ;;S92.505B
 ;;9002226.02101,"873,S92.505B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.506A ",.01)
 ;;S92.506A
 ;;9002226.02101,"873,S92.506A ",.02)
 ;;S92.506A
 ;;9002226.02101,"873,S92.506A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.506B ",.01)
 ;;S92.506B
 ;;9002226.02101,"873,S92.506B ",.02)
 ;;S92.506B
 ;;9002226.02101,"873,S92.506B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.511A ",.01)
 ;;S92.511A
 ;;9002226.02101,"873,S92.511A ",.02)
 ;;S92.511A
 ;;9002226.02101,"873,S92.511A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.511B ",.01)
 ;;S92.511B
 ;;9002226.02101,"873,S92.511B ",.02)
 ;;S92.511B
 ;;9002226.02101,"873,S92.511B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.512A ",.01)
 ;;S92.512A
 ;;9002226.02101,"873,S92.512A ",.02)
 ;;S92.512A
 ;;9002226.02101,"873,S92.512A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.512B ",.01)
 ;;S92.512B
 ;;9002226.02101,"873,S92.512B ",.02)
 ;;S92.512B
 ;;9002226.02101,"873,S92.512B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.513A ",.01)
 ;;S92.513A
 ;;9002226.02101,"873,S92.513A ",.02)
 ;;S92.513A
 ;;9002226.02101,"873,S92.513A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.513B ",.01)
 ;;S92.513B
 ;;9002226.02101,"873,S92.513B ",.02)
 ;;S92.513B
 ;;9002226.02101,"873,S92.513B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.514A ",.01)
 ;;S92.514A
 ;;9002226.02101,"873,S92.514A ",.02)
 ;;S92.514A
 ;;9002226.02101,"873,S92.514A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.514B ",.01)
 ;;S92.514B
 ;;9002226.02101,"873,S92.514B ",.02)
 ;;S92.514B
 ;;9002226.02101,"873,S92.514B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.515A ",.01)
 ;;S92.515A
 ;;9002226.02101,"873,S92.515A ",.02)
 ;;S92.515A
 ;;9002226.02101,"873,S92.515A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.515B ",.01)
 ;;S92.515B
 ;;9002226.02101,"873,S92.515B ",.02)
 ;;S92.515B
 ;;9002226.02101,"873,S92.515B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.516A ",.01)
 ;;S92.516A
 ;;9002226.02101,"873,S92.516A ",.02)
 ;;S92.516A
 ;;9002226.02101,"873,S92.516A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.516B ",.01)
 ;;S92.516B
 ;;9002226.02101,"873,S92.516B ",.02)
 ;;S92.516B
 ;;9002226.02101,"873,S92.516B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.521A ",.01)
 ;;S92.521A
 ;;9002226.02101,"873,S92.521A ",.02)
 ;;S92.521A
 ;;9002226.02101,"873,S92.521A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.521B ",.01)
 ;;S92.521B
 ;;9002226.02101,"873,S92.521B ",.02)
 ;;S92.521B
 ;;9002226.02101,"873,S92.521B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.522A ",.01)
 ;;S92.522A
 ;;9002226.02101,"873,S92.522A ",.02)
 ;;S92.522A
 ;;9002226.02101,"873,S92.522A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.522B ",.01)
 ;;S92.522B
 ;;9002226.02101,"873,S92.522B ",.02)
 ;;S92.522B
 ;;9002226.02101,"873,S92.522B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.523A ",.01)
 ;;S92.523A
 ;;9002226.02101,"873,S92.523A ",.02)
 ;;S92.523A
 ;;9002226.02101,"873,S92.523A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.523B ",.01)
 ;;S92.523B
 ;;9002226.02101,"873,S92.523B ",.02)
 ;;S92.523B
 ;;9002226.02101,"873,S92.523B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.524A ",.01)
 ;;S92.524A
 ;;9002226.02101,"873,S92.524A ",.02)
 ;;S92.524A
 ;;9002226.02101,"873,S92.524A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.524B ",.01)
 ;;S92.524B
 ;;9002226.02101,"873,S92.524B ",.02)
 ;;S92.524B
 ;;9002226.02101,"873,S92.524B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.525A ",.01)
 ;;S92.525A
 ;;9002226.02101,"873,S92.525A ",.02)
 ;;S92.525A
 ;;9002226.02101,"873,S92.525A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.525B ",.01)
 ;;S92.525B
 ;;9002226.02101,"873,S92.525B ",.02)
 ;;S92.525B
 ;;9002226.02101,"873,S92.525B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.526A ",.01)
 ;;S92.526A
 ;;9002226.02101,"873,S92.526A ",.02)
 ;;S92.526A
 ;;9002226.02101,"873,S92.526A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.526B ",.01)
 ;;S92.526B
 ;;9002226.02101,"873,S92.526B ",.02)
 ;;S92.526B
 ;;9002226.02101,"873,S92.526B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.531A ",.01)
 ;;S92.531A
 ;;9002226.02101,"873,S92.531A ",.02)
 ;;S92.531A
 ;;9002226.02101,"873,S92.531A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.531B ",.01)
 ;;S92.531B
 ;;9002226.02101,"873,S92.531B ",.02)
 ;;S92.531B
 ;;9002226.02101,"873,S92.531B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.532A ",.01)
 ;;S92.532A
 ;;9002226.02101,"873,S92.532A ",.02)
 ;;S92.532A
 ;;9002226.02101,"873,S92.532A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.532B ",.01)
 ;;S92.532B
 ;;9002226.02101,"873,S92.532B ",.02)
 ;;S92.532B
 ;;9002226.02101,"873,S92.532B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.533A ",.01)
 ;;S92.533A
 ;;9002226.02101,"873,S92.533A ",.02)
 ;;S92.533A
 ;;9002226.02101,"873,S92.533A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.533B ",.01)
 ;;S92.533B
 ;;9002226.02101,"873,S92.533B ",.02)
 ;;S92.533B
 ;;9002226.02101,"873,S92.533B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.534A ",.01)
 ;;S92.534A
 ;;9002226.02101,"873,S92.534A ",.02)
 ;;S92.534A
 ;;9002226.02101,"873,S92.534A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.534B ",.01)
 ;;S92.534B
 ;;9002226.02101,"873,S92.534B ",.02)
 ;;S92.534B
 ;;9002226.02101,"873,S92.534B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.535A ",.01)
 ;;S92.535A
 ;;9002226.02101,"873,S92.535A ",.02)
 ;;S92.535A
 ;;9002226.02101,"873,S92.535A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.535B ",.01)
 ;;S92.535B
 ;;9002226.02101,"873,S92.535B ",.02)
 ;;S92.535B
 ;;9002226.02101,"873,S92.535B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.536A ",.01)
 ;;S92.536A
 ;;9002226.02101,"873,S92.536A ",.02)
 ;;S92.536A
 ;;9002226.02101,"873,S92.536A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.536B ",.01)
 ;;S92.536B
 ;;9002226.02101,"873,S92.536B ",.02)
 ;;S92.536B
 ;;9002226.02101,"873,S92.536B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.591A ",.01)
 ;;S92.591A
 ;;9002226.02101,"873,S92.591A ",.02)
 ;;S92.591A
 ;;9002226.02101,"873,S92.591A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.591B ",.01)
 ;;S92.591B
 ;;9002226.02101,"873,S92.591B ",.02)
 ;;S92.591B
 ;;9002226.02101,"873,S92.591B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.592A ",.01)
 ;;S92.592A
 ;;9002226.02101,"873,S92.592A ",.02)
 ;;S92.592A
 ;;9002226.02101,"873,S92.592A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.592B ",.01)
 ;;S92.592B
 ;;9002226.02101,"873,S92.592B ",.02)
 ;;S92.592B
 ;;9002226.02101,"873,S92.592B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.599A ",.01)
 ;;S92.599A
 ;;9002226.02101,"873,S92.599A ",.02)
 ;;S92.599A
 ;;9002226.02101,"873,S92.599A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.599B ",.01)
 ;;S92.599B
 ;;9002226.02101,"873,S92.599B ",.02)
 ;;S92.599B
 ;;9002226.02101,"873,S92.599B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.901A ",.01)
 ;;S92.901A
 ;;9002226.02101,"873,S92.901A ",.02)
 ;;S92.901A
 ;;9002226.02101,"873,S92.901A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.901B ",.01)
 ;;S92.901B
 ;;9002226.02101,"873,S92.901B ",.02)
 ;;S92.901B
 ;;9002226.02101,"873,S92.901B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.902A ",.01)
 ;;S92.902A
 ;;9002226.02101,"873,S92.902A ",.02)
 ;;S92.902A
 ;;9002226.02101,"873,S92.902A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.902B ",.01)
 ;;S92.902B
 ;;9002226.02101,"873,S92.902B ",.02)
 ;;S92.902B
 ;;9002226.02101,"873,S92.902B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.909A ",.01)
 ;;S92.909A
 ;;9002226.02101,"873,S92.909A ",.02)
 ;;S92.909A
 ;;9002226.02101,"873,S92.909A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.909B ",.01)
 ;;S92.909B
 ;;9002226.02101,"873,S92.909B ",.02)
 ;;S92.909B
 ;;9002226.02101,"873,S92.909B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.911A ",.01)
 ;;S92.911A
 ;;9002226.02101,"873,S92.911A ",.02)
 ;;S92.911A
 ;;9002226.02101,"873,S92.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.911B ",.01)
 ;;S92.911B
 ;;9002226.02101,"873,S92.911B ",.02)
 ;;S92.911B
 ;;9002226.02101,"873,S92.911B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.912A ",.01)
 ;;S92.912A
 ;;9002226.02101,"873,S92.912A ",.02)
 ;;S92.912A
 ;;9002226.02101,"873,S92.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.912B ",.01)
 ;;S92.912B
 ;;9002226.02101,"873,S92.912B ",.02)
 ;;S92.912B
 ;;9002226.02101,"873,S92.912B ",.03)
 ;;30
 ;;9002226.02101,"873,S92.919A ",.01)
 ;;S92.919A
 ;;9002226.02101,"873,S92.919A ",.02)
 ;;S92.919A
 ;;9002226.02101,"873,S92.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S92.919B ",.01)
 ;;S92.919B
 ;;9002226.02101,"873,S92.919B ",.02)
 ;;S92.919B
 ;;9002226.02101,"873,S92.919B ",.03)
 ;;30
 ;;9002226.02101,"873,S93.01XA ",.01)
 ;;S93.01XA
 ;;9002226.02101,"873,S93.01XA ",.02)
 ;;S93.01XA
 ;;9002226.02101,"873,S93.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,S93.02XA ",.01)
 ;;S93.02XA
 ;;9002226.02101,"873,S93.02XA ",.02)
 ;;S93.02XA
 ;;9002226.02101,"873,S93.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,S93.03XA ",.01)
 ;;S93.03XA
 ;;9002226.02101,"873,S93.03XA ",.02)
 ;;S93.03XA
 ;;9002226.02101,"873,S93.03XA ",.03)
 ;;30
 ;;9002226.02101,"873,S93.04XA ",.01)
 ;;S93.04XA
 ;;9002226.02101,"873,S93.04XA ",.02)
 ;;S93.04XA
 ;;9002226.02101,"873,S93.04XA ",.03)
 ;;30
 ;;9002226.02101,"873,S93.05XA ",.01)
 ;;S93.05XA
 ;;9002226.02101,"873,S93.05XA ",.02)
 ;;S93.05XA
 ;;9002226.02101,"873,S93.05XA ",.03)
 ;;30
 ;;9002226.02101,"873,S93.06XA ",.01)
 ;;S93.06XA
 ;;9002226.02101,"873,S93.06XA ",.02)
 ;;S93.06XA
 ;;9002226.02101,"873,S93.06XA ",.03)
 ;;30
 ;;9002226.02101,"873,S93.101A ",.01)
 ;;S93.101A
 ;;9002226.02101,"873,S93.101A ",.02)
 ;;S93.101A
 ;;9002226.02101,"873,S93.101A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.102A ",.01)
 ;;S93.102A
 ;;9002226.02101,"873,S93.102A ",.02)
 ;;S93.102A
 ;;9002226.02101,"873,S93.102A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.103A ",.01)
 ;;S93.103A
 ;;9002226.02101,"873,S93.103A ",.02)
 ;;S93.103A
 ;;9002226.02101,"873,S93.103A ",.03)
 ;;30