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

ATXXA129.m

Go to the documentation of this file.
  1. ATXXA129 ;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,S93.104A ",.01)
  1. ;;S93.104A
  1. ;;9002226.02101,"873,S93.104A ",.02)
  1. ;;S93.104A
  1. ;;9002226.02101,"873,S93.104A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.105A ",.01)
  1. ;;S93.105A
  1. ;;9002226.02101,"873,S93.105A ",.02)
  1. ;;S93.105A
  1. ;;9002226.02101,"873,S93.105A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.106A ",.01)
  1. ;;S93.106A
  1. ;;9002226.02101,"873,S93.106A ",.02)
  1. ;;S93.106A
  1. ;;9002226.02101,"873,S93.106A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.111A ",.01)
  1. ;;S93.111A
  1. ;;9002226.02101,"873,S93.111A ",.02)
  1. ;;S93.111A
  1. ;;9002226.02101,"873,S93.111A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.112A ",.01)
  1. ;;S93.112A
  1. ;;9002226.02101,"873,S93.112A ",.02)
  1. ;;S93.112A
  1. ;;9002226.02101,"873,S93.112A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.113A ",.01)
  1. ;;S93.113A
  1. ;;9002226.02101,"873,S93.113A ",.02)
  1. ;;S93.113A
  1. ;;9002226.02101,"873,S93.113A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.114A ",.01)
  1. ;;S93.114A
  1. ;;9002226.02101,"873,S93.114A ",.02)
  1. ;;S93.114A
  1. ;;9002226.02101,"873,S93.114A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.115A ",.01)
  1. ;;S93.115A
  1. ;;9002226.02101,"873,S93.115A ",.02)
  1. ;;S93.115A
  1. ;;9002226.02101,"873,S93.115A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.116A ",.01)
  1. ;;S93.116A
  1. ;;9002226.02101,"873,S93.116A ",.02)
  1. ;;S93.116A
  1. ;;9002226.02101,"873,S93.116A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.119A ",.01)
  1. ;;S93.119A
  1. ;;9002226.02101,"873,S93.119A ",.02)
  1. ;;S93.119A
  1. ;;9002226.02101,"873,S93.119A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.121A ",.01)
  1. ;;S93.121A
  1. ;;9002226.02101,"873,S93.121A ",.02)
  1. ;;S93.121A
  1. ;;9002226.02101,"873,S93.121A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.122A ",.01)
  1. ;;S93.122A
  1. ;;9002226.02101,"873,S93.122A ",.02)
  1. ;;S93.122A
  1. ;;9002226.02101,"873,S93.122A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.123A ",.01)
  1. ;;S93.123A
  1. ;;9002226.02101,"873,S93.123A ",.02)
  1. ;;S93.123A
  1. ;;9002226.02101,"873,S93.123A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.124A ",.01)
  1. ;;S93.124A
  1. ;;9002226.02101,"873,S93.124A ",.02)
  1. ;;S93.124A
  1. ;;9002226.02101,"873,S93.124A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.125A ",.01)
  1. ;;S93.125A
  1. ;;9002226.02101,"873,S93.125A ",.02)
  1. ;;S93.125A
  1. ;;9002226.02101,"873,S93.125A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.126A ",.01)
  1. ;;S93.126A
  1. ;;9002226.02101,"873,S93.126A ",.02)
  1. ;;S93.126A
  1. ;;9002226.02101,"873,S93.126A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.129A ",.01)
  1. ;;S93.129A
  1. ;;9002226.02101,"873,S93.129A ",.02)
  1. ;;S93.129A
  1. ;;9002226.02101,"873,S93.129A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.131A ",.01)
  1. ;;S93.131A
  1. ;;9002226.02101,"873,S93.131A ",.02)
  1. ;;S93.131A
  1. ;;9002226.02101,"873,S93.131A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.132A ",.01)
  1. ;;S93.132A
  1. ;;9002226.02101,"873,S93.132A ",.02)
  1. ;;S93.132A
  1. ;;9002226.02101,"873,S93.132A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.133A ",.01)
  1. ;;S93.133A
  1. ;;9002226.02101,"873,S93.133A ",.02)
  1. ;;S93.133A
  1. ;;9002226.02101,"873,S93.133A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.134A ",.01)
  1. ;;S93.134A
  1. ;;9002226.02101,"873,S93.134A ",.02)
  1. ;;S93.134A
  1. ;;9002226.02101,"873,S93.134A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.135A ",.01)
  1. ;;S93.135A
  1. ;;9002226.02101,"873,S93.135A ",.02)
  1. ;;S93.135A
  1. ;;9002226.02101,"873,S93.135A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.136A ",.01)
  1. ;;S93.136A
  1. ;;9002226.02101,"873,S93.136A ",.02)
  1. ;;S93.136A
  1. ;;9002226.02101,"873,S93.136A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.139A ",.01)
  1. ;;S93.139A
  1. ;;9002226.02101,"873,S93.139A ",.02)
  1. ;;S93.139A
  1. ;;9002226.02101,"873,S93.139A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.141A ",.01)
  1. ;;S93.141A
  1. ;;9002226.02101,"873,S93.141A ",.02)
  1. ;;S93.141A
  1. ;;9002226.02101,"873,S93.141A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.142A ",.01)
  1. ;;S93.142A
  1. ;;9002226.02101,"873,S93.142A ",.02)
  1. ;;S93.142A
  1. ;;9002226.02101,"873,S93.142A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.143A ",.01)
  1. ;;S93.143A
  1. ;;9002226.02101,"873,S93.143A ",.02)
  1. ;;S93.143A
  1. ;;9002226.02101,"873,S93.143A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.144A ",.01)
  1. ;;S93.144A
  1. ;;9002226.02101,"873,S93.144A ",.02)
  1. ;;S93.144A
  1. ;;9002226.02101,"873,S93.144A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.145A ",.01)
  1. ;;S93.145A
  1. ;;9002226.02101,"873,S93.145A ",.02)
  1. ;;S93.145A
  1. ;;9002226.02101,"873,S93.145A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.146A ",.01)
  1. ;;S93.146A
  1. ;;9002226.02101,"873,S93.146A ",.02)
  1. ;;S93.146A
  1. ;;9002226.02101,"873,S93.146A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.149A ",.01)
  1. ;;S93.149A
  1. ;;9002226.02101,"873,S93.149A ",.02)
  1. ;;S93.149A
  1. ;;9002226.02101,"873,S93.149A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.301A ",.01)
  1. ;;S93.301A
  1. ;;9002226.02101,"873,S93.301A ",.02)
  1. ;;S93.301A
  1. ;;9002226.02101,"873,S93.301A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.302A ",.01)
  1. ;;S93.302A
  1. ;;9002226.02101,"873,S93.302A ",.02)
  1. ;;S93.302A
  1. ;;9002226.02101,"873,S93.302A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.303A ",.01)
  1. ;;S93.303A
  1. ;;9002226.02101,"873,S93.303A ",.02)
  1. ;;S93.303A
  1. ;;9002226.02101,"873,S93.303A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.304A ",.01)
  1. ;;S93.304A
  1. ;;9002226.02101,"873,S93.304A ",.02)
  1. ;;S93.304A
  1. ;;9002226.02101,"873,S93.304A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.305A ",.01)
  1. ;;S93.305A
  1. ;;9002226.02101,"873,S93.305A ",.02)
  1. ;;S93.305A
  1. ;;9002226.02101,"873,S93.305A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.306A ",.01)
  1. ;;S93.306A
  1. ;;9002226.02101,"873,S93.306A ",.02)
  1. ;;S93.306A
  1. ;;9002226.02101,"873,S93.306A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.311A ",.01)
  1. ;;S93.311A
  1. ;;9002226.02101,"873,S93.311A ",.02)
  1. ;;S93.311A
  1. ;;9002226.02101,"873,S93.311A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.312A ",.01)
  1. ;;S93.312A
  1. ;;9002226.02101,"873,S93.312A ",.02)
  1. ;;S93.312A
  1. ;;9002226.02101,"873,S93.312A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.313A ",.01)
  1. ;;S93.313A
  1. ;;9002226.02101,"873,S93.313A ",.02)
  1. ;;S93.313A
  1. ;;9002226.02101,"873,S93.313A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.314A ",.01)
  1. ;;S93.314A
  1. ;;9002226.02101,"873,S93.314A ",.02)
  1. ;;S93.314A
  1. ;;9002226.02101,"873,S93.314A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.315A ",.01)
  1. ;;S93.315A
  1. ;;9002226.02101,"873,S93.315A ",.02)
  1. ;;S93.315A
  1. ;;9002226.02101,"873,S93.315A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.316A ",.01)
  1. ;;S93.316A
  1. ;;9002226.02101,"873,S93.316A ",.02)
  1. ;;S93.316A
  1. ;;9002226.02101,"873,S93.316A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.321A ",.01)
  1. ;;S93.321A
  1. ;;9002226.02101,"873,S93.321A ",.02)
  1. ;;S93.321A
  1. ;;9002226.02101,"873,S93.321A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.322A ",.01)
  1. ;;S93.322A
  1. ;;9002226.02101,"873,S93.322A ",.02)
  1. ;;S93.322A
  1. ;;9002226.02101,"873,S93.322A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.323A ",.01)
  1. ;;S93.323A
  1. ;;9002226.02101,"873,S93.323A ",.02)
  1. ;;S93.323A
  1. ;;9002226.02101,"873,S93.323A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.324A ",.01)
  1. ;;S93.324A
  1. ;;9002226.02101,"873,S93.324A ",.02)
  1. ;;S93.324A
  1. ;;9002226.02101,"873,S93.324A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.325A ",.01)
  1. ;;S93.325A
  1. ;;9002226.02101,"873,S93.325A ",.02)
  1. ;;S93.325A
  1. ;;9002226.02101,"873,S93.325A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.326A ",.01)
  1. ;;S93.326A
  1. ;;9002226.02101,"873,S93.326A ",.02)
  1. ;;S93.326A
  1. ;;9002226.02101,"873,S93.326A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.331A ",.01)
  1. ;;S93.331A
  1. ;;9002226.02101,"873,S93.331A ",.02)
  1. ;;S93.331A
  1. ;;9002226.02101,"873,S93.331A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.332A ",.01)
  1. ;;S93.332A
  1. ;;9002226.02101,"873,S93.332A ",.02)
  1. ;;S93.332A
  1. ;;9002226.02101,"873,S93.332A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.333A ",.01)
  1. ;;S93.333A
  1. ;;9002226.02101,"873,S93.333A ",.02)
  1. ;;S93.333A
  1. ;;9002226.02101,"873,S93.333A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.334A ",.01)
  1. ;;S93.334A
  1. ;;9002226.02101,"873,S93.334A ",.02)
  1. ;;S93.334A
  1. ;;9002226.02101,"873,S93.334A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.335A ",.01)
  1. ;;S93.335A
  1. ;;9002226.02101,"873,S93.335A ",.02)
  1. ;;S93.335A
  1. ;;9002226.02101,"873,S93.335A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.336A ",.01)
  1. ;;S93.336A
  1. ;;9002226.02101,"873,S93.336A ",.02)
  1. ;;S93.336A
  1. ;;9002226.02101,"873,S93.336A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.401A ",.01)
  1. ;;S93.401A
  1. ;;9002226.02101,"873,S93.401A ",.02)
  1. ;;S93.401A
  1. ;;9002226.02101,"873,S93.401A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.402A ",.01)
  1. ;;S93.402A
  1. ;;9002226.02101,"873,S93.402A ",.02)
  1. ;;S93.402A
  1. ;;9002226.02101,"873,S93.402A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.409A ",.01)
  1. ;;S93.409A
  1. ;;9002226.02101,"873,S93.409A ",.02)
  1. ;;S93.409A
  1. ;;9002226.02101,"873,S93.409A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.411A ",.01)
  1. ;;S93.411A
  1. ;;9002226.02101,"873,S93.411A ",.02)
  1. ;;S93.411A
  1. ;;9002226.02101,"873,S93.411A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.412A ",.01)
  1. ;;S93.412A
  1. ;;9002226.02101,"873,S93.412A ",.02)
  1. ;;S93.412A
  1. ;;9002226.02101,"873,S93.412A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.419A ",.01)
  1. ;;S93.419A
  1. ;;9002226.02101,"873,S93.419A ",.02)
  1. ;;S93.419A
  1. ;;9002226.02101,"873,S93.419A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.421A ",.01)
  1. ;;S93.421A
  1. ;;9002226.02101,"873,S93.421A ",.02)
  1. ;;S93.421A
  1. ;;9002226.02101,"873,S93.421A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.422A ",.01)
  1. ;;S93.422A
  1. ;;9002226.02101,"873,S93.422A ",.02)
  1. ;;S93.422A
  1. ;;9002226.02101,"873,S93.422A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.429A ",.01)
  1. ;;S93.429A
  1. ;;9002226.02101,"873,S93.429A ",.02)
  1. ;;S93.429A
  1. ;;9002226.02101,"873,S93.429A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.431A ",.01)
  1. ;;S93.431A
  1. ;;9002226.02101,"873,S93.431A ",.02)
  1. ;;S93.431A
  1. ;;9002226.02101,"873,S93.431A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.432A ",.01)
  1. ;;S93.432A
  1. ;;9002226.02101,"873,S93.432A ",.02)
  1. ;;S93.432A
  1. ;;9002226.02101,"873,S93.432A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.439A ",.01)
  1. ;;S93.439A
  1. ;;9002226.02101,"873,S93.439A ",.02)
  1. ;;S93.439A
  1. ;;9002226.02101,"873,S93.439A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.491A ",.01)
  1. ;;S93.491A
  1. ;;9002226.02101,"873,S93.491A ",.02)
  1. ;;S93.491A
  1. ;;9002226.02101,"873,S93.491A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.492A ",.01)
  1. ;;S93.492A
  1. ;;9002226.02101,"873,S93.492A ",.02)
  1. ;;S93.492A
  1. ;;9002226.02101,"873,S93.492A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.499A ",.01)
  1. ;;S93.499A
  1. ;;9002226.02101,"873,S93.499A ",.02)
  1. ;;S93.499A
  1. ;;9002226.02101,"873,S93.499A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.501A ",.01)
  1. ;;S93.501A
  1. ;;9002226.02101,"873,S93.501A ",.02)
  1. ;;S93.501A
  1. ;;9002226.02101,"873,S93.501A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.502A ",.01)
  1. ;;S93.502A
  1. ;;9002226.02101,"873,S93.502A ",.02)
  1. ;;S93.502A
  1. ;;9002226.02101,"873,S93.502A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.503A ",.01)
  1. ;;S93.503A
  1. ;;9002226.02101,"873,S93.503A ",.02)
  1. ;;S93.503A
  1. ;;9002226.02101,"873,S93.503A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.504A ",.01)
  1. ;;S93.504A
  1. ;;9002226.02101,"873,S93.504A ",.02)
  1. ;;S93.504A
  1. ;;9002226.02101,"873,S93.504A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.505A ",.01)
  1. ;;S93.505A
  1. ;;9002226.02101,"873,S93.505A ",.02)
  1. ;;S93.505A
  1. ;;9002226.02101,"873,S93.505A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.506A ",.01)
  1. ;;S93.506A
  1. ;;9002226.02101,"873,S93.506A ",.02)
  1. ;;S93.506A
  1. ;;9002226.02101,"873,S93.506A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.509A ",.01)
  1. ;;S93.509A
  1. ;;9002226.02101,"873,S93.509A ",.02)
  1. ;;S93.509A
  1. ;;9002226.02101,"873,S93.509A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.511A ",.01)
  1. ;;S93.511A
  1. ;;9002226.02101,"873,S93.511A ",.02)
  1. ;;S93.511A
  1. ;;9002226.02101,"873,S93.511A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S93.512A ",.01)
  1. ;;S93.512A