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

ATXXB158.m

Go to the documentation of this file.
ATXXB158 ;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,2W5RX2Z ",.02)
 ;;2W5RX2Z 
 ;;9002226.02101,"1804,2W5RX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5RX3Z ",.01)
 ;;2W5RX3Z 
 ;;9002226.02101,"1804,2W5RX3Z ",.02)
 ;;2W5RX3Z 
 ;;9002226.02101,"1804,2W5RX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5RX4Z ",.01)
 ;;2W5RX4Z 
 ;;9002226.02101,"1804,2W5RX4Z ",.02)
 ;;2W5RX4Z 
 ;;9002226.02101,"1804,2W5RX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5RX5Z ",.01)
 ;;2W5RX5Z 
 ;;9002226.02101,"1804,2W5RX5Z ",.02)
 ;;2W5RX5Z 
 ;;9002226.02101,"1804,2W5RX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5RX6Z ",.01)
 ;;2W5RX6Z 
 ;;9002226.02101,"1804,2W5RX6Z ",.02)
 ;;2W5RX6Z 
 ;;9002226.02101,"1804,2W5RX6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5RX7Z ",.01)
 ;;2W5RX7Z 
 ;;9002226.02101,"1804,2W5RX7Z ",.02)
 ;;2W5RX7Z 
 ;;9002226.02101,"1804,2W5RX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5RXYZ ",.01)
 ;;2W5RXYZ 
 ;;9002226.02101,"1804,2W5RXYZ ",.02)
 ;;2W5RXYZ 
 ;;9002226.02101,"1804,2W5RXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5SX0Z ",.01)
 ;;2W5SX0Z 
 ;;9002226.02101,"1804,2W5SX0Z ",.02)
 ;;2W5SX0Z 
 ;;9002226.02101,"1804,2W5SX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5SX1Z ",.01)
 ;;2W5SX1Z 
 ;;9002226.02101,"1804,2W5SX1Z ",.02)
 ;;2W5SX1Z 
 ;;9002226.02101,"1804,2W5SX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5SX2Z ",.01)
 ;;2W5SX2Z 
 ;;9002226.02101,"1804,2W5SX2Z ",.02)
 ;;2W5SX2Z 
 ;;9002226.02101,"1804,2W5SX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5SX3Z ",.01)
 ;;2W5SX3Z 
 ;;9002226.02101,"1804,2W5SX3Z ",.02)
 ;;2W5SX3Z 
 ;;9002226.02101,"1804,2W5SX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5SX4Z ",.01)
 ;;2W5SX4Z 
 ;;9002226.02101,"1804,2W5SX4Z ",.02)
 ;;2W5SX4Z 
 ;;9002226.02101,"1804,2W5SX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5SX5Z ",.01)
 ;;2W5SX5Z 
 ;;9002226.02101,"1804,2W5SX5Z ",.02)
 ;;2W5SX5Z 
 ;;9002226.02101,"1804,2W5SX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5SX6Z ",.01)
 ;;2W5SX6Z 
 ;;9002226.02101,"1804,2W5SX6Z ",.02)
 ;;2W5SX6Z 
 ;;9002226.02101,"1804,2W5SX6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5SX7Z ",.01)
 ;;2W5SX7Z 
 ;;9002226.02101,"1804,2W5SX7Z ",.02)
 ;;2W5SX7Z 
 ;;9002226.02101,"1804,2W5SX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5SXYZ ",.01)
 ;;2W5SXYZ 
 ;;9002226.02101,"1804,2W5SXYZ ",.02)
 ;;2W5SXYZ 
 ;;9002226.02101,"1804,2W5SXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5TX0Z ",.01)
 ;;2W5TX0Z 
 ;;9002226.02101,"1804,2W5TX0Z ",.02)
 ;;2W5TX0Z 
 ;;9002226.02101,"1804,2W5TX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5TX1Z ",.01)
 ;;2W5TX1Z 
 ;;9002226.02101,"1804,2W5TX1Z ",.02)
 ;;2W5TX1Z 
 ;;9002226.02101,"1804,2W5TX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5TX2Z ",.01)
 ;;2W5TX2Z 
 ;;9002226.02101,"1804,2W5TX2Z ",.02)
 ;;2W5TX2Z 
 ;;9002226.02101,"1804,2W5TX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5TX3Z ",.01)
 ;;2W5TX3Z 
 ;;9002226.02101,"1804,2W5TX3Z ",.02)
 ;;2W5TX3Z 
 ;;9002226.02101,"1804,2W5TX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5TX4Z ",.01)
 ;;2W5TX4Z 
 ;;9002226.02101,"1804,2W5TX4Z ",.02)
 ;;2W5TX4Z 
 ;;9002226.02101,"1804,2W5TX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5TX5Z ",.01)
 ;;2W5TX5Z 
 ;;9002226.02101,"1804,2W5TX5Z ",.02)
 ;;2W5TX5Z 
 ;;9002226.02101,"1804,2W5TX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5TX6Z ",.01)
 ;;2W5TX6Z 
 ;;9002226.02101,"1804,2W5TX6Z ",.02)
 ;;2W5TX6Z 
 ;;9002226.02101,"1804,2W5TX6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5TX7Z ",.01)
 ;;2W5TX7Z 
 ;;9002226.02101,"1804,2W5TX7Z ",.02)
 ;;2W5TX7Z 
 ;;9002226.02101,"1804,2W5TX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5TXYZ ",.01)
 ;;2W5TXYZ 
 ;;9002226.02101,"1804,2W5TXYZ ",.02)
 ;;2W5TXYZ 
 ;;9002226.02101,"1804,2W5TXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5UX0Z ",.01)
 ;;2W5UX0Z 
 ;;9002226.02101,"1804,2W5UX0Z ",.02)
 ;;2W5UX0Z 
 ;;9002226.02101,"1804,2W5UX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5UX1Z ",.01)
 ;;2W5UX1Z 
 ;;9002226.02101,"1804,2W5UX1Z ",.02)
 ;;2W5UX1Z 
 ;;9002226.02101,"1804,2W5UX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5UX2Z ",.01)
 ;;2W5UX2Z 
 ;;9002226.02101,"1804,2W5UX2Z ",.02)
 ;;2W5UX2Z 
 ;;9002226.02101,"1804,2W5UX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5UX3Z ",.01)
 ;;2W5UX3Z 
 ;;9002226.02101,"1804,2W5UX3Z ",.02)
 ;;2W5UX3Z 
 ;;9002226.02101,"1804,2W5UX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5UX4Z ",.01)
 ;;2W5UX4Z 
 ;;9002226.02101,"1804,2W5UX4Z ",.02)
 ;;2W5UX4Z 
 ;;9002226.02101,"1804,2W5UX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5UX5Z ",.01)
 ;;2W5UX5Z 
 ;;9002226.02101,"1804,2W5UX5Z ",.02)
 ;;2W5UX5Z 
 ;;9002226.02101,"1804,2W5UX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5UX6Z ",.01)
 ;;2W5UX6Z 
 ;;9002226.02101,"1804,2W5UX6Z ",.02)
 ;;2W5UX6Z 
 ;;9002226.02101,"1804,2W5UX6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5UX7Z ",.01)
 ;;2W5UX7Z 
 ;;9002226.02101,"1804,2W5UX7Z ",.02)
 ;;2W5UX7Z 
 ;;9002226.02101,"1804,2W5UX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5UXYZ ",.01)
 ;;2W5UXYZ 
 ;;9002226.02101,"1804,2W5UXYZ ",.02)
 ;;2W5UXYZ 
 ;;9002226.02101,"1804,2W5UXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5VX0Z ",.01)
 ;;2W5VX0Z 
 ;;9002226.02101,"1804,2W5VX0Z ",.02)
 ;;2W5VX0Z 
 ;;9002226.02101,"1804,2W5VX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5VX1Z ",.01)
 ;;2W5VX1Z 
 ;;9002226.02101,"1804,2W5VX1Z ",.02)
 ;;2W5VX1Z 
 ;;9002226.02101,"1804,2W5VX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5VX2Z ",.01)
 ;;2W5VX2Z 
 ;;9002226.02101,"1804,2W5VX2Z ",.02)
 ;;2W5VX2Z 
 ;;9002226.02101,"1804,2W5VX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5VX3Z ",.01)
 ;;2W5VX3Z 
 ;;9002226.02101,"1804,2W5VX3Z ",.02)
 ;;2W5VX3Z 
 ;;9002226.02101,"1804,2W5VX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5VX4Z ",.01)
 ;;2W5VX4Z 
 ;;9002226.02101,"1804,2W5VX4Z ",.02)
 ;;2W5VX4Z 
 ;;9002226.02101,"1804,2W5VX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5VX5Z ",.01)
 ;;2W5VX5Z 
 ;;9002226.02101,"1804,2W5VX5Z ",.02)
 ;;2W5VX5Z 
 ;;9002226.02101,"1804,2W5VX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5VX6Z ",.01)
 ;;2W5VX6Z 
 ;;9002226.02101,"1804,2W5VX6Z ",.02)
 ;;2W5VX6Z 
 ;;9002226.02101,"1804,2W5VX6Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5VX7Z ",.01)
 ;;2W5VX7Z 
 ;;9002226.02101,"1804,2W5VX7Z ",.02)
 ;;2W5VX7Z 
 ;;9002226.02101,"1804,2W5VX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W5VXYZ ",.01)
 ;;2W5VXYZ 
 ;;9002226.02101,"1804,2W5VXYZ ",.02)
 ;;2W5VXYZ 
 ;;9002226.02101,"1804,2W5VXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W60X0Z ",.01)
 ;;2W60X0Z 
 ;;9002226.02101,"1804,2W60X0Z ",.02)
 ;;2W60X0Z 
 ;;9002226.02101,"1804,2W60X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W60XZZ ",.01)
 ;;2W60XZZ 
 ;;9002226.02101,"1804,2W60XZZ ",.02)
 ;;2W60XZZ 
 ;;9002226.02101,"1804,2W60XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W61X0Z ",.01)
 ;;2W61X0Z 
 ;;9002226.02101,"1804,2W61X0Z ",.02)
 ;;2W61X0Z 
 ;;9002226.02101,"1804,2W61X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W61XZZ ",.01)
 ;;2W61XZZ 
 ;;9002226.02101,"1804,2W61XZZ ",.02)
 ;;2W61XZZ 
 ;;9002226.02101,"1804,2W61XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W62X0Z ",.01)
 ;;2W62X0Z 
 ;;9002226.02101,"1804,2W62X0Z ",.02)
 ;;2W62X0Z 
 ;;9002226.02101,"1804,2W62X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W62XZZ ",.01)
 ;;2W62XZZ 
 ;;9002226.02101,"1804,2W62XZZ ",.02)
 ;;2W62XZZ 
 ;;9002226.02101,"1804,2W62XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W63X0Z ",.01)
 ;;2W63X0Z 
 ;;9002226.02101,"1804,2W63X0Z ",.02)
 ;;2W63X0Z 
 ;;9002226.02101,"1804,2W63X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W63XZZ ",.01)
 ;;2W63XZZ 
 ;;9002226.02101,"1804,2W63XZZ ",.02)
 ;;2W63XZZ 
 ;;9002226.02101,"1804,2W63XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W64X0Z ",.01)
 ;;2W64X0Z 
 ;;9002226.02101,"1804,2W64X0Z ",.02)
 ;;2W64X0Z 
 ;;9002226.02101,"1804,2W64X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W64XZZ ",.01)
 ;;2W64XZZ 
 ;;9002226.02101,"1804,2W64XZZ ",.02)
 ;;2W64XZZ 
 ;;9002226.02101,"1804,2W64XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W65X0Z ",.01)
 ;;2W65X0Z 
 ;;9002226.02101,"1804,2W65X0Z ",.02)
 ;;2W65X0Z 
 ;;9002226.02101,"1804,2W65X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W65XZZ ",.01)
 ;;2W65XZZ 
 ;;9002226.02101,"1804,2W65XZZ ",.02)
 ;;2W65XZZ 
 ;;9002226.02101,"1804,2W65XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W66X0Z ",.01)
 ;;2W66X0Z 
 ;;9002226.02101,"1804,2W66X0Z ",.02)
 ;;2W66X0Z 
 ;;9002226.02101,"1804,2W66X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W66XZZ ",.01)
 ;;2W66XZZ 
 ;;9002226.02101,"1804,2W66XZZ ",.02)
 ;;2W66XZZ 
 ;;9002226.02101,"1804,2W66XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W67X0Z ",.01)
 ;;2W67X0Z 
 ;;9002226.02101,"1804,2W67X0Z ",.02)
 ;;2W67X0Z 
 ;;9002226.02101,"1804,2W67X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W67XZZ ",.01)
 ;;2W67XZZ 
 ;;9002226.02101,"1804,2W67XZZ ",.02)
 ;;2W67XZZ 
 ;;9002226.02101,"1804,2W67XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W68X0Z ",.01)
 ;;2W68X0Z 
 ;;9002226.02101,"1804,2W68X0Z ",.02)
 ;;2W68X0Z 
 ;;9002226.02101,"1804,2W68X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W68XZZ ",.01)
 ;;2W68XZZ 
 ;;9002226.02101,"1804,2W68XZZ ",.02)
 ;;2W68XZZ 
 ;;9002226.02101,"1804,2W68XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W69X0Z ",.01)
 ;;2W69X0Z 
 ;;9002226.02101,"1804,2W69X0Z ",.02)
 ;;2W69X0Z 
 ;;9002226.02101,"1804,2W69X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W69XZZ ",.01)
 ;;2W69XZZ 
 ;;9002226.02101,"1804,2W69XZZ ",.02)
 ;;2W69XZZ 
 ;;9002226.02101,"1804,2W69XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6AX0Z ",.01)
 ;;2W6AX0Z 
 ;;9002226.02101,"1804,2W6AX0Z ",.02)
 ;;2W6AX0Z 
 ;;9002226.02101,"1804,2W6AX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6AXZZ ",.01)
 ;;2W6AXZZ 
 ;;9002226.02101,"1804,2W6AXZZ ",.02)
 ;;2W6AXZZ 
 ;;9002226.02101,"1804,2W6AXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6BX0Z ",.01)
 ;;2W6BX0Z 
 ;;9002226.02101,"1804,2W6BX0Z ",.02)
 ;;2W6BX0Z 
 ;;9002226.02101,"1804,2W6BX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6BXZZ ",.01)
 ;;2W6BXZZ 
 ;;9002226.02101,"1804,2W6BXZZ ",.02)
 ;;2W6BXZZ 
 ;;9002226.02101,"1804,2W6BXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6CX0Z ",.01)
 ;;2W6CX0Z 
 ;;9002226.02101,"1804,2W6CX0Z ",.02)
 ;;2W6CX0Z 
 ;;9002226.02101,"1804,2W6CX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6CXZZ ",.01)
 ;;2W6CXZZ 
 ;;9002226.02101,"1804,2W6CXZZ ",.02)
 ;;2W6CXZZ 
 ;;9002226.02101,"1804,2W6CXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6DX0Z ",.01)
 ;;2W6DX0Z 
 ;;9002226.02101,"1804,2W6DX0Z ",.02)
 ;;2W6DX0Z 
 ;;9002226.02101,"1804,2W6DX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6DXZZ ",.01)
 ;;2W6DXZZ 
 ;;9002226.02101,"1804,2W6DXZZ ",.02)
 ;;2W6DXZZ 
 ;;9002226.02101,"1804,2W6DXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6EX0Z ",.01)
 ;;2W6EX0Z 
 ;;9002226.02101,"1804,2W6EX0Z ",.02)
 ;;2W6EX0Z 
 ;;9002226.02101,"1804,2W6EX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6EXZZ ",.01)
 ;;2W6EXZZ 
 ;;9002226.02101,"1804,2W6EXZZ ",.02)
 ;;2W6EXZZ 
 ;;9002226.02101,"1804,2W6EXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6FX0Z ",.01)
 ;;2W6FX0Z 
 ;;9002226.02101,"1804,2W6FX0Z ",.02)
 ;;2W6FX0Z 
 ;;9002226.02101,"1804,2W6FX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6FXZZ ",.01)
 ;;2W6FXZZ 
 ;;9002226.02101,"1804,2W6FXZZ ",.02)
 ;;2W6FXZZ 
 ;;9002226.02101,"1804,2W6FXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6GX0Z ",.01)
 ;;2W6GX0Z 
 ;;9002226.02101,"1804,2W6GX0Z ",.02)
 ;;2W6GX0Z 
 ;;9002226.02101,"1804,2W6GX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6GXZZ ",.01)
 ;;2W6GXZZ 
 ;;9002226.02101,"1804,2W6GXZZ ",.02)
 ;;2W6GXZZ 
 ;;9002226.02101,"1804,2W6GXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6HX0Z ",.01)
 ;;2W6HX0Z 
 ;;9002226.02101,"1804,2W6HX0Z ",.02)
 ;;2W6HX0Z 
 ;;9002226.02101,"1804,2W6HX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6HXZZ ",.01)
 ;;2W6HXZZ 
 ;;9002226.02101,"1804,2W6HXZZ ",.02)
 ;;2W6HXZZ