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

ATXFAA3.m

Go to the documentation of this file.
ATXFAA3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 01, 2017;
 ;;5.1;TAXONOMY;**24**;FEB 04, 1997;Build 40
 ;
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,"1785,206.10 ",.02)
 ;;206.12 
 ;;9002226.02101,"1785,206.10 ",.03)
 ;;1
 ;;9002226.02101,"1785,206.20 ",.01)
 ;;206.20 
 ;;9002226.02101,"1785,206.20 ",.02)
 ;;206.22 
 ;;9002226.02101,"1785,206.20 ",.03)
 ;;1
 ;;9002226.02101,"1785,206.80 ",.01)
 ;;206.80 
 ;;9002226.02101,"1785,206.80 ",.02)
 ;;206.82 
 ;;9002226.02101,"1785,206.80 ",.03)
 ;;1
 ;;9002226.02101,"1785,206.90 ",.01)
 ;;206.90 
 ;;9002226.02101,"1785,206.90 ",.02)
 ;;206.92 
 ;;9002226.02101,"1785,206.90 ",.03)
 ;;1
 ;;9002226.02101,"1785,207.00 ",.01)
 ;;207.00 
 ;;9002226.02101,"1785,207.00 ",.02)
 ;;207.02 
 ;;9002226.02101,"1785,207.00 ",.03)
 ;;1
 ;;9002226.02101,"1785,207.10 ",.01)
 ;;207.10 
 ;;9002226.02101,"1785,207.10 ",.02)
 ;;207.12 
 ;;9002226.02101,"1785,207.10 ",.03)
 ;;1
 ;;9002226.02101,"1785,207.20 ",.01)
 ;;207.20 
 ;;9002226.02101,"1785,207.20 ",.02)
 ;;207.22 
 ;;9002226.02101,"1785,207.20 ",.03)
 ;;1
 ;;9002226.02101,"1785,207.90 ",.01)
 ;;207.90 
 ;;9002226.02101,"1785,207.90 ",.02)
 ;;207.82 
 ;;9002226.02101,"1785,208.00 ",.01)
 ;;208.00 
 ;;9002226.02101,"1785,208.00 ",.02)
 ;;208.02 
 ;;9002226.02101,"1785,208.00 ",.03)
 ;;1
 ;;9002226.02101,"1785,208.10 ",.01)
 ;;208.10 
 ;;9002226.02101,"1785,208.10 ",.02)
 ;;208.12 
 ;;9002226.02101,"1785,208.10 ",.03)
 ;;1
 ;;9002226.02101,"1785,208.20 ",.01)
 ;;208.20 
 ;;9002226.02101,"1785,208.20 ",.02)
 ;;208.22 
 ;;9002226.02101,"1785,208.20 ",.03)
 ;;1
 ;;9002226.02101,"1785,208.80 ",.01)
 ;;208.80 
 ;;9002226.02101,"1785,208.80 ",.02)
 ;;208.82 
 ;;9002226.02101,"1785,208.80 ",.03)
 ;;1
 ;;9002226.02101,"1785,208.90 ",.01)
 ;;208.90 
 ;;9002226.02101,"1785,208.90 ",.02)
 ;;208.92 
 ;;9002226.02101,"1785,208.90 ",.03)
 ;;1
 ;;9002226.02101,"1785,209.00 ",.01)
 ;;209.00 
 ;;9002226.02101,"1785,209.00 ",.02)
 ;;209.03 
 ;;9002226.02101,"1785,209.00 ",.03)
 ;;1
 ;;9002226.02101,"1785,209.10 ",.01)
 ;;209.10 
 ;;9002226.02101,"1785,209.10 ",.02)
 ;;209.17 
 ;;9002226.02101,"1785,209.10 ",.03)
 ;;1
 ;;9002226.02101,"1785,209.20 ",.01)
 ;;209.20 
 ;;9002226.02101,"1785,209.20 ",.02)
 ;;209.29 
 ;;9002226.02101,"1785,209.20 ",.03)
 ;;1
 ;;9002226.02101,"1785,209.30 ",.01)
 ;;209.30 
 ;;9002226.02101,"1785,209.30 ",.02)
 ;;209.36 
 ;;9002226.02101,"1785,209.30 ",.03)
 ;;1
 ;;9002226.02101,"1785,209.70 ",.01)
 ;;209.70 
 ;;9002226.02101,"1785,209.70 ",.02)
 ;;209.79 
 ;;9002226.02101,"1785,209.70 ",.03)
 ;;1
 ;;9002226.02101,"1785,225.0 ",.01)
 ;;225.0 
 ;;9002226.02101,"1785,225.0 ",.02)
 ;;225.9 
 ;;9002226.02101,"1785,225.0 ",.03)
 ;;1
 ;;9002226.02101,"1785,227.3 ",.01)
 ;;227.3 
 ;;9002226.02101,"1785,227.3 ",.02)
 ;;227.4 
 ;;9002226.02101,"1785,227.3 ",.03)
 ;;1
 ;;9002226.02101,"1785,228.02 ",.01)
 ;;228.02 
 ;;9002226.02101,"1785,228.02 ",.02)
 ;;228.02 
 ;;9002226.02101,"1785,228.02 ",.03)
 ;;1
 ;;9002226.02101,"1785,228.1 ",.01)
 ;;228.1 
 ;;9002226.02101,"1785,228.1 ",.02)
 ;;228.1 
 ;;9002226.02101,"1785,228.1 ",.03)
 ;;1
 ;;9002226.02101,"1785,230.0 ",.01)
 ;;230.0 
 ;;9002226.02101,"1785,230.0 ",.02)
 ;;230.9 
 ;;9002226.02101,"1785,230.0 ",.03)
 ;;1
 ;;9002226.02101,"1785,231.0 ",.01)
 ;;231.0 
 ;;9002226.02101,"1785,231.0 ",.02)
 ;;231.9 
 ;;9002226.02101,"1785,231.0 ",.03)
 ;;1
 ;;9002226.02101,"1785,232.0 ",.01)
 ;;232.0 
 ;;9002226.02101,"1785,232.0 ",.02)
 ;;232.9 
 ;;9002226.02101,"1785,232.0 ",.03)
 ;;1
 ;;9002226.02101,"1785,233.0 ",.01)
 ;;233.0 
 ;;9002226.02101,"1785,233.0 ",.02)
 ;;233.9 
 ;;9002226.02101,"1785,233.0 ",.03)
 ;;1
 ;;9002226.02101,"1785,234.0 ",.01)
 ;;234.0 
 ;;9002226.02101,"1785,234.0 ",.02)
 ;;234.9 
 ;;9002226.02101,"1785,234.0 ",.03)
 ;;1
 ;;9002226.02101,"1785,237.0 ",.01)
 ;;237.0 
 ;;9002226.02101,"1785,237.0 ",.02)
 ;;237.1 
 ;;9002226.02101,"1785,237.0 ",.03)
 ;;1
 ;;9002226.02101,"1785,237.5 ",.01)
 ;;237.5 
 ;;9002226.02101,"1785,237.5 ",.02)
 ;;237.6 
 ;;9002226.02101,"1785,237.5 ",.03)
 ;;1
 ;;9002226.02101,"1785,237.9 ",.01)
 ;;237.9 
 ;;9002226.02101,"1785,237.9 ",.02)
 ;;237.9 
 ;;9002226.02101,"1785,237.9 ",.03)
 ;;1
 ;;9002226.02101,"1785,238.4 ",.01)
 ;;238.4 
 ;;9002226.02101,"1785,238.4 ",.02)
 ;;238.4 
 ;;9002226.02101,"1785,238.4 ",.03)
 ;;1
 ;;9002226.02101,"1785,238.71 ",.01)
 ;;238.71 
 ;;9002226.02101,"1785,238.71 ",.02)
 ;;238.79 
 ;;9002226.02101,"1785,238.71 ",.03)
 ;;1
 ;;9002226.02101,"1785,239.6 ",.01)
 ;;239.6 
 ;;9002226.02101,"1785,239.6 ",.02)
 ;;239.6 
 ;;9002226.02101,"1785,239.6 ",.03)
 ;;1
 ;;9002226.02101,"1785,239.7 ",.01)
 ;;239.7 
 ;;9002226.02101,"1785,239.7 ",.02)
 ;;239.7 
 ;;9002226.02101,"1785,239.7 ",.03)
 ;;1
 ;;9002226.02101,"1785,273.3 ",.01)
 ;;273.3 
 ;;9002226.02101,"1785,273.3 ",.02)
 ;;273.3 
 ;;9002226.02101,"1785,273.3 ",.03)
 ;;1
 ;;9002226.02101,"1785,277.89 ",.01)
 ;;277.89 
 ;;9002226.02101,"1785,277.89 ",.02)
 ;;277.89 
 ;;9002226.02101,"1785,277.89 ",.03)
 ;;1
 ;;9002226.02101,"1785,C00.0 ",.01)
 ;;C00.0 
 ;;9002226.02101,"1785,C00.0 ",.02)
 ;;C00.9 
 ;;9002226.02101,"1785,C00.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C01. ",.01)
 ;;C01. 
 ;;9002226.02101,"1785,C01. ",.02)
 ;;C01. 
 ;;9002226.02101,"1785,C01. ",.03)
 ;;30
 ;;9002226.02101,"1785,C02.0 ",.01)
 ;;C02.0 
 ;;9002226.02101,"1785,C02.0 ",.02)
 ;;C02.9 
 ;;9002226.02101,"1785,C02.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C03.0 ",.01)
 ;;C03.0 
 ;;9002226.02101,"1785,C03.0 ",.02)
 ;;C03.9 
 ;;9002226.02101,"1785,C03.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C04.0 ",.01)
 ;;C04.0 
 ;;9002226.02101,"1785,C04.0 ",.02)
 ;;C04.9 
 ;;9002226.02101,"1785,C04.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C05.0 ",.01)
 ;;C05.0 
 ;;9002226.02101,"1785,C05.0 ",.02)
 ;;C05.9 
 ;;9002226.02101,"1785,C05.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C06.0 ",.01)
 ;;C06.0 
 ;;9002226.02101,"1785,C06.0 ",.02)
 ;;C06.9 
 ;;9002226.02101,"1785,C06.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C07. ",.01)
 ;;C07. 
 ;;9002226.02101,"1785,C07. ",.02)
 ;;C07. 
 ;;9002226.02101,"1785,C07. ",.03)
 ;;30
 ;;9002226.02101,"1785,C08.0 ",.01)
 ;;C08.0 
 ;;9002226.02101,"1785,C08.0 ",.02)
 ;;C08.9 
 ;;9002226.02101,"1785,C08.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C09.0 ",.01)
 ;;C09.0 
 ;;9002226.02101,"1785,C09.0 ",.02)
 ;;C09.9 
 ;;9002226.02101,"1785,C09.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C10.0 ",.01)
 ;;C10.0 
 ;;9002226.02101,"1785,C10.0 ",.02)
 ;;C10.9 
 ;;9002226.02101,"1785,C10.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C11.0 ",.01)
 ;;C11.0 
 ;;9002226.02101,"1785,C11.0 ",.02)
 ;;C11.9 
 ;;9002226.02101,"1785,C11.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C12. ",.01)
 ;;C12. 
 ;;9002226.02101,"1785,C12. ",.02)
 ;;C12. 
 ;;9002226.02101,"1785,C12. ",.03)
 ;;30
 ;;9002226.02101,"1785,C13.0 ",.01)
 ;;C13.0 
 ;;9002226.02101,"1785,C13.0 ",.02)
 ;;C13.9 
 ;;9002226.02101,"1785,C13.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C14.0 ",.01)
 ;;C14.0 
 ;;9002226.02101,"1785,C14.0 ",.02)
 ;;C14.8 
 ;;9002226.02101,"1785,C14.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C15.3 ",.01)
 ;;C15.3 
 ;;9002226.02101,"1785,C15.3 ",.02)
 ;;C15.9 
 ;;9002226.02101,"1785,C15.3 ",.03)
 ;;30
 ;;9002226.02101,"1785,C16.0 ",.01)
 ;;C16.0 
 ;;9002226.02101,"1785,C16.0 ",.02)
 ;;C16.9 
 ;;9002226.02101,"1785,C16.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C17.0 ",.01)
 ;;C17.0 
 ;;9002226.02101,"1785,C17.0 ",.02)
 ;;C17.9 
 ;;9002226.02101,"1785,C17.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C18.0 ",.01)
 ;;C18.0 
 ;;9002226.02101,"1785,C18.0 ",.02)
 ;;C18.9 
 ;;9002226.02101,"1785,C18.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C19. ",.01)
 ;;C19. 
 ;;9002226.02101,"1785,C19. ",.02)
 ;;C19. 
 ;;9002226.02101,"1785,C19. ",.03)
 ;;30
 ;;9002226.02101,"1785,C20. ",.01)
 ;;C20. 
 ;;9002226.02101,"1785,C20. ",.02)
 ;;C20. 
 ;;9002226.02101,"1785,C20. ",.03)
 ;;30
 ;;9002226.02101,"1785,C21.0 ",.01)
 ;;C21.0 
 ;;9002226.02101,"1785,C21.0 ",.02)
 ;;C21.8 
 ;;9002226.02101,"1785,C21.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C22.0 ",.01)
 ;;C22.0 
 ;;9002226.02101,"1785,C22.0 ",.02)
 ;;C22.9 
 ;;9002226.02101,"1785,C22.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C23. ",.01)
 ;;C23. 
 ;;9002226.02101,"1785,C23. ",.02)
 ;;C23. 
 ;;9002226.02101,"1785,C23. ",.03)
 ;;30
 ;;9002226.02101,"1785,C24.0 ",.01)
 ;;C24.0 
 ;;9002226.02101,"1785,C24.0 ",.02)
 ;;C24.9 
 ;;9002226.02101,"1785,C24.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C25.0 ",.01)
 ;;C25.0 
 ;;9002226.02101,"1785,C25.0 ",.02)
 ;;C25.9 
 ;;9002226.02101,"1785,C25.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C26.0 ",.01)
 ;;C26.0 
 ;;9002226.02101,"1785,C26.0 ",.02)
 ;;C26.9 
 ;;9002226.02101,"1785,C26.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C30.0 ",.01)
 ;;C30.0 
 ;;9002226.02101,"1785,C30.0 ",.02)
 ;;C30.1 
 ;;9002226.02101,"1785,C30.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C31.0 ",.01)
 ;;C31.0 
 ;;9002226.02101,"1785,C31.0 ",.02)
 ;;C31.9 
 ;;9002226.02101,"1785,C31.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C32.0 ",.01)
 ;;C32.0 
 ;;9002226.02101,"1785,C32.0 ",.02)
 ;;C32.9 
 ;;9002226.02101,"1785,C32.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C33. ",.01)
 ;;C33. 
 ;;9002226.02101,"1785,C33. ",.02)
 ;;C33. 
 ;;9002226.02101,"1785,C33. ",.03)
 ;;30
 ;;9002226.02101,"1785,C34.00 ",.01)
 ;;C34.00 
 ;;9002226.02101,"1785,C34.00 ",.02)
 ;;C34.02 
 ;;9002226.02101,"1785,C34.00 ",.03)
 ;;30
 ;;9002226.02101,"1785,C34.10 ",.01)
 ;;C34.10 
 ;;9002226.02101,"1785,C34.10 ",.02)
 ;;C34.2 
 ;;9002226.02101,"1785,C34.10 ",.03)
 ;;30
 ;;9002226.02101,"1785,C34.30 ",.01)
 ;;C34.30 
 ;;9002226.02101,"1785,C34.30 ",.02)
 ;;C34.32 
 ;;9002226.02101,"1785,C34.30 ",.03)
 ;;30
 ;;9002226.02101,"1785,C34.80 ",.01)
 ;;C34.80 
 ;;9002226.02101,"1785,C34.80 ",.02)
 ;;C34.82 
 ;;9002226.02101,"1785,C34.80 ",.03)
 ;;30
 ;;9002226.02101,"1785,C34.90 ",.01)
 ;;C34.90 
 ;;9002226.02101,"1785,C34.90 ",.02)
 ;;C34.92 
 ;;9002226.02101,"1785,C34.90 ",.03)
 ;;30
 ;;9002226.02101,"1785,C37. ",.01)
 ;;C37. 
 ;;9002226.02101,"1785,C37. ",.02)
 ;;C37. 
 ;;9002226.02101,"1785,C37. ",.03)
 ;;30
 ;;9002226.02101,"1785,C38.0 ",.01)
 ;;C38.0 
 ;;9002226.02101,"1785,C38.0 ",.02)
 ;;C38.8 
 ;;9002226.02101,"1785,C38.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C39.0 ",.01)
 ;;C39.0 
 ;;9002226.02101,"1785,C39.0 ",.02)
 ;;C39.9 
 ;;9002226.02101,"1785,C39.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C40.00 ",.01)
 ;;C40.00 
 ;;9002226.02101,"1785,C40.00 ",.02)
 ;;C40.02 
 ;;9002226.02101,"1785,C40.00 ",.03)
 ;;30
 ;;9002226.02101,"1785,C40.10 ",.01)
 ;;C40.10 
 ;;9002226.02101,"1785,C40.10 ",.02)
 ;;C40.12 
 ;;9002226.02101,"1785,C40.10 ",.03)
 ;;30
 ;;9002226.02101,"1785,C40.20 ",.01)
 ;;C40.20 
 ;;9002226.02101,"1785,C40.20 ",.02)
 ;;C40.22 
 ;;9002226.02101,"1785,C40.20 ",.03)
 ;;30
 ;;9002226.02101,"1785,C40.30 ",.01)
 ;;C40.30 
 ;;9002226.02101,"1785,C40.30 ",.02)
 ;;C40.32 
 ;;9002226.02101,"1785,C40.30 ",.03)
 ;;30
 ;;9002226.02101,"1785,C40.80 ",.01)
 ;;C40.80 
 ;;9002226.02101,"1785,C40.80 ",.02)
 ;;C40.82 
 ;;9002226.02101,"1785,C40.80 ",.03)
 ;;30
 ;;9002226.02101,"1785,C40.90 ",.01)
 ;;C40.90 
 ;;9002226.02101,"1785,C40.90 ",.02)
 ;;C40.92 
 ;;9002226.02101,"1785,C40.90 ",.03)
 ;;30
 ;;9002226.02101,"1785,C41.0 ",.01)
 ;;C41.0 
 ;;9002226.02101,"1785,C41.0 ",.02)
 ;;C41.9 
 ;;9002226.02101,"1785,C41.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C43.0 ",.01)
 ;;C43.0 
 ;;9002226.02101,"1785,C43.0 ",.02)
 ;;C43.0 
 ;;9002226.02101,"1785,C43.0 ",.03)
 ;;30
 ;;9002226.02101,"1785,C43.10 ",.01)
 ;;C43.10 
 ;;9002226.02101,"1785,C43.10 ",.02)
 ;;C43.12