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

ATXF4D3.m

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