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

ATXXA117.m

Go to the documentation of this file.
  1. ATXXA117 ;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,S83.136A ",.01)
  1. ;;S83.136A
  1. ;;9002226.02101,"873,S83.136A ",.02)
  1. ;;S83.136A
  1. ;;9002226.02101,"873,S83.136A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.141A ",.01)
  1. ;;S83.141A
  1. ;;9002226.02101,"873,S83.141A ",.02)
  1. ;;S83.141A
  1. ;;9002226.02101,"873,S83.141A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.142A ",.01)
  1. ;;S83.142A
  1. ;;9002226.02101,"873,S83.142A ",.02)
  1. ;;S83.142A
  1. ;;9002226.02101,"873,S83.142A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.143A ",.01)
  1. ;;S83.143A
  1. ;;9002226.02101,"873,S83.143A ",.02)
  1. ;;S83.143A
  1. ;;9002226.02101,"873,S83.143A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.144A ",.01)
  1. ;;S83.144A
  1. ;;9002226.02101,"873,S83.144A ",.02)
  1. ;;S83.144A
  1. ;;9002226.02101,"873,S83.144A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.145A ",.01)
  1. ;;S83.145A
  1. ;;9002226.02101,"873,S83.145A ",.02)
  1. ;;S83.145A
  1. ;;9002226.02101,"873,S83.145A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.146A ",.01)
  1. ;;S83.146A
  1. ;;9002226.02101,"873,S83.146A ",.02)
  1. ;;S83.146A
  1. ;;9002226.02101,"873,S83.146A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.191A ",.01)
  1. ;;S83.191A
  1. ;;9002226.02101,"873,S83.191A ",.02)
  1. ;;S83.191A
  1. ;;9002226.02101,"873,S83.191A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.192A ",.01)
  1. ;;S83.192A
  1. ;;9002226.02101,"873,S83.192A ",.02)
  1. ;;S83.192A
  1. ;;9002226.02101,"873,S83.192A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.193A ",.01)
  1. ;;S83.193A
  1. ;;9002226.02101,"873,S83.193A ",.02)
  1. ;;S83.193A
  1. ;;9002226.02101,"873,S83.193A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.194A ",.01)
  1. ;;S83.194A
  1. ;;9002226.02101,"873,S83.194A ",.02)
  1. ;;S83.194A
  1. ;;9002226.02101,"873,S83.194A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.195A ",.01)
  1. ;;S83.195A
  1. ;;9002226.02101,"873,S83.195A ",.02)
  1. ;;S83.195A
  1. ;;9002226.02101,"873,S83.195A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.196A ",.01)
  1. ;;S83.196A
  1. ;;9002226.02101,"873,S83.196A ",.02)
  1. ;;S83.196A
  1. ;;9002226.02101,"873,S83.196A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.200A ",.01)
  1. ;;S83.200A
  1. ;;9002226.02101,"873,S83.200A ",.02)
  1. ;;S83.200A
  1. ;;9002226.02101,"873,S83.200A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.201A ",.01)
  1. ;;S83.201A
  1. ;;9002226.02101,"873,S83.201A ",.02)
  1. ;;S83.201A
  1. ;;9002226.02101,"873,S83.201A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.202A ",.01)
  1. ;;S83.202A
  1. ;;9002226.02101,"873,S83.202A ",.02)
  1. ;;S83.202A
  1. ;;9002226.02101,"873,S83.202A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.203A ",.01)
  1. ;;S83.203A
  1. ;;9002226.02101,"873,S83.203A ",.02)
  1. ;;S83.203A
  1. ;;9002226.02101,"873,S83.203A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.204A ",.01)
  1. ;;S83.204A
  1. ;;9002226.02101,"873,S83.204A ",.02)
  1. ;;S83.204A
  1. ;;9002226.02101,"873,S83.204A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.205A ",.01)
  1. ;;S83.205A
  1. ;;9002226.02101,"873,S83.205A ",.02)
  1. ;;S83.205A
  1. ;;9002226.02101,"873,S83.205A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.206A ",.01)
  1. ;;S83.206A
  1. ;;9002226.02101,"873,S83.206A ",.02)
  1. ;;S83.206A
  1. ;;9002226.02101,"873,S83.206A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.207A ",.01)
  1. ;;S83.207A
  1. ;;9002226.02101,"873,S83.207A ",.02)
  1. ;;S83.207A
  1. ;;9002226.02101,"873,S83.207A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.209A ",.01)
  1. ;;S83.209A
  1. ;;9002226.02101,"873,S83.209A ",.02)
  1. ;;S83.209A
  1. ;;9002226.02101,"873,S83.209A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.211A ",.01)
  1. ;;S83.211A
  1. ;;9002226.02101,"873,S83.211A ",.02)
  1. ;;S83.211A
  1. ;;9002226.02101,"873,S83.211A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.212A ",.01)
  1. ;;S83.212A
  1. ;;9002226.02101,"873,S83.212A ",.02)
  1. ;;S83.212A
  1. ;;9002226.02101,"873,S83.212A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.219A ",.01)
  1. ;;S83.219A
  1. ;;9002226.02101,"873,S83.219A ",.02)
  1. ;;S83.219A
  1. ;;9002226.02101,"873,S83.219A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.221A ",.01)
  1. ;;S83.221A
  1. ;;9002226.02101,"873,S83.221A ",.02)
  1. ;;S83.221A
  1. ;;9002226.02101,"873,S83.221A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.222A ",.01)
  1. ;;S83.222A
  1. ;;9002226.02101,"873,S83.222A ",.02)
  1. ;;S83.222A
  1. ;;9002226.02101,"873,S83.222A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.229A ",.01)
  1. ;;S83.229A
  1. ;;9002226.02101,"873,S83.229A ",.02)
  1. ;;S83.229A
  1. ;;9002226.02101,"873,S83.229A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.231A ",.01)
  1. ;;S83.231A
  1. ;;9002226.02101,"873,S83.231A ",.02)
  1. ;;S83.231A
  1. ;;9002226.02101,"873,S83.231A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.232A ",.01)
  1. ;;S83.232A
  1. ;;9002226.02101,"873,S83.232A ",.02)
  1. ;;S83.232A
  1. ;;9002226.02101,"873,S83.232A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.239A ",.01)
  1. ;;S83.239A
  1. ;;9002226.02101,"873,S83.239A ",.02)
  1. ;;S83.239A
  1. ;;9002226.02101,"873,S83.239A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.241A ",.01)
  1. ;;S83.241A
  1. ;;9002226.02101,"873,S83.241A ",.02)
  1. ;;S83.241A
  1. ;;9002226.02101,"873,S83.241A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.242A ",.01)
  1. ;;S83.242A
  1. ;;9002226.02101,"873,S83.242A ",.02)
  1. ;;S83.242A
  1. ;;9002226.02101,"873,S83.242A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.249A ",.01)
  1. ;;S83.249A
  1. ;;9002226.02101,"873,S83.249A ",.02)
  1. ;;S83.249A
  1. ;;9002226.02101,"873,S83.249A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.251A ",.01)
  1. ;;S83.251A
  1. ;;9002226.02101,"873,S83.251A ",.02)
  1. ;;S83.251A
  1. ;;9002226.02101,"873,S83.251A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.252A ",.01)
  1. ;;S83.252A
  1. ;;9002226.02101,"873,S83.252A ",.02)
  1. ;;S83.252A
  1. ;;9002226.02101,"873,S83.252A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.259A ",.01)
  1. ;;S83.259A
  1. ;;9002226.02101,"873,S83.259A ",.02)
  1. ;;S83.259A
  1. ;;9002226.02101,"873,S83.259A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.261A ",.01)
  1. ;;S83.261A
  1. ;;9002226.02101,"873,S83.261A ",.02)
  1. ;;S83.261A
  1. ;;9002226.02101,"873,S83.261A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.262A ",.01)
  1. ;;S83.262A
  1. ;;9002226.02101,"873,S83.262A ",.02)
  1. ;;S83.262A
  1. ;;9002226.02101,"873,S83.262A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.269A ",.01)
  1. ;;S83.269A
  1. ;;9002226.02101,"873,S83.269A ",.02)
  1. ;;S83.269A
  1. ;;9002226.02101,"873,S83.269A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.271A ",.01)
  1. ;;S83.271A
  1. ;;9002226.02101,"873,S83.271A ",.02)
  1. ;;S83.271A
  1. ;;9002226.02101,"873,S83.271A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.272A ",.01)
  1. ;;S83.272A
  1. ;;9002226.02101,"873,S83.272A ",.02)
  1. ;;S83.272A
  1. ;;9002226.02101,"873,S83.272A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.279A ",.01)
  1. ;;S83.279A
  1. ;;9002226.02101,"873,S83.279A ",.02)
  1. ;;S83.279A
  1. ;;9002226.02101,"873,S83.279A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.281A ",.01)
  1. ;;S83.281A
  1. ;;9002226.02101,"873,S83.281A ",.02)
  1. ;;S83.281A
  1. ;;9002226.02101,"873,S83.281A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.282A ",.01)
  1. ;;S83.282A
  1. ;;9002226.02101,"873,S83.282A ",.02)
  1. ;;S83.282A
  1. ;;9002226.02101,"873,S83.282A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.289A ",.01)
  1. ;;S83.289A
  1. ;;9002226.02101,"873,S83.289A ",.02)
  1. ;;S83.289A
  1. ;;9002226.02101,"873,S83.289A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.30XA ",.01)
  1. ;;S83.30XA
  1. ;;9002226.02101,"873,S83.30XA ",.02)
  1. ;;S83.30XA
  1. ;;9002226.02101,"873,S83.30XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.31XA ",.01)
  1. ;;S83.31XA
  1. ;;9002226.02101,"873,S83.31XA ",.02)
  1. ;;S83.31XA
  1. ;;9002226.02101,"873,S83.31XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.32XA ",.01)
  1. ;;S83.32XA
  1. ;;9002226.02101,"873,S83.32XA ",.02)
  1. ;;S83.32XA
  1. ;;9002226.02101,"873,S83.32XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.401A ",.01)
  1. ;;S83.401A
  1. ;;9002226.02101,"873,S83.401A ",.02)
  1. ;;S83.401A
  1. ;;9002226.02101,"873,S83.401A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.402A ",.01)
  1. ;;S83.402A
  1. ;;9002226.02101,"873,S83.402A ",.02)
  1. ;;S83.402A
  1. ;;9002226.02101,"873,S83.402A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.409A ",.01)
  1. ;;S83.409A
  1. ;;9002226.02101,"873,S83.409A ",.02)
  1. ;;S83.409A
  1. ;;9002226.02101,"873,S83.409A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.411A ",.01)
  1. ;;S83.411A
  1. ;;9002226.02101,"873,S83.411A ",.02)
  1. ;;S83.411A
  1. ;;9002226.02101,"873,S83.411A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.412A ",.01)
  1. ;;S83.412A
  1. ;;9002226.02101,"873,S83.412A ",.02)
  1. ;;S83.412A
  1. ;;9002226.02101,"873,S83.412A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.419A ",.01)
  1. ;;S83.419A
  1. ;;9002226.02101,"873,S83.419A ",.02)
  1. ;;S83.419A
  1. ;;9002226.02101,"873,S83.419A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.421A ",.01)
  1. ;;S83.421A
  1. ;;9002226.02101,"873,S83.421A ",.02)
  1. ;;S83.421A
  1. ;;9002226.02101,"873,S83.421A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.422A ",.01)
  1. ;;S83.422A
  1. ;;9002226.02101,"873,S83.422A ",.02)
  1. ;;S83.422A
  1. ;;9002226.02101,"873,S83.422A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.429A ",.01)
  1. ;;S83.429A
  1. ;;9002226.02101,"873,S83.429A ",.02)
  1. ;;S83.429A
  1. ;;9002226.02101,"873,S83.429A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.501A ",.01)
  1. ;;S83.501A
  1. ;;9002226.02101,"873,S83.501A ",.02)
  1. ;;S83.501A
  1. ;;9002226.02101,"873,S83.501A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.502A ",.01)
  1. ;;S83.502A
  1. ;;9002226.02101,"873,S83.502A ",.02)
  1. ;;S83.502A
  1. ;;9002226.02101,"873,S83.502A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.509A ",.01)
  1. ;;S83.509A
  1. ;;9002226.02101,"873,S83.509A ",.02)
  1. ;;S83.509A
  1. ;;9002226.02101,"873,S83.509A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.511A ",.01)
  1. ;;S83.511A
  1. ;;9002226.02101,"873,S83.511A ",.02)
  1. ;;S83.511A
  1. ;;9002226.02101,"873,S83.511A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.512A ",.01)
  1. ;;S83.512A
  1. ;;9002226.02101,"873,S83.512A ",.02)
  1. ;;S83.512A
  1. ;;9002226.02101,"873,S83.512A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.519A ",.01)
  1. ;;S83.519A
  1. ;;9002226.02101,"873,S83.519A ",.02)
  1. ;;S83.519A
  1. ;;9002226.02101,"873,S83.519A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.521A ",.01)
  1. ;;S83.521A
  1. ;;9002226.02101,"873,S83.521A ",.02)
  1. ;;S83.521A
  1. ;;9002226.02101,"873,S83.521A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.522A ",.01)
  1. ;;S83.522A
  1. ;;9002226.02101,"873,S83.522A ",.02)
  1. ;;S83.522A
  1. ;;9002226.02101,"873,S83.522A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.529A ",.01)
  1. ;;S83.529A
  1. ;;9002226.02101,"873,S83.529A ",.02)
  1. ;;S83.529A
  1. ;;9002226.02101,"873,S83.529A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.60XA ",.01)
  1. ;;S83.60XA
  1. ;;9002226.02101,"873,S83.60XA ",.02)
  1. ;;S83.60XA
  1. ;;9002226.02101,"873,S83.60XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.61XA ",.01)
  1. ;;S83.61XA
  1. ;;9002226.02101,"873,S83.61XA ",.02)
  1. ;;S83.61XA
  1. ;;9002226.02101,"873,S83.61XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.62XA ",.01)
  1. ;;S83.62XA
  1. ;;9002226.02101,"873,S83.62XA ",.02)
  1. ;;S83.62XA
  1. ;;9002226.02101,"873,S83.62XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.8X1A ",.01)
  1. ;;S83.8X1A
  1. ;;9002226.02101,"873,S83.8X1A ",.02)
  1. ;;S83.8X1A
  1. ;;9002226.02101,"873,S83.8X1A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.8X2A ",.01)
  1. ;;S83.8X2A
  1. ;;9002226.02101,"873,S83.8X2A ",.02)
  1. ;;S83.8X2A
  1. ;;9002226.02101,"873,S83.8X2A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.8X9A ",.01)
  1. ;;S83.8X9A
  1. ;;9002226.02101,"873,S83.8X9A ",.02)
  1. ;;S83.8X9A
  1. ;;9002226.02101,"873,S83.8X9A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.90XA ",.01)
  1. ;;S83.90XA
  1. ;;9002226.02101,"873,S83.90XA ",.02)
  1. ;;S83.90XA
  1. ;;9002226.02101,"873,S83.90XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.91XA ",.01)
  1. ;;S83.91XA
  1. ;;9002226.02101,"873,S83.91XA ",.02)
  1. ;;S83.91XA
  1. ;;9002226.02101,"873,S83.91XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S83.92XA ",.01)
  1. ;;S83.92XA
  1. ;;9002226.02101,"873,S83.92XA ",.02)
  1. ;;S83.92XA
  1. ;;9002226.02101,"873,S83.92XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S84.00XA ",.01)
  1. ;;S84.00XA
  1. ;;9002226.02101,"873,S84.00XA ",.02)
  1. ;;S84.00XA
  1. ;;9002226.02101,"873,S84.00XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S84.01XA ",.01)
  1. ;;S84.01XA
  1. ;;9002226.02101,"873,S84.01XA ",.02)
  1. ;;S84.01XA
  1. ;;9002226.02101,"873,S84.01XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S84.02XA ",.01)
  1. ;;S84.02XA