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

ATXXB108.m

Go to the documentation of this file.
ATXXB108 ;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,0SWGX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWGX8Z ",.01)
 ;;0SWGX8Z 
 ;;9002226.02101,"1804,0SWGX8Z ",.02)
 ;;0SWGX8Z 
 ;;9002226.02101,"1804,0SWGX8Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWGXJZ ",.01)
 ;;0SWGXJZ 
 ;;9002226.02101,"1804,0SWGXJZ ",.02)
 ;;0SWGXJZ 
 ;;9002226.02101,"1804,0SWGXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWGXKZ ",.01)
 ;;0SWGXKZ 
 ;;9002226.02101,"1804,0SWGXKZ ",.02)
 ;;0SWGXKZ 
 ;;9002226.02101,"1804,0SWGXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWHX0Z ",.01)
 ;;0SWHX0Z 
 ;;9002226.02101,"1804,0SWHX0Z ",.02)
 ;;0SWHX0Z 
 ;;9002226.02101,"1804,0SWHX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWHX3Z ",.01)
 ;;0SWHX3Z 
 ;;9002226.02101,"1804,0SWHX3Z ",.02)
 ;;0SWHX3Z 
 ;;9002226.02101,"1804,0SWHX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWHX4Z ",.01)
 ;;0SWHX4Z 
 ;;9002226.02101,"1804,0SWHX4Z ",.02)
 ;;0SWHX4Z 
 ;;9002226.02101,"1804,0SWHX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWHX5Z ",.01)
 ;;0SWHX5Z 
 ;;9002226.02101,"1804,0SWHX5Z ",.02)
 ;;0SWHX5Z 
 ;;9002226.02101,"1804,0SWHX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWHX7Z ",.01)
 ;;0SWHX7Z 
 ;;9002226.02101,"1804,0SWHX7Z ",.02)
 ;;0SWHX7Z 
 ;;9002226.02101,"1804,0SWHX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWHX8Z ",.01)
 ;;0SWHX8Z 
 ;;9002226.02101,"1804,0SWHX8Z ",.02)
 ;;0SWHX8Z 
 ;;9002226.02101,"1804,0SWHX8Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWHXJZ ",.01)
 ;;0SWHXJZ 
 ;;9002226.02101,"1804,0SWHXJZ ",.02)
 ;;0SWHXJZ 
 ;;9002226.02101,"1804,0SWHXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWHXKZ ",.01)
 ;;0SWHXKZ 
 ;;9002226.02101,"1804,0SWHXKZ ",.02)
 ;;0SWHXKZ 
 ;;9002226.02101,"1804,0SWHXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWJX0Z ",.01)
 ;;0SWJX0Z 
 ;;9002226.02101,"1804,0SWJX0Z ",.02)
 ;;0SWJX0Z 
 ;;9002226.02101,"1804,0SWJX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWJX3Z ",.01)
 ;;0SWJX3Z 
 ;;9002226.02101,"1804,0SWJX3Z ",.02)
 ;;0SWJX3Z 
 ;;9002226.02101,"1804,0SWJX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWJX4Z ",.01)
 ;;0SWJX4Z 
 ;;9002226.02101,"1804,0SWJX4Z ",.02)
 ;;0SWJX4Z 
 ;;9002226.02101,"1804,0SWJX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWJX5Z ",.01)
 ;;0SWJX5Z 
 ;;9002226.02101,"1804,0SWJX5Z ",.02)
 ;;0SWJX5Z 
 ;;9002226.02101,"1804,0SWJX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWJX7Z ",.01)
 ;;0SWJX7Z 
 ;;9002226.02101,"1804,0SWJX7Z ",.02)
 ;;0SWJX7Z 
 ;;9002226.02101,"1804,0SWJX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWJX8Z ",.01)
 ;;0SWJX8Z 
 ;;9002226.02101,"1804,0SWJX8Z ",.02)
 ;;0SWJX8Z 
 ;;9002226.02101,"1804,0SWJX8Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWJXJZ ",.01)
 ;;0SWJXJZ 
 ;;9002226.02101,"1804,0SWJXJZ ",.02)
 ;;0SWJXJZ 
 ;;9002226.02101,"1804,0SWJXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWJXKZ ",.01)
 ;;0SWJXKZ 
 ;;9002226.02101,"1804,0SWJXKZ ",.02)
 ;;0SWJXKZ 
 ;;9002226.02101,"1804,0SWJXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWKX0Z ",.01)
 ;;0SWKX0Z 
 ;;9002226.02101,"1804,0SWKX0Z ",.02)
 ;;0SWKX0Z 
 ;;9002226.02101,"1804,0SWKX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWKX3Z ",.01)
 ;;0SWKX3Z 
 ;;9002226.02101,"1804,0SWKX3Z ",.02)
 ;;0SWKX3Z 
 ;;9002226.02101,"1804,0SWKX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWKX4Z ",.01)
 ;;0SWKX4Z 
 ;;9002226.02101,"1804,0SWKX4Z ",.02)
 ;;0SWKX4Z 
 ;;9002226.02101,"1804,0SWKX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWKX5Z ",.01)
 ;;0SWKX5Z 
 ;;9002226.02101,"1804,0SWKX5Z ",.02)
 ;;0SWKX5Z 
 ;;9002226.02101,"1804,0SWKX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWKX7Z ",.01)
 ;;0SWKX7Z 
 ;;9002226.02101,"1804,0SWKX7Z ",.02)
 ;;0SWKX7Z 
 ;;9002226.02101,"1804,0SWKX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWKX8Z ",.01)
 ;;0SWKX8Z 
 ;;9002226.02101,"1804,0SWKX8Z ",.02)
 ;;0SWKX8Z 
 ;;9002226.02101,"1804,0SWKX8Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWKXJZ ",.01)
 ;;0SWKXJZ 
 ;;9002226.02101,"1804,0SWKXJZ ",.02)
 ;;0SWKXJZ 
 ;;9002226.02101,"1804,0SWKXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWKXKZ ",.01)
 ;;0SWKXKZ 
 ;;9002226.02101,"1804,0SWKXKZ ",.02)
 ;;0SWKXKZ 
 ;;9002226.02101,"1804,0SWKXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWLX0Z ",.01)
 ;;0SWLX0Z 
 ;;9002226.02101,"1804,0SWLX0Z ",.02)
 ;;0SWLX0Z 
 ;;9002226.02101,"1804,0SWLX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWLX3Z ",.01)
 ;;0SWLX3Z 
 ;;9002226.02101,"1804,0SWLX3Z ",.02)
 ;;0SWLX3Z 
 ;;9002226.02101,"1804,0SWLX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWLX4Z ",.01)
 ;;0SWLX4Z 
 ;;9002226.02101,"1804,0SWLX4Z ",.02)
 ;;0SWLX4Z 
 ;;9002226.02101,"1804,0SWLX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWLX5Z ",.01)
 ;;0SWLX5Z 
 ;;9002226.02101,"1804,0SWLX5Z ",.02)
 ;;0SWLX5Z 
 ;;9002226.02101,"1804,0SWLX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWLX7Z ",.01)
 ;;0SWLX7Z 
 ;;9002226.02101,"1804,0SWLX7Z ",.02)
 ;;0SWLX7Z 
 ;;9002226.02101,"1804,0SWLX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWLX8Z ",.01)
 ;;0SWLX8Z 
 ;;9002226.02101,"1804,0SWLX8Z ",.02)
 ;;0SWLX8Z 
 ;;9002226.02101,"1804,0SWLX8Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWLXJZ ",.01)
 ;;0SWLXJZ 
 ;;9002226.02101,"1804,0SWLXJZ ",.02)
 ;;0SWLXJZ 
 ;;9002226.02101,"1804,0SWLXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWLXKZ ",.01)
 ;;0SWLXKZ 
 ;;9002226.02101,"1804,0SWLXKZ ",.02)
 ;;0SWLXKZ 
 ;;9002226.02101,"1804,0SWLXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWMX0Z ",.01)
 ;;0SWMX0Z 
 ;;9002226.02101,"1804,0SWMX0Z ",.02)
 ;;0SWMX0Z 
 ;;9002226.02101,"1804,0SWMX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWMX3Z ",.01)
 ;;0SWMX3Z 
 ;;9002226.02101,"1804,0SWMX3Z ",.02)
 ;;0SWMX3Z 
 ;;9002226.02101,"1804,0SWMX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWMX4Z ",.01)
 ;;0SWMX4Z 
 ;;9002226.02101,"1804,0SWMX4Z ",.02)
 ;;0SWMX4Z 
 ;;9002226.02101,"1804,0SWMX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWMX5Z ",.01)
 ;;0SWMX5Z 
 ;;9002226.02101,"1804,0SWMX5Z ",.02)
 ;;0SWMX5Z 
 ;;9002226.02101,"1804,0SWMX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWMX7Z ",.01)
 ;;0SWMX7Z 
 ;;9002226.02101,"1804,0SWMX7Z ",.02)
 ;;0SWMX7Z 
 ;;9002226.02101,"1804,0SWMX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWMX8Z ",.01)
 ;;0SWMX8Z 
 ;;9002226.02101,"1804,0SWMX8Z ",.02)
 ;;0SWMX8Z 
 ;;9002226.02101,"1804,0SWMX8Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWMXJZ ",.01)
 ;;0SWMXJZ 
 ;;9002226.02101,"1804,0SWMXJZ ",.02)
 ;;0SWMXJZ 
 ;;9002226.02101,"1804,0SWMXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWMXKZ ",.01)
 ;;0SWMXKZ 
 ;;9002226.02101,"1804,0SWMXKZ ",.02)
 ;;0SWMXKZ 
 ;;9002226.02101,"1804,0SWMXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWNX0Z ",.01)
 ;;0SWNX0Z 
 ;;9002226.02101,"1804,0SWNX0Z ",.02)
 ;;0SWNX0Z 
 ;;9002226.02101,"1804,0SWNX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWNX3Z ",.01)
 ;;0SWNX3Z 
 ;;9002226.02101,"1804,0SWNX3Z ",.02)
 ;;0SWNX3Z 
 ;;9002226.02101,"1804,0SWNX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWNX4Z ",.01)
 ;;0SWNX4Z 
 ;;9002226.02101,"1804,0SWNX4Z ",.02)
 ;;0SWNX4Z 
 ;;9002226.02101,"1804,0SWNX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWNX5Z ",.01)
 ;;0SWNX5Z 
 ;;9002226.02101,"1804,0SWNX5Z ",.02)
 ;;0SWNX5Z 
 ;;9002226.02101,"1804,0SWNX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWNX7Z ",.01)
 ;;0SWNX7Z 
 ;;9002226.02101,"1804,0SWNX7Z ",.02)
 ;;0SWNX7Z 
 ;;9002226.02101,"1804,0SWNX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWNX8Z ",.01)
 ;;0SWNX8Z 
 ;;9002226.02101,"1804,0SWNX8Z ",.02)
 ;;0SWNX8Z 
 ;;9002226.02101,"1804,0SWNX8Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWNXJZ ",.01)
 ;;0SWNXJZ 
 ;;9002226.02101,"1804,0SWNXJZ ",.02)
 ;;0SWNXJZ 
 ;;9002226.02101,"1804,0SWNXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWNXKZ ",.01)
 ;;0SWNXKZ 
 ;;9002226.02101,"1804,0SWNXKZ ",.02)
 ;;0SWNXKZ 
 ;;9002226.02101,"1804,0SWNXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWPX0Z ",.01)
 ;;0SWPX0Z 
 ;;9002226.02101,"1804,0SWPX0Z ",.02)
 ;;0SWPX0Z 
 ;;9002226.02101,"1804,0SWPX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWPX3Z ",.01)
 ;;0SWPX3Z 
 ;;9002226.02101,"1804,0SWPX3Z ",.02)
 ;;0SWPX3Z 
 ;;9002226.02101,"1804,0SWPX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWPX4Z ",.01)
 ;;0SWPX4Z 
 ;;9002226.02101,"1804,0SWPX4Z ",.02)
 ;;0SWPX4Z 
 ;;9002226.02101,"1804,0SWPX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWPX5Z ",.01)
 ;;0SWPX5Z 
 ;;9002226.02101,"1804,0SWPX5Z ",.02)
 ;;0SWPX5Z 
 ;;9002226.02101,"1804,0SWPX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWPX7Z ",.01)
 ;;0SWPX7Z 
 ;;9002226.02101,"1804,0SWPX7Z ",.02)
 ;;0SWPX7Z 
 ;;9002226.02101,"1804,0SWPX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWPX8Z ",.01)
 ;;0SWPX8Z 
 ;;9002226.02101,"1804,0SWPX8Z ",.02)
 ;;0SWPX8Z 
 ;;9002226.02101,"1804,0SWPX8Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWPXJZ ",.01)
 ;;0SWPXJZ 
 ;;9002226.02101,"1804,0SWPXJZ ",.02)
 ;;0SWPXJZ 
 ;;9002226.02101,"1804,0SWPXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWPXKZ ",.01)
 ;;0SWPXKZ 
 ;;9002226.02101,"1804,0SWPXKZ ",.02)
 ;;0SWPXKZ 
 ;;9002226.02101,"1804,0SWPXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWQX0Z ",.01)
 ;;0SWQX0Z 
 ;;9002226.02101,"1804,0SWQX0Z ",.02)
 ;;0SWQX0Z 
 ;;9002226.02101,"1804,0SWQX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWQX3Z ",.01)
 ;;0SWQX3Z 
 ;;9002226.02101,"1804,0SWQX3Z ",.02)
 ;;0SWQX3Z 
 ;;9002226.02101,"1804,0SWQX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWQX4Z ",.01)
 ;;0SWQX4Z 
 ;;9002226.02101,"1804,0SWQX4Z ",.02)
 ;;0SWQX4Z 
 ;;9002226.02101,"1804,0SWQX4Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWQX5Z ",.01)
 ;;0SWQX5Z 
 ;;9002226.02101,"1804,0SWQX5Z ",.02)
 ;;0SWQX5Z 
 ;;9002226.02101,"1804,0SWQX5Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWQX7Z ",.01)
 ;;0SWQX7Z 
 ;;9002226.02101,"1804,0SWQX7Z ",.02)
 ;;0SWQX7Z 
 ;;9002226.02101,"1804,0SWQX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWQX8Z ",.01)
 ;;0SWQX8Z 
 ;;9002226.02101,"1804,0SWQX8Z ",.02)
 ;;0SWQX8Z 
 ;;9002226.02101,"1804,0SWQX8Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWQXJZ ",.01)
 ;;0SWQXJZ 
 ;;9002226.02101,"1804,0SWQXJZ ",.02)
 ;;0SWQXJZ 
 ;;9002226.02101,"1804,0SWQXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0SWQXKZ ",.01)
 ;;0SWQXKZ 
 ;;9002226.02101,"1804,0SWQXKZ ",.02)
 ;;0SWQXKZ 
 ;;9002226.02101,"1804,0SWQXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0T2BXYZ ",.01)
 ;;0T2BXYZ 
 ;;9002226.02101,"1804,0T2BXYZ ",.02)
 ;;0T2BXYZ 
 ;;9002226.02101,"1804,0T2BXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0T2DX0Z ",.01)
 ;;0T2DX0Z 
 ;;9002226.02101,"1804,0T2DX0Z ",.02)
 ;;0T2DX0Z 
 ;;9002226.02101,"1804,0T2DX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0T2DXYZ ",.01)
 ;;0T2DXYZ 
 ;;9002226.02101,"1804,0T2DXYZ ",.02)
 ;;0T2DXYZ 
 ;;9002226.02101,"1804,0T2DXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0T7B7DZ ",.01)
 ;;0T7B7DZ 
 ;;9002226.02101,"1804,0T7B7DZ ",.02)
 ;;0T7B7DZ 
 ;;9002226.02101,"1804,0T7B7DZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0T7B7ZZ ",.01)
 ;;0T7B7ZZ 
 ;;9002226.02101,"1804,0T7B7ZZ ",.02)
 ;;0T7B7ZZ 
 ;;9002226.02101,"1804,0T7B7ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0T7B8DZ ",.01)
 ;;0T7B8DZ 
 ;;9002226.02101,"1804,0T7B8DZ ",.02)
 ;;0T7B8DZ 
 ;;9002226.02101,"1804,0T7B8DZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0T7B8ZZ ",.01)
 ;;0T7B8ZZ 
 ;;9002226.02101,"1804,0T7B8ZZ ",.02)
 ;;0T7B8ZZ 
 ;;9002226.02101,"1804,0T7B8ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0T9B70Z ",.01)
 ;;0T9B70Z 
 ;;9002226.02101,"1804,0T9B70Z ",.02)
 ;;0T9B70Z 
 ;;9002226.02101,"1804,0T9B70Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0T9B80Z ",.01)
 ;;0T9B80Z 
 ;;9002226.02101,"1804,0T9B80Z ",.02)
 ;;0T9B80Z 
 ;;9002226.02101,"1804,0T9B80Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0T9C70Z ",.01)
 ;;0T9C70Z 
 ;;9002226.02101,"1804,0T9C70Z ",.02)
 ;;0T9C70Z 
 ;;9002226.02101,"1804,0T9C70Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0T9C80Z ",.01)
 ;;0T9C80Z 
 ;;9002226.02101,"1804,0T9C80Z ",.02)
 ;;0T9C80Z 
 ;;9002226.02101,"1804,0T9C80Z ",.03)
 ;;31