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

ATXF0M2.m

Go to the documentation of this file.
  1. ATXF0M2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 29, 2017;
  1. ;;5.1;TAXONOMY;**23**;FEB 04, 1997;Build 39
  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,"1075,644.03 ",.01)
  1. ;;644.03
  1. ;;9002226.02101,"1075,644.03 ",.02)
  1. ;;644.03
  1. ;;9002226.02101,"1075,644.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,644.13 ",.01)
  1. ;;644.13
  1. ;;9002226.02101,"1075,644.13 ",.02)
  1. ;;644.13
  1. ;;9002226.02101,"1075,644.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,645.13 ",.01)
  1. ;;645.13
  1. ;;9002226.02101,"1075,645.13 ",.02)
  1. ;;645.13
  1. ;;9002226.02101,"1075,645.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,645.23 ",.01)
  1. ;;645.23
  1. ;;9002226.02101,"1075,645.23 ",.02)
  1. ;;645.23
  1. ;;9002226.02101,"1075,645.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,646.03 ",.01)
  1. ;;646.03
  1. ;;9002226.02101,"1075,646.03 ",.02)
  1. ;;646.03
  1. ;;9002226.02101,"1075,646.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,646.13 ",.01)
  1. ;;646.13
  1. ;;9002226.02101,"1075,646.13 ",.02)
  1. ;;646.13
  1. ;;9002226.02101,"1075,646.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,646.23 ",.01)
  1. ;;646.23
  1. ;;9002226.02101,"1075,646.23 ",.02)
  1. ;;646.23
  1. ;;9002226.02101,"1075,646.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,646.33 ",.01)
  1. ;;646.33
  1. ;;9002226.02101,"1075,646.33 ",.02)
  1. ;;646.33
  1. ;;9002226.02101,"1075,646.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,646.43 ",.01)
  1. ;;646.43
  1. ;;9002226.02101,"1075,646.43 ",.02)
  1. ;;646.43
  1. ;;9002226.02101,"1075,646.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,646.53 ",.01)
  1. ;;646.53
  1. ;;9002226.02101,"1075,646.53 ",.02)
  1. ;;646.53
  1. ;;9002226.02101,"1075,646.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,646.63 ",.01)
  1. ;;646.63
  1. ;;9002226.02101,"1075,646.63 ",.02)
  1. ;;646.63
  1. ;;9002226.02101,"1075,646.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,646.73 ",.01)
  1. ;;646.73
  1. ;;9002226.02101,"1075,646.73 ",.02)
  1. ;;646.73
  1. ;;9002226.02101,"1075,646.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,646.83 ",.01)
  1. ;;646.83
  1. ;;9002226.02101,"1075,646.83 ",.02)
  1. ;;646.83
  1. ;;9002226.02101,"1075,646.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,646.93 ",.01)
  1. ;;646.93
  1. ;;9002226.02101,"1075,646.93 ",.02)
  1. ;;646.93
  1. ;;9002226.02101,"1075,646.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,647.03 ",.01)
  1. ;;647.03
  1. ;;9002226.02101,"1075,647.03 ",.02)
  1. ;;647.03
  1. ;;9002226.02101,"1075,647.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,647.13 ",.01)
  1. ;;647.13
  1. ;;9002226.02101,"1075,647.13 ",.02)
  1. ;;647.13
  1. ;;9002226.02101,"1075,647.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,647.23 ",.01)
  1. ;;647.23
  1. ;;9002226.02101,"1075,647.23 ",.02)
  1. ;;647.23
  1. ;;9002226.02101,"1075,647.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,647.33 ",.01)
  1. ;;647.33
  1. ;;9002226.02101,"1075,647.33 ",.02)
  1. ;;647.33
  1. ;;9002226.02101,"1075,647.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,647.43 ",.01)
  1. ;;647.43
  1. ;;9002226.02101,"1075,647.43 ",.02)
  1. ;;647.43
  1. ;;9002226.02101,"1075,647.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,647.53 ",.01)
  1. ;;647.53
  1. ;;9002226.02101,"1075,647.53 ",.02)
  1. ;;647.53
  1. ;;9002226.02101,"1075,647.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,647.63 ",.01)
  1. ;;647.63
  1. ;;9002226.02101,"1075,647.63 ",.02)
  1. ;;647.63
  1. ;;9002226.02101,"1075,647.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,647.83 ",.01)
  1. ;;647.83
  1. ;;9002226.02101,"1075,647.83 ",.02)
  1. ;;647.83
  1. ;;9002226.02101,"1075,647.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,647.93 ",.01)
  1. ;;647.93
  1. ;;9002226.02101,"1075,647.93 ",.02)
  1. ;;647.93
  1. ;;9002226.02101,"1075,647.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,648.03 ",.01)
  1. ;;648.03
  1. ;;9002226.02101,"1075,648.03 ",.02)
  1. ;;648.03
  1. ;;9002226.02101,"1075,648.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,648.13 ",.01)
  1. ;;648.13
  1. ;;9002226.02101,"1075,648.13 ",.02)
  1. ;;648.13
  1. ;;9002226.02101,"1075,648.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,648.23 ",.01)
  1. ;;648.23
  1. ;;9002226.02101,"1075,648.23 ",.02)
  1. ;;648.23
  1. ;;9002226.02101,"1075,648.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,648.33 ",.01)
  1. ;;648.33
  1. ;;9002226.02101,"1075,648.33 ",.02)
  1. ;;648.33
  1. ;;9002226.02101,"1075,648.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,648.43 ",.01)
  1. ;;648.43
  1. ;;9002226.02101,"1075,648.43 ",.02)
  1. ;;648.43
  1. ;;9002226.02101,"1075,648.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,648.53 ",.01)
  1. ;;648.53
  1. ;;9002226.02101,"1075,648.53 ",.02)
  1. ;;648.53
  1. ;;9002226.02101,"1075,648.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,648.63 ",.01)
  1. ;;648.63
  1. ;;9002226.02101,"1075,648.63 ",.02)
  1. ;;648.63
  1. ;;9002226.02101,"1075,648.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,648.73 ",.01)
  1. ;;648.73
  1. ;;9002226.02101,"1075,648.73 ",.02)
  1. ;;648.73
  1. ;;9002226.02101,"1075,648.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,648.83 ",.01)
  1. ;;648.83
  1. ;;9002226.02101,"1075,648.83 ",.02)
  1. ;;648.83
  1. ;;9002226.02101,"1075,648.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,648.93 ",.01)
  1. ;;648.93
  1. ;;9002226.02101,"1075,648.93 ",.02)
  1. ;;648.93
  1. ;;9002226.02101,"1075,648.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,649.03 ",.01)
  1. ;;649.03
  1. ;;9002226.02101,"1075,649.03 ",.02)
  1. ;;649.03
  1. ;;9002226.02101,"1075,649.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,649.13 ",.01)
  1. ;;649.13
  1. ;;9002226.02101,"1075,649.13 ",.02)
  1. ;;649.13
  1. ;;9002226.02101,"1075,649.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,649.23 ",.01)
  1. ;;649.23
  1. ;;9002226.02101,"1075,649.23 ",.02)
  1. ;;649.23
  1. ;;9002226.02101,"1075,649.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,649.33 ",.01)
  1. ;;649.33
  1. ;;9002226.02101,"1075,649.33 ",.02)
  1. ;;649.33
  1. ;;9002226.02101,"1075,649.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,649.43 ",.01)
  1. ;;649.43
  1. ;;9002226.02101,"1075,649.43 ",.02)
  1. ;;649.43
  1. ;;9002226.02101,"1075,649.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,649.53 ",.01)
  1. ;;649.53
  1. ;;9002226.02101,"1075,649.53 ",.02)
  1. ;;649.53
  1. ;;9002226.02101,"1075,649.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,649.63 ",.01)
  1. ;;649.63
  1. ;;9002226.02101,"1075,649.63 ",.02)
  1. ;;649.63
  1. ;;9002226.02101,"1075,649.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,649.73 ",.01)
  1. ;;649.73
  1. ;;9002226.02101,"1075,649.73 ",.02)
  1. ;;649.73
  1. ;;9002226.02101,"1075,649.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,651.03 ",.01)
  1. ;;651.03
  1. ;;9002226.02101,"1075,651.03 ",.02)
  1. ;;651.03
  1. ;;9002226.02101,"1075,651.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,651.13 ",.01)
  1. ;;651.13
  1. ;;9002226.02101,"1075,651.13 ",.02)
  1. ;;651.13
  1. ;;9002226.02101,"1075,651.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,651.23 ",.01)
  1. ;;651.23
  1. ;;9002226.02101,"1075,651.23 ",.02)
  1. ;;651.23
  1. ;;9002226.02101,"1075,651.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,651.33 ",.01)
  1. ;;651.33
  1. ;;9002226.02101,"1075,651.33 ",.02)
  1. ;;651.33
  1. ;;9002226.02101,"1075,651.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,651.43 ",.01)
  1. ;;651.43
  1. ;;9002226.02101,"1075,651.43 ",.02)
  1. ;;651.43
  1. ;;9002226.02101,"1075,651.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,651.53 ",.01)
  1. ;;651.53
  1. ;;9002226.02101,"1075,651.53 ",.02)
  1. ;;651.53
  1. ;;9002226.02101,"1075,651.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,651.63 ",.01)
  1. ;;651.63
  1. ;;9002226.02101,"1075,651.63 ",.02)
  1. ;;651.63
  1. ;;9002226.02101,"1075,651.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,651.73 ",.01)
  1. ;;651.73
  1. ;;9002226.02101,"1075,651.73 ",.02)
  1. ;;651.73
  1. ;;9002226.02101,"1075,651.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,651.83 ",.01)
  1. ;;651.83
  1. ;;9002226.02101,"1075,651.83 ",.02)
  1. ;;651.83
  1. ;;9002226.02101,"1075,651.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,651.93 ",.01)
  1. ;;651.93
  1. ;;9002226.02101,"1075,651.93 ",.02)
  1. ;;651.93
  1. ;;9002226.02101,"1075,651.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,652.03 ",.01)
  1. ;;652.03
  1. ;;9002226.02101,"1075,652.03 ",.02)
  1. ;;652.03
  1. ;;9002226.02101,"1075,652.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,652.13 ",.01)
  1. ;;652.13
  1. ;;9002226.02101,"1075,652.13 ",.02)
  1. ;;652.13
  1. ;;9002226.02101,"1075,652.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,652.23 ",.01)
  1. ;;652.23
  1. ;;9002226.02101,"1075,652.23 ",.02)
  1. ;;652.23
  1. ;;9002226.02101,"1075,652.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,652.33 ",.01)
  1. ;;652.33
  1. ;;9002226.02101,"1075,652.33 ",.02)
  1. ;;652.33
  1. ;;9002226.02101,"1075,652.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,652.43 ",.01)
  1. ;;652.43
  1. ;;9002226.02101,"1075,652.43 ",.02)
  1. ;;652.43
  1. ;;9002226.02101,"1075,652.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,652.53 ",.01)
  1. ;;652.53
  1. ;;9002226.02101,"1075,652.53 ",.02)
  1. ;;652.53
  1. ;;9002226.02101,"1075,652.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,652.63 ",.01)
  1. ;;652.63
  1. ;;9002226.02101,"1075,652.63 ",.02)
  1. ;;652.63
  1. ;;9002226.02101,"1075,652.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,652.73 ",.01)
  1. ;;652.73
  1. ;;9002226.02101,"1075,652.73 ",.02)
  1. ;;652.73
  1. ;;9002226.02101,"1075,652.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,652.83 ",.01)
  1. ;;652.83
  1. ;;9002226.02101,"1075,652.83 ",.02)
  1. ;;652.83
  1. ;;9002226.02101,"1075,652.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,652.93 ",.01)
  1. ;;652.93
  1. ;;9002226.02101,"1075,652.93 ",.02)
  1. ;;652.93
  1. ;;9002226.02101,"1075,652.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,653.03 ",.01)
  1. ;;653.03
  1. ;;9002226.02101,"1075,653.03 ",.02)
  1. ;;653.03
  1. ;;9002226.02101,"1075,653.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,653.13 ",.01)
  1. ;;653.13
  1. ;;9002226.02101,"1075,653.13 ",.02)
  1. ;;653.13
  1. ;;9002226.02101,"1075,653.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,653.23 ",.01)
  1. ;;653.23
  1. ;;9002226.02101,"1075,653.23 ",.02)
  1. ;;653.23
  1. ;;9002226.02101,"1075,653.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,653.33 ",.01)
  1. ;;653.33
  1. ;;9002226.02101,"1075,653.33 ",.02)
  1. ;;653.33
  1. ;;9002226.02101,"1075,653.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,653.43 ",.01)
  1. ;;653.43
  1. ;;9002226.02101,"1075,653.43 ",.02)
  1. ;;653.43
  1. ;;9002226.02101,"1075,653.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,653.53 ",.01)
  1. ;;653.53
  1. ;;9002226.02101,"1075,653.53 ",.02)
  1. ;;653.53
  1. ;;9002226.02101,"1075,653.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,653.63 ",.01)
  1. ;;653.63
  1. ;;9002226.02101,"1075,653.63 ",.02)
  1. ;;653.63
  1. ;;9002226.02101,"1075,653.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,653.73 ",.01)
  1. ;;653.73
  1. ;;9002226.02101,"1075,653.73 ",.02)
  1. ;;653.73
  1. ;;9002226.02101,"1075,653.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,653.83 ",.01)
  1. ;;653.83
  1. ;;9002226.02101,"1075,653.83 ",.02)
  1. ;;653.83
  1. ;;9002226.02101,"1075,653.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,653.93 ",.01)
  1. ;;653.93
  1. ;;9002226.02101,"1075,653.93 ",.02)
  1. ;;653.93
  1. ;;9002226.02101,"1075,653.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,654.03 ",.01)
  1. ;;654.03
  1. ;;9002226.02101,"1075,654.03 ",.02)
  1. ;;654.03
  1. ;;9002226.02101,"1075,654.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,654.13 ",.01)
  1. ;;654.13
  1. ;;9002226.02101,"1075,654.13 ",.02)
  1. ;;654.13
  1. ;;9002226.02101,"1075,654.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,654.23 ",.01)
  1. ;;654.23
  1. ;;9002226.02101,"1075,654.23 ",.02)
  1. ;;654.23
  1. ;;9002226.02101,"1075,654.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,654.33 ",.01)
  1. ;;654.33
  1. ;;9002226.02101,"1075,654.33 ",.02)
  1. ;;654.33
  1. ;;9002226.02101,"1075,654.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,654.43 ",.01)
  1. ;;654.43
  1. ;;9002226.02101,"1075,654.43 ",.02)
  1. ;;654.43
  1. ;;9002226.02101,"1075,654.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,654.53 ",.01)
  1. ;;654.53
  1. ;;9002226.02101,"1075,654.53 ",.02)
  1. ;;654.53
  1. ;;9002226.02101,"1075,654.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,654.63 ",.01)
  1. ;;654.63
  1. ;;9002226.02101,"1075,654.63 ",.02)
  1. ;;654.63
  1. ;;9002226.02101,"1075,654.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,654.73 ",.01)
  1. ;;654.73
  1. ;;9002226.02101,"1075,654.73 ",.02)
  1. ;;654.73
  1. ;;9002226.02101,"1075,654.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,654.83 ",.01)
  1. ;;654.83
  1. ;;9002226.02101,"1075,654.83 ",.02)
  1. ;;654.83
  1. ;;9002226.02101,"1075,654.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,654.93 ",.01)
  1. ;;654.93
  1. ;;9002226.02101,"1075,654.93 ",.02)
  1. ;;654.93
  1. ;;9002226.02101,"1075,654.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,655.03 ",.01)
  1. ;;655.03