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

ATXXB51.m

Go to the documentation of this file.
ATXXB51 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 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,"1804,049F30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049F3ZZ ",.01)
 ;;049F3ZZ 
 ;;9002226.02101,"1804,049F3ZZ ",.02)
 ;;049F3ZZ 
 ;;9002226.02101,"1804,049F3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049F40Z ",.01)
 ;;049F40Z 
 ;;9002226.02101,"1804,049F40Z ",.02)
 ;;049F40Z 
 ;;9002226.02101,"1804,049F40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049F4ZZ ",.01)
 ;;049F4ZZ 
 ;;9002226.02101,"1804,049F4ZZ ",.02)
 ;;049F4ZZ 
 ;;9002226.02101,"1804,049F4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049H00Z ",.01)
 ;;049H00Z 
 ;;9002226.02101,"1804,049H00Z ",.02)
 ;;049H00Z 
 ;;9002226.02101,"1804,049H00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049H0ZZ ",.01)
 ;;049H0ZZ 
 ;;9002226.02101,"1804,049H0ZZ ",.02)
 ;;049H0ZZ 
 ;;9002226.02101,"1804,049H0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049H30Z ",.01)
 ;;049H30Z 
 ;;9002226.02101,"1804,049H30Z ",.02)
 ;;049H30Z 
 ;;9002226.02101,"1804,049H30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049H3ZZ ",.01)
 ;;049H3ZZ 
 ;;9002226.02101,"1804,049H3ZZ ",.02)
 ;;049H3ZZ 
 ;;9002226.02101,"1804,049H3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049H40Z ",.01)
 ;;049H40Z 
 ;;9002226.02101,"1804,049H40Z ",.02)
 ;;049H40Z 
 ;;9002226.02101,"1804,049H40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049H4ZZ ",.01)
 ;;049H4ZZ 
 ;;9002226.02101,"1804,049H4ZZ ",.02)
 ;;049H4ZZ 
 ;;9002226.02101,"1804,049H4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049J00Z ",.01)
 ;;049J00Z 
 ;;9002226.02101,"1804,049J00Z ",.02)
 ;;049J00Z 
 ;;9002226.02101,"1804,049J00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049J0ZZ ",.01)
 ;;049J0ZZ 
 ;;9002226.02101,"1804,049J0ZZ ",.02)
 ;;049J0ZZ 
 ;;9002226.02101,"1804,049J0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049J30Z ",.01)
 ;;049J30Z 
 ;;9002226.02101,"1804,049J30Z ",.02)
 ;;049J30Z 
 ;;9002226.02101,"1804,049J30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049J3ZZ ",.01)
 ;;049J3ZZ 
 ;;9002226.02101,"1804,049J3ZZ ",.02)
 ;;049J3ZZ 
 ;;9002226.02101,"1804,049J3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049J40Z ",.01)
 ;;049J40Z 
 ;;9002226.02101,"1804,049J40Z ",.02)
 ;;049J40Z 
 ;;9002226.02101,"1804,049J40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049J4ZZ ",.01)
 ;;049J4ZZ 
 ;;9002226.02101,"1804,049J4ZZ ",.02)
 ;;049J4ZZ 
 ;;9002226.02101,"1804,049J4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049K00Z ",.01)
 ;;049K00Z 
 ;;9002226.02101,"1804,049K00Z ",.02)
 ;;049K00Z 
 ;;9002226.02101,"1804,049K00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049K0ZZ ",.01)
 ;;049K0ZZ 
 ;;9002226.02101,"1804,049K0ZZ ",.02)
 ;;049K0ZZ 
 ;;9002226.02101,"1804,049K0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049K30Z ",.01)
 ;;049K30Z 
 ;;9002226.02101,"1804,049K30Z ",.02)
 ;;049K30Z 
 ;;9002226.02101,"1804,049K30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049K3ZZ ",.01)
 ;;049K3ZZ 
 ;;9002226.02101,"1804,049K3ZZ ",.02)
 ;;049K3ZZ 
 ;;9002226.02101,"1804,049K3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049K40Z ",.01)
 ;;049K40Z 
 ;;9002226.02101,"1804,049K40Z ",.02)
 ;;049K40Z 
 ;;9002226.02101,"1804,049K40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049K4ZZ ",.01)
 ;;049K4ZZ 
 ;;9002226.02101,"1804,049K4ZZ ",.02)
 ;;049K4ZZ 
 ;;9002226.02101,"1804,049K4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049L00Z ",.01)
 ;;049L00Z 
 ;;9002226.02101,"1804,049L00Z ",.02)
 ;;049L00Z 
 ;;9002226.02101,"1804,049L00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049L0ZZ ",.01)
 ;;049L0ZZ 
 ;;9002226.02101,"1804,049L0ZZ ",.02)
 ;;049L0ZZ 
 ;;9002226.02101,"1804,049L0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049L30Z ",.01)
 ;;049L30Z 
 ;;9002226.02101,"1804,049L30Z ",.02)
 ;;049L30Z 
 ;;9002226.02101,"1804,049L30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049L3ZZ ",.01)
 ;;049L3ZZ 
 ;;9002226.02101,"1804,049L3ZZ ",.02)
 ;;049L3ZZ 
 ;;9002226.02101,"1804,049L3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049L40Z ",.01)
 ;;049L40Z 
 ;;9002226.02101,"1804,049L40Z ",.02)
 ;;049L40Z 
 ;;9002226.02101,"1804,049L40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049L4ZZ ",.01)
 ;;049L4ZZ 
 ;;9002226.02101,"1804,049L4ZZ ",.02)
 ;;049L4ZZ 
 ;;9002226.02101,"1804,049L4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049M00Z ",.01)
 ;;049M00Z 
 ;;9002226.02101,"1804,049M00Z ",.02)
 ;;049M00Z 
 ;;9002226.02101,"1804,049M00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049M0ZZ ",.01)
 ;;049M0ZZ 
 ;;9002226.02101,"1804,049M0ZZ ",.02)
 ;;049M0ZZ 
 ;;9002226.02101,"1804,049M0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049M30Z ",.01)
 ;;049M30Z 
 ;;9002226.02101,"1804,049M30Z ",.02)
 ;;049M30Z 
 ;;9002226.02101,"1804,049M30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049M3ZZ ",.01)
 ;;049M3ZZ 
 ;;9002226.02101,"1804,049M3ZZ ",.02)
 ;;049M3ZZ 
 ;;9002226.02101,"1804,049M3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049M40Z ",.01)
 ;;049M40Z 
 ;;9002226.02101,"1804,049M40Z ",.02)
 ;;049M40Z 
 ;;9002226.02101,"1804,049M40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049M4ZZ ",.01)
 ;;049M4ZZ 
 ;;9002226.02101,"1804,049M4ZZ ",.02)
 ;;049M4ZZ 
 ;;9002226.02101,"1804,049M4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049N00Z ",.01)
 ;;049N00Z 
 ;;9002226.02101,"1804,049N00Z ",.02)
 ;;049N00Z 
 ;;9002226.02101,"1804,049N00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049N0ZZ ",.01)
 ;;049N0ZZ 
 ;;9002226.02101,"1804,049N0ZZ ",.02)
 ;;049N0ZZ 
 ;;9002226.02101,"1804,049N0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049N30Z ",.01)
 ;;049N30Z 
 ;;9002226.02101,"1804,049N30Z ",.02)
 ;;049N30Z 
 ;;9002226.02101,"1804,049N30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049N3ZZ ",.01)
 ;;049N3ZZ 
 ;;9002226.02101,"1804,049N3ZZ ",.02)
 ;;049N3ZZ 
 ;;9002226.02101,"1804,049N3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049N40Z ",.01)
 ;;049N40Z 
 ;;9002226.02101,"1804,049N40Z ",.02)
 ;;049N40Z 
 ;;9002226.02101,"1804,049N40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049N4ZZ ",.01)
 ;;049N4ZZ 
 ;;9002226.02101,"1804,049N4ZZ ",.02)
 ;;049N4ZZ 
 ;;9002226.02101,"1804,049N4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049P00Z ",.01)
 ;;049P00Z 
 ;;9002226.02101,"1804,049P00Z ",.02)
 ;;049P00Z 
 ;;9002226.02101,"1804,049P00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049P0ZZ ",.01)
 ;;049P0ZZ 
 ;;9002226.02101,"1804,049P0ZZ ",.02)
 ;;049P0ZZ 
 ;;9002226.02101,"1804,049P0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049P30Z ",.01)
 ;;049P30Z 
 ;;9002226.02101,"1804,049P30Z ",.02)
 ;;049P30Z 
 ;;9002226.02101,"1804,049P30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049P3ZZ ",.01)
 ;;049P3ZZ 
 ;;9002226.02101,"1804,049P3ZZ ",.02)
 ;;049P3ZZ 
 ;;9002226.02101,"1804,049P3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049P40Z ",.01)
 ;;049P40Z 
 ;;9002226.02101,"1804,049P40Z ",.02)
 ;;049P40Z 
 ;;9002226.02101,"1804,049P40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049P4ZZ ",.01)
 ;;049P4ZZ 
 ;;9002226.02101,"1804,049P4ZZ ",.02)
 ;;049P4ZZ 
 ;;9002226.02101,"1804,049P4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049Q00Z ",.01)
 ;;049Q00Z 
 ;;9002226.02101,"1804,049Q00Z ",.02)
 ;;049Q00Z 
 ;;9002226.02101,"1804,049Q00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049Q0ZZ ",.01)
 ;;049Q0ZZ 
 ;;9002226.02101,"1804,049Q0ZZ ",.02)
 ;;049Q0ZZ 
 ;;9002226.02101,"1804,049Q0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049Q30Z ",.01)
 ;;049Q30Z 
 ;;9002226.02101,"1804,049Q30Z ",.02)
 ;;049Q30Z 
 ;;9002226.02101,"1804,049Q30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049Q3ZZ ",.01)
 ;;049Q3ZZ 
 ;;9002226.02101,"1804,049Q3ZZ ",.02)
 ;;049Q3ZZ 
 ;;9002226.02101,"1804,049Q3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049Q40Z ",.01)
 ;;049Q40Z 
 ;;9002226.02101,"1804,049Q40Z ",.02)
 ;;049Q40Z 
 ;;9002226.02101,"1804,049Q40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049Q4ZZ ",.01)
 ;;049Q4ZZ 
 ;;9002226.02101,"1804,049Q4ZZ ",.02)
 ;;049Q4ZZ 
 ;;9002226.02101,"1804,049Q4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049R00Z ",.01)
 ;;049R00Z 
 ;;9002226.02101,"1804,049R00Z ",.02)
 ;;049R00Z 
 ;;9002226.02101,"1804,049R00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049R0ZZ ",.01)
 ;;049R0ZZ 
 ;;9002226.02101,"1804,049R0ZZ ",.02)
 ;;049R0ZZ 
 ;;9002226.02101,"1804,049R0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049R30Z ",.01)
 ;;049R30Z 
 ;;9002226.02101,"1804,049R30Z ",.02)
 ;;049R30Z 
 ;;9002226.02101,"1804,049R30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049R3ZZ ",.01)
 ;;049R3ZZ 
 ;;9002226.02101,"1804,049R3ZZ ",.02)
 ;;049R3ZZ 
 ;;9002226.02101,"1804,049R3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049R40Z ",.01)
 ;;049R40Z 
 ;;9002226.02101,"1804,049R40Z ",.02)
 ;;049R40Z 
 ;;9002226.02101,"1804,049R40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049R4ZZ ",.01)
 ;;049R4ZZ 
 ;;9002226.02101,"1804,049R4ZZ ",.02)
 ;;049R4ZZ 
 ;;9002226.02101,"1804,049R4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049S00Z ",.01)
 ;;049S00Z 
 ;;9002226.02101,"1804,049S00Z ",.02)
 ;;049S00Z 
 ;;9002226.02101,"1804,049S00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049S0ZZ ",.01)
 ;;049S0ZZ 
 ;;9002226.02101,"1804,049S0ZZ ",.02)
 ;;049S0ZZ 
 ;;9002226.02101,"1804,049S0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049S30Z ",.01)
 ;;049S30Z 
 ;;9002226.02101,"1804,049S30Z ",.02)
 ;;049S30Z 
 ;;9002226.02101,"1804,049S30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049S3ZZ ",.01)
 ;;049S3ZZ 
 ;;9002226.02101,"1804,049S3ZZ ",.02)
 ;;049S3ZZ 
 ;;9002226.02101,"1804,049S3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049S40Z ",.01)
 ;;049S40Z 
 ;;9002226.02101,"1804,049S40Z ",.02)
 ;;049S40Z 
 ;;9002226.02101,"1804,049S40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049S4ZZ ",.01)
 ;;049S4ZZ 
 ;;9002226.02101,"1804,049S4ZZ ",.02)
 ;;049S4ZZ 
 ;;9002226.02101,"1804,049S4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049T00Z ",.01)
 ;;049T00Z 
 ;;9002226.02101,"1804,049T00Z ",.02)
 ;;049T00Z 
 ;;9002226.02101,"1804,049T00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049T0ZZ ",.01)
 ;;049T0ZZ 
 ;;9002226.02101,"1804,049T0ZZ ",.02)
 ;;049T0ZZ 
 ;;9002226.02101,"1804,049T0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049T30Z ",.01)
 ;;049T30Z 
 ;;9002226.02101,"1804,049T30Z ",.02)
 ;;049T30Z 
 ;;9002226.02101,"1804,049T30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049T3ZZ ",.01)
 ;;049T3ZZ 
 ;;9002226.02101,"1804,049T3ZZ ",.02)
 ;;049T3ZZ 
 ;;9002226.02101,"1804,049T3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049T40Z ",.01)
 ;;049T40Z 
 ;;9002226.02101,"1804,049T40Z ",.02)
 ;;049T40Z 
 ;;9002226.02101,"1804,049T40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049T4ZZ ",.01)
 ;;049T4ZZ 
 ;;9002226.02101,"1804,049T4ZZ ",.02)
 ;;049T4ZZ 
 ;;9002226.02101,"1804,049T4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049U00Z ",.01)
 ;;049U00Z 
 ;;9002226.02101,"1804,049U00Z ",.02)
 ;;049U00Z 
 ;;9002226.02101,"1804,049U00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049U0ZZ ",.01)
 ;;049U0ZZ 
 ;;9002226.02101,"1804,049U0ZZ ",.02)
 ;;049U0ZZ 
 ;;9002226.02101,"1804,049U0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049U30Z ",.01)
 ;;049U30Z 
 ;;9002226.02101,"1804,049U30Z ",.02)
 ;;049U30Z 
 ;;9002226.02101,"1804,049U30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049U3ZZ ",.01)
 ;;049U3ZZ 
 ;;9002226.02101,"1804,049U3ZZ ",.02)
 ;;049U3ZZ 
 ;;9002226.02101,"1804,049U3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049U40Z ",.01)
 ;;049U40Z 
 ;;9002226.02101,"1804,049U40Z ",.02)
 ;;049U40Z 
 ;;9002226.02101,"1804,049U40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049U4ZZ ",.01)
 ;;049U4ZZ 
 ;;9002226.02101,"1804,049U4ZZ ",.02)
 ;;049U4ZZ 
 ;;9002226.02101,"1804,049U4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049V00Z ",.01)
 ;;049V00Z 
 ;;9002226.02101,"1804,049V00Z ",.02)
 ;;049V00Z 
 ;;9002226.02101,"1804,049V00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,049V0ZZ ",.01)
 ;;049V0ZZ 
 ;;9002226.02101,"1804,049V0ZZ ",.02)
 ;;049V0ZZ 
 ;;9002226.02101,"1804,049V0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,049V30Z ",.01)
 ;;049V30Z 
 ;;9002226.02101,"1804,049V30Z ",.02)
 ;;049V30Z 
 ;;9002226.02101,"1804,049V30Z ",.03)
 ;;31