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

ATXXA87.m

Go to the documentation of this file.
  1. ATXXA87 ;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,S62.516A ",.01)
  1. ;;S62.516A
  1. ;;9002226.02101,"873,S62.516A ",.02)
  1. ;;S62.516A
  1. ;;9002226.02101,"873,S62.516A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.516B ",.01)
  1. ;;S62.516B
  1. ;;9002226.02101,"873,S62.516B ",.02)
  1. ;;S62.516B
  1. ;;9002226.02101,"873,S62.516B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.521A ",.01)
  1. ;;S62.521A
  1. ;;9002226.02101,"873,S62.521A ",.02)
  1. ;;S62.521A
  1. ;;9002226.02101,"873,S62.521A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.521B ",.01)
  1. ;;S62.521B
  1. ;;9002226.02101,"873,S62.521B ",.02)
  1. ;;S62.521B
  1. ;;9002226.02101,"873,S62.521B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.522A ",.01)
  1. ;;S62.522A
  1. ;;9002226.02101,"873,S62.522A ",.02)
  1. ;;S62.522A
  1. ;;9002226.02101,"873,S62.522A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.522B ",.01)
  1. ;;S62.522B
  1. ;;9002226.02101,"873,S62.522B ",.02)
  1. ;;S62.522B
  1. ;;9002226.02101,"873,S62.522B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.523A ",.01)
  1. ;;S62.523A
  1. ;;9002226.02101,"873,S62.523A ",.02)
  1. ;;S62.523A
  1. ;;9002226.02101,"873,S62.523A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.523B ",.01)
  1. ;;S62.523B
  1. ;;9002226.02101,"873,S62.523B ",.02)
  1. ;;S62.523B
  1. ;;9002226.02101,"873,S62.523B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.524A ",.01)
  1. ;;S62.524A
  1. ;;9002226.02101,"873,S62.524A ",.02)
  1. ;;S62.524A
  1. ;;9002226.02101,"873,S62.524A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.524B ",.01)
  1. ;;S62.524B
  1. ;;9002226.02101,"873,S62.524B ",.02)
  1. ;;S62.524B
  1. ;;9002226.02101,"873,S62.524B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.525A ",.01)
  1. ;;S62.525A
  1. ;;9002226.02101,"873,S62.525A ",.02)
  1. ;;S62.525A
  1. ;;9002226.02101,"873,S62.525A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.525B ",.01)
  1. ;;S62.525B
  1. ;;9002226.02101,"873,S62.525B ",.02)
  1. ;;S62.525B
  1. ;;9002226.02101,"873,S62.525B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.526A ",.01)
  1. ;;S62.526A
  1. ;;9002226.02101,"873,S62.526A ",.02)
  1. ;;S62.526A
  1. ;;9002226.02101,"873,S62.526A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.526B ",.01)
  1. ;;S62.526B
  1. ;;9002226.02101,"873,S62.526B ",.02)
  1. ;;S62.526B
  1. ;;9002226.02101,"873,S62.526B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.600A ",.01)
  1. ;;S62.600A
  1. ;;9002226.02101,"873,S62.600A ",.02)
  1. ;;S62.600A
  1. ;;9002226.02101,"873,S62.600A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.600B ",.01)
  1. ;;S62.600B
  1. ;;9002226.02101,"873,S62.600B ",.02)
  1. ;;S62.600B
  1. ;;9002226.02101,"873,S62.600B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.601A ",.01)
  1. ;;S62.601A
  1. ;;9002226.02101,"873,S62.601A ",.02)
  1. ;;S62.601A
  1. ;;9002226.02101,"873,S62.601A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.601B ",.01)
  1. ;;S62.601B
  1. ;;9002226.02101,"873,S62.601B ",.02)
  1. ;;S62.601B
  1. ;;9002226.02101,"873,S62.601B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.602A ",.01)
  1. ;;S62.602A
  1. ;;9002226.02101,"873,S62.602A ",.02)
  1. ;;S62.602A
  1. ;;9002226.02101,"873,S62.602A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.602B ",.01)
  1. ;;S62.602B
  1. ;;9002226.02101,"873,S62.602B ",.02)
  1. ;;S62.602B
  1. ;;9002226.02101,"873,S62.602B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.603A ",.01)
  1. ;;S62.603A
  1. ;;9002226.02101,"873,S62.603A ",.02)
  1. ;;S62.603A
  1. ;;9002226.02101,"873,S62.603A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.603B ",.01)
  1. ;;S62.603B
  1. ;;9002226.02101,"873,S62.603B ",.02)
  1. ;;S62.603B
  1. ;;9002226.02101,"873,S62.603B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.604A ",.01)
  1. ;;S62.604A
  1. ;;9002226.02101,"873,S62.604A ",.02)
  1. ;;S62.604A
  1. ;;9002226.02101,"873,S62.604A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.604B ",.01)
  1. ;;S62.604B
  1. ;;9002226.02101,"873,S62.604B ",.02)
  1. ;;S62.604B
  1. ;;9002226.02101,"873,S62.604B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.605A ",.01)
  1. ;;S62.605A
  1. ;;9002226.02101,"873,S62.605A ",.02)
  1. ;;S62.605A
  1. ;;9002226.02101,"873,S62.605A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.605B ",.01)
  1. ;;S62.605B
  1. ;;9002226.02101,"873,S62.605B ",.02)
  1. ;;S62.605B
  1. ;;9002226.02101,"873,S62.605B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.606A ",.01)
  1. ;;S62.606A
  1. ;;9002226.02101,"873,S62.606A ",.02)
  1. ;;S62.606A
  1. ;;9002226.02101,"873,S62.606A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.606B ",.01)
  1. ;;S62.606B
  1. ;;9002226.02101,"873,S62.606B ",.02)
  1. ;;S62.606B
  1. ;;9002226.02101,"873,S62.606B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.607A ",.01)
  1. ;;S62.607A
  1. ;;9002226.02101,"873,S62.607A ",.02)
  1. ;;S62.607A
  1. ;;9002226.02101,"873,S62.607A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.607B ",.01)
  1. ;;S62.607B
  1. ;;9002226.02101,"873,S62.607B ",.02)
  1. ;;S62.607B
  1. ;;9002226.02101,"873,S62.607B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.608A ",.01)
  1. ;;S62.608A
  1. ;;9002226.02101,"873,S62.608A ",.02)
  1. ;;S62.608A
  1. ;;9002226.02101,"873,S62.608A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.608B ",.01)
  1. ;;S62.608B
  1. ;;9002226.02101,"873,S62.608B ",.02)
  1. ;;S62.608B
  1. ;;9002226.02101,"873,S62.608B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.609A ",.01)
  1. ;;S62.609A
  1. ;;9002226.02101,"873,S62.609A ",.02)
  1. ;;S62.609A
  1. ;;9002226.02101,"873,S62.609A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.609B ",.01)
  1. ;;S62.609B
  1. ;;9002226.02101,"873,S62.609B ",.02)
  1. ;;S62.609B
  1. ;;9002226.02101,"873,S62.609B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.610A ",.01)
  1. ;;S62.610A
  1. ;;9002226.02101,"873,S62.610A ",.02)
  1. ;;S62.610A
  1. ;;9002226.02101,"873,S62.610A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.610B ",.01)
  1. ;;S62.610B
  1. ;;9002226.02101,"873,S62.610B ",.02)
  1. ;;S62.610B
  1. ;;9002226.02101,"873,S62.610B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.611A ",.01)
  1. ;;S62.611A
  1. ;;9002226.02101,"873,S62.611A ",.02)
  1. ;;S62.611A
  1. ;;9002226.02101,"873,S62.611A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.611B ",.01)
  1. ;;S62.611B
  1. ;;9002226.02101,"873,S62.611B ",.02)
  1. ;;S62.611B
  1. ;;9002226.02101,"873,S62.611B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.612A ",.01)
  1. ;;S62.612A
  1. ;;9002226.02101,"873,S62.612A ",.02)
  1. ;;S62.612A
  1. ;;9002226.02101,"873,S62.612A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.612B ",.01)
  1. ;;S62.612B
  1. ;;9002226.02101,"873,S62.612B ",.02)
  1. ;;S62.612B
  1. ;;9002226.02101,"873,S62.612B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.613A ",.01)
  1. ;;S62.613A
  1. ;;9002226.02101,"873,S62.613A ",.02)
  1. ;;S62.613A
  1. ;;9002226.02101,"873,S62.613A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.613B ",.01)
  1. ;;S62.613B
  1. ;;9002226.02101,"873,S62.613B ",.02)
  1. ;;S62.613B
  1. ;;9002226.02101,"873,S62.613B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.614A ",.01)
  1. ;;S62.614A
  1. ;;9002226.02101,"873,S62.614A ",.02)
  1. ;;S62.614A
  1. ;;9002226.02101,"873,S62.614A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.614B ",.01)
  1. ;;S62.614B
  1. ;;9002226.02101,"873,S62.614B ",.02)
  1. ;;S62.614B
  1. ;;9002226.02101,"873,S62.614B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.615A ",.01)
  1. ;;S62.615A
  1. ;;9002226.02101,"873,S62.615A ",.02)
  1. ;;S62.615A
  1. ;;9002226.02101,"873,S62.615A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.615B ",.01)
  1. ;;S62.615B
  1. ;;9002226.02101,"873,S62.615B ",.02)
  1. ;;S62.615B
  1. ;;9002226.02101,"873,S62.615B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.616A ",.01)
  1. ;;S62.616A
  1. ;;9002226.02101,"873,S62.616A ",.02)
  1. ;;S62.616A
  1. ;;9002226.02101,"873,S62.616A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.616B ",.01)
  1. ;;S62.616B
  1. ;;9002226.02101,"873,S62.616B ",.02)
  1. ;;S62.616B
  1. ;;9002226.02101,"873,S62.616B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.617A ",.01)
  1. ;;S62.617A
  1. ;;9002226.02101,"873,S62.617A ",.02)
  1. ;;S62.617A
  1. ;;9002226.02101,"873,S62.617A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.617B ",.01)
  1. ;;S62.617B
  1. ;;9002226.02101,"873,S62.617B ",.02)
  1. ;;S62.617B
  1. ;;9002226.02101,"873,S62.617B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.618A ",.01)
  1. ;;S62.618A
  1. ;;9002226.02101,"873,S62.618A ",.02)
  1. ;;S62.618A
  1. ;;9002226.02101,"873,S62.618A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.618B ",.01)
  1. ;;S62.618B
  1. ;;9002226.02101,"873,S62.618B ",.02)
  1. ;;S62.618B
  1. ;;9002226.02101,"873,S62.618B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.619A ",.01)
  1. ;;S62.619A
  1. ;;9002226.02101,"873,S62.619A ",.02)
  1. ;;S62.619A
  1. ;;9002226.02101,"873,S62.619A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.619B ",.01)
  1. ;;S62.619B
  1. ;;9002226.02101,"873,S62.619B ",.02)
  1. ;;S62.619B
  1. ;;9002226.02101,"873,S62.619B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.620A ",.01)
  1. ;;S62.620A
  1. ;;9002226.02101,"873,S62.620A ",.02)
  1. ;;S62.620A
  1. ;;9002226.02101,"873,S62.620A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.620B ",.01)
  1. ;;S62.620B
  1. ;;9002226.02101,"873,S62.620B ",.02)
  1. ;;S62.620B
  1. ;;9002226.02101,"873,S62.620B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.621A ",.01)
  1. ;;S62.621A
  1. ;;9002226.02101,"873,S62.621A ",.02)
  1. ;;S62.621A
  1. ;;9002226.02101,"873,S62.621A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.621B ",.01)
  1. ;;S62.621B
  1. ;;9002226.02101,"873,S62.621B ",.02)
  1. ;;S62.621B
  1. ;;9002226.02101,"873,S62.621B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.622A ",.01)
  1. ;;S62.622A
  1. ;;9002226.02101,"873,S62.622A ",.02)
  1. ;;S62.622A
  1. ;;9002226.02101,"873,S62.622A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.622B ",.01)
  1. ;;S62.622B
  1. ;;9002226.02101,"873,S62.622B ",.02)
  1. ;;S62.622B
  1. ;;9002226.02101,"873,S62.622B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.623A ",.01)
  1. ;;S62.623A
  1. ;;9002226.02101,"873,S62.623A ",.02)
  1. ;;S62.623A
  1. ;;9002226.02101,"873,S62.623A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.623B ",.01)
  1. ;;S62.623B
  1. ;;9002226.02101,"873,S62.623B ",.02)
  1. ;;S62.623B
  1. ;;9002226.02101,"873,S62.623B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.624A ",.01)
  1. ;;S62.624A
  1. ;;9002226.02101,"873,S62.624A ",.02)
  1. ;;S62.624A
  1. ;;9002226.02101,"873,S62.624A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.624B ",.01)
  1. ;;S62.624B
  1. ;;9002226.02101,"873,S62.624B ",.02)
  1. ;;S62.624B
  1. ;;9002226.02101,"873,S62.624B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.625A ",.01)
  1. ;;S62.625A
  1. ;;9002226.02101,"873,S62.625A ",.02)
  1. ;;S62.625A
  1. ;;9002226.02101,"873,S62.625A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.625B ",.01)
  1. ;;S62.625B
  1. ;;9002226.02101,"873,S62.625B ",.02)
  1. ;;S62.625B
  1. ;;9002226.02101,"873,S62.625B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.626A ",.01)
  1. ;;S62.626A
  1. ;;9002226.02101,"873,S62.626A ",.02)
  1. ;;S62.626A
  1. ;;9002226.02101,"873,S62.626A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.626B ",.01)
  1. ;;S62.626B
  1. ;;9002226.02101,"873,S62.626B ",.02)
  1. ;;S62.626B
  1. ;;9002226.02101,"873,S62.626B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.627A ",.01)
  1. ;;S62.627A
  1. ;;9002226.02101,"873,S62.627A ",.02)
  1. ;;S62.627A
  1. ;;9002226.02101,"873,S62.627A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.627B ",.01)
  1. ;;S62.627B
  1. ;;9002226.02101,"873,S62.627B ",.02)
  1. ;;S62.627B
  1. ;;9002226.02101,"873,S62.627B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.628A ",.01)
  1. ;;S62.628A
  1. ;;9002226.02101,"873,S62.628A ",.02)
  1. ;;S62.628A
  1. ;;9002226.02101,"873,S62.628A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.628B ",.01)
  1. ;;S62.628B
  1. ;;9002226.02101,"873,S62.628B ",.02)
  1. ;;S62.628B
  1. ;;9002226.02101,"873,S62.628B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.629A ",.01)
  1. ;;S62.629A
  1. ;;9002226.02101,"873,S62.629A ",.02)
  1. ;;S62.629A
  1. ;;9002226.02101,"873,S62.629A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.629B ",.01)
  1. ;;S62.629B
  1. ;;9002226.02101,"873,S62.629B ",.02)
  1. ;;S62.629B
  1. ;;9002226.02101,"873,S62.629B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.630A ",.01)
  1. ;;S62.630A
  1. ;;9002226.02101,"873,S62.630A ",.02)
  1. ;;S62.630A
  1. ;;9002226.02101,"873,S62.630A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.630B ",.01)
  1. ;;S62.630B
  1. ;;9002226.02101,"873,S62.630B ",.02)
  1. ;;S62.630B
  1. ;;9002226.02101,"873,S62.630B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.631A ",.01)
  1. ;;S62.631A
  1. ;;9002226.02101,"873,S62.631A ",.02)
  1. ;;S62.631A
  1. ;;9002226.02101,"873,S62.631A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.631B ",.01)
  1. ;;S62.631B
  1. ;;9002226.02101,"873,S62.631B ",.02)
  1. ;;S62.631B
  1. ;;9002226.02101,"873,S62.631B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.632A ",.01)
  1. ;;S62.632A