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

ATXXA116.m

Go to the documentation of this file.
  1. ATXXA116 ;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.866B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.866C ",.01)
  1. ;;S82.866C
  1. ;;9002226.02101,"873,S82.866C ",.02)
  1. ;;S82.866C
  1. ;;9002226.02101,"873,S82.866C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.871A ",.01)
  1. ;;S82.871A
  1. ;;9002226.02101,"873,S82.871A ",.02)
  1. ;;S82.871A
  1. ;;9002226.02101,"873,S82.871A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.871B ",.01)
  1. ;;S82.871B
  1. ;;9002226.02101,"873,S82.871B ",.02)
  1. ;;S82.871B
  1. ;;9002226.02101,"873,S82.871B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.871C ",.01)
  1. ;;S82.871C
  1. ;;9002226.02101,"873,S82.871C ",.02)
  1. ;;S82.871C
  1. ;;9002226.02101,"873,S82.871C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.872A ",.01)
  1. ;;S82.872A
  1. ;;9002226.02101,"873,S82.872A ",.02)
  1. ;;S82.872A
  1. ;;9002226.02101,"873,S82.872A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.872B ",.01)
  1. ;;S82.872B
  1. ;;9002226.02101,"873,S82.872B ",.02)
  1. ;;S82.872B
  1. ;;9002226.02101,"873,S82.872B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.872C ",.01)
  1. ;;S82.872C
  1. ;;9002226.02101,"873,S82.872C ",.02)
  1. ;;S82.872C
  1. ;;9002226.02101,"873,S82.872C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.873A ",.01)
  1. ;;S82.873A
  1. ;;9002226.02101,"873,S82.873A ",.02)
  1. ;;S82.873A
  1. ;;9002226.02101,"873,S82.873A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.873B ",.01)
  1. ;;S82.873B
  1. ;;9002226.02101,"873,S82.873B ",.02)
  1. ;;S82.873B
  1. ;;9002226.02101,"873,S82.873B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.873C ",.01)
  1. ;;S82.873C
  1. ;;9002226.02101,"873,S82.873C ",.02)
  1. ;;S82.873C
  1. ;;9002226.02101,"873,S82.873C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.874A ",.01)
  1. ;;S82.874A
  1. ;;9002226.02101,"873,S82.874A ",.02)
  1. ;;S82.874A
  1. ;;9002226.02101,"873,S82.874A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.874B ",.01)
  1. ;;S82.874B
  1. ;;9002226.02101,"873,S82.874B ",.02)
  1. ;;S82.874B
  1. ;;9002226.02101,"873,S82.874B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.874C ",.01)
  1. ;;S82.874C
  1. ;;9002226.02101,"873,S82.874C ",.02)
  1. ;;S82.874C
  1. ;;9002226.02101,"873,S82.874C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.875A ",.01)
  1. ;;S82.875A
  1. ;;9002226.02101,"873,S82.875A ",.02)
  1. ;;S82.875A
  1. ;;9002226.02101,"873,S82.875A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.875B ",.01)
  1. ;;S82.875B
  1. ;;9002226.02101,"873,S82.875B ",.02)
  1. ;;S82.875B
  1. ;;9002226.02101,"873,S82.875B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.875C ",.01)
  1. ;;S82.875C
  1. ;;9002226.02101,"873,S82.875C ",.02)
  1. ;;S82.875C
  1. ;;9002226.02101,"873,S82.875C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.876A ",.01)
  1. ;;S82.876A
  1. ;;9002226.02101,"873,S82.876A ",.02)
  1. ;;S82.876A
  1. ;;9002226.02101,"873,S82.876A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.876B ",.01)
  1. ;;S82.876B
  1. ;;9002226.02101,"873,S82.876B ",.02)
  1. ;;S82.876B
  1. ;;9002226.02101,"873,S82.876B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.876C ",.01)
  1. ;;S82.876C
  1. ;;9002226.02101,"873,S82.876C ",.02)
  1. ;;S82.876C
  1. ;;9002226.02101,"873,S82.876C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.891A ",.01)
  1. ;;S82.891A
  1. ;;9002226.02101,"873,S82.891A ",.02)
  1. ;;S82.891A
  1. ;;9002226.02101,"873,S82.891A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.891B ",.01)
  1. ;;S82.891B
  1. ;;9002226.02101,"873,S82.891B ",.02)
  1. ;;S82.891B
  1. ;;9002226.02101,"873,S82.891B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.891C ",.01)
  1. ;;S82.891C
  1. ;;9002226.02101,"873,S82.891C ",.02)
  1. ;;S82.891C
  1. ;;9002226.02101,"873,S82.891C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.892A ",.01)
  1. ;;S82.892A
  1. ;;9002226.02101,"873,S82.892A ",.02)
  1. ;;S82.892A
  1. ;;9002226.02101,"873,S82.892A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.892B ",.01)
  1. ;;S82.892B
  1. ;;9002226.02101,"873,S82.892B ",.02)
  1. ;;S82.892B
  1. ;;9002226.02101,"873,S82.892B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.892C ",.01)
  1. ;;S82.892C
  1. ;;9002226.02101,"873,S82.892C ",.02)
  1. ;;S82.892C
  1. ;;9002226.02101,"873,S82.892C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.899A ",.01)
  1. ;;S82.899A
  1. ;;9002226.02101,"873,S82.899A ",.02)
  1. ;;S82.899A
  1. ;;9002226.02101,"873,S82.899A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.899B ",.01)
  1. ;;S82.899B
  1. ;;9002226.02101,"873,S82.899B ",.02)
  1. ;;S82.899B
  1. ;;9002226.02101,"873,S82.899B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.899C ",.01)
  1. ;;S82.899C
  1. ;;9002226.02101,"873,S82.899C ",.02)
  1. ;;S82.899C
  1. ;;9002226.02101,"873,S82.899C ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.90XA ",.01)
  1. ;;S82.90XA
  1. ;;9002226.02101,"873,S82.90XA ",.02)
  1. ;;S82.90XA
  1. ;;9002226.02101,"873,S82.90XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.90XB ",.01)
  1. ;;S82.90XB
  1. ;;9002226.02101,"873,S82.90XB ",.02)
  1. ;;S82.90XB
  1. ;;9002226.02101,"873,S82.90XB ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.90XC ",.01)
  1. ;;S82.90XC
  1. ;;9002226.02101,"873,S82.90XC ",.02)
  1. ;;S82.90XC
  1. ;;9002226.02101,"873,S82.90XC ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.91XA ",.01)
  1. ;;S82.91XA
  1. ;;9002226.02101,"873,S82.91XA ",.02)
  1. ;;S82.91XA
  1. ;;9002226.02101,"873,S82.91XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.91XB ",.01)
  1. ;;S82.91XB
  1. ;;9002226.02101,"873,S82.91XB ",.02)
  1. ;;S82.91XB
  1. ;;9002226.02101,"873,S82.91XB ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.91XC ",.01)
  1. ;;S82.91XC
  1. ;;9002226.02101,"873,S82.91XC ",.02)
  1. ;;S82.91XC
  1. ;;9002226.02101,"873,S82.91XC ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.92XA ",.01)
  1. ;;S82.92XA
  1. ;;9002226.02101,"873,S82.92XA ",.02)
  1. ;;S82.92XA
  1. ;;9002226.02101,"873,S82.92XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.92XB ",.01)
  1. ;;S82.92XB
  1. ;;9002226.02101,"873,S82.92XB ",.02)
  1. ;;S82.92XB
  1. ;;9002226.02101,"873,S82.92XB ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S82.92XC ",.01)
  1. ;;S82.92XC
  1. ;;9002226.02101,"873,S82.92XC ",.02)
  1. ;;S82.92XC
  1. ;;9002226.02101,"873,S82.92XC ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.001A ",.01)
  1. ;;S83.001A
  1. ;;9002226.02101,"873,S83.001A ",.02)
  1. ;;S83.001A
  1. ;;9002226.02101,"873,S83.001A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.002A ",.01)
  1. ;;S83.002A
  1. ;;9002226.02101,"873,S83.002A ",.02)
  1. ;;S83.002A
  1. ;;9002226.02101,"873,S83.002A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.003A ",.01)
  1. ;;S83.003A
  1. ;;9002226.02101,"873,S83.003A ",.02)
  1. ;;S83.003A
  1. ;;9002226.02101,"873,S83.003A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.004A ",.01)
  1. ;;S83.004A
  1. ;;9002226.02101,"873,S83.004A ",.02)
  1. ;;S83.004A
  1. ;;9002226.02101,"873,S83.004A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.005A ",.01)
  1. ;;S83.005A
  1. ;;9002226.02101,"873,S83.005A ",.02)
  1. ;;S83.005A
  1. ;;9002226.02101,"873,S83.005A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.006A ",.01)
  1. ;;S83.006A
  1. ;;9002226.02101,"873,S83.006A ",.02)
  1. ;;S83.006A
  1. ;;9002226.02101,"873,S83.006A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.011A ",.01)
  1. ;;S83.011A
  1. ;;9002226.02101,"873,S83.011A ",.02)
  1. ;;S83.011A
  1. ;;9002226.02101,"873,S83.011A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.012A ",.01)
  1. ;;S83.012A
  1. ;;9002226.02101,"873,S83.012A ",.02)
  1. ;;S83.012A
  1. ;;9002226.02101,"873,S83.012A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.013A ",.01)
  1. ;;S83.013A
  1. ;;9002226.02101,"873,S83.013A ",.02)
  1. ;;S83.013A
  1. ;;9002226.02101,"873,S83.013A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.014A ",.01)
  1. ;;S83.014A
  1. ;;9002226.02101,"873,S83.014A ",.02)
  1. ;;S83.014A
  1. ;;9002226.02101,"873,S83.014A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.015A ",.01)
  1. ;;S83.015A
  1. ;;9002226.02101,"873,S83.015A ",.02)
  1. ;;S83.015A
  1. ;;9002226.02101,"873,S83.015A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.016A ",.01)
  1. ;;S83.016A
  1. ;;9002226.02101,"873,S83.016A ",.02)
  1. ;;S83.016A
  1. ;;9002226.02101,"873,S83.016A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.091A ",.01)
  1. ;;S83.091A
  1. ;;9002226.02101,"873,S83.091A ",.02)
  1. ;;S83.091A
  1. ;;9002226.02101,"873,S83.091A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.092A ",.01)
  1. ;;S83.092A
  1. ;;9002226.02101,"873,S83.092A ",.02)
  1. ;;S83.092A
  1. ;;9002226.02101,"873,S83.092A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.093A ",.01)
  1. ;;S83.093A
  1. ;;9002226.02101,"873,S83.093A ",.02)
  1. ;;S83.093A
  1. ;;9002226.02101,"873,S83.093A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.094A ",.01)
  1. ;;S83.094A
  1. ;;9002226.02101,"873,S83.094A ",.02)
  1. ;;S83.094A
  1. ;;9002226.02101,"873,S83.094A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.095A ",.01)
  1. ;;S83.095A
  1. ;;9002226.02101,"873,S83.095A ",.02)
  1. ;;S83.095A
  1. ;;9002226.02101,"873,S83.095A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.096A ",.01)
  1. ;;S83.096A
  1. ;;9002226.02101,"873,S83.096A ",.02)
  1. ;;S83.096A
  1. ;;9002226.02101,"873,S83.096A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.101A ",.01)
  1. ;;S83.101A
  1. ;;9002226.02101,"873,S83.101A ",.02)
  1. ;;S83.101A
  1. ;;9002226.02101,"873,S83.101A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.102A ",.01)
  1. ;;S83.102A
  1. ;;9002226.02101,"873,S83.102A ",.02)
  1. ;;S83.102A
  1. ;;9002226.02101,"873,S83.102A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.103A ",.01)
  1. ;;S83.103A
  1. ;;9002226.02101,"873,S83.103A ",.02)
  1. ;;S83.103A
  1. ;;9002226.02101,"873,S83.103A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.104A ",.01)
  1. ;;S83.104A
  1. ;;9002226.02101,"873,S83.104A ",.02)
  1. ;;S83.104A
  1. ;;9002226.02101,"873,S83.104A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.105A ",.01)
  1. ;;S83.105A
  1. ;;9002226.02101,"873,S83.105A ",.02)
  1. ;;S83.105A
  1. ;;9002226.02101,"873,S83.105A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.106A ",.01)
  1. ;;S83.106A
  1. ;;9002226.02101,"873,S83.106A ",.02)
  1. ;;S83.106A
  1. ;;9002226.02101,"873,S83.106A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.111A ",.01)
  1. ;;S83.111A
  1. ;;9002226.02101,"873,S83.111A ",.02)
  1. ;;S83.111A
  1. ;;9002226.02101,"873,S83.111A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.112A ",.01)
  1. ;;S83.112A
  1. ;;9002226.02101,"873,S83.112A ",.02)
  1. ;;S83.112A
  1. ;;9002226.02101,"873,S83.112A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.113A ",.01)
  1. ;;S83.113A
  1. ;;9002226.02101,"873,S83.113A ",.02)
  1. ;;S83.113A
  1. ;;9002226.02101,"873,S83.113A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.114A ",.01)
  1. ;;S83.114A
  1. ;;9002226.02101,"873,S83.114A ",.02)
  1. ;;S83.114A
  1. ;;9002226.02101,"873,S83.114A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.115A ",.01)
  1. ;;S83.115A
  1. ;;9002226.02101,"873,S83.115A ",.02)
  1. ;;S83.115A
  1. ;;9002226.02101,"873,S83.115A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.116A ",.01)
  1. ;;S83.116A
  1. ;;9002226.02101,"873,S83.116A ",.02)
  1. ;;S83.116A
  1. ;;9002226.02101,"873,S83.116A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.121A ",.01)
  1. ;;S83.121A
  1. ;;9002226.02101,"873,S83.121A ",.02)
  1. ;;S83.121A
  1. ;;9002226.02101,"873,S83.121A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.122A ",.01)
  1. ;;S83.122A
  1. ;;9002226.02101,"873,S83.122A ",.02)
  1. ;;S83.122A
  1. ;;9002226.02101,"873,S83.122A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.123A ",.01)
  1. ;;S83.123A
  1. ;;9002226.02101,"873,S83.123A ",.02)
  1. ;;S83.123A
  1. ;;9002226.02101,"873,S83.123A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.124A ",.01)
  1. ;;S83.124A
  1. ;;9002226.02101,"873,S83.124A ",.02)
  1. ;;S83.124A
  1. ;;9002226.02101,"873,S83.124A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.125A ",.01)
  1. ;;S83.125A
  1. ;;9002226.02101,"873,S83.125A ",.02)
  1. ;;S83.125A
  1. ;;9002226.02101,"873,S83.125A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.126A ",.01)
  1. ;;S83.126A
  1. ;;9002226.02101,"873,S83.126A ",.02)
  1. ;;S83.126A
  1. ;;9002226.02101,"873,S83.126A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.131A ",.01)
  1. ;;S83.131A
  1. ;;9002226.02101,"873,S83.131A ",.02)
  1. ;;S83.131A
  1. ;;9002226.02101,"873,S83.131A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.132A ",.01)
  1. ;;S83.132A
  1. ;;9002226.02101,"873,S83.132A ",.02)
  1. ;;S83.132A
  1. ;;9002226.02101,"873,S83.132A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.133A ",.01)
  1. ;;S83.133A
  1. ;;9002226.02101,"873,S83.133A ",.02)
  1. ;;S83.133A
  1. ;;9002226.02101,"873,S83.133A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.134A ",.01)
  1. ;;S83.134A
  1. ;;9002226.02101,"873,S83.134A ",.02)
  1. ;;S83.134A
  1. ;;9002226.02101,"873,S83.134A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.135A ",.01)
  1. ;;S83.135A
  1. ;;9002226.02101,"873,S83.135A ",.02)
  1. ;;S83.135A
  1. ;;9002226.02101,"873,S83.135A ",.03)
  1. ;;30