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

ATXXA89.m

Go to the documentation of this file.
  1. ATXXA89 ;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.91XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.91XB ",.01)
  1. ;;S62.91XB
  1. ;;9002226.02101,"873,S62.91XB ",.02)
  1. ;;S62.91XB
  1. ;;9002226.02101,"873,S62.91XB ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.92XA ",.01)
  1. ;;S62.92XA
  1. ;;9002226.02101,"873,S62.92XA ",.02)
  1. ;;S62.92XA
  1. ;;9002226.02101,"873,S62.92XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.92XB ",.01)
  1. ;;S62.92XB
  1. ;;9002226.02101,"873,S62.92XB ",.02)
  1. ;;S62.92XB
  1. ;;9002226.02101,"873,S62.92XB ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.001A ",.01)
  1. ;;S63.001A
  1. ;;9002226.02101,"873,S63.001A ",.02)
  1. ;;S63.001A
  1. ;;9002226.02101,"873,S63.001A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.002A ",.01)
  1. ;;S63.002A
  1. ;;9002226.02101,"873,S63.002A ",.02)
  1. ;;S63.002A
  1. ;;9002226.02101,"873,S63.002A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.003A ",.01)
  1. ;;S63.003A
  1. ;;9002226.02101,"873,S63.003A ",.02)
  1. ;;S63.003A
  1. ;;9002226.02101,"873,S63.003A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.004A ",.01)
  1. ;;S63.004A
  1. ;;9002226.02101,"873,S63.004A ",.02)
  1. ;;S63.004A
  1. ;;9002226.02101,"873,S63.004A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.005A ",.01)
  1. ;;S63.005A
  1. ;;9002226.02101,"873,S63.005A ",.02)
  1. ;;S63.005A
  1. ;;9002226.02101,"873,S63.005A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.006A ",.01)
  1. ;;S63.006A
  1. ;;9002226.02101,"873,S63.006A ",.02)
  1. ;;S63.006A
  1. ;;9002226.02101,"873,S63.006A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.011A ",.01)
  1. ;;S63.011A
  1. ;;9002226.02101,"873,S63.011A ",.02)
  1. ;;S63.011A
  1. ;;9002226.02101,"873,S63.011A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.012A ",.01)
  1. ;;S63.012A
  1. ;;9002226.02101,"873,S63.012A ",.02)
  1. ;;S63.012A
  1. ;;9002226.02101,"873,S63.012A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.013A ",.01)
  1. ;;S63.013A
  1. ;;9002226.02101,"873,S63.013A ",.02)
  1. ;;S63.013A
  1. ;;9002226.02101,"873,S63.013A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.014A ",.01)
  1. ;;S63.014A
  1. ;;9002226.02101,"873,S63.014A ",.02)
  1. ;;S63.014A
  1. ;;9002226.02101,"873,S63.014A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.015A ",.01)
  1. ;;S63.015A
  1. ;;9002226.02101,"873,S63.015A ",.02)
  1. ;;S63.015A
  1. ;;9002226.02101,"873,S63.015A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.016A ",.01)
  1. ;;S63.016A
  1. ;;9002226.02101,"873,S63.016A ",.02)
  1. ;;S63.016A
  1. ;;9002226.02101,"873,S63.016A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.021A ",.01)
  1. ;;S63.021A
  1. ;;9002226.02101,"873,S63.021A ",.02)
  1. ;;S63.021A
  1. ;;9002226.02101,"873,S63.021A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.022A ",.01)
  1. ;;S63.022A
  1. ;;9002226.02101,"873,S63.022A ",.02)
  1. ;;S63.022A
  1. ;;9002226.02101,"873,S63.022A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.023A ",.01)
  1. ;;S63.023A
  1. ;;9002226.02101,"873,S63.023A ",.02)
  1. ;;S63.023A
  1. ;;9002226.02101,"873,S63.023A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.024A ",.01)
  1. ;;S63.024A
  1. ;;9002226.02101,"873,S63.024A ",.02)
  1. ;;S63.024A
  1. ;;9002226.02101,"873,S63.024A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.025A ",.01)
  1. ;;S63.025A
  1. ;;9002226.02101,"873,S63.025A ",.02)
  1. ;;S63.025A
  1. ;;9002226.02101,"873,S63.025A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.026A ",.01)
  1. ;;S63.026A
  1. ;;9002226.02101,"873,S63.026A ",.02)
  1. ;;S63.026A
  1. ;;9002226.02101,"873,S63.026A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.031A ",.01)
  1. ;;S63.031A
  1. ;;9002226.02101,"873,S63.031A ",.02)
  1. ;;S63.031A
  1. ;;9002226.02101,"873,S63.031A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.032A ",.01)
  1. ;;S63.032A
  1. ;;9002226.02101,"873,S63.032A ",.02)
  1. ;;S63.032A
  1. ;;9002226.02101,"873,S63.032A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.033A ",.01)
  1. ;;S63.033A
  1. ;;9002226.02101,"873,S63.033A ",.02)
  1. ;;S63.033A
  1. ;;9002226.02101,"873,S63.033A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.034A ",.01)
  1. ;;S63.034A
  1. ;;9002226.02101,"873,S63.034A ",.02)
  1. ;;S63.034A
  1. ;;9002226.02101,"873,S63.034A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.035A ",.01)
  1. ;;S63.035A
  1. ;;9002226.02101,"873,S63.035A ",.02)
  1. ;;S63.035A
  1. ;;9002226.02101,"873,S63.035A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.036A ",.01)
  1. ;;S63.036A
  1. ;;9002226.02101,"873,S63.036A ",.02)
  1. ;;S63.036A
  1. ;;9002226.02101,"873,S63.036A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.041A ",.01)
  1. ;;S63.041A
  1. ;;9002226.02101,"873,S63.041A ",.02)
  1. ;;S63.041A
  1. ;;9002226.02101,"873,S63.041A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.042A ",.01)
  1. ;;S63.042A
  1. ;;9002226.02101,"873,S63.042A ",.02)
  1. ;;S63.042A
  1. ;;9002226.02101,"873,S63.042A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.043A ",.01)
  1. ;;S63.043A
  1. ;;9002226.02101,"873,S63.043A ",.02)
  1. ;;S63.043A
  1. ;;9002226.02101,"873,S63.043A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.044A ",.01)
  1. ;;S63.044A
  1. ;;9002226.02101,"873,S63.044A ",.02)
  1. ;;S63.044A
  1. ;;9002226.02101,"873,S63.044A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.045A ",.01)
  1. ;;S63.045A
  1. ;;9002226.02101,"873,S63.045A ",.02)
  1. ;;S63.045A
  1. ;;9002226.02101,"873,S63.045A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.046A ",.01)
  1. ;;S63.046A
  1. ;;9002226.02101,"873,S63.046A ",.02)
  1. ;;S63.046A
  1. ;;9002226.02101,"873,S63.046A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.051A ",.01)
  1. ;;S63.051A
  1. ;;9002226.02101,"873,S63.051A ",.02)
  1. ;;S63.051A
  1. ;;9002226.02101,"873,S63.051A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.052A ",.01)
  1. ;;S63.052A
  1. ;;9002226.02101,"873,S63.052A ",.02)
  1. ;;S63.052A
  1. ;;9002226.02101,"873,S63.052A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.053A ",.01)
  1. ;;S63.053A
  1. ;;9002226.02101,"873,S63.053A ",.02)
  1. ;;S63.053A
  1. ;;9002226.02101,"873,S63.053A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.054A ",.01)
  1. ;;S63.054A
  1. ;;9002226.02101,"873,S63.054A ",.02)
  1. ;;S63.054A
  1. ;;9002226.02101,"873,S63.054A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.055A ",.01)
  1. ;;S63.055A
  1. ;;9002226.02101,"873,S63.055A ",.02)
  1. ;;S63.055A
  1. ;;9002226.02101,"873,S63.055A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.056A ",.01)
  1. ;;S63.056A
  1. ;;9002226.02101,"873,S63.056A ",.02)
  1. ;;S63.056A
  1. ;;9002226.02101,"873,S63.056A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.061A ",.01)
  1. ;;S63.061A
  1. ;;9002226.02101,"873,S63.061A ",.02)
  1. ;;S63.061A
  1. ;;9002226.02101,"873,S63.061A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.062A ",.01)
  1. ;;S63.062A
  1. ;;9002226.02101,"873,S63.062A ",.02)
  1. ;;S63.062A
  1. ;;9002226.02101,"873,S63.062A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.063A ",.01)
  1. ;;S63.063A
  1. ;;9002226.02101,"873,S63.063A ",.02)
  1. ;;S63.063A
  1. ;;9002226.02101,"873,S63.063A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.064A ",.01)
  1. ;;S63.064A
  1. ;;9002226.02101,"873,S63.064A ",.02)
  1. ;;S63.064A
  1. ;;9002226.02101,"873,S63.064A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.065A ",.01)
  1. ;;S63.065A
  1. ;;9002226.02101,"873,S63.065A ",.02)
  1. ;;S63.065A
  1. ;;9002226.02101,"873,S63.065A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.066A ",.01)
  1. ;;S63.066A
  1. ;;9002226.02101,"873,S63.066A ",.02)
  1. ;;S63.066A
  1. ;;9002226.02101,"873,S63.066A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.071A ",.01)
  1. ;;S63.071A
  1. ;;9002226.02101,"873,S63.071A ",.02)
  1. ;;S63.071A
  1. ;;9002226.02101,"873,S63.071A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.072A ",.01)
  1. ;;S63.072A
  1. ;;9002226.02101,"873,S63.072A ",.02)
  1. ;;S63.072A
  1. ;;9002226.02101,"873,S63.072A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.073A ",.01)
  1. ;;S63.073A
  1. ;;9002226.02101,"873,S63.073A ",.02)
  1. ;;S63.073A
  1. ;;9002226.02101,"873,S63.073A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.074A ",.01)
  1. ;;S63.074A
  1. ;;9002226.02101,"873,S63.074A ",.02)
  1. ;;S63.074A
  1. ;;9002226.02101,"873,S63.074A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.075A ",.01)
  1. ;;S63.075A
  1. ;;9002226.02101,"873,S63.075A ",.02)
  1. ;;S63.075A
  1. ;;9002226.02101,"873,S63.075A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.076A ",.01)
  1. ;;S63.076A
  1. ;;9002226.02101,"873,S63.076A ",.02)
  1. ;;S63.076A
  1. ;;9002226.02101,"873,S63.076A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.091A ",.01)
  1. ;;S63.091A
  1. ;;9002226.02101,"873,S63.091A ",.02)
  1. ;;S63.091A
  1. ;;9002226.02101,"873,S63.091A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.092A ",.01)
  1. ;;S63.092A
  1. ;;9002226.02101,"873,S63.092A ",.02)
  1. ;;S63.092A
  1. ;;9002226.02101,"873,S63.092A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.093A ",.01)
  1. ;;S63.093A
  1. ;;9002226.02101,"873,S63.093A ",.02)
  1. ;;S63.093A
  1. ;;9002226.02101,"873,S63.093A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.094A ",.01)
  1. ;;S63.094A
  1. ;;9002226.02101,"873,S63.094A ",.02)
  1. ;;S63.094A
  1. ;;9002226.02101,"873,S63.094A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.095A ",.01)
  1. ;;S63.095A
  1. ;;9002226.02101,"873,S63.095A ",.02)
  1. ;;S63.095A
  1. ;;9002226.02101,"873,S63.095A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.096A ",.01)
  1. ;;S63.096A
  1. ;;9002226.02101,"873,S63.096A ",.02)
  1. ;;S63.096A
  1. ;;9002226.02101,"873,S63.096A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.101A ",.01)
  1. ;;S63.101A
  1. ;;9002226.02101,"873,S63.101A ",.02)
  1. ;;S63.101A
  1. ;;9002226.02101,"873,S63.101A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.102A ",.01)
  1. ;;S63.102A
  1. ;;9002226.02101,"873,S63.102A ",.02)
  1. ;;S63.102A
  1. ;;9002226.02101,"873,S63.102A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.103A ",.01)
  1. ;;S63.103A
  1. ;;9002226.02101,"873,S63.103A ",.02)
  1. ;;S63.103A
  1. ;;9002226.02101,"873,S63.103A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.104A ",.01)
  1. ;;S63.104A
  1. ;;9002226.02101,"873,S63.104A ",.02)
  1. ;;S63.104A
  1. ;;9002226.02101,"873,S63.104A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.105A ",.01)
  1. ;;S63.105A
  1. ;;9002226.02101,"873,S63.105A ",.02)
  1. ;;S63.105A
  1. ;;9002226.02101,"873,S63.105A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.106A ",.01)
  1. ;;S63.106A
  1. ;;9002226.02101,"873,S63.106A ",.02)
  1. ;;S63.106A
  1. ;;9002226.02101,"873,S63.106A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.111A ",.01)
  1. ;;S63.111A
  1. ;;9002226.02101,"873,S63.111A ",.02)
  1. ;;S63.111A
  1. ;;9002226.02101,"873,S63.111A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.112A ",.01)
  1. ;;S63.112A
  1. ;;9002226.02101,"873,S63.112A ",.02)
  1. ;;S63.112A
  1. ;;9002226.02101,"873,S63.112A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.113A ",.01)
  1. ;;S63.113A
  1. ;;9002226.02101,"873,S63.113A ",.02)
  1. ;;S63.113A
  1. ;;9002226.02101,"873,S63.113A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.114A ",.01)
  1. ;;S63.114A
  1. ;;9002226.02101,"873,S63.114A ",.02)
  1. ;;S63.114A
  1. ;;9002226.02101,"873,S63.114A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.115A ",.01)
  1. ;;S63.115A
  1. ;;9002226.02101,"873,S63.115A ",.02)
  1. ;;S63.115A
  1. ;;9002226.02101,"873,S63.115A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.116A ",.01)
  1. ;;S63.116A
  1. ;;9002226.02101,"873,S63.116A ",.02)
  1. ;;S63.116A
  1. ;;9002226.02101,"873,S63.116A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.121A ",.01)
  1. ;;S63.121A
  1. ;;9002226.02101,"873,S63.121A ",.02)
  1. ;;S63.121A
  1. ;;9002226.02101,"873,S63.121A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.122A ",.01)
  1. ;;S63.122A
  1. ;;9002226.02101,"873,S63.122A ",.02)
  1. ;;S63.122A
  1. ;;9002226.02101,"873,S63.122A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.123A ",.01)
  1. ;;S63.123A
  1. ;;9002226.02101,"873,S63.123A ",.02)
  1. ;;S63.123A
  1. ;;9002226.02101,"873,S63.123A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.124A ",.01)
  1. ;;S63.124A
  1. ;;9002226.02101,"873,S63.124A ",.02)
  1. ;;S63.124A
  1. ;;9002226.02101,"873,S63.124A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.125A ",.01)
  1. ;;S63.125A
  1. ;;9002226.02101,"873,S63.125A ",.02)
  1. ;;S63.125A
  1. ;;9002226.02101,"873,S63.125A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.126A ",.01)
  1. ;;S63.126A
  1. ;;9002226.02101,"873,S63.126A ",.02)
  1. ;;S63.126A
  1. ;;9002226.02101,"873,S63.126A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.131A ",.01)
  1. ;;S63.131A
  1. ;;9002226.02101,"873,S63.131A ",.02)
  1. ;;S63.131A
  1. ;;9002226.02101,"873,S63.131A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.132A ",.01)
  1. ;;S63.132A
  1. ;;9002226.02101,"873,S63.132A ",.02)
  1. ;;S63.132A
  1. ;;9002226.02101,"873,S63.132A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S63.133A ",.01)
  1. ;;S63.133A
  1. ;;9002226.02101,"873,S63.133A ",.02)
  1. ;;S63.133A
  1. ;;9002226.02101,"873,S63.133A ",.03)
  1. ;;30