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

ATXXB172.m

Go to the documentation of this file.
  1. ATXXB172 ;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,4A130J1 ",.01)
  1. ;;4A130J1
  1. ;;9002226.02101,"1804,4A130J1 ",.02)
  1. ;;4A130J1
  1. ;;9002226.02101,"1804,4A130J1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A130J3 ",.01)
  1. ;;4A130J3
  1. ;;9002226.02101,"1804,4A130J3 ",.02)
  1. ;;4A130J3
  1. ;;9002226.02101,"1804,4A130J3 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A130JC ",.01)
  1. ;;4A130JC
  1. ;;9002226.02101,"1804,4A130JC ",.02)
  1. ;;4A130JC
  1. ;;9002226.02101,"1804,4A130JC ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A130R1 ",.01)
  1. ;;4A130R1
  1. ;;9002226.02101,"1804,4A130R1 ",.02)
  1. ;;4A130R1
  1. ;;9002226.02101,"1804,4A130R1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A13351 ",.01)
  1. ;;4A13351
  1. ;;9002226.02101,"1804,4A13351 ",.02)
  1. ;;4A13351
  1. ;;9002226.02101,"1804,4A13351 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A13353 ",.01)
  1. ;;4A13353
  1. ;;9002226.02101,"1804,4A13353 ",.02)
  1. ;;4A13353
  1. ;;9002226.02101,"1804,4A13353 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1335C ",.01)
  1. ;;4A1335C
  1. ;;9002226.02101,"1804,4A1335C ",.02)
  1. ;;4A1335C
  1. ;;9002226.02101,"1804,4A1335C ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A133B1 ",.01)
  1. ;;4A133B1
  1. ;;9002226.02101,"1804,4A133B1 ",.02)
  1. ;;4A133B1
  1. ;;9002226.02101,"1804,4A133B1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A133B3 ",.01)
  1. ;;4A133B3
  1. ;;9002226.02101,"1804,4A133B3 ",.02)
  1. ;;4A133B3
  1. ;;9002226.02101,"1804,4A133B3 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A133H1 ",.01)
  1. ;;4A133H1
  1. ;;9002226.02101,"1804,4A133H1 ",.02)
  1. ;;4A133H1
  1. ;;9002226.02101,"1804,4A133H1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A133J1 ",.01)
  1. ;;4A133J1
  1. ;;9002226.02101,"1804,4A133J1 ",.02)
  1. ;;4A133J1
  1. ;;9002226.02101,"1804,4A133J1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A133J3 ",.01)
  1. ;;4A133J3
  1. ;;9002226.02101,"1804,4A133J3 ",.02)
  1. ;;4A133J3
  1. ;;9002226.02101,"1804,4A133J3 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A133JC ",.01)
  1. ;;4A133JC
  1. ;;9002226.02101,"1804,4A133JC ",.02)
  1. ;;4A133JC
  1. ;;9002226.02101,"1804,4A133JC ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A133R1 ",.01)
  1. ;;4A133R1
  1. ;;9002226.02101,"1804,4A133R1 ",.02)
  1. ;;4A133R1
  1. ;;9002226.02101,"1804,4A133R1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A13X51 ",.01)
  1. ;;4A13X51
  1. ;;9002226.02101,"1804,4A13X51 ",.02)
  1. ;;4A13X51
  1. ;;9002226.02101,"1804,4A13X51 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A13XB1 ",.01)
  1. ;;4A13XB1
  1. ;;9002226.02101,"1804,4A13XB1 ",.02)
  1. ;;4A13XB1
  1. ;;9002226.02101,"1804,4A13XB1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A13XH1 ",.01)
  1. ;;4A13XH1
  1. ;;9002226.02101,"1804,4A13XH1 ",.02)
  1. ;;4A13XH1
  1. ;;9002226.02101,"1804,4A13XH1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A13XJ1 ",.01)
  1. ;;4A13XJ1
  1. ;;9002226.02101,"1804,4A13XJ1 ",.02)
  1. ;;4A13XJ1
  1. ;;9002226.02101,"1804,4A13XJ1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A13XR1 ",.01)
  1. ;;4A13XR1
  1. ;;9002226.02101,"1804,4A13XR1 ",.02)
  1. ;;4A13XR1
  1. ;;9002226.02101,"1804,4A13XR1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A14050 ",.01)
  1. ;;4A14050
  1. ;;9002226.02101,"1804,4A14050 ",.02)
  1. ;;4A14050
  1. ;;9002226.02101,"1804,4A14050 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A14051 ",.01)
  1. ;;4A14051
  1. ;;9002226.02101,"1804,4A14051 ",.02)
  1. ;;4A14051
  1. ;;9002226.02101,"1804,4A14051 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A14052 ",.01)
  1. ;;4A14052
  1. ;;9002226.02101,"1804,4A14052 ",.02)
  1. ;;4A14052
  1. ;;9002226.02101,"1804,4A14052 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A14053 ",.01)
  1. ;;4A14053
  1. ;;9002226.02101,"1804,4A14053 ",.02)
  1. ;;4A14053
  1. ;;9002226.02101,"1804,4A14053 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A140B0 ",.01)
  1. ;;4A140B0
  1. ;;9002226.02101,"1804,4A140B0 ",.02)
  1. ;;4A140B0
  1. ;;9002226.02101,"1804,4A140B0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A140B2 ",.01)
  1. ;;4A140B2
  1. ;;9002226.02101,"1804,4A140B2 ",.02)
  1. ;;4A140B2
  1. ;;9002226.02101,"1804,4A140B2 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A140J0 ",.01)
  1. ;;4A140J0
  1. ;;9002226.02101,"1804,4A140J0 ",.02)
  1. ;;4A140J0
  1. ;;9002226.02101,"1804,4A140J0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A140J1 ",.01)
  1. ;;4A140J1
  1. ;;9002226.02101,"1804,4A140J1 ",.02)
  1. ;;4A140J1
  1. ;;9002226.02101,"1804,4A140J1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A140J2 ",.01)
  1. ;;4A140J2
  1. ;;9002226.02101,"1804,4A140J2 ",.02)
  1. ;;4A140J2
  1. ;;9002226.02101,"1804,4A140J2 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A140J3 ",.01)
  1. ;;4A140J3
  1. ;;9002226.02101,"1804,4A140J3 ",.02)
  1. ;;4A140J3
  1. ;;9002226.02101,"1804,4A140J3 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A140R0 ",.01)
  1. ;;4A140R0
  1. ;;9002226.02101,"1804,4A140R0 ",.02)
  1. ;;4A140R0
  1. ;;9002226.02101,"1804,4A140R0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A140R2 ",.01)
  1. ;;4A140R2
  1. ;;9002226.02101,"1804,4A140R2 ",.02)
  1. ;;4A140R2
  1. ;;9002226.02101,"1804,4A140R2 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A140R3 ",.01)
  1. ;;4A140R3
  1. ;;9002226.02101,"1804,4A140R3 ",.02)
  1. ;;4A140R3
  1. ;;9002226.02101,"1804,4A140R3 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A14350 ",.01)
  1. ;;4A14350
  1. ;;9002226.02101,"1804,4A14350 ",.02)
  1. ;;4A14350
  1. ;;9002226.02101,"1804,4A14350 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A14351 ",.01)
  1. ;;4A14351
  1. ;;9002226.02101,"1804,4A14351 ",.02)
  1. ;;4A14351
  1. ;;9002226.02101,"1804,4A14351 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A14352 ",.01)
  1. ;;4A14352
  1. ;;9002226.02101,"1804,4A14352 ",.02)
  1. ;;4A14352
  1. ;;9002226.02101,"1804,4A14352 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A14353 ",.01)
  1. ;;4A14353
  1. ;;9002226.02101,"1804,4A14353 ",.02)
  1. ;;4A14353
  1. ;;9002226.02101,"1804,4A14353 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A143B0 ",.01)
  1. ;;4A143B0
  1. ;;9002226.02101,"1804,4A143B0 ",.02)
  1. ;;4A143B0
  1. ;;9002226.02101,"1804,4A143B0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A143B2 ",.01)
  1. ;;4A143B2
  1. ;;9002226.02101,"1804,4A143B2 ",.02)
  1. ;;4A143B2
  1. ;;9002226.02101,"1804,4A143B2 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A143J0 ",.01)
  1. ;;4A143J0
  1. ;;9002226.02101,"1804,4A143J0 ",.02)
  1. ;;4A143J0
  1. ;;9002226.02101,"1804,4A143J0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A143J1 ",.01)
  1. ;;4A143J1
  1. ;;9002226.02101,"1804,4A143J1 ",.02)
  1. ;;4A143J1
  1. ;;9002226.02101,"1804,4A143J1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A143J2 ",.01)
  1. ;;4A143J2
  1. ;;9002226.02101,"1804,4A143J2 ",.02)
  1. ;;4A143J2
  1. ;;9002226.02101,"1804,4A143J2 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A143J3 ",.01)
  1. ;;4A143J3
  1. ;;9002226.02101,"1804,4A143J3 ",.02)
  1. ;;4A143J3
  1. ;;9002226.02101,"1804,4A143J3 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A143R0 ",.01)
  1. ;;4A143R0
  1. ;;9002226.02101,"1804,4A143R0 ",.02)
  1. ;;4A143R0
  1. ;;9002226.02101,"1804,4A143R0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A143R2 ",.01)
  1. ;;4A143R2
  1. ;;9002226.02101,"1804,4A143R2 ",.02)
  1. ;;4A143R2
  1. ;;9002226.02101,"1804,4A143R2 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A143R3 ",.01)
  1. ;;4A143R3
  1. ;;9002226.02101,"1804,4A143R3 ",.02)
  1. ;;4A143R3
  1. ;;9002226.02101,"1804,4A143R3 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A14X51 ",.01)
  1. ;;4A14X51
  1. ;;9002226.02101,"1804,4A14X51 ",.02)
  1. ;;4A14X51
  1. ;;9002226.02101,"1804,4A14X51 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A14XB1 ",.01)
  1. ;;4A14XB1
  1. ;;9002226.02101,"1804,4A14XB1 ",.02)
  1. ;;4A14XB1
  1. ;;9002226.02101,"1804,4A14XB1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A14XJ1 ",.01)
  1. ;;4A14XJ1
  1. ;;9002226.02101,"1804,4A14XJ1 ",.02)
  1. ;;4A14XJ1
  1. ;;9002226.02101,"1804,4A14XJ1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1971Z ",.01)
  1. ;;4A1971Z
  1. ;;9002226.02101,"1804,4A1971Z ",.02)
  1. ;;4A1971Z
  1. ;;9002226.02101,"1804,4A1971Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1975Z ",.01)
  1. ;;4A1975Z
  1. ;;9002226.02101,"1804,4A1975Z ",.02)
  1. ;;4A1975Z
  1. ;;9002226.02101,"1804,4A1975Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A197CZ ",.01)
  1. ;;4A197CZ
  1. ;;9002226.02101,"1804,4A197CZ ",.02)
  1. ;;4A197CZ
  1. ;;9002226.02101,"1804,4A197CZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A197DZ ",.01)
  1. ;;4A197DZ
  1. ;;9002226.02101,"1804,4A197DZ ",.02)
  1. ;;4A197DZ
  1. ;;9002226.02101,"1804,4A197DZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A197LZ ",.01)
  1. ;;4A197LZ
  1. ;;9002226.02101,"1804,4A197LZ ",.02)
  1. ;;4A197LZ
  1. ;;9002226.02101,"1804,4A197LZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A19X1Z ",.01)
  1. ;;4A19X1Z
  1. ;;9002226.02101,"1804,4A19X1Z ",.02)
  1. ;;4A19X1Z
  1. ;;9002226.02101,"1804,4A19X1Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A19X5Z ",.01)
  1. ;;4A19X5Z
  1. ;;9002226.02101,"1804,4A19X5Z ",.02)
  1. ;;4A19X5Z
  1. ;;9002226.02101,"1804,4A19X5Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A19XCZ ",.01)
  1. ;;4A19XCZ
  1. ;;9002226.02101,"1804,4A19XCZ ",.02)
  1. ;;4A19XCZ
  1. ;;9002226.02101,"1804,4A19XCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A19XDZ ",.01)
  1. ;;4A19XDZ
  1. ;;9002226.02101,"1804,4A19XDZ ",.02)
  1. ;;4A19XDZ
  1. ;;9002226.02101,"1804,4A19XDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A19XLZ ",.01)
  1. ;;4A19XLZ
  1. ;;9002226.02101,"1804,4A19XLZ ",.02)
  1. ;;4A19XLZ
  1. ;;9002226.02101,"1804,4A19XLZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1B78Z ",.01)
  1. ;;4A1B78Z
  1. ;;9002226.02101,"1804,4A1B78Z ",.02)
  1. ;;4A1B78Z
  1. ;;9002226.02101,"1804,4A1B78Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1B7BZ ",.01)
  1. ;;4A1B7BZ
  1. ;;9002226.02101,"1804,4A1B7BZ ",.02)
  1. ;;4A1B7BZ
  1. ;;9002226.02101,"1804,4A1B7BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1B7GZ ",.01)
  1. ;;4A1B7GZ
  1. ;;9002226.02101,"1804,4A1B7GZ ",.02)
  1. ;;4A1B7GZ
  1. ;;9002226.02101,"1804,4A1B7GZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1B88Z ",.01)
  1. ;;4A1B88Z
  1. ;;9002226.02101,"1804,4A1B88Z ",.02)
  1. ;;4A1B88Z
  1. ;;9002226.02101,"1804,4A1B88Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1B8BZ ",.01)
  1. ;;4A1B8BZ
  1. ;;9002226.02101,"1804,4A1B8BZ ",.02)
  1. ;;4A1B8BZ
  1. ;;9002226.02101,"1804,4A1B8BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1B8GZ ",.01)
  1. ;;4A1B8GZ
  1. ;;9002226.02101,"1804,4A1B8GZ ",.02)
  1. ;;4A1B8GZ
  1. ;;9002226.02101,"1804,4A1B8GZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1D73Z ",.01)
  1. ;;4A1D73Z
  1. ;;9002226.02101,"1804,4A1D73Z ",.02)
  1. ;;4A1D73Z
  1. ;;9002226.02101,"1804,4A1D73Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1D75Z ",.01)
  1. ;;4A1D75Z
  1. ;;9002226.02101,"1804,4A1D75Z ",.02)
  1. ;;4A1D75Z
  1. ;;9002226.02101,"1804,4A1D75Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1D7BZ ",.01)
  1. ;;4A1D7BZ
  1. ;;9002226.02101,"1804,4A1D7BZ ",.02)
  1. ;;4A1D7BZ
  1. ;;9002226.02101,"1804,4A1D7BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1D7DZ ",.01)
  1. ;;4A1D7DZ
  1. ;;9002226.02101,"1804,4A1D7DZ ",.02)
  1. ;;4A1D7DZ
  1. ;;9002226.02101,"1804,4A1D7DZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1D7LZ ",.01)
  1. ;;4A1D7LZ
  1. ;;9002226.02101,"1804,4A1D7LZ ",.02)
  1. ;;4A1D7LZ
  1. ;;9002226.02101,"1804,4A1D7LZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1Z7KZ ",.01)
  1. ;;4A1Z7KZ
  1. ;;9002226.02101,"1804,4A1Z7KZ ",.02)
  1. ;;4A1Z7KZ
  1. ;;9002226.02101,"1804,4A1Z7KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1ZXKZ ",.01)
  1. ;;4A1ZXKZ
  1. ;;9002226.02101,"1804,4A1ZXKZ ",.02)
  1. ;;4A1ZXKZ
  1. ;;9002226.02101,"1804,4A1ZXKZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4A1ZXQZ ",.01)
  1. ;;4A1ZXQZ
  1. ;;9002226.02101,"1804,4A1ZXQZ ",.02)
  1. ;;4A1ZXQZ
  1. ;;9002226.02101,"1804,4A1ZXQZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4B00XVZ ",.01)
  1. ;;4B00XVZ
  1. ;;9002226.02101,"1804,4B00XVZ ",.02)
  1. ;;4B00XVZ
  1. ;;9002226.02101,"1804,4B00XVZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4B01XVZ ",.01)
  1. ;;4B01XVZ
  1. ;;9002226.02101,"1804,4B01XVZ ",.02)
  1. ;;4B01XVZ
  1. ;;9002226.02101,"1804,4B01XVZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4B02XSZ ",.01)
  1. ;;4B02XSZ
  1. ;;9002226.02101,"1804,4B02XSZ ",.02)
  1. ;;4B02XSZ
  1. ;;9002226.02101,"1804,4B02XSZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4B02XTZ ",.01)
  1. ;;4B02XTZ
  1. ;;9002226.02101,"1804,4B02XTZ ",.02)
  1. ;;4B02XTZ
  1. ;;9002226.02101,"1804,4B02XTZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4B09XSZ ",.01)
  1. ;;4B09XSZ
  1. ;;9002226.02101,"1804,4B09XSZ ",.02)
  1. ;;4B09XSZ
  1. ;;9002226.02101,"1804,4B09XSZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,4B0FXVZ ",.01)
  1. ;;4B0FXVZ
  1. ;;9002226.02101,"1804,4B0FXVZ ",.02)
  1. ;;4B0FXVZ
  1. ;;9002226.02101,"1804,4B0FXVZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,57.94 ",.01)
  1. ;;57.94