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.
  1. ATXXA112 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"873,S82.231A ",.02)
  1. ;;S82.231A
  1. ;;9002226.02101,"873,S82.231A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.231B ",.01)
  1. ;;S82.231B
  1. ;;9002226.02101,"873,S82.231B ",.02)
  1. ;;S82.231B
  1. ;;9002226.02101,"873,S82.231B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.231C ",.01)
  1. ;;S82.231C
  1. ;;9002226.02101,"873,S82.231C ",.02)
  1. ;;S82.231C
  1. ;;9002226.02101,"873,S82.231C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.232A ",.01)
  1. ;;S82.232A
  1. ;;9002226.02101,"873,S82.232A ",.02)
  1. ;;S82.232A
  1. ;;9002226.02101,"873,S82.232A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.232B ",.01)
  1. ;;S82.232B
  1. ;;9002226.02101,"873,S82.232B ",.02)
  1. ;;S82.232B
  1. ;;9002226.02101,"873,S82.232B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.232C ",.01)
  1. ;;S82.232C
  1. ;;9002226.02101,"873,S82.232C ",.02)
  1. ;;S82.232C
  1. ;;9002226.02101,"873,S82.232C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.233A ",.01)
  1. ;;S82.233A
  1. ;;9002226.02101,"873,S82.233A ",.02)
  1. ;;S82.233A
  1. ;;9002226.02101,"873,S82.233A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.233B ",.01)
  1. ;;S82.233B
  1. ;;9002226.02101,"873,S82.233B ",.02)
  1. ;;S82.233B
  1. ;;9002226.02101,"873,S82.233B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.233C ",.01)
  1. ;;S82.233C
  1. ;;9002226.02101,"873,S82.233C ",.02)
  1. ;;S82.233C
  1. ;;9002226.02101,"873,S82.233C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.234A ",.01)
  1. ;;S82.234A
  1. ;;9002226.02101,"873,S82.234A ",.02)
  1. ;;S82.234A
  1. ;;9002226.02101,"873,S82.234A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.234B ",.01)
  1. ;;S82.234B
  1. ;;9002226.02101,"873,S82.234B ",.02)
  1. ;;S82.234B
  1. ;;9002226.02101,"873,S82.234B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.234C ",.01)
  1. ;;S82.234C
  1. ;;9002226.02101,"873,S82.234C ",.02)
  1. ;;S82.234C
  1. ;;9002226.02101,"873,S82.234C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.235A ",.01)
  1. ;;S82.235A
  1. ;;9002226.02101,"873,S82.235A ",.02)
  1. ;;S82.235A
  1. ;;9002226.02101,"873,S82.235A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.235B ",.01)
  1. ;;S82.235B
  1. ;;9002226.02101,"873,S82.235B ",.02)
  1. ;;S82.235B
  1. ;;9002226.02101,"873,S82.235B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.235C ",.01)
  1. ;;S82.235C
  1. ;;9002226.02101,"873,S82.235C ",.02)
  1. ;;S82.235C
  1. ;;9002226.02101,"873,S82.235C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.236A ",.01)
  1. ;;S82.236A
  1. ;;9002226.02101,"873,S82.236A ",.02)
  1. ;;S82.236A
  1. ;;9002226.02101,"873,S82.236A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.236B ",.01)
  1. ;;S82.236B
  1. ;;9002226.02101,"873,S82.236B ",.02)
  1. ;;S82.236B
  1. ;;9002226.02101,"873,S82.236B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.236C ",.01)
  1. ;;S82.236C
  1. ;;9002226.02101,"873,S82.236C ",.02)
  1. ;;S82.236C
  1. ;;9002226.02101,"873,S82.236C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.241A ",.01)
  1. ;;S82.241A
  1. ;;9002226.02101,"873,S82.241A ",.02)
  1. ;;S82.241A
  1. ;;9002226.02101,"873,S82.241A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.241B ",.01)
  1. ;;S82.241B
  1. ;;9002226.02101,"873,S82.241B ",.02)
  1. ;;S82.241B
  1. ;;9002226.02101,"873,S82.241B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.241C ",.01)
  1. ;;S82.241C
  1. ;;9002226.02101,"873,S82.241C ",.02)
  1. ;;S82.241C
  1. ;;9002226.02101,"873,S82.241C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.242A ",.01)
  1. ;;S82.242A
  1. ;;9002226.02101,"873,S82.242A ",.02)
  1. ;;S82.242A
  1. ;;9002226.02101,"873,S82.242A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.242B ",.01)
  1. ;;S82.242B
  1. ;;9002226.02101,"873,S82.242B ",.02)
  1. ;;S82.242B
  1. ;;9002226.02101,"873,S82.242B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.242C ",.01)
  1. ;;S82.242C
  1. ;;9002226.02101,"873,S82.242C ",.02)
  1. ;;S82.242C
  1. ;;9002226.02101,"873,S82.242C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.243A ",.01)
  1. ;;S82.243A
  1. ;;9002226.02101,"873,S82.243A ",.02)
  1. ;;S82.243A
  1. ;;9002226.02101,"873,S82.243A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.243B ",.01)
  1. ;;S82.243B
  1. ;;9002226.02101,"873,S82.243B ",.02)
  1. ;;S82.243B
  1. ;;9002226.02101,"873,S82.243B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.243C ",.01)
  1. ;;S82.243C
  1. ;;9002226.02101,"873,S82.243C ",.02)
  1. ;;S82.243C
  1. ;;9002226.02101,"873,S82.243C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.244A ",.01)
  1. ;;S82.244A
  1. ;;9002226.02101,"873,S82.244A ",.02)
  1. ;;S82.244A
  1. ;;9002226.02101,"873,S82.244A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.244B ",.01)
  1. ;;S82.244B
  1. ;;9002226.02101,"873,S82.244B ",.02)
  1. ;;S82.244B
  1. ;;9002226.02101,"873,S82.244B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.244C ",.01)
  1. ;;S82.244C
  1. ;;9002226.02101,"873,S82.244C ",.02)
  1. ;;S82.244C
  1. ;;9002226.02101,"873,S82.244C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.245A ",.01)
  1. ;;S82.245A
  1. ;;9002226.02101,"873,S82.245A ",.02)
  1. ;;S82.245A
  1. ;;9002226.02101,"873,S82.245A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.245B ",.01)
  1. ;;S82.245B
  1. ;;9002226.02101,"873,S82.245B ",.02)
  1. ;;S82.245B
  1. ;;9002226.02101,"873,S82.245B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.245C ",.01)
  1. ;;S82.245C
  1. ;;9002226.02101,"873,S82.245C ",.02)
  1. ;;S82.245C
  1. ;;9002226.02101,"873,S82.245C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.246A ",.01)
  1. ;;S82.246A
  1. ;;9002226.02101,"873,S82.246A ",.02)
  1. ;;S82.246A
  1. ;;9002226.02101,"873,S82.246A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.246B ",.01)
  1. ;;S82.246B
  1. ;;9002226.02101,"873,S82.246B ",.02)
  1. ;;S82.246B
  1. ;;9002226.02101,"873,S82.246B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.246C ",.01)
  1. ;;S82.246C
  1. ;;9002226.02101,"873,S82.246C ",.02)
  1. ;;S82.246C
  1. ;;9002226.02101,"873,S82.246C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.251A ",.01)
  1. ;;S82.251A
  1. ;;9002226.02101,"873,S82.251A ",.02)
  1. ;;S82.251A
  1. ;;9002226.02101,"873,S82.251A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.251B ",.01)
  1. ;;S82.251B
  1. ;;9002226.02101,"873,S82.251B ",.02)
  1. ;;S82.251B
  1. ;;9002226.02101,"873,S82.251B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.251C ",.01)
  1. ;;S82.251C
  1. ;;9002226.02101,"873,S82.251C ",.02)
  1. ;;S82.251C
  1. ;;9002226.02101,"873,S82.251C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.252A ",.01)
  1. ;;S82.252A
  1. ;;9002226.02101,"873,S82.252A ",.02)
  1. ;;S82.252A
  1. ;;9002226.02101,"873,S82.252A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.252B ",.01)
  1. ;;S82.252B
  1. ;;9002226.02101,"873,S82.252B ",.02)
  1. ;;S82.252B
  1. ;;9002226.02101,"873,S82.252B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.252C ",.01)
  1. ;;S82.252C
  1. ;;9002226.02101,"873,S82.252C ",.02)
  1. ;;S82.252C
  1. ;;9002226.02101,"873,S82.252C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.253A ",.01)
  1. ;;S82.253A
  1. ;;9002226.02101,"873,S82.253A ",.02)
  1. ;;S82.253A
  1. ;;9002226.02101,"873,S82.253A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.253B ",.01)
  1. ;;S82.253B
  1. ;;9002226.02101,"873,S82.253B ",.02)
  1. ;;S82.253B
  1. ;;9002226.02101,"873,S82.253B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.253C ",.01)
  1. ;;S82.253C
  1. ;;9002226.02101,"873,S82.253C ",.02)
  1. ;;S82.253C
  1. ;;9002226.02101,"873,S82.253C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.254A ",.01)
  1. ;;S82.254A
  1. ;;9002226.02101,"873,S82.254A ",.02)
  1. ;;S82.254A
  1. ;;9002226.02101,"873,S82.254A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.254B ",.01)
  1. ;;S82.254B
  1. ;;9002226.02101,"873,S82.254B ",.02)
  1. ;;S82.254B
  1. ;;9002226.02101,"873,S82.254B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.254C ",.01)
  1. ;;S82.254C
  1. ;;9002226.02101,"873,S82.254C ",.02)
  1. ;;S82.254C
  1. ;;9002226.02101,"873,S82.254C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.255A ",.01)
  1. ;;S82.255A
  1. ;;9002226.02101,"873,S82.255A ",.02)
  1. ;;S82.255A
  1. ;;9002226.02101,"873,S82.255A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.255B ",.01)
  1. ;;S82.255B
  1. ;;9002226.02101,"873,S82.255B ",.02)
  1. ;;S82.255B
  1. ;;9002226.02101,"873,S82.255B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.255C ",.01)
  1. ;;S82.255C
  1. ;;9002226.02101,"873,S82.255C ",.02)
  1. ;;S82.255C
  1. ;;9002226.02101,"873,S82.255C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.256A ",.01)
  1. ;;S82.256A
  1. ;;9002226.02101,"873,S82.256A ",.02)
  1. ;;S82.256A
  1. ;;9002226.02101,"873,S82.256A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.256B ",.01)
  1. ;;S82.256B
  1. ;;9002226.02101,"873,S82.256B ",.02)
  1. ;;S82.256B
  1. ;;9002226.02101,"873,S82.256B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.256C ",.01)
  1. ;;S82.256C
  1. ;;9002226.02101,"873,S82.256C ",.02)
  1. ;;S82.256C
  1. ;;9002226.02101,"873,S82.256C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.261A ",.01)
  1. ;;S82.261A
  1. ;;9002226.02101,"873,S82.261A ",.02)
  1. ;;S82.261A
  1. ;;9002226.02101,"873,S82.261A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.261B ",.01)
  1. ;;S82.261B
  1. ;;9002226.02101,"873,S82.261B ",.02)
  1. ;;S82.261B
  1. ;;9002226.02101,"873,S82.261B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.261C ",.01)
  1. ;;S82.261C
  1. ;;9002226.02101,"873,S82.261C ",.02)
  1. ;;S82.261C
  1. ;;9002226.02101,"873,S82.261C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.262A ",.01)
  1. ;;S82.262A
  1. ;;9002226.02101,"873,S82.262A ",.02)
  1. ;;S82.262A
  1. ;;9002226.02101,"873,S82.262A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.262B ",.01)
  1. ;;S82.262B
  1. ;;9002226.02101,"873,S82.262B ",.02)
  1. ;;S82.262B
  1. ;;9002226.02101,"873,S82.262B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.262C ",.01)
  1. ;;S82.262C
  1. ;;9002226.02101,"873,S82.262C ",.02)
  1. ;;S82.262C
  1. ;;9002226.02101,"873,S82.262C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.263A ",.01)
  1. ;;S82.263A
  1. ;;9002226.02101,"873,S82.263A ",.02)
  1. ;;S82.263A
  1. ;;9002226.02101,"873,S82.263A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.263B ",.01)
  1. ;;S82.263B
  1. ;;9002226.02101,"873,S82.263B ",.02)
  1. ;;S82.263B
  1. ;;9002226.02101,"873,S82.263B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.263C ",.01)
  1. ;;S82.263C
  1. ;;9002226.02101,"873,S82.263C ",.02)
  1. ;;S82.263C
  1. ;;9002226.02101,"873,S82.263C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.264A ",.01)
  1. ;;S82.264A
  1. ;;9002226.02101,"873,S82.264A ",.02)
  1. ;;S82.264A
  1. ;;9002226.02101,"873,S82.264A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.264B ",.01)
  1. ;;S82.264B
  1. ;;9002226.02101,"873,S82.264B ",.02)
  1. ;;S82.264B
  1. ;;9002226.02101,"873,S82.264B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.264C ",.01)
  1. ;;S82.264C
  1. ;;9002226.02101,"873,S82.264C ",.02)
  1. ;;S82.264C
  1. ;;9002226.02101,"873,S82.264C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.265A ",.01)
  1. ;;S82.265A
  1. ;;9002226.02101,"873,S82.265A ",.02)
  1. ;;S82.265A
  1. ;;9002226.02101,"873,S82.265A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.265B ",.01)
  1. ;;S82.265B
  1. ;;9002226.02101,"873,S82.265B ",.02)
  1. ;;S82.265B
  1. ;;9002226.02101,"873,S82.265B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.265C ",.01)
  1. ;;S82.265C
  1. ;;9002226.02101,"873,S82.265C ",.02)
  1. ;;S82.265C
  1. ;;9002226.02101,"873,S82.265C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.266A ",.01)
  1. ;;S82.266A
  1. ;;9002226.02101,"873,S82.266A ",.02)
  1. ;;S82.266A
  1. ;;9002226.02101,"873,S82.266A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.266B ",.01)
  1. ;;S82.266B
  1. ;;9002226.02101,"873,S82.266B ",.02)
  1. ;;S82.266B
  1. ;;9002226.02101,"873,S82.266B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.266C ",.01)
  1. ;;S82.266C
  1. ;;9002226.02101,"873,S82.266C ",.02)
  1. ;;S82.266C
  1. ;;9002226.02101,"873,S82.266C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.291A ",.01)
  1. ;;S82.291A
  1. ;;9002226.02101,"873,S82.291A ",.02)
  1. ;;S82.291A
  1. ;;9002226.02101,"873,S82.291A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.291B ",.01)
  1. ;;S82.291B
  1. ;;9002226.02101,"873,S82.291B ",.02)
  1. ;;S82.291B
  1. ;;9002226.02101,"873,S82.291B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.291C ",.01)
  1. ;;S82.291C
  1. ;;9002226.02101,"873,S82.291C ",.02)
  1. ;;S82.291C
  1. ;;9002226.02101,"873,S82.291C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.292A ",.01)
  1. ;;S82.292A
  1. ;;9002226.02101,"873,S82.292A ",.02)
  1. ;;S82.292A
  1. ;;9002226.02101,"873,S82.292A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.292B ",.01)
  1. ;;S82.292B
  1. ;;9002226.02101,"873,S82.292B ",.02)
  1. ;;S82.292B
  1. ;;9002226.02101,"873,S82.292B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.292C ",.01)
  1. ;;S82.292C
  1. ;;9002226.02101,"873,S82.292C ",.02)
  1. ;;S82.292C
  1. ;;9002226.02101,"873,S82.292C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.299A ",.01)
  1. ;;S82.299A
  1. ;;9002226.02101,"873,S82.299A ",.02)
  1. ;;S82.299A