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

ATXXB127.m

Go to the documentation of this file.
  1. ATXXB127 ;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,0X053JZ ",.01)
  1. ;;0X053JZ
  1. ;;9002226.02101,"1804,0X053JZ ",.02)
  1. ;;0X053JZ
  1. ;;9002226.02101,"1804,0X053JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X053KZ ",.01)
  1. ;;0X053KZ
  1. ;;9002226.02101,"1804,0X053KZ ",.02)
  1. ;;0X053KZ
  1. ;;9002226.02101,"1804,0X053KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X053ZZ ",.01)
  1. ;;0X053ZZ
  1. ;;9002226.02101,"1804,0X053ZZ ",.02)
  1. ;;0X053ZZ
  1. ;;9002226.02101,"1804,0X053ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0547Z ",.01)
  1. ;;0X0547Z
  1. ;;9002226.02101,"1804,0X0547Z ",.02)
  1. ;;0X0547Z
  1. ;;9002226.02101,"1804,0X0547Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X054JZ ",.01)
  1. ;;0X054JZ
  1. ;;9002226.02101,"1804,0X054JZ ",.02)
  1. ;;0X054JZ
  1. ;;9002226.02101,"1804,0X054JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X054KZ ",.01)
  1. ;;0X054KZ
  1. ;;9002226.02101,"1804,0X054KZ ",.02)
  1. ;;0X054KZ
  1. ;;9002226.02101,"1804,0X054KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X054ZZ ",.01)
  1. ;;0X054ZZ
  1. ;;9002226.02101,"1804,0X054ZZ ",.02)
  1. ;;0X054ZZ
  1. ;;9002226.02101,"1804,0X054ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0607Z ",.01)
  1. ;;0X0607Z
  1. ;;9002226.02101,"1804,0X0607Z ",.02)
  1. ;;0X0607Z
  1. ;;9002226.02101,"1804,0X0607Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X060JZ ",.01)
  1. ;;0X060JZ
  1. ;;9002226.02101,"1804,0X060JZ ",.02)
  1. ;;0X060JZ
  1. ;;9002226.02101,"1804,0X060JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X060KZ ",.01)
  1. ;;0X060KZ
  1. ;;9002226.02101,"1804,0X060KZ ",.02)
  1. ;;0X060KZ
  1. ;;9002226.02101,"1804,0X060KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X060ZZ ",.01)
  1. ;;0X060ZZ
  1. ;;9002226.02101,"1804,0X060ZZ ",.02)
  1. ;;0X060ZZ
  1. ;;9002226.02101,"1804,0X060ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0637Z ",.01)
  1. ;;0X0637Z
  1. ;;9002226.02101,"1804,0X0637Z ",.02)
  1. ;;0X0637Z
  1. ;;9002226.02101,"1804,0X0637Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X063JZ ",.01)
  1. ;;0X063JZ
  1. ;;9002226.02101,"1804,0X063JZ ",.02)
  1. ;;0X063JZ
  1. ;;9002226.02101,"1804,0X063JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X063KZ ",.01)
  1. ;;0X063KZ
  1. ;;9002226.02101,"1804,0X063KZ ",.02)
  1. ;;0X063KZ
  1. ;;9002226.02101,"1804,0X063KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X063ZZ ",.01)
  1. ;;0X063ZZ
  1. ;;9002226.02101,"1804,0X063ZZ ",.02)
  1. ;;0X063ZZ
  1. ;;9002226.02101,"1804,0X063ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0647Z ",.01)
  1. ;;0X0647Z
  1. ;;9002226.02101,"1804,0X0647Z ",.02)
  1. ;;0X0647Z
  1. ;;9002226.02101,"1804,0X0647Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X064JZ ",.01)
  1. ;;0X064JZ
  1. ;;9002226.02101,"1804,0X064JZ ",.02)
  1. ;;0X064JZ
  1. ;;9002226.02101,"1804,0X064JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X064KZ ",.01)
  1. ;;0X064KZ
  1. ;;9002226.02101,"1804,0X064KZ ",.02)
  1. ;;0X064KZ
  1. ;;9002226.02101,"1804,0X064KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X064ZZ ",.01)
  1. ;;0X064ZZ
  1. ;;9002226.02101,"1804,0X064ZZ ",.02)
  1. ;;0X064ZZ
  1. ;;9002226.02101,"1804,0X064ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0707Z ",.01)
  1. ;;0X0707Z
  1. ;;9002226.02101,"1804,0X0707Z ",.02)
  1. ;;0X0707Z
  1. ;;9002226.02101,"1804,0X0707Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X070JZ ",.01)
  1. ;;0X070JZ
  1. ;;9002226.02101,"1804,0X070JZ ",.02)
  1. ;;0X070JZ
  1. ;;9002226.02101,"1804,0X070JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X070KZ ",.01)
  1. ;;0X070KZ
  1. ;;9002226.02101,"1804,0X070KZ ",.02)
  1. ;;0X070KZ
  1. ;;9002226.02101,"1804,0X070KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X070ZZ ",.01)
  1. ;;0X070ZZ
  1. ;;9002226.02101,"1804,0X070ZZ ",.02)
  1. ;;0X070ZZ
  1. ;;9002226.02101,"1804,0X070ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0737Z ",.01)
  1. ;;0X0737Z
  1. ;;9002226.02101,"1804,0X0737Z ",.02)
  1. ;;0X0737Z
  1. ;;9002226.02101,"1804,0X0737Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X073JZ ",.01)
  1. ;;0X073JZ
  1. ;;9002226.02101,"1804,0X073JZ ",.02)
  1. ;;0X073JZ
  1. ;;9002226.02101,"1804,0X073JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X073KZ ",.01)
  1. ;;0X073KZ
  1. ;;9002226.02101,"1804,0X073KZ ",.02)
  1. ;;0X073KZ
  1. ;;9002226.02101,"1804,0X073KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X073ZZ ",.01)
  1. ;;0X073ZZ
  1. ;;9002226.02101,"1804,0X073ZZ ",.02)
  1. ;;0X073ZZ
  1. ;;9002226.02101,"1804,0X073ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0747Z ",.01)
  1. ;;0X0747Z
  1. ;;9002226.02101,"1804,0X0747Z ",.02)
  1. ;;0X0747Z
  1. ;;9002226.02101,"1804,0X0747Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X074JZ ",.01)
  1. ;;0X074JZ
  1. ;;9002226.02101,"1804,0X074JZ ",.02)
  1. ;;0X074JZ
  1. ;;9002226.02101,"1804,0X074JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X074KZ ",.01)
  1. ;;0X074KZ
  1. ;;9002226.02101,"1804,0X074KZ ",.02)
  1. ;;0X074KZ
  1. ;;9002226.02101,"1804,0X074KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X074ZZ ",.01)
  1. ;;0X074ZZ
  1. ;;9002226.02101,"1804,0X074ZZ ",.02)
  1. ;;0X074ZZ
  1. ;;9002226.02101,"1804,0X074ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0807Z ",.01)
  1. ;;0X0807Z
  1. ;;9002226.02101,"1804,0X0807Z ",.02)
  1. ;;0X0807Z
  1. ;;9002226.02101,"1804,0X0807Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X080JZ ",.01)
  1. ;;0X080JZ
  1. ;;9002226.02101,"1804,0X080JZ ",.02)
  1. ;;0X080JZ
  1. ;;9002226.02101,"1804,0X080JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X080KZ ",.01)
  1. ;;0X080KZ
  1. ;;9002226.02101,"1804,0X080KZ ",.02)
  1. ;;0X080KZ
  1. ;;9002226.02101,"1804,0X080KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X080ZZ ",.01)
  1. ;;0X080ZZ
  1. ;;9002226.02101,"1804,0X080ZZ ",.02)
  1. ;;0X080ZZ
  1. ;;9002226.02101,"1804,0X080ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0837Z ",.01)
  1. ;;0X0837Z
  1. ;;9002226.02101,"1804,0X0837Z ",.02)
  1. ;;0X0837Z
  1. ;;9002226.02101,"1804,0X0837Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X083JZ ",.01)
  1. ;;0X083JZ
  1. ;;9002226.02101,"1804,0X083JZ ",.02)
  1. ;;0X083JZ
  1. ;;9002226.02101,"1804,0X083JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X083KZ ",.01)
  1. ;;0X083KZ
  1. ;;9002226.02101,"1804,0X083KZ ",.02)
  1. ;;0X083KZ
  1. ;;9002226.02101,"1804,0X083KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X083ZZ ",.01)
  1. ;;0X083ZZ
  1. ;;9002226.02101,"1804,0X083ZZ ",.02)
  1. ;;0X083ZZ
  1. ;;9002226.02101,"1804,0X083ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0847Z ",.01)
  1. ;;0X0847Z
  1. ;;9002226.02101,"1804,0X0847Z ",.02)
  1. ;;0X0847Z
  1. ;;9002226.02101,"1804,0X0847Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X084JZ ",.01)
  1. ;;0X084JZ
  1. ;;9002226.02101,"1804,0X084JZ ",.02)
  1. ;;0X084JZ
  1. ;;9002226.02101,"1804,0X084JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X084KZ ",.01)
  1. ;;0X084KZ
  1. ;;9002226.02101,"1804,0X084KZ ",.02)
  1. ;;0X084KZ
  1. ;;9002226.02101,"1804,0X084KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X084ZZ ",.01)
  1. ;;0X084ZZ
  1. ;;9002226.02101,"1804,0X084ZZ ",.02)
  1. ;;0X084ZZ
  1. ;;9002226.02101,"1804,0X084ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0907Z ",.01)
  1. ;;0X0907Z
  1. ;;9002226.02101,"1804,0X0907Z ",.02)
  1. ;;0X0907Z
  1. ;;9002226.02101,"1804,0X0907Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X090JZ ",.01)
  1. ;;0X090JZ
  1. ;;9002226.02101,"1804,0X090JZ ",.02)
  1. ;;0X090JZ
  1. ;;9002226.02101,"1804,0X090JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X090KZ ",.01)
  1. ;;0X090KZ
  1. ;;9002226.02101,"1804,0X090KZ ",.02)
  1. ;;0X090KZ
  1. ;;9002226.02101,"1804,0X090KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X090ZZ ",.01)
  1. ;;0X090ZZ
  1. ;;9002226.02101,"1804,0X090ZZ ",.02)
  1. ;;0X090ZZ
  1. ;;9002226.02101,"1804,0X090ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0937Z ",.01)
  1. ;;0X0937Z
  1. ;;9002226.02101,"1804,0X0937Z ",.02)
  1. ;;0X0937Z
  1. ;;9002226.02101,"1804,0X0937Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X093JZ ",.01)
  1. ;;0X093JZ
  1. ;;9002226.02101,"1804,0X093JZ ",.02)
  1. ;;0X093JZ
  1. ;;9002226.02101,"1804,0X093JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X093KZ ",.01)
  1. ;;0X093KZ
  1. ;;9002226.02101,"1804,0X093KZ ",.02)
  1. ;;0X093KZ
  1. ;;9002226.02101,"1804,0X093KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X093ZZ ",.01)
  1. ;;0X093ZZ
  1. ;;9002226.02101,"1804,0X093ZZ ",.02)
  1. ;;0X093ZZ
  1. ;;9002226.02101,"1804,0X093ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0947Z ",.01)
  1. ;;0X0947Z
  1. ;;9002226.02101,"1804,0X0947Z ",.02)
  1. ;;0X0947Z
  1. ;;9002226.02101,"1804,0X0947Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X094JZ ",.01)
  1. ;;0X094JZ
  1. ;;9002226.02101,"1804,0X094JZ ",.02)
  1. ;;0X094JZ
  1. ;;9002226.02101,"1804,0X094JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X094KZ ",.01)
  1. ;;0X094KZ
  1. ;;9002226.02101,"1804,0X094KZ ",.02)
  1. ;;0X094KZ
  1. ;;9002226.02101,"1804,0X094KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X094ZZ ",.01)
  1. ;;0X094ZZ
  1. ;;9002226.02101,"1804,0X094ZZ ",.02)
  1. ;;0X094ZZ
  1. ;;9002226.02101,"1804,0X094ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0B07Z ",.01)
  1. ;;0X0B07Z
  1. ;;9002226.02101,"1804,0X0B07Z ",.02)
  1. ;;0X0B07Z
  1. ;;9002226.02101,"1804,0X0B07Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0B0JZ ",.01)
  1. ;;0X0B0JZ
  1. ;;9002226.02101,"1804,0X0B0JZ ",.02)
  1. ;;0X0B0JZ
  1. ;;9002226.02101,"1804,0X0B0JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0B0KZ ",.01)
  1. ;;0X0B0KZ
  1. ;;9002226.02101,"1804,0X0B0KZ ",.02)
  1. ;;0X0B0KZ
  1. ;;9002226.02101,"1804,0X0B0KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0B0ZZ ",.01)
  1. ;;0X0B0ZZ
  1. ;;9002226.02101,"1804,0X0B0ZZ ",.02)
  1. ;;0X0B0ZZ
  1. ;;9002226.02101,"1804,0X0B0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0B37Z ",.01)
  1. ;;0X0B37Z
  1. ;;9002226.02101,"1804,0X0B37Z ",.02)
  1. ;;0X0B37Z
  1. ;;9002226.02101,"1804,0X0B37Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0B3JZ ",.01)
  1. ;;0X0B3JZ
  1. ;;9002226.02101,"1804,0X0B3JZ ",.02)
  1. ;;0X0B3JZ
  1. ;;9002226.02101,"1804,0X0B3JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0B3KZ ",.01)
  1. ;;0X0B3KZ
  1. ;;9002226.02101,"1804,0X0B3KZ ",.02)
  1. ;;0X0B3KZ
  1. ;;9002226.02101,"1804,0X0B3KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0B3ZZ ",.01)
  1. ;;0X0B3ZZ
  1. ;;9002226.02101,"1804,0X0B3ZZ ",.02)
  1. ;;0X0B3ZZ
  1. ;;9002226.02101,"1804,0X0B3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0B47Z ",.01)
  1. ;;0X0B47Z
  1. ;;9002226.02101,"1804,0X0B47Z ",.02)
  1. ;;0X0B47Z
  1. ;;9002226.02101,"1804,0X0B47Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0B4JZ ",.01)
  1. ;;0X0B4JZ
  1. ;;9002226.02101,"1804,0X0B4JZ ",.02)
  1. ;;0X0B4JZ
  1. ;;9002226.02101,"1804,0X0B4JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0B4KZ ",.01)
  1. ;;0X0B4KZ
  1. ;;9002226.02101,"1804,0X0B4KZ ",.02)
  1. ;;0X0B4KZ
  1. ;;9002226.02101,"1804,0X0B4KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0B4ZZ ",.01)
  1. ;;0X0B4ZZ
  1. ;;9002226.02101,"1804,0X0B4ZZ ",.02)
  1. ;;0X0B4ZZ
  1. ;;9002226.02101,"1804,0X0B4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0C07Z ",.01)
  1. ;;0X0C07Z
  1. ;;9002226.02101,"1804,0X0C07Z ",.02)
  1. ;;0X0C07Z
  1. ;;9002226.02101,"1804,0X0C07Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0C0JZ ",.01)
  1. ;;0X0C0JZ
  1. ;;9002226.02101,"1804,0X0C0JZ ",.02)
  1. ;;0X0C0JZ
  1. ;;9002226.02101,"1804,0X0C0JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0C0KZ ",.01)
  1. ;;0X0C0KZ
  1. ;;9002226.02101,"1804,0X0C0KZ ",.02)
  1. ;;0X0C0KZ
  1. ;;9002226.02101,"1804,0X0C0KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0C0ZZ ",.01)
  1. ;;0X0C0ZZ
  1. ;;9002226.02101,"1804,0X0C0ZZ ",.02)
  1. ;;0X0C0ZZ
  1. ;;9002226.02101,"1804,0X0C0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0C37Z ",.01)
  1. ;;0X0C37Z
  1. ;;9002226.02101,"1804,0X0C37Z ",.02)
  1. ;;0X0C37Z
  1. ;;9002226.02101,"1804,0X0C37Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0C3JZ ",.01)
  1. ;;0X0C3JZ
  1. ;;9002226.02101,"1804,0X0C3JZ ",.02)
  1. ;;0X0C3JZ
  1. ;;9002226.02101,"1804,0X0C3JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0C3KZ ",.01)
  1. ;;0X0C3KZ
  1. ;;9002226.02101,"1804,0X0C3KZ ",.02)
  1. ;;0X0C3KZ
  1. ;;9002226.02101,"1804,0X0C3KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0C3ZZ ",.01)
  1. ;;0X0C3ZZ
  1. ;;9002226.02101,"1804,0X0C3ZZ ",.02)
  1. ;;0X0C3ZZ
  1. ;;9002226.02101,"1804,0X0C3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0C47Z ",.01)
  1. ;;0X0C47Z
  1. ;;9002226.02101,"1804,0X0C47Z ",.02)
  1. ;;0X0C47Z
  1. ;;9002226.02101,"1804,0X0C47Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0C4JZ ",.01)
  1. ;;0X0C4JZ
  1. ;;9002226.02101,"1804,0X0C4JZ ",.02)
  1. ;;0X0C4JZ
  1. ;;9002226.02101,"1804,0X0C4JZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0C4KZ ",.01)
  1. ;;0X0C4KZ
  1. ;;9002226.02101,"1804,0X0C4KZ ",.02)
  1. ;;0X0C4KZ
  1. ;;9002226.02101,"1804,0X0C4KZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0X0C4ZZ ",.01)
  1. ;;0X0C4ZZ