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.
  1. ATXXB188 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1804,B51PZZZ ",.02)
  1. ;;B51PZZZ
  1. ;;9002226.02101,"1804,B51PZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51Q0ZA ",.01)
  1. ;;B51Q0ZA
  1. ;;9002226.02101,"1804,B51Q0ZA ",.02)
  1. ;;B51Q0ZA
  1. ;;9002226.02101,"1804,B51Q0ZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51Q0ZZ ",.01)
  1. ;;B51Q0ZZ
  1. ;;9002226.02101,"1804,B51Q0ZZ ",.02)
  1. ;;B51Q0ZZ
  1. ;;9002226.02101,"1804,B51Q0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51Q1ZA ",.01)
  1. ;;B51Q1ZA
  1. ;;9002226.02101,"1804,B51Q1ZA ",.02)
  1. ;;B51Q1ZA
  1. ;;9002226.02101,"1804,B51Q1ZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51Q1ZZ ",.01)
  1. ;;B51Q1ZZ
  1. ;;9002226.02101,"1804,B51Q1ZZ ",.02)
  1. ;;B51Q1ZZ
  1. ;;9002226.02101,"1804,B51Q1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51QYZA ",.01)
  1. ;;B51QYZA
  1. ;;9002226.02101,"1804,B51QYZA ",.02)
  1. ;;B51QYZA
  1. ;;9002226.02101,"1804,B51QYZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51QYZZ ",.01)
  1. ;;B51QYZZ
  1. ;;9002226.02101,"1804,B51QYZZ ",.02)
  1. ;;B51QYZZ
  1. ;;9002226.02101,"1804,B51QYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51QZZA ",.01)
  1. ;;B51QZZA
  1. ;;9002226.02101,"1804,B51QZZA ",.02)
  1. ;;B51QZZA
  1. ;;9002226.02101,"1804,B51QZZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51QZZZ ",.01)
  1. ;;B51QZZZ
  1. ;;9002226.02101,"1804,B51QZZZ ",.02)
  1. ;;B51QZZZ
  1. ;;9002226.02101,"1804,B51QZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51R0ZA ",.01)
  1. ;;B51R0ZA
  1. ;;9002226.02101,"1804,B51R0ZA ",.02)
  1. ;;B51R0ZA
  1. ;;9002226.02101,"1804,B51R0ZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51R0ZZ ",.01)
  1. ;;B51R0ZZ
  1. ;;9002226.02101,"1804,B51R0ZZ ",.02)
  1. ;;B51R0ZZ
  1. ;;9002226.02101,"1804,B51R0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51R1ZA ",.01)
  1. ;;B51R1ZA
  1. ;;9002226.02101,"1804,B51R1ZA ",.02)
  1. ;;B51R1ZA
  1. ;;9002226.02101,"1804,B51R1ZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51R1ZZ ",.01)
  1. ;;B51R1ZZ
  1. ;;9002226.02101,"1804,B51R1ZZ ",.02)
  1. ;;B51R1ZZ
  1. ;;9002226.02101,"1804,B51R1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51RYZA ",.01)
  1. ;;B51RYZA
  1. ;;9002226.02101,"1804,B51RYZA ",.02)
  1. ;;B51RYZA
  1. ;;9002226.02101,"1804,B51RYZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51RYZZ ",.01)
  1. ;;B51RYZZ
  1. ;;9002226.02101,"1804,B51RYZZ ",.02)
  1. ;;B51RYZZ
  1. ;;9002226.02101,"1804,B51RYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51RZZA ",.01)
  1. ;;B51RZZA
  1. ;;9002226.02101,"1804,B51RZZA ",.02)
  1. ;;B51RZZA
  1. ;;9002226.02101,"1804,B51RZZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51RZZZ ",.01)
  1. ;;B51RZZZ
  1. ;;9002226.02101,"1804,B51RZZZ ",.02)
  1. ;;B51RZZZ
  1. ;;9002226.02101,"1804,B51RZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51S0ZA ",.01)
  1. ;;B51S0ZA
  1. ;;9002226.02101,"1804,B51S0ZA ",.02)
  1. ;;B51S0ZA
  1. ;;9002226.02101,"1804,B51S0ZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51S0ZZ ",.01)
  1. ;;B51S0ZZ
  1. ;;9002226.02101,"1804,B51S0ZZ ",.02)
  1. ;;B51S0ZZ
  1. ;;9002226.02101,"1804,B51S0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51S1ZA ",.01)
  1. ;;B51S1ZA
  1. ;;9002226.02101,"1804,B51S1ZA ",.02)
  1. ;;B51S1ZA
  1. ;;9002226.02101,"1804,B51S1ZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51S1ZZ ",.01)
  1. ;;B51S1ZZ
  1. ;;9002226.02101,"1804,B51S1ZZ ",.02)
  1. ;;B51S1ZZ
  1. ;;9002226.02101,"1804,B51S1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51SYZA ",.01)
  1. ;;B51SYZA
  1. ;;9002226.02101,"1804,B51SYZA ",.02)
  1. ;;B51SYZA
  1. ;;9002226.02101,"1804,B51SYZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51SYZZ ",.01)
  1. ;;B51SYZZ
  1. ;;9002226.02101,"1804,B51SYZZ ",.02)
  1. ;;B51SYZZ
  1. ;;9002226.02101,"1804,B51SYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51SZZA ",.01)
  1. ;;B51SZZA
  1. ;;9002226.02101,"1804,B51SZZA ",.02)
  1. ;;B51SZZA
  1. ;;9002226.02101,"1804,B51SZZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51SZZZ ",.01)
  1. ;;B51SZZZ
  1. ;;9002226.02101,"1804,B51SZZZ ",.02)
  1. ;;B51SZZZ
  1. ;;9002226.02101,"1804,B51SZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51T0ZA ",.01)
  1. ;;B51T0ZA
  1. ;;9002226.02101,"1804,B51T0ZA ",.02)
  1. ;;B51T0ZA
  1. ;;9002226.02101,"1804,B51T0ZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51T0ZZ ",.01)
  1. ;;B51T0ZZ
  1. ;;9002226.02101,"1804,B51T0ZZ ",.02)
  1. ;;B51T0ZZ
  1. ;;9002226.02101,"1804,B51T0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51T1ZA ",.01)
  1. ;;B51T1ZA
  1. ;;9002226.02101,"1804,B51T1ZA ",.02)
  1. ;;B51T1ZA
  1. ;;9002226.02101,"1804,B51T1ZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51T1ZZ ",.01)
  1. ;;B51T1ZZ
  1. ;;9002226.02101,"1804,B51T1ZZ ",.02)
  1. ;;B51T1ZZ
  1. ;;9002226.02101,"1804,B51T1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51TYZA ",.01)
  1. ;;B51TYZA
  1. ;;9002226.02101,"1804,B51TYZA ",.02)
  1. ;;B51TYZA
  1. ;;9002226.02101,"1804,B51TYZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51TYZZ ",.01)
  1. ;;B51TYZZ
  1. ;;9002226.02101,"1804,B51TYZZ ",.02)
  1. ;;B51TYZZ
  1. ;;9002226.02101,"1804,B51TYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51TZZA ",.01)
  1. ;;B51TZZA
  1. ;;9002226.02101,"1804,B51TZZA ",.02)
  1. ;;B51TZZA
  1. ;;9002226.02101,"1804,B51TZZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51TZZZ ",.01)
  1. ;;B51TZZZ
  1. ;;9002226.02101,"1804,B51TZZZ ",.02)
  1. ;;B51TZZZ
  1. ;;9002226.02101,"1804,B51TZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51V0ZA ",.01)
  1. ;;B51V0ZA
  1. ;;9002226.02101,"1804,B51V0ZA ",.02)
  1. ;;B51V0ZA
  1. ;;9002226.02101,"1804,B51V0ZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51V0ZZ ",.01)
  1. ;;B51V0ZZ
  1. ;;9002226.02101,"1804,B51V0ZZ ",.02)
  1. ;;B51V0ZZ
  1. ;;9002226.02101,"1804,B51V0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51V1ZA ",.01)
  1. ;;B51V1ZA
  1. ;;9002226.02101,"1804,B51V1ZA ",.02)
  1. ;;B51V1ZA
  1. ;;9002226.02101,"1804,B51V1ZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51V1ZZ ",.01)
  1. ;;B51V1ZZ
  1. ;;9002226.02101,"1804,B51V1ZZ ",.02)
  1. ;;B51V1ZZ
  1. ;;9002226.02101,"1804,B51V1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51VYZA ",.01)
  1. ;;B51VYZA
  1. ;;9002226.02101,"1804,B51VYZA ",.02)
  1. ;;B51VYZA
  1. ;;9002226.02101,"1804,B51VYZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51VYZZ ",.01)
  1. ;;B51VYZZ
  1. ;;9002226.02101,"1804,B51VYZZ ",.02)
  1. ;;B51VYZZ
  1. ;;9002226.02101,"1804,B51VYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51VZZA ",.01)
  1. ;;B51VZZA
  1. ;;9002226.02101,"1804,B51VZZA ",.02)
  1. ;;B51VZZA
  1. ;;9002226.02101,"1804,B51VZZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51VZZZ ",.01)
  1. ;;B51VZZZ
  1. ;;9002226.02101,"1804,B51VZZZ ",.02)
  1. ;;B51VZZZ
  1. ;;9002226.02101,"1804,B51VZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51W0ZA ",.01)
  1. ;;B51W0ZA
  1. ;;9002226.02101,"1804,B51W0ZA ",.02)
  1. ;;B51W0ZA
  1. ;;9002226.02101,"1804,B51W0ZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51W0ZZ ",.01)
  1. ;;B51W0ZZ
  1. ;;9002226.02101,"1804,B51W0ZZ ",.02)
  1. ;;B51W0ZZ
  1. ;;9002226.02101,"1804,B51W0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51W1ZA ",.01)
  1. ;;B51W1ZA
  1. ;;9002226.02101,"1804,B51W1ZA ",.02)
  1. ;;B51W1ZA
  1. ;;9002226.02101,"1804,B51W1ZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51W1ZZ ",.01)
  1. ;;B51W1ZZ
  1. ;;9002226.02101,"1804,B51W1ZZ ",.02)
  1. ;;B51W1ZZ
  1. ;;9002226.02101,"1804,B51W1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51WYZA ",.01)
  1. ;;B51WYZA
  1. ;;9002226.02101,"1804,B51WYZA ",.02)
  1. ;;B51WYZA
  1. ;;9002226.02101,"1804,B51WYZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51WYZZ ",.01)
  1. ;;B51WYZZ
  1. ;;9002226.02101,"1804,B51WYZZ ",.02)
  1. ;;B51WYZZ
  1. ;;9002226.02101,"1804,B51WYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51WZZA ",.01)
  1. ;;B51WZZA
  1. ;;9002226.02101,"1804,B51WZZA ",.02)
  1. ;;B51WZZA
  1. ;;9002226.02101,"1804,B51WZZA ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B51WZZZ ",.01)
  1. ;;B51WZZZ
  1. ;;9002226.02101,"1804,B51WZZZ ",.02)
  1. ;;B51WZZZ
  1. ;;9002226.02101,"1804,B51WZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52200Z ",.01)
  1. ;;B52200Z
  1. ;;9002226.02101,"1804,B52200Z ",.02)
  1. ;;B52200Z
  1. ;;9002226.02101,"1804,B52200Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B5220ZZ ",.01)
  1. ;;B5220ZZ
  1. ;;9002226.02101,"1804,B5220ZZ ",.02)
  1. ;;B5220ZZ
  1. ;;9002226.02101,"1804,B5220ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52210Z ",.01)
  1. ;;B52210Z
  1. ;;9002226.02101,"1804,B52210Z ",.02)
  1. ;;B52210Z
  1. ;;9002226.02101,"1804,B52210Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B5221ZZ ",.01)
  1. ;;B5221ZZ
  1. ;;9002226.02101,"1804,B5221ZZ ",.02)
  1. ;;B5221ZZ
  1. ;;9002226.02101,"1804,B5221ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B522Y0Z ",.01)
  1. ;;B522Y0Z
  1. ;;9002226.02101,"1804,B522Y0Z ",.02)
  1. ;;B522Y0Z
  1. ;;9002226.02101,"1804,B522Y0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B522YZZ ",.01)
  1. ;;B522YZZ
  1. ;;9002226.02101,"1804,B522YZZ ",.02)
  1. ;;B522YZZ
  1. ;;9002226.02101,"1804,B522YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B522ZZZ ",.01)
  1. ;;B522ZZZ
  1. ;;9002226.02101,"1804,B522ZZZ ",.02)
  1. ;;B522ZZZ
  1. ;;9002226.02101,"1804,B522ZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52800Z ",.01)
  1. ;;B52800Z
  1. ;;9002226.02101,"1804,B52800Z ",.02)
  1. ;;B52800Z
  1. ;;9002226.02101,"1804,B52800Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B5280ZZ ",.01)
  1. ;;B5280ZZ
  1. ;;9002226.02101,"1804,B5280ZZ ",.02)
  1. ;;B5280ZZ
  1. ;;9002226.02101,"1804,B5280ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52810Z ",.01)
  1. ;;B52810Z
  1. ;;9002226.02101,"1804,B52810Z ",.02)
  1. ;;B52810Z
  1. ;;9002226.02101,"1804,B52810Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B5281ZZ ",.01)
  1. ;;B5281ZZ
  1. ;;9002226.02101,"1804,B5281ZZ ",.02)
  1. ;;B5281ZZ
  1. ;;9002226.02101,"1804,B5281ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B528Y0Z ",.01)
  1. ;;B528Y0Z
  1. ;;9002226.02101,"1804,B528Y0Z ",.02)
  1. ;;B528Y0Z
  1. ;;9002226.02101,"1804,B528Y0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B528YZZ ",.01)
  1. ;;B528YZZ
  1. ;;9002226.02101,"1804,B528YZZ ",.02)
  1. ;;B528YZZ
  1. ;;9002226.02101,"1804,B528YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B528ZZZ ",.01)
  1. ;;B528ZZZ
  1. ;;9002226.02101,"1804,B528ZZZ ",.02)
  1. ;;B528ZZZ
  1. ;;9002226.02101,"1804,B528ZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52900Z ",.01)
  1. ;;B52900Z
  1. ;;9002226.02101,"1804,B52900Z ",.02)
  1. ;;B52900Z
  1. ;;9002226.02101,"1804,B52900Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B5290ZZ ",.01)
  1. ;;B5290ZZ
  1. ;;9002226.02101,"1804,B5290ZZ ",.02)
  1. ;;B5290ZZ
  1. ;;9002226.02101,"1804,B5290ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52910Z ",.01)
  1. ;;B52910Z
  1. ;;9002226.02101,"1804,B52910Z ",.02)
  1. ;;B52910Z
  1. ;;9002226.02101,"1804,B52910Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B5291ZZ ",.01)
  1. ;;B5291ZZ
  1. ;;9002226.02101,"1804,B5291ZZ ",.02)
  1. ;;B5291ZZ
  1. ;;9002226.02101,"1804,B5291ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B529Y0Z ",.01)
  1. ;;B529Y0Z
  1. ;;9002226.02101,"1804,B529Y0Z ",.02)
  1. ;;B529Y0Z
  1. ;;9002226.02101,"1804,B529Y0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B529YZZ ",.01)
  1. ;;B529YZZ
  1. ;;9002226.02101,"1804,B529YZZ ",.02)
  1. ;;B529YZZ
  1. ;;9002226.02101,"1804,B529YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B529ZZZ ",.01)
  1. ;;B529ZZZ
  1. ;;9002226.02101,"1804,B529ZZZ ",.02)
  1. ;;B529ZZZ
  1. ;;9002226.02101,"1804,B529ZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52F00Z ",.01)
  1. ;;B52F00Z
  1. ;;9002226.02101,"1804,B52F00Z ",.02)
  1. ;;B52F00Z
  1. ;;9002226.02101,"1804,B52F00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52F0ZZ ",.01)
  1. ;;B52F0ZZ
  1. ;;9002226.02101,"1804,B52F0ZZ ",.02)
  1. ;;B52F0ZZ
  1. ;;9002226.02101,"1804,B52F0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52F10Z ",.01)
  1. ;;B52F10Z
  1. ;;9002226.02101,"1804,B52F10Z ",.02)
  1. ;;B52F10Z
  1. ;;9002226.02101,"1804,B52F10Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52F1ZZ ",.01)
  1. ;;B52F1ZZ
  1. ;;9002226.02101,"1804,B52F1ZZ ",.02)
  1. ;;B52F1ZZ
  1. ;;9002226.02101,"1804,B52F1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52FY0Z ",.01)
  1. ;;B52FY0Z
  1. ;;9002226.02101,"1804,B52FY0Z ",.02)
  1. ;;B52FY0Z
  1. ;;9002226.02101,"1804,B52FY0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52FYZZ ",.01)
  1. ;;B52FYZZ
  1. ;;9002226.02101,"1804,B52FYZZ ",.02)
  1. ;;B52FYZZ
  1. ;;9002226.02101,"1804,B52FYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52FZZZ ",.01)
  1. ;;B52FZZZ
  1. ;;9002226.02101,"1804,B52FZZZ ",.02)
  1. ;;B52FZZZ
  1. ;;9002226.02101,"1804,B52FZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52G00Z ",.01)
  1. ;;B52G00Z
  1. ;;9002226.02101,"1804,B52G00Z ",.02)
  1. ;;B52G00Z
  1. ;;9002226.02101,"1804,B52G00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,B52G0ZZ ",.01)
  1. ;;B52G0ZZ
  1. ;;9002226.02101,"1804,B52G0ZZ ",.02)
  1. ;;B52G0ZZ