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

ATXXB189.m

Go to the documentation of this file.
ATXXB189 ;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,B52G0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52G10Z ",.01)
 ;;B52G10Z 
 ;;9002226.02101,"1804,B52G10Z ",.02)
 ;;B52G10Z 
 ;;9002226.02101,"1804,B52G10Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52G1ZZ ",.01)
 ;;B52G1ZZ 
 ;;9002226.02101,"1804,B52G1ZZ ",.02)
 ;;B52G1ZZ 
 ;;9002226.02101,"1804,B52G1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52GY0Z ",.01)
 ;;B52GY0Z 
 ;;9002226.02101,"1804,B52GY0Z ",.02)
 ;;B52GY0Z 
 ;;9002226.02101,"1804,B52GY0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52GYZZ ",.01)
 ;;B52GYZZ 
 ;;9002226.02101,"1804,B52GYZZ ",.02)
 ;;B52GYZZ 
 ;;9002226.02101,"1804,B52GYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52GZZZ ",.01)
 ;;B52GZZZ 
 ;;9002226.02101,"1804,B52GZZZ ",.02)
 ;;B52GZZZ 
 ;;9002226.02101,"1804,B52GZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52H00Z ",.01)
 ;;B52H00Z 
 ;;9002226.02101,"1804,B52H00Z ",.02)
 ;;B52H00Z 
 ;;9002226.02101,"1804,B52H00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52H0ZZ ",.01)
 ;;B52H0ZZ 
 ;;9002226.02101,"1804,B52H0ZZ ",.02)
 ;;B52H0ZZ 
 ;;9002226.02101,"1804,B52H0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52H10Z ",.01)
 ;;B52H10Z 
 ;;9002226.02101,"1804,B52H10Z ",.02)
 ;;B52H10Z 
 ;;9002226.02101,"1804,B52H10Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52H1ZZ ",.01)
 ;;B52H1ZZ 
 ;;9002226.02101,"1804,B52H1ZZ ",.02)
 ;;B52H1ZZ 
 ;;9002226.02101,"1804,B52H1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52HY0Z ",.01)
 ;;B52HY0Z 
 ;;9002226.02101,"1804,B52HY0Z ",.02)
 ;;B52HY0Z 
 ;;9002226.02101,"1804,B52HY0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52HYZZ ",.01)
 ;;B52HYZZ 
 ;;9002226.02101,"1804,B52HYZZ ",.02)
 ;;B52HYZZ 
 ;;9002226.02101,"1804,B52HYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52HZZZ ",.01)
 ;;B52HZZZ 
 ;;9002226.02101,"1804,B52HZZZ ",.02)
 ;;B52HZZZ 
 ;;9002226.02101,"1804,B52HZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52J00Z ",.01)
 ;;B52J00Z 
 ;;9002226.02101,"1804,B52J00Z ",.02)
 ;;B52J00Z 
 ;;9002226.02101,"1804,B52J00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52J0ZZ ",.01)
 ;;B52J0ZZ 
 ;;9002226.02101,"1804,B52J0ZZ ",.02)
 ;;B52J0ZZ 
 ;;9002226.02101,"1804,B52J0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52J10Z ",.01)
 ;;B52J10Z 
 ;;9002226.02101,"1804,B52J10Z ",.02)
 ;;B52J10Z 
 ;;9002226.02101,"1804,B52J10Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52J1ZZ ",.01)
 ;;B52J1ZZ 
 ;;9002226.02101,"1804,B52J1ZZ ",.02)
 ;;B52J1ZZ 
 ;;9002226.02101,"1804,B52J1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52JY0Z ",.01)
 ;;B52JY0Z 
 ;;9002226.02101,"1804,B52JY0Z ",.02)
 ;;B52JY0Z 
 ;;9002226.02101,"1804,B52JY0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52JYZZ ",.01)
 ;;B52JYZZ 
 ;;9002226.02101,"1804,B52JYZZ ",.02)
 ;;B52JYZZ 
 ;;9002226.02101,"1804,B52JYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52JZZZ ",.01)
 ;;B52JZZZ 
 ;;9002226.02101,"1804,B52JZZZ ",.02)
 ;;B52JZZZ 
 ;;9002226.02101,"1804,B52JZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52K00Z ",.01)
 ;;B52K00Z 
 ;;9002226.02101,"1804,B52K00Z ",.02)
 ;;B52K00Z 
 ;;9002226.02101,"1804,B52K00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52K0ZZ ",.01)
 ;;B52K0ZZ 
 ;;9002226.02101,"1804,B52K0ZZ ",.02)
 ;;B52K0ZZ 
 ;;9002226.02101,"1804,B52K0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52K10Z ",.01)
 ;;B52K10Z 
 ;;9002226.02101,"1804,B52K10Z ",.02)
 ;;B52K10Z 
 ;;9002226.02101,"1804,B52K10Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52K1ZZ ",.01)
 ;;B52K1ZZ 
 ;;9002226.02101,"1804,B52K1ZZ ",.02)
 ;;B52K1ZZ 
 ;;9002226.02101,"1804,B52K1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52KY0Z ",.01)
 ;;B52KY0Z 
 ;;9002226.02101,"1804,B52KY0Z ",.02)
 ;;B52KY0Z 
 ;;9002226.02101,"1804,B52KY0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52KYZZ ",.01)
 ;;B52KYZZ 
 ;;9002226.02101,"1804,B52KYZZ ",.02)
 ;;B52KYZZ 
 ;;9002226.02101,"1804,B52KYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52KZZZ ",.01)
 ;;B52KZZZ 
 ;;9002226.02101,"1804,B52KZZZ ",.02)
 ;;B52KZZZ 
 ;;9002226.02101,"1804,B52KZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52L00Z ",.01)
 ;;B52L00Z 
 ;;9002226.02101,"1804,B52L00Z ",.02)
 ;;B52L00Z 
 ;;9002226.02101,"1804,B52L00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52L0ZZ ",.01)
 ;;B52L0ZZ 
 ;;9002226.02101,"1804,B52L0ZZ ",.02)
 ;;B52L0ZZ 
 ;;9002226.02101,"1804,B52L0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52L10Z ",.01)
 ;;B52L10Z 
 ;;9002226.02101,"1804,B52L10Z ",.02)
 ;;B52L10Z 
 ;;9002226.02101,"1804,B52L10Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52L1ZZ ",.01)
 ;;B52L1ZZ 
 ;;9002226.02101,"1804,B52L1ZZ ",.02)
 ;;B52L1ZZ 
 ;;9002226.02101,"1804,B52L1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52LY0Z ",.01)
 ;;B52LY0Z 
 ;;9002226.02101,"1804,B52LY0Z ",.02)
 ;;B52LY0Z 
 ;;9002226.02101,"1804,B52LY0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52LYZZ ",.01)
 ;;B52LYZZ 
 ;;9002226.02101,"1804,B52LYZZ ",.02)
 ;;B52LYZZ 
 ;;9002226.02101,"1804,B52LYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52LZZZ ",.01)
 ;;B52LZZZ 
 ;;9002226.02101,"1804,B52LZZZ ",.02)
 ;;B52LZZZ 
 ;;9002226.02101,"1804,B52LZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52Q00Z ",.01)
 ;;B52Q00Z 
 ;;9002226.02101,"1804,B52Q00Z ",.02)
 ;;B52Q00Z 
 ;;9002226.02101,"1804,B52Q00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52Q0ZZ ",.01)
 ;;B52Q0ZZ 
 ;;9002226.02101,"1804,B52Q0ZZ ",.02)
 ;;B52Q0ZZ 
 ;;9002226.02101,"1804,B52Q0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52Q10Z ",.01)
 ;;B52Q10Z 
 ;;9002226.02101,"1804,B52Q10Z ",.02)
 ;;B52Q10Z 
 ;;9002226.02101,"1804,B52Q10Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52Q1ZZ ",.01)
 ;;B52Q1ZZ 
 ;;9002226.02101,"1804,B52Q1ZZ ",.02)
 ;;B52Q1ZZ 
 ;;9002226.02101,"1804,B52Q1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52QY0Z ",.01)
 ;;B52QY0Z 
 ;;9002226.02101,"1804,B52QY0Z ",.02)
 ;;B52QY0Z 
 ;;9002226.02101,"1804,B52QY0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52QYZZ ",.01)
 ;;B52QYZZ 
 ;;9002226.02101,"1804,B52QYZZ ",.02)
 ;;B52QYZZ 
 ;;9002226.02101,"1804,B52QYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52QZZZ ",.01)
 ;;B52QZZZ 
 ;;9002226.02101,"1804,B52QZZZ ",.02)
 ;;B52QZZZ 
 ;;9002226.02101,"1804,B52QZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52R00Z ",.01)
 ;;B52R00Z 
 ;;9002226.02101,"1804,B52R00Z ",.02)
 ;;B52R00Z 
 ;;9002226.02101,"1804,B52R00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52R0ZZ ",.01)
 ;;B52R0ZZ 
 ;;9002226.02101,"1804,B52R0ZZ ",.02)
 ;;B52R0ZZ 
 ;;9002226.02101,"1804,B52R0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52R10Z ",.01)
 ;;B52R10Z 
 ;;9002226.02101,"1804,B52R10Z ",.02)
 ;;B52R10Z 
 ;;9002226.02101,"1804,B52R10Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52R1ZZ ",.01)
 ;;B52R1ZZ 
 ;;9002226.02101,"1804,B52R1ZZ ",.02)
 ;;B52R1ZZ 
 ;;9002226.02101,"1804,B52R1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52RY0Z ",.01)
 ;;B52RY0Z 
 ;;9002226.02101,"1804,B52RY0Z ",.02)
 ;;B52RY0Z 
 ;;9002226.02101,"1804,B52RY0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52RYZZ ",.01)
 ;;B52RYZZ 
 ;;9002226.02101,"1804,B52RYZZ ",.02)
 ;;B52RYZZ 
 ;;9002226.02101,"1804,B52RYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52RZZZ ",.01)
 ;;B52RZZZ 
 ;;9002226.02101,"1804,B52RZZZ ",.02)
 ;;B52RZZZ 
 ;;9002226.02101,"1804,B52RZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52S00Z ",.01)
 ;;B52S00Z 
 ;;9002226.02101,"1804,B52S00Z ",.02)
 ;;B52S00Z 
 ;;9002226.02101,"1804,B52S00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52S0ZZ ",.01)
 ;;B52S0ZZ 
 ;;9002226.02101,"1804,B52S0ZZ ",.02)
 ;;B52S0ZZ 
 ;;9002226.02101,"1804,B52S0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52S10Z ",.01)
 ;;B52S10Z 
 ;;9002226.02101,"1804,B52S10Z ",.02)
 ;;B52S10Z 
 ;;9002226.02101,"1804,B52S10Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52S1ZZ ",.01)
 ;;B52S1ZZ 
 ;;9002226.02101,"1804,B52S1ZZ ",.02)
 ;;B52S1ZZ 
 ;;9002226.02101,"1804,B52S1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52SY0Z ",.01)
 ;;B52SY0Z 
 ;;9002226.02101,"1804,B52SY0Z ",.02)
 ;;B52SY0Z 
 ;;9002226.02101,"1804,B52SY0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52SYZZ ",.01)
 ;;B52SYZZ 
 ;;9002226.02101,"1804,B52SYZZ ",.02)
 ;;B52SYZZ 
 ;;9002226.02101,"1804,B52SYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52SZZZ ",.01)
 ;;B52SZZZ 
 ;;9002226.02101,"1804,B52SZZZ ",.02)
 ;;B52SZZZ 
 ;;9002226.02101,"1804,B52SZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52T00Z ",.01)
 ;;B52T00Z 
 ;;9002226.02101,"1804,B52T00Z ",.02)
 ;;B52T00Z 
 ;;9002226.02101,"1804,B52T00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52T0ZZ ",.01)
 ;;B52T0ZZ 
 ;;9002226.02101,"1804,B52T0ZZ ",.02)
 ;;B52T0ZZ 
 ;;9002226.02101,"1804,B52T0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52T10Z ",.01)
 ;;B52T10Z 
 ;;9002226.02101,"1804,B52T10Z ",.02)
 ;;B52T10Z 
 ;;9002226.02101,"1804,B52T10Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52T1ZZ ",.01)
 ;;B52T1ZZ 
 ;;9002226.02101,"1804,B52T1ZZ ",.02)
 ;;B52T1ZZ 
 ;;9002226.02101,"1804,B52T1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52TY0Z ",.01)
 ;;B52TY0Z 
 ;;9002226.02101,"1804,B52TY0Z ",.02)
 ;;B52TY0Z 
 ;;9002226.02101,"1804,B52TY0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52TYZZ ",.01)
 ;;B52TYZZ 
 ;;9002226.02101,"1804,B52TYZZ ",.02)
 ;;B52TYZZ 
 ;;9002226.02101,"1804,B52TYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52TZZZ ",.01)
 ;;B52TZZZ 
 ;;9002226.02101,"1804,B52TZZZ ",.02)
 ;;B52TZZZ 
 ;;9002226.02101,"1804,B52TZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B531Y0Z ",.01)
 ;;B531Y0Z 
 ;;9002226.02101,"1804,B531Y0Z ",.02)
 ;;B531Y0Z 
 ;;9002226.02101,"1804,B531Y0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B531YZZ ",.01)
 ;;B531YZZ 
 ;;9002226.02101,"1804,B531YZZ ",.02)
 ;;B531YZZ 
 ;;9002226.02101,"1804,B531YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B531ZZZ ",.01)
 ;;B531ZZZ 
 ;;9002226.02101,"1804,B531ZZZ ",.02)
 ;;B531ZZZ 
 ;;9002226.02101,"1804,B531ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B532Y0Z ",.01)
 ;;B532Y0Z 
 ;;9002226.02101,"1804,B532Y0Z ",.02)
 ;;B532Y0Z 
 ;;9002226.02101,"1804,B532Y0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B532YZZ ",.01)
 ;;B532YZZ 
 ;;9002226.02101,"1804,B532YZZ ",.02)
 ;;B532YZZ 
 ;;9002226.02101,"1804,B532YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B532ZZZ ",.01)
 ;;B532ZZZ 
 ;;9002226.02101,"1804,B532ZZZ ",.02)
 ;;B532ZZZ 
 ;;9002226.02101,"1804,B532ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B535Y0Z ",.01)
 ;;B535Y0Z 
 ;;9002226.02101,"1804,B535Y0Z ",.02)
 ;;B535Y0Z 
 ;;9002226.02101,"1804,B535Y0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B535YZZ ",.01)
 ;;B535YZZ 
 ;;9002226.02101,"1804,B535YZZ ",.02)
 ;;B535YZZ 
 ;;9002226.02101,"1804,B535YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B535ZZZ ",.01)
 ;;B535ZZZ 
 ;;9002226.02101,"1804,B535ZZZ ",.02)
 ;;B535ZZZ 
 ;;9002226.02101,"1804,B535ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B538Y0Z ",.01)
 ;;B538Y0Z 
 ;;9002226.02101,"1804,B538Y0Z ",.02)
 ;;B538Y0Z 
 ;;9002226.02101,"1804,B538Y0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B538YZZ ",.01)
 ;;B538YZZ 
 ;;9002226.02101,"1804,B538YZZ ",.02)
 ;;B538YZZ 
 ;;9002226.02101,"1804,B538YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B538ZZZ ",.01)
 ;;B538ZZZ 
 ;;9002226.02101,"1804,B538ZZZ ",.02)
 ;;B538ZZZ 
 ;;9002226.02101,"1804,B538ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B539Y0Z ",.01)
 ;;B539Y0Z 
 ;;9002226.02101,"1804,B539Y0Z ",.02)
 ;;B539Y0Z 
 ;;9002226.02101,"1804,B539Y0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B539YZZ ",.01)
 ;;B539YZZ 
 ;;9002226.02101,"1804,B539YZZ ",.02)
 ;;B539YZZ 
 ;;9002226.02101,"1804,B539YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B539ZZZ ",.01)
 ;;B539ZZZ 
 ;;9002226.02101,"1804,B539ZZZ ",.02)
 ;;B539ZZZ 
 ;;9002226.02101,"1804,B539ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B53BY0Z ",.01)
 ;;B53BY0Z 
 ;;9002226.02101,"1804,B53BY0Z ",.02)
 ;;B53BY0Z 
 ;;9002226.02101,"1804,B53BY0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B53BYZZ ",.01)
 ;;B53BYZZ 
 ;;9002226.02101,"1804,B53BYZZ ",.02)
 ;;B53BYZZ 
 ;;9002226.02101,"1804,B53BYZZ ",.03)
 ;;31