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

ATXXB149.m

Go to the documentation of this file.
ATXXB149 ;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,2W03X7Z ",.02)
 ;;2W03X7Z 
 ;;9002226.02101,"1804,2W03X7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W03XYZ ",.01)
 ;;2W03XYZ 
 ;;9002226.02101,"1804,2W03XYZ ",.02)
 ;;2W03XYZ 
 ;;9002226.02101,"1804,2W03XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W04X0Z ",.01)
 ;;2W04X0Z 
 ;;9002226.02101,"1804,2W04X0Z ",.02)
 ;;2W04X0Z 
 ;;9002226.02101,"1804,2W04X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W04X1Z ",.01)
 ;;2W04X1Z 
 ;;9002226.02101,"1804,2W04X1Z ",.02)
 ;;2W04X1Z 
 ;;9002226.02101,"1804,2W04X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W04X2Z ",.01)
 ;;2W04X2Z 
 ;;9002226.02101,"1804,2W04X2Z ",.02)
 ;;2W04X2Z 
 ;;9002226.02101,"1804,2W04X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W04X3Z ",.01)
 ;;2W04X3Z 
 ;;9002226.02101,"1804,2W04X3Z ",.02)
 ;;2W04X3Z 
 ;;9002226.02101,"1804,2W04X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W04X4Z ",.01)
 ;;2W04X4Z 
 ;;9002226.02101,"1804,2W04X4Z ",.02)
 ;;2W04X4Z 
 ;;9002226.02101,"1804,2W04X4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W04X5Z ",.01)
 ;;2W04X5Z 
 ;;9002226.02101,"1804,2W04X5Z ",.02)
 ;;2W04X5Z 
 ;;9002226.02101,"1804,2W04X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W04X6Z ",.01)
 ;;2W04X6Z 
 ;;9002226.02101,"1804,2W04X6Z ",.02)
 ;;2W04X6Z 
 ;;9002226.02101,"1804,2W04X6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W04X7Z ",.01)
 ;;2W04X7Z 
 ;;9002226.02101,"1804,2W04X7Z ",.02)
 ;;2W04X7Z 
 ;;9002226.02101,"1804,2W04X7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W04XYZ ",.01)
 ;;2W04XYZ 
 ;;9002226.02101,"1804,2W04XYZ ",.02)
 ;;2W04XYZ 
 ;;9002226.02101,"1804,2W04XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W05X0Z ",.01)
 ;;2W05X0Z 
 ;;9002226.02101,"1804,2W05X0Z ",.02)
 ;;2W05X0Z 
 ;;9002226.02101,"1804,2W05X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W05X1Z ",.01)
 ;;2W05X1Z 
 ;;9002226.02101,"1804,2W05X1Z ",.02)
 ;;2W05X1Z 
 ;;9002226.02101,"1804,2W05X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W05X2Z ",.01)
 ;;2W05X2Z 
 ;;9002226.02101,"1804,2W05X2Z ",.02)
 ;;2W05X2Z 
 ;;9002226.02101,"1804,2W05X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W05X3Z ",.01)
 ;;2W05X3Z 
 ;;9002226.02101,"1804,2W05X3Z ",.02)
 ;;2W05X3Z 
 ;;9002226.02101,"1804,2W05X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W05X4Z ",.01)
 ;;2W05X4Z 
 ;;9002226.02101,"1804,2W05X4Z ",.02)
 ;;2W05X4Z 
 ;;9002226.02101,"1804,2W05X4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W05X5Z ",.01)
 ;;2W05X5Z 
 ;;9002226.02101,"1804,2W05X5Z ",.02)
 ;;2W05X5Z 
 ;;9002226.02101,"1804,2W05X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W05X6Z ",.01)
 ;;2W05X6Z 
 ;;9002226.02101,"1804,2W05X6Z ",.02)
 ;;2W05X6Z 
 ;;9002226.02101,"1804,2W05X6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W05X7Z ",.01)
 ;;2W05X7Z 
 ;;9002226.02101,"1804,2W05X7Z ",.02)
 ;;2W05X7Z 
 ;;9002226.02101,"1804,2W05X7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W05XYZ ",.01)
 ;;2W05XYZ 
 ;;9002226.02101,"1804,2W05XYZ ",.02)
 ;;2W05XYZ 
 ;;9002226.02101,"1804,2W05XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W06X0Z ",.01)
 ;;2W06X0Z 
 ;;9002226.02101,"1804,2W06X0Z ",.02)
 ;;2W06X0Z 
 ;;9002226.02101,"1804,2W06X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W06X1Z ",.01)
 ;;2W06X1Z 
 ;;9002226.02101,"1804,2W06X1Z ",.02)
 ;;2W06X1Z 
 ;;9002226.02101,"1804,2W06X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W06X2Z ",.01)
 ;;2W06X2Z 
 ;;9002226.02101,"1804,2W06X2Z ",.02)
 ;;2W06X2Z 
 ;;9002226.02101,"1804,2W06X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W06X3Z ",.01)
 ;;2W06X3Z 
 ;;9002226.02101,"1804,2W06X3Z ",.02)
 ;;2W06X3Z 
 ;;9002226.02101,"1804,2W06X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W06X4Z ",.01)
 ;;2W06X4Z 
 ;;9002226.02101,"1804,2W06X4Z ",.02)
 ;;2W06X4Z 
 ;;9002226.02101,"1804,2W06X4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W06X5Z ",.01)
 ;;2W06X5Z 
 ;;9002226.02101,"1804,2W06X5Z ",.02)
 ;;2W06X5Z 
 ;;9002226.02101,"1804,2W06X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W06X6Z ",.01)
 ;;2W06X6Z 
 ;;9002226.02101,"1804,2W06X6Z ",.02)
 ;;2W06X6Z 
 ;;9002226.02101,"1804,2W06X6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W06X7Z ",.01)
 ;;2W06X7Z 
 ;;9002226.02101,"1804,2W06X7Z ",.02)
 ;;2W06X7Z 
 ;;9002226.02101,"1804,2W06X7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W06XYZ ",.01)
 ;;2W06XYZ 
 ;;9002226.02101,"1804,2W06XYZ ",.02)
 ;;2W06XYZ 
 ;;9002226.02101,"1804,2W06XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W07X0Z ",.01)
 ;;2W07X0Z 
 ;;9002226.02101,"1804,2W07X0Z ",.02)
 ;;2W07X0Z 
 ;;9002226.02101,"1804,2W07X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W07X1Z ",.01)
 ;;2W07X1Z 
 ;;9002226.02101,"1804,2W07X1Z ",.02)
 ;;2W07X1Z 
 ;;9002226.02101,"1804,2W07X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W07X2Z ",.01)
 ;;2W07X2Z 
 ;;9002226.02101,"1804,2W07X2Z ",.02)
 ;;2W07X2Z 
 ;;9002226.02101,"1804,2W07X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W07X3Z ",.01)
 ;;2W07X3Z 
 ;;9002226.02101,"1804,2W07X3Z ",.02)
 ;;2W07X3Z 
 ;;9002226.02101,"1804,2W07X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W07X4Z ",.01)
 ;;2W07X4Z 
 ;;9002226.02101,"1804,2W07X4Z ",.02)
 ;;2W07X4Z 
 ;;9002226.02101,"1804,2W07X4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W07X5Z ",.01)
 ;;2W07X5Z 
 ;;9002226.02101,"1804,2W07X5Z ",.02)
 ;;2W07X5Z 
 ;;9002226.02101,"1804,2W07X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W07X6Z ",.01)
 ;;2W07X6Z 
 ;;9002226.02101,"1804,2W07X6Z ",.02)
 ;;2W07X6Z 
 ;;9002226.02101,"1804,2W07X6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W07X7Z ",.01)
 ;;2W07X7Z 
 ;;9002226.02101,"1804,2W07X7Z ",.02)
 ;;2W07X7Z 
 ;;9002226.02101,"1804,2W07X7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W07XYZ ",.01)
 ;;2W07XYZ 
 ;;9002226.02101,"1804,2W07XYZ ",.02)
 ;;2W07XYZ 
 ;;9002226.02101,"1804,2W07XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W08X0Z ",.01)
 ;;2W08X0Z 
 ;;9002226.02101,"1804,2W08X0Z ",.02)
 ;;2W08X0Z 
 ;;9002226.02101,"1804,2W08X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W08X1Z ",.01)
 ;;2W08X1Z 
 ;;9002226.02101,"1804,2W08X1Z ",.02)
 ;;2W08X1Z 
 ;;9002226.02101,"1804,2W08X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W08X2Z ",.01)
 ;;2W08X2Z 
 ;;9002226.02101,"1804,2W08X2Z ",.02)
 ;;2W08X2Z 
 ;;9002226.02101,"1804,2W08X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W08X3Z ",.01)
 ;;2W08X3Z 
 ;;9002226.02101,"1804,2W08X3Z ",.02)
 ;;2W08X3Z 
 ;;9002226.02101,"1804,2W08X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W08X4Z ",.01)
 ;;2W08X4Z 
 ;;9002226.02101,"1804,2W08X4Z ",.02)
 ;;2W08X4Z 
 ;;9002226.02101,"1804,2W08X4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W08X5Z ",.01)
 ;;2W08X5Z 
 ;;9002226.02101,"1804,2W08X5Z ",.02)
 ;;2W08X5Z 
 ;;9002226.02101,"1804,2W08X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W08X6Z ",.01)
 ;;2W08X6Z 
 ;;9002226.02101,"1804,2W08X6Z ",.02)
 ;;2W08X6Z 
 ;;9002226.02101,"1804,2W08X6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W08X7Z ",.01)
 ;;2W08X7Z 
 ;;9002226.02101,"1804,2W08X7Z ",.02)
 ;;2W08X7Z 
 ;;9002226.02101,"1804,2W08X7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W08XYZ ",.01)
 ;;2W08XYZ 
 ;;9002226.02101,"1804,2W08XYZ ",.02)
 ;;2W08XYZ 
 ;;9002226.02101,"1804,2W08XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W09X0Z ",.01)
 ;;2W09X0Z 
 ;;9002226.02101,"1804,2W09X0Z ",.02)
 ;;2W09X0Z 
 ;;9002226.02101,"1804,2W09X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W09X1Z ",.01)
 ;;2W09X1Z 
 ;;9002226.02101,"1804,2W09X1Z ",.02)
 ;;2W09X1Z 
 ;;9002226.02101,"1804,2W09X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W09X2Z ",.01)
 ;;2W09X2Z 
 ;;9002226.02101,"1804,2W09X2Z ",.02)
 ;;2W09X2Z 
 ;;9002226.02101,"1804,2W09X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W09X3Z ",.01)
 ;;2W09X3Z 
 ;;9002226.02101,"1804,2W09X3Z ",.02)
 ;;2W09X3Z 
 ;;9002226.02101,"1804,2W09X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W09X4Z ",.01)
 ;;2W09X4Z 
 ;;9002226.02101,"1804,2W09X4Z ",.02)
 ;;2W09X4Z 
 ;;9002226.02101,"1804,2W09X4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W09X5Z ",.01)
 ;;2W09X5Z 
 ;;9002226.02101,"1804,2W09X5Z ",.02)
 ;;2W09X5Z 
 ;;9002226.02101,"1804,2W09X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W09X6Z ",.01)
 ;;2W09X6Z 
 ;;9002226.02101,"1804,2W09X6Z ",.02)
 ;;2W09X6Z 
 ;;9002226.02101,"1804,2W09X6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W09X7Z ",.01)
 ;;2W09X7Z 
 ;;9002226.02101,"1804,2W09X7Z ",.02)
 ;;2W09X7Z 
 ;;9002226.02101,"1804,2W09X7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W09XYZ ",.01)
 ;;2W09XYZ 
 ;;9002226.02101,"1804,2W09XYZ ",.02)
 ;;2W09XYZ 
 ;;9002226.02101,"1804,2W09XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0AX0Z ",.01)
 ;;2W0AX0Z 
 ;;9002226.02101,"1804,2W0AX0Z ",.02)
 ;;2W0AX0Z 
 ;;9002226.02101,"1804,2W0AX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0AX1Z ",.01)
 ;;2W0AX1Z 
 ;;9002226.02101,"1804,2W0AX1Z ",.02)
 ;;2W0AX1Z 
 ;;9002226.02101,"1804,2W0AX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0AX2Z ",.01)
 ;;2W0AX2Z 
 ;;9002226.02101,"1804,2W0AX2Z ",.02)
 ;;2W0AX2Z 
 ;;9002226.02101,"1804,2W0AX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0AX3Z ",.01)
 ;;2W0AX3Z 
 ;;9002226.02101,"1804,2W0AX3Z ",.02)
 ;;2W0AX3Z 
 ;;9002226.02101,"1804,2W0AX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0AX4Z ",.01)
 ;;2W0AX4Z 
 ;;9002226.02101,"1804,2W0AX4Z ",.02)
 ;;2W0AX4Z 
 ;;9002226.02101,"1804,2W0AX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0AX5Z ",.01)
 ;;2W0AX5Z 
 ;;9002226.02101,"1804,2W0AX5Z ",.02)
 ;;2W0AX5Z 
 ;;9002226.02101,"1804,2W0AX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0AX6Z ",.01)
 ;;2W0AX6Z 
 ;;9002226.02101,"1804,2W0AX6Z ",.02)
 ;;2W0AX6Z 
 ;;9002226.02101,"1804,2W0AX6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0AX7Z ",.01)
 ;;2W0AX7Z 
 ;;9002226.02101,"1804,2W0AX7Z ",.02)
 ;;2W0AX7Z 
 ;;9002226.02101,"1804,2W0AX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0AXYZ ",.01)
 ;;2W0AXYZ 
 ;;9002226.02101,"1804,2W0AXYZ ",.02)
 ;;2W0AXYZ 
 ;;9002226.02101,"1804,2W0AXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0BX0Z ",.01)
 ;;2W0BX0Z 
 ;;9002226.02101,"1804,2W0BX0Z ",.02)
 ;;2W0BX0Z 
 ;;9002226.02101,"1804,2W0BX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0BX1Z ",.01)
 ;;2W0BX1Z 
 ;;9002226.02101,"1804,2W0BX1Z ",.02)
 ;;2W0BX1Z 
 ;;9002226.02101,"1804,2W0BX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0BX2Z ",.01)
 ;;2W0BX2Z 
 ;;9002226.02101,"1804,2W0BX2Z ",.02)
 ;;2W0BX2Z 
 ;;9002226.02101,"1804,2W0BX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0BX3Z ",.01)
 ;;2W0BX3Z 
 ;;9002226.02101,"1804,2W0BX3Z ",.02)
 ;;2W0BX3Z 
 ;;9002226.02101,"1804,2W0BX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0BX4Z ",.01)
 ;;2W0BX4Z 
 ;;9002226.02101,"1804,2W0BX4Z ",.02)
 ;;2W0BX4Z 
 ;;9002226.02101,"1804,2W0BX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0BX5Z ",.01)
 ;;2W0BX5Z 
 ;;9002226.02101,"1804,2W0BX5Z ",.02)
 ;;2W0BX5Z 
 ;;9002226.02101,"1804,2W0BX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0BX6Z ",.01)
 ;;2W0BX6Z 
 ;;9002226.02101,"1804,2W0BX6Z ",.02)
 ;;2W0BX6Z 
 ;;9002226.02101,"1804,2W0BX6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0BX7Z ",.01)
 ;;2W0BX7Z 
 ;;9002226.02101,"1804,2W0BX7Z ",.02)
 ;;2W0BX7Z 
 ;;9002226.02101,"1804,2W0BX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0BXYZ ",.01)
 ;;2W0BXYZ 
 ;;9002226.02101,"1804,2W0BXYZ ",.02)
 ;;2W0BXYZ 
 ;;9002226.02101,"1804,2W0BXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0CX0Z ",.01)
 ;;2W0CX0Z 
 ;;9002226.02101,"1804,2W0CX0Z ",.02)
 ;;2W0CX0Z 
 ;;9002226.02101,"1804,2W0CX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0CX1Z ",.01)
 ;;2W0CX1Z 
 ;;9002226.02101,"1804,2W0CX1Z ",.02)
 ;;2W0CX1Z 
 ;;9002226.02101,"1804,2W0CX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0CX2Z ",.01)
 ;;2W0CX2Z 
 ;;9002226.02101,"1804,2W0CX2Z ",.02)
 ;;2W0CX2Z 
 ;;9002226.02101,"1804,2W0CX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0CX3Z ",.01)
 ;;2W0CX3Z 
 ;;9002226.02101,"1804,2W0CX3Z ",.02)
 ;;2W0CX3Z 
 ;;9002226.02101,"1804,2W0CX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W0CX4Z ",.01)
 ;;2W0CX4Z 
 ;;9002226.02101,"1804,2W0CX4Z ",.02)
 ;;2W0CX4Z