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

ATXXB153.m

Go to the documentation of this file.
ATXXB153 ;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,2W2HX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W2JX4Z ",.01)
 ;;2W2JX4Z 
 ;;9002226.02101,"1804,2W2JX4Z ",.02)
 ;;2W2JX4Z 
 ;;9002226.02101,"1804,2W2JX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W2KX4Z ",.01)
 ;;2W2KX4Z 
 ;;9002226.02101,"1804,2W2KX4Z ",.02)
 ;;2W2KX4Z 
 ;;9002226.02101,"1804,2W2KX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W2LX4Z ",.01)
 ;;2W2LX4Z 
 ;;9002226.02101,"1804,2W2LX4Z ",.02)
 ;;2W2LX4Z 
 ;;9002226.02101,"1804,2W2LX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W2MX4Z ",.01)
 ;;2W2MX4Z 
 ;;9002226.02101,"1804,2W2MX4Z ",.02)
 ;;2W2MX4Z 
 ;;9002226.02101,"1804,2W2MX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W2NX4Z ",.01)
 ;;2W2NX4Z 
 ;;9002226.02101,"1804,2W2NX4Z ",.02)
 ;;2W2NX4Z 
 ;;9002226.02101,"1804,2W2NX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W2PX4Z ",.01)
 ;;2W2PX4Z 
 ;;9002226.02101,"1804,2W2PX4Z ",.02)
 ;;2W2PX4Z 
 ;;9002226.02101,"1804,2W2PX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W2QX4Z ",.01)
 ;;2W2QX4Z 
 ;;9002226.02101,"1804,2W2QX4Z ",.02)
 ;;2W2QX4Z 
 ;;9002226.02101,"1804,2W2QX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W2RX4Z ",.01)
 ;;2W2RX4Z 
 ;;9002226.02101,"1804,2W2RX4Z ",.02)
 ;;2W2RX4Z 
 ;;9002226.02101,"1804,2W2RX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W2SX4Z ",.01)
 ;;2W2SX4Z 
 ;;9002226.02101,"1804,2W2SX4Z ",.02)
 ;;2W2SX4Z 
 ;;9002226.02101,"1804,2W2SX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W2TX4Z ",.01)
 ;;2W2TX4Z 
 ;;9002226.02101,"1804,2W2TX4Z ",.02)
 ;;2W2TX4Z 
 ;;9002226.02101,"1804,2W2TX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W2UX4Z ",.01)
 ;;2W2UX4Z 
 ;;9002226.02101,"1804,2W2UX4Z ",.02)
 ;;2W2UX4Z 
 ;;9002226.02101,"1804,2W2UX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W2VX4Z ",.01)
 ;;2W2VX4Z 
 ;;9002226.02101,"1804,2W2VX4Z ",.02)
 ;;2W2VX4Z 
 ;;9002226.02101,"1804,2W2VX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W30X1Z ",.01)
 ;;2W30X1Z 
 ;;9002226.02101,"1804,2W30X1Z ",.02)
 ;;2W30X1Z 
 ;;9002226.02101,"1804,2W30X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W30X2Z ",.01)
 ;;2W30X2Z 
 ;;9002226.02101,"1804,2W30X2Z ",.02)
 ;;2W30X2Z 
 ;;9002226.02101,"1804,2W30X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W30X3Z ",.01)
 ;;2W30X3Z 
 ;;9002226.02101,"1804,2W30X3Z ",.02)
 ;;2W30X3Z 
 ;;9002226.02101,"1804,2W30X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W30XYZ ",.01)
 ;;2W30XYZ 
 ;;9002226.02101,"1804,2W30XYZ ",.02)
 ;;2W30XYZ 
 ;;9002226.02101,"1804,2W30XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W31X1Z ",.01)
 ;;2W31X1Z 
 ;;9002226.02101,"1804,2W31X1Z ",.02)
 ;;2W31X1Z 
 ;;9002226.02101,"1804,2W31X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W31X2Z ",.01)
 ;;2W31X2Z 
 ;;9002226.02101,"1804,2W31X2Z ",.02)
 ;;2W31X2Z 
 ;;9002226.02101,"1804,2W31X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W31X3Z ",.01)
 ;;2W31X3Z 
 ;;9002226.02101,"1804,2W31X3Z ",.02)
 ;;2W31X3Z 
 ;;9002226.02101,"1804,2W31X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W31X9Z ",.01)
 ;;2W31X9Z 
 ;;9002226.02101,"1804,2W31X9Z ",.02)
 ;;2W31X9Z 
 ;;9002226.02101,"1804,2W31X9Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W31XYZ ",.01)
 ;;2W31XYZ 
 ;;9002226.02101,"1804,2W31XYZ ",.02)
 ;;2W31XYZ 
 ;;9002226.02101,"1804,2W31XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W32X1Z ",.01)
 ;;2W32X1Z 
 ;;9002226.02101,"1804,2W32X1Z ",.02)
 ;;2W32X1Z 
 ;;9002226.02101,"1804,2W32X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W32X2Z ",.01)
 ;;2W32X2Z 
 ;;9002226.02101,"1804,2W32X2Z ",.02)
 ;;2W32X2Z 
 ;;9002226.02101,"1804,2W32X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W32X3Z ",.01)
 ;;2W32X3Z 
 ;;9002226.02101,"1804,2W32X3Z ",.02)
 ;;2W32X3Z 
 ;;9002226.02101,"1804,2W32X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W32XYZ ",.01)
 ;;2W32XYZ 
 ;;9002226.02101,"1804,2W32XYZ ",.02)
 ;;2W32XYZ 
 ;;9002226.02101,"1804,2W32XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W33X1Z ",.01)
 ;;2W33X1Z 
 ;;9002226.02101,"1804,2W33X1Z ",.02)
 ;;2W33X1Z 
 ;;9002226.02101,"1804,2W33X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W33X2Z ",.01)
 ;;2W33X2Z 
 ;;9002226.02101,"1804,2W33X2Z ",.02)
 ;;2W33X2Z 
 ;;9002226.02101,"1804,2W33X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W33X3Z ",.01)
 ;;2W33X3Z 
 ;;9002226.02101,"1804,2W33X3Z ",.02)
 ;;2W33X3Z 
 ;;9002226.02101,"1804,2W33X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W33XYZ ",.01)
 ;;2W33XYZ 
 ;;9002226.02101,"1804,2W33XYZ ",.02)
 ;;2W33XYZ 
 ;;9002226.02101,"1804,2W33XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W34X1Z ",.01)
 ;;2W34X1Z 
 ;;9002226.02101,"1804,2W34X1Z ",.02)
 ;;2W34X1Z 
 ;;9002226.02101,"1804,2W34X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W34X2Z ",.01)
 ;;2W34X2Z 
 ;;9002226.02101,"1804,2W34X2Z ",.02)
 ;;2W34X2Z 
 ;;9002226.02101,"1804,2W34X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W34X3Z ",.01)
 ;;2W34X3Z 
 ;;9002226.02101,"1804,2W34X3Z ",.02)
 ;;2W34X3Z 
 ;;9002226.02101,"1804,2W34X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W34XYZ ",.01)
 ;;2W34XYZ 
 ;;9002226.02101,"1804,2W34XYZ ",.02)
 ;;2W34XYZ 
 ;;9002226.02101,"1804,2W34XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W35X1Z ",.01)
 ;;2W35X1Z 
 ;;9002226.02101,"1804,2W35X1Z ",.02)
 ;;2W35X1Z 
 ;;9002226.02101,"1804,2W35X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W35X2Z ",.01)
 ;;2W35X2Z 
 ;;9002226.02101,"1804,2W35X2Z ",.02)
 ;;2W35X2Z 
 ;;9002226.02101,"1804,2W35X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W35X3Z ",.01)
 ;;2W35X3Z 
 ;;9002226.02101,"1804,2W35X3Z ",.02)
 ;;2W35X3Z 
 ;;9002226.02101,"1804,2W35X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W35XYZ ",.01)
 ;;2W35XYZ 
 ;;9002226.02101,"1804,2W35XYZ ",.02)
 ;;2W35XYZ 
 ;;9002226.02101,"1804,2W35XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W36X1Z ",.01)
 ;;2W36X1Z 
 ;;9002226.02101,"1804,2W36X1Z ",.02)
 ;;2W36X1Z 
 ;;9002226.02101,"1804,2W36X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W36X2Z ",.01)
 ;;2W36X2Z 
 ;;9002226.02101,"1804,2W36X2Z ",.02)
 ;;2W36X2Z 
 ;;9002226.02101,"1804,2W36X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W36X3Z ",.01)
 ;;2W36X3Z 
 ;;9002226.02101,"1804,2W36X3Z ",.02)
 ;;2W36X3Z 
 ;;9002226.02101,"1804,2W36X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W36XYZ ",.01)
 ;;2W36XYZ 
 ;;9002226.02101,"1804,2W36XYZ ",.02)
 ;;2W36XYZ 
 ;;9002226.02101,"1804,2W36XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W37X1Z ",.01)
 ;;2W37X1Z 
 ;;9002226.02101,"1804,2W37X1Z ",.02)
 ;;2W37X1Z 
 ;;9002226.02101,"1804,2W37X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W37X2Z ",.01)
 ;;2W37X2Z 
 ;;9002226.02101,"1804,2W37X2Z ",.02)
 ;;2W37X2Z 
 ;;9002226.02101,"1804,2W37X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W37X3Z ",.01)
 ;;2W37X3Z 
 ;;9002226.02101,"1804,2W37X3Z ",.02)
 ;;2W37X3Z 
 ;;9002226.02101,"1804,2W37X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W37XYZ ",.01)
 ;;2W37XYZ 
 ;;9002226.02101,"1804,2W37XYZ ",.02)
 ;;2W37XYZ 
 ;;9002226.02101,"1804,2W37XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W38X1Z ",.01)
 ;;2W38X1Z 
 ;;9002226.02101,"1804,2W38X1Z ",.02)
 ;;2W38X1Z 
 ;;9002226.02101,"1804,2W38X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W38X2Z ",.01)
 ;;2W38X2Z 
 ;;9002226.02101,"1804,2W38X2Z ",.02)
 ;;2W38X2Z 
 ;;9002226.02101,"1804,2W38X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W38X3Z ",.01)
 ;;2W38X3Z 
 ;;9002226.02101,"1804,2W38X3Z ",.02)
 ;;2W38X3Z 
 ;;9002226.02101,"1804,2W38X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W38XYZ ",.01)
 ;;2W38XYZ 
 ;;9002226.02101,"1804,2W38XYZ ",.02)
 ;;2W38XYZ 
 ;;9002226.02101,"1804,2W38XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W39X1Z ",.01)
 ;;2W39X1Z 
 ;;9002226.02101,"1804,2W39X1Z ",.02)
 ;;2W39X1Z 
 ;;9002226.02101,"1804,2W39X1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W39X2Z ",.01)
 ;;2W39X2Z 
 ;;9002226.02101,"1804,2W39X2Z ",.02)
 ;;2W39X2Z 
 ;;9002226.02101,"1804,2W39X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W39X3Z ",.01)
 ;;2W39X3Z 
 ;;9002226.02101,"1804,2W39X3Z ",.02)
 ;;2W39X3Z 
 ;;9002226.02101,"1804,2W39X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W39XYZ ",.01)
 ;;2W39XYZ 
 ;;9002226.02101,"1804,2W39XYZ ",.02)
 ;;2W39XYZ 
 ;;9002226.02101,"1804,2W39XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3AX1Z ",.01)
 ;;2W3AX1Z 
 ;;9002226.02101,"1804,2W3AX1Z ",.02)
 ;;2W3AX1Z 
 ;;9002226.02101,"1804,2W3AX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3AX2Z ",.01)
 ;;2W3AX2Z 
 ;;9002226.02101,"1804,2W3AX2Z ",.02)
 ;;2W3AX2Z 
 ;;9002226.02101,"1804,2W3AX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3AX3Z ",.01)
 ;;2W3AX3Z 
 ;;9002226.02101,"1804,2W3AX3Z ",.02)
 ;;2W3AX3Z 
 ;;9002226.02101,"1804,2W3AX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3AXYZ ",.01)
 ;;2W3AXYZ 
 ;;9002226.02101,"1804,2W3AXYZ ",.02)
 ;;2W3AXYZ 
 ;;9002226.02101,"1804,2W3AXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3BX1Z ",.01)
 ;;2W3BX1Z 
 ;;9002226.02101,"1804,2W3BX1Z ",.02)
 ;;2W3BX1Z 
 ;;9002226.02101,"1804,2W3BX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3BX2Z ",.01)
 ;;2W3BX2Z 
 ;;9002226.02101,"1804,2W3BX2Z ",.02)
 ;;2W3BX2Z 
 ;;9002226.02101,"1804,2W3BX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3BX3Z ",.01)
 ;;2W3BX3Z 
 ;;9002226.02101,"1804,2W3BX3Z ",.02)
 ;;2W3BX3Z 
 ;;9002226.02101,"1804,2W3BX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3BXYZ ",.01)
 ;;2W3BXYZ 
 ;;9002226.02101,"1804,2W3BXYZ ",.02)
 ;;2W3BXYZ 
 ;;9002226.02101,"1804,2W3BXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3CX1Z ",.01)
 ;;2W3CX1Z 
 ;;9002226.02101,"1804,2W3CX1Z ",.02)
 ;;2W3CX1Z 
 ;;9002226.02101,"1804,2W3CX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3CX2Z ",.01)
 ;;2W3CX2Z 
 ;;9002226.02101,"1804,2W3CX2Z ",.02)
 ;;2W3CX2Z 
 ;;9002226.02101,"1804,2W3CX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3CX3Z ",.01)
 ;;2W3CX3Z 
 ;;9002226.02101,"1804,2W3CX3Z ",.02)
 ;;2W3CX3Z 
 ;;9002226.02101,"1804,2W3CX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3CXYZ ",.01)
 ;;2W3CXYZ 
 ;;9002226.02101,"1804,2W3CXYZ ",.02)
 ;;2W3CXYZ 
 ;;9002226.02101,"1804,2W3CXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3DX1Z ",.01)
 ;;2W3DX1Z 
 ;;9002226.02101,"1804,2W3DX1Z ",.02)
 ;;2W3DX1Z 
 ;;9002226.02101,"1804,2W3DX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3DX2Z ",.01)
 ;;2W3DX2Z 
 ;;9002226.02101,"1804,2W3DX2Z ",.02)
 ;;2W3DX2Z 
 ;;9002226.02101,"1804,2W3DX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3DX3Z ",.01)
 ;;2W3DX3Z 
 ;;9002226.02101,"1804,2W3DX3Z ",.02)
 ;;2W3DX3Z 
 ;;9002226.02101,"1804,2W3DX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3DXYZ ",.01)
 ;;2W3DXYZ 
 ;;9002226.02101,"1804,2W3DXYZ ",.02)
 ;;2W3DXYZ 
 ;;9002226.02101,"1804,2W3DXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3EX1Z ",.01)
 ;;2W3EX1Z 
 ;;9002226.02101,"1804,2W3EX1Z ",.02)
 ;;2W3EX1Z 
 ;;9002226.02101,"1804,2W3EX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3EX2Z ",.01)
 ;;2W3EX2Z 
 ;;9002226.02101,"1804,2W3EX2Z ",.02)
 ;;2W3EX2Z 
 ;;9002226.02101,"1804,2W3EX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3EX3Z ",.01)
 ;;2W3EX3Z 
 ;;9002226.02101,"1804,2W3EX3Z ",.02)
 ;;2W3EX3Z 
 ;;9002226.02101,"1804,2W3EX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3EXYZ ",.01)
 ;;2W3EXYZ 
 ;;9002226.02101,"1804,2W3EXYZ ",.02)
 ;;2W3EXYZ 
 ;;9002226.02101,"1804,2W3EXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3FX1Z ",.01)
 ;;2W3FX1Z 
 ;;9002226.02101,"1804,2W3FX1Z ",.02)
 ;;2W3FX1Z 
 ;;9002226.02101,"1804,2W3FX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3FX2Z ",.01)
 ;;2W3FX2Z 
 ;;9002226.02101,"1804,2W3FX2Z ",.02)
 ;;2W3FX2Z 
 ;;9002226.02101,"1804,2W3FX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3FX3Z ",.01)
 ;;2W3FX3Z 
 ;;9002226.02101,"1804,2W3FX3Z ",.02)
 ;;2W3FX3Z 
 ;;9002226.02101,"1804,2W3FX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3FXYZ ",.01)
 ;;2W3FXYZ 
 ;;9002226.02101,"1804,2W3FXYZ ",.02)
 ;;2W3FXYZ 
 ;;9002226.02101,"1804,2W3FXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3GX1Z ",.01)
 ;;2W3GX1Z 
 ;;9002226.02101,"1804,2W3GX1Z ",.02)
 ;;2W3GX1Z 
 ;;9002226.02101,"1804,2W3GX1Z ",.03)
 ;;31