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

ATXD2F9.m

Go to the documentation of this file.
  1. ATXD2F9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2015;
  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,"374,S52.226A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.226B ",.01)
  1. ;;S52.226B
  1. ;;9002226.02101,"374,S52.226B ",.02)
  1. ;;S52.226B
  1. ;;9002226.02101,"374,S52.226B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.226C ",.01)
  1. ;;S52.226C
  1. ;;9002226.02101,"374,S52.226C ",.02)
  1. ;;S52.226C
  1. ;;9002226.02101,"374,S52.226C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.231A ",.01)
  1. ;;S52.231A
  1. ;;9002226.02101,"374,S52.231A ",.02)
  1. ;;S52.231A
  1. ;;9002226.02101,"374,S52.231A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.231B ",.01)
  1. ;;S52.231B
  1. ;;9002226.02101,"374,S52.231B ",.02)
  1. ;;S52.231B
  1. ;;9002226.02101,"374,S52.231B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.231C ",.01)
  1. ;;S52.231C
  1. ;;9002226.02101,"374,S52.231C ",.02)
  1. ;;S52.231C
  1. ;;9002226.02101,"374,S52.231C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.232A ",.01)
  1. ;;S52.232A
  1. ;;9002226.02101,"374,S52.232A ",.02)
  1. ;;S52.232A
  1. ;;9002226.02101,"374,S52.232A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.232B ",.01)
  1. ;;S52.232B
  1. ;;9002226.02101,"374,S52.232B ",.02)
  1. ;;S52.232B
  1. ;;9002226.02101,"374,S52.232B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.232C ",.01)
  1. ;;S52.232C
  1. ;;9002226.02101,"374,S52.232C ",.02)
  1. ;;S52.232C
  1. ;;9002226.02101,"374,S52.232C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.233A ",.01)
  1. ;;S52.233A
  1. ;;9002226.02101,"374,S52.233A ",.02)
  1. ;;S52.233A
  1. ;;9002226.02101,"374,S52.233A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.233B ",.01)
  1. ;;S52.233B
  1. ;;9002226.02101,"374,S52.233B ",.02)
  1. ;;S52.233B
  1. ;;9002226.02101,"374,S52.233B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.233C ",.01)
  1. ;;S52.233C
  1. ;;9002226.02101,"374,S52.233C ",.02)
  1. ;;S52.233C
  1. ;;9002226.02101,"374,S52.233C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.234A ",.01)
  1. ;;S52.234A
  1. ;;9002226.02101,"374,S52.234A ",.02)
  1. ;;S52.234A
  1. ;;9002226.02101,"374,S52.234A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.234B ",.01)
  1. ;;S52.234B
  1. ;;9002226.02101,"374,S52.234B ",.02)
  1. ;;S52.234B
  1. ;;9002226.02101,"374,S52.234B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.234C ",.01)
  1. ;;S52.234C
  1. ;;9002226.02101,"374,S52.234C ",.02)
  1. ;;S52.234C
  1. ;;9002226.02101,"374,S52.234C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.235A ",.01)
  1. ;;S52.235A
  1. ;;9002226.02101,"374,S52.235A ",.02)
  1. ;;S52.235A
  1. ;;9002226.02101,"374,S52.235A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.235B ",.01)
  1. ;;S52.235B
  1. ;;9002226.02101,"374,S52.235B ",.02)
  1. ;;S52.235B
  1. ;;9002226.02101,"374,S52.235B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.235C ",.01)
  1. ;;S52.235C
  1. ;;9002226.02101,"374,S52.235C ",.02)
  1. ;;S52.235C
  1. ;;9002226.02101,"374,S52.235C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.236A ",.01)
  1. ;;S52.236A
  1. ;;9002226.02101,"374,S52.236A ",.02)
  1. ;;S52.236A
  1. ;;9002226.02101,"374,S52.236A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.236B ",.01)
  1. ;;S52.236B
  1. ;;9002226.02101,"374,S52.236B ",.02)
  1. ;;S52.236B
  1. ;;9002226.02101,"374,S52.236B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.236C ",.01)
  1. ;;S52.236C
  1. ;;9002226.02101,"374,S52.236C ",.02)
  1. ;;S52.236C
  1. ;;9002226.02101,"374,S52.236C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.251A ",.01)
  1. ;;S52.251A
  1. ;;9002226.02101,"374,S52.251A ",.02)
  1. ;;S52.251A
  1. ;;9002226.02101,"374,S52.251A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.251B ",.01)
  1. ;;S52.251B
  1. ;;9002226.02101,"374,S52.251B ",.02)
  1. ;;S52.251B
  1. ;;9002226.02101,"374,S52.251B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.251C ",.01)
  1. ;;S52.251C
  1. ;;9002226.02101,"374,S52.251C ",.02)
  1. ;;S52.251C
  1. ;;9002226.02101,"374,S52.251C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.252A ",.01)
  1. ;;S52.252A
  1. ;;9002226.02101,"374,S52.252A ",.02)
  1. ;;S52.252A
  1. ;;9002226.02101,"374,S52.252A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.252B ",.01)
  1. ;;S52.252B
  1. ;;9002226.02101,"374,S52.252B ",.02)
  1. ;;S52.252B
  1. ;;9002226.02101,"374,S52.252B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.252C ",.01)
  1. ;;S52.252C
  1. ;;9002226.02101,"374,S52.252C ",.02)
  1. ;;S52.252C
  1. ;;9002226.02101,"374,S52.252C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.253A ",.01)
  1. ;;S52.253A
  1. ;;9002226.02101,"374,S52.253A ",.02)
  1. ;;S52.253A
  1. ;;9002226.02101,"374,S52.253A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.253B ",.01)
  1. ;;S52.253B
  1. ;;9002226.02101,"374,S52.253B ",.02)
  1. ;;S52.253B
  1. ;;9002226.02101,"374,S52.253B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.253C ",.01)
  1. ;;S52.253C
  1. ;;9002226.02101,"374,S52.253C ",.02)
  1. ;;S52.253C
  1. ;;9002226.02101,"374,S52.253C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.254A ",.01)
  1. ;;S52.254A
  1. ;;9002226.02101,"374,S52.254A ",.02)
  1. ;;S52.254A
  1. ;;9002226.02101,"374,S52.254A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.254B ",.01)
  1. ;;S52.254B
  1. ;;9002226.02101,"374,S52.254B ",.02)
  1. ;;S52.254B
  1. ;;9002226.02101,"374,S52.254B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.254C ",.01)
  1. ;;S52.254C
  1. ;;9002226.02101,"374,S52.254C ",.02)
  1. ;;S52.254C
  1. ;;9002226.02101,"374,S52.254C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.255A ",.01)
  1. ;;S52.255A
  1. ;;9002226.02101,"374,S52.255A ",.02)
  1. ;;S52.255A
  1. ;;9002226.02101,"374,S52.255A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.255B ",.01)
  1. ;;S52.255B
  1. ;;9002226.02101,"374,S52.255B ",.02)
  1. ;;S52.255B
  1. ;;9002226.02101,"374,S52.255B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.255C ",.01)
  1. ;;S52.255C
  1. ;;9002226.02101,"374,S52.255C ",.02)
  1. ;;S52.255C
  1. ;;9002226.02101,"374,S52.255C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.256A ",.01)
  1. ;;S52.256A
  1. ;;9002226.02101,"374,S52.256A ",.02)
  1. ;;S52.256A
  1. ;;9002226.02101,"374,S52.256A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.256B ",.01)
  1. ;;S52.256B
  1. ;;9002226.02101,"374,S52.256B ",.02)
  1. ;;S52.256B
  1. ;;9002226.02101,"374,S52.256B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.256C ",.01)
  1. ;;S52.256C
  1. ;;9002226.02101,"374,S52.256C ",.02)
  1. ;;S52.256C
  1. ;;9002226.02101,"374,S52.256C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.261A ",.01)
  1. ;;S52.261A
  1. ;;9002226.02101,"374,S52.261A ",.02)
  1. ;;S52.261A
  1. ;;9002226.02101,"374,S52.261A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.261B ",.01)
  1. ;;S52.261B
  1. ;;9002226.02101,"374,S52.261B ",.02)
  1. ;;S52.261B
  1. ;;9002226.02101,"374,S52.261B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.261C ",.01)
  1. ;;S52.261C
  1. ;;9002226.02101,"374,S52.261C ",.02)
  1. ;;S52.261C
  1. ;;9002226.02101,"374,S52.261C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.262A ",.01)
  1. ;;S52.262A
  1. ;;9002226.02101,"374,S52.262A ",.02)
  1. ;;S52.262A
  1. ;;9002226.02101,"374,S52.262A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.262B ",.01)
  1. ;;S52.262B
  1. ;;9002226.02101,"374,S52.262B ",.02)
  1. ;;S52.262B
  1. ;;9002226.02101,"374,S52.262B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.262C ",.01)
  1. ;;S52.262C
  1. ;;9002226.02101,"374,S52.262C ",.02)
  1. ;;S52.262C
  1. ;;9002226.02101,"374,S52.262C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.263A ",.01)
  1. ;;S52.263A
  1. ;;9002226.02101,"374,S52.263A ",.02)
  1. ;;S52.263A
  1. ;;9002226.02101,"374,S52.263A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.263B ",.01)
  1. ;;S52.263B
  1. ;;9002226.02101,"374,S52.263B ",.02)
  1. ;;S52.263B
  1. ;;9002226.02101,"374,S52.263B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.263C ",.01)
  1. ;;S52.263C
  1. ;;9002226.02101,"374,S52.263C ",.02)
  1. ;;S52.263C
  1. ;;9002226.02101,"374,S52.263C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.264A ",.01)
  1. ;;S52.264A
  1. ;;9002226.02101,"374,S52.264A ",.02)
  1. ;;S52.264A
  1. ;;9002226.02101,"374,S52.264A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.264B ",.01)
  1. ;;S52.264B
  1. ;;9002226.02101,"374,S52.264B ",.02)
  1. ;;S52.264B
  1. ;;9002226.02101,"374,S52.264B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.264C ",.01)
  1. ;;S52.264C
  1. ;;9002226.02101,"374,S52.264C ",.02)
  1. ;;S52.264C
  1. ;;9002226.02101,"374,S52.264C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.265A ",.01)
  1. ;;S52.265A
  1. ;;9002226.02101,"374,S52.265A ",.02)
  1. ;;S52.265A
  1. ;;9002226.02101,"374,S52.265A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.265B ",.01)
  1. ;;S52.265B
  1. ;;9002226.02101,"374,S52.265B ",.02)
  1. ;;S52.265B
  1. ;;9002226.02101,"374,S52.265B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.265C ",.01)
  1. ;;S52.265C
  1. ;;9002226.02101,"374,S52.265C ",.02)
  1. ;;S52.265C
  1. ;;9002226.02101,"374,S52.265C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.266A ",.01)
  1. ;;S52.266A
  1. ;;9002226.02101,"374,S52.266A ",.02)
  1. ;;S52.266A
  1. ;;9002226.02101,"374,S52.266A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.266B ",.01)
  1. ;;S52.266B
  1. ;;9002226.02101,"374,S52.266B ",.02)
  1. ;;S52.266B
  1. ;;9002226.02101,"374,S52.266B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.266C ",.01)
  1. ;;S52.266C
  1. ;;9002226.02101,"374,S52.266C ",.02)
  1. ;;S52.266C
  1. ;;9002226.02101,"374,S52.266C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.271A ",.01)
  1. ;;S52.271A
  1. ;;9002226.02101,"374,S52.271A ",.02)
  1. ;;S52.271A
  1. ;;9002226.02101,"374,S52.271A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.271B ",.01)
  1. ;;S52.271B
  1. ;;9002226.02101,"374,S52.271B ",.02)
  1. ;;S52.271B
  1. ;;9002226.02101,"374,S52.271B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.271C ",.01)
  1. ;;S52.271C
  1. ;;9002226.02101,"374,S52.271C ",.02)
  1. ;;S52.271C
  1. ;;9002226.02101,"374,S52.271C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.272A ",.01)
  1. ;;S52.272A
  1. ;;9002226.02101,"374,S52.272A ",.02)
  1. ;;S52.272A
  1. ;;9002226.02101,"374,S52.272A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.272B ",.01)
  1. ;;S52.272B
  1. ;;9002226.02101,"374,S52.272B ",.02)
  1. ;;S52.272B
  1. ;;9002226.02101,"374,S52.272B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.272C ",.01)
  1. ;;S52.272C
  1. ;;9002226.02101,"374,S52.272C ",.02)
  1. ;;S52.272C
  1. ;;9002226.02101,"374,S52.272C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.279A ",.01)
  1. ;;S52.279A
  1. ;;9002226.02101,"374,S52.279A ",.02)
  1. ;;S52.279A
  1. ;;9002226.02101,"374,S52.279A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.279B ",.01)
  1. ;;S52.279B
  1. ;;9002226.02101,"374,S52.279B ",.02)
  1. ;;S52.279B
  1. ;;9002226.02101,"374,S52.279B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.279C ",.01)
  1. ;;S52.279C
  1. ;;9002226.02101,"374,S52.279C ",.02)
  1. ;;S52.279C
  1. ;;9002226.02101,"374,S52.279C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.291A ",.01)
  1. ;;S52.291A
  1. ;;9002226.02101,"374,S52.291A ",.02)
  1. ;;S52.291A
  1. ;;9002226.02101,"374,S52.291A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.291B ",.01)
  1. ;;S52.291B
  1. ;;9002226.02101,"374,S52.291B ",.02)
  1. ;;S52.291B
  1. ;;9002226.02101,"374,S52.291B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.291C ",.01)
  1. ;;S52.291C
  1. ;;9002226.02101,"374,S52.291C ",.02)
  1. ;;S52.291C
  1. ;;9002226.02101,"374,S52.291C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.292A ",.01)
  1. ;;S52.292A
  1. ;;9002226.02101,"374,S52.292A ",.02)
  1. ;;S52.292A
  1. ;;9002226.02101,"374,S52.292A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.292B ",.01)
  1. ;;S52.292B
  1. ;;9002226.02101,"374,S52.292B ",.02)
  1. ;;S52.292B
  1. ;;9002226.02101,"374,S52.292B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.292C ",.01)
  1. ;;S52.292C
  1. ;;9002226.02101,"374,S52.292C ",.02)
  1. ;;S52.292C
  1. ;;9002226.02101,"374,S52.292C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.299A ",.01)
  1. ;;S52.299A
  1. ;;9002226.02101,"374,S52.299A ",.02)
  1. ;;S52.299A
  1. ;;9002226.02101,"374,S52.299A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.299B ",.01)
  1. ;;S52.299B
  1. ;;9002226.02101,"374,S52.299B ",.02)
  1. ;;S52.299B
  1. ;;9002226.02101,"374,S52.299B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.299C ",.01)
  1. ;;S52.299C
  1. ;;9002226.02101,"374,S52.299C ",.02)
  1. ;;S52.299C
  1. ;;9002226.02101,"374,S52.299C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.301A ",.01)
  1. ;;S52.301A
  1. ;;9002226.02101,"374,S52.301A ",.02)
  1. ;;S52.301A
  1. ;;9002226.02101,"374,S52.301A ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.301B ",.01)
  1. ;;S52.301B
  1. ;;9002226.02101,"374,S52.301B ",.02)
  1. ;;S52.301B
  1. ;;9002226.02101,"374,S52.301B ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.301C ",.01)
  1. ;;S52.301C
  1. ;;9002226.02101,"374,S52.301C ",.02)
  1. ;;S52.301C
  1. ;;9002226.02101,"374,S52.301C ",.03)
  1. ;;30
  1. ;;9002226.02101,"374,S52.302A ",.01)
  1. ;;S52.302A
  1. ;;9002226.02101,"374,S52.302A ",.02)
  1. ;;S52.302A
  1. ;;9002226.02101,"374,S52.302A ",.03)
  1. ;;30