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

ATXD1S19.m

Go to the documentation of this file.
ATXD1S19 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 2013;
 ;;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,"821,W07.XXXA ",.03)
 ;;30
 ;;9002226.02101,"821,W08.XXXA ",.01)
 ;;W08.XXXA
 ;;9002226.02101,"821,W08.XXXA ",.02)
 ;;W08.XXXA
 ;;9002226.02101,"821,W08.XXXA ",.03)
 ;;30
 ;;9002226.02101,"821,W09.0XXA ",.01)
 ;;W09.0XXA
 ;;9002226.02101,"821,W09.0XXA ",.02)
 ;;W09.0XXA
 ;;9002226.02101,"821,W09.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W09.1XXA ",.01)
 ;;W09.1XXA
 ;;9002226.02101,"821,W09.1XXA ",.02)
 ;;W09.1XXA
 ;;9002226.02101,"821,W09.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W09.2XXA ",.01)
 ;;W09.2XXA
 ;;9002226.02101,"821,W09.2XXA ",.02)
 ;;W09.2XXA
 ;;9002226.02101,"821,W09.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W09.8XXA ",.01)
 ;;W09.8XXA
 ;;9002226.02101,"821,W09.8XXA ",.02)
 ;;W09.8XXA
 ;;9002226.02101,"821,W09.8XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W10.0XXA ",.01)
 ;;W10.0XXA
 ;;9002226.02101,"821,W10.0XXA ",.02)
 ;;W10.0XXA
 ;;9002226.02101,"821,W10.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W10.1XXA ",.01)
 ;;W10.1XXA
 ;;9002226.02101,"821,W10.1XXA ",.02)
 ;;W10.1XXA
 ;;9002226.02101,"821,W10.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W10.2XXA ",.01)
 ;;W10.2XXA
 ;;9002226.02101,"821,W10.2XXA ",.02)
 ;;W10.2XXA
 ;;9002226.02101,"821,W10.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W10.8XXA ",.01)
 ;;W10.8XXA
 ;;9002226.02101,"821,W10.8XXA ",.02)
 ;;W10.8XXA
 ;;9002226.02101,"821,W10.8XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W10.9XXA ",.01)
 ;;W10.9XXA
 ;;9002226.02101,"821,W10.9XXA ",.02)
 ;;W10.9XXA
 ;;9002226.02101,"821,W10.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W11.XXXA ",.01)
 ;;W11.XXXA
 ;;9002226.02101,"821,W11.XXXA ",.02)
 ;;W11.XXXA
 ;;9002226.02101,"821,W11.XXXA ",.03)
 ;;30
 ;;9002226.02101,"821,W12.XXXA ",.01)
 ;;W12.XXXA
 ;;9002226.02101,"821,W12.XXXA ",.02)
 ;;W12.XXXA
 ;;9002226.02101,"821,W12.XXXA ",.03)
 ;;30
 ;;9002226.02101,"821,W13.0XXA ",.01)
 ;;W13.0XXA
 ;;9002226.02101,"821,W13.0XXA ",.02)
 ;;W13.0XXA
 ;;9002226.02101,"821,W13.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W13.1XXA ",.01)
 ;;W13.1XXA
 ;;9002226.02101,"821,W13.1XXA ",.02)
 ;;W13.1XXA
 ;;9002226.02101,"821,W13.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W13.2XXA ",.01)
 ;;W13.2XXA
 ;;9002226.02101,"821,W13.2XXA ",.02)
 ;;W13.2XXA
 ;;9002226.02101,"821,W13.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W13.3XXA ",.01)
 ;;W13.3XXA
 ;;9002226.02101,"821,W13.3XXA ",.02)
 ;;W13.3XXA
 ;;9002226.02101,"821,W13.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W13.4XXA ",.01)
 ;;W13.4XXA
 ;;9002226.02101,"821,W13.4XXA ",.02)
 ;;W13.4XXA
 ;;9002226.02101,"821,W13.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W13.8XXA ",.01)
 ;;W13.8XXA
 ;;9002226.02101,"821,W13.8XXA ",.02)
 ;;W13.8XXA
 ;;9002226.02101,"821,W13.8XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W13.9XXA ",.01)
 ;;W13.9XXA
 ;;9002226.02101,"821,W13.9XXA ",.02)
 ;;W13.9XXA
 ;;9002226.02101,"821,W13.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W14.XXXA ",.01)
 ;;W14.XXXA
 ;;9002226.02101,"821,W14.XXXA ",.02)
 ;;W14.XXXA
 ;;9002226.02101,"821,W14.XXXA ",.03)
 ;;30
 ;;9002226.02101,"821,W15.XXXA ",.01)
 ;;W15.XXXA
 ;;9002226.02101,"821,W15.XXXA ",.02)
 ;;W15.XXXA
 ;;9002226.02101,"821,W15.XXXA ",.03)
 ;;30
 ;;9002226.02101,"821,W16.011A ",.01)
 ;;W16.011A
 ;;9002226.02101,"821,W16.011A ",.02)
 ;;W16.011A
 ;;9002226.02101,"821,W16.011A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.012A ",.01)
 ;;W16.012A
 ;;9002226.02101,"821,W16.012A ",.02)
 ;;W16.012A
 ;;9002226.02101,"821,W16.012A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.021A ",.01)
 ;;W16.021A
 ;;9002226.02101,"821,W16.021A ",.02)
 ;;W16.021A
 ;;9002226.02101,"821,W16.021A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.022A ",.01)
 ;;W16.022A
 ;;9002226.02101,"821,W16.022A ",.02)
 ;;W16.022A
 ;;9002226.02101,"821,W16.022A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.031A ",.01)
 ;;W16.031A
 ;;9002226.02101,"821,W16.031A ",.02)
 ;;W16.031A
 ;;9002226.02101,"821,W16.031A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.032A ",.01)
 ;;W16.032A
 ;;9002226.02101,"821,W16.032A ",.02)
 ;;W16.032A
 ;;9002226.02101,"821,W16.032A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.111A ",.01)
 ;;W16.111A
 ;;9002226.02101,"821,W16.111A ",.02)
 ;;W16.111A
 ;;9002226.02101,"821,W16.111A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.112A ",.01)
 ;;W16.112A
 ;;9002226.02101,"821,W16.112A ",.02)
 ;;W16.112A
 ;;9002226.02101,"821,W16.112A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.121A ",.01)
 ;;W16.121A
 ;;9002226.02101,"821,W16.121A ",.02)
 ;;W16.121A
 ;;9002226.02101,"821,W16.121A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.122A ",.01)
 ;;W16.122A
 ;;9002226.02101,"821,W16.122A ",.02)
 ;;W16.122A
 ;;9002226.02101,"821,W16.122A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.131A ",.01)
 ;;W16.131A
 ;;9002226.02101,"821,W16.131A ",.02)
 ;;W16.131A
 ;;9002226.02101,"821,W16.131A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.132A ",.01)
 ;;W16.132A
 ;;9002226.02101,"821,W16.132A ",.02)
 ;;W16.132A
 ;;9002226.02101,"821,W16.132A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.211A ",.01)
 ;;W16.211A
 ;;9002226.02101,"821,W16.211A ",.02)
 ;;W16.211A
 ;;9002226.02101,"821,W16.211A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.212A ",.01)
 ;;W16.212A
 ;;9002226.02101,"821,W16.212A ",.02)
 ;;W16.212A
 ;;9002226.02101,"821,W16.212A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.221A ",.01)
 ;;W16.221A
 ;;9002226.02101,"821,W16.221A ",.02)
 ;;W16.221A
 ;;9002226.02101,"821,W16.221A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.222A ",.01)
 ;;W16.222A
 ;;9002226.02101,"821,W16.222A ",.02)
 ;;W16.222A
 ;;9002226.02101,"821,W16.222A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.311A ",.01)
 ;;W16.311A
 ;;9002226.02101,"821,W16.311A ",.02)
 ;;W16.311A
 ;;9002226.02101,"821,W16.311A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.312A ",.01)
 ;;W16.312A
 ;;9002226.02101,"821,W16.312A ",.02)
 ;;W16.312A
 ;;9002226.02101,"821,W16.312A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.321A ",.01)
 ;;W16.321A
 ;;9002226.02101,"821,W16.321A ",.02)
 ;;W16.321A
 ;;9002226.02101,"821,W16.321A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.322A ",.01)
 ;;W16.322A
 ;;9002226.02101,"821,W16.322A ",.02)
 ;;W16.322A
 ;;9002226.02101,"821,W16.322A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.331A ",.01)
 ;;W16.331A
 ;;9002226.02101,"821,W16.331A ",.02)
 ;;W16.331A
 ;;9002226.02101,"821,W16.331A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.332A ",.01)
 ;;W16.332A
 ;;9002226.02101,"821,W16.332A ",.02)
 ;;W16.332A
 ;;9002226.02101,"821,W16.332A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.41XA ",.01)
 ;;W16.41XA
 ;;9002226.02101,"821,W16.41XA ",.02)
 ;;W16.41XA
 ;;9002226.02101,"821,W16.41XA ",.03)
 ;;30
 ;;9002226.02101,"821,W16.42XA ",.01)
 ;;W16.42XA
 ;;9002226.02101,"821,W16.42XA ",.02)
 ;;W16.42XA
 ;;9002226.02101,"821,W16.42XA ",.03)
 ;;30
 ;;9002226.02101,"821,W16.511A ",.01)
 ;;W16.511A
 ;;9002226.02101,"821,W16.511A ",.02)
 ;;W16.511A
 ;;9002226.02101,"821,W16.511A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.512A ",.01)
 ;;W16.512A
 ;;9002226.02101,"821,W16.512A ",.02)
 ;;W16.512A
 ;;9002226.02101,"821,W16.512A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.521A ",.01)
 ;;W16.521A
 ;;9002226.02101,"821,W16.521A ",.02)
 ;;W16.521A
 ;;9002226.02101,"821,W16.521A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.522A ",.01)
 ;;W16.522A
 ;;9002226.02101,"821,W16.522A ",.02)
 ;;W16.522A
 ;;9002226.02101,"821,W16.522A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.531A ",.01)
 ;;W16.531A
 ;;9002226.02101,"821,W16.531A ",.02)
 ;;W16.531A
 ;;9002226.02101,"821,W16.531A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.532A ",.01)
 ;;W16.532A
 ;;9002226.02101,"821,W16.532A ",.02)
 ;;W16.532A
 ;;9002226.02101,"821,W16.532A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.611A ",.01)
 ;;W16.611A
 ;;9002226.02101,"821,W16.611A ",.02)
 ;;W16.611A
 ;;9002226.02101,"821,W16.611A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.612A ",.01)
 ;;W16.612A
 ;;9002226.02101,"821,W16.612A ",.02)
 ;;W16.612A
 ;;9002226.02101,"821,W16.612A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.621A ",.01)
 ;;W16.621A
 ;;9002226.02101,"821,W16.621A ",.02)
 ;;W16.621A
 ;;9002226.02101,"821,W16.621A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.622A ",.01)
 ;;W16.622A
 ;;9002226.02101,"821,W16.622A ",.02)
 ;;W16.622A
 ;;9002226.02101,"821,W16.622A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.711A ",.01)
 ;;W16.711A
 ;;9002226.02101,"821,W16.711A ",.02)
 ;;W16.711A
 ;;9002226.02101,"821,W16.711A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.712A ",.01)
 ;;W16.712A
 ;;9002226.02101,"821,W16.712A ",.02)
 ;;W16.712A
 ;;9002226.02101,"821,W16.712A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.721A ",.01)
 ;;W16.721A
 ;;9002226.02101,"821,W16.721A ",.02)
 ;;W16.721A
 ;;9002226.02101,"821,W16.721A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.722A ",.01)
 ;;W16.722A
 ;;9002226.02101,"821,W16.722A ",.02)
 ;;W16.722A
 ;;9002226.02101,"821,W16.722A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.811A ",.01)
 ;;W16.811A
 ;;9002226.02101,"821,W16.811A ",.02)
 ;;W16.811A
 ;;9002226.02101,"821,W16.811A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.812A ",.01)
 ;;W16.812A
 ;;9002226.02101,"821,W16.812A ",.02)
 ;;W16.812A
 ;;9002226.02101,"821,W16.812A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.821A ",.01)
 ;;W16.821A
 ;;9002226.02101,"821,W16.821A ",.02)
 ;;W16.821A
 ;;9002226.02101,"821,W16.821A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.822A ",.01)
 ;;W16.822A
 ;;9002226.02101,"821,W16.822A ",.02)
 ;;W16.822A
 ;;9002226.02101,"821,W16.822A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.831A ",.01)
 ;;W16.831A
 ;;9002226.02101,"821,W16.831A ",.02)
 ;;W16.831A
 ;;9002226.02101,"821,W16.831A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.832A ",.01)
 ;;W16.832A
 ;;9002226.02101,"821,W16.832A ",.02)
 ;;W16.832A
 ;;9002226.02101,"821,W16.832A ",.03)
 ;;30
 ;;9002226.02101,"821,W16.91XA ",.01)
 ;;W16.91XA
 ;;9002226.02101,"821,W16.91XA ",.02)
 ;;W16.91XA
 ;;9002226.02101,"821,W16.91XA ",.03)
 ;;30
 ;;9002226.02101,"821,W16.92XA ",.01)
 ;;W16.92XA
 ;;9002226.02101,"821,W16.92XA ",.02)
 ;;W16.92XA
 ;;9002226.02101,"821,W16.92XA ",.03)
 ;;30
 ;;9002226.02101,"821,W17.0XXA ",.01)
 ;;W17.0XXA
 ;;9002226.02101,"821,W17.0XXA ",.02)
 ;;W17.0XXA
 ;;9002226.02101,"821,W17.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W17.1XXA ",.01)
 ;;W17.1XXA
 ;;9002226.02101,"821,W17.1XXA ",.02)
 ;;W17.1XXA
 ;;9002226.02101,"821,W17.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W17.2XXA ",.01)
 ;;W17.2XXA
 ;;9002226.02101,"821,W17.2XXA ",.02)
 ;;W17.2XXA
 ;;9002226.02101,"821,W17.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W17.3XXA ",.01)
 ;;W17.3XXA
 ;;9002226.02101,"821,W17.3XXA ",.02)
 ;;W17.3XXA
 ;;9002226.02101,"821,W17.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W17.4XXA ",.01)
 ;;W17.4XXA
 ;;9002226.02101,"821,W17.4XXA ",.02)
 ;;W17.4XXA
 ;;9002226.02101,"821,W17.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W17.81XA ",.01)
 ;;W17.81XA
 ;;9002226.02101,"821,W17.81XA ",.02)
 ;;W17.81XA
 ;;9002226.02101,"821,W17.81XA ",.03)
 ;;30
 ;;9002226.02101,"821,W17.82XA ",.01)
 ;;W17.82XA
 ;;9002226.02101,"821,W17.82XA ",.02)
 ;;W17.82XA
 ;;9002226.02101,"821,W17.82XA ",.03)
 ;;30
 ;;9002226.02101,"821,W17.89XA ",.01)
 ;;W17.89XA
 ;;9002226.02101,"821,W17.89XA ",.02)
 ;;W17.89XA
 ;;9002226.02101,"821,W17.89XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.00XA ",.01)
 ;;W18.00XA
 ;;9002226.02101,"821,W18.00XA ",.02)
 ;;W18.00XA
 ;;9002226.02101,"821,W18.00XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.01XA ",.01)
 ;;W18.01XA
 ;;9002226.02101,"821,W18.01XA ",.02)
 ;;W18.01XA
 ;;9002226.02101,"821,W18.01XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.02XA ",.01)
 ;;W18.02XA
 ;;9002226.02101,"821,W18.02XA ",.02)
 ;;W18.02XA
 ;;9002226.02101,"821,W18.02XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.09XA ",.01)
 ;;W18.09XA
 ;;9002226.02101,"821,W18.09XA ",.02)
 ;;W18.09XA
 ;;9002226.02101,"821,W18.09XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.11XA ",.01)
 ;;W18.11XA
 ;;9002226.02101,"821,W18.11XA ",.02)
 ;;W18.11XA
 ;;9002226.02101,"821,W18.11XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.12XA ",.01)
 ;;W18.12XA
 ;;9002226.02101,"821,W18.12XA ",.02)
 ;;W18.12XA
 ;;9002226.02101,"821,W18.12XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.2XXA ",.01)
 ;;W18.2XXA
 ;;9002226.02101,"821,W18.2XXA ",.02)
 ;;W18.2XXA
 ;;9002226.02101,"821,W18.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.30XA ",.01)
 ;;W18.30XA
 ;;9002226.02101,"821,W18.30XA ",.02)
 ;;W18.30XA
 ;;9002226.02101,"821,W18.30XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.31XA ",.01)
 ;;W18.31XA
 ;;9002226.02101,"821,W18.31XA ",.02)
 ;;W18.31XA
 ;;9002226.02101,"821,W18.31XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.39XA ",.01)
 ;;W18.39XA
 ;;9002226.02101,"821,W18.39XA ",.02)
 ;;W18.39XA
 ;;9002226.02101,"821,W18.39XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.40XA ",.01)
 ;;W18.40XA
 ;;9002226.02101,"821,W18.40XA ",.02)
 ;;W18.40XA
 ;;9002226.02101,"821,W18.40XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.41XA ",.01)
 ;;W18.41XA
 ;;9002226.02101,"821,W18.41XA ",.02)
 ;;W18.41XA
 ;;9002226.02101,"821,W18.41XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.42XA ",.01)
 ;;W18.42XA
 ;;9002226.02101,"821,W18.42XA ",.02)
 ;;W18.42XA
 ;;9002226.02101,"821,W18.42XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.43XA ",.01)
 ;;W18.43XA
 ;;9002226.02101,"821,W18.43XA ",.02)
 ;;W18.43XA
 ;;9002226.02101,"821,W18.43XA ",.03)
 ;;30
 ;;9002226.02101,"821,W18.49XA ",.01)
 ;;W18.49XA
 ;;9002226.02101,"821,W18.49XA ",.02)
 ;;W18.49XA
 ;;9002226.02101,"821,W18.49XA ",.03)
 ;;30
 ;;9002226.02101,"821,W19.XXXA ",.01)
 ;;W19.XXXA