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

ATXXB226.m

Go to the documentation of this file.
  1. ATXXB226 ;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,DB072ZZ ",.01)
  1. ;;DB072ZZ
  1. ;;9002226.02101,"1804,DB072ZZ ",.02)
  1. ;;DB072ZZ
  1. ;;9002226.02101,"1804,DB072ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB073Z0 ",.01)
  1. ;;DB073Z0
  1. ;;9002226.02101,"1804,DB073Z0 ",.02)
  1. ;;DB073Z0
  1. ;;9002226.02101,"1804,DB073Z0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB073ZZ ",.01)
  1. ;;DB073ZZ
  1. ;;9002226.02101,"1804,DB073ZZ ",.02)
  1. ;;DB073ZZ
  1. ;;9002226.02101,"1804,DB073ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB074ZZ ",.01)
  1. ;;DB074ZZ
  1. ;;9002226.02101,"1804,DB074ZZ ",.02)
  1. ;;DB074ZZ
  1. ;;9002226.02101,"1804,DB074ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB075ZZ ",.01)
  1. ;;DB075ZZ
  1. ;;9002226.02101,"1804,DB075ZZ ",.02)
  1. ;;DB075ZZ
  1. ;;9002226.02101,"1804,DB075ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB076ZZ ",.01)
  1. ;;DB076ZZ
  1. ;;9002226.02101,"1804,DB076ZZ ",.02)
  1. ;;DB076ZZ
  1. ;;9002226.02101,"1804,DB076ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB080ZZ ",.01)
  1. ;;DB080ZZ
  1. ;;9002226.02101,"1804,DB080ZZ ",.02)
  1. ;;DB080ZZ
  1. ;;9002226.02101,"1804,DB080ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB081ZZ ",.01)
  1. ;;DB081ZZ
  1. ;;9002226.02101,"1804,DB081ZZ ",.02)
  1. ;;DB081ZZ
  1. ;;9002226.02101,"1804,DB081ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB082ZZ ",.01)
  1. ;;DB082ZZ
  1. ;;9002226.02101,"1804,DB082ZZ ",.02)
  1. ;;DB082ZZ
  1. ;;9002226.02101,"1804,DB082ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB083Z0 ",.01)
  1. ;;DB083Z0
  1. ;;9002226.02101,"1804,DB083Z0 ",.02)
  1. ;;DB083Z0
  1. ;;9002226.02101,"1804,DB083Z0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB083ZZ ",.01)
  1. ;;DB083ZZ
  1. ;;9002226.02101,"1804,DB083ZZ ",.02)
  1. ;;DB083ZZ
  1. ;;9002226.02101,"1804,DB083ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB084ZZ ",.01)
  1. ;;DB084ZZ
  1. ;;9002226.02101,"1804,DB084ZZ ",.02)
  1. ;;DB084ZZ
  1. ;;9002226.02101,"1804,DB084ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB085ZZ ",.01)
  1. ;;DB085ZZ
  1. ;;9002226.02101,"1804,DB085ZZ ",.02)
  1. ;;DB085ZZ
  1. ;;9002226.02101,"1804,DB085ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB086ZZ ",.01)
  1. ;;DB086ZZ
  1. ;;9002226.02101,"1804,DB086ZZ ",.02)
  1. ;;DB086ZZ
  1. ;;9002226.02101,"1804,DB086ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1097Z ",.01)
  1. ;;DB1097Z
  1. ;;9002226.02101,"1804,DB1097Z ",.02)
  1. ;;DB1097Z
  1. ;;9002226.02101,"1804,DB1097Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1098Z ",.01)
  1. ;;DB1098Z
  1. ;;9002226.02101,"1804,DB1098Z ",.02)
  1. ;;DB1098Z
  1. ;;9002226.02101,"1804,DB1098Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1099Z ",.01)
  1. ;;DB1099Z
  1. ;;9002226.02101,"1804,DB1099Z ",.02)
  1. ;;DB1099Z
  1. ;;9002226.02101,"1804,DB1099Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB109BZ ",.01)
  1. ;;DB109BZ
  1. ;;9002226.02101,"1804,DB109BZ ",.02)
  1. ;;DB109BZ
  1. ;;9002226.02101,"1804,DB109BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB109CZ ",.01)
  1. ;;DB109CZ
  1. ;;9002226.02101,"1804,DB109CZ ",.02)
  1. ;;DB109CZ
  1. ;;9002226.02101,"1804,DB109CZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB109YZ ",.01)
  1. ;;DB109YZ
  1. ;;9002226.02101,"1804,DB109YZ ",.02)
  1. ;;DB109YZ
  1. ;;9002226.02101,"1804,DB109YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB10B7Z ",.01)
  1. ;;DB10B7Z
  1. ;;9002226.02101,"1804,DB10B7Z ",.02)
  1. ;;DB10B7Z
  1. ;;9002226.02101,"1804,DB10B7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB10B8Z ",.01)
  1. ;;DB10B8Z
  1. ;;9002226.02101,"1804,DB10B8Z ",.02)
  1. ;;DB10B8Z
  1. ;;9002226.02101,"1804,DB10B8Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB10B9Z ",.01)
  1. ;;DB10B9Z
  1. ;;9002226.02101,"1804,DB10B9Z ",.02)
  1. ;;DB10B9Z
  1. ;;9002226.02101,"1804,DB10B9Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB10BBZ ",.01)
  1. ;;DB10BBZ
  1. ;;9002226.02101,"1804,DB10BBZ ",.02)
  1. ;;DB10BBZ
  1. ;;9002226.02101,"1804,DB10BBZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB10BCZ ",.01)
  1. ;;DB10BCZ
  1. ;;9002226.02101,"1804,DB10BCZ ",.02)
  1. ;;DB10BCZ
  1. ;;9002226.02101,"1804,DB10BCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB10BYZ ",.01)
  1. ;;DB10BYZ
  1. ;;9002226.02101,"1804,DB10BYZ ",.02)
  1. ;;DB10BYZ
  1. ;;9002226.02101,"1804,DB10BYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1197Z ",.01)
  1. ;;DB1197Z
  1. ;;9002226.02101,"1804,DB1197Z ",.02)
  1. ;;DB1197Z
  1. ;;9002226.02101,"1804,DB1197Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1198Z ",.01)
  1. ;;DB1198Z
  1. ;;9002226.02101,"1804,DB1198Z ",.02)
  1. ;;DB1198Z
  1. ;;9002226.02101,"1804,DB1198Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1199Z ",.01)
  1. ;;DB1199Z
  1. ;;9002226.02101,"1804,DB1199Z ",.02)
  1. ;;DB1199Z
  1. ;;9002226.02101,"1804,DB1199Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB119BZ ",.01)
  1. ;;DB119BZ
  1. ;;9002226.02101,"1804,DB119BZ ",.02)
  1. ;;DB119BZ
  1. ;;9002226.02101,"1804,DB119BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB119CZ ",.01)
  1. ;;DB119CZ
  1. ;;9002226.02101,"1804,DB119CZ ",.02)
  1. ;;DB119CZ
  1. ;;9002226.02101,"1804,DB119CZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB119YZ ",.01)
  1. ;;DB119YZ
  1. ;;9002226.02101,"1804,DB119YZ ",.02)
  1. ;;DB119YZ
  1. ;;9002226.02101,"1804,DB119YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB11B7Z ",.01)
  1. ;;DB11B7Z
  1. ;;9002226.02101,"1804,DB11B7Z ",.02)
  1. ;;DB11B7Z
  1. ;;9002226.02101,"1804,DB11B7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB11B8Z ",.01)
  1. ;;DB11B8Z
  1. ;;9002226.02101,"1804,DB11B8Z ",.02)
  1. ;;DB11B8Z
  1. ;;9002226.02101,"1804,DB11B8Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB11B9Z ",.01)
  1. ;;DB11B9Z
  1. ;;9002226.02101,"1804,DB11B9Z ",.02)
  1. ;;DB11B9Z
  1. ;;9002226.02101,"1804,DB11B9Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB11BBZ ",.01)
  1. ;;DB11BBZ
  1. ;;9002226.02101,"1804,DB11BBZ ",.02)
  1. ;;DB11BBZ
  1. ;;9002226.02101,"1804,DB11BBZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB11BCZ ",.01)
  1. ;;DB11BCZ
  1. ;;9002226.02101,"1804,DB11BCZ ",.02)
  1. ;;DB11BCZ
  1. ;;9002226.02101,"1804,DB11BCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB11BYZ ",.01)
  1. ;;DB11BYZ
  1. ;;9002226.02101,"1804,DB11BYZ ",.02)
  1. ;;DB11BYZ
  1. ;;9002226.02101,"1804,DB11BYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1297Z ",.01)
  1. ;;DB1297Z
  1. ;;9002226.02101,"1804,DB1297Z ",.02)
  1. ;;DB1297Z
  1. ;;9002226.02101,"1804,DB1297Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1298Z ",.01)
  1. ;;DB1298Z
  1. ;;9002226.02101,"1804,DB1298Z ",.02)
  1. ;;DB1298Z
  1. ;;9002226.02101,"1804,DB1298Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1299Z ",.01)
  1. ;;DB1299Z
  1. ;;9002226.02101,"1804,DB1299Z ",.02)
  1. ;;DB1299Z
  1. ;;9002226.02101,"1804,DB1299Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB129BZ ",.01)
  1. ;;DB129BZ
  1. ;;9002226.02101,"1804,DB129BZ ",.02)
  1. ;;DB129BZ
  1. ;;9002226.02101,"1804,DB129BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB129CZ ",.01)
  1. ;;DB129CZ
  1. ;;9002226.02101,"1804,DB129CZ ",.02)
  1. ;;DB129CZ
  1. ;;9002226.02101,"1804,DB129CZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB129YZ ",.01)
  1. ;;DB129YZ
  1. ;;9002226.02101,"1804,DB129YZ ",.02)
  1. ;;DB129YZ
  1. ;;9002226.02101,"1804,DB129YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB12B7Z ",.01)
  1. ;;DB12B7Z
  1. ;;9002226.02101,"1804,DB12B7Z ",.02)
  1. ;;DB12B7Z
  1. ;;9002226.02101,"1804,DB12B7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB12B8Z ",.01)
  1. ;;DB12B8Z
  1. ;;9002226.02101,"1804,DB12B8Z ",.02)
  1. ;;DB12B8Z
  1. ;;9002226.02101,"1804,DB12B8Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB12B9Z ",.01)
  1. ;;DB12B9Z
  1. ;;9002226.02101,"1804,DB12B9Z ",.02)
  1. ;;DB12B9Z
  1. ;;9002226.02101,"1804,DB12B9Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB12BBZ ",.01)
  1. ;;DB12BBZ
  1. ;;9002226.02101,"1804,DB12BBZ ",.02)
  1. ;;DB12BBZ
  1. ;;9002226.02101,"1804,DB12BBZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB12BCZ ",.01)
  1. ;;DB12BCZ
  1. ;;9002226.02101,"1804,DB12BCZ ",.02)
  1. ;;DB12BCZ
  1. ;;9002226.02101,"1804,DB12BCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB12BYZ ",.01)
  1. ;;DB12BYZ
  1. ;;9002226.02101,"1804,DB12BYZ ",.02)
  1. ;;DB12BYZ
  1. ;;9002226.02101,"1804,DB12BYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1597Z ",.01)
  1. ;;DB1597Z
  1. ;;9002226.02101,"1804,DB1597Z ",.02)
  1. ;;DB1597Z
  1. ;;9002226.02101,"1804,DB1597Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1598Z ",.01)
  1. ;;DB1598Z
  1. ;;9002226.02101,"1804,DB1598Z ",.02)
  1. ;;DB1598Z
  1. ;;9002226.02101,"1804,DB1598Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1599Z ",.01)
  1. ;;DB1599Z
  1. ;;9002226.02101,"1804,DB1599Z ",.02)
  1. ;;DB1599Z
  1. ;;9002226.02101,"1804,DB1599Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB159BZ ",.01)
  1. ;;DB159BZ
  1. ;;9002226.02101,"1804,DB159BZ ",.02)
  1. ;;DB159BZ
  1. ;;9002226.02101,"1804,DB159BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB159CZ ",.01)
  1. ;;DB159CZ
  1. ;;9002226.02101,"1804,DB159CZ ",.02)
  1. ;;DB159CZ
  1. ;;9002226.02101,"1804,DB159CZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB159YZ ",.01)
  1. ;;DB159YZ
  1. ;;9002226.02101,"1804,DB159YZ ",.02)
  1. ;;DB159YZ
  1. ;;9002226.02101,"1804,DB159YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB15B7Z ",.01)
  1. ;;DB15B7Z
  1. ;;9002226.02101,"1804,DB15B7Z ",.02)
  1. ;;DB15B7Z
  1. ;;9002226.02101,"1804,DB15B7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB15B8Z ",.01)
  1. ;;DB15B8Z
  1. ;;9002226.02101,"1804,DB15B8Z ",.02)
  1. ;;DB15B8Z
  1. ;;9002226.02101,"1804,DB15B8Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB15B9Z ",.01)
  1. ;;DB15B9Z
  1. ;;9002226.02101,"1804,DB15B9Z ",.02)
  1. ;;DB15B9Z
  1. ;;9002226.02101,"1804,DB15B9Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB15BBZ ",.01)
  1. ;;DB15BBZ
  1. ;;9002226.02101,"1804,DB15BBZ ",.02)
  1. ;;DB15BBZ
  1. ;;9002226.02101,"1804,DB15BBZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB15BCZ ",.01)
  1. ;;DB15BCZ
  1. ;;9002226.02101,"1804,DB15BCZ ",.02)
  1. ;;DB15BCZ
  1. ;;9002226.02101,"1804,DB15BCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB15BYZ ",.01)
  1. ;;DB15BYZ
  1. ;;9002226.02101,"1804,DB15BYZ ",.02)
  1. ;;DB15BYZ
  1. ;;9002226.02101,"1804,DB15BYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1697Z ",.01)
  1. ;;DB1697Z
  1. ;;9002226.02101,"1804,DB1697Z ",.02)
  1. ;;DB1697Z
  1. ;;9002226.02101,"1804,DB1697Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1698Z ",.01)
  1. ;;DB1698Z
  1. ;;9002226.02101,"1804,DB1698Z ",.02)
  1. ;;DB1698Z
  1. ;;9002226.02101,"1804,DB1698Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1699Z ",.01)
  1. ;;DB1699Z
  1. ;;9002226.02101,"1804,DB1699Z ",.02)
  1. ;;DB1699Z
  1. ;;9002226.02101,"1804,DB1699Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB169BZ ",.01)
  1. ;;DB169BZ
  1. ;;9002226.02101,"1804,DB169BZ ",.02)
  1. ;;DB169BZ
  1. ;;9002226.02101,"1804,DB169BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB169CZ ",.01)
  1. ;;DB169CZ
  1. ;;9002226.02101,"1804,DB169CZ ",.02)
  1. ;;DB169CZ
  1. ;;9002226.02101,"1804,DB169CZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB169YZ ",.01)
  1. ;;DB169YZ
  1. ;;9002226.02101,"1804,DB169YZ ",.02)
  1. ;;DB169YZ
  1. ;;9002226.02101,"1804,DB169YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB16B7Z ",.01)
  1. ;;DB16B7Z
  1. ;;9002226.02101,"1804,DB16B7Z ",.02)
  1. ;;DB16B7Z
  1. ;;9002226.02101,"1804,DB16B7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB16B8Z ",.01)
  1. ;;DB16B8Z
  1. ;;9002226.02101,"1804,DB16B8Z ",.02)
  1. ;;DB16B8Z
  1. ;;9002226.02101,"1804,DB16B8Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB16B9Z ",.01)
  1. ;;DB16B9Z
  1. ;;9002226.02101,"1804,DB16B9Z ",.02)
  1. ;;DB16B9Z
  1. ;;9002226.02101,"1804,DB16B9Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB16BBZ ",.01)
  1. ;;DB16BBZ
  1. ;;9002226.02101,"1804,DB16BBZ ",.02)
  1. ;;DB16BBZ
  1. ;;9002226.02101,"1804,DB16BBZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB16BCZ ",.01)
  1. ;;DB16BCZ
  1. ;;9002226.02101,"1804,DB16BCZ ",.02)
  1. ;;DB16BCZ
  1. ;;9002226.02101,"1804,DB16BCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB16BYZ ",.01)
  1. ;;DB16BYZ
  1. ;;9002226.02101,"1804,DB16BYZ ",.02)
  1. ;;DB16BYZ
  1. ;;9002226.02101,"1804,DB16BYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1797Z ",.01)
  1. ;;DB1797Z
  1. ;;9002226.02101,"1804,DB1797Z ",.02)
  1. ;;DB1797Z
  1. ;;9002226.02101,"1804,DB1797Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1798Z ",.01)
  1. ;;DB1798Z
  1. ;;9002226.02101,"1804,DB1798Z ",.02)
  1. ;;DB1798Z
  1. ;;9002226.02101,"1804,DB1798Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB1799Z ",.01)
  1. ;;DB1799Z
  1. ;;9002226.02101,"1804,DB1799Z ",.02)
  1. ;;DB1799Z
  1. ;;9002226.02101,"1804,DB1799Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB179BZ ",.01)
  1. ;;DB179BZ
  1. ;;9002226.02101,"1804,DB179BZ ",.02)
  1. ;;DB179BZ
  1. ;;9002226.02101,"1804,DB179BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,DB179CZ ",.01)
  1. ;;DB179CZ