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

ATXXB121.m

Go to the documentation of this file.
ATXXB121 ;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,0WPK43Z ",.01)
 ;;0WPK43Z 
 ;;9002226.02101,"1804,0WPK43Z ",.02)
 ;;0WPK43Z 
 ;;9002226.02101,"1804,0WPK43Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPK47Z ",.01)
 ;;0WPK47Z 
 ;;9002226.02101,"1804,0WPK47Z ",.02)
 ;;0WPK47Z 
 ;;9002226.02101,"1804,0WPK47Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPK4JZ ",.01)
 ;;0WPK4JZ 
 ;;9002226.02101,"1804,0WPK4JZ ",.02)
 ;;0WPK4JZ 
 ;;9002226.02101,"1804,0WPK4JZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPK4KZ ",.01)
 ;;0WPK4KZ 
 ;;9002226.02101,"1804,0WPK4KZ ",.02)
 ;;0WPK4KZ 
 ;;9002226.02101,"1804,0WPK4KZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPK4YZ ",.01)
 ;;0WPK4YZ 
 ;;9002226.02101,"1804,0WPK4YZ ",.02)
 ;;0WPK4YZ 
 ;;9002226.02101,"1804,0WPK4YZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPKX0Z ",.01)
 ;;0WPKX0Z 
 ;;9002226.02101,"1804,0WPKX0Z ",.02)
 ;;0WPKX0Z 
 ;;9002226.02101,"1804,0WPKX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPKX1Z ",.01)
 ;;0WPKX1Z 
 ;;9002226.02101,"1804,0WPKX1Z ",.02)
 ;;0WPKX1Z 
 ;;9002226.02101,"1804,0WPKX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPKX3Z ",.01)
 ;;0WPKX3Z 
 ;;9002226.02101,"1804,0WPKX3Z ",.02)
 ;;0WPKX3Z 
 ;;9002226.02101,"1804,0WPKX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPKX7Z ",.01)
 ;;0WPKX7Z 
 ;;9002226.02101,"1804,0WPKX7Z ",.02)
 ;;0WPKX7Z 
 ;;9002226.02101,"1804,0WPKX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPKXJZ ",.01)
 ;;0WPKXJZ 
 ;;9002226.02101,"1804,0WPKXJZ ",.02)
 ;;0WPKXJZ 
 ;;9002226.02101,"1804,0WPKXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPKXKZ ",.01)
 ;;0WPKXKZ 
 ;;9002226.02101,"1804,0WPKXKZ ",.02)
 ;;0WPKXKZ 
 ;;9002226.02101,"1804,0WPKXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPKXYZ ",.01)
 ;;0WPKXYZ 
 ;;9002226.02101,"1804,0WPKXYZ ",.02)
 ;;0WPKXYZ 
 ;;9002226.02101,"1804,0WPKXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL00Z ",.01)
 ;;0WPL00Z 
 ;;9002226.02101,"1804,0WPL00Z ",.02)
 ;;0WPL00Z 
 ;;9002226.02101,"1804,0WPL00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL01Z ",.01)
 ;;0WPL01Z 
 ;;9002226.02101,"1804,0WPL01Z ",.02)
 ;;0WPL01Z 
 ;;9002226.02101,"1804,0WPL01Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL03Z ",.01)
 ;;0WPL03Z 
 ;;9002226.02101,"1804,0WPL03Z ",.02)
 ;;0WPL03Z 
 ;;9002226.02101,"1804,0WPL03Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL07Z ",.01)
 ;;0WPL07Z 
 ;;9002226.02101,"1804,0WPL07Z ",.02)
 ;;0WPL07Z 
 ;;9002226.02101,"1804,0WPL07Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL0JZ ",.01)
 ;;0WPL0JZ 
 ;;9002226.02101,"1804,0WPL0JZ ",.02)
 ;;0WPL0JZ 
 ;;9002226.02101,"1804,0WPL0JZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL0KZ ",.01)
 ;;0WPL0KZ 
 ;;9002226.02101,"1804,0WPL0KZ ",.02)
 ;;0WPL0KZ 
 ;;9002226.02101,"1804,0WPL0KZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL0YZ ",.01)
 ;;0WPL0YZ 
 ;;9002226.02101,"1804,0WPL0YZ ",.02)
 ;;0WPL0YZ 
 ;;9002226.02101,"1804,0WPL0YZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL30Z ",.01)
 ;;0WPL30Z 
 ;;9002226.02101,"1804,0WPL30Z ",.02)
 ;;0WPL30Z 
 ;;9002226.02101,"1804,0WPL30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL31Z ",.01)
 ;;0WPL31Z 
 ;;9002226.02101,"1804,0WPL31Z ",.02)
 ;;0WPL31Z 
 ;;9002226.02101,"1804,0WPL31Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL33Z ",.01)
 ;;0WPL33Z 
 ;;9002226.02101,"1804,0WPL33Z ",.02)
 ;;0WPL33Z 
 ;;9002226.02101,"1804,0WPL33Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL37Z ",.01)
 ;;0WPL37Z 
 ;;9002226.02101,"1804,0WPL37Z ",.02)
 ;;0WPL37Z 
 ;;9002226.02101,"1804,0WPL37Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL3JZ ",.01)
 ;;0WPL3JZ 
 ;;9002226.02101,"1804,0WPL3JZ ",.02)
 ;;0WPL3JZ 
 ;;9002226.02101,"1804,0WPL3JZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL3KZ ",.01)
 ;;0WPL3KZ 
 ;;9002226.02101,"1804,0WPL3KZ ",.02)
 ;;0WPL3KZ 
 ;;9002226.02101,"1804,0WPL3KZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL3YZ ",.01)
 ;;0WPL3YZ 
 ;;9002226.02101,"1804,0WPL3YZ ",.02)
 ;;0WPL3YZ 
 ;;9002226.02101,"1804,0WPL3YZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL40Z ",.01)
 ;;0WPL40Z 
 ;;9002226.02101,"1804,0WPL40Z ",.02)
 ;;0WPL40Z 
 ;;9002226.02101,"1804,0WPL40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL41Z ",.01)
 ;;0WPL41Z 
 ;;9002226.02101,"1804,0WPL41Z ",.02)
 ;;0WPL41Z 
 ;;9002226.02101,"1804,0WPL41Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL43Z ",.01)
 ;;0WPL43Z 
 ;;9002226.02101,"1804,0WPL43Z ",.02)
 ;;0WPL43Z 
 ;;9002226.02101,"1804,0WPL43Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL47Z ",.01)
 ;;0WPL47Z 
 ;;9002226.02101,"1804,0WPL47Z ",.02)
 ;;0WPL47Z 
 ;;9002226.02101,"1804,0WPL47Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL4JZ ",.01)
 ;;0WPL4JZ 
 ;;9002226.02101,"1804,0WPL4JZ ",.02)
 ;;0WPL4JZ 
 ;;9002226.02101,"1804,0WPL4JZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL4KZ ",.01)
 ;;0WPL4KZ 
 ;;9002226.02101,"1804,0WPL4KZ ",.02)
 ;;0WPL4KZ 
 ;;9002226.02101,"1804,0WPL4KZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPL4YZ ",.01)
 ;;0WPL4YZ 
 ;;9002226.02101,"1804,0WPL4YZ ",.02)
 ;;0WPL4YZ 
 ;;9002226.02101,"1804,0WPL4YZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPLX0Z ",.01)
 ;;0WPLX0Z 
 ;;9002226.02101,"1804,0WPLX0Z ",.02)
 ;;0WPLX0Z 
 ;;9002226.02101,"1804,0WPLX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPLX1Z ",.01)
 ;;0WPLX1Z 
 ;;9002226.02101,"1804,0WPLX1Z ",.02)
 ;;0WPLX1Z 
 ;;9002226.02101,"1804,0WPLX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPLX3Z ",.01)
 ;;0WPLX3Z 
 ;;9002226.02101,"1804,0WPLX3Z ",.02)
 ;;0WPLX3Z 
 ;;9002226.02101,"1804,0WPLX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPLX7Z ",.01)
 ;;0WPLX7Z 
 ;;9002226.02101,"1804,0WPLX7Z ",.02)
 ;;0WPLX7Z 
 ;;9002226.02101,"1804,0WPLX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPLXJZ ",.01)
 ;;0WPLXJZ 
 ;;9002226.02101,"1804,0WPLXJZ ",.02)
 ;;0WPLXJZ 
 ;;9002226.02101,"1804,0WPLXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPLXKZ ",.01)
 ;;0WPLXKZ 
 ;;9002226.02101,"1804,0WPLXKZ ",.02)
 ;;0WPLXKZ 
 ;;9002226.02101,"1804,0WPLXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPLXYZ ",.01)
 ;;0WPLXYZ 
 ;;9002226.02101,"1804,0WPLXYZ ",.02)
 ;;0WPLXYZ 
 ;;9002226.02101,"1804,0WPLXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM00Z ",.01)
 ;;0WPM00Z 
 ;;9002226.02101,"1804,0WPM00Z ",.02)
 ;;0WPM00Z 
 ;;9002226.02101,"1804,0WPM00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM01Z ",.01)
 ;;0WPM01Z 
 ;;9002226.02101,"1804,0WPM01Z ",.02)
 ;;0WPM01Z 
 ;;9002226.02101,"1804,0WPM01Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM03Z ",.01)
 ;;0WPM03Z 
 ;;9002226.02101,"1804,0WPM03Z ",.02)
 ;;0WPM03Z 
 ;;9002226.02101,"1804,0WPM03Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM0JZ ",.01)
 ;;0WPM0JZ 
 ;;9002226.02101,"1804,0WPM0JZ ",.02)
 ;;0WPM0JZ 
 ;;9002226.02101,"1804,0WPM0JZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM0YZ ",.01)
 ;;0WPM0YZ 
 ;;9002226.02101,"1804,0WPM0YZ ",.02)
 ;;0WPM0YZ 
 ;;9002226.02101,"1804,0WPM0YZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM30Z ",.01)
 ;;0WPM30Z 
 ;;9002226.02101,"1804,0WPM30Z ",.02)
 ;;0WPM30Z 
 ;;9002226.02101,"1804,0WPM30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM31Z ",.01)
 ;;0WPM31Z 
 ;;9002226.02101,"1804,0WPM31Z ",.02)
 ;;0WPM31Z 
 ;;9002226.02101,"1804,0WPM31Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM33Z ",.01)
 ;;0WPM33Z 
 ;;9002226.02101,"1804,0WPM33Z ",.02)
 ;;0WPM33Z 
 ;;9002226.02101,"1804,0WPM33Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM3JZ ",.01)
 ;;0WPM3JZ 
 ;;9002226.02101,"1804,0WPM3JZ ",.02)
 ;;0WPM3JZ 
 ;;9002226.02101,"1804,0WPM3JZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM3YZ ",.01)
 ;;0WPM3YZ 
 ;;9002226.02101,"1804,0WPM3YZ ",.02)
 ;;0WPM3YZ 
 ;;9002226.02101,"1804,0WPM3YZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM40Z ",.01)
 ;;0WPM40Z 
 ;;9002226.02101,"1804,0WPM40Z ",.02)
 ;;0WPM40Z 
 ;;9002226.02101,"1804,0WPM40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM41Z ",.01)
 ;;0WPM41Z 
 ;;9002226.02101,"1804,0WPM41Z ",.02)
 ;;0WPM41Z 
 ;;9002226.02101,"1804,0WPM41Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM43Z ",.01)
 ;;0WPM43Z 
 ;;9002226.02101,"1804,0WPM43Z ",.02)
 ;;0WPM43Z 
 ;;9002226.02101,"1804,0WPM43Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM4JZ ",.01)
 ;;0WPM4JZ 
 ;;9002226.02101,"1804,0WPM4JZ ",.02)
 ;;0WPM4JZ 
 ;;9002226.02101,"1804,0WPM4JZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPM4YZ ",.01)
 ;;0WPM4YZ 
 ;;9002226.02101,"1804,0WPM4YZ ",.02)
 ;;0WPM4YZ 
 ;;9002226.02101,"1804,0WPM4YZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPMX0Z ",.01)
 ;;0WPMX0Z 
 ;;9002226.02101,"1804,0WPMX0Z ",.02)
 ;;0WPMX0Z 
 ;;9002226.02101,"1804,0WPMX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPMX1Z ",.01)
 ;;0WPMX1Z 
 ;;9002226.02101,"1804,0WPMX1Z ",.02)
 ;;0WPMX1Z 
 ;;9002226.02101,"1804,0WPMX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPMX3Z ",.01)
 ;;0WPMX3Z 
 ;;9002226.02101,"1804,0WPMX3Z ",.02)
 ;;0WPMX3Z 
 ;;9002226.02101,"1804,0WPMX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPMXYZ ",.01)
 ;;0WPMXYZ 
 ;;9002226.02101,"1804,0WPMXYZ ",.02)
 ;;0WPMXYZ 
 ;;9002226.02101,"1804,0WPMXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPNX0Z ",.01)
 ;;0WPNX0Z 
 ;;9002226.02101,"1804,0WPNX0Z ",.02)
 ;;0WPNX0Z 
 ;;9002226.02101,"1804,0WPNX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPNX1Z ",.01)
 ;;0WPNX1Z 
 ;;9002226.02101,"1804,0WPNX1Z ",.02)
 ;;0WPNX1Z 
 ;;9002226.02101,"1804,0WPNX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPNX3Z ",.01)
 ;;0WPNX3Z 
 ;;9002226.02101,"1804,0WPNX3Z ",.02)
 ;;0WPNX3Z 
 ;;9002226.02101,"1804,0WPNX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPNX7Z ",.01)
 ;;0WPNX7Z 
 ;;9002226.02101,"1804,0WPNX7Z ",.02)
 ;;0WPNX7Z 
 ;;9002226.02101,"1804,0WPNX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPNXJZ ",.01)
 ;;0WPNXJZ 
 ;;9002226.02101,"1804,0WPNXJZ ",.02)
 ;;0WPNXJZ 
 ;;9002226.02101,"1804,0WPNXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPNXKZ ",.01)
 ;;0WPNXKZ 
 ;;9002226.02101,"1804,0WPNXKZ ",.02)
 ;;0WPNXKZ 
 ;;9002226.02101,"1804,0WPNXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPNXYZ ",.01)
 ;;0WPNXYZ 
 ;;9002226.02101,"1804,0WPNXYZ ",.02)
 ;;0WPNXYZ 
 ;;9002226.02101,"1804,0WPNXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPPX1Z ",.01)
 ;;0WPPX1Z 
 ;;9002226.02101,"1804,0WPPX1Z ",.02)
 ;;0WPPX1Z 
 ;;9002226.02101,"1804,0WPPX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPPX3Z ",.01)
 ;;0WPPX3Z 
 ;;9002226.02101,"1804,0WPPX3Z ",.02)
 ;;0WPPX3Z 
 ;;9002226.02101,"1804,0WPPX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPPXYZ ",.01)
 ;;0WPPXYZ 
 ;;9002226.02101,"1804,0WPPXYZ ",.02)
 ;;0WPPXYZ 
 ;;9002226.02101,"1804,0WPPXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPQX1Z ",.01)
 ;;0WPQX1Z 
 ;;9002226.02101,"1804,0WPQX1Z ",.02)
 ;;0WPQX1Z 
 ;;9002226.02101,"1804,0WPQX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPQX3Z ",.01)
 ;;0WPQX3Z 
 ;;9002226.02101,"1804,0WPQX3Z ",.02)
 ;;0WPQX3Z 
 ;;9002226.02101,"1804,0WPQX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPQXYZ ",.01)
 ;;0WPQXYZ 
 ;;9002226.02101,"1804,0WPQXYZ ",.02)
 ;;0WPQXYZ 
 ;;9002226.02101,"1804,0WPQXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPRX1Z ",.01)
 ;;0WPRX1Z 
 ;;9002226.02101,"1804,0WPRX1Z ",.02)
 ;;0WPRX1Z 
 ;;9002226.02101,"1804,0WPRX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPRX3Z ",.01)
 ;;0WPRX3Z 
 ;;9002226.02101,"1804,0WPRX3Z ",.02)
 ;;0WPRX3Z 
 ;;9002226.02101,"1804,0WPRX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0WPRXYZ ",.01)
 ;;0WPRXYZ 
 ;;9002226.02101,"1804,0WPRXYZ ",.02)
 ;;0WPRXYZ 
 ;;9002226.02101,"1804,0WPRXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WQ00ZZ ",.01)
 ;;0WQ00ZZ 
 ;;9002226.02101,"1804,0WQ00ZZ ",.02)
 ;;0WQ00ZZ 
 ;;9002226.02101,"1804,0WQ00ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WQ03ZZ ",.01)
 ;;0WQ03ZZ 
 ;;9002226.02101,"1804,0WQ03ZZ ",.02)
 ;;0WQ03ZZ 
 ;;9002226.02101,"1804,0WQ03ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WQ04ZZ ",.01)
 ;;0WQ04ZZ 
 ;;9002226.02101,"1804,0WQ04ZZ ",.02)
 ;;0WQ04ZZ 
 ;;9002226.02101,"1804,0WQ04ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0WQ0XZZ ",.01)
 ;;0WQ0XZZ