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

ATXXA151.m

Go to the documentation of this file.
  1. ATXXA151 ;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,T43.91XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T43.92XA ",.01)
  1. ;;T43.92XA
  1. ;;9002226.02101,"873,T43.92XA ",.02)
  1. ;;T43.92XA
  1. ;;9002226.02101,"873,T43.92XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T43.93XA ",.01)
  1. ;;T43.93XA
  1. ;;9002226.02101,"873,T43.93XA ",.02)
  1. ;;T43.93XA
  1. ;;9002226.02101,"873,T43.93XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T43.94XA ",.01)
  1. ;;T43.94XA
  1. ;;9002226.02101,"873,T43.94XA ",.02)
  1. ;;T43.94XA
  1. ;;9002226.02101,"873,T43.94XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.0X1A ",.01)
  1. ;;T44.0X1A
  1. ;;9002226.02101,"873,T44.0X1A ",.02)
  1. ;;T44.0X1A
  1. ;;9002226.02101,"873,T44.0X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.0X2A ",.01)
  1. ;;T44.0X2A
  1. ;;9002226.02101,"873,T44.0X2A ",.02)
  1. ;;T44.0X2A
  1. ;;9002226.02101,"873,T44.0X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.0X3A ",.01)
  1. ;;T44.0X3A
  1. ;;9002226.02101,"873,T44.0X3A ",.02)
  1. ;;T44.0X3A
  1. ;;9002226.02101,"873,T44.0X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.0X4A ",.01)
  1. ;;T44.0X4A
  1. ;;9002226.02101,"873,T44.0X4A ",.02)
  1. ;;T44.0X4A
  1. ;;9002226.02101,"873,T44.0X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.1X1A ",.01)
  1. ;;T44.1X1A
  1. ;;9002226.02101,"873,T44.1X1A ",.02)
  1. ;;T44.1X1A
  1. ;;9002226.02101,"873,T44.1X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.1X2A ",.01)
  1. ;;T44.1X2A
  1. ;;9002226.02101,"873,T44.1X2A ",.02)
  1. ;;T44.1X2A
  1. ;;9002226.02101,"873,T44.1X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.1X3A ",.01)
  1. ;;T44.1X3A
  1. ;;9002226.02101,"873,T44.1X3A ",.02)
  1. ;;T44.1X3A
  1. ;;9002226.02101,"873,T44.1X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.1X4A ",.01)
  1. ;;T44.1X4A
  1. ;;9002226.02101,"873,T44.1X4A ",.02)
  1. ;;T44.1X4A
  1. ;;9002226.02101,"873,T44.1X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.2X1A ",.01)
  1. ;;T44.2X1A
  1. ;;9002226.02101,"873,T44.2X1A ",.02)
  1. ;;T44.2X1A
  1. ;;9002226.02101,"873,T44.2X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.2X2A ",.01)
  1. ;;T44.2X2A
  1. ;;9002226.02101,"873,T44.2X2A ",.02)
  1. ;;T44.2X2A
  1. ;;9002226.02101,"873,T44.2X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.2X3A ",.01)
  1. ;;T44.2X3A
  1. ;;9002226.02101,"873,T44.2X3A ",.02)
  1. ;;T44.2X3A
  1. ;;9002226.02101,"873,T44.2X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.2X4A ",.01)
  1. ;;T44.2X4A
  1. ;;9002226.02101,"873,T44.2X4A ",.02)
  1. ;;T44.2X4A
  1. ;;9002226.02101,"873,T44.2X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.3X1A ",.01)
  1. ;;T44.3X1A
  1. ;;9002226.02101,"873,T44.3X1A ",.02)
  1. ;;T44.3X1A
  1. ;;9002226.02101,"873,T44.3X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.3X2A ",.01)
  1. ;;T44.3X2A
  1. ;;9002226.02101,"873,T44.3X2A ",.02)
  1. ;;T44.3X2A
  1. ;;9002226.02101,"873,T44.3X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.3X3A ",.01)
  1. ;;T44.3X3A
  1. ;;9002226.02101,"873,T44.3X3A ",.02)
  1. ;;T44.3X3A
  1. ;;9002226.02101,"873,T44.3X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.3X4A ",.01)
  1. ;;T44.3X4A
  1. ;;9002226.02101,"873,T44.3X4A ",.02)
  1. ;;T44.3X4A
  1. ;;9002226.02101,"873,T44.3X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.4X1A ",.01)
  1. ;;T44.4X1A
  1. ;;9002226.02101,"873,T44.4X1A ",.02)
  1. ;;T44.4X1A
  1. ;;9002226.02101,"873,T44.4X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.4X2A ",.01)
  1. ;;T44.4X2A
  1. ;;9002226.02101,"873,T44.4X2A ",.02)
  1. ;;T44.4X2A
  1. ;;9002226.02101,"873,T44.4X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.4X3A ",.01)
  1. ;;T44.4X3A
  1. ;;9002226.02101,"873,T44.4X3A ",.02)
  1. ;;T44.4X3A
  1. ;;9002226.02101,"873,T44.4X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.4X4A ",.01)
  1. ;;T44.4X4A
  1. ;;9002226.02101,"873,T44.4X4A ",.02)
  1. ;;T44.4X4A
  1. ;;9002226.02101,"873,T44.4X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.5X1A ",.01)
  1. ;;T44.5X1A
  1. ;;9002226.02101,"873,T44.5X1A ",.02)
  1. ;;T44.5X1A
  1. ;;9002226.02101,"873,T44.5X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.5X2A ",.01)
  1. ;;T44.5X2A
  1. ;;9002226.02101,"873,T44.5X2A ",.02)
  1. ;;T44.5X2A
  1. ;;9002226.02101,"873,T44.5X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.5X3A ",.01)
  1. ;;T44.5X3A
  1. ;;9002226.02101,"873,T44.5X3A ",.02)
  1. ;;T44.5X3A
  1. ;;9002226.02101,"873,T44.5X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.5X4A ",.01)
  1. ;;T44.5X4A
  1. ;;9002226.02101,"873,T44.5X4A ",.02)
  1. ;;T44.5X4A
  1. ;;9002226.02101,"873,T44.5X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.6X1A ",.01)
  1. ;;T44.6X1A
  1. ;;9002226.02101,"873,T44.6X1A ",.02)
  1. ;;T44.6X1A
  1. ;;9002226.02101,"873,T44.6X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.6X2A ",.01)
  1. ;;T44.6X2A
  1. ;;9002226.02101,"873,T44.6X2A ",.02)
  1. ;;T44.6X2A
  1. ;;9002226.02101,"873,T44.6X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.6X3A ",.01)
  1. ;;T44.6X3A
  1. ;;9002226.02101,"873,T44.6X3A ",.02)
  1. ;;T44.6X3A
  1. ;;9002226.02101,"873,T44.6X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.6X4A ",.01)
  1. ;;T44.6X4A
  1. ;;9002226.02101,"873,T44.6X4A ",.02)
  1. ;;T44.6X4A
  1. ;;9002226.02101,"873,T44.6X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.7X1A ",.01)
  1. ;;T44.7X1A
  1. ;;9002226.02101,"873,T44.7X1A ",.02)
  1. ;;T44.7X1A
  1. ;;9002226.02101,"873,T44.7X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.7X2A ",.01)
  1. ;;T44.7X2A
  1. ;;9002226.02101,"873,T44.7X2A ",.02)
  1. ;;T44.7X2A
  1. ;;9002226.02101,"873,T44.7X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.7X3A ",.01)
  1. ;;T44.7X3A
  1. ;;9002226.02101,"873,T44.7X3A ",.02)
  1. ;;T44.7X3A
  1. ;;9002226.02101,"873,T44.7X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.7X4A ",.01)
  1. ;;T44.7X4A
  1. ;;9002226.02101,"873,T44.7X4A ",.02)
  1. ;;T44.7X4A
  1. ;;9002226.02101,"873,T44.7X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.8X1A ",.01)
  1. ;;T44.8X1A
  1. ;;9002226.02101,"873,T44.8X1A ",.02)
  1. ;;T44.8X1A
  1. ;;9002226.02101,"873,T44.8X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.8X2A ",.01)
  1. ;;T44.8X2A
  1. ;;9002226.02101,"873,T44.8X2A ",.02)
  1. ;;T44.8X2A
  1. ;;9002226.02101,"873,T44.8X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.8X3A ",.01)
  1. ;;T44.8X3A
  1. ;;9002226.02101,"873,T44.8X3A ",.02)
  1. ;;T44.8X3A
  1. ;;9002226.02101,"873,T44.8X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.8X4A ",.01)
  1. ;;T44.8X4A
  1. ;;9002226.02101,"873,T44.8X4A ",.02)
  1. ;;T44.8X4A
  1. ;;9002226.02101,"873,T44.8X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.901A ",.01)
  1. ;;T44.901A
  1. ;;9002226.02101,"873,T44.901A ",.02)
  1. ;;T44.901A
  1. ;;9002226.02101,"873,T44.901A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.902A ",.01)
  1. ;;T44.902A
  1. ;;9002226.02101,"873,T44.902A ",.02)
  1. ;;T44.902A
  1. ;;9002226.02101,"873,T44.902A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.903A ",.01)
  1. ;;T44.903A
  1. ;;9002226.02101,"873,T44.903A ",.02)
  1. ;;T44.903A
  1. ;;9002226.02101,"873,T44.903A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.904A ",.01)
  1. ;;T44.904A
  1. ;;9002226.02101,"873,T44.904A ",.02)
  1. ;;T44.904A
  1. ;;9002226.02101,"873,T44.904A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.991A ",.01)
  1. ;;T44.991A
  1. ;;9002226.02101,"873,T44.991A ",.02)
  1. ;;T44.991A
  1. ;;9002226.02101,"873,T44.991A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.992A ",.01)
  1. ;;T44.992A
  1. ;;9002226.02101,"873,T44.992A ",.02)
  1. ;;T44.992A
  1. ;;9002226.02101,"873,T44.992A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.993A ",.01)
  1. ;;T44.993A
  1. ;;9002226.02101,"873,T44.993A ",.02)
  1. ;;T44.993A
  1. ;;9002226.02101,"873,T44.993A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T44.994A ",.01)
  1. ;;T44.994A
  1. ;;9002226.02101,"873,T44.994A ",.02)
  1. ;;T44.994A
  1. ;;9002226.02101,"873,T44.994A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.0X1A ",.01)
  1. ;;T45.0X1A
  1. ;;9002226.02101,"873,T45.0X1A ",.02)
  1. ;;T45.0X1A
  1. ;;9002226.02101,"873,T45.0X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.0X2A ",.01)
  1. ;;T45.0X2A
  1. ;;9002226.02101,"873,T45.0X2A ",.02)
  1. ;;T45.0X2A
  1. ;;9002226.02101,"873,T45.0X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.0X3A ",.01)
  1. ;;T45.0X3A
  1. ;;9002226.02101,"873,T45.0X3A ",.02)
  1. ;;T45.0X3A
  1. ;;9002226.02101,"873,T45.0X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.0X4A ",.01)
  1. ;;T45.0X4A
  1. ;;9002226.02101,"873,T45.0X4A ",.02)
  1. ;;T45.0X4A
  1. ;;9002226.02101,"873,T45.0X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.1X1A ",.01)
  1. ;;T45.1X1A
  1. ;;9002226.02101,"873,T45.1X1A ",.02)
  1. ;;T45.1X1A
  1. ;;9002226.02101,"873,T45.1X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.1X2A ",.01)
  1. ;;T45.1X2A
  1. ;;9002226.02101,"873,T45.1X2A ",.02)
  1. ;;T45.1X2A
  1. ;;9002226.02101,"873,T45.1X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.1X3A ",.01)
  1. ;;T45.1X3A
  1. ;;9002226.02101,"873,T45.1X3A ",.02)
  1. ;;T45.1X3A
  1. ;;9002226.02101,"873,T45.1X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.1X4A ",.01)
  1. ;;T45.1X4A
  1. ;;9002226.02101,"873,T45.1X4A ",.02)
  1. ;;T45.1X4A
  1. ;;9002226.02101,"873,T45.1X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.2X1A ",.01)
  1. ;;T45.2X1A
  1. ;;9002226.02101,"873,T45.2X1A ",.02)
  1. ;;T45.2X1A
  1. ;;9002226.02101,"873,T45.2X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.2X2A ",.01)
  1. ;;T45.2X2A
  1. ;;9002226.02101,"873,T45.2X2A ",.02)
  1. ;;T45.2X2A
  1. ;;9002226.02101,"873,T45.2X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.2X3A ",.01)
  1. ;;T45.2X3A
  1. ;;9002226.02101,"873,T45.2X3A ",.02)
  1. ;;T45.2X3A
  1. ;;9002226.02101,"873,T45.2X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.2X4A ",.01)
  1. ;;T45.2X4A
  1. ;;9002226.02101,"873,T45.2X4A ",.02)
  1. ;;T45.2X4A
  1. ;;9002226.02101,"873,T45.2X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.3X1A ",.01)
  1. ;;T45.3X1A
  1. ;;9002226.02101,"873,T45.3X1A ",.02)
  1. ;;T45.3X1A
  1. ;;9002226.02101,"873,T45.3X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.3X2A ",.01)
  1. ;;T45.3X2A
  1. ;;9002226.02101,"873,T45.3X2A ",.02)
  1. ;;T45.3X2A
  1. ;;9002226.02101,"873,T45.3X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.3X3A ",.01)
  1. ;;T45.3X3A
  1. ;;9002226.02101,"873,T45.3X3A ",.02)
  1. ;;T45.3X3A
  1. ;;9002226.02101,"873,T45.3X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.3X4A ",.01)
  1. ;;T45.3X4A
  1. ;;9002226.02101,"873,T45.3X4A ",.02)
  1. ;;T45.3X4A
  1. ;;9002226.02101,"873,T45.3X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.4X1A ",.01)
  1. ;;T45.4X1A
  1. ;;9002226.02101,"873,T45.4X1A ",.02)
  1. ;;T45.4X1A
  1. ;;9002226.02101,"873,T45.4X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.4X2A ",.01)
  1. ;;T45.4X2A
  1. ;;9002226.02101,"873,T45.4X2A ",.02)
  1. ;;T45.4X2A
  1. ;;9002226.02101,"873,T45.4X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.4X3A ",.01)
  1. ;;T45.4X3A
  1. ;;9002226.02101,"873,T45.4X3A ",.02)
  1. ;;T45.4X3A
  1. ;;9002226.02101,"873,T45.4X3A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.4X4A ",.01)
  1. ;;T45.4X4A
  1. ;;9002226.02101,"873,T45.4X4A ",.02)
  1. ;;T45.4X4A
  1. ;;9002226.02101,"873,T45.4X4A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.511A ",.01)
  1. ;;T45.511A
  1. ;;9002226.02101,"873,T45.511A ",.02)
  1. ;;T45.511A
  1. ;;9002226.02101,"873,T45.511A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.512A ",.01)
  1. ;;T45.512A
  1. ;;9002226.02101,"873,T45.512A ",.02)
  1. ;;T45.512A
  1. ;;9002226.02101,"873,T45.512A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.513A ",.01)
  1. ;;T45.513A
  1. ;;9002226.02101,"873,T45.513A ",.02)
  1. ;;T45.513A
  1. ;;9002226.02101,"873,T45.513A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.514A ",.01)
  1. ;;T45.514A
  1. ;;9002226.02101,"873,T45.514A ",.02)
  1. ;;T45.514A
  1. ;;9002226.02101,"873,T45.514A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.521A ",.01)
  1. ;;T45.521A
  1. ;;9002226.02101,"873,T45.521A ",.02)
  1. ;;T45.521A
  1. ;;9002226.02101,"873,T45.521A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.522A ",.01)
  1. ;;T45.522A
  1. ;;9002226.02101,"873,T45.522A ",.02)
  1. ;;T45.522A
  1. ;;9002226.02101,"873,T45.522A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.523A ",.01)
  1. ;;T45.523A
  1. ;;9002226.02101,"873,T45.523A ",.02)
  1. ;;T45.523A
  1. ;;9002226.02101,"873,T45.523A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.524A ",.01)
  1. ;;T45.524A
  1. ;;9002226.02101,"873,T45.524A ",.02)
  1. ;;T45.524A
  1. ;;9002226.02101,"873,T45.524A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.601A ",.01)
  1. ;;T45.601A
  1. ;;9002226.02101,"873,T45.601A ",.02)
  1. ;;T45.601A
  1. ;;9002226.02101,"873,T45.601A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.602A ",.01)
  1. ;;T45.602A
  1. ;;9002226.02101,"873,T45.602A ",.02)
  1. ;;T45.602A
  1. ;;9002226.02101,"873,T45.602A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,T45.603A ",.01)
  1. ;;T45.603A
  1. ;;9002226.02101,"873,T45.603A ",.02)
  1. ;;T45.603A
  1. ;;9002226.02101,"873,T45.603A ",.03)
  1. ;;30