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

ATXXB224.m

Go to the documentation of this file.
  1. ATXXB224 ;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,D9199YZ ",.02)
  1. ;;D9199YZ
  1. ;;9002226.02101,"1804,D9199YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D919B7Z ",.01)
  1. ;;D919B7Z
  1. ;;9002226.02101,"1804,D919B7Z ",.02)
  1. ;;D919B7Z
  1. ;;9002226.02101,"1804,D919B7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D919B8Z ",.01)
  1. ;;D919B8Z
  1. ;;9002226.02101,"1804,D919B8Z ",.02)
  1. ;;D919B8Z
  1. ;;9002226.02101,"1804,D919B8Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D919B9Z ",.01)
  1. ;;D919B9Z
  1. ;;9002226.02101,"1804,D919B9Z ",.02)
  1. ;;D919B9Z
  1. ;;9002226.02101,"1804,D919B9Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D919BBZ ",.01)
  1. ;;D919BBZ
  1. ;;9002226.02101,"1804,D919BBZ ",.02)
  1. ;;D919BBZ
  1. ;;9002226.02101,"1804,D919BBZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D919BCZ ",.01)
  1. ;;D919BCZ
  1. ;;9002226.02101,"1804,D919BCZ ",.02)
  1. ;;D919BCZ
  1. ;;9002226.02101,"1804,D919BCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D919BYZ ",.01)
  1. ;;D919BYZ
  1. ;;9002226.02101,"1804,D919BYZ ",.02)
  1. ;;D919BYZ
  1. ;;9002226.02101,"1804,D919BYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91B97Z ",.01)
  1. ;;D91B97Z
  1. ;;9002226.02101,"1804,D91B97Z ",.02)
  1. ;;D91B97Z
  1. ;;9002226.02101,"1804,D91B97Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91B98Z ",.01)
  1. ;;D91B98Z
  1. ;;9002226.02101,"1804,D91B98Z ",.02)
  1. ;;D91B98Z
  1. ;;9002226.02101,"1804,D91B98Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91B99Z ",.01)
  1. ;;D91B99Z
  1. ;;9002226.02101,"1804,D91B99Z ",.02)
  1. ;;D91B99Z
  1. ;;9002226.02101,"1804,D91B99Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91B9BZ ",.01)
  1. ;;D91B9BZ
  1. ;;9002226.02101,"1804,D91B9BZ ",.02)
  1. ;;D91B9BZ
  1. ;;9002226.02101,"1804,D91B9BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91B9CZ ",.01)
  1. ;;D91B9CZ
  1. ;;9002226.02101,"1804,D91B9CZ ",.02)
  1. ;;D91B9CZ
  1. ;;9002226.02101,"1804,D91B9CZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91B9YZ ",.01)
  1. ;;D91B9YZ
  1. ;;9002226.02101,"1804,D91B9YZ ",.02)
  1. ;;D91B9YZ
  1. ;;9002226.02101,"1804,D91B9YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91BB7Z ",.01)
  1. ;;D91BB7Z
  1. ;;9002226.02101,"1804,D91BB7Z ",.02)
  1. ;;D91BB7Z
  1. ;;9002226.02101,"1804,D91BB7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91BB8Z ",.01)
  1. ;;D91BB8Z
  1. ;;9002226.02101,"1804,D91BB8Z ",.02)
  1. ;;D91BB8Z
  1. ;;9002226.02101,"1804,D91BB8Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91BB9Z ",.01)
  1. ;;D91BB9Z
  1. ;;9002226.02101,"1804,D91BB9Z ",.02)
  1. ;;D91BB9Z
  1. ;;9002226.02101,"1804,D91BB9Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91BBBZ ",.01)
  1. ;;D91BBBZ
  1. ;;9002226.02101,"1804,D91BBBZ ",.02)
  1. ;;D91BBBZ
  1. ;;9002226.02101,"1804,D91BBBZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91BBCZ ",.01)
  1. ;;D91BBCZ
  1. ;;9002226.02101,"1804,D91BBCZ ",.02)
  1. ;;D91BBCZ
  1. ;;9002226.02101,"1804,D91BBCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91BBYZ ",.01)
  1. ;;D91BBYZ
  1. ;;9002226.02101,"1804,D91BBYZ ",.02)
  1. ;;D91BBYZ
  1. ;;9002226.02101,"1804,D91BBYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91D97Z ",.01)
  1. ;;D91D97Z
  1. ;;9002226.02101,"1804,D91D97Z ",.02)
  1. ;;D91D97Z
  1. ;;9002226.02101,"1804,D91D97Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91D98Z ",.01)
  1. ;;D91D98Z
  1. ;;9002226.02101,"1804,D91D98Z ",.02)
  1. ;;D91D98Z
  1. ;;9002226.02101,"1804,D91D98Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91D99Z ",.01)
  1. ;;D91D99Z
  1. ;;9002226.02101,"1804,D91D99Z ",.02)
  1. ;;D91D99Z
  1. ;;9002226.02101,"1804,D91D99Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91D9BZ ",.01)
  1. ;;D91D9BZ
  1. ;;9002226.02101,"1804,D91D9BZ ",.02)
  1. ;;D91D9BZ
  1. ;;9002226.02101,"1804,D91D9BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91D9CZ ",.01)
  1. ;;D91D9CZ
  1. ;;9002226.02101,"1804,D91D9CZ ",.02)
  1. ;;D91D9CZ
  1. ;;9002226.02101,"1804,D91D9CZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91D9YZ ",.01)
  1. ;;D91D9YZ
  1. ;;9002226.02101,"1804,D91D9YZ ",.02)
  1. ;;D91D9YZ
  1. ;;9002226.02101,"1804,D91D9YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91DB7Z ",.01)
  1. ;;D91DB7Z
  1. ;;9002226.02101,"1804,D91DB7Z ",.02)
  1. ;;D91DB7Z
  1. ;;9002226.02101,"1804,D91DB7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91DB8Z ",.01)
  1. ;;D91DB8Z
  1. ;;9002226.02101,"1804,D91DB8Z ",.02)
  1. ;;D91DB8Z
  1. ;;9002226.02101,"1804,D91DB8Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91DB9Z ",.01)
  1. ;;D91DB9Z
  1. ;;9002226.02101,"1804,D91DB9Z ",.02)
  1. ;;D91DB9Z
  1. ;;9002226.02101,"1804,D91DB9Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91DBBZ ",.01)
  1. ;;D91DBBZ
  1. ;;9002226.02101,"1804,D91DBBZ ",.02)
  1. ;;D91DBBZ
  1. ;;9002226.02101,"1804,D91DBBZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91DBCZ ",.01)
  1. ;;D91DBCZ
  1. ;;9002226.02101,"1804,D91DBCZ ",.02)
  1. ;;D91DBCZ
  1. ;;9002226.02101,"1804,D91DBCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91DBYZ ",.01)
  1. ;;D91DBYZ
  1. ;;9002226.02101,"1804,D91DBYZ ",.02)
  1. ;;D91DBYZ
  1. ;;9002226.02101,"1804,D91DBYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91F97Z ",.01)
  1. ;;D91F97Z
  1. ;;9002226.02101,"1804,D91F97Z ",.02)
  1. ;;D91F97Z
  1. ;;9002226.02101,"1804,D91F97Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91F98Z ",.01)
  1. ;;D91F98Z
  1. ;;9002226.02101,"1804,D91F98Z ",.02)
  1. ;;D91F98Z
  1. ;;9002226.02101,"1804,D91F98Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91F99Z ",.01)
  1. ;;D91F99Z
  1. ;;9002226.02101,"1804,D91F99Z ",.02)
  1. ;;D91F99Z
  1. ;;9002226.02101,"1804,D91F99Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91F9BZ ",.01)
  1. ;;D91F9BZ
  1. ;;9002226.02101,"1804,D91F9BZ ",.02)
  1. ;;D91F9BZ
  1. ;;9002226.02101,"1804,D91F9BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91F9CZ ",.01)
  1. ;;D91F9CZ
  1. ;;9002226.02101,"1804,D91F9CZ ",.02)
  1. ;;D91F9CZ
  1. ;;9002226.02101,"1804,D91F9CZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91F9YZ ",.01)
  1. ;;D91F9YZ
  1. ;;9002226.02101,"1804,D91F9YZ ",.02)
  1. ;;D91F9YZ
  1. ;;9002226.02101,"1804,D91F9YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91FB7Z ",.01)
  1. ;;D91FB7Z
  1. ;;9002226.02101,"1804,D91FB7Z ",.02)
  1. ;;D91FB7Z
  1. ;;9002226.02101,"1804,D91FB7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91FB8Z ",.01)
  1. ;;D91FB8Z
  1. ;;9002226.02101,"1804,D91FB8Z ",.02)
  1. ;;D91FB8Z
  1. ;;9002226.02101,"1804,D91FB8Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91FB9Z ",.01)
  1. ;;D91FB9Z
  1. ;;9002226.02101,"1804,D91FB9Z ",.02)
  1. ;;D91FB9Z
  1. ;;9002226.02101,"1804,D91FB9Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91FBBZ ",.01)
  1. ;;D91FBBZ
  1. ;;9002226.02101,"1804,D91FBBZ ",.02)
  1. ;;D91FBBZ
  1. ;;9002226.02101,"1804,D91FBBZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91FBCZ ",.01)
  1. ;;D91FBCZ
  1. ;;9002226.02101,"1804,D91FBCZ ",.02)
  1. ;;D91FBCZ
  1. ;;9002226.02101,"1804,D91FBCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D91FBYZ ",.01)
  1. ;;D91FBYZ
  1. ;;9002226.02101,"1804,D91FBYZ ",.02)
  1. ;;D91FBYZ
  1. ;;9002226.02101,"1804,D91FBYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D920DZZ ",.01)
  1. ;;D920DZZ
  1. ;;9002226.02101,"1804,D920DZZ ",.02)
  1. ;;D920DZZ
  1. ;;9002226.02101,"1804,D920DZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D920HZZ ",.01)
  1. ;;D920HZZ
  1. ;;9002226.02101,"1804,D920HZZ ",.02)
  1. ;;D920HZZ
  1. ;;9002226.02101,"1804,D920HZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D920JZZ ",.01)
  1. ;;D920JZZ
  1. ;;9002226.02101,"1804,D920JZZ ",.02)
  1. ;;D920JZZ
  1. ;;9002226.02101,"1804,D920JZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D921DZZ ",.01)
  1. ;;D921DZZ
  1. ;;9002226.02101,"1804,D921DZZ ",.02)
  1. ;;D921DZZ
  1. ;;9002226.02101,"1804,D921DZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D921HZZ ",.01)
  1. ;;D921HZZ
  1. ;;9002226.02101,"1804,D921HZZ ",.02)
  1. ;;D921HZZ
  1. ;;9002226.02101,"1804,D921HZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D921JZZ ",.01)
  1. ;;D921JZZ
  1. ;;9002226.02101,"1804,D921JZZ ",.02)
  1. ;;D921JZZ
  1. ;;9002226.02101,"1804,D921JZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D924DZZ ",.01)
  1. ;;D924DZZ
  1. ;;9002226.02101,"1804,D924DZZ ",.02)
  1. ;;D924DZZ
  1. ;;9002226.02101,"1804,D924DZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D924HZZ ",.01)
  1. ;;D924HZZ
  1. ;;9002226.02101,"1804,D924HZZ ",.02)
  1. ;;D924HZZ
  1. ;;9002226.02101,"1804,D924HZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D924JZZ ",.01)
  1. ;;D924JZZ
  1. ;;9002226.02101,"1804,D924JZZ ",.02)
  1. ;;D924JZZ
  1. ;;9002226.02101,"1804,D924JZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D925DZZ ",.01)
  1. ;;D925DZZ
  1. ;;9002226.02101,"1804,D925DZZ ",.02)
  1. ;;D925DZZ
  1. ;;9002226.02101,"1804,D925DZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D925HZZ ",.01)
  1. ;;D925HZZ
  1. ;;9002226.02101,"1804,D925HZZ ",.02)
  1. ;;D925HZZ
  1. ;;9002226.02101,"1804,D925HZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D925JZZ ",.01)
  1. ;;D925JZZ
  1. ;;9002226.02101,"1804,D925JZZ ",.02)
  1. ;;D925JZZ
  1. ;;9002226.02101,"1804,D925JZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D926DZZ ",.01)
  1. ;;D926DZZ
  1. ;;9002226.02101,"1804,D926DZZ ",.02)
  1. ;;D926DZZ
  1. ;;9002226.02101,"1804,D926DZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D926HZZ ",.01)
  1. ;;D926HZZ
  1. ;;9002226.02101,"1804,D926HZZ ",.02)
  1. ;;D926HZZ
  1. ;;9002226.02101,"1804,D926HZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D926JZZ ",.01)
  1. ;;D926JZZ
  1. ;;9002226.02101,"1804,D926JZZ ",.02)
  1. ;;D926JZZ
  1. ;;9002226.02101,"1804,D926JZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D927DZZ ",.01)
  1. ;;D927DZZ
  1. ;;9002226.02101,"1804,D927DZZ ",.02)
  1. ;;D927DZZ
  1. ;;9002226.02101,"1804,D927DZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D927HZZ ",.01)
  1. ;;D927HZZ
  1. ;;9002226.02101,"1804,D927HZZ ",.02)
  1. ;;D927HZZ
  1. ;;9002226.02101,"1804,D927HZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D927JZZ ",.01)
  1. ;;D927JZZ
  1. ;;9002226.02101,"1804,D927JZZ ",.02)
  1. ;;D927JZZ
  1. ;;9002226.02101,"1804,D927JZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D928DZZ ",.01)
  1. ;;D928DZZ
  1. ;;9002226.02101,"1804,D928DZZ ",.02)
  1. ;;D928DZZ
  1. ;;9002226.02101,"1804,D928DZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D928HZZ ",.01)
  1. ;;D928HZZ
  1. ;;9002226.02101,"1804,D928HZZ ",.02)
  1. ;;D928HZZ
  1. ;;9002226.02101,"1804,D928HZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D928JZZ ",.01)
  1. ;;D928JZZ
  1. ;;9002226.02101,"1804,D928JZZ ",.02)
  1. ;;D928JZZ
  1. ;;9002226.02101,"1804,D928JZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D929DZZ ",.01)
  1. ;;D929DZZ
  1. ;;9002226.02101,"1804,D929DZZ ",.02)
  1. ;;D929DZZ
  1. ;;9002226.02101,"1804,D929DZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D929HZZ ",.01)
  1. ;;D929HZZ
  1. ;;9002226.02101,"1804,D929HZZ ",.02)
  1. ;;D929HZZ
  1. ;;9002226.02101,"1804,D929HZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D929JZZ ",.01)
  1. ;;D929JZZ
  1. ;;9002226.02101,"1804,D929JZZ ",.02)
  1. ;;D929JZZ
  1. ;;9002226.02101,"1804,D929JZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D92BDZZ ",.01)
  1. ;;D92BDZZ
  1. ;;9002226.02101,"1804,D92BDZZ ",.02)
  1. ;;D92BDZZ
  1. ;;9002226.02101,"1804,D92BDZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D92BHZZ ",.01)
  1. ;;D92BHZZ
  1. ;;9002226.02101,"1804,D92BHZZ ",.02)
  1. ;;D92BHZZ
  1. ;;9002226.02101,"1804,D92BHZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D92BJZZ ",.01)
  1. ;;D92BJZZ
  1. ;;9002226.02101,"1804,D92BJZZ ",.02)
  1. ;;D92BJZZ
  1. ;;9002226.02101,"1804,D92BJZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D92CDZZ ",.01)
  1. ;;D92CDZZ
  1. ;;9002226.02101,"1804,D92CDZZ ",.02)
  1. ;;D92CDZZ
  1. ;;9002226.02101,"1804,D92CDZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D92CHZZ ",.01)
  1. ;;D92CHZZ
  1. ;;9002226.02101,"1804,D92CHZZ ",.02)
  1. ;;D92CHZZ
  1. ;;9002226.02101,"1804,D92CHZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D92CJZZ ",.01)
  1. ;;D92CJZZ
  1. ;;9002226.02101,"1804,D92CJZZ ",.02)
  1. ;;D92CJZZ
  1. ;;9002226.02101,"1804,D92CJZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D92DDZZ ",.01)
  1. ;;D92DDZZ
  1. ;;9002226.02101,"1804,D92DDZZ ",.02)
  1. ;;D92DDZZ
  1. ;;9002226.02101,"1804,D92DDZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D92DHZZ ",.01)
  1. ;;D92DHZZ
  1. ;;9002226.02101,"1804,D92DHZZ ",.02)
  1. ;;D92DHZZ
  1. ;;9002226.02101,"1804,D92DHZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D92DJZZ ",.01)
  1. ;;D92DJZZ
  1. ;;9002226.02101,"1804,D92DJZZ ",.02)
  1. ;;D92DJZZ
  1. ;;9002226.02101,"1804,D92DJZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D9Y07ZZ ",.01)
  1. ;;D9Y07ZZ
  1. ;;9002226.02101,"1804,D9Y07ZZ ",.02)
  1. ;;D9Y07ZZ
  1. ;;9002226.02101,"1804,D9Y07ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D9Y08ZZ ",.01)
  1. ;;D9Y08ZZ
  1. ;;9002226.02101,"1804,D9Y08ZZ ",.02)
  1. ;;D9Y08ZZ
  1. ;;9002226.02101,"1804,D9Y08ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,D9Y0FZZ ",.01)
  1. ;;D9Y0FZZ
  1. ;;9002226.02101,"1804,D9Y0FZZ ",.02)
  1. ;;D9Y0FZZ