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

ATXXB180.m

Go to the documentation of this file.
ATXXB180 ;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,B30RZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B30S0ZZ ",.01)
 ;;B30S0ZZ 
 ;;9002226.02101,"1804,B30S0ZZ ",.02)
 ;;B30S0ZZ 
 ;;9002226.02101,"1804,B30S0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B30S1ZZ ",.01)
 ;;B30S1ZZ 
 ;;9002226.02101,"1804,B30S1ZZ ",.02)
 ;;B30S1ZZ 
 ;;9002226.02101,"1804,B30S1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B30SYZZ ",.01)
 ;;B30SYZZ 
 ;;9002226.02101,"1804,B30SYZZ ",.02)
 ;;B30SYZZ 
 ;;9002226.02101,"1804,B30SYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B30SZZZ ",.01)
 ;;B30SZZZ 
 ;;9002226.02101,"1804,B30SZZZ ",.02)
 ;;B30SZZZ 
 ;;9002226.02101,"1804,B30SZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B30T0ZZ ",.01)
 ;;B30T0ZZ 
 ;;9002226.02101,"1804,B30T0ZZ ",.02)
 ;;B30T0ZZ 
 ;;9002226.02101,"1804,B30T0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B30T1ZZ ",.01)
 ;;B30T1ZZ 
 ;;9002226.02101,"1804,B30T1ZZ ",.02)
 ;;B30T1ZZ 
 ;;9002226.02101,"1804,B30T1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B30TYZZ ",.01)
 ;;B30TYZZ 
 ;;9002226.02101,"1804,B30TYZZ ",.02)
 ;;B30TYZZ 
 ;;9002226.02101,"1804,B30TYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B30TZZZ ",.01)
 ;;B30TZZZ 
 ;;9002226.02101,"1804,B30TZZZ ",.02)
 ;;B30TZZZ 
 ;;9002226.02101,"1804,B30TZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3100ZZ ",.01)
 ;;B3100ZZ 
 ;;9002226.02101,"1804,B3100ZZ ",.02)
 ;;B3100ZZ 
 ;;9002226.02101,"1804,B3100ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3101ZZ ",.01)
 ;;B3101ZZ 
 ;;9002226.02101,"1804,B3101ZZ ",.02)
 ;;B3101ZZ 
 ;;9002226.02101,"1804,B3101ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B310YZZ ",.01)
 ;;B310YZZ 
 ;;9002226.02101,"1804,B310YZZ ",.02)
 ;;B310YZZ 
 ;;9002226.02101,"1804,B310YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B310ZZZ ",.01)
 ;;B310ZZZ 
 ;;9002226.02101,"1804,B310ZZZ ",.02)
 ;;B310ZZZ 
 ;;9002226.02101,"1804,B310ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3110ZZ ",.01)
 ;;B3110ZZ 
 ;;9002226.02101,"1804,B3110ZZ ",.02)
 ;;B3110ZZ 
 ;;9002226.02101,"1804,B3110ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3111ZZ ",.01)
 ;;B3111ZZ 
 ;;9002226.02101,"1804,B3111ZZ ",.02)
 ;;B3111ZZ 
 ;;9002226.02101,"1804,B3111ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B311YZZ ",.01)
 ;;B311YZZ 
 ;;9002226.02101,"1804,B311YZZ ",.02)
 ;;B311YZZ 
 ;;9002226.02101,"1804,B311YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B311ZZZ ",.01)
 ;;B311ZZZ 
 ;;9002226.02101,"1804,B311ZZZ ",.02)
 ;;B311ZZZ 
 ;;9002226.02101,"1804,B311ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3120ZZ ",.01)
 ;;B3120ZZ 
 ;;9002226.02101,"1804,B3120ZZ ",.02)
 ;;B3120ZZ 
 ;;9002226.02101,"1804,B3120ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3121ZZ ",.01)
 ;;B3121ZZ 
 ;;9002226.02101,"1804,B3121ZZ ",.02)
 ;;B3121ZZ 
 ;;9002226.02101,"1804,B3121ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B312YZZ ",.01)
 ;;B312YZZ 
 ;;9002226.02101,"1804,B312YZZ ",.02)
 ;;B312YZZ 
 ;;9002226.02101,"1804,B312YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B312ZZZ ",.01)
 ;;B312ZZZ 
 ;;9002226.02101,"1804,B312ZZZ ",.02)
 ;;B312ZZZ 
 ;;9002226.02101,"1804,B312ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3130ZZ ",.01)
 ;;B3130ZZ 
 ;;9002226.02101,"1804,B3130ZZ ",.02)
 ;;B3130ZZ 
 ;;9002226.02101,"1804,B3130ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3131ZZ ",.01)
 ;;B3131ZZ 
 ;;9002226.02101,"1804,B3131ZZ ",.02)
 ;;B3131ZZ 
 ;;9002226.02101,"1804,B3131ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B313YZZ ",.01)
 ;;B313YZZ 
 ;;9002226.02101,"1804,B313YZZ ",.02)
 ;;B313YZZ 
 ;;9002226.02101,"1804,B313YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B313ZZZ ",.01)
 ;;B313ZZZ 
 ;;9002226.02101,"1804,B313ZZZ ",.02)
 ;;B313ZZZ 
 ;;9002226.02101,"1804,B313ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3140ZZ ",.01)
 ;;B3140ZZ 
 ;;9002226.02101,"1804,B3140ZZ ",.02)
 ;;B3140ZZ 
 ;;9002226.02101,"1804,B3140ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3141ZZ ",.01)
 ;;B3141ZZ 
 ;;9002226.02101,"1804,B3141ZZ ",.02)
 ;;B3141ZZ 
 ;;9002226.02101,"1804,B3141ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B314YZZ ",.01)
 ;;B314YZZ 
 ;;9002226.02101,"1804,B314YZZ ",.02)
 ;;B314YZZ 
 ;;9002226.02101,"1804,B314YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B314ZZZ ",.01)
 ;;B314ZZZ 
 ;;9002226.02101,"1804,B314ZZZ ",.02)
 ;;B314ZZZ 
 ;;9002226.02101,"1804,B314ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3150ZZ ",.01)
 ;;B3150ZZ 
 ;;9002226.02101,"1804,B3150ZZ ",.02)
 ;;B3150ZZ 
 ;;9002226.02101,"1804,B3150ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3151ZZ ",.01)
 ;;B3151ZZ 
 ;;9002226.02101,"1804,B3151ZZ ",.02)
 ;;B3151ZZ 
 ;;9002226.02101,"1804,B3151ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B315YZZ ",.01)
 ;;B315YZZ 
 ;;9002226.02101,"1804,B315YZZ ",.02)
 ;;B315YZZ 
 ;;9002226.02101,"1804,B315YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B315ZZZ ",.01)
 ;;B315ZZZ 
 ;;9002226.02101,"1804,B315ZZZ ",.02)
 ;;B315ZZZ 
 ;;9002226.02101,"1804,B315ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3160ZZ ",.01)
 ;;B3160ZZ 
 ;;9002226.02101,"1804,B3160ZZ ",.02)
 ;;B3160ZZ 
 ;;9002226.02101,"1804,B3160ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3161ZZ ",.01)
 ;;B3161ZZ 
 ;;9002226.02101,"1804,B3161ZZ ",.02)
 ;;B3161ZZ 
 ;;9002226.02101,"1804,B3161ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B316YZZ ",.01)
 ;;B316YZZ 
 ;;9002226.02101,"1804,B316YZZ ",.02)
 ;;B316YZZ 
 ;;9002226.02101,"1804,B316YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B316ZZZ ",.01)
 ;;B316ZZZ 
 ;;9002226.02101,"1804,B316ZZZ ",.02)
 ;;B316ZZZ 
 ;;9002226.02101,"1804,B316ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3170ZZ ",.01)
 ;;B3170ZZ 
 ;;9002226.02101,"1804,B3170ZZ ",.02)
 ;;B3170ZZ 
 ;;9002226.02101,"1804,B3170ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3171ZZ ",.01)
 ;;B3171ZZ 
 ;;9002226.02101,"1804,B3171ZZ ",.02)
 ;;B3171ZZ 
 ;;9002226.02101,"1804,B3171ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B317YZZ ",.01)
 ;;B317YZZ 
 ;;9002226.02101,"1804,B317YZZ ",.02)
 ;;B317YZZ 
 ;;9002226.02101,"1804,B317YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B317ZZZ ",.01)
 ;;B317ZZZ 
 ;;9002226.02101,"1804,B317ZZZ ",.02)
 ;;B317ZZZ 
 ;;9002226.02101,"1804,B317ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3180ZZ ",.01)
 ;;B3180ZZ 
 ;;9002226.02101,"1804,B3180ZZ ",.02)
 ;;B3180ZZ 
 ;;9002226.02101,"1804,B3180ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3181ZZ ",.01)
 ;;B3181ZZ 
 ;;9002226.02101,"1804,B3181ZZ ",.02)
 ;;B3181ZZ 
 ;;9002226.02101,"1804,B3181ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B318YZZ ",.01)
 ;;B318YZZ 
 ;;9002226.02101,"1804,B318YZZ ",.02)
 ;;B318YZZ 
 ;;9002226.02101,"1804,B318YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B318ZZZ ",.01)
 ;;B318ZZZ 
 ;;9002226.02101,"1804,B318ZZZ ",.02)
 ;;B318ZZZ 
 ;;9002226.02101,"1804,B318ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3190ZZ ",.01)
 ;;B3190ZZ 
 ;;9002226.02101,"1804,B3190ZZ ",.02)
 ;;B3190ZZ 
 ;;9002226.02101,"1804,B3190ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B3191ZZ ",.01)
 ;;B3191ZZ 
 ;;9002226.02101,"1804,B3191ZZ ",.02)
 ;;B3191ZZ 
 ;;9002226.02101,"1804,B3191ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B319YZZ ",.01)
 ;;B319YZZ 
 ;;9002226.02101,"1804,B319YZZ ",.02)
 ;;B319YZZ 
 ;;9002226.02101,"1804,B319YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B319ZZZ ",.01)
 ;;B319ZZZ 
 ;;9002226.02101,"1804,B319ZZZ ",.02)
 ;;B319ZZZ 
 ;;9002226.02101,"1804,B319ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31B0ZZ ",.01)
 ;;B31B0ZZ 
 ;;9002226.02101,"1804,B31B0ZZ ",.02)
 ;;B31B0ZZ 
 ;;9002226.02101,"1804,B31B0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31B1ZZ ",.01)
 ;;B31B1ZZ 
 ;;9002226.02101,"1804,B31B1ZZ ",.02)
 ;;B31B1ZZ 
 ;;9002226.02101,"1804,B31B1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31BYZZ ",.01)
 ;;B31BYZZ 
 ;;9002226.02101,"1804,B31BYZZ ",.02)
 ;;B31BYZZ 
 ;;9002226.02101,"1804,B31BYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31BZZZ ",.01)
 ;;B31BZZZ 
 ;;9002226.02101,"1804,B31BZZZ ",.02)
 ;;B31BZZZ 
 ;;9002226.02101,"1804,B31BZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31C0ZZ ",.01)
 ;;B31C0ZZ 
 ;;9002226.02101,"1804,B31C0ZZ ",.02)
 ;;B31C0ZZ 
 ;;9002226.02101,"1804,B31C0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31C1ZZ ",.01)
 ;;B31C1ZZ 
 ;;9002226.02101,"1804,B31C1ZZ ",.02)
 ;;B31C1ZZ 
 ;;9002226.02101,"1804,B31C1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31CYZZ ",.01)
 ;;B31CYZZ 
 ;;9002226.02101,"1804,B31CYZZ ",.02)
 ;;B31CYZZ 
 ;;9002226.02101,"1804,B31CYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31CZZZ ",.01)
 ;;B31CZZZ 
 ;;9002226.02101,"1804,B31CZZZ ",.02)
 ;;B31CZZZ 
 ;;9002226.02101,"1804,B31CZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31D0ZZ ",.01)
 ;;B31D0ZZ 
 ;;9002226.02101,"1804,B31D0ZZ ",.02)
 ;;B31D0ZZ 
 ;;9002226.02101,"1804,B31D0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31D1ZZ ",.01)
 ;;B31D1ZZ 
 ;;9002226.02101,"1804,B31D1ZZ ",.02)
 ;;B31D1ZZ 
 ;;9002226.02101,"1804,B31D1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31DYZZ ",.01)
 ;;B31DYZZ 
 ;;9002226.02101,"1804,B31DYZZ ",.02)
 ;;B31DYZZ 
 ;;9002226.02101,"1804,B31DYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31DZZZ ",.01)
 ;;B31DZZZ 
 ;;9002226.02101,"1804,B31DZZZ ",.02)
 ;;B31DZZZ 
 ;;9002226.02101,"1804,B31DZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31F0ZZ ",.01)
 ;;B31F0ZZ 
 ;;9002226.02101,"1804,B31F0ZZ ",.02)
 ;;B31F0ZZ 
 ;;9002226.02101,"1804,B31F0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31F1ZZ ",.01)
 ;;B31F1ZZ 
 ;;9002226.02101,"1804,B31F1ZZ ",.02)
 ;;B31F1ZZ 
 ;;9002226.02101,"1804,B31F1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31FYZZ ",.01)
 ;;B31FYZZ 
 ;;9002226.02101,"1804,B31FYZZ ",.02)
 ;;B31FYZZ 
 ;;9002226.02101,"1804,B31FYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31FZZZ ",.01)
 ;;B31FZZZ 
 ;;9002226.02101,"1804,B31FZZZ ",.02)
 ;;B31FZZZ 
 ;;9002226.02101,"1804,B31FZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31G0ZZ ",.01)
 ;;B31G0ZZ 
 ;;9002226.02101,"1804,B31G0ZZ ",.02)
 ;;B31G0ZZ 
 ;;9002226.02101,"1804,B31G0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31G1ZZ ",.01)
 ;;B31G1ZZ 
 ;;9002226.02101,"1804,B31G1ZZ ",.02)
 ;;B31G1ZZ 
 ;;9002226.02101,"1804,B31G1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31GYZZ ",.01)
 ;;B31GYZZ 
 ;;9002226.02101,"1804,B31GYZZ ",.02)
 ;;B31GYZZ 
 ;;9002226.02101,"1804,B31GYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31GZZZ ",.01)
 ;;B31GZZZ 
 ;;9002226.02101,"1804,B31GZZZ ",.02)
 ;;B31GZZZ 
 ;;9002226.02101,"1804,B31GZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31H0ZZ ",.01)
 ;;B31H0ZZ 
 ;;9002226.02101,"1804,B31H0ZZ ",.02)
 ;;B31H0ZZ 
 ;;9002226.02101,"1804,B31H0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31H1ZZ ",.01)
 ;;B31H1ZZ 
 ;;9002226.02101,"1804,B31H1ZZ ",.02)
 ;;B31H1ZZ 
 ;;9002226.02101,"1804,B31H1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31HYZZ ",.01)
 ;;B31HYZZ 
 ;;9002226.02101,"1804,B31HYZZ ",.02)
 ;;B31HYZZ 
 ;;9002226.02101,"1804,B31HYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31HZZZ ",.01)
 ;;B31HZZZ 
 ;;9002226.02101,"1804,B31HZZZ ",.02)
 ;;B31HZZZ 
 ;;9002226.02101,"1804,B31HZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31J0ZZ ",.01)
 ;;B31J0ZZ 
 ;;9002226.02101,"1804,B31J0ZZ ",.02)
 ;;B31J0ZZ 
 ;;9002226.02101,"1804,B31J0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31J1ZZ ",.01)
 ;;B31J1ZZ 
 ;;9002226.02101,"1804,B31J1ZZ ",.02)
 ;;B31J1ZZ 
 ;;9002226.02101,"1804,B31J1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31JYZZ ",.01)
 ;;B31JYZZ 
 ;;9002226.02101,"1804,B31JYZZ ",.02)
 ;;B31JYZZ 
 ;;9002226.02101,"1804,B31JYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31JZZZ ",.01)
 ;;B31JZZZ 
 ;;9002226.02101,"1804,B31JZZZ ",.02)
 ;;B31JZZZ 
 ;;9002226.02101,"1804,B31JZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31K0ZZ ",.01)
 ;;B31K0ZZ 
 ;;9002226.02101,"1804,B31K0ZZ ",.02)
 ;;B31K0ZZ 
 ;;9002226.02101,"1804,B31K0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B31K1ZZ ",.01)
 ;;B31K1ZZ 
 ;;9002226.02101,"1804,B31K1ZZ ",.02)
 ;;B31K1ZZ 
 ;;9002226.02101,"1804,B31K1ZZ ",.03)
 ;;31