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

ATXXA72.m

Go to the documentation of this file.
  1. ATXXA72 ;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,"873,S52.559B ",.01)
  1. ;;S52.559B
  1. ;;9002226.02101,"873,S52.559B ",.02)
  1. ;;S52.559B
  1. ;;9002226.02101,"873,S52.559B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.559C ",.01)
  1. ;;S52.559C
  1. ;;9002226.02101,"873,S52.559C ",.02)
  1. ;;S52.559C
  1. ;;9002226.02101,"873,S52.559C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.561A ",.01)
  1. ;;S52.561A
  1. ;;9002226.02101,"873,S52.561A ",.02)
  1. ;;S52.561A
  1. ;;9002226.02101,"873,S52.561A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.561B ",.01)
  1. ;;S52.561B
  1. ;;9002226.02101,"873,S52.561B ",.02)
  1. ;;S52.561B
  1. ;;9002226.02101,"873,S52.561B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.561C ",.01)
  1. ;;S52.561C
  1. ;;9002226.02101,"873,S52.561C ",.02)
  1. ;;S52.561C
  1. ;;9002226.02101,"873,S52.561C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.562A ",.01)
  1. ;;S52.562A
  1. ;;9002226.02101,"873,S52.562A ",.02)
  1. ;;S52.562A
  1. ;;9002226.02101,"873,S52.562A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.562B ",.01)
  1. ;;S52.562B
  1. ;;9002226.02101,"873,S52.562B ",.02)
  1. ;;S52.562B
  1. ;;9002226.02101,"873,S52.562B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.562C ",.01)
  1. ;;S52.562C
  1. ;;9002226.02101,"873,S52.562C ",.02)
  1. ;;S52.562C
  1. ;;9002226.02101,"873,S52.562C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.569A ",.01)
  1. ;;S52.569A
  1. ;;9002226.02101,"873,S52.569A ",.02)
  1. ;;S52.569A
  1. ;;9002226.02101,"873,S52.569A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.569B ",.01)
  1. ;;S52.569B
  1. ;;9002226.02101,"873,S52.569B ",.02)
  1. ;;S52.569B
  1. ;;9002226.02101,"873,S52.569B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.569C ",.01)
  1. ;;S52.569C
  1. ;;9002226.02101,"873,S52.569C ",.02)
  1. ;;S52.569C
  1. ;;9002226.02101,"873,S52.569C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.571A ",.01)
  1. ;;S52.571A
  1. ;;9002226.02101,"873,S52.571A ",.02)
  1. ;;S52.571A
  1. ;;9002226.02101,"873,S52.571A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.571B ",.01)
  1. ;;S52.571B
  1. ;;9002226.02101,"873,S52.571B ",.02)
  1. ;;S52.571B
  1. ;;9002226.02101,"873,S52.571B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.571C ",.01)
  1. ;;S52.571C
  1. ;;9002226.02101,"873,S52.571C ",.02)
  1. ;;S52.571C
  1. ;;9002226.02101,"873,S52.571C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.572A ",.01)
  1. ;;S52.572A
  1. ;;9002226.02101,"873,S52.572A ",.02)
  1. ;;S52.572A
  1. ;;9002226.02101,"873,S52.572A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.572B ",.01)
  1. ;;S52.572B
  1. ;;9002226.02101,"873,S52.572B ",.02)
  1. ;;S52.572B
  1. ;;9002226.02101,"873,S52.572B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.572C ",.01)
  1. ;;S52.572C
  1. ;;9002226.02101,"873,S52.572C ",.02)
  1. ;;S52.572C
  1. ;;9002226.02101,"873,S52.572C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.579A ",.01)
  1. ;;S52.579A
  1. ;;9002226.02101,"873,S52.579A ",.02)
  1. ;;S52.579A
  1. ;;9002226.02101,"873,S52.579A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.579B ",.01)
  1. ;;S52.579B
  1. ;;9002226.02101,"873,S52.579B ",.02)
  1. ;;S52.579B
  1. ;;9002226.02101,"873,S52.579B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.579C ",.01)
  1. ;;S52.579C
  1. ;;9002226.02101,"873,S52.579C ",.02)
  1. ;;S52.579C
  1. ;;9002226.02101,"873,S52.579C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.591A ",.01)
  1. ;;S52.591A
  1. ;;9002226.02101,"873,S52.591A ",.02)
  1. ;;S52.591A
  1. ;;9002226.02101,"873,S52.591A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.591B ",.01)
  1. ;;S52.591B
  1. ;;9002226.02101,"873,S52.591B ",.02)
  1. ;;S52.591B
  1. ;;9002226.02101,"873,S52.591B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.591C ",.01)
  1. ;;S52.591C
  1. ;;9002226.02101,"873,S52.591C ",.02)
  1. ;;S52.591C
  1. ;;9002226.02101,"873,S52.591C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.592A ",.01)
  1. ;;S52.592A
  1. ;;9002226.02101,"873,S52.592A ",.02)
  1. ;;S52.592A
  1. ;;9002226.02101,"873,S52.592A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.592B ",.01)
  1. ;;S52.592B
  1. ;;9002226.02101,"873,S52.592B ",.02)
  1. ;;S52.592B
  1. ;;9002226.02101,"873,S52.592B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.592C ",.01)
  1. ;;S52.592C
  1. ;;9002226.02101,"873,S52.592C ",.02)
  1. ;;S52.592C
  1. ;;9002226.02101,"873,S52.592C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.599A ",.01)
  1. ;;S52.599A
  1. ;;9002226.02101,"873,S52.599A ",.02)
  1. ;;S52.599A
  1. ;;9002226.02101,"873,S52.599A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.599B ",.01)
  1. ;;S52.599B
  1. ;;9002226.02101,"873,S52.599B ",.02)
  1. ;;S52.599B
  1. ;;9002226.02101,"873,S52.599B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.599C ",.01)
  1. ;;S52.599C
  1. ;;9002226.02101,"873,S52.599C ",.02)
  1. ;;S52.599C
  1. ;;9002226.02101,"873,S52.599C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.601A ",.01)
  1. ;;S52.601A
  1. ;;9002226.02101,"873,S52.601A ",.02)
  1. ;;S52.601A
  1. ;;9002226.02101,"873,S52.601A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.601B ",.01)
  1. ;;S52.601B
  1. ;;9002226.02101,"873,S52.601B ",.02)
  1. ;;S52.601B
  1. ;;9002226.02101,"873,S52.601B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.601C ",.01)
  1. ;;S52.601C
  1. ;;9002226.02101,"873,S52.601C ",.02)
  1. ;;S52.601C
  1. ;;9002226.02101,"873,S52.601C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.602A ",.01)
  1. ;;S52.602A
  1. ;;9002226.02101,"873,S52.602A ",.02)
  1. ;;S52.602A
  1. ;;9002226.02101,"873,S52.602A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.602B ",.01)
  1. ;;S52.602B
  1. ;;9002226.02101,"873,S52.602B ",.02)
  1. ;;S52.602B
  1. ;;9002226.02101,"873,S52.602B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.602C ",.01)
  1. ;;S52.602C
  1. ;;9002226.02101,"873,S52.602C ",.02)
  1. ;;S52.602C
  1. ;;9002226.02101,"873,S52.602C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.609A ",.01)
  1. ;;S52.609A
  1. ;;9002226.02101,"873,S52.609A ",.02)
  1. ;;S52.609A
  1. ;;9002226.02101,"873,S52.609A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.609B ",.01)
  1. ;;S52.609B
  1. ;;9002226.02101,"873,S52.609B ",.02)
  1. ;;S52.609B
  1. ;;9002226.02101,"873,S52.609B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.609C ",.01)
  1. ;;S52.609C
  1. ;;9002226.02101,"873,S52.609C ",.02)
  1. ;;S52.609C
  1. ;;9002226.02101,"873,S52.609C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.611A ",.01)
  1. ;;S52.611A
  1. ;;9002226.02101,"873,S52.611A ",.02)
  1. ;;S52.611A
  1. ;;9002226.02101,"873,S52.611A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.611B ",.01)
  1. ;;S52.611B
  1. ;;9002226.02101,"873,S52.611B ",.02)
  1. ;;S52.611B
  1. ;;9002226.02101,"873,S52.611B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.611C ",.01)
  1. ;;S52.611C
  1. ;;9002226.02101,"873,S52.611C ",.02)
  1. ;;S52.611C
  1. ;;9002226.02101,"873,S52.611C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.612A ",.01)
  1. ;;S52.612A
  1. ;;9002226.02101,"873,S52.612A ",.02)
  1. ;;S52.612A
  1. ;;9002226.02101,"873,S52.612A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.612B ",.01)
  1. ;;S52.612B
  1. ;;9002226.02101,"873,S52.612B ",.02)
  1. ;;S52.612B
  1. ;;9002226.02101,"873,S52.612B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.612C ",.01)
  1. ;;S52.612C
  1. ;;9002226.02101,"873,S52.612C ",.02)
  1. ;;S52.612C
  1. ;;9002226.02101,"873,S52.612C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.613A ",.01)
  1. ;;S52.613A
  1. ;;9002226.02101,"873,S52.613A ",.02)
  1. ;;S52.613A
  1. ;;9002226.02101,"873,S52.613A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.613B ",.01)
  1. ;;S52.613B
  1. ;;9002226.02101,"873,S52.613B ",.02)
  1. ;;S52.613B
  1. ;;9002226.02101,"873,S52.613B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.613C ",.01)
  1. ;;S52.613C
  1. ;;9002226.02101,"873,S52.613C ",.02)
  1. ;;S52.613C
  1. ;;9002226.02101,"873,S52.613C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.614A ",.01)
  1. ;;S52.614A
  1. ;;9002226.02101,"873,S52.614A ",.02)
  1. ;;S52.614A
  1. ;;9002226.02101,"873,S52.614A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.614B ",.01)
  1. ;;S52.614B
  1. ;;9002226.02101,"873,S52.614B ",.02)
  1. ;;S52.614B
  1. ;;9002226.02101,"873,S52.614B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.614C ",.01)
  1. ;;S52.614C
  1. ;;9002226.02101,"873,S52.614C ",.02)
  1. ;;S52.614C
  1. ;;9002226.02101,"873,S52.614C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.615A ",.01)
  1. ;;S52.615A
  1. ;;9002226.02101,"873,S52.615A ",.02)
  1. ;;S52.615A
  1. ;;9002226.02101,"873,S52.615A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.615B ",.01)
  1. ;;S52.615B
  1. ;;9002226.02101,"873,S52.615B ",.02)
  1. ;;S52.615B
  1. ;;9002226.02101,"873,S52.615B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.615C ",.01)
  1. ;;S52.615C
  1. ;;9002226.02101,"873,S52.615C ",.02)
  1. ;;S52.615C
  1. ;;9002226.02101,"873,S52.615C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.616A ",.01)
  1. ;;S52.616A
  1. ;;9002226.02101,"873,S52.616A ",.02)
  1. ;;S52.616A
  1. ;;9002226.02101,"873,S52.616A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.616B ",.01)
  1. ;;S52.616B
  1. ;;9002226.02101,"873,S52.616B ",.02)
  1. ;;S52.616B
  1. ;;9002226.02101,"873,S52.616B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.616C ",.01)
  1. ;;S52.616C
  1. ;;9002226.02101,"873,S52.616C ",.02)
  1. ;;S52.616C
  1. ;;9002226.02101,"873,S52.616C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.621A ",.01)
  1. ;;S52.621A
  1. ;;9002226.02101,"873,S52.621A ",.02)
  1. ;;S52.621A
  1. ;;9002226.02101,"873,S52.621A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.622A ",.01)
  1. ;;S52.622A
  1. ;;9002226.02101,"873,S52.622A ",.02)
  1. ;;S52.622A
  1. ;;9002226.02101,"873,S52.622A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.629A ",.01)
  1. ;;S52.629A
  1. ;;9002226.02101,"873,S52.629A ",.02)
  1. ;;S52.629A
  1. ;;9002226.02101,"873,S52.629A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.691A ",.01)
  1. ;;S52.691A
  1. ;;9002226.02101,"873,S52.691A ",.02)
  1. ;;S52.691A
  1. ;;9002226.02101,"873,S52.691A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.691B ",.01)
  1. ;;S52.691B
  1. ;;9002226.02101,"873,S52.691B ",.02)
  1. ;;S52.691B
  1. ;;9002226.02101,"873,S52.691B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.691C ",.01)
  1. ;;S52.691C
  1. ;;9002226.02101,"873,S52.691C ",.02)
  1. ;;S52.691C
  1. ;;9002226.02101,"873,S52.691C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.692A ",.01)
  1. ;;S52.692A
  1. ;;9002226.02101,"873,S52.692A ",.02)
  1. ;;S52.692A
  1. ;;9002226.02101,"873,S52.692A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.692B ",.01)
  1. ;;S52.692B
  1. ;;9002226.02101,"873,S52.692B ",.02)
  1. ;;S52.692B
  1. ;;9002226.02101,"873,S52.692B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.692C ",.01)
  1. ;;S52.692C
  1. ;;9002226.02101,"873,S52.692C ",.02)
  1. ;;S52.692C
  1. ;;9002226.02101,"873,S52.692C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.699A ",.01)
  1. ;;S52.699A
  1. ;;9002226.02101,"873,S52.699A ",.02)
  1. ;;S52.699A
  1. ;;9002226.02101,"873,S52.699A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.699B ",.01)
  1. ;;S52.699B
  1. ;;9002226.02101,"873,S52.699B ",.02)
  1. ;;S52.699B
  1. ;;9002226.02101,"873,S52.699B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.699C ",.01)
  1. ;;S52.699C
  1. ;;9002226.02101,"873,S52.699C ",.02)
  1. ;;S52.699C
  1. ;;9002226.02101,"873,S52.699C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.90XA ",.01)
  1. ;;S52.90XA
  1. ;;9002226.02101,"873,S52.90XA ",.02)
  1. ;;S52.90XA
  1. ;;9002226.02101,"873,S52.90XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.90XB ",.01)
  1. ;;S52.90XB
  1. ;;9002226.02101,"873,S52.90XB ",.02)
  1. ;;S52.90XB
  1. ;;9002226.02101,"873,S52.90XB ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.90XC ",.01)
  1. ;;S52.90XC
  1. ;;9002226.02101,"873,S52.90XC ",.02)
  1. ;;S52.90XC
  1. ;;9002226.02101,"873,S52.90XC ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.91XA ",.01)
  1. ;;S52.91XA
  1. ;;9002226.02101,"873,S52.91XA ",.02)
  1. ;;S52.91XA
  1. ;;9002226.02101,"873,S52.91XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.91XB ",.01)
  1. ;;S52.91XB
  1. ;;9002226.02101,"873,S52.91XB ",.02)
  1. ;;S52.91XB
  1. ;;9002226.02101,"873,S52.91XB ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.91XC ",.01)
  1. ;;S52.91XC
  1. ;;9002226.02101,"873,S52.91XC ",.02)
  1. ;;S52.91XC
  1. ;;9002226.02101,"873,S52.91XC ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.92XA ",.01)
  1. ;;S52.92XA
  1. ;;9002226.02101,"873,S52.92XA ",.02)
  1. ;;S52.92XA
  1. ;;9002226.02101,"873,S52.92XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.92XB ",.01)
  1. ;;S52.92XB
  1. ;;9002226.02101,"873,S52.92XB ",.02)
  1. ;;S52.92XB
  1. ;;9002226.02101,"873,S52.92XB ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S52.92XC ",.01)
  1. ;;S52.92XC
  1. ;;9002226.02101,"873,S52.92XC ",.02)
  1. ;;S52.92XC
  1. ;;9002226.02101,"873,S52.92XC ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S53.001A ",.01)
  1. ;;S53.001A
  1. ;;9002226.02101,"873,S53.001A ",.02)
  1. ;;S53.001A
  1. ;;9002226.02101,"873,S53.001A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S53.002A ",.01)
  1. ;;S53.002A