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

ATXXA115.m

Go to the documentation of this file.
ATXXA115 ;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,S82.63XB ",.02)
 ;;S82.63XB
 ;;9002226.02101,"873,S82.63XB ",.03)
 ;;30
 ;;9002226.02101,"873,S82.63XC ",.01)
 ;;S82.63XC
 ;;9002226.02101,"873,S82.63XC ",.02)
 ;;S82.63XC
 ;;9002226.02101,"873,S82.63XC ",.03)
 ;;30
 ;;9002226.02101,"873,S82.64XA ",.01)
 ;;S82.64XA
 ;;9002226.02101,"873,S82.64XA ",.02)
 ;;S82.64XA
 ;;9002226.02101,"873,S82.64XA ",.03)
 ;;30
 ;;9002226.02101,"873,S82.64XB ",.01)
 ;;S82.64XB
 ;;9002226.02101,"873,S82.64XB ",.02)
 ;;S82.64XB
 ;;9002226.02101,"873,S82.64XB ",.03)
 ;;30
 ;;9002226.02101,"873,S82.64XC ",.01)
 ;;S82.64XC
 ;;9002226.02101,"873,S82.64XC ",.02)
 ;;S82.64XC
 ;;9002226.02101,"873,S82.64XC ",.03)
 ;;30
 ;;9002226.02101,"873,S82.65XA ",.01)
 ;;S82.65XA
 ;;9002226.02101,"873,S82.65XA ",.02)
 ;;S82.65XA
 ;;9002226.02101,"873,S82.65XA ",.03)
 ;;30
 ;;9002226.02101,"873,S82.65XB ",.01)
 ;;S82.65XB
 ;;9002226.02101,"873,S82.65XB ",.02)
 ;;S82.65XB
 ;;9002226.02101,"873,S82.65XB ",.03)
 ;;30
 ;;9002226.02101,"873,S82.65XC ",.01)
 ;;S82.65XC
 ;;9002226.02101,"873,S82.65XC ",.02)
 ;;S82.65XC
 ;;9002226.02101,"873,S82.65XC ",.03)
 ;;30
 ;;9002226.02101,"873,S82.66XA ",.01)
 ;;S82.66XA
 ;;9002226.02101,"873,S82.66XA ",.02)
 ;;S82.66XA
 ;;9002226.02101,"873,S82.66XA ",.03)
 ;;30
 ;;9002226.02101,"873,S82.66XB ",.01)
 ;;S82.66XB
 ;;9002226.02101,"873,S82.66XB ",.02)
 ;;S82.66XB
 ;;9002226.02101,"873,S82.66XB ",.03)
 ;;30
 ;;9002226.02101,"873,S82.66XC ",.01)
 ;;S82.66XC
 ;;9002226.02101,"873,S82.66XC ",.02)
 ;;S82.66XC
 ;;9002226.02101,"873,S82.66XC ",.03)
 ;;30
 ;;9002226.02101,"873,S82.811A ",.01)
 ;;S82.811A
 ;;9002226.02101,"873,S82.811A ",.02)
 ;;S82.811A
 ;;9002226.02101,"873,S82.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.812A ",.01)
 ;;S82.812A
 ;;9002226.02101,"873,S82.812A ",.02)
 ;;S82.812A
 ;;9002226.02101,"873,S82.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.819A ",.01)
 ;;S82.819A
 ;;9002226.02101,"873,S82.819A ",.02)
 ;;S82.819A
 ;;9002226.02101,"873,S82.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.821A ",.01)
 ;;S82.821A
 ;;9002226.02101,"873,S82.821A ",.02)
 ;;S82.821A
 ;;9002226.02101,"873,S82.821A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.822A ",.01)
 ;;S82.822A
 ;;9002226.02101,"873,S82.822A ",.02)
 ;;S82.822A
 ;;9002226.02101,"873,S82.822A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.829A ",.01)
 ;;S82.829A
 ;;9002226.02101,"873,S82.829A ",.02)
 ;;S82.829A
 ;;9002226.02101,"873,S82.829A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.831A ",.01)
 ;;S82.831A
 ;;9002226.02101,"873,S82.831A ",.02)
 ;;S82.831A
 ;;9002226.02101,"873,S82.831A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.831B ",.01)
 ;;S82.831B
 ;;9002226.02101,"873,S82.831B ",.02)
 ;;S82.831B
 ;;9002226.02101,"873,S82.831B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.831C ",.01)
 ;;S82.831C
 ;;9002226.02101,"873,S82.831C ",.02)
 ;;S82.831C
 ;;9002226.02101,"873,S82.831C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.832A ",.01)
 ;;S82.832A
 ;;9002226.02101,"873,S82.832A ",.02)
 ;;S82.832A
 ;;9002226.02101,"873,S82.832A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.832B ",.01)
 ;;S82.832B
 ;;9002226.02101,"873,S82.832B ",.02)
 ;;S82.832B
 ;;9002226.02101,"873,S82.832B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.832C ",.01)
 ;;S82.832C
 ;;9002226.02101,"873,S82.832C ",.02)
 ;;S82.832C
 ;;9002226.02101,"873,S82.832C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.839A ",.01)
 ;;S82.839A
 ;;9002226.02101,"873,S82.839A ",.02)
 ;;S82.839A
 ;;9002226.02101,"873,S82.839A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.839B ",.01)
 ;;S82.839B
 ;;9002226.02101,"873,S82.839B ",.02)
 ;;S82.839B
 ;;9002226.02101,"873,S82.839B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.839C ",.01)
 ;;S82.839C
 ;;9002226.02101,"873,S82.839C ",.02)
 ;;S82.839C
 ;;9002226.02101,"873,S82.839C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.841A ",.01)
 ;;S82.841A
 ;;9002226.02101,"873,S82.841A ",.02)
 ;;S82.841A
 ;;9002226.02101,"873,S82.841A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.841B ",.01)
 ;;S82.841B
 ;;9002226.02101,"873,S82.841B ",.02)
 ;;S82.841B
 ;;9002226.02101,"873,S82.841B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.841C ",.01)
 ;;S82.841C
 ;;9002226.02101,"873,S82.841C ",.02)
 ;;S82.841C
 ;;9002226.02101,"873,S82.841C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.842A ",.01)
 ;;S82.842A
 ;;9002226.02101,"873,S82.842A ",.02)
 ;;S82.842A
 ;;9002226.02101,"873,S82.842A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.842B ",.01)
 ;;S82.842B
 ;;9002226.02101,"873,S82.842B ",.02)
 ;;S82.842B
 ;;9002226.02101,"873,S82.842B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.842C ",.01)
 ;;S82.842C
 ;;9002226.02101,"873,S82.842C ",.02)
 ;;S82.842C
 ;;9002226.02101,"873,S82.842C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.843A ",.01)
 ;;S82.843A
 ;;9002226.02101,"873,S82.843A ",.02)
 ;;S82.843A
 ;;9002226.02101,"873,S82.843A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.843B ",.01)
 ;;S82.843B
 ;;9002226.02101,"873,S82.843B ",.02)
 ;;S82.843B
 ;;9002226.02101,"873,S82.843B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.843C ",.01)
 ;;S82.843C
 ;;9002226.02101,"873,S82.843C ",.02)
 ;;S82.843C
 ;;9002226.02101,"873,S82.843C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.844A ",.01)
 ;;S82.844A
 ;;9002226.02101,"873,S82.844A ",.02)
 ;;S82.844A
 ;;9002226.02101,"873,S82.844A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.844B ",.01)
 ;;S82.844B
 ;;9002226.02101,"873,S82.844B ",.02)
 ;;S82.844B
 ;;9002226.02101,"873,S82.844B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.844C ",.01)
 ;;S82.844C
 ;;9002226.02101,"873,S82.844C ",.02)
 ;;S82.844C
 ;;9002226.02101,"873,S82.844C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.845A ",.01)
 ;;S82.845A
 ;;9002226.02101,"873,S82.845A ",.02)
 ;;S82.845A
 ;;9002226.02101,"873,S82.845A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.845B ",.01)
 ;;S82.845B
 ;;9002226.02101,"873,S82.845B ",.02)
 ;;S82.845B
 ;;9002226.02101,"873,S82.845B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.845C ",.01)
 ;;S82.845C
 ;;9002226.02101,"873,S82.845C ",.02)
 ;;S82.845C
 ;;9002226.02101,"873,S82.845C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.846A ",.01)
 ;;S82.846A
 ;;9002226.02101,"873,S82.846A ",.02)
 ;;S82.846A
 ;;9002226.02101,"873,S82.846A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.846B ",.01)
 ;;S82.846B
 ;;9002226.02101,"873,S82.846B ",.02)
 ;;S82.846B
 ;;9002226.02101,"873,S82.846B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.846C ",.01)
 ;;S82.846C
 ;;9002226.02101,"873,S82.846C ",.02)
 ;;S82.846C
 ;;9002226.02101,"873,S82.846C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.851A ",.01)
 ;;S82.851A
 ;;9002226.02101,"873,S82.851A ",.02)
 ;;S82.851A
 ;;9002226.02101,"873,S82.851A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.851B ",.01)
 ;;S82.851B
 ;;9002226.02101,"873,S82.851B ",.02)
 ;;S82.851B
 ;;9002226.02101,"873,S82.851B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.851C ",.01)
 ;;S82.851C
 ;;9002226.02101,"873,S82.851C ",.02)
 ;;S82.851C
 ;;9002226.02101,"873,S82.851C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.852A ",.01)
 ;;S82.852A
 ;;9002226.02101,"873,S82.852A ",.02)
 ;;S82.852A
 ;;9002226.02101,"873,S82.852A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.852B ",.01)
 ;;S82.852B
 ;;9002226.02101,"873,S82.852B ",.02)
 ;;S82.852B
 ;;9002226.02101,"873,S82.852B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.852C ",.01)
 ;;S82.852C
 ;;9002226.02101,"873,S82.852C ",.02)
 ;;S82.852C
 ;;9002226.02101,"873,S82.852C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.853A ",.01)
 ;;S82.853A
 ;;9002226.02101,"873,S82.853A ",.02)
 ;;S82.853A
 ;;9002226.02101,"873,S82.853A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.853B ",.01)
 ;;S82.853B
 ;;9002226.02101,"873,S82.853B ",.02)
 ;;S82.853B
 ;;9002226.02101,"873,S82.853B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.853C ",.01)
 ;;S82.853C
 ;;9002226.02101,"873,S82.853C ",.02)
 ;;S82.853C
 ;;9002226.02101,"873,S82.853C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.854A ",.01)
 ;;S82.854A
 ;;9002226.02101,"873,S82.854A ",.02)
 ;;S82.854A
 ;;9002226.02101,"873,S82.854A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.854B ",.01)
 ;;S82.854B
 ;;9002226.02101,"873,S82.854B ",.02)
 ;;S82.854B
 ;;9002226.02101,"873,S82.854B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.854C ",.01)
 ;;S82.854C
 ;;9002226.02101,"873,S82.854C ",.02)
 ;;S82.854C
 ;;9002226.02101,"873,S82.854C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.855A ",.01)
 ;;S82.855A
 ;;9002226.02101,"873,S82.855A ",.02)
 ;;S82.855A
 ;;9002226.02101,"873,S82.855A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.855B ",.01)
 ;;S82.855B
 ;;9002226.02101,"873,S82.855B ",.02)
 ;;S82.855B
 ;;9002226.02101,"873,S82.855B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.855C ",.01)
 ;;S82.855C
 ;;9002226.02101,"873,S82.855C ",.02)
 ;;S82.855C
 ;;9002226.02101,"873,S82.855C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.856A ",.01)
 ;;S82.856A
 ;;9002226.02101,"873,S82.856A ",.02)
 ;;S82.856A
 ;;9002226.02101,"873,S82.856A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.856B ",.01)
 ;;S82.856B
 ;;9002226.02101,"873,S82.856B ",.02)
 ;;S82.856B
 ;;9002226.02101,"873,S82.856B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.856C ",.01)
 ;;S82.856C
 ;;9002226.02101,"873,S82.856C ",.02)
 ;;S82.856C
 ;;9002226.02101,"873,S82.856C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.861A ",.01)
 ;;S82.861A
 ;;9002226.02101,"873,S82.861A ",.02)
 ;;S82.861A
 ;;9002226.02101,"873,S82.861A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.861B ",.01)
 ;;S82.861B
 ;;9002226.02101,"873,S82.861B ",.02)
 ;;S82.861B
 ;;9002226.02101,"873,S82.861B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.861C ",.01)
 ;;S82.861C
 ;;9002226.02101,"873,S82.861C ",.02)
 ;;S82.861C
 ;;9002226.02101,"873,S82.861C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.862A ",.01)
 ;;S82.862A
 ;;9002226.02101,"873,S82.862A ",.02)
 ;;S82.862A
 ;;9002226.02101,"873,S82.862A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.862B ",.01)
 ;;S82.862B
 ;;9002226.02101,"873,S82.862B ",.02)
 ;;S82.862B
 ;;9002226.02101,"873,S82.862B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.862C ",.01)
 ;;S82.862C
 ;;9002226.02101,"873,S82.862C ",.02)
 ;;S82.862C
 ;;9002226.02101,"873,S82.862C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.863A ",.01)
 ;;S82.863A
 ;;9002226.02101,"873,S82.863A ",.02)
 ;;S82.863A
 ;;9002226.02101,"873,S82.863A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.863B ",.01)
 ;;S82.863B
 ;;9002226.02101,"873,S82.863B ",.02)
 ;;S82.863B
 ;;9002226.02101,"873,S82.863B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.863C ",.01)
 ;;S82.863C
 ;;9002226.02101,"873,S82.863C ",.02)
 ;;S82.863C
 ;;9002226.02101,"873,S82.863C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.864A ",.01)
 ;;S82.864A
 ;;9002226.02101,"873,S82.864A ",.02)
 ;;S82.864A
 ;;9002226.02101,"873,S82.864A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.864B ",.01)
 ;;S82.864B
 ;;9002226.02101,"873,S82.864B ",.02)
 ;;S82.864B
 ;;9002226.02101,"873,S82.864B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.864C ",.01)
 ;;S82.864C
 ;;9002226.02101,"873,S82.864C ",.02)
 ;;S82.864C
 ;;9002226.02101,"873,S82.864C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.865A ",.01)
 ;;S82.865A
 ;;9002226.02101,"873,S82.865A ",.02)
 ;;S82.865A
 ;;9002226.02101,"873,S82.865A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.865B ",.01)
 ;;S82.865B
 ;;9002226.02101,"873,S82.865B ",.02)
 ;;S82.865B
 ;;9002226.02101,"873,S82.865B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.865C ",.01)
 ;;S82.865C
 ;;9002226.02101,"873,S82.865C ",.02)
 ;;S82.865C
 ;;9002226.02101,"873,S82.865C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.866A ",.01)
 ;;S82.866A
 ;;9002226.02101,"873,S82.866A ",.02)
 ;;S82.866A
 ;;9002226.02101,"873,S82.866A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.866B ",.01)
 ;;S82.866B
 ;;9002226.02101,"873,S82.866B ",.02)
 ;;S82.866B