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

ATXXA104.m

Go to the documentation of this file.
ATXXA104 ;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,S72.443A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.443B ",.01)
 ;;S72.443B
 ;;9002226.02101,"873,S72.443B ",.02)
 ;;S72.443B
 ;;9002226.02101,"873,S72.443B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.443C ",.01)
 ;;S72.443C
 ;;9002226.02101,"873,S72.443C ",.02)
 ;;S72.443C
 ;;9002226.02101,"873,S72.443C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.444A ",.01)
 ;;S72.444A
 ;;9002226.02101,"873,S72.444A ",.02)
 ;;S72.444A
 ;;9002226.02101,"873,S72.444A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.444B ",.01)
 ;;S72.444B
 ;;9002226.02101,"873,S72.444B ",.02)
 ;;S72.444B
 ;;9002226.02101,"873,S72.444B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.444C ",.01)
 ;;S72.444C
 ;;9002226.02101,"873,S72.444C ",.02)
 ;;S72.444C
 ;;9002226.02101,"873,S72.444C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.445A ",.01)
 ;;S72.445A
 ;;9002226.02101,"873,S72.445A ",.02)
 ;;S72.445A
 ;;9002226.02101,"873,S72.445A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.445B ",.01)
 ;;S72.445B
 ;;9002226.02101,"873,S72.445B ",.02)
 ;;S72.445B
 ;;9002226.02101,"873,S72.445B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.445C ",.01)
 ;;S72.445C
 ;;9002226.02101,"873,S72.445C ",.02)
 ;;S72.445C
 ;;9002226.02101,"873,S72.445C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.446A ",.01)
 ;;S72.446A
 ;;9002226.02101,"873,S72.446A ",.02)
 ;;S72.446A
 ;;9002226.02101,"873,S72.446A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.446B ",.01)
 ;;S72.446B
 ;;9002226.02101,"873,S72.446B ",.02)
 ;;S72.446B
 ;;9002226.02101,"873,S72.446B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.446C ",.01)
 ;;S72.446C
 ;;9002226.02101,"873,S72.446C ",.02)
 ;;S72.446C
 ;;9002226.02101,"873,S72.446C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.451A ",.01)
 ;;S72.451A
 ;;9002226.02101,"873,S72.451A ",.02)
 ;;S72.451A
 ;;9002226.02101,"873,S72.451A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.451B ",.01)
 ;;S72.451B
 ;;9002226.02101,"873,S72.451B ",.02)
 ;;S72.451B
 ;;9002226.02101,"873,S72.451B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.451C ",.01)
 ;;S72.451C
 ;;9002226.02101,"873,S72.451C ",.02)
 ;;S72.451C
 ;;9002226.02101,"873,S72.451C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.452A ",.01)
 ;;S72.452A
 ;;9002226.02101,"873,S72.452A ",.02)
 ;;S72.452A
 ;;9002226.02101,"873,S72.452A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.452B ",.01)
 ;;S72.452B
 ;;9002226.02101,"873,S72.452B ",.02)
 ;;S72.452B
 ;;9002226.02101,"873,S72.452B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.452C ",.01)
 ;;S72.452C
 ;;9002226.02101,"873,S72.452C ",.02)
 ;;S72.452C
 ;;9002226.02101,"873,S72.452C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.453A ",.01)
 ;;S72.453A
 ;;9002226.02101,"873,S72.453A ",.02)
 ;;S72.453A
 ;;9002226.02101,"873,S72.453A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.453B ",.01)
 ;;S72.453B
 ;;9002226.02101,"873,S72.453B ",.02)
 ;;S72.453B
 ;;9002226.02101,"873,S72.453B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.453C ",.01)
 ;;S72.453C
 ;;9002226.02101,"873,S72.453C ",.02)
 ;;S72.453C
 ;;9002226.02101,"873,S72.453C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.454A ",.01)
 ;;S72.454A
 ;;9002226.02101,"873,S72.454A ",.02)
 ;;S72.454A
 ;;9002226.02101,"873,S72.454A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.454B ",.01)
 ;;S72.454B
 ;;9002226.02101,"873,S72.454B ",.02)
 ;;S72.454B
 ;;9002226.02101,"873,S72.454B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.454C ",.01)
 ;;S72.454C
 ;;9002226.02101,"873,S72.454C ",.02)
 ;;S72.454C
 ;;9002226.02101,"873,S72.454C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.455A ",.01)
 ;;S72.455A
 ;;9002226.02101,"873,S72.455A ",.02)
 ;;S72.455A
 ;;9002226.02101,"873,S72.455A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.455B ",.01)
 ;;S72.455B
 ;;9002226.02101,"873,S72.455B ",.02)
 ;;S72.455B
 ;;9002226.02101,"873,S72.455B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.455C ",.01)
 ;;S72.455C
 ;;9002226.02101,"873,S72.455C ",.02)
 ;;S72.455C
 ;;9002226.02101,"873,S72.455C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.456A ",.01)
 ;;S72.456A
 ;;9002226.02101,"873,S72.456A ",.02)
 ;;S72.456A
 ;;9002226.02101,"873,S72.456A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.456B ",.01)
 ;;S72.456B
 ;;9002226.02101,"873,S72.456B ",.02)
 ;;S72.456B
 ;;9002226.02101,"873,S72.456B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.456C ",.01)
 ;;S72.456C
 ;;9002226.02101,"873,S72.456C ",.02)
 ;;S72.456C
 ;;9002226.02101,"873,S72.456C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.461A ",.01)
 ;;S72.461A
 ;;9002226.02101,"873,S72.461A ",.02)
 ;;S72.461A
 ;;9002226.02101,"873,S72.461A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.461B ",.01)
 ;;S72.461B
 ;;9002226.02101,"873,S72.461B ",.02)
 ;;S72.461B
 ;;9002226.02101,"873,S72.461B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.461C ",.01)
 ;;S72.461C
 ;;9002226.02101,"873,S72.461C ",.02)
 ;;S72.461C
 ;;9002226.02101,"873,S72.461C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.462A ",.01)
 ;;S72.462A
 ;;9002226.02101,"873,S72.462A ",.02)
 ;;S72.462A
 ;;9002226.02101,"873,S72.462A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.462B ",.01)
 ;;S72.462B
 ;;9002226.02101,"873,S72.462B ",.02)
 ;;S72.462B
 ;;9002226.02101,"873,S72.462B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.462C ",.01)
 ;;S72.462C
 ;;9002226.02101,"873,S72.462C ",.02)
 ;;S72.462C
 ;;9002226.02101,"873,S72.462C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.463A ",.01)
 ;;S72.463A
 ;;9002226.02101,"873,S72.463A ",.02)
 ;;S72.463A
 ;;9002226.02101,"873,S72.463A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.463B ",.01)
 ;;S72.463B
 ;;9002226.02101,"873,S72.463B ",.02)
 ;;S72.463B
 ;;9002226.02101,"873,S72.463B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.463C ",.01)
 ;;S72.463C
 ;;9002226.02101,"873,S72.463C ",.02)
 ;;S72.463C
 ;;9002226.02101,"873,S72.463C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.464A ",.01)
 ;;S72.464A
 ;;9002226.02101,"873,S72.464A ",.02)
 ;;S72.464A
 ;;9002226.02101,"873,S72.464A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.464B ",.01)
 ;;S72.464B
 ;;9002226.02101,"873,S72.464B ",.02)
 ;;S72.464B
 ;;9002226.02101,"873,S72.464B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.464C ",.01)
 ;;S72.464C
 ;;9002226.02101,"873,S72.464C ",.02)
 ;;S72.464C
 ;;9002226.02101,"873,S72.464C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.465A ",.01)
 ;;S72.465A
 ;;9002226.02101,"873,S72.465A ",.02)
 ;;S72.465A
 ;;9002226.02101,"873,S72.465A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.465B ",.01)
 ;;S72.465B
 ;;9002226.02101,"873,S72.465B ",.02)
 ;;S72.465B
 ;;9002226.02101,"873,S72.465B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.465C ",.01)
 ;;S72.465C
 ;;9002226.02101,"873,S72.465C ",.02)
 ;;S72.465C
 ;;9002226.02101,"873,S72.465C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.466A ",.01)
 ;;S72.466A
 ;;9002226.02101,"873,S72.466A ",.02)
 ;;S72.466A
 ;;9002226.02101,"873,S72.466A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.466B ",.01)
 ;;S72.466B
 ;;9002226.02101,"873,S72.466B ",.02)
 ;;S72.466B
 ;;9002226.02101,"873,S72.466B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.466C ",.01)
 ;;S72.466C
 ;;9002226.02101,"873,S72.466C ",.02)
 ;;S72.466C
 ;;9002226.02101,"873,S72.466C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.471A ",.01)
 ;;S72.471A
 ;;9002226.02101,"873,S72.471A ",.02)
 ;;S72.471A
 ;;9002226.02101,"873,S72.471A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.472A ",.01)
 ;;S72.472A
 ;;9002226.02101,"873,S72.472A ",.02)
 ;;S72.472A
 ;;9002226.02101,"873,S72.472A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.479A ",.01)
 ;;S72.479A
 ;;9002226.02101,"873,S72.479A ",.02)
 ;;S72.479A
 ;;9002226.02101,"873,S72.479A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.491A ",.01)
 ;;S72.491A
 ;;9002226.02101,"873,S72.491A ",.02)
 ;;S72.491A
 ;;9002226.02101,"873,S72.491A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.491B ",.01)
 ;;S72.491B
 ;;9002226.02101,"873,S72.491B ",.02)
 ;;S72.491B
 ;;9002226.02101,"873,S72.491B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.491C ",.01)
 ;;S72.491C
 ;;9002226.02101,"873,S72.491C ",.02)
 ;;S72.491C
 ;;9002226.02101,"873,S72.491C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.492A ",.01)
 ;;S72.492A
 ;;9002226.02101,"873,S72.492A ",.02)
 ;;S72.492A
 ;;9002226.02101,"873,S72.492A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.492B ",.01)
 ;;S72.492B
 ;;9002226.02101,"873,S72.492B ",.02)
 ;;S72.492B
 ;;9002226.02101,"873,S72.492B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.492C ",.01)
 ;;S72.492C
 ;;9002226.02101,"873,S72.492C ",.02)
 ;;S72.492C
 ;;9002226.02101,"873,S72.492C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.499A ",.01)
 ;;S72.499A
 ;;9002226.02101,"873,S72.499A ",.02)
 ;;S72.499A
 ;;9002226.02101,"873,S72.499A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.499B ",.01)
 ;;S72.499B
 ;;9002226.02101,"873,S72.499B ",.02)
 ;;S72.499B
 ;;9002226.02101,"873,S72.499B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.499C ",.01)
 ;;S72.499C
 ;;9002226.02101,"873,S72.499C ",.02)
 ;;S72.499C
 ;;9002226.02101,"873,S72.499C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.8X1A ",.01)
 ;;S72.8X1A
 ;;9002226.02101,"873,S72.8X1A ",.02)
 ;;S72.8X1A
 ;;9002226.02101,"873,S72.8X1A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.8X1B ",.01)
 ;;S72.8X1B
 ;;9002226.02101,"873,S72.8X1B ",.02)
 ;;S72.8X1B
 ;;9002226.02101,"873,S72.8X1B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.8X1C ",.01)
 ;;S72.8X1C
 ;;9002226.02101,"873,S72.8X1C ",.02)
 ;;S72.8X1C
 ;;9002226.02101,"873,S72.8X1C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.8X2A ",.01)
 ;;S72.8X2A
 ;;9002226.02101,"873,S72.8X2A ",.02)
 ;;S72.8X2A
 ;;9002226.02101,"873,S72.8X2A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.8X2B ",.01)
 ;;S72.8X2B
 ;;9002226.02101,"873,S72.8X2B ",.02)
 ;;S72.8X2B
 ;;9002226.02101,"873,S72.8X2B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.8X2C ",.01)
 ;;S72.8X2C
 ;;9002226.02101,"873,S72.8X2C ",.02)
 ;;S72.8X2C
 ;;9002226.02101,"873,S72.8X2C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.8X9A ",.01)
 ;;S72.8X9A
 ;;9002226.02101,"873,S72.8X9A ",.02)
 ;;S72.8X9A
 ;;9002226.02101,"873,S72.8X9A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.8X9B ",.01)
 ;;S72.8X9B
 ;;9002226.02101,"873,S72.8X9B ",.02)
 ;;S72.8X9B
 ;;9002226.02101,"873,S72.8X9B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.8X9C ",.01)
 ;;S72.8X9C
 ;;9002226.02101,"873,S72.8X9C ",.02)
 ;;S72.8X9C
 ;;9002226.02101,"873,S72.8X9C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.90XA ",.01)
 ;;S72.90XA
 ;;9002226.02101,"873,S72.90XA ",.02)
 ;;S72.90XA
 ;;9002226.02101,"873,S72.90XA ",.03)
 ;;30
 ;;9002226.02101,"873,S72.90XB ",.01)
 ;;S72.90XB
 ;;9002226.02101,"873,S72.90XB ",.02)
 ;;S72.90XB
 ;;9002226.02101,"873,S72.90XB ",.03)
 ;;30
 ;;9002226.02101,"873,S72.90XC ",.01)
 ;;S72.90XC
 ;;9002226.02101,"873,S72.90XC ",.02)
 ;;S72.90XC
 ;;9002226.02101,"873,S72.90XC ",.03)
 ;;30
 ;;9002226.02101,"873,S72.91XA ",.01)
 ;;S72.91XA
 ;;9002226.02101,"873,S72.91XA ",.02)
 ;;S72.91XA
 ;;9002226.02101,"873,S72.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,S72.91XB ",.01)
 ;;S72.91XB
 ;;9002226.02101,"873,S72.91XB ",.02)
 ;;S72.91XB
 ;;9002226.02101,"873,S72.91XB ",.03)
 ;;30
 ;;9002226.02101,"873,S72.91XC ",.01)
 ;;S72.91XC
 ;;9002226.02101,"873,S72.91XC ",.02)
 ;;S72.91XC
 ;;9002226.02101,"873,S72.91XC ",.03)
 ;;30
 ;;9002226.02101,"873,S72.92XA ",.01)
 ;;S72.92XA
 ;;9002226.02101,"873,S72.92XA ",.02)
 ;;S72.92XA
 ;;9002226.02101,"873,S72.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,S72.92XB ",.01)
 ;;S72.92XB
 ;;9002226.02101,"873,S72.92XB ",.02)
 ;;S72.92XB
 ;;9002226.02101,"873,S72.92XB ",.03)
 ;;30
 ;;9002226.02101,"873,S72.92XC ",.01)
 ;;S72.92XC
 ;;9002226.02101,"873,S72.92XC ",.02)
 ;;S72.92XC
 ;;9002226.02101,"873,S72.92XC ",.03)
 ;;30
 ;;9002226.02101,"873,S73.001A ",.01)
 ;;S73.001A
 ;;9002226.02101,"873,S73.001A ",.02)
 ;;S73.001A
 ;;9002226.02101,"873,S73.001A ",.03)
 ;;30