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

ATXXA80.m

Go to the documentation of this file.
  1. ATXXA80 ;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,S61.139A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.141A ",.01)
  1. ;;S61.141A
  1. ;;9002226.02101,"873,S61.141A ",.02)
  1. ;;S61.141A
  1. ;;9002226.02101,"873,S61.141A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.142A ",.01)
  1. ;;S61.142A
  1. ;;9002226.02101,"873,S61.142A ",.02)
  1. ;;S61.142A
  1. ;;9002226.02101,"873,S61.142A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.149A ",.01)
  1. ;;S61.149A
  1. ;;9002226.02101,"873,S61.149A ",.02)
  1. ;;S61.149A
  1. ;;9002226.02101,"873,S61.149A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.151A ",.01)
  1. ;;S61.151A
  1. ;;9002226.02101,"873,S61.151A ",.02)
  1. ;;S61.151A
  1. ;;9002226.02101,"873,S61.151A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.152A ",.01)
  1. ;;S61.152A
  1. ;;9002226.02101,"873,S61.152A ",.02)
  1. ;;S61.152A
  1. ;;9002226.02101,"873,S61.152A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.159A ",.01)
  1. ;;S61.159A
  1. ;;9002226.02101,"873,S61.159A ",.02)
  1. ;;S61.159A
  1. ;;9002226.02101,"873,S61.159A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.200A ",.01)
  1. ;;S61.200A
  1. ;;9002226.02101,"873,S61.200A ",.02)
  1. ;;S61.200A
  1. ;;9002226.02101,"873,S61.200A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.201A ",.01)
  1. ;;S61.201A
  1. ;;9002226.02101,"873,S61.201A ",.02)
  1. ;;S61.201A
  1. ;;9002226.02101,"873,S61.201A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.202A ",.01)
  1. ;;S61.202A
  1. ;;9002226.02101,"873,S61.202A ",.02)
  1. ;;S61.202A
  1. ;;9002226.02101,"873,S61.202A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.203A ",.01)
  1. ;;S61.203A
  1. ;;9002226.02101,"873,S61.203A ",.02)
  1. ;;S61.203A
  1. ;;9002226.02101,"873,S61.203A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.204A ",.01)
  1. ;;S61.204A
  1. ;;9002226.02101,"873,S61.204A ",.02)
  1. ;;S61.204A
  1. ;;9002226.02101,"873,S61.204A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.205A ",.01)
  1. ;;S61.205A
  1. ;;9002226.02101,"873,S61.205A ",.02)
  1. ;;S61.205A
  1. ;;9002226.02101,"873,S61.205A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.206A ",.01)
  1. ;;S61.206A
  1. ;;9002226.02101,"873,S61.206A ",.02)
  1. ;;S61.206A
  1. ;;9002226.02101,"873,S61.206A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.207A ",.01)
  1. ;;S61.207A
  1. ;;9002226.02101,"873,S61.207A ",.02)
  1. ;;S61.207A
  1. ;;9002226.02101,"873,S61.207A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.208A ",.01)
  1. ;;S61.208A
  1. ;;9002226.02101,"873,S61.208A ",.02)
  1. ;;S61.208A
  1. ;;9002226.02101,"873,S61.208A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.209A ",.01)
  1. ;;S61.209A
  1. ;;9002226.02101,"873,S61.209A ",.02)
  1. ;;S61.209A
  1. ;;9002226.02101,"873,S61.209A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.210A ",.01)
  1. ;;S61.210A
  1. ;;9002226.02101,"873,S61.210A ",.02)
  1. ;;S61.210A
  1. ;;9002226.02101,"873,S61.210A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.211A ",.01)
  1. ;;S61.211A
  1. ;;9002226.02101,"873,S61.211A ",.02)
  1. ;;S61.211A
  1. ;;9002226.02101,"873,S61.211A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.212A ",.01)
  1. ;;S61.212A
  1. ;;9002226.02101,"873,S61.212A ",.02)
  1. ;;S61.212A
  1. ;;9002226.02101,"873,S61.212A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.213A ",.01)
  1. ;;S61.213A
  1. ;;9002226.02101,"873,S61.213A ",.02)
  1. ;;S61.213A
  1. ;;9002226.02101,"873,S61.213A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.214A ",.01)
  1. ;;S61.214A
  1. ;;9002226.02101,"873,S61.214A ",.02)
  1. ;;S61.214A
  1. ;;9002226.02101,"873,S61.214A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.215A ",.01)
  1. ;;S61.215A
  1. ;;9002226.02101,"873,S61.215A ",.02)
  1. ;;S61.215A
  1. ;;9002226.02101,"873,S61.215A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.216A ",.01)
  1. ;;S61.216A
  1. ;;9002226.02101,"873,S61.216A ",.02)
  1. ;;S61.216A
  1. ;;9002226.02101,"873,S61.216A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.217A ",.01)
  1. ;;S61.217A
  1. ;;9002226.02101,"873,S61.217A ",.02)
  1. ;;S61.217A
  1. ;;9002226.02101,"873,S61.217A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.218A ",.01)
  1. ;;S61.218A
  1. ;;9002226.02101,"873,S61.218A ",.02)
  1. ;;S61.218A
  1. ;;9002226.02101,"873,S61.218A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.219A ",.01)
  1. ;;S61.219A
  1. ;;9002226.02101,"873,S61.219A ",.02)
  1. ;;S61.219A
  1. ;;9002226.02101,"873,S61.219A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.220A ",.01)
  1. ;;S61.220A
  1. ;;9002226.02101,"873,S61.220A ",.02)
  1. ;;S61.220A
  1. ;;9002226.02101,"873,S61.220A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.221A ",.01)
  1. ;;S61.221A
  1. ;;9002226.02101,"873,S61.221A ",.02)
  1. ;;S61.221A
  1. ;;9002226.02101,"873,S61.221A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.222A ",.01)
  1. ;;S61.222A
  1. ;;9002226.02101,"873,S61.222A ",.02)
  1. ;;S61.222A
  1. ;;9002226.02101,"873,S61.222A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.223A ",.01)
  1. ;;S61.223A
  1. ;;9002226.02101,"873,S61.223A ",.02)
  1. ;;S61.223A
  1. ;;9002226.02101,"873,S61.223A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.224A ",.01)
  1. ;;S61.224A
  1. ;;9002226.02101,"873,S61.224A ",.02)
  1. ;;S61.224A
  1. ;;9002226.02101,"873,S61.224A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.225A ",.01)
  1. ;;S61.225A
  1. ;;9002226.02101,"873,S61.225A ",.02)
  1. ;;S61.225A
  1. ;;9002226.02101,"873,S61.225A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.226A ",.01)
  1. ;;S61.226A
  1. ;;9002226.02101,"873,S61.226A ",.02)
  1. ;;S61.226A
  1. ;;9002226.02101,"873,S61.226A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.227A ",.01)
  1. ;;S61.227A
  1. ;;9002226.02101,"873,S61.227A ",.02)
  1. ;;S61.227A
  1. ;;9002226.02101,"873,S61.227A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.228A ",.01)
  1. ;;S61.228A
  1. ;;9002226.02101,"873,S61.228A ",.02)
  1. ;;S61.228A
  1. ;;9002226.02101,"873,S61.228A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.229A ",.01)
  1. ;;S61.229A
  1. ;;9002226.02101,"873,S61.229A ",.02)
  1. ;;S61.229A
  1. ;;9002226.02101,"873,S61.229A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.230A ",.01)
  1. ;;S61.230A
  1. ;;9002226.02101,"873,S61.230A ",.02)
  1. ;;S61.230A
  1. ;;9002226.02101,"873,S61.230A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.231A ",.01)
  1. ;;S61.231A
  1. ;;9002226.02101,"873,S61.231A ",.02)
  1. ;;S61.231A
  1. ;;9002226.02101,"873,S61.231A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.232A ",.01)
  1. ;;S61.232A
  1. ;;9002226.02101,"873,S61.232A ",.02)
  1. ;;S61.232A
  1. ;;9002226.02101,"873,S61.232A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.233A ",.01)
  1. ;;S61.233A
  1. ;;9002226.02101,"873,S61.233A ",.02)
  1. ;;S61.233A
  1. ;;9002226.02101,"873,S61.233A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.234A ",.01)
  1. ;;S61.234A
  1. ;;9002226.02101,"873,S61.234A ",.02)
  1. ;;S61.234A
  1. ;;9002226.02101,"873,S61.234A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.235A ",.01)
  1. ;;S61.235A
  1. ;;9002226.02101,"873,S61.235A ",.02)
  1. ;;S61.235A
  1. ;;9002226.02101,"873,S61.235A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.236A ",.01)
  1. ;;S61.236A
  1. ;;9002226.02101,"873,S61.236A ",.02)
  1. ;;S61.236A
  1. ;;9002226.02101,"873,S61.236A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.237A ",.01)
  1. ;;S61.237A
  1. ;;9002226.02101,"873,S61.237A ",.02)
  1. ;;S61.237A
  1. ;;9002226.02101,"873,S61.237A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.238A ",.01)
  1. ;;S61.238A
  1. ;;9002226.02101,"873,S61.238A ",.02)
  1. ;;S61.238A
  1. ;;9002226.02101,"873,S61.238A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.239A ",.01)
  1. ;;S61.239A
  1. ;;9002226.02101,"873,S61.239A ",.02)
  1. ;;S61.239A
  1. ;;9002226.02101,"873,S61.239A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.240A ",.01)
  1. ;;S61.240A
  1. ;;9002226.02101,"873,S61.240A ",.02)
  1. ;;S61.240A
  1. ;;9002226.02101,"873,S61.240A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.241A ",.01)
  1. ;;S61.241A
  1. ;;9002226.02101,"873,S61.241A ",.02)
  1. ;;S61.241A
  1. ;;9002226.02101,"873,S61.241A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.242A ",.01)
  1. ;;S61.242A
  1. ;;9002226.02101,"873,S61.242A ",.02)
  1. ;;S61.242A
  1. ;;9002226.02101,"873,S61.242A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.243A ",.01)
  1. ;;S61.243A
  1. ;;9002226.02101,"873,S61.243A ",.02)
  1. ;;S61.243A
  1. ;;9002226.02101,"873,S61.243A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.244A ",.01)
  1. ;;S61.244A
  1. ;;9002226.02101,"873,S61.244A ",.02)
  1. ;;S61.244A
  1. ;;9002226.02101,"873,S61.244A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.245A ",.01)
  1. ;;S61.245A
  1. ;;9002226.02101,"873,S61.245A ",.02)
  1. ;;S61.245A
  1. ;;9002226.02101,"873,S61.245A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.246A ",.01)
  1. ;;S61.246A
  1. ;;9002226.02101,"873,S61.246A ",.02)
  1. ;;S61.246A
  1. ;;9002226.02101,"873,S61.246A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.247A ",.01)
  1. ;;S61.247A
  1. ;;9002226.02101,"873,S61.247A ",.02)
  1. ;;S61.247A
  1. ;;9002226.02101,"873,S61.247A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.248A ",.01)
  1. ;;S61.248A
  1. ;;9002226.02101,"873,S61.248A ",.02)
  1. ;;S61.248A
  1. ;;9002226.02101,"873,S61.248A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.249A ",.01)
  1. ;;S61.249A
  1. ;;9002226.02101,"873,S61.249A ",.02)
  1. ;;S61.249A
  1. ;;9002226.02101,"873,S61.249A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.250A ",.01)
  1. ;;S61.250A
  1. ;;9002226.02101,"873,S61.250A ",.02)
  1. ;;S61.250A
  1. ;;9002226.02101,"873,S61.250A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.251A ",.01)
  1. ;;S61.251A
  1. ;;9002226.02101,"873,S61.251A ",.02)
  1. ;;S61.251A
  1. ;;9002226.02101,"873,S61.251A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.252A ",.01)
  1. ;;S61.252A
  1. ;;9002226.02101,"873,S61.252A ",.02)
  1. ;;S61.252A
  1. ;;9002226.02101,"873,S61.252A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.253A ",.01)
  1. ;;S61.253A
  1. ;;9002226.02101,"873,S61.253A ",.02)
  1. ;;S61.253A
  1. ;;9002226.02101,"873,S61.253A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.254A ",.01)
  1. ;;S61.254A
  1. ;;9002226.02101,"873,S61.254A ",.02)
  1. ;;S61.254A
  1. ;;9002226.02101,"873,S61.254A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.255A ",.01)
  1. ;;S61.255A
  1. ;;9002226.02101,"873,S61.255A ",.02)
  1. ;;S61.255A
  1. ;;9002226.02101,"873,S61.255A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.256A ",.01)
  1. ;;S61.256A
  1. ;;9002226.02101,"873,S61.256A ",.02)
  1. ;;S61.256A
  1. ;;9002226.02101,"873,S61.256A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.257A ",.01)
  1. ;;S61.257A
  1. ;;9002226.02101,"873,S61.257A ",.02)
  1. ;;S61.257A
  1. ;;9002226.02101,"873,S61.257A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.258A ",.01)
  1. ;;S61.258A
  1. ;;9002226.02101,"873,S61.258A ",.02)
  1. ;;S61.258A
  1. ;;9002226.02101,"873,S61.258A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.259A ",.01)
  1. ;;S61.259A
  1. ;;9002226.02101,"873,S61.259A ",.02)
  1. ;;S61.259A
  1. ;;9002226.02101,"873,S61.259A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.300A ",.01)
  1. ;;S61.300A
  1. ;;9002226.02101,"873,S61.300A ",.02)
  1. ;;S61.300A
  1. ;;9002226.02101,"873,S61.300A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.301A ",.01)
  1. ;;S61.301A
  1. ;;9002226.02101,"873,S61.301A ",.02)
  1. ;;S61.301A
  1. ;;9002226.02101,"873,S61.301A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.302A ",.01)
  1. ;;S61.302A
  1. ;;9002226.02101,"873,S61.302A ",.02)
  1. ;;S61.302A
  1. ;;9002226.02101,"873,S61.302A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.303A ",.01)
  1. ;;S61.303A
  1. ;;9002226.02101,"873,S61.303A ",.02)
  1. ;;S61.303A
  1. ;;9002226.02101,"873,S61.303A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.304A ",.01)
  1. ;;S61.304A
  1. ;;9002226.02101,"873,S61.304A ",.02)
  1. ;;S61.304A
  1. ;;9002226.02101,"873,S61.304A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.305A ",.01)
  1. ;;S61.305A
  1. ;;9002226.02101,"873,S61.305A ",.02)
  1. ;;S61.305A
  1. ;;9002226.02101,"873,S61.305A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.306A ",.01)
  1. ;;S61.306A
  1. ;;9002226.02101,"873,S61.306A ",.02)
  1. ;;S61.306A
  1. ;;9002226.02101,"873,S61.306A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.307A ",.01)
  1. ;;S61.307A
  1. ;;9002226.02101,"873,S61.307A ",.02)
  1. ;;S61.307A
  1. ;;9002226.02101,"873,S61.307A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.308A ",.01)
  1. ;;S61.308A
  1. ;;9002226.02101,"873,S61.308A ",.02)
  1. ;;S61.308A
  1. ;;9002226.02101,"873,S61.308A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.309A ",.01)
  1. ;;S61.309A
  1. ;;9002226.02101,"873,S61.309A ",.02)
  1. ;;S61.309A
  1. ;;9002226.02101,"873,S61.309A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.310A ",.01)
  1. ;;S61.310A
  1. ;;9002226.02101,"873,S61.310A ",.02)
  1. ;;S61.310A
  1. ;;9002226.02101,"873,S61.310A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.311A ",.01)
  1. ;;S61.311A
  1. ;;9002226.02101,"873,S61.311A ",.02)
  1. ;;S61.311A
  1. ;;9002226.02101,"873,S61.311A ",.03)
  1. ;;30