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

ATXXB159.m

Go to the documentation of this file.
ATXXB159 ;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,2W6HXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6JX0Z ",.01)
 ;;2W6JX0Z 
 ;;9002226.02101,"1804,2W6JX0Z ",.02)
 ;;2W6JX0Z 
 ;;9002226.02101,"1804,2W6JX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6JXZZ ",.01)
 ;;2W6JXZZ 
 ;;9002226.02101,"1804,2W6JXZZ ",.02)
 ;;2W6JXZZ 
 ;;9002226.02101,"1804,2W6JXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6KX0Z ",.01)
 ;;2W6KX0Z 
 ;;9002226.02101,"1804,2W6KX0Z ",.02)
 ;;2W6KX0Z 
 ;;9002226.02101,"1804,2W6KX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6KXZZ ",.01)
 ;;2W6KXZZ 
 ;;9002226.02101,"1804,2W6KXZZ ",.02)
 ;;2W6KXZZ 
 ;;9002226.02101,"1804,2W6KXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6LX0Z ",.01)
 ;;2W6LX0Z 
 ;;9002226.02101,"1804,2W6LX0Z ",.02)
 ;;2W6LX0Z 
 ;;9002226.02101,"1804,2W6LX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6LXZZ ",.01)
 ;;2W6LXZZ 
 ;;9002226.02101,"1804,2W6LXZZ ",.02)
 ;;2W6LXZZ 
 ;;9002226.02101,"1804,2W6LXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6MX0Z ",.01)
 ;;2W6MX0Z 
 ;;9002226.02101,"1804,2W6MX0Z ",.02)
 ;;2W6MX0Z 
 ;;9002226.02101,"1804,2W6MX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6MXZZ ",.01)
 ;;2W6MXZZ 
 ;;9002226.02101,"1804,2W6MXZZ ",.02)
 ;;2W6MXZZ 
 ;;9002226.02101,"1804,2W6MXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6NX0Z ",.01)
 ;;2W6NX0Z 
 ;;9002226.02101,"1804,2W6NX0Z ",.02)
 ;;2W6NX0Z 
 ;;9002226.02101,"1804,2W6NX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6NXZZ ",.01)
 ;;2W6NXZZ 
 ;;9002226.02101,"1804,2W6NXZZ ",.02)
 ;;2W6NXZZ 
 ;;9002226.02101,"1804,2W6NXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6PX0Z ",.01)
 ;;2W6PX0Z 
 ;;9002226.02101,"1804,2W6PX0Z ",.02)
 ;;2W6PX0Z 
 ;;9002226.02101,"1804,2W6PX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6PXZZ ",.01)
 ;;2W6PXZZ 
 ;;9002226.02101,"1804,2W6PXZZ ",.02)
 ;;2W6PXZZ 
 ;;9002226.02101,"1804,2W6PXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6QX0Z ",.01)
 ;;2W6QX0Z 
 ;;9002226.02101,"1804,2W6QX0Z ",.02)
 ;;2W6QX0Z 
 ;;9002226.02101,"1804,2W6QX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6QXZZ ",.01)
 ;;2W6QXZZ 
 ;;9002226.02101,"1804,2W6QXZZ ",.02)
 ;;2W6QXZZ 
 ;;9002226.02101,"1804,2W6QXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6RX0Z ",.01)
 ;;2W6RX0Z 
 ;;9002226.02101,"1804,2W6RX0Z ",.02)
 ;;2W6RX0Z 
 ;;9002226.02101,"1804,2W6RX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6RXZZ ",.01)
 ;;2W6RXZZ 
 ;;9002226.02101,"1804,2W6RXZZ ",.02)
 ;;2W6RXZZ 
 ;;9002226.02101,"1804,2W6RXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6SX0Z ",.01)
 ;;2W6SX0Z 
 ;;9002226.02101,"1804,2W6SX0Z ",.02)
 ;;2W6SX0Z 
 ;;9002226.02101,"1804,2W6SX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6SXZZ ",.01)
 ;;2W6SXZZ 
 ;;9002226.02101,"1804,2W6SXZZ ",.02)
 ;;2W6SXZZ 
 ;;9002226.02101,"1804,2W6SXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6TX0Z ",.01)
 ;;2W6TX0Z 
 ;;9002226.02101,"1804,2W6TX0Z ",.02)
 ;;2W6TX0Z 
 ;;9002226.02101,"1804,2W6TX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6TXZZ ",.01)
 ;;2W6TXZZ 
 ;;9002226.02101,"1804,2W6TXZZ ",.02)
 ;;2W6TXZZ 
 ;;9002226.02101,"1804,2W6TXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6UX0Z ",.01)
 ;;2W6UX0Z 
 ;;9002226.02101,"1804,2W6UX0Z ",.02)
 ;;2W6UX0Z 
 ;;9002226.02101,"1804,2W6UX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6UXZZ ",.01)
 ;;2W6UXZZ 
 ;;9002226.02101,"1804,2W6UXZZ ",.02)
 ;;2W6UXZZ 
 ;;9002226.02101,"1804,2W6UXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6VX0Z ",.01)
 ;;2W6VX0Z 
 ;;9002226.02101,"1804,2W6VX0Z ",.02)
 ;;2W6VX0Z 
 ;;9002226.02101,"1804,2W6VX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2W6VXZZ ",.01)
 ;;2W6VXZZ 
 ;;9002226.02101,"1804,2W6VXZZ ",.02)
 ;;2W6VXZZ 
 ;;9002226.02101,"1804,2W6VXZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y00X5Z ",.01)
 ;;2Y00X5Z 
 ;;9002226.02101,"1804,2Y00X5Z ",.02)
 ;;2Y00X5Z 
 ;;9002226.02101,"1804,2Y00X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y01X5Z ",.01)
 ;;2Y01X5Z 
 ;;9002226.02101,"1804,2Y01X5Z ",.02)
 ;;2Y01X5Z 
 ;;9002226.02101,"1804,2Y01X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y02X5Z ",.01)
 ;;2Y02X5Z 
 ;;9002226.02101,"1804,2Y02X5Z ",.02)
 ;;2Y02X5Z 
 ;;9002226.02101,"1804,2Y02X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y03X5Z ",.01)
 ;;2Y03X5Z 
 ;;9002226.02101,"1804,2Y03X5Z ",.02)
 ;;2Y03X5Z 
 ;;9002226.02101,"1804,2Y03X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y04X5Z ",.01)
 ;;2Y04X5Z 
 ;;9002226.02101,"1804,2Y04X5Z ",.02)
 ;;2Y04X5Z 
 ;;9002226.02101,"1804,2Y04X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y05X5Z ",.01)
 ;;2Y05X5Z 
 ;;9002226.02101,"1804,2Y05X5Z ",.02)
 ;;2Y05X5Z 
 ;;9002226.02101,"1804,2Y05X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y40X5Z ",.01)
 ;;2Y40X5Z 
 ;;9002226.02101,"1804,2Y40X5Z ",.02)
 ;;2Y40X5Z 
 ;;9002226.02101,"1804,2Y40X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y42X5Z ",.01)
 ;;2Y42X5Z 
 ;;9002226.02101,"1804,2Y42X5Z ",.02)
 ;;2Y42X5Z 
 ;;9002226.02101,"1804,2Y42X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y43X5Z ",.01)
 ;;2Y43X5Z 
 ;;9002226.02101,"1804,2Y43X5Z ",.02)
 ;;2Y43X5Z 
 ;;9002226.02101,"1804,2Y43X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y44X5Z ",.01)
 ;;2Y44X5Z 
 ;;9002226.02101,"1804,2Y44X5Z ",.02)
 ;;2Y44X5Z 
 ;;9002226.02101,"1804,2Y44X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y45X5Z ",.01)
 ;;2Y45X5Z 
 ;;9002226.02101,"1804,2Y45X5Z ",.02)
 ;;2Y45X5Z 
 ;;9002226.02101,"1804,2Y45X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y50X5Z ",.01)
 ;;2Y50X5Z 
 ;;9002226.02101,"1804,2Y50X5Z ",.02)
 ;;2Y50X5Z 
 ;;9002226.02101,"1804,2Y50X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y51X5Z ",.01)
 ;;2Y51X5Z 
 ;;9002226.02101,"1804,2Y51X5Z ",.02)
 ;;2Y51X5Z 
 ;;9002226.02101,"1804,2Y51X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y52X5Z ",.01)
 ;;2Y52X5Z 
 ;;9002226.02101,"1804,2Y52X5Z ",.02)
 ;;2Y52X5Z 
 ;;9002226.02101,"1804,2Y52X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y53X5Z ",.01)
 ;;2Y53X5Z 
 ;;9002226.02101,"1804,2Y53X5Z ",.02)
 ;;2Y53X5Z 
 ;;9002226.02101,"1804,2Y53X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y54X5Z ",.01)
 ;;2Y54X5Z 
 ;;9002226.02101,"1804,2Y54X5Z ",.02)
 ;;2Y54X5Z 
 ;;9002226.02101,"1804,2Y54X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,2Y55X5Z ",.01)
 ;;2Y55X5Z 
 ;;9002226.02101,"1804,2Y55X5Z ",.02)
 ;;2Y55X5Z 
 ;;9002226.02101,"1804,2Y55X5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,30230H0 ",.01)
 ;;30230H0 
 ;;9002226.02101,"1804,30230H0 ",.02)
 ;;30230H0 
 ;;9002226.02101,"1804,30230H0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230H1 ",.01)
 ;;30230H1 
 ;;9002226.02101,"1804,30230H1 ",.02)
 ;;30230H1 
 ;;9002226.02101,"1804,30230H1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230J0 ",.01)
 ;;30230J0 
 ;;9002226.02101,"1804,30230J0 ",.02)
 ;;30230J0 
 ;;9002226.02101,"1804,30230J0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230J1 ",.01)
 ;;30230J1 
 ;;9002226.02101,"1804,30230J1 ",.02)
 ;;30230J1 
 ;;9002226.02101,"1804,30230J1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230K0 ",.01)
 ;;30230K0 
 ;;9002226.02101,"1804,30230K0 ",.02)
 ;;30230K0 
 ;;9002226.02101,"1804,30230K0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230K1 ",.01)
 ;;30230K1 
 ;;9002226.02101,"1804,30230K1 ",.02)
 ;;30230K1 
 ;;9002226.02101,"1804,30230K1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230L0 ",.01)
 ;;30230L0 
 ;;9002226.02101,"1804,30230L0 ",.02)
 ;;30230L0 
 ;;9002226.02101,"1804,30230L0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230L1 ",.01)
 ;;30230L1 
 ;;9002226.02101,"1804,30230L1 ",.02)
 ;;30230L1 
 ;;9002226.02101,"1804,30230L1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230M0 ",.01)
 ;;30230M0 
 ;;9002226.02101,"1804,30230M0 ",.02)
 ;;30230M0 
 ;;9002226.02101,"1804,30230M0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230M1 ",.01)
 ;;30230M1 
 ;;9002226.02101,"1804,30230M1 ",.02)
 ;;30230M1 
 ;;9002226.02101,"1804,30230M1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230N0 ",.01)
 ;;30230N0 
 ;;9002226.02101,"1804,30230N0 ",.02)
 ;;30230N0 
 ;;9002226.02101,"1804,30230N0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230N1 ",.01)
 ;;30230N1 
 ;;9002226.02101,"1804,30230N1 ",.02)
 ;;30230N1 
 ;;9002226.02101,"1804,30230N1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230P0 ",.01)
 ;;30230P0 
 ;;9002226.02101,"1804,30230P0 ",.02)
 ;;30230P0 
 ;;9002226.02101,"1804,30230P0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230P1 ",.01)
 ;;30230P1 
 ;;9002226.02101,"1804,30230P1 ",.02)
 ;;30230P1 
 ;;9002226.02101,"1804,30230P1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230Q0 ",.01)
 ;;30230Q0 
 ;;9002226.02101,"1804,30230Q0 ",.02)
 ;;30230Q0 
 ;;9002226.02101,"1804,30230Q0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230Q1 ",.01)
 ;;30230Q1 
 ;;9002226.02101,"1804,30230Q1 ",.02)
 ;;30230Q1 
 ;;9002226.02101,"1804,30230Q1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230R0 ",.01)
 ;;30230R0 
 ;;9002226.02101,"1804,30230R0 ",.02)
 ;;30230R0 
 ;;9002226.02101,"1804,30230R0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230R1 ",.01)
 ;;30230R1 
 ;;9002226.02101,"1804,30230R1 ",.02)
 ;;30230R1 
 ;;9002226.02101,"1804,30230R1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230S0 ",.01)
 ;;30230S0 
 ;;9002226.02101,"1804,30230S0 ",.02)
 ;;30230S0 
 ;;9002226.02101,"1804,30230S0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230S1 ",.01)
 ;;30230S1 
 ;;9002226.02101,"1804,30230S1 ",.02)
 ;;30230S1 
 ;;9002226.02101,"1804,30230S1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230T0 ",.01)
 ;;30230T0 
 ;;9002226.02101,"1804,30230T0 ",.02)
 ;;30230T0 
 ;;9002226.02101,"1804,30230T0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230T1 ",.01)
 ;;30230T1 
 ;;9002226.02101,"1804,30230T1 ",.02)
 ;;30230T1 
 ;;9002226.02101,"1804,30230T1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230V0 ",.01)
 ;;30230V0 
 ;;9002226.02101,"1804,30230V0 ",.02)
 ;;30230V0 
 ;;9002226.02101,"1804,30230V0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230V1 ",.01)
 ;;30230V1 
 ;;9002226.02101,"1804,30230V1 ",.02)
 ;;30230V1 
 ;;9002226.02101,"1804,30230V1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230W0 ",.01)
 ;;30230W0 
 ;;9002226.02101,"1804,30230W0 ",.02)
 ;;30230W0 
 ;;9002226.02101,"1804,30230W0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30230W1 ",.01)
 ;;30230W1 
 ;;9002226.02101,"1804,30230W1 ",.02)
 ;;30230W1 
 ;;9002226.02101,"1804,30230W1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30233H0 ",.01)
 ;;30233H0 
 ;;9002226.02101,"1804,30233H0 ",.02)
 ;;30233H0 
 ;;9002226.02101,"1804,30233H0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30233H1 ",.01)
 ;;30233H1 
 ;;9002226.02101,"1804,30233H1 ",.02)
 ;;30233H1 
 ;;9002226.02101,"1804,30233H1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30233J0 ",.01)
 ;;30233J0 
 ;;9002226.02101,"1804,30233J0 ",.02)
 ;;30233J0 
 ;;9002226.02101,"1804,30233J0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30233J1 ",.01)
 ;;30233J1 
 ;;9002226.02101,"1804,30233J1 ",.02)
 ;;30233J1 
 ;;9002226.02101,"1804,30233J1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30233K0 ",.01)
 ;;30233K0 
 ;;9002226.02101,"1804,30233K0 ",.02)
 ;;30233K0 
 ;;9002226.02101,"1804,30233K0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30233K1 ",.01)
 ;;30233K1 
 ;;9002226.02101,"1804,30233K1 ",.02)
 ;;30233K1 
 ;;9002226.02101,"1804,30233K1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30233L0 ",.01)
 ;;30233L0 
 ;;9002226.02101,"1804,30233L0 ",.02)
 ;;30233L0 
 ;;9002226.02101,"1804,30233L0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30233L1 ",.01)
 ;;30233L1 
 ;;9002226.02101,"1804,30233L1 ",.02)
 ;;30233L1 
 ;;9002226.02101,"1804,30233L1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30233M0 ",.01)
 ;;30233M0 
 ;;9002226.02101,"1804,30233M0 ",.02)
 ;;30233M0 
 ;;9002226.02101,"1804,30233M0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30233M1 ",.01)
 ;;30233M1 
 ;;9002226.02101,"1804,30233M1 ",.02)
 ;;30233M1 
 ;;9002226.02101,"1804,30233M1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30233N0 ",.01)
 ;;30233N0 
 ;;9002226.02101,"1804,30233N0 ",.02)
 ;;30233N0 
 ;;9002226.02101,"1804,30233N0 ",.03)
 ;;31