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

ATXD3S6.m

Go to the documentation of this file.
ATXD3S6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 2013;
 ;;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,"1011,647.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,647.23 ",.01)
 ;;647.23 
 ;;9002226.02101,"1011,647.23 ",.02)
 ;;647.23 
 ;;9002226.02101,"1011,647.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,647.33 ",.01)
 ;;647.33 
 ;;9002226.02101,"1011,647.33 ",.02)
 ;;647.33 
 ;;9002226.02101,"1011,647.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,647.43 ",.01)
 ;;647.43 
 ;;9002226.02101,"1011,647.43 ",.02)
 ;;647.43 
 ;;9002226.02101,"1011,647.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,647.53 ",.01)
 ;;647.53 
 ;;9002226.02101,"1011,647.53 ",.02)
 ;;647.53 
 ;;9002226.02101,"1011,647.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,647.63 ",.01)
 ;;647.63 
 ;;9002226.02101,"1011,647.63 ",.02)
 ;;647.63 
 ;;9002226.02101,"1011,647.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,647.83 ",.01)
 ;;647.83 
 ;;9002226.02101,"1011,647.83 ",.02)
 ;;647.83 
 ;;9002226.02101,"1011,647.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,647.93 ",.01)
 ;;647.93 
 ;;9002226.02101,"1011,647.93 ",.02)
 ;;647.93 
 ;;9002226.02101,"1011,647.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,648.03 ",.01)
 ;;648.03 
 ;;9002226.02101,"1011,648.03 ",.02)
 ;;648.03 
 ;;9002226.02101,"1011,648.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,648.13 ",.01)
 ;;648.13 
 ;;9002226.02101,"1011,648.13 ",.02)
 ;;648.13 
 ;;9002226.02101,"1011,648.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,648.23 ",.01)
 ;;648.23 
 ;;9002226.02101,"1011,648.23 ",.02)
 ;;648.23 
 ;;9002226.02101,"1011,648.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,648.33 ",.01)
 ;;648.33 
 ;;9002226.02101,"1011,648.33 ",.02)
 ;;648.33 
 ;;9002226.02101,"1011,648.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,648.43 ",.01)
 ;;648.43 
 ;;9002226.02101,"1011,648.43 ",.02)
 ;;648.43 
 ;;9002226.02101,"1011,648.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,648.53 ",.01)
 ;;648.53 
 ;;9002226.02101,"1011,648.53 ",.02)
 ;;648.53 
 ;;9002226.02101,"1011,648.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,648.63 ",.01)
 ;;648.63 
 ;;9002226.02101,"1011,648.63 ",.02)
 ;;648.63 
 ;;9002226.02101,"1011,648.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,648.73 ",.01)
 ;;648.73 
 ;;9002226.02101,"1011,648.73 ",.02)
 ;;648.73 
 ;;9002226.02101,"1011,648.73 ",.03)
 ;;1
 ;;9002226.02101,"1011,648.83 ",.01)
 ;;648.83 
 ;;9002226.02101,"1011,648.83 ",.02)
 ;;648.83 
 ;;9002226.02101,"1011,648.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,648.93 ",.01)
 ;;648.93 
 ;;9002226.02101,"1011,648.93 ",.02)
 ;;648.93 
 ;;9002226.02101,"1011,648.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,649.03 ",.01)
 ;;649.03 
 ;;9002226.02101,"1011,649.03 ",.02)
 ;;649.03 
 ;;9002226.02101,"1011,649.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,649.13 ",.01)
 ;;649.13 
 ;;9002226.02101,"1011,649.13 ",.02)
 ;;649.13 
 ;;9002226.02101,"1011,649.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,649.23 ",.01)
 ;;649.23 
 ;;9002226.02101,"1011,649.23 ",.02)
 ;;649.23 
 ;;9002226.02101,"1011,649.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,649.33 ",.01)
 ;;649.33 
 ;;9002226.02101,"1011,649.33 ",.02)
 ;;649.33 
 ;;9002226.02101,"1011,649.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,649.43 ",.01)
 ;;649.43 
 ;;9002226.02101,"1011,649.43 ",.02)
 ;;649.43 
 ;;9002226.02101,"1011,649.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,649.53 ",.01)
 ;;649.53 
 ;;9002226.02101,"1011,649.53 ",.02)
 ;;649.53 
 ;;9002226.02101,"1011,649.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,649.63 ",.01)
 ;;649.63 
 ;;9002226.02101,"1011,649.63 ",.02)
 ;;649.63 
 ;;9002226.02101,"1011,649.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,649.73 ",.01)
 ;;649.73 
 ;;9002226.02101,"1011,649.73 ",.02)
 ;;649.73 
 ;;9002226.02101,"1011,649.73 ",.03)
 ;;1
 ;;9002226.02101,"1011,651.03 ",.01)
 ;;651.03 
 ;;9002226.02101,"1011,651.03 ",.02)
 ;;651.03 
 ;;9002226.02101,"1011,651.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,651.13 ",.01)
 ;;651.13 
 ;;9002226.02101,"1011,651.13 ",.02)
 ;;651.13 
 ;;9002226.02101,"1011,651.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,651.23 ",.01)
 ;;651.23 
 ;;9002226.02101,"1011,651.23 ",.02)
 ;;651.23 
 ;;9002226.02101,"1011,651.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,651.33 ",.01)
 ;;651.33 
 ;;9002226.02101,"1011,651.33 ",.02)
 ;;651.33 
 ;;9002226.02101,"1011,651.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,651.43 ",.01)
 ;;651.43 
 ;;9002226.02101,"1011,651.43 ",.02)
 ;;651.43 
 ;;9002226.02101,"1011,651.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,651.53 ",.01)
 ;;651.53 
 ;;9002226.02101,"1011,651.53 ",.02)
 ;;651.53 
 ;;9002226.02101,"1011,651.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,651.63 ",.01)
 ;;651.63 
 ;;9002226.02101,"1011,651.63 ",.02)
 ;;651.63 
 ;;9002226.02101,"1011,651.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,651.73 ",.01)
 ;;651.73 
 ;;9002226.02101,"1011,651.73 ",.02)
 ;;651.73 
 ;;9002226.02101,"1011,651.73 ",.03)
 ;;1
 ;;9002226.02101,"1011,651.83 ",.01)
 ;;651.83 
 ;;9002226.02101,"1011,651.83 ",.02)
 ;;651.83 
 ;;9002226.02101,"1011,651.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,651.93 ",.01)
 ;;651.93 
 ;;9002226.02101,"1011,651.93 ",.02)
 ;;651.93 
 ;;9002226.02101,"1011,651.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,652.03 ",.01)
 ;;652.03 
 ;;9002226.02101,"1011,652.03 ",.02)
 ;;652.03 
 ;;9002226.02101,"1011,652.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,652.13 ",.01)
 ;;652.13 
 ;;9002226.02101,"1011,652.13 ",.02)
 ;;652.13 
 ;;9002226.02101,"1011,652.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,652.23 ",.01)
 ;;652.23 
 ;;9002226.02101,"1011,652.23 ",.02)
 ;;652.23 
 ;;9002226.02101,"1011,652.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,652.33 ",.01)
 ;;652.33 
 ;;9002226.02101,"1011,652.33 ",.02)
 ;;652.33 
 ;;9002226.02101,"1011,652.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,652.43 ",.01)
 ;;652.43 
 ;;9002226.02101,"1011,652.43 ",.02)
 ;;652.43 
 ;;9002226.02101,"1011,652.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,652.53 ",.01)
 ;;652.53 
 ;;9002226.02101,"1011,652.53 ",.02)
 ;;652.53 
 ;;9002226.02101,"1011,652.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,652.63 ",.01)
 ;;652.63 
 ;;9002226.02101,"1011,652.63 ",.02)
 ;;652.63 
 ;;9002226.02101,"1011,652.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,652.73 ",.01)
 ;;652.73 
 ;;9002226.02101,"1011,652.73 ",.02)
 ;;652.73 
 ;;9002226.02101,"1011,652.73 ",.03)
 ;;1
 ;;9002226.02101,"1011,652.83 ",.01)
 ;;652.83 
 ;;9002226.02101,"1011,652.83 ",.02)
 ;;652.83 
 ;;9002226.02101,"1011,652.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,652.93 ",.01)
 ;;652.93 
 ;;9002226.02101,"1011,652.93 ",.02)
 ;;652.93 
 ;;9002226.02101,"1011,652.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,653.03 ",.01)
 ;;653.03 
 ;;9002226.02101,"1011,653.03 ",.02)
 ;;653.03 
 ;;9002226.02101,"1011,653.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,653.13 ",.01)
 ;;653.13 
 ;;9002226.02101,"1011,653.13 ",.02)
 ;;653.13 
 ;;9002226.02101,"1011,653.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,653.23 ",.01)
 ;;653.23 
 ;;9002226.02101,"1011,653.23 ",.02)
 ;;653.23 
 ;;9002226.02101,"1011,653.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,653.33 ",.01)
 ;;653.33 
 ;;9002226.02101,"1011,653.33 ",.02)
 ;;653.33 
 ;;9002226.02101,"1011,653.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,653.43 ",.01)
 ;;653.43 
 ;;9002226.02101,"1011,653.43 ",.02)
 ;;653.43 
 ;;9002226.02101,"1011,653.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,653.53 ",.01)
 ;;653.53 
 ;;9002226.02101,"1011,653.53 ",.02)
 ;;653.53 
 ;;9002226.02101,"1011,653.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,653.63 ",.01)
 ;;653.63 
 ;;9002226.02101,"1011,653.63 ",.02)
 ;;653.63 
 ;;9002226.02101,"1011,653.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,653.73 ",.01)
 ;;653.73 
 ;;9002226.02101,"1011,653.73 ",.02)
 ;;653.73 
 ;;9002226.02101,"1011,653.73 ",.03)
 ;;1
 ;;9002226.02101,"1011,653.83 ",.01)
 ;;653.83 
 ;;9002226.02101,"1011,653.83 ",.02)
 ;;653.83 
 ;;9002226.02101,"1011,653.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,653.93 ",.01)
 ;;653.93 
 ;;9002226.02101,"1011,653.93 ",.02)
 ;;653.93 
 ;;9002226.02101,"1011,653.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,654.03 ",.01)
 ;;654.03 
 ;;9002226.02101,"1011,654.03 ",.02)
 ;;654.03 
 ;;9002226.02101,"1011,654.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,654.13 ",.01)
 ;;654.13 
 ;;9002226.02101,"1011,654.13 ",.02)
 ;;654.13 
 ;;9002226.02101,"1011,654.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,654.23 ",.01)
 ;;654.23 
 ;;9002226.02101,"1011,654.23 ",.02)
 ;;654.23 
 ;;9002226.02101,"1011,654.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,654.33 ",.01)
 ;;654.33 
 ;;9002226.02101,"1011,654.33 ",.02)
 ;;654.33 
 ;;9002226.02101,"1011,654.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,654.43 ",.01)
 ;;654.43 
 ;;9002226.02101,"1011,654.43 ",.02)
 ;;654.43 
 ;;9002226.02101,"1011,654.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,654.53 ",.01)
 ;;654.53 
 ;;9002226.02101,"1011,654.53 ",.02)
 ;;654.53 
 ;;9002226.02101,"1011,654.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,654.63 ",.01)
 ;;654.63 
 ;;9002226.02101,"1011,654.63 ",.02)
 ;;654.63 
 ;;9002226.02101,"1011,654.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,654.73 ",.01)
 ;;654.73 
 ;;9002226.02101,"1011,654.73 ",.02)
 ;;654.73 
 ;;9002226.02101,"1011,654.73 ",.03)
 ;;1
 ;;9002226.02101,"1011,654.83 ",.01)
 ;;654.83 
 ;;9002226.02101,"1011,654.83 ",.02)
 ;;654.83 
 ;;9002226.02101,"1011,654.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,654.93 ",.01)
 ;;654.93 
 ;;9002226.02101,"1011,654.93 ",.02)
 ;;654.93 
 ;;9002226.02101,"1011,654.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,655.03 ",.01)
 ;;655.03 
 ;;9002226.02101,"1011,655.03 ",.02)
 ;;655.03 
 ;;9002226.02101,"1011,655.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,655.13 ",.01)
 ;;655.13 
 ;;9002226.02101,"1011,655.13 ",.02)
 ;;655.13 
 ;;9002226.02101,"1011,655.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,655.23 ",.01)
 ;;655.23 
 ;;9002226.02101,"1011,655.23 ",.02)
 ;;655.23 
 ;;9002226.02101,"1011,655.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,655.33 ",.01)
 ;;655.33 
 ;;9002226.02101,"1011,655.33 ",.02)
 ;;655.33 
 ;;9002226.02101,"1011,655.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,655.43 ",.01)
 ;;655.43 
 ;;9002226.02101,"1011,655.43 ",.02)
 ;;655.43 
 ;;9002226.02101,"1011,655.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,655.53 ",.01)
 ;;655.53 
 ;;9002226.02101,"1011,655.53 ",.02)
 ;;655.53 
 ;;9002226.02101,"1011,655.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,655.63 ",.01)
 ;;655.63 
 ;;9002226.02101,"1011,655.63 ",.02)
 ;;655.63 
 ;;9002226.02101,"1011,655.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,655.73 ",.01)
 ;;655.73 
 ;;9002226.02101,"1011,655.73 ",.02)
 ;;655.73 
 ;;9002226.02101,"1011,655.73 ",.03)
 ;;1
 ;;9002226.02101,"1011,655.83 ",.01)
 ;;655.83 
 ;;9002226.02101,"1011,655.83 ",.02)
 ;;655.83 
 ;;9002226.02101,"1011,655.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,655.93 ",.01)
 ;;655.93 
 ;;9002226.02101,"1011,655.93 ",.02)
 ;;655.93 
 ;;9002226.02101,"1011,655.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,656.03 ",.01)
 ;;656.03 
 ;;9002226.02101,"1011,656.03 ",.02)
 ;;656.03 
 ;;9002226.02101,"1011,656.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,656.13 ",.01)
 ;;656.13 
 ;;9002226.02101,"1011,656.13 ",.02)
 ;;656.13 
 ;;9002226.02101,"1011,656.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,656.23 ",.01)
 ;;656.23 
 ;;9002226.02101,"1011,656.23 ",.02)
 ;;656.23 
 ;;9002226.02101,"1011,656.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,656.33 ",.01)
 ;;656.33 
 ;;9002226.02101,"1011,656.33 ",.02)
 ;;656.33 
 ;;9002226.02101,"1011,656.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,656.43 ",.01)
 ;;656.43 
 ;;9002226.02101,"1011,656.43 ",.02)
 ;;656.43 
 ;;9002226.02101,"1011,656.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,656.53 ",.01)
 ;;656.53 
 ;;9002226.02101,"1011,656.53 ",.02)
 ;;656.53 
 ;;9002226.02101,"1011,656.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,656.63 ",.01)
 ;;656.63 
 ;;9002226.02101,"1011,656.63 ",.02)
 ;;656.63 
 ;;9002226.02101,"1011,656.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,656.73 ",.01)
 ;;656.73 
 ;;9002226.02101,"1011,656.73 ",.02)
 ;;656.73 
 ;;9002226.02101,"1011,656.73 ",.03)
 ;;1
 ;;9002226.02101,"1011,656.83 ",.01)
 ;;656.83 
 ;;9002226.02101,"1011,656.83 ",.02)
 ;;656.83 
 ;;9002226.02101,"1011,656.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,656.93 ",.01)
 ;;656.93 
 ;;9002226.02101,"1011,656.93 ",.02)
 ;;656.93 
 ;;9002226.02101,"1011,656.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,657.03 ",.01)
 ;;657.03 
 ;;9002226.02101,"1011,657.03 ",.02)
 ;;657.03 
 ;;9002226.02101,"1011,657.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,658.03 ",.01)
 ;;658.03 
 ;;9002226.02101,"1011,658.03 ",.02)
 ;;658.03 
 ;;9002226.02101,"1011,658.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,658.13 ",.01)
 ;;658.13 
 ;;9002226.02101,"1011,658.13 ",.02)
 ;;658.13 
 ;;9002226.02101,"1011,658.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,658.23 ",.01)
 ;;658.23 
 ;;9002226.02101,"1011,658.23 ",.02)
 ;;658.23 
 ;;9002226.02101,"1011,658.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,658.33 ",.01)
 ;;658.33 
 ;;9002226.02101,"1011,658.33 ",.02)
 ;;658.33 
 ;;9002226.02101,"1011,658.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,658.43 ",.01)
 ;;658.43 
 ;;9002226.02101,"1011,658.43 ",.02)
 ;;658.43 
 ;;9002226.02101,"1011,658.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,658.83 ",.01)
 ;;658.83 
 ;;9002226.02101,"1011,658.83 ",.02)
 ;;658.83 
 ;;9002226.02101,"1011,658.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,658.93 ",.01)
 ;;658.93 
 ;;9002226.02101,"1011,658.93 ",.02)
 ;;658.93 
 ;;9002226.02101,"1011,658.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,659.03 ",.01)
 ;;659.03 
 ;;9002226.02101,"1011,659.03 ",.02)
 ;;659.03