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

ATXXA84.m

Go to the documentation of this file.
  1. ATXXA84 ;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,S62.211B ",.01)
  1. ;;S62.211B
  1. ;;9002226.02101,"873,S62.211B ",.02)
  1. ;;S62.211B
  1. ;;9002226.02101,"873,S62.211B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.212A ",.01)
  1. ;;S62.212A
  1. ;;9002226.02101,"873,S62.212A ",.02)
  1. ;;S62.212A
  1. ;;9002226.02101,"873,S62.212A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.212B ",.01)
  1. ;;S62.212B
  1. ;;9002226.02101,"873,S62.212B ",.02)
  1. ;;S62.212B
  1. ;;9002226.02101,"873,S62.212B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.213A ",.01)
  1. ;;S62.213A
  1. ;;9002226.02101,"873,S62.213A ",.02)
  1. ;;S62.213A
  1. ;;9002226.02101,"873,S62.213A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.213B ",.01)
  1. ;;S62.213B
  1. ;;9002226.02101,"873,S62.213B ",.02)
  1. ;;S62.213B
  1. ;;9002226.02101,"873,S62.213B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.221A ",.01)
  1. ;;S62.221A
  1. ;;9002226.02101,"873,S62.221A ",.02)
  1. ;;S62.221A
  1. ;;9002226.02101,"873,S62.221A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.221B ",.01)
  1. ;;S62.221B
  1. ;;9002226.02101,"873,S62.221B ",.02)
  1. ;;S62.221B
  1. ;;9002226.02101,"873,S62.221B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.222A ",.01)
  1. ;;S62.222A
  1. ;;9002226.02101,"873,S62.222A ",.02)
  1. ;;S62.222A
  1. ;;9002226.02101,"873,S62.222A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.222B ",.01)
  1. ;;S62.222B
  1. ;;9002226.02101,"873,S62.222B ",.02)
  1. ;;S62.222B
  1. ;;9002226.02101,"873,S62.222B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.223A ",.01)
  1. ;;S62.223A
  1. ;;9002226.02101,"873,S62.223A ",.02)
  1. ;;S62.223A
  1. ;;9002226.02101,"873,S62.223A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.223B ",.01)
  1. ;;S62.223B
  1. ;;9002226.02101,"873,S62.223B ",.02)
  1. ;;S62.223B
  1. ;;9002226.02101,"873,S62.223B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.224A ",.01)
  1. ;;S62.224A
  1. ;;9002226.02101,"873,S62.224A ",.02)
  1. ;;S62.224A
  1. ;;9002226.02101,"873,S62.224A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.224B ",.01)
  1. ;;S62.224B
  1. ;;9002226.02101,"873,S62.224B ",.02)
  1. ;;S62.224B
  1. ;;9002226.02101,"873,S62.224B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.225A ",.01)
  1. ;;S62.225A
  1. ;;9002226.02101,"873,S62.225A ",.02)
  1. ;;S62.225A
  1. ;;9002226.02101,"873,S62.225A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.225B ",.01)
  1. ;;S62.225B
  1. ;;9002226.02101,"873,S62.225B ",.02)
  1. ;;S62.225B
  1. ;;9002226.02101,"873,S62.225B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.226A ",.01)
  1. ;;S62.226A
  1. ;;9002226.02101,"873,S62.226A ",.02)
  1. ;;S62.226A
  1. ;;9002226.02101,"873,S62.226A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.226B ",.01)
  1. ;;S62.226B
  1. ;;9002226.02101,"873,S62.226B ",.02)
  1. ;;S62.226B
  1. ;;9002226.02101,"873,S62.226B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.231A ",.01)
  1. ;;S62.231A
  1. ;;9002226.02101,"873,S62.231A ",.02)
  1. ;;S62.231A
  1. ;;9002226.02101,"873,S62.231A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.231B ",.01)
  1. ;;S62.231B
  1. ;;9002226.02101,"873,S62.231B ",.02)
  1. ;;S62.231B
  1. ;;9002226.02101,"873,S62.231B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.232A ",.01)
  1. ;;S62.232A
  1. ;;9002226.02101,"873,S62.232A ",.02)
  1. ;;S62.232A
  1. ;;9002226.02101,"873,S62.232A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.232B ",.01)
  1. ;;S62.232B
  1. ;;9002226.02101,"873,S62.232B ",.02)
  1. ;;S62.232B
  1. ;;9002226.02101,"873,S62.232B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.233A ",.01)
  1. ;;S62.233A
  1. ;;9002226.02101,"873,S62.233A ",.02)
  1. ;;S62.233A
  1. ;;9002226.02101,"873,S62.233A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.233B ",.01)
  1. ;;S62.233B
  1. ;;9002226.02101,"873,S62.233B ",.02)
  1. ;;S62.233B
  1. ;;9002226.02101,"873,S62.233B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.234A ",.01)
  1. ;;S62.234A
  1. ;;9002226.02101,"873,S62.234A ",.02)
  1. ;;S62.234A
  1. ;;9002226.02101,"873,S62.234A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.234B ",.01)
  1. ;;S62.234B
  1. ;;9002226.02101,"873,S62.234B ",.02)
  1. ;;S62.234B
  1. ;;9002226.02101,"873,S62.234B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.235A ",.01)
  1. ;;S62.235A
  1. ;;9002226.02101,"873,S62.235A ",.02)
  1. ;;S62.235A
  1. ;;9002226.02101,"873,S62.235A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.235B ",.01)
  1. ;;S62.235B
  1. ;;9002226.02101,"873,S62.235B ",.02)
  1. ;;S62.235B
  1. ;;9002226.02101,"873,S62.235B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.236A ",.01)
  1. ;;S62.236A
  1. ;;9002226.02101,"873,S62.236A ",.02)
  1. ;;S62.236A
  1. ;;9002226.02101,"873,S62.236A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.236B ",.01)
  1. ;;S62.236B
  1. ;;9002226.02101,"873,S62.236B ",.02)
  1. ;;S62.236B
  1. ;;9002226.02101,"873,S62.236B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.241A ",.01)
  1. ;;S62.241A
  1. ;;9002226.02101,"873,S62.241A ",.02)
  1. ;;S62.241A
  1. ;;9002226.02101,"873,S62.241A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.241B ",.01)
  1. ;;S62.241B
  1. ;;9002226.02101,"873,S62.241B ",.02)
  1. ;;S62.241B
  1. ;;9002226.02101,"873,S62.241B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.242A ",.01)
  1. ;;S62.242A
  1. ;;9002226.02101,"873,S62.242A ",.02)
  1. ;;S62.242A
  1. ;;9002226.02101,"873,S62.242A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.242B ",.01)
  1. ;;S62.242B
  1. ;;9002226.02101,"873,S62.242B ",.02)
  1. ;;S62.242B
  1. ;;9002226.02101,"873,S62.242B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.243A ",.01)
  1. ;;S62.243A
  1. ;;9002226.02101,"873,S62.243A ",.02)
  1. ;;S62.243A
  1. ;;9002226.02101,"873,S62.243A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.243B ",.01)
  1. ;;S62.243B
  1. ;;9002226.02101,"873,S62.243B ",.02)
  1. ;;S62.243B
  1. ;;9002226.02101,"873,S62.243B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.244A ",.01)
  1. ;;S62.244A
  1. ;;9002226.02101,"873,S62.244A ",.02)
  1. ;;S62.244A
  1. ;;9002226.02101,"873,S62.244A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.244B ",.01)
  1. ;;S62.244B
  1. ;;9002226.02101,"873,S62.244B ",.02)
  1. ;;S62.244B
  1. ;;9002226.02101,"873,S62.244B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.245A ",.01)
  1. ;;S62.245A
  1. ;;9002226.02101,"873,S62.245A ",.02)
  1. ;;S62.245A
  1. ;;9002226.02101,"873,S62.245A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.245B ",.01)
  1. ;;S62.245B
  1. ;;9002226.02101,"873,S62.245B ",.02)
  1. ;;S62.245B
  1. ;;9002226.02101,"873,S62.245B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.246A ",.01)
  1. ;;S62.246A
  1. ;;9002226.02101,"873,S62.246A ",.02)
  1. ;;S62.246A
  1. ;;9002226.02101,"873,S62.246A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.246B ",.01)
  1. ;;S62.246B
  1. ;;9002226.02101,"873,S62.246B ",.02)
  1. ;;S62.246B
  1. ;;9002226.02101,"873,S62.246B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.251A ",.01)
  1. ;;S62.251A
  1. ;;9002226.02101,"873,S62.251A ",.02)
  1. ;;S62.251A
  1. ;;9002226.02101,"873,S62.251A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.251B ",.01)
  1. ;;S62.251B
  1. ;;9002226.02101,"873,S62.251B ",.02)
  1. ;;S62.251B
  1. ;;9002226.02101,"873,S62.251B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.252A ",.01)
  1. ;;S62.252A
  1. ;;9002226.02101,"873,S62.252A ",.02)
  1. ;;S62.252A
  1. ;;9002226.02101,"873,S62.252A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.252B ",.01)
  1. ;;S62.252B
  1. ;;9002226.02101,"873,S62.252B ",.02)
  1. ;;S62.252B
  1. ;;9002226.02101,"873,S62.252B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.253A ",.01)
  1. ;;S62.253A
  1. ;;9002226.02101,"873,S62.253A ",.02)
  1. ;;S62.253A
  1. ;;9002226.02101,"873,S62.253A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.253B ",.01)
  1. ;;S62.253B
  1. ;;9002226.02101,"873,S62.253B ",.02)
  1. ;;S62.253B
  1. ;;9002226.02101,"873,S62.253B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.254A ",.01)
  1. ;;S62.254A
  1. ;;9002226.02101,"873,S62.254A ",.02)
  1. ;;S62.254A
  1. ;;9002226.02101,"873,S62.254A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.254B ",.01)
  1. ;;S62.254B
  1. ;;9002226.02101,"873,S62.254B ",.02)
  1. ;;S62.254B
  1. ;;9002226.02101,"873,S62.254B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.255A ",.01)
  1. ;;S62.255A
  1. ;;9002226.02101,"873,S62.255A ",.02)
  1. ;;S62.255A
  1. ;;9002226.02101,"873,S62.255A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.255B ",.01)
  1. ;;S62.255B
  1. ;;9002226.02101,"873,S62.255B ",.02)
  1. ;;S62.255B
  1. ;;9002226.02101,"873,S62.255B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.256A ",.01)
  1. ;;S62.256A
  1. ;;9002226.02101,"873,S62.256A ",.02)
  1. ;;S62.256A
  1. ;;9002226.02101,"873,S62.256A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.256B ",.01)
  1. ;;S62.256B
  1. ;;9002226.02101,"873,S62.256B ",.02)
  1. ;;S62.256B
  1. ;;9002226.02101,"873,S62.256B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.291A ",.01)
  1. ;;S62.291A
  1. ;;9002226.02101,"873,S62.291A ",.02)
  1. ;;S62.291A
  1. ;;9002226.02101,"873,S62.291A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.291B ",.01)
  1. ;;S62.291B
  1. ;;9002226.02101,"873,S62.291B ",.02)
  1. ;;S62.291B
  1. ;;9002226.02101,"873,S62.291B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.292A ",.01)
  1. ;;S62.292A
  1. ;;9002226.02101,"873,S62.292A ",.02)
  1. ;;S62.292A
  1. ;;9002226.02101,"873,S62.292A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.292B ",.01)
  1. ;;S62.292B
  1. ;;9002226.02101,"873,S62.292B ",.02)
  1. ;;S62.292B
  1. ;;9002226.02101,"873,S62.292B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.299A ",.01)
  1. ;;S62.299A
  1. ;;9002226.02101,"873,S62.299A ",.02)
  1. ;;S62.299A
  1. ;;9002226.02101,"873,S62.299A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.299B ",.01)
  1. ;;S62.299B
  1. ;;9002226.02101,"873,S62.299B ",.02)
  1. ;;S62.299B
  1. ;;9002226.02101,"873,S62.299B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.300A ",.01)
  1. ;;S62.300A
  1. ;;9002226.02101,"873,S62.300A ",.02)
  1. ;;S62.300A
  1. ;;9002226.02101,"873,S62.300A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.300B ",.01)
  1. ;;S62.300B
  1. ;;9002226.02101,"873,S62.300B ",.02)
  1. ;;S62.300B
  1. ;;9002226.02101,"873,S62.300B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.301A ",.01)
  1. ;;S62.301A
  1. ;;9002226.02101,"873,S62.301A ",.02)
  1. ;;S62.301A
  1. ;;9002226.02101,"873,S62.301A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.301B ",.01)
  1. ;;S62.301B
  1. ;;9002226.02101,"873,S62.301B ",.02)
  1. ;;S62.301B
  1. ;;9002226.02101,"873,S62.301B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.302A ",.01)
  1. ;;S62.302A
  1. ;;9002226.02101,"873,S62.302A ",.02)
  1. ;;S62.302A
  1. ;;9002226.02101,"873,S62.302A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.302B ",.01)
  1. ;;S62.302B
  1. ;;9002226.02101,"873,S62.302B ",.02)
  1. ;;S62.302B
  1. ;;9002226.02101,"873,S62.302B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.303A ",.01)
  1. ;;S62.303A
  1. ;;9002226.02101,"873,S62.303A ",.02)
  1. ;;S62.303A
  1. ;;9002226.02101,"873,S62.303A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.303B ",.01)
  1. ;;S62.303B
  1. ;;9002226.02101,"873,S62.303B ",.02)
  1. ;;S62.303B
  1. ;;9002226.02101,"873,S62.303B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.304A ",.01)
  1. ;;S62.304A
  1. ;;9002226.02101,"873,S62.304A ",.02)
  1. ;;S62.304A
  1. ;;9002226.02101,"873,S62.304A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.304B ",.01)
  1. ;;S62.304B
  1. ;;9002226.02101,"873,S62.304B ",.02)
  1. ;;S62.304B
  1. ;;9002226.02101,"873,S62.304B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.305A ",.01)
  1. ;;S62.305A
  1. ;;9002226.02101,"873,S62.305A ",.02)
  1. ;;S62.305A
  1. ;;9002226.02101,"873,S62.305A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.305B ",.01)
  1. ;;S62.305B
  1. ;;9002226.02101,"873,S62.305B ",.02)
  1. ;;S62.305B
  1. ;;9002226.02101,"873,S62.305B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.306A ",.01)
  1. ;;S62.306A
  1. ;;9002226.02101,"873,S62.306A ",.02)
  1. ;;S62.306A
  1. ;;9002226.02101,"873,S62.306A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.306B ",.01)
  1. ;;S62.306B
  1. ;;9002226.02101,"873,S62.306B ",.02)
  1. ;;S62.306B
  1. ;;9002226.02101,"873,S62.306B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.307A ",.01)
  1. ;;S62.307A
  1. ;;9002226.02101,"873,S62.307A ",.02)
  1. ;;S62.307A
  1. ;;9002226.02101,"873,S62.307A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.307B ",.01)
  1. ;;S62.307B
  1. ;;9002226.02101,"873,S62.307B ",.02)
  1. ;;S62.307B
  1. ;;9002226.02101,"873,S62.307B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.308A ",.01)
  1. ;;S62.308A
  1. ;;9002226.02101,"873,S62.308A ",.02)
  1. ;;S62.308A
  1. ;;9002226.02101,"873,S62.308A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.308B ",.01)
  1. ;;S62.308B
  1. ;;9002226.02101,"873,S62.308B ",.02)
  1. ;;S62.308B
  1. ;;9002226.02101,"873,S62.308B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.309A ",.01)
  1. ;;S62.309A
  1. ;;9002226.02101,"873,S62.309A ",.02)
  1. ;;S62.309A
  1. ;;9002226.02101,"873,S62.309A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.309B ",.01)
  1. ;;S62.309B