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

ATXDBH7.m

Go to the documentation of this file.
ATXDBH7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 20, 2014;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"1959,642.50 ",.02)
 ;;642.50
 ;;9002226.02101,"1959,642.50 ",.03)
 ;;1
 ;;9002226.02101,"1959,642.53 ",.01)
 ;;642.53
 ;;9002226.02101,"1959,642.53 ",.02)
 ;;642.53
 ;;9002226.02101,"1959,642.53 ",.03)
 ;;1
 ;;9002226.02101,"1959,642.60 ",.01)
 ;;642.60
 ;;9002226.02101,"1959,642.60 ",.02)
 ;;642.60
 ;;9002226.02101,"1959,642.60 ",.03)
 ;;1
 ;;9002226.02101,"1959,642.63 ",.01)
 ;;642.63
 ;;9002226.02101,"1959,642.63 ",.02)
 ;;642.63
 ;;9002226.02101,"1959,642.63 ",.03)
 ;;1
 ;;9002226.02101,"1959,642.70 ",.01)
 ;;642.70
 ;;9002226.02101,"1959,642.70 ",.02)
 ;;642.70
 ;;9002226.02101,"1959,642.70 ",.03)
 ;;1
 ;;9002226.02101,"1959,642.73 ",.01)
 ;;642.73
 ;;9002226.02101,"1959,642.73 ",.02)
 ;;642.73
 ;;9002226.02101,"1959,642.73 ",.03)
 ;;1
 ;;9002226.02101,"1959,642.90 ",.01)
 ;;642.90
 ;;9002226.02101,"1959,642.90 ",.02)
 ;;642.90
 ;;9002226.02101,"1959,642.90 ",.03)
 ;;1
 ;;9002226.02101,"1959,642.93 ",.01)
 ;;642.93
 ;;9002226.02101,"1959,642.93 ",.02)
 ;;642.93
 ;;9002226.02101,"1959,642.93 ",.03)
 ;;1
 ;;9002226.02101,"1959,643.00 ",.01)
 ;;643.00
 ;;9002226.02101,"1959,643.00 ",.02)
 ;;643.00
 ;;9002226.02101,"1959,643.00 ",.03)
 ;;1
 ;;9002226.02101,"1959,643.03 ",.01)
 ;;643.03
 ;;9002226.02101,"1959,643.03 ",.02)
 ;;643.03
 ;;9002226.02101,"1959,643.03 ",.03)
 ;;1
 ;;9002226.02101,"1959,643.10 ",.01)
 ;;643.10
 ;;9002226.02101,"1959,643.10 ",.02)
 ;;643.10
 ;;9002226.02101,"1959,643.10 ",.03)
 ;;1
 ;;9002226.02101,"1959,643.13 ",.01)
 ;;643.13
 ;;9002226.02101,"1959,643.13 ",.02)
 ;;643.13
 ;;9002226.02101,"1959,643.13 ",.03)
 ;;1
 ;;9002226.02101,"1959,643.20 ",.01)
 ;;643.20
 ;;9002226.02101,"1959,643.20 ",.02)
 ;;643.20
 ;;9002226.02101,"1959,643.20 ",.03)
 ;;1
 ;;9002226.02101,"1959,643.23 ",.01)
 ;;643.23
 ;;9002226.02101,"1959,643.23 ",.02)
 ;;643.23
 ;;9002226.02101,"1959,643.23 ",.03)
 ;;1
 ;;9002226.02101,"1959,643.80 ",.01)
 ;;643.80
 ;;9002226.02101,"1959,643.80 ",.02)
 ;;643.80
 ;;9002226.02101,"1959,643.80 ",.03)
 ;;1
 ;;9002226.02101,"1959,643.83 ",.01)
 ;;643.83
 ;;9002226.02101,"1959,643.83 ",.02)
 ;;643.83
 ;;9002226.02101,"1959,643.83 ",.03)
 ;;1
 ;;9002226.02101,"1959,643.90 ",.01)
 ;;643.90
 ;;9002226.02101,"1959,643.90 ",.02)
 ;;643.90
 ;;9002226.02101,"1959,643.90 ",.03)
 ;;1
 ;;9002226.02101,"1959,643.93 ",.01)
 ;;643.93
 ;;9002226.02101,"1959,643.93 ",.02)
 ;;643.93
 ;;9002226.02101,"1959,643.93 ",.03)
 ;;1
 ;;9002226.02101,"1959,644.00 ",.01)
 ;;644.00
 ;;9002226.02101,"1959,644.00 ",.02)
 ;;644.00
 ;;9002226.02101,"1959,644.00 ",.03)
 ;;1
 ;;9002226.02101,"1959,644.03 ",.01)
 ;;644.03
 ;;9002226.02101,"1959,644.03 ",.02)
 ;;644.03
 ;;9002226.02101,"1959,644.03 ",.03)
 ;;1
 ;;9002226.02101,"1959,644.10 ",.01)
 ;;644.10
 ;;9002226.02101,"1959,644.10 ",.02)
 ;;644.10
 ;;9002226.02101,"1959,644.10 ",.03)
 ;;1
 ;;9002226.02101,"1959,644.13 ",.01)
 ;;644.13
 ;;9002226.02101,"1959,644.13 ",.02)
 ;;644.13
 ;;9002226.02101,"1959,644.13 ",.03)
 ;;1
 ;;9002226.02101,"1959,645.00 ",.01)
 ;;645.00
 ;;9002226.02101,"1959,645.00 ",.02)
 ;;645.00
 ;;9002226.02101,"1959,645.00 ",.03)
 ;;1
 ;;9002226.02101,"1959,645.03 ",.01)
 ;;645.03
 ;;9002226.02101,"1959,645.03 ",.02)
 ;;645.03
 ;;9002226.02101,"1959,645.03 ",.03)
 ;;1
 ;;9002226.02101,"1959,645.10 ",.01)
 ;;645.10
 ;;9002226.02101,"1959,645.10 ",.02)
 ;;645.10
 ;;9002226.02101,"1959,645.10 ",.03)
 ;;1
 ;;9002226.02101,"1959,645.13 ",.01)
 ;;645.13
 ;;9002226.02101,"1959,645.13 ",.02)
 ;;645.13
 ;;9002226.02101,"1959,645.13 ",.03)
 ;;1
 ;;9002226.02101,"1959,645.20 ",.01)
 ;;645.20
 ;;9002226.02101,"1959,645.20 ",.02)
 ;;645.20
 ;;9002226.02101,"1959,645.20 ",.03)
 ;;1
 ;;9002226.02101,"1959,645.23 ",.01)
 ;;645.23
 ;;9002226.02101,"1959,645.23 ",.02)
 ;;645.23
 ;;9002226.02101,"1959,645.23 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.00 ",.01)
 ;;646.00
 ;;9002226.02101,"1959,646.00 ",.02)
 ;;646.00
 ;;9002226.02101,"1959,646.00 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.03 ",.01)
 ;;646.03
 ;;9002226.02101,"1959,646.03 ",.02)
 ;;646.03
 ;;9002226.02101,"1959,646.03 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.10 ",.01)
 ;;646.10
 ;;9002226.02101,"1959,646.10 ",.02)
 ;;646.10
 ;;9002226.02101,"1959,646.10 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.13 ",.01)
 ;;646.13
 ;;9002226.02101,"1959,646.13 ",.02)
 ;;646.13
 ;;9002226.02101,"1959,646.13 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.20 ",.01)
 ;;646.20
 ;;9002226.02101,"1959,646.20 ",.02)
 ;;646.20
 ;;9002226.02101,"1959,646.20 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.23 ",.01)
 ;;646.23
 ;;9002226.02101,"1959,646.23 ",.02)
 ;;646.23
 ;;9002226.02101,"1959,646.23 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.30 ",.01)
 ;;646.30
 ;;9002226.02101,"1959,646.30 ",.02)
 ;;646.30
 ;;9002226.02101,"1959,646.30 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.33 ",.01)
 ;;646.33
 ;;9002226.02101,"1959,646.33 ",.02)
 ;;646.33
 ;;9002226.02101,"1959,646.33 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.40 ",.01)
 ;;646.40
 ;;9002226.02101,"1959,646.40 ",.02)
 ;;646.40
 ;;9002226.02101,"1959,646.40 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.43 ",.01)
 ;;646.43
 ;;9002226.02101,"1959,646.43 ",.02)
 ;;646.43
 ;;9002226.02101,"1959,646.43 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.50 ",.01)
 ;;646.50
 ;;9002226.02101,"1959,646.50 ",.02)
 ;;646.50
 ;;9002226.02101,"1959,646.50 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.53 ",.01)
 ;;646.53
 ;;9002226.02101,"1959,646.53 ",.02)
 ;;646.53
 ;;9002226.02101,"1959,646.53 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.60 ",.01)
 ;;646.60
 ;;9002226.02101,"1959,646.60 ",.02)
 ;;646.60
 ;;9002226.02101,"1959,646.60 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.63 ",.01)
 ;;646.63
 ;;9002226.02101,"1959,646.63 ",.02)
 ;;646.63
 ;;9002226.02101,"1959,646.63 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.70 ",.01)
 ;;646.70
 ;;9002226.02101,"1959,646.70 ",.02)
 ;;646.70
 ;;9002226.02101,"1959,646.70 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.73 ",.01)
 ;;646.73
 ;;9002226.02101,"1959,646.73 ",.02)
 ;;646.73
 ;;9002226.02101,"1959,646.73 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.80 ",.01)
 ;;646.80
 ;;9002226.02101,"1959,646.80 ",.02)
 ;;646.80
 ;;9002226.02101,"1959,646.80 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.83 ",.01)
 ;;646.83
 ;;9002226.02101,"1959,646.83 ",.02)
 ;;646.83
 ;;9002226.02101,"1959,646.83 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.90 ",.01)
 ;;646.90
 ;;9002226.02101,"1959,646.90 ",.02)
 ;;646.90
 ;;9002226.02101,"1959,646.90 ",.03)
 ;;1
 ;;9002226.02101,"1959,646.93 ",.01)
 ;;646.93
 ;;9002226.02101,"1959,646.93 ",.02)
 ;;646.93
 ;;9002226.02101,"1959,646.93 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.00 ",.01)
 ;;647.00
 ;;9002226.02101,"1959,647.00 ",.02)
 ;;647.00
 ;;9002226.02101,"1959,647.00 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.03 ",.01)
 ;;647.03
 ;;9002226.02101,"1959,647.03 ",.02)
 ;;647.03
 ;;9002226.02101,"1959,647.03 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.10 ",.01)
 ;;647.10
 ;;9002226.02101,"1959,647.10 ",.02)
 ;;647.10
 ;;9002226.02101,"1959,647.10 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.13 ",.01)
 ;;647.13
 ;;9002226.02101,"1959,647.13 ",.02)
 ;;647.13
 ;;9002226.02101,"1959,647.13 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.20 ",.01)
 ;;647.20
 ;;9002226.02101,"1959,647.20 ",.02)
 ;;647.20
 ;;9002226.02101,"1959,647.20 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.23 ",.01)
 ;;647.23
 ;;9002226.02101,"1959,647.23 ",.02)
 ;;647.23
 ;;9002226.02101,"1959,647.23 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.30 ",.01)
 ;;647.30
 ;;9002226.02101,"1959,647.30 ",.02)
 ;;647.30
 ;;9002226.02101,"1959,647.30 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.33 ",.01)
 ;;647.33
 ;;9002226.02101,"1959,647.33 ",.02)
 ;;647.33
 ;;9002226.02101,"1959,647.33 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.40 ",.01)
 ;;647.40
 ;;9002226.02101,"1959,647.40 ",.02)
 ;;647.40
 ;;9002226.02101,"1959,647.40 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.43 ",.01)
 ;;647.43
 ;;9002226.02101,"1959,647.43 ",.02)
 ;;647.43
 ;;9002226.02101,"1959,647.43 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.50 ",.01)
 ;;647.50
 ;;9002226.02101,"1959,647.50 ",.02)
 ;;647.50
 ;;9002226.02101,"1959,647.50 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.53 ",.01)
 ;;647.53
 ;;9002226.02101,"1959,647.53 ",.02)
 ;;647.53
 ;;9002226.02101,"1959,647.53 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.60 ",.01)
 ;;647.60
 ;;9002226.02101,"1959,647.60 ",.02)
 ;;647.60
 ;;9002226.02101,"1959,647.60 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.63 ",.01)
 ;;647.63
 ;;9002226.02101,"1959,647.63 ",.02)
 ;;647.63
 ;;9002226.02101,"1959,647.63 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.80 ",.01)
 ;;647.80
 ;;9002226.02101,"1959,647.80 ",.02)
 ;;647.80
 ;;9002226.02101,"1959,647.80 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.83 ",.01)
 ;;647.83
 ;;9002226.02101,"1959,647.83 ",.02)
 ;;647.83
 ;;9002226.02101,"1959,647.83 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.90 ",.01)
 ;;647.90
 ;;9002226.02101,"1959,647.90 ",.02)
 ;;647.90
 ;;9002226.02101,"1959,647.90 ",.03)
 ;;1
 ;;9002226.02101,"1959,647.93 ",.01)
 ;;647.93
 ;;9002226.02101,"1959,647.93 ",.02)
 ;;647.93
 ;;9002226.02101,"1959,647.93 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.00 ",.01)
 ;;648.00
 ;;9002226.02101,"1959,648.00 ",.02)
 ;;648.00
 ;;9002226.02101,"1959,648.00 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.03 ",.01)
 ;;648.03
 ;;9002226.02101,"1959,648.03 ",.02)
 ;;648.03
 ;;9002226.02101,"1959,648.03 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.10 ",.01)
 ;;648.10
 ;;9002226.02101,"1959,648.10 ",.02)
 ;;648.10
 ;;9002226.02101,"1959,648.10 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.13 ",.01)
 ;;648.13
 ;;9002226.02101,"1959,648.13 ",.02)
 ;;648.13
 ;;9002226.02101,"1959,648.13 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.20 ",.01)
 ;;648.20
 ;;9002226.02101,"1959,648.20 ",.02)
 ;;648.20
 ;;9002226.02101,"1959,648.20 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.23 ",.01)
 ;;648.23
 ;;9002226.02101,"1959,648.23 ",.02)
 ;;648.23
 ;;9002226.02101,"1959,648.23 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.30 ",.01)
 ;;648.30
 ;;9002226.02101,"1959,648.30 ",.02)
 ;;648.30
 ;;9002226.02101,"1959,648.30 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.33 ",.01)
 ;;648.33
 ;;9002226.02101,"1959,648.33 ",.02)
 ;;648.33
 ;;9002226.02101,"1959,648.33 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.40 ",.01)
 ;;648.40
 ;;9002226.02101,"1959,648.40 ",.02)
 ;;648.40
 ;;9002226.02101,"1959,648.40 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.43 ",.01)
 ;;648.43
 ;;9002226.02101,"1959,648.43 ",.02)
 ;;648.43
 ;;9002226.02101,"1959,648.43 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.50 ",.01)
 ;;648.50
 ;;9002226.02101,"1959,648.50 ",.02)
 ;;648.50
 ;;9002226.02101,"1959,648.50 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.53 ",.01)
 ;;648.53
 ;;9002226.02101,"1959,648.53 ",.02)
 ;;648.53
 ;;9002226.02101,"1959,648.53 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.60 ",.01)
 ;;648.60
 ;;9002226.02101,"1959,648.60 ",.02)
 ;;648.60
 ;;9002226.02101,"1959,648.60 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.63 ",.01)
 ;;648.63
 ;;9002226.02101,"1959,648.63 ",.02)
 ;;648.63
 ;;9002226.02101,"1959,648.63 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.70 ",.01)
 ;;648.70
 ;;9002226.02101,"1959,648.70 ",.02)
 ;;648.70
 ;;9002226.02101,"1959,648.70 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.73 ",.01)
 ;;648.73
 ;;9002226.02101,"1959,648.73 ",.02)
 ;;648.73
 ;;9002226.02101,"1959,648.73 ",.03)
 ;;1
 ;;9002226.02101,"1959,648.80 ",.01)
 ;;648.80
 ;;9002226.02101,"1959,648.80 ",.02)
 ;;648.80