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

ATXXB188.m

Go to the documentation of this file.
ATXXB188 ;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,B51PZZZ ",.02)
 ;;B51PZZZ 
 ;;9002226.02101,"1804,B51PZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51Q0ZA ",.01)
 ;;B51Q0ZA 
 ;;9002226.02101,"1804,B51Q0ZA ",.02)
 ;;B51Q0ZA 
 ;;9002226.02101,"1804,B51Q0ZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51Q0ZZ ",.01)
 ;;B51Q0ZZ 
 ;;9002226.02101,"1804,B51Q0ZZ ",.02)
 ;;B51Q0ZZ 
 ;;9002226.02101,"1804,B51Q0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51Q1ZA ",.01)
 ;;B51Q1ZA 
 ;;9002226.02101,"1804,B51Q1ZA ",.02)
 ;;B51Q1ZA 
 ;;9002226.02101,"1804,B51Q1ZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51Q1ZZ ",.01)
 ;;B51Q1ZZ 
 ;;9002226.02101,"1804,B51Q1ZZ ",.02)
 ;;B51Q1ZZ 
 ;;9002226.02101,"1804,B51Q1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51QYZA ",.01)
 ;;B51QYZA 
 ;;9002226.02101,"1804,B51QYZA ",.02)
 ;;B51QYZA 
 ;;9002226.02101,"1804,B51QYZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51QYZZ ",.01)
 ;;B51QYZZ 
 ;;9002226.02101,"1804,B51QYZZ ",.02)
 ;;B51QYZZ 
 ;;9002226.02101,"1804,B51QYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51QZZA ",.01)
 ;;B51QZZA 
 ;;9002226.02101,"1804,B51QZZA ",.02)
 ;;B51QZZA 
 ;;9002226.02101,"1804,B51QZZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51QZZZ ",.01)
 ;;B51QZZZ 
 ;;9002226.02101,"1804,B51QZZZ ",.02)
 ;;B51QZZZ 
 ;;9002226.02101,"1804,B51QZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51R0ZA ",.01)
 ;;B51R0ZA 
 ;;9002226.02101,"1804,B51R0ZA ",.02)
 ;;B51R0ZA 
 ;;9002226.02101,"1804,B51R0ZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51R0ZZ ",.01)
 ;;B51R0ZZ 
 ;;9002226.02101,"1804,B51R0ZZ ",.02)
 ;;B51R0ZZ 
 ;;9002226.02101,"1804,B51R0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51R1ZA ",.01)
 ;;B51R1ZA 
 ;;9002226.02101,"1804,B51R1ZA ",.02)
 ;;B51R1ZA 
 ;;9002226.02101,"1804,B51R1ZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51R1ZZ ",.01)
 ;;B51R1ZZ 
 ;;9002226.02101,"1804,B51R1ZZ ",.02)
 ;;B51R1ZZ 
 ;;9002226.02101,"1804,B51R1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51RYZA ",.01)
 ;;B51RYZA 
 ;;9002226.02101,"1804,B51RYZA ",.02)
 ;;B51RYZA 
 ;;9002226.02101,"1804,B51RYZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51RYZZ ",.01)
 ;;B51RYZZ 
 ;;9002226.02101,"1804,B51RYZZ ",.02)
 ;;B51RYZZ 
 ;;9002226.02101,"1804,B51RYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51RZZA ",.01)
 ;;B51RZZA 
 ;;9002226.02101,"1804,B51RZZA ",.02)
 ;;B51RZZA 
 ;;9002226.02101,"1804,B51RZZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51RZZZ ",.01)
 ;;B51RZZZ 
 ;;9002226.02101,"1804,B51RZZZ ",.02)
 ;;B51RZZZ 
 ;;9002226.02101,"1804,B51RZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51S0ZA ",.01)
 ;;B51S0ZA 
 ;;9002226.02101,"1804,B51S0ZA ",.02)
 ;;B51S0ZA 
 ;;9002226.02101,"1804,B51S0ZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51S0ZZ ",.01)
 ;;B51S0ZZ 
 ;;9002226.02101,"1804,B51S0ZZ ",.02)
 ;;B51S0ZZ 
 ;;9002226.02101,"1804,B51S0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51S1ZA ",.01)
 ;;B51S1ZA 
 ;;9002226.02101,"1804,B51S1ZA ",.02)
 ;;B51S1ZA 
 ;;9002226.02101,"1804,B51S1ZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51S1ZZ ",.01)
 ;;B51S1ZZ 
 ;;9002226.02101,"1804,B51S1ZZ ",.02)
 ;;B51S1ZZ 
 ;;9002226.02101,"1804,B51S1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51SYZA ",.01)
 ;;B51SYZA 
 ;;9002226.02101,"1804,B51SYZA ",.02)
 ;;B51SYZA 
 ;;9002226.02101,"1804,B51SYZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51SYZZ ",.01)
 ;;B51SYZZ 
 ;;9002226.02101,"1804,B51SYZZ ",.02)
 ;;B51SYZZ 
 ;;9002226.02101,"1804,B51SYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51SZZA ",.01)
 ;;B51SZZA 
 ;;9002226.02101,"1804,B51SZZA ",.02)
 ;;B51SZZA 
 ;;9002226.02101,"1804,B51SZZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51SZZZ ",.01)
 ;;B51SZZZ 
 ;;9002226.02101,"1804,B51SZZZ ",.02)
 ;;B51SZZZ 
 ;;9002226.02101,"1804,B51SZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51T0ZA ",.01)
 ;;B51T0ZA 
 ;;9002226.02101,"1804,B51T0ZA ",.02)
 ;;B51T0ZA 
 ;;9002226.02101,"1804,B51T0ZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51T0ZZ ",.01)
 ;;B51T0ZZ 
 ;;9002226.02101,"1804,B51T0ZZ ",.02)
 ;;B51T0ZZ 
 ;;9002226.02101,"1804,B51T0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51T1ZA ",.01)
 ;;B51T1ZA 
 ;;9002226.02101,"1804,B51T1ZA ",.02)
 ;;B51T1ZA 
 ;;9002226.02101,"1804,B51T1ZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51T1ZZ ",.01)
 ;;B51T1ZZ 
 ;;9002226.02101,"1804,B51T1ZZ ",.02)
 ;;B51T1ZZ 
 ;;9002226.02101,"1804,B51T1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51TYZA ",.01)
 ;;B51TYZA 
 ;;9002226.02101,"1804,B51TYZA ",.02)
 ;;B51TYZA 
 ;;9002226.02101,"1804,B51TYZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51TYZZ ",.01)
 ;;B51TYZZ 
 ;;9002226.02101,"1804,B51TYZZ ",.02)
 ;;B51TYZZ 
 ;;9002226.02101,"1804,B51TYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51TZZA ",.01)
 ;;B51TZZA 
 ;;9002226.02101,"1804,B51TZZA ",.02)
 ;;B51TZZA 
 ;;9002226.02101,"1804,B51TZZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51TZZZ ",.01)
 ;;B51TZZZ 
 ;;9002226.02101,"1804,B51TZZZ ",.02)
 ;;B51TZZZ 
 ;;9002226.02101,"1804,B51TZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51V0ZA ",.01)
 ;;B51V0ZA 
 ;;9002226.02101,"1804,B51V0ZA ",.02)
 ;;B51V0ZA 
 ;;9002226.02101,"1804,B51V0ZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51V0ZZ ",.01)
 ;;B51V0ZZ 
 ;;9002226.02101,"1804,B51V0ZZ ",.02)
 ;;B51V0ZZ 
 ;;9002226.02101,"1804,B51V0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51V1ZA ",.01)
 ;;B51V1ZA 
 ;;9002226.02101,"1804,B51V1ZA ",.02)
 ;;B51V1ZA 
 ;;9002226.02101,"1804,B51V1ZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51V1ZZ ",.01)
 ;;B51V1ZZ 
 ;;9002226.02101,"1804,B51V1ZZ ",.02)
 ;;B51V1ZZ 
 ;;9002226.02101,"1804,B51V1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51VYZA ",.01)
 ;;B51VYZA 
 ;;9002226.02101,"1804,B51VYZA ",.02)
 ;;B51VYZA 
 ;;9002226.02101,"1804,B51VYZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51VYZZ ",.01)
 ;;B51VYZZ 
 ;;9002226.02101,"1804,B51VYZZ ",.02)
 ;;B51VYZZ 
 ;;9002226.02101,"1804,B51VYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51VZZA ",.01)
 ;;B51VZZA 
 ;;9002226.02101,"1804,B51VZZA ",.02)
 ;;B51VZZA 
 ;;9002226.02101,"1804,B51VZZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51VZZZ ",.01)
 ;;B51VZZZ 
 ;;9002226.02101,"1804,B51VZZZ ",.02)
 ;;B51VZZZ 
 ;;9002226.02101,"1804,B51VZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51W0ZA ",.01)
 ;;B51W0ZA 
 ;;9002226.02101,"1804,B51W0ZA ",.02)
 ;;B51W0ZA 
 ;;9002226.02101,"1804,B51W0ZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51W0ZZ ",.01)
 ;;B51W0ZZ 
 ;;9002226.02101,"1804,B51W0ZZ ",.02)
 ;;B51W0ZZ 
 ;;9002226.02101,"1804,B51W0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51W1ZA ",.01)
 ;;B51W1ZA 
 ;;9002226.02101,"1804,B51W1ZA ",.02)
 ;;B51W1ZA 
 ;;9002226.02101,"1804,B51W1ZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51W1ZZ ",.01)
 ;;B51W1ZZ 
 ;;9002226.02101,"1804,B51W1ZZ ",.02)
 ;;B51W1ZZ 
 ;;9002226.02101,"1804,B51W1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51WYZA ",.01)
 ;;B51WYZA 
 ;;9002226.02101,"1804,B51WYZA ",.02)
 ;;B51WYZA 
 ;;9002226.02101,"1804,B51WYZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51WYZZ ",.01)
 ;;B51WYZZ 
 ;;9002226.02101,"1804,B51WYZZ ",.02)
 ;;B51WYZZ 
 ;;9002226.02101,"1804,B51WYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B51WZZA ",.01)
 ;;B51WZZA 
 ;;9002226.02101,"1804,B51WZZA ",.02)
 ;;B51WZZA 
 ;;9002226.02101,"1804,B51WZZA ",.03)
 ;;31
 ;;9002226.02101,"1804,B51WZZZ ",.01)
 ;;B51WZZZ 
 ;;9002226.02101,"1804,B51WZZZ ",.02)
 ;;B51WZZZ 
 ;;9002226.02101,"1804,B51WZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52200Z ",.01)
 ;;B52200Z 
 ;;9002226.02101,"1804,B52200Z ",.02)
 ;;B52200Z 
 ;;9002226.02101,"1804,B52200Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B5220ZZ ",.01)
 ;;B5220ZZ 
 ;;9002226.02101,"1804,B5220ZZ ",.02)
 ;;B5220ZZ 
 ;;9002226.02101,"1804,B5220ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52210Z ",.01)
 ;;B52210Z 
 ;;9002226.02101,"1804,B52210Z ",.02)
 ;;B52210Z 
 ;;9002226.02101,"1804,B52210Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B5221ZZ ",.01)
 ;;B5221ZZ 
 ;;9002226.02101,"1804,B5221ZZ ",.02)
 ;;B5221ZZ 
 ;;9002226.02101,"1804,B5221ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B522Y0Z ",.01)
 ;;B522Y0Z 
 ;;9002226.02101,"1804,B522Y0Z ",.02)
 ;;B522Y0Z 
 ;;9002226.02101,"1804,B522Y0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B522YZZ ",.01)
 ;;B522YZZ 
 ;;9002226.02101,"1804,B522YZZ ",.02)
 ;;B522YZZ 
 ;;9002226.02101,"1804,B522YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B522ZZZ ",.01)
 ;;B522ZZZ 
 ;;9002226.02101,"1804,B522ZZZ ",.02)
 ;;B522ZZZ 
 ;;9002226.02101,"1804,B522ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52800Z ",.01)
 ;;B52800Z 
 ;;9002226.02101,"1804,B52800Z ",.02)
 ;;B52800Z 
 ;;9002226.02101,"1804,B52800Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B5280ZZ ",.01)
 ;;B5280ZZ 
 ;;9002226.02101,"1804,B5280ZZ ",.02)
 ;;B5280ZZ 
 ;;9002226.02101,"1804,B5280ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52810Z ",.01)
 ;;B52810Z 
 ;;9002226.02101,"1804,B52810Z ",.02)
 ;;B52810Z 
 ;;9002226.02101,"1804,B52810Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B5281ZZ ",.01)
 ;;B5281ZZ 
 ;;9002226.02101,"1804,B5281ZZ ",.02)
 ;;B5281ZZ 
 ;;9002226.02101,"1804,B5281ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B528Y0Z ",.01)
 ;;B528Y0Z 
 ;;9002226.02101,"1804,B528Y0Z ",.02)
 ;;B528Y0Z 
 ;;9002226.02101,"1804,B528Y0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B528YZZ ",.01)
 ;;B528YZZ 
 ;;9002226.02101,"1804,B528YZZ ",.02)
 ;;B528YZZ 
 ;;9002226.02101,"1804,B528YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B528ZZZ ",.01)
 ;;B528ZZZ 
 ;;9002226.02101,"1804,B528ZZZ ",.02)
 ;;B528ZZZ 
 ;;9002226.02101,"1804,B528ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52900Z ",.01)
 ;;B52900Z 
 ;;9002226.02101,"1804,B52900Z ",.02)
 ;;B52900Z 
 ;;9002226.02101,"1804,B52900Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B5290ZZ ",.01)
 ;;B5290ZZ 
 ;;9002226.02101,"1804,B5290ZZ ",.02)
 ;;B5290ZZ 
 ;;9002226.02101,"1804,B5290ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52910Z ",.01)
 ;;B52910Z 
 ;;9002226.02101,"1804,B52910Z ",.02)
 ;;B52910Z 
 ;;9002226.02101,"1804,B52910Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B5291ZZ ",.01)
 ;;B5291ZZ 
 ;;9002226.02101,"1804,B5291ZZ ",.02)
 ;;B5291ZZ 
 ;;9002226.02101,"1804,B5291ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B529Y0Z ",.01)
 ;;B529Y0Z 
 ;;9002226.02101,"1804,B529Y0Z ",.02)
 ;;B529Y0Z 
 ;;9002226.02101,"1804,B529Y0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B529YZZ ",.01)
 ;;B529YZZ 
 ;;9002226.02101,"1804,B529YZZ ",.02)
 ;;B529YZZ 
 ;;9002226.02101,"1804,B529YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B529ZZZ ",.01)
 ;;B529ZZZ 
 ;;9002226.02101,"1804,B529ZZZ ",.02)
 ;;B529ZZZ 
 ;;9002226.02101,"1804,B529ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52F00Z ",.01)
 ;;B52F00Z 
 ;;9002226.02101,"1804,B52F00Z ",.02)
 ;;B52F00Z 
 ;;9002226.02101,"1804,B52F00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52F0ZZ ",.01)
 ;;B52F0ZZ 
 ;;9002226.02101,"1804,B52F0ZZ ",.02)
 ;;B52F0ZZ 
 ;;9002226.02101,"1804,B52F0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52F10Z ",.01)
 ;;B52F10Z 
 ;;9002226.02101,"1804,B52F10Z ",.02)
 ;;B52F10Z 
 ;;9002226.02101,"1804,B52F10Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52F1ZZ ",.01)
 ;;B52F1ZZ 
 ;;9002226.02101,"1804,B52F1ZZ ",.02)
 ;;B52F1ZZ 
 ;;9002226.02101,"1804,B52F1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52FY0Z ",.01)
 ;;B52FY0Z 
 ;;9002226.02101,"1804,B52FY0Z ",.02)
 ;;B52FY0Z 
 ;;9002226.02101,"1804,B52FY0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52FYZZ ",.01)
 ;;B52FYZZ 
 ;;9002226.02101,"1804,B52FYZZ ",.02)
 ;;B52FYZZ 
 ;;9002226.02101,"1804,B52FYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52FZZZ ",.01)
 ;;B52FZZZ 
 ;;9002226.02101,"1804,B52FZZZ ",.02)
 ;;B52FZZZ 
 ;;9002226.02101,"1804,B52FZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,B52G00Z ",.01)
 ;;B52G00Z 
 ;;9002226.02101,"1804,B52G00Z ",.02)
 ;;B52G00Z 
 ;;9002226.02101,"1804,B52G00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,B52G0ZZ ",.01)
 ;;B52G0ZZ 
 ;;9002226.02101,"1804,B52G0ZZ ",.02)
 ;;B52G0ZZ