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

ATXXB154.m

Go to the documentation of this file.
ATXXB154 ;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,2W3GX2Z ",.01)
 ;;2W3GX2Z 
 ;;9002226.02101,"1804,2W3GX2Z ",.02)
 ;;2W3GX2Z 
 ;;9002226.02101,"1804,2W3GX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3GX3Z ",.01)
 ;;2W3GX3Z 
 ;;9002226.02101,"1804,2W3GX3Z ",.02)
 ;;2W3GX3Z 
 ;;9002226.02101,"1804,2W3GX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3GXYZ ",.01)
 ;;2W3GXYZ 
 ;;9002226.02101,"1804,2W3GXYZ ",.02)
 ;;2W3GXYZ 
 ;;9002226.02101,"1804,2W3GXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3HX1Z ",.01)
 ;;2W3HX1Z 
 ;;9002226.02101,"1804,2W3HX1Z ",.02)
 ;;2W3HX1Z 
 ;;9002226.02101,"1804,2W3HX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3HX2Z ",.01)
 ;;2W3HX2Z 
 ;;9002226.02101,"1804,2W3HX2Z ",.02)
 ;;2W3HX2Z 
 ;;9002226.02101,"1804,2W3HX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3HX3Z ",.01)
 ;;2W3HX3Z 
 ;;9002226.02101,"1804,2W3HX3Z ",.02)
 ;;2W3HX3Z 
 ;;9002226.02101,"1804,2W3HX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3HXYZ ",.01)
 ;;2W3HXYZ 
 ;;9002226.02101,"1804,2W3HXYZ ",.02)
 ;;2W3HXYZ 
 ;;9002226.02101,"1804,2W3HXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3JX1Z ",.01)
 ;;2W3JX1Z 
 ;;9002226.02101,"1804,2W3JX1Z ",.02)
 ;;2W3JX1Z 
 ;;9002226.02101,"1804,2W3JX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3JX2Z ",.01)
 ;;2W3JX2Z 
 ;;9002226.02101,"1804,2W3JX2Z ",.02)
 ;;2W3JX2Z 
 ;;9002226.02101,"1804,2W3JX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3JX3Z ",.01)
 ;;2W3JX3Z 
 ;;9002226.02101,"1804,2W3JX3Z ",.02)
 ;;2W3JX3Z 
 ;;9002226.02101,"1804,2W3JX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3JXYZ ",.01)
 ;;2W3JXYZ 
 ;;9002226.02101,"1804,2W3JXYZ ",.02)
 ;;2W3JXYZ 
 ;;9002226.02101,"1804,2W3JXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3KX1Z ",.01)
 ;;2W3KX1Z 
 ;;9002226.02101,"1804,2W3KX1Z ",.02)
 ;;2W3KX1Z 
 ;;9002226.02101,"1804,2W3KX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3KX2Z ",.01)
 ;;2W3KX2Z 
 ;;9002226.02101,"1804,2W3KX2Z ",.02)
 ;;2W3KX2Z 
 ;;9002226.02101,"1804,2W3KX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3KX3Z ",.01)
 ;;2W3KX3Z 
 ;;9002226.02101,"1804,2W3KX3Z ",.02)
 ;;2W3KX3Z 
 ;;9002226.02101,"1804,2W3KX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3KXYZ ",.01)
 ;;2W3KXYZ 
 ;;9002226.02101,"1804,2W3KXYZ ",.02)
 ;;2W3KXYZ 
 ;;9002226.02101,"1804,2W3KXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3LX1Z ",.01)
 ;;2W3LX1Z 
 ;;9002226.02101,"1804,2W3LX1Z ",.02)
 ;;2W3LX1Z 
 ;;9002226.02101,"1804,2W3LX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3LX2Z ",.01)
 ;;2W3LX2Z 
 ;;9002226.02101,"1804,2W3LX2Z ",.02)
 ;;2W3LX2Z 
 ;;9002226.02101,"1804,2W3LX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3LX3Z ",.01)
 ;;2W3LX3Z 
 ;;9002226.02101,"1804,2W3LX3Z ",.02)
 ;;2W3LX3Z 
 ;;9002226.02101,"1804,2W3LX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3LXYZ ",.01)
 ;;2W3LXYZ 
 ;;9002226.02101,"1804,2W3LXYZ ",.02)
 ;;2W3LXYZ 
 ;;9002226.02101,"1804,2W3LXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3MX1Z ",.01)
 ;;2W3MX1Z 
 ;;9002226.02101,"1804,2W3MX1Z ",.02)
 ;;2W3MX1Z 
 ;;9002226.02101,"1804,2W3MX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3MX2Z ",.01)
 ;;2W3MX2Z 
 ;;9002226.02101,"1804,2W3MX2Z ",.02)
 ;;2W3MX2Z 
 ;;9002226.02101,"1804,2W3MX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3MX3Z ",.01)
 ;;2W3MX3Z 
 ;;9002226.02101,"1804,2W3MX3Z ",.02)
 ;;2W3MX3Z 
 ;;9002226.02101,"1804,2W3MX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3MXYZ ",.01)
 ;;2W3MXYZ 
 ;;9002226.02101,"1804,2W3MXYZ ",.02)
 ;;2W3MXYZ 
 ;;9002226.02101,"1804,2W3MXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3NX1Z ",.01)
 ;;2W3NX1Z 
 ;;9002226.02101,"1804,2W3NX1Z ",.02)
 ;;2W3NX1Z 
 ;;9002226.02101,"1804,2W3NX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3NX2Z ",.01)
 ;;2W3NX2Z 
 ;;9002226.02101,"1804,2W3NX2Z ",.02)
 ;;2W3NX2Z 
 ;;9002226.02101,"1804,2W3NX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3NX3Z ",.01)
 ;;2W3NX3Z 
 ;;9002226.02101,"1804,2W3NX3Z ",.02)
 ;;2W3NX3Z 
 ;;9002226.02101,"1804,2W3NX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3NXYZ ",.01)
 ;;2W3NXYZ 
 ;;9002226.02101,"1804,2W3NXYZ ",.02)
 ;;2W3NXYZ 
 ;;9002226.02101,"1804,2W3NXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3PX1Z ",.01)
 ;;2W3PX1Z 
 ;;9002226.02101,"1804,2W3PX1Z ",.02)
 ;;2W3PX1Z 
 ;;9002226.02101,"1804,2W3PX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3PX2Z ",.01)
 ;;2W3PX2Z 
 ;;9002226.02101,"1804,2W3PX2Z ",.02)
 ;;2W3PX2Z 
 ;;9002226.02101,"1804,2W3PX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3PX3Z ",.01)
 ;;2W3PX3Z 
 ;;9002226.02101,"1804,2W3PX3Z ",.02)
 ;;2W3PX3Z 
 ;;9002226.02101,"1804,2W3PX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3PXYZ ",.01)
 ;;2W3PXYZ 
 ;;9002226.02101,"1804,2W3PXYZ ",.02)
 ;;2W3PXYZ 
 ;;9002226.02101,"1804,2W3PXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3QX1Z ",.01)
 ;;2W3QX1Z 
 ;;9002226.02101,"1804,2W3QX1Z ",.02)
 ;;2W3QX1Z 
 ;;9002226.02101,"1804,2W3QX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3QX2Z ",.01)
 ;;2W3QX2Z 
 ;;9002226.02101,"1804,2W3QX2Z ",.02)
 ;;2W3QX2Z 
 ;;9002226.02101,"1804,2W3QX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3QX3Z ",.01)
 ;;2W3QX3Z 
 ;;9002226.02101,"1804,2W3QX3Z ",.02)
 ;;2W3QX3Z 
 ;;9002226.02101,"1804,2W3QX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3QXYZ ",.01)
 ;;2W3QXYZ 
 ;;9002226.02101,"1804,2W3QXYZ ",.02)
 ;;2W3QXYZ 
 ;;9002226.02101,"1804,2W3QXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3RX1Z ",.01)
 ;;2W3RX1Z 
 ;;9002226.02101,"1804,2W3RX1Z ",.02)
 ;;2W3RX1Z 
 ;;9002226.02101,"1804,2W3RX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3RX2Z ",.01)
 ;;2W3RX2Z 
 ;;9002226.02101,"1804,2W3RX2Z ",.02)
 ;;2W3RX2Z 
 ;;9002226.02101,"1804,2W3RX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3RX3Z ",.01)
 ;;2W3RX3Z 
 ;;9002226.02101,"1804,2W3RX3Z ",.02)
 ;;2W3RX3Z 
 ;;9002226.02101,"1804,2W3RX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3RXYZ ",.01)
 ;;2W3RXYZ 
 ;;9002226.02101,"1804,2W3RXYZ ",.02)
 ;;2W3RXYZ 
 ;;9002226.02101,"1804,2W3RXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3SX1Z ",.01)
 ;;2W3SX1Z 
 ;;9002226.02101,"1804,2W3SX1Z ",.02)
 ;;2W3SX1Z 
 ;;9002226.02101,"1804,2W3SX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3SX2Z ",.01)
 ;;2W3SX2Z 
 ;;9002226.02101,"1804,2W3SX2Z ",.02)
 ;;2W3SX2Z 
 ;;9002226.02101,"1804,2W3SX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3SX3Z ",.01)
 ;;2W3SX3Z 
 ;;9002226.02101,"1804,2W3SX3Z ",.02)
 ;;2W3SX3Z 
 ;;9002226.02101,"1804,2W3SX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3SXYZ ",.01)
 ;;2W3SXYZ 
 ;;9002226.02101,"1804,2W3SXYZ ",.02)
 ;;2W3SXYZ 
 ;;9002226.02101,"1804,2W3SXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3TX1Z ",.01)
 ;;2W3TX1Z 
 ;;9002226.02101,"1804,2W3TX1Z ",.02)
 ;;2W3TX1Z 
 ;;9002226.02101,"1804,2W3TX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3TX2Z ",.01)
 ;;2W3TX2Z 
 ;;9002226.02101,"1804,2W3TX2Z ",.02)
 ;;2W3TX2Z 
 ;;9002226.02101,"1804,2W3TX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3TX3Z ",.01)
 ;;2W3TX3Z 
 ;;9002226.02101,"1804,2W3TX3Z ",.02)
 ;;2W3TX3Z 
 ;;9002226.02101,"1804,2W3TX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3TXYZ ",.01)
 ;;2W3TXYZ 
 ;;9002226.02101,"1804,2W3TXYZ ",.02)
 ;;2W3TXYZ 
 ;;9002226.02101,"1804,2W3TXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3UX1Z ",.01)
 ;;2W3UX1Z 
 ;;9002226.02101,"1804,2W3UX1Z ",.02)
 ;;2W3UX1Z 
 ;;9002226.02101,"1804,2W3UX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3UX2Z ",.01)
 ;;2W3UX2Z 
 ;;9002226.02101,"1804,2W3UX2Z ",.02)
 ;;2W3UX2Z 
 ;;9002226.02101,"1804,2W3UX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3UX3Z ",.01)
 ;;2W3UX3Z 
 ;;9002226.02101,"1804,2W3UX3Z ",.02)
 ;;2W3UX3Z 
 ;;9002226.02101,"1804,2W3UX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3UXYZ ",.01)
 ;;2W3UXYZ 
 ;;9002226.02101,"1804,2W3UXYZ ",.02)
 ;;2W3UXYZ 
 ;;9002226.02101,"1804,2W3UXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3VX1Z ",.01)
 ;;2W3VX1Z 
 ;;9002226.02101,"1804,2W3VX1Z ",.02)
 ;;2W3VX1Z 
 ;;9002226.02101,"1804,2W3VX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3VX2Z ",.01)
 ;;2W3VX2Z 
 ;;9002226.02101,"1804,2W3VX2Z ",.02)
 ;;2W3VX2Z 
 ;;9002226.02101,"1804,2W3VX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3VX3Z ",.01)
 ;;2W3VX3Z 
 ;;9002226.02101,"1804,2W3VX3Z ",.02)
 ;;2W3VX3Z 
 ;;9002226.02101,"1804,2W3VX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W3VXYZ ",.01)
 ;;2W3VXYZ 
 ;;9002226.02101,"1804,2W3VXYZ ",.02)
 ;;2W3VXYZ 
 ;;9002226.02101,"1804,2W3VXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W40X5Z ",.01)
 ;;2W40X5Z 
 ;;9002226.02101,"1804,2W40X5Z ",.02)
 ;;2W40X5Z 
 ;;9002226.02101,"1804,2W40X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W41X5Z ",.01)
 ;;2W41X5Z 
 ;;9002226.02101,"1804,2W41X5Z ",.02)
 ;;2W41X5Z 
 ;;9002226.02101,"1804,2W41X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W42X5Z ",.01)
 ;;2W42X5Z 
 ;;9002226.02101,"1804,2W42X5Z ",.02)
 ;;2W42X5Z 
 ;;9002226.02101,"1804,2W42X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W43X5Z ",.01)
 ;;2W43X5Z 
 ;;9002226.02101,"1804,2W43X5Z ",.02)
 ;;2W43X5Z 
 ;;9002226.02101,"1804,2W43X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W44X5Z ",.01)
 ;;2W44X5Z 
 ;;9002226.02101,"1804,2W44X5Z ",.02)
 ;;2W44X5Z 
 ;;9002226.02101,"1804,2W44X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W45X5Z ",.01)
 ;;2W45X5Z 
 ;;9002226.02101,"1804,2W45X5Z ",.02)
 ;;2W45X5Z 
 ;;9002226.02101,"1804,2W45X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W46X5Z ",.01)
 ;;2W46X5Z 
 ;;9002226.02101,"1804,2W46X5Z ",.02)
 ;;2W46X5Z 
 ;;9002226.02101,"1804,2W46X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W47X5Z ",.01)
 ;;2W47X5Z 
 ;;9002226.02101,"1804,2W47X5Z ",.02)
 ;;2W47X5Z 
 ;;9002226.02101,"1804,2W47X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W48X5Z ",.01)
 ;;2W48X5Z 
 ;;9002226.02101,"1804,2W48X5Z ",.02)
 ;;2W48X5Z 
 ;;9002226.02101,"1804,2W48X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W49X5Z ",.01)
 ;;2W49X5Z 
 ;;9002226.02101,"1804,2W49X5Z ",.02)
 ;;2W49X5Z 
 ;;9002226.02101,"1804,2W49X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4AX5Z ",.01)
 ;;2W4AX5Z 
 ;;9002226.02101,"1804,2W4AX5Z ",.02)
 ;;2W4AX5Z 
 ;;9002226.02101,"1804,2W4AX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4BX5Z ",.01)
 ;;2W4BX5Z 
 ;;9002226.02101,"1804,2W4BX5Z ",.02)
 ;;2W4BX5Z 
 ;;9002226.02101,"1804,2W4BX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4CX5Z ",.01)
 ;;2W4CX5Z 
 ;;9002226.02101,"1804,2W4CX5Z ",.02)
 ;;2W4CX5Z 
 ;;9002226.02101,"1804,2W4CX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4DX5Z ",.01)
 ;;2W4DX5Z 
 ;;9002226.02101,"1804,2W4DX5Z ",.02)
 ;;2W4DX5Z 
 ;;9002226.02101,"1804,2W4DX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4EX5Z ",.01)
 ;;2W4EX5Z 
 ;;9002226.02101,"1804,2W4EX5Z ",.02)
 ;;2W4EX5Z 
 ;;9002226.02101,"1804,2W4EX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4FX5Z ",.01)
 ;;2W4FX5Z 
 ;;9002226.02101,"1804,2W4FX5Z ",.02)
 ;;2W4FX5Z 
 ;;9002226.02101,"1804,2W4FX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4GX5Z ",.01)
 ;;2W4GX5Z 
 ;;9002226.02101,"1804,2W4GX5Z ",.02)
 ;;2W4GX5Z 
 ;;9002226.02101,"1804,2W4GX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4HX5Z ",.01)
 ;;2W4HX5Z 
 ;;9002226.02101,"1804,2W4HX5Z ",.02)
 ;;2W4HX5Z 
 ;;9002226.02101,"1804,2W4HX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4JX5Z ",.01)
 ;;2W4JX5Z 
 ;;9002226.02101,"1804,2W4JX5Z ",.02)
 ;;2W4JX5Z 
 ;;9002226.02101,"1804,2W4JX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4KX5Z ",.01)
 ;;2W4KX5Z 
 ;;9002226.02101,"1804,2W4KX5Z ",.02)
 ;;2W4KX5Z 
 ;;9002226.02101,"1804,2W4KX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4LX5Z ",.01)
 ;;2W4LX5Z 
 ;;9002226.02101,"1804,2W4LX5Z ",.02)
 ;;2W4LX5Z 
 ;;9002226.02101,"1804,2W4LX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4MX5Z ",.01)
 ;;2W4MX5Z 
 ;;9002226.02101,"1804,2W4MX5Z ",.02)
 ;;2W4MX5Z 
 ;;9002226.02101,"1804,2W4MX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4NX5Z ",.01)
 ;;2W4NX5Z 
 ;;9002226.02101,"1804,2W4NX5Z ",.02)
 ;;2W4NX5Z 
 ;;9002226.02101,"1804,2W4NX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W4PX5Z ",.01)
 ;;2W4PX5Z