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.
ATXXA72 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"873,S52.559B ",.01)
 ;;S52.559B
 ;;9002226.02101,"873,S52.559B ",.02)
 ;;S52.559B
 ;;9002226.02101,"873,S52.559B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.559C ",.01)
 ;;S52.559C
 ;;9002226.02101,"873,S52.559C ",.02)
 ;;S52.559C
 ;;9002226.02101,"873,S52.559C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.561A ",.01)
 ;;S52.561A
 ;;9002226.02101,"873,S52.561A ",.02)
 ;;S52.561A
 ;;9002226.02101,"873,S52.561A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.561B ",.01)
 ;;S52.561B
 ;;9002226.02101,"873,S52.561B ",.02)
 ;;S52.561B
 ;;9002226.02101,"873,S52.561B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.561C ",.01)
 ;;S52.561C
 ;;9002226.02101,"873,S52.561C ",.02)
 ;;S52.561C
 ;;9002226.02101,"873,S52.561C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.562A ",.01)
 ;;S52.562A
 ;;9002226.02101,"873,S52.562A ",.02)
 ;;S52.562A
 ;;9002226.02101,"873,S52.562A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.562B ",.01)
 ;;S52.562B
 ;;9002226.02101,"873,S52.562B ",.02)
 ;;S52.562B
 ;;9002226.02101,"873,S52.562B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.562C ",.01)
 ;;S52.562C
 ;;9002226.02101,"873,S52.562C ",.02)
 ;;S52.562C
 ;;9002226.02101,"873,S52.562C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.569A ",.01)
 ;;S52.569A
 ;;9002226.02101,"873,S52.569A ",.02)
 ;;S52.569A
 ;;9002226.02101,"873,S52.569A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.569B ",.01)
 ;;S52.569B
 ;;9002226.02101,"873,S52.569B ",.02)
 ;;S52.569B
 ;;9002226.02101,"873,S52.569B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.569C ",.01)
 ;;S52.569C
 ;;9002226.02101,"873,S52.569C ",.02)
 ;;S52.569C
 ;;9002226.02101,"873,S52.569C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.571A ",.01)
 ;;S52.571A
 ;;9002226.02101,"873,S52.571A ",.02)
 ;;S52.571A
 ;;9002226.02101,"873,S52.571A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.571B ",.01)
 ;;S52.571B
 ;;9002226.02101,"873,S52.571B ",.02)
 ;;S52.571B
 ;;9002226.02101,"873,S52.571B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.571C ",.01)
 ;;S52.571C
 ;;9002226.02101,"873,S52.571C ",.02)
 ;;S52.571C
 ;;9002226.02101,"873,S52.571C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.572A ",.01)
 ;;S52.572A
 ;;9002226.02101,"873,S52.572A ",.02)
 ;;S52.572A
 ;;9002226.02101,"873,S52.572A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.572B ",.01)
 ;;S52.572B
 ;;9002226.02101,"873,S52.572B ",.02)
 ;;S52.572B
 ;;9002226.02101,"873,S52.572B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.572C ",.01)
 ;;S52.572C
 ;;9002226.02101,"873,S52.572C ",.02)
 ;;S52.572C
 ;;9002226.02101,"873,S52.572C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.579A ",.01)
 ;;S52.579A
 ;;9002226.02101,"873,S52.579A ",.02)
 ;;S52.579A
 ;;9002226.02101,"873,S52.579A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.579B ",.01)
 ;;S52.579B
 ;;9002226.02101,"873,S52.579B ",.02)
 ;;S52.579B
 ;;9002226.02101,"873,S52.579B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.579C ",.01)
 ;;S52.579C
 ;;9002226.02101,"873,S52.579C ",.02)
 ;;S52.579C
 ;;9002226.02101,"873,S52.579C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.591A ",.01)
 ;;S52.591A
 ;;9002226.02101,"873,S52.591A ",.02)
 ;;S52.591A
 ;;9002226.02101,"873,S52.591A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.591B ",.01)
 ;;S52.591B
 ;;9002226.02101,"873,S52.591B ",.02)
 ;;S52.591B
 ;;9002226.02101,"873,S52.591B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.591C ",.01)
 ;;S52.591C
 ;;9002226.02101,"873,S52.591C ",.02)
 ;;S52.591C
 ;;9002226.02101,"873,S52.591C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.592A ",.01)
 ;;S52.592A
 ;;9002226.02101,"873,S52.592A ",.02)
 ;;S52.592A
 ;;9002226.02101,"873,S52.592A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.592B ",.01)
 ;;S52.592B
 ;;9002226.02101,"873,S52.592B ",.02)
 ;;S52.592B
 ;;9002226.02101,"873,S52.592B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.592C ",.01)
 ;;S52.592C
 ;;9002226.02101,"873,S52.592C ",.02)
 ;;S52.592C
 ;;9002226.02101,"873,S52.592C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.599A ",.01)
 ;;S52.599A
 ;;9002226.02101,"873,S52.599A ",.02)
 ;;S52.599A
 ;;9002226.02101,"873,S52.599A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.599B ",.01)
 ;;S52.599B
 ;;9002226.02101,"873,S52.599B ",.02)
 ;;S52.599B
 ;;9002226.02101,"873,S52.599B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.599C ",.01)
 ;;S52.599C
 ;;9002226.02101,"873,S52.599C ",.02)
 ;;S52.599C
 ;;9002226.02101,"873,S52.599C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.601A ",.01)
 ;;S52.601A
 ;;9002226.02101,"873,S52.601A ",.02)
 ;;S52.601A
 ;;9002226.02101,"873,S52.601A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.601B ",.01)
 ;;S52.601B
 ;;9002226.02101,"873,S52.601B ",.02)
 ;;S52.601B
 ;;9002226.02101,"873,S52.601B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.601C ",.01)
 ;;S52.601C
 ;;9002226.02101,"873,S52.601C ",.02)
 ;;S52.601C
 ;;9002226.02101,"873,S52.601C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.602A ",.01)
 ;;S52.602A
 ;;9002226.02101,"873,S52.602A ",.02)
 ;;S52.602A
 ;;9002226.02101,"873,S52.602A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.602B ",.01)
 ;;S52.602B
 ;;9002226.02101,"873,S52.602B ",.02)
 ;;S52.602B
 ;;9002226.02101,"873,S52.602B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.602C ",.01)
 ;;S52.602C
 ;;9002226.02101,"873,S52.602C ",.02)
 ;;S52.602C
 ;;9002226.02101,"873,S52.602C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.609A ",.01)
 ;;S52.609A
 ;;9002226.02101,"873,S52.609A ",.02)
 ;;S52.609A
 ;;9002226.02101,"873,S52.609A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.609B ",.01)
 ;;S52.609B
 ;;9002226.02101,"873,S52.609B ",.02)
 ;;S52.609B
 ;;9002226.02101,"873,S52.609B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.609C ",.01)
 ;;S52.609C
 ;;9002226.02101,"873,S52.609C ",.02)
 ;;S52.609C
 ;;9002226.02101,"873,S52.609C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.611A ",.01)
 ;;S52.611A
 ;;9002226.02101,"873,S52.611A ",.02)
 ;;S52.611A
 ;;9002226.02101,"873,S52.611A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.611B ",.01)
 ;;S52.611B
 ;;9002226.02101,"873,S52.611B ",.02)
 ;;S52.611B
 ;;9002226.02101,"873,S52.611B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.611C ",.01)
 ;;S52.611C
 ;;9002226.02101,"873,S52.611C ",.02)
 ;;S52.611C
 ;;9002226.02101,"873,S52.611C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.612A ",.01)
 ;;S52.612A
 ;;9002226.02101,"873,S52.612A ",.02)
 ;;S52.612A
 ;;9002226.02101,"873,S52.612A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.612B ",.01)
 ;;S52.612B
 ;;9002226.02101,"873,S52.612B ",.02)
 ;;S52.612B
 ;;9002226.02101,"873,S52.612B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.612C ",.01)
 ;;S52.612C
 ;;9002226.02101,"873,S52.612C ",.02)
 ;;S52.612C
 ;;9002226.02101,"873,S52.612C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.613A ",.01)
 ;;S52.613A
 ;;9002226.02101,"873,S52.613A ",.02)
 ;;S52.613A
 ;;9002226.02101,"873,S52.613A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.613B ",.01)
 ;;S52.613B
 ;;9002226.02101,"873,S52.613B ",.02)
 ;;S52.613B
 ;;9002226.02101,"873,S52.613B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.613C ",.01)
 ;;S52.613C
 ;;9002226.02101,"873,S52.613C ",.02)
 ;;S52.613C
 ;;9002226.02101,"873,S52.613C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.614A ",.01)
 ;;S52.614A
 ;;9002226.02101,"873,S52.614A ",.02)
 ;;S52.614A
 ;;9002226.02101,"873,S52.614A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.614B ",.01)
 ;;S52.614B
 ;;9002226.02101,"873,S52.614B ",.02)
 ;;S52.614B
 ;;9002226.02101,"873,S52.614B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.614C ",.01)
 ;;S52.614C
 ;;9002226.02101,"873,S52.614C ",.02)
 ;;S52.614C
 ;;9002226.02101,"873,S52.614C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.615A ",.01)
 ;;S52.615A
 ;;9002226.02101,"873,S52.615A ",.02)
 ;;S52.615A
 ;;9002226.02101,"873,S52.615A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.615B ",.01)
 ;;S52.615B
 ;;9002226.02101,"873,S52.615B ",.02)
 ;;S52.615B
 ;;9002226.02101,"873,S52.615B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.615C ",.01)
 ;;S52.615C
 ;;9002226.02101,"873,S52.615C ",.02)
 ;;S52.615C
 ;;9002226.02101,"873,S52.615C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.616A ",.01)
 ;;S52.616A
 ;;9002226.02101,"873,S52.616A ",.02)
 ;;S52.616A
 ;;9002226.02101,"873,S52.616A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.616B ",.01)
 ;;S52.616B
 ;;9002226.02101,"873,S52.616B ",.02)
 ;;S52.616B
 ;;9002226.02101,"873,S52.616B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.616C ",.01)
 ;;S52.616C
 ;;9002226.02101,"873,S52.616C ",.02)
 ;;S52.616C
 ;;9002226.02101,"873,S52.616C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.621A ",.01)
 ;;S52.621A
 ;;9002226.02101,"873,S52.621A ",.02)
 ;;S52.621A
 ;;9002226.02101,"873,S52.621A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.622A ",.01)
 ;;S52.622A
 ;;9002226.02101,"873,S52.622A ",.02)
 ;;S52.622A
 ;;9002226.02101,"873,S52.622A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.629A ",.01)
 ;;S52.629A
 ;;9002226.02101,"873,S52.629A ",.02)
 ;;S52.629A
 ;;9002226.02101,"873,S52.629A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.691A ",.01)
 ;;S52.691A
 ;;9002226.02101,"873,S52.691A ",.02)
 ;;S52.691A
 ;;9002226.02101,"873,S52.691A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.691B ",.01)
 ;;S52.691B
 ;;9002226.02101,"873,S52.691B ",.02)
 ;;S52.691B
 ;;9002226.02101,"873,S52.691B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.691C ",.01)
 ;;S52.691C
 ;;9002226.02101,"873,S52.691C ",.02)
 ;;S52.691C
 ;;9002226.02101,"873,S52.691C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.692A ",.01)
 ;;S52.692A
 ;;9002226.02101,"873,S52.692A ",.02)
 ;;S52.692A
 ;;9002226.02101,"873,S52.692A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.692B ",.01)
 ;;S52.692B
 ;;9002226.02101,"873,S52.692B ",.02)
 ;;S52.692B
 ;;9002226.02101,"873,S52.692B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.692C ",.01)
 ;;S52.692C
 ;;9002226.02101,"873,S52.692C ",.02)
 ;;S52.692C
 ;;9002226.02101,"873,S52.692C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.699A ",.01)
 ;;S52.699A
 ;;9002226.02101,"873,S52.699A ",.02)
 ;;S52.699A
 ;;9002226.02101,"873,S52.699A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.699B ",.01)
 ;;S52.699B
 ;;9002226.02101,"873,S52.699B ",.02)
 ;;S52.699B
 ;;9002226.02101,"873,S52.699B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.699C ",.01)
 ;;S52.699C
 ;;9002226.02101,"873,S52.699C ",.02)
 ;;S52.699C
 ;;9002226.02101,"873,S52.699C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.90XA ",.01)
 ;;S52.90XA
 ;;9002226.02101,"873,S52.90XA ",.02)
 ;;S52.90XA
 ;;9002226.02101,"873,S52.90XA ",.03)
 ;;30
 ;;9002226.02101,"873,S52.90XB ",.01)
 ;;S52.90XB
 ;;9002226.02101,"873,S52.90XB ",.02)
 ;;S52.90XB
 ;;9002226.02101,"873,S52.90XB ",.03)
 ;;30
 ;;9002226.02101,"873,S52.90XC ",.01)
 ;;S52.90XC
 ;;9002226.02101,"873,S52.90XC ",.02)
 ;;S52.90XC
 ;;9002226.02101,"873,S52.90XC ",.03)
 ;;30
 ;;9002226.02101,"873,S52.91XA ",.01)
 ;;S52.91XA
 ;;9002226.02101,"873,S52.91XA ",.02)
 ;;S52.91XA
 ;;9002226.02101,"873,S52.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,S52.91XB ",.01)
 ;;S52.91XB
 ;;9002226.02101,"873,S52.91XB ",.02)
 ;;S52.91XB
 ;;9002226.02101,"873,S52.91XB ",.03)
 ;;30
 ;;9002226.02101,"873,S52.91XC ",.01)
 ;;S52.91XC
 ;;9002226.02101,"873,S52.91XC ",.02)
 ;;S52.91XC
 ;;9002226.02101,"873,S52.91XC ",.03)
 ;;30
 ;;9002226.02101,"873,S52.92XA ",.01)
 ;;S52.92XA
 ;;9002226.02101,"873,S52.92XA ",.02)
 ;;S52.92XA
 ;;9002226.02101,"873,S52.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,S52.92XB ",.01)
 ;;S52.92XB
 ;;9002226.02101,"873,S52.92XB ",.02)
 ;;S52.92XB
 ;;9002226.02101,"873,S52.92XB ",.03)
 ;;30
 ;;9002226.02101,"873,S52.92XC ",.01)
 ;;S52.92XC
 ;;9002226.02101,"873,S52.92XC ",.02)
 ;;S52.92XC
 ;;9002226.02101,"873,S52.92XC ",.03)
 ;;30
 ;;9002226.02101,"873,S53.001A ",.01)
 ;;S53.001A
 ;;9002226.02101,"873,S53.001A ",.02)
 ;;S53.001A
 ;;9002226.02101,"873,S53.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S53.002A ",.01)
 ;;S53.002A