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

ATXXA112.m

Go to the documentation of this file.
ATXXA112 ;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.231A ",.02)
 ;;S82.231A
 ;;9002226.02101,"873,S82.231A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.231B ",.01)
 ;;S82.231B
 ;;9002226.02101,"873,S82.231B ",.02)
 ;;S82.231B
 ;;9002226.02101,"873,S82.231B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.231C ",.01)
 ;;S82.231C
 ;;9002226.02101,"873,S82.231C ",.02)
 ;;S82.231C
 ;;9002226.02101,"873,S82.231C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.232A ",.01)
 ;;S82.232A
 ;;9002226.02101,"873,S82.232A ",.02)
 ;;S82.232A
 ;;9002226.02101,"873,S82.232A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.232B ",.01)
 ;;S82.232B
 ;;9002226.02101,"873,S82.232B ",.02)
 ;;S82.232B
 ;;9002226.02101,"873,S82.232B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.232C ",.01)
 ;;S82.232C
 ;;9002226.02101,"873,S82.232C ",.02)
 ;;S82.232C
 ;;9002226.02101,"873,S82.232C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.233A ",.01)
 ;;S82.233A
 ;;9002226.02101,"873,S82.233A ",.02)
 ;;S82.233A
 ;;9002226.02101,"873,S82.233A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.233B ",.01)
 ;;S82.233B
 ;;9002226.02101,"873,S82.233B ",.02)
 ;;S82.233B
 ;;9002226.02101,"873,S82.233B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.233C ",.01)
 ;;S82.233C
 ;;9002226.02101,"873,S82.233C ",.02)
 ;;S82.233C
 ;;9002226.02101,"873,S82.233C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.234A ",.01)
 ;;S82.234A
 ;;9002226.02101,"873,S82.234A ",.02)
 ;;S82.234A
 ;;9002226.02101,"873,S82.234A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.234B ",.01)
 ;;S82.234B
 ;;9002226.02101,"873,S82.234B ",.02)
 ;;S82.234B
 ;;9002226.02101,"873,S82.234B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.234C ",.01)
 ;;S82.234C
 ;;9002226.02101,"873,S82.234C ",.02)
 ;;S82.234C
 ;;9002226.02101,"873,S82.234C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.235A ",.01)
 ;;S82.235A
 ;;9002226.02101,"873,S82.235A ",.02)
 ;;S82.235A
 ;;9002226.02101,"873,S82.235A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.235B ",.01)
 ;;S82.235B
 ;;9002226.02101,"873,S82.235B ",.02)
 ;;S82.235B
 ;;9002226.02101,"873,S82.235B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.235C ",.01)
 ;;S82.235C
 ;;9002226.02101,"873,S82.235C ",.02)
 ;;S82.235C
 ;;9002226.02101,"873,S82.235C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.236A ",.01)
 ;;S82.236A
 ;;9002226.02101,"873,S82.236A ",.02)
 ;;S82.236A
 ;;9002226.02101,"873,S82.236A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.236B ",.01)
 ;;S82.236B
 ;;9002226.02101,"873,S82.236B ",.02)
 ;;S82.236B
 ;;9002226.02101,"873,S82.236B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.236C ",.01)
 ;;S82.236C
 ;;9002226.02101,"873,S82.236C ",.02)
 ;;S82.236C
 ;;9002226.02101,"873,S82.236C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.241A ",.01)
 ;;S82.241A
 ;;9002226.02101,"873,S82.241A ",.02)
 ;;S82.241A
 ;;9002226.02101,"873,S82.241A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.241B ",.01)
 ;;S82.241B
 ;;9002226.02101,"873,S82.241B ",.02)
 ;;S82.241B
 ;;9002226.02101,"873,S82.241B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.241C ",.01)
 ;;S82.241C
 ;;9002226.02101,"873,S82.241C ",.02)
 ;;S82.241C
 ;;9002226.02101,"873,S82.241C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.242A ",.01)
 ;;S82.242A
 ;;9002226.02101,"873,S82.242A ",.02)
 ;;S82.242A
 ;;9002226.02101,"873,S82.242A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.242B ",.01)
 ;;S82.242B
 ;;9002226.02101,"873,S82.242B ",.02)
 ;;S82.242B
 ;;9002226.02101,"873,S82.242B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.242C ",.01)
 ;;S82.242C
 ;;9002226.02101,"873,S82.242C ",.02)
 ;;S82.242C
 ;;9002226.02101,"873,S82.242C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.243A ",.01)
 ;;S82.243A
 ;;9002226.02101,"873,S82.243A ",.02)
 ;;S82.243A
 ;;9002226.02101,"873,S82.243A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.243B ",.01)
 ;;S82.243B
 ;;9002226.02101,"873,S82.243B ",.02)
 ;;S82.243B
 ;;9002226.02101,"873,S82.243B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.243C ",.01)
 ;;S82.243C
 ;;9002226.02101,"873,S82.243C ",.02)
 ;;S82.243C
 ;;9002226.02101,"873,S82.243C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.244A ",.01)
 ;;S82.244A
 ;;9002226.02101,"873,S82.244A ",.02)
 ;;S82.244A
 ;;9002226.02101,"873,S82.244A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.244B ",.01)
 ;;S82.244B
 ;;9002226.02101,"873,S82.244B ",.02)
 ;;S82.244B
 ;;9002226.02101,"873,S82.244B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.244C ",.01)
 ;;S82.244C
 ;;9002226.02101,"873,S82.244C ",.02)
 ;;S82.244C
 ;;9002226.02101,"873,S82.244C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.245A ",.01)
 ;;S82.245A
 ;;9002226.02101,"873,S82.245A ",.02)
 ;;S82.245A
 ;;9002226.02101,"873,S82.245A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.245B ",.01)
 ;;S82.245B
 ;;9002226.02101,"873,S82.245B ",.02)
 ;;S82.245B
 ;;9002226.02101,"873,S82.245B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.245C ",.01)
 ;;S82.245C
 ;;9002226.02101,"873,S82.245C ",.02)
 ;;S82.245C
 ;;9002226.02101,"873,S82.245C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.246A ",.01)
 ;;S82.246A
 ;;9002226.02101,"873,S82.246A ",.02)
 ;;S82.246A
 ;;9002226.02101,"873,S82.246A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.246B ",.01)
 ;;S82.246B
 ;;9002226.02101,"873,S82.246B ",.02)
 ;;S82.246B
 ;;9002226.02101,"873,S82.246B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.246C ",.01)
 ;;S82.246C
 ;;9002226.02101,"873,S82.246C ",.02)
 ;;S82.246C
 ;;9002226.02101,"873,S82.246C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.251A ",.01)
 ;;S82.251A
 ;;9002226.02101,"873,S82.251A ",.02)
 ;;S82.251A
 ;;9002226.02101,"873,S82.251A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.251B ",.01)
 ;;S82.251B
 ;;9002226.02101,"873,S82.251B ",.02)
 ;;S82.251B
 ;;9002226.02101,"873,S82.251B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.251C ",.01)
 ;;S82.251C
 ;;9002226.02101,"873,S82.251C ",.02)
 ;;S82.251C
 ;;9002226.02101,"873,S82.251C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.252A ",.01)
 ;;S82.252A
 ;;9002226.02101,"873,S82.252A ",.02)
 ;;S82.252A
 ;;9002226.02101,"873,S82.252A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.252B ",.01)
 ;;S82.252B
 ;;9002226.02101,"873,S82.252B ",.02)
 ;;S82.252B
 ;;9002226.02101,"873,S82.252B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.252C ",.01)
 ;;S82.252C
 ;;9002226.02101,"873,S82.252C ",.02)
 ;;S82.252C
 ;;9002226.02101,"873,S82.252C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.253A ",.01)
 ;;S82.253A
 ;;9002226.02101,"873,S82.253A ",.02)
 ;;S82.253A
 ;;9002226.02101,"873,S82.253A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.253B ",.01)
 ;;S82.253B
 ;;9002226.02101,"873,S82.253B ",.02)
 ;;S82.253B
 ;;9002226.02101,"873,S82.253B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.253C ",.01)
 ;;S82.253C
 ;;9002226.02101,"873,S82.253C ",.02)
 ;;S82.253C
 ;;9002226.02101,"873,S82.253C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.254A ",.01)
 ;;S82.254A
 ;;9002226.02101,"873,S82.254A ",.02)
 ;;S82.254A
 ;;9002226.02101,"873,S82.254A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.254B ",.01)
 ;;S82.254B
 ;;9002226.02101,"873,S82.254B ",.02)
 ;;S82.254B
 ;;9002226.02101,"873,S82.254B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.254C ",.01)
 ;;S82.254C
 ;;9002226.02101,"873,S82.254C ",.02)
 ;;S82.254C
 ;;9002226.02101,"873,S82.254C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.255A ",.01)
 ;;S82.255A
 ;;9002226.02101,"873,S82.255A ",.02)
 ;;S82.255A
 ;;9002226.02101,"873,S82.255A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.255B ",.01)
 ;;S82.255B
 ;;9002226.02101,"873,S82.255B ",.02)
 ;;S82.255B
 ;;9002226.02101,"873,S82.255B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.255C ",.01)
 ;;S82.255C
 ;;9002226.02101,"873,S82.255C ",.02)
 ;;S82.255C
 ;;9002226.02101,"873,S82.255C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.256A ",.01)
 ;;S82.256A
 ;;9002226.02101,"873,S82.256A ",.02)
 ;;S82.256A
 ;;9002226.02101,"873,S82.256A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.256B ",.01)
 ;;S82.256B
 ;;9002226.02101,"873,S82.256B ",.02)
 ;;S82.256B
 ;;9002226.02101,"873,S82.256B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.256C ",.01)
 ;;S82.256C
 ;;9002226.02101,"873,S82.256C ",.02)
 ;;S82.256C
 ;;9002226.02101,"873,S82.256C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.261A ",.01)
 ;;S82.261A
 ;;9002226.02101,"873,S82.261A ",.02)
 ;;S82.261A
 ;;9002226.02101,"873,S82.261A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.261B ",.01)
 ;;S82.261B
 ;;9002226.02101,"873,S82.261B ",.02)
 ;;S82.261B
 ;;9002226.02101,"873,S82.261B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.261C ",.01)
 ;;S82.261C
 ;;9002226.02101,"873,S82.261C ",.02)
 ;;S82.261C
 ;;9002226.02101,"873,S82.261C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.262A ",.01)
 ;;S82.262A
 ;;9002226.02101,"873,S82.262A ",.02)
 ;;S82.262A
 ;;9002226.02101,"873,S82.262A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.262B ",.01)
 ;;S82.262B
 ;;9002226.02101,"873,S82.262B ",.02)
 ;;S82.262B
 ;;9002226.02101,"873,S82.262B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.262C ",.01)
 ;;S82.262C
 ;;9002226.02101,"873,S82.262C ",.02)
 ;;S82.262C
 ;;9002226.02101,"873,S82.262C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.263A ",.01)
 ;;S82.263A
 ;;9002226.02101,"873,S82.263A ",.02)
 ;;S82.263A
 ;;9002226.02101,"873,S82.263A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.263B ",.01)
 ;;S82.263B
 ;;9002226.02101,"873,S82.263B ",.02)
 ;;S82.263B
 ;;9002226.02101,"873,S82.263B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.263C ",.01)
 ;;S82.263C
 ;;9002226.02101,"873,S82.263C ",.02)
 ;;S82.263C
 ;;9002226.02101,"873,S82.263C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.264A ",.01)
 ;;S82.264A
 ;;9002226.02101,"873,S82.264A ",.02)
 ;;S82.264A
 ;;9002226.02101,"873,S82.264A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.264B ",.01)
 ;;S82.264B
 ;;9002226.02101,"873,S82.264B ",.02)
 ;;S82.264B
 ;;9002226.02101,"873,S82.264B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.264C ",.01)
 ;;S82.264C
 ;;9002226.02101,"873,S82.264C ",.02)
 ;;S82.264C
 ;;9002226.02101,"873,S82.264C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.265A ",.01)
 ;;S82.265A
 ;;9002226.02101,"873,S82.265A ",.02)
 ;;S82.265A
 ;;9002226.02101,"873,S82.265A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.265B ",.01)
 ;;S82.265B
 ;;9002226.02101,"873,S82.265B ",.02)
 ;;S82.265B
 ;;9002226.02101,"873,S82.265B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.265C ",.01)
 ;;S82.265C
 ;;9002226.02101,"873,S82.265C ",.02)
 ;;S82.265C
 ;;9002226.02101,"873,S82.265C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.266A ",.01)
 ;;S82.266A
 ;;9002226.02101,"873,S82.266A ",.02)
 ;;S82.266A
 ;;9002226.02101,"873,S82.266A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.266B ",.01)
 ;;S82.266B
 ;;9002226.02101,"873,S82.266B ",.02)
 ;;S82.266B
 ;;9002226.02101,"873,S82.266B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.266C ",.01)
 ;;S82.266C
 ;;9002226.02101,"873,S82.266C ",.02)
 ;;S82.266C
 ;;9002226.02101,"873,S82.266C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.291A ",.01)
 ;;S82.291A
 ;;9002226.02101,"873,S82.291A ",.02)
 ;;S82.291A
 ;;9002226.02101,"873,S82.291A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.291B ",.01)
 ;;S82.291B
 ;;9002226.02101,"873,S82.291B ",.02)
 ;;S82.291B
 ;;9002226.02101,"873,S82.291B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.291C ",.01)
 ;;S82.291C
 ;;9002226.02101,"873,S82.291C ",.02)
 ;;S82.291C
 ;;9002226.02101,"873,S82.291C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.292A ",.01)
 ;;S82.292A
 ;;9002226.02101,"873,S82.292A ",.02)
 ;;S82.292A
 ;;9002226.02101,"873,S82.292A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.292B ",.01)
 ;;S82.292B
 ;;9002226.02101,"873,S82.292B ",.02)
 ;;S82.292B
 ;;9002226.02101,"873,S82.292B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.292C ",.01)
 ;;S82.292C
 ;;9002226.02101,"873,S82.292C ",.02)
 ;;S82.292C
 ;;9002226.02101,"873,S82.292C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.299A ",.01)
 ;;S82.299A
 ;;9002226.02101,"873,S82.299A ",.02)
 ;;S82.299A