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

ATXDBH24.m

Go to the documentation of this file.
  1. ATXDBH24 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 20, 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,"1959,O36.60X4 ",.02)
  1. ;;O36.60X4
  1. ;;9002226.02101,"1959,O36.60X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.60X5 ",.01)
  1. ;;O36.60X5
  1. ;;9002226.02101,"1959,O36.60X5 ",.02)
  1. ;;O36.60X5
  1. ;;9002226.02101,"1959,O36.60X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.60X9 ",.01)
  1. ;;O36.60X9
  1. ;;9002226.02101,"1959,O36.60X9 ",.02)
  1. ;;O36.60X9
  1. ;;9002226.02101,"1959,O36.60X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.61X0 ",.01)
  1. ;;O36.61X0
  1. ;;9002226.02101,"1959,O36.61X0 ",.02)
  1. ;;O36.61X0
  1. ;;9002226.02101,"1959,O36.61X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.61X1 ",.01)
  1. ;;O36.61X1
  1. ;;9002226.02101,"1959,O36.61X1 ",.02)
  1. ;;O36.61X1
  1. ;;9002226.02101,"1959,O36.61X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.61X2 ",.01)
  1. ;;O36.61X2
  1. ;;9002226.02101,"1959,O36.61X2 ",.02)
  1. ;;O36.61X2
  1. ;;9002226.02101,"1959,O36.61X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.61X3 ",.01)
  1. ;;O36.61X3
  1. ;;9002226.02101,"1959,O36.61X3 ",.02)
  1. ;;O36.61X3
  1. ;;9002226.02101,"1959,O36.61X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.61X4 ",.01)
  1. ;;O36.61X4
  1. ;;9002226.02101,"1959,O36.61X4 ",.02)
  1. ;;O36.61X4
  1. ;;9002226.02101,"1959,O36.61X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.61X5 ",.01)
  1. ;;O36.61X5
  1. ;;9002226.02101,"1959,O36.61X5 ",.02)
  1. ;;O36.61X5
  1. ;;9002226.02101,"1959,O36.61X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.61X9 ",.01)
  1. ;;O36.61X9
  1. ;;9002226.02101,"1959,O36.61X9 ",.02)
  1. ;;O36.61X9
  1. ;;9002226.02101,"1959,O36.61X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.62X0 ",.01)
  1. ;;O36.62X0
  1. ;;9002226.02101,"1959,O36.62X0 ",.02)
  1. ;;O36.62X0
  1. ;;9002226.02101,"1959,O36.62X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.62X1 ",.01)
  1. ;;O36.62X1
  1. ;;9002226.02101,"1959,O36.62X1 ",.02)
  1. ;;O36.62X1
  1. ;;9002226.02101,"1959,O36.62X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.62X2 ",.01)
  1. ;;O36.62X2
  1. ;;9002226.02101,"1959,O36.62X2 ",.02)
  1. ;;O36.62X2
  1. ;;9002226.02101,"1959,O36.62X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.62X3 ",.01)
  1. ;;O36.62X3
  1. ;;9002226.02101,"1959,O36.62X3 ",.02)
  1. ;;O36.62X3
  1. ;;9002226.02101,"1959,O36.62X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.62X4 ",.01)
  1. ;;O36.62X4
  1. ;;9002226.02101,"1959,O36.62X4 ",.02)
  1. ;;O36.62X4
  1. ;;9002226.02101,"1959,O36.62X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.62X5 ",.01)
  1. ;;O36.62X5
  1. ;;9002226.02101,"1959,O36.62X5 ",.02)
  1. ;;O36.62X5
  1. ;;9002226.02101,"1959,O36.62X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.62X9 ",.01)
  1. ;;O36.62X9
  1. ;;9002226.02101,"1959,O36.62X9 ",.02)
  1. ;;O36.62X9
  1. ;;9002226.02101,"1959,O36.62X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.63X0 ",.01)
  1. ;;O36.63X0
  1. ;;9002226.02101,"1959,O36.63X0 ",.02)
  1. ;;O36.63X0
  1. ;;9002226.02101,"1959,O36.63X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.63X1 ",.01)
  1. ;;O36.63X1
  1. ;;9002226.02101,"1959,O36.63X1 ",.02)
  1. ;;O36.63X1
  1. ;;9002226.02101,"1959,O36.63X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.63X2 ",.01)
  1. ;;O36.63X2
  1. ;;9002226.02101,"1959,O36.63X2 ",.02)
  1. ;;O36.63X2
  1. ;;9002226.02101,"1959,O36.63X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.63X3 ",.01)
  1. ;;O36.63X3
  1. ;;9002226.02101,"1959,O36.63X3 ",.02)
  1. ;;O36.63X3
  1. ;;9002226.02101,"1959,O36.63X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.63X4 ",.01)
  1. ;;O36.63X4
  1. ;;9002226.02101,"1959,O36.63X4 ",.02)
  1. ;;O36.63X4
  1. ;;9002226.02101,"1959,O36.63X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.63X5 ",.01)
  1. ;;O36.63X5
  1. ;;9002226.02101,"1959,O36.63X5 ",.02)
  1. ;;O36.63X5
  1. ;;9002226.02101,"1959,O36.63X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.63X9 ",.01)
  1. ;;O36.63X9
  1. ;;9002226.02101,"1959,O36.63X9 ",.02)
  1. ;;O36.63X9
  1. ;;9002226.02101,"1959,O36.63X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.70X0 ",.01)
  1. ;;O36.70X0
  1. ;;9002226.02101,"1959,O36.70X0 ",.02)
  1. ;;O36.70X0
  1. ;;9002226.02101,"1959,O36.70X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.70X1 ",.01)
  1. ;;O36.70X1
  1. ;;9002226.02101,"1959,O36.70X1 ",.02)
  1. ;;O36.70X1
  1. ;;9002226.02101,"1959,O36.70X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.70X2 ",.01)
  1. ;;O36.70X2
  1. ;;9002226.02101,"1959,O36.70X2 ",.02)
  1. ;;O36.70X2
  1. ;;9002226.02101,"1959,O36.70X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.70X3 ",.01)
  1. ;;O36.70X3
  1. ;;9002226.02101,"1959,O36.70X3 ",.02)
  1. ;;O36.70X3
  1. ;;9002226.02101,"1959,O36.70X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.70X4 ",.01)
  1. ;;O36.70X4
  1. ;;9002226.02101,"1959,O36.70X4 ",.02)
  1. ;;O36.70X4
  1. ;;9002226.02101,"1959,O36.70X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.70X5 ",.01)
  1. ;;O36.70X5
  1. ;;9002226.02101,"1959,O36.70X5 ",.02)
  1. ;;O36.70X5
  1. ;;9002226.02101,"1959,O36.70X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.70X9 ",.01)
  1. ;;O36.70X9
  1. ;;9002226.02101,"1959,O36.70X9 ",.02)
  1. ;;O36.70X9
  1. ;;9002226.02101,"1959,O36.70X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.71X0 ",.01)
  1. ;;O36.71X0
  1. ;;9002226.02101,"1959,O36.71X0 ",.02)
  1. ;;O36.71X0
  1. ;;9002226.02101,"1959,O36.71X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.71X1 ",.01)
  1. ;;O36.71X1
  1. ;;9002226.02101,"1959,O36.71X1 ",.02)
  1. ;;O36.71X1
  1. ;;9002226.02101,"1959,O36.71X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.71X2 ",.01)
  1. ;;O36.71X2
  1. ;;9002226.02101,"1959,O36.71X2 ",.02)
  1. ;;O36.71X2
  1. ;;9002226.02101,"1959,O36.71X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.71X3 ",.01)
  1. ;;O36.71X3
  1. ;;9002226.02101,"1959,O36.71X3 ",.02)
  1. ;;O36.71X3
  1. ;;9002226.02101,"1959,O36.71X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.71X4 ",.01)
  1. ;;O36.71X4
  1. ;;9002226.02101,"1959,O36.71X4 ",.02)
  1. ;;O36.71X4
  1. ;;9002226.02101,"1959,O36.71X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.71X5 ",.01)
  1. ;;O36.71X5
  1. ;;9002226.02101,"1959,O36.71X5 ",.02)
  1. ;;O36.71X5
  1. ;;9002226.02101,"1959,O36.71X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.71X9 ",.01)
  1. ;;O36.71X9
  1. ;;9002226.02101,"1959,O36.71X9 ",.02)
  1. ;;O36.71X9
  1. ;;9002226.02101,"1959,O36.71X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.72X0 ",.01)
  1. ;;O36.72X0
  1. ;;9002226.02101,"1959,O36.72X0 ",.02)
  1. ;;O36.72X0
  1. ;;9002226.02101,"1959,O36.72X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.72X1 ",.01)
  1. ;;O36.72X1
  1. ;;9002226.02101,"1959,O36.72X1 ",.02)
  1. ;;O36.72X1
  1. ;;9002226.02101,"1959,O36.72X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.72X2 ",.01)
  1. ;;O36.72X2
  1. ;;9002226.02101,"1959,O36.72X2 ",.02)
  1. ;;O36.72X2
  1. ;;9002226.02101,"1959,O36.72X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.72X3 ",.01)
  1. ;;O36.72X3
  1. ;;9002226.02101,"1959,O36.72X3 ",.02)
  1. ;;O36.72X3
  1. ;;9002226.02101,"1959,O36.72X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.72X4 ",.01)
  1. ;;O36.72X4
  1. ;;9002226.02101,"1959,O36.72X4 ",.02)
  1. ;;O36.72X4
  1. ;;9002226.02101,"1959,O36.72X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.72X5 ",.01)
  1. ;;O36.72X5
  1. ;;9002226.02101,"1959,O36.72X5 ",.02)
  1. ;;O36.72X5
  1. ;;9002226.02101,"1959,O36.72X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.72X9 ",.01)
  1. ;;O36.72X9
  1. ;;9002226.02101,"1959,O36.72X9 ",.02)
  1. ;;O36.72X9
  1. ;;9002226.02101,"1959,O36.72X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.73X0 ",.01)
  1. ;;O36.73X0
  1. ;;9002226.02101,"1959,O36.73X0 ",.02)
  1. ;;O36.73X0
  1. ;;9002226.02101,"1959,O36.73X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.73X1 ",.01)
  1. ;;O36.73X1
  1. ;;9002226.02101,"1959,O36.73X1 ",.02)
  1. ;;O36.73X1
  1. ;;9002226.02101,"1959,O36.73X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.73X2 ",.01)
  1. ;;O36.73X2
  1. ;;9002226.02101,"1959,O36.73X2 ",.02)
  1. ;;O36.73X2
  1. ;;9002226.02101,"1959,O36.73X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.73X3 ",.01)
  1. ;;O36.73X3
  1. ;;9002226.02101,"1959,O36.73X3 ",.02)
  1. ;;O36.73X3
  1. ;;9002226.02101,"1959,O36.73X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.73X4 ",.01)
  1. ;;O36.73X4
  1. ;;9002226.02101,"1959,O36.73X4 ",.02)
  1. ;;O36.73X4
  1. ;;9002226.02101,"1959,O36.73X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.73X5 ",.01)
  1. ;;O36.73X5
  1. ;;9002226.02101,"1959,O36.73X5 ",.02)
  1. ;;O36.73X5
  1. ;;9002226.02101,"1959,O36.73X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.73X9 ",.01)
  1. ;;O36.73X9
  1. ;;9002226.02101,"1959,O36.73X9 ",.02)
  1. ;;O36.73X9
  1. ;;9002226.02101,"1959,O36.73X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.80X0 ",.01)
  1. ;;O36.80X0
  1. ;;9002226.02101,"1959,O36.80X0 ",.02)
  1. ;;O36.80X0
  1. ;;9002226.02101,"1959,O36.80X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.80X1 ",.01)
  1. ;;O36.80X1
  1. ;;9002226.02101,"1959,O36.80X1 ",.02)
  1. ;;O36.80X1
  1. ;;9002226.02101,"1959,O36.80X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.80X2 ",.01)
  1. ;;O36.80X2
  1. ;;9002226.02101,"1959,O36.80X2 ",.02)
  1. ;;O36.80X2
  1. ;;9002226.02101,"1959,O36.80X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.80X3 ",.01)
  1. ;;O36.80X3
  1. ;;9002226.02101,"1959,O36.80X3 ",.02)
  1. ;;O36.80X3
  1. ;;9002226.02101,"1959,O36.80X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.80X4 ",.01)
  1. ;;O36.80X4
  1. ;;9002226.02101,"1959,O36.80X4 ",.02)
  1. ;;O36.80X4
  1. ;;9002226.02101,"1959,O36.80X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.80X5 ",.01)
  1. ;;O36.80X5
  1. ;;9002226.02101,"1959,O36.80X5 ",.02)
  1. ;;O36.80X5
  1. ;;9002226.02101,"1959,O36.80X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.80X9 ",.01)
  1. ;;O36.80X9
  1. ;;9002226.02101,"1959,O36.80X9 ",.02)
  1. ;;O36.80X9
  1. ;;9002226.02101,"1959,O36.80X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8120 ",.01)
  1. ;;O36.8120
  1. ;;9002226.02101,"1959,O36.8120 ",.02)
  1. ;;O36.8120
  1. ;;9002226.02101,"1959,O36.8120 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8121 ",.01)
  1. ;;O36.8121
  1. ;;9002226.02101,"1959,O36.8121 ",.02)
  1. ;;O36.8121
  1. ;;9002226.02101,"1959,O36.8121 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8122 ",.01)
  1. ;;O36.8122
  1. ;;9002226.02101,"1959,O36.8122 ",.02)
  1. ;;O36.8122
  1. ;;9002226.02101,"1959,O36.8122 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8123 ",.01)
  1. ;;O36.8123
  1. ;;9002226.02101,"1959,O36.8123 ",.02)
  1. ;;O36.8123
  1. ;;9002226.02101,"1959,O36.8123 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8124 ",.01)
  1. ;;O36.8124
  1. ;;9002226.02101,"1959,O36.8124 ",.02)
  1. ;;O36.8124
  1. ;;9002226.02101,"1959,O36.8124 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8125 ",.01)
  1. ;;O36.8125
  1. ;;9002226.02101,"1959,O36.8125 ",.02)
  1. ;;O36.8125
  1. ;;9002226.02101,"1959,O36.8125 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8129 ",.01)
  1. ;;O36.8129
  1. ;;9002226.02101,"1959,O36.8129 ",.02)
  1. ;;O36.8129
  1. ;;9002226.02101,"1959,O36.8129 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8130 ",.01)
  1. ;;O36.8130
  1. ;;9002226.02101,"1959,O36.8130 ",.02)
  1. ;;O36.8130
  1. ;;9002226.02101,"1959,O36.8130 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8131 ",.01)
  1. ;;O36.8131
  1. ;;9002226.02101,"1959,O36.8131 ",.02)
  1. ;;O36.8131
  1. ;;9002226.02101,"1959,O36.8131 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8132 ",.01)
  1. ;;O36.8132
  1. ;;9002226.02101,"1959,O36.8132 ",.02)
  1. ;;O36.8132
  1. ;;9002226.02101,"1959,O36.8132 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8133 ",.01)
  1. ;;O36.8133
  1. ;;9002226.02101,"1959,O36.8133 ",.02)
  1. ;;O36.8133
  1. ;;9002226.02101,"1959,O36.8133 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8134 ",.01)
  1. ;;O36.8134
  1. ;;9002226.02101,"1959,O36.8134 ",.02)
  1. ;;O36.8134
  1. ;;9002226.02101,"1959,O36.8134 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8135 ",.01)
  1. ;;O36.8135
  1. ;;9002226.02101,"1959,O36.8135 ",.02)
  1. ;;O36.8135
  1. ;;9002226.02101,"1959,O36.8135 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8139 ",.01)
  1. ;;O36.8139
  1. ;;9002226.02101,"1959,O36.8139 ",.02)
  1. ;;O36.8139
  1. ;;9002226.02101,"1959,O36.8139 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8190 ",.01)
  1. ;;O36.8190
  1. ;;9002226.02101,"1959,O36.8190 ",.02)
  1. ;;O36.8190
  1. ;;9002226.02101,"1959,O36.8190 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8191 ",.01)
  1. ;;O36.8191
  1. ;;9002226.02101,"1959,O36.8191 ",.02)
  1. ;;O36.8191
  1. ;;9002226.02101,"1959,O36.8191 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8192 ",.01)
  1. ;;O36.8192
  1. ;;9002226.02101,"1959,O36.8192 ",.02)
  1. ;;O36.8192
  1. ;;9002226.02101,"1959,O36.8192 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1959,O36.8193 ",.01)
  1. ;;O36.8193