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

ATXXB211.m

Go to the documentation of this file.
  1. ATXXB211 ;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,BY4DZZZ ",.01)
  1. ;;BY4DZZZ
  1. ;;9002226.02101,"1804,BY4DZZZ ",.02)
  1. ;;BY4DZZZ
  1. ;;9002226.02101,"1804,BY4DZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,BY4FZZZ ",.01)
  1. ;;BY4FZZZ
  1. ;;9002226.02101,"1804,BY4FZZZ ",.02)
  1. ;;BY4FZZZ
  1. ;;9002226.02101,"1804,BY4FZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,BY4GZZZ ",.01)
  1. ;;BY4GZZZ
  1. ;;9002226.02101,"1804,BY4GZZZ ",.02)
  1. ;;BY4GZZZ
  1. ;;9002226.02101,"1804,BY4GZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C0101ZZ ",.01)
  1. ;;C0101ZZ
  1. ;;9002226.02101,"1804,C0101ZZ ",.02)
  1. ;;C0101ZZ
  1. ;;9002226.02101,"1804,C0101ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C010YZZ ",.01)
  1. ;;C010YZZ
  1. ;;9002226.02101,"1804,C010YZZ ",.02)
  1. ;;C010YZZ
  1. ;;9002226.02101,"1804,C010YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C015DZZ ",.01)
  1. ;;C015DZZ
  1. ;;9002226.02101,"1804,C015DZZ ",.02)
  1. ;;C015DZZ
  1. ;;9002226.02101,"1804,C015DZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C015YZZ ",.01)
  1. ;;C015YZZ
  1. ;;9002226.02101,"1804,C015YZZ ",.02)
  1. ;;C015YZZ
  1. ;;9002226.02101,"1804,C015YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C01YYZZ ",.01)
  1. ;;C01YYZZ
  1. ;;9002226.02101,"1804,C01YYZZ ",.02)
  1. ;;C01YYZZ
  1. ;;9002226.02101,"1804,C01YYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C0201ZZ ",.01)
  1. ;;C0201ZZ
  1. ;;9002226.02101,"1804,C0201ZZ ",.02)
  1. ;;C0201ZZ
  1. ;;9002226.02101,"1804,C0201ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C020FZZ ",.01)
  1. ;;C020FZZ
  1. ;;9002226.02101,"1804,C020FZZ ",.02)
  1. ;;C020FZZ
  1. ;;9002226.02101,"1804,C020FZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C020SZZ ",.01)
  1. ;;C020SZZ
  1. ;;9002226.02101,"1804,C020SZZ ",.02)
  1. ;;C020SZZ
  1. ;;9002226.02101,"1804,C020SZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C020YZZ ",.01)
  1. ;;C020YZZ
  1. ;;9002226.02101,"1804,C020YZZ ",.02)
  1. ;;C020YZZ
  1. ;;9002226.02101,"1804,C020YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C025DZZ ",.01)
  1. ;;C025DZZ
  1. ;;9002226.02101,"1804,C025DZZ ",.02)
  1. ;;C025DZZ
  1. ;;9002226.02101,"1804,C025DZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C025YZZ ",.01)
  1. ;;C025YZZ
  1. ;;9002226.02101,"1804,C025YZZ ",.02)
  1. ;;C025YZZ
  1. ;;9002226.02101,"1804,C025YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C02YYZZ ",.01)
  1. ;;C02YYZZ
  1. ;;9002226.02101,"1804,C02YYZZ ",.02)
  1. ;;C02YYZZ
  1. ;;9002226.02101,"1804,C02YYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C030BZZ ",.01)
  1. ;;C030BZZ
  1. ;;9002226.02101,"1804,C030BZZ ",.02)
  1. ;;C030BZZ
  1. ;;9002226.02101,"1804,C030BZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C030KZZ ",.01)
  1. ;;C030KZZ
  1. ;;9002226.02101,"1804,C030KZZ ",.02)
  1. ;;C030KZZ
  1. ;;9002226.02101,"1804,C030KZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C030MZZ ",.01)
  1. ;;C030MZZ
  1. ;;9002226.02101,"1804,C030MZZ ",.02)
  1. ;;C030MZZ
  1. ;;9002226.02101,"1804,C030MZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C030YZZ ",.01)
  1. ;;C030YZZ
  1. ;;9002226.02101,"1804,C030YZZ ",.02)
  1. ;;C030YZZ
  1. ;;9002226.02101,"1804,C030YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C03YYZZ ",.01)
  1. ;;C03YYZZ
  1. ;;9002226.02101,"1804,C03YYZZ ",.02)
  1. ;;C03YYZZ
  1. ;;9002226.02101,"1804,C03YYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C050VZZ ",.01)
  1. ;;C050VZZ
  1. ;;9002226.02101,"1804,C050VZZ ",.02)
  1. ;;C050VZZ
  1. ;;9002226.02101,"1804,C050VZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C050YZZ ",.01)
  1. ;;C050YZZ
  1. ;;9002226.02101,"1804,C050YZZ ",.02)
  1. ;;C050YZZ
  1. ;;9002226.02101,"1804,C050YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C05YYZZ ",.01)
  1. ;;C05YYZZ
  1. ;;9002226.02101,"1804,C05YYZZ ",.02)
  1. ;;C05YYZZ
  1. ;;9002226.02101,"1804,C05YYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C2161ZZ ",.01)
  1. ;;C2161ZZ
  1. ;;9002226.02101,"1804,C2161ZZ ",.02)
  1. ;;C2161ZZ
  1. ;;9002226.02101,"1804,C2161ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C216YZZ ",.01)
  1. ;;C216YZZ
  1. ;;9002226.02101,"1804,C216YZZ ",.02)
  1. ;;C216YZZ
  1. ;;9002226.02101,"1804,C216YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C21G1ZZ ",.01)
  1. ;;C21G1ZZ
  1. ;;9002226.02101,"1804,C21G1ZZ ",.02)
  1. ;;C21G1ZZ
  1. ;;9002226.02101,"1804,C21G1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C21GDZZ ",.01)
  1. ;;C21GDZZ
  1. ;;9002226.02101,"1804,C21GDZZ ",.02)
  1. ;;C21GDZZ
  1. ;;9002226.02101,"1804,C21GDZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C21GSZZ ",.01)
  1. ;;C21GSZZ
  1. ;;9002226.02101,"1804,C21GSZZ ",.02)
  1. ;;C21GSZZ
  1. ;;9002226.02101,"1804,C21GSZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C21GYZZ ",.01)
  1. ;;C21GYZZ
  1. ;;9002226.02101,"1804,C21GYZZ ",.02)
  1. ;;C21GYZZ
  1. ;;9002226.02101,"1804,C21GYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C21GZZZ ",.01)
  1. ;;C21GZZZ
  1. ;;9002226.02101,"1804,C21GZZZ ",.02)
  1. ;;C21GZZZ
  1. ;;9002226.02101,"1804,C21GZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C21YYZZ ",.01)
  1. ;;C21YYZZ
  1. ;;9002226.02101,"1804,C21YYZZ ",.02)
  1. ;;C21YYZZ
  1. ;;9002226.02101,"1804,C21YYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C2261ZZ ",.01)
  1. ;;C2261ZZ
  1. ;;9002226.02101,"1804,C2261ZZ ",.02)
  1. ;;C2261ZZ
  1. ;;9002226.02101,"1804,C2261ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C226YZZ ",.01)
  1. ;;C226YZZ
  1. ;;9002226.02101,"1804,C226YZZ ",.02)
  1. ;;C226YZZ
  1. ;;9002226.02101,"1804,C226YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C22G1ZZ ",.01)
  1. ;;C22G1ZZ
  1. ;;9002226.02101,"1804,C22G1ZZ ",.02)
  1. ;;C22G1ZZ
  1. ;;9002226.02101,"1804,C22G1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C22GDZZ ",.01)
  1. ;;C22GDZZ
  1. ;;9002226.02101,"1804,C22GDZZ ",.02)
  1. ;;C22GDZZ
  1. ;;9002226.02101,"1804,C22GDZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C22GKZZ ",.01)
  1. ;;C22GKZZ
  1. ;;9002226.02101,"1804,C22GKZZ ",.02)
  1. ;;C22GKZZ
  1. ;;9002226.02101,"1804,C22GKZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C22GSZZ ",.01)
  1. ;;C22GSZZ
  1. ;;9002226.02101,"1804,C22GSZZ ",.02)
  1. ;;C22GSZZ
  1. ;;9002226.02101,"1804,C22GSZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C22GYZZ ",.01)
  1. ;;C22GYZZ
  1. ;;9002226.02101,"1804,C22GYZZ ",.02)
  1. ;;C22GYZZ
  1. ;;9002226.02101,"1804,C22GYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C22GZZZ ",.01)
  1. ;;C22GZZZ
  1. ;;9002226.02101,"1804,C22GZZZ ",.02)
  1. ;;C22GZZZ
  1. ;;9002226.02101,"1804,C22GZZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C22YYZZ ",.01)
  1. ;;C22YYZZ
  1. ;;9002226.02101,"1804,C22YYZZ ",.02)
  1. ;;C22YYZZ
  1. ;;9002226.02101,"1804,C22YYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C23GKZZ ",.01)
  1. ;;C23GKZZ
  1. ;;9002226.02101,"1804,C23GKZZ ",.02)
  1. ;;C23GKZZ
  1. ;;9002226.02101,"1804,C23GKZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C23GMZZ ",.01)
  1. ;;C23GMZZ
  1. ;;9002226.02101,"1804,C23GMZZ ",.02)
  1. ;;C23GMZZ
  1. ;;9002226.02101,"1804,C23GMZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C23GQZZ ",.01)
  1. ;;C23GQZZ
  1. ;;9002226.02101,"1804,C23GQZZ ",.02)
  1. ;;C23GQZZ
  1. ;;9002226.02101,"1804,C23GQZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C23GRZZ ",.01)
  1. ;;C23GRZZ
  1. ;;9002226.02101,"1804,C23GRZZ ",.02)
  1. ;;C23GRZZ
  1. ;;9002226.02101,"1804,C23GRZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C23GYZZ ",.01)
  1. ;;C23GYZZ
  1. ;;9002226.02101,"1804,C23GYZZ ",.02)
  1. ;;C23GYZZ
  1. ;;9002226.02101,"1804,C23GYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C23YYZZ ",.01)
  1. ;;C23YYZZ
  1. ;;9002226.02101,"1804,C23YYZZ ",.02)
  1. ;;C23YYZZ
  1. ;;9002226.02101,"1804,C23YYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C2561ZZ ",.01)
  1. ;;C2561ZZ
  1. ;;9002226.02101,"1804,C2561ZZ ",.02)
  1. ;;C2561ZZ
  1. ;;9002226.02101,"1804,C2561ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C256YZZ ",.01)
  1. ;;C256YZZ
  1. ;;9002226.02101,"1804,C256YZZ ",.02)
  1. ;;C256YZZ
  1. ;;9002226.02101,"1804,C256YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C25YYZZ ",.01)
  1. ;;C25YYZZ
  1. ;;9002226.02101,"1804,C25YYZZ ",.02)
  1. ;;C25YYZZ
  1. ;;9002226.02101,"1804,C25YYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51B1ZZ ",.01)
  1. ;;C51B1ZZ
  1. ;;9002226.02101,"1804,C51B1ZZ ",.02)
  1. ;;C51B1ZZ
  1. ;;9002226.02101,"1804,C51B1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51BYZZ ",.01)
  1. ;;C51BYZZ
  1. ;;9002226.02101,"1804,C51BYZZ ",.02)
  1. ;;C51BYZZ
  1. ;;9002226.02101,"1804,C51BYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51C1ZZ ",.01)
  1. ;;C51C1ZZ
  1. ;;9002226.02101,"1804,C51C1ZZ ",.02)
  1. ;;C51C1ZZ
  1. ;;9002226.02101,"1804,C51C1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51CYZZ ",.01)
  1. ;;C51CYZZ
  1. ;;9002226.02101,"1804,C51CYZZ ",.02)
  1. ;;C51CYZZ
  1. ;;9002226.02101,"1804,C51CYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51D1ZZ ",.01)
  1. ;;C51D1ZZ
  1. ;;9002226.02101,"1804,C51D1ZZ ",.02)
  1. ;;C51D1ZZ
  1. ;;9002226.02101,"1804,C51D1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51DYZZ ",.01)
  1. ;;C51DYZZ
  1. ;;9002226.02101,"1804,C51DYZZ ",.02)
  1. ;;C51DYZZ
  1. ;;9002226.02101,"1804,C51DYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51N1ZZ ",.01)
  1. ;;C51N1ZZ
  1. ;;9002226.02101,"1804,C51N1ZZ ",.02)
  1. ;;C51N1ZZ
  1. ;;9002226.02101,"1804,C51N1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51NYZZ ",.01)
  1. ;;C51NYZZ
  1. ;;9002226.02101,"1804,C51NYZZ ",.02)
  1. ;;C51NYZZ
  1. ;;9002226.02101,"1804,C51NYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51P1ZZ ",.01)
  1. ;;C51P1ZZ
  1. ;;9002226.02101,"1804,C51P1ZZ ",.02)
  1. ;;C51P1ZZ
  1. ;;9002226.02101,"1804,C51P1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51PYZZ ",.01)
  1. ;;C51PYZZ
  1. ;;9002226.02101,"1804,C51PYZZ ",.02)
  1. ;;C51PYZZ
  1. ;;9002226.02101,"1804,C51PYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51Q1ZZ ",.01)
  1. ;;C51Q1ZZ
  1. ;;9002226.02101,"1804,C51Q1ZZ ",.02)
  1. ;;C51Q1ZZ
  1. ;;9002226.02101,"1804,C51Q1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51QYZZ ",.01)
  1. ;;C51QYZZ
  1. ;;9002226.02101,"1804,C51QYZZ ",.02)
  1. ;;C51QYZZ
  1. ;;9002226.02101,"1804,C51QYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51R1ZZ ",.01)
  1. ;;C51R1ZZ
  1. ;;9002226.02101,"1804,C51R1ZZ ",.02)
  1. ;;C51R1ZZ
  1. ;;9002226.02101,"1804,C51R1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51RYZZ ",.01)
  1. ;;C51RYZZ
  1. ;;9002226.02101,"1804,C51RYZZ ",.02)
  1. ;;C51RYZZ
  1. ;;9002226.02101,"1804,C51RYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C51YYZZ ",.01)
  1. ;;C51YYZZ
  1. ;;9002226.02101,"1804,C51YYZZ ",.02)
  1. ;;C51YYZZ
  1. ;;9002226.02101,"1804,C51YYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C7101ZZ ",.01)
  1. ;;C7101ZZ
  1. ;;9002226.02101,"1804,C7101ZZ ",.02)
  1. ;;C7101ZZ
  1. ;;9002226.02101,"1804,C7101ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C710DZZ ",.01)
  1. ;;C710DZZ
  1. ;;9002226.02101,"1804,C710DZZ ",.02)
  1. ;;C710DZZ
  1. ;;9002226.02101,"1804,C710DZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C710YZZ ",.01)
  1. ;;C710YZZ
  1. ;;9002226.02101,"1804,C710YZZ ",.02)
  1. ;;C710YZZ
  1. ;;9002226.02101,"1804,C710YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C7121ZZ ",.01)
  1. ;;C7121ZZ
  1. ;;9002226.02101,"1804,C7121ZZ ",.02)
  1. ;;C7121ZZ
  1. ;;9002226.02101,"1804,C7121ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C712YZZ ",.01)
  1. ;;C712YZZ
  1. ;;9002226.02101,"1804,C712YZZ ",.02)
  1. ;;C712YZZ
  1. ;;9002226.02101,"1804,C712YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C713DZZ ",.01)
  1. ;;C713DZZ
  1. ;;9002226.02101,"1804,C713DZZ ",.02)
  1. ;;C713DZZ
  1. ;;9002226.02101,"1804,C713DZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C713YZZ ",.01)
  1. ;;C713YZZ
  1. ;;9002226.02101,"1804,C713YZZ ",.02)
  1. ;;C713YZZ
  1. ;;9002226.02101,"1804,C713YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C7151ZZ ",.01)
  1. ;;C7151ZZ
  1. ;;9002226.02101,"1804,C7151ZZ ",.02)
  1. ;;C7151ZZ
  1. ;;9002226.02101,"1804,C7151ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C715YZZ ",.01)
  1. ;;C715YZZ
  1. ;;9002226.02101,"1804,C715YZZ ",.02)
  1. ;;C715YZZ
  1. ;;9002226.02101,"1804,C715YZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C71D1ZZ ",.01)
  1. ;;C71D1ZZ
  1. ;;9002226.02101,"1804,C71D1ZZ ",.02)
  1. ;;C71D1ZZ
  1. ;;9002226.02101,"1804,C71D1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C71DYZZ ",.01)
  1. ;;C71DYZZ
  1. ;;9002226.02101,"1804,C71DYZZ ",.02)
  1. ;;C71DYZZ
  1. ;;9002226.02101,"1804,C71DYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C71J1ZZ ",.01)
  1. ;;C71J1ZZ
  1. ;;9002226.02101,"1804,C71J1ZZ ",.02)
  1. ;;C71J1ZZ
  1. ;;9002226.02101,"1804,C71J1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C71JYZZ ",.01)
  1. ;;C71JYZZ
  1. ;;9002226.02101,"1804,C71JYZZ ",.02)
  1. ;;C71JYZZ
  1. ;;9002226.02101,"1804,C71JYZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C71K1ZZ ",.01)
  1. ;;C71K1ZZ
  1. ;;9002226.02101,"1804,C71K1ZZ ",.02)
  1. ;;C71K1ZZ
  1. ;;9002226.02101,"1804,C71K1ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,C71KYZZ ",.01)
  1. ;;C71KYZZ