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

ATXXA81.m

Go to the documentation of this file.
  1. ATXXA81 ;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,S61.312A ",.01)
  1. ;;S61.312A
  1. ;;9002226.02101,"873,S61.312A ",.02)
  1. ;;S61.312A
  1. ;;9002226.02101,"873,S61.312A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.313A ",.01)
  1. ;;S61.313A
  1. ;;9002226.02101,"873,S61.313A ",.02)
  1. ;;S61.313A
  1. ;;9002226.02101,"873,S61.313A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.314A ",.01)
  1. ;;S61.314A
  1. ;;9002226.02101,"873,S61.314A ",.02)
  1. ;;S61.314A
  1. ;;9002226.02101,"873,S61.314A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.315A ",.01)
  1. ;;S61.315A
  1. ;;9002226.02101,"873,S61.315A ",.02)
  1. ;;S61.315A
  1. ;;9002226.02101,"873,S61.315A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.316A ",.01)
  1. ;;S61.316A
  1. ;;9002226.02101,"873,S61.316A ",.02)
  1. ;;S61.316A
  1. ;;9002226.02101,"873,S61.316A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.317A ",.01)
  1. ;;S61.317A
  1. ;;9002226.02101,"873,S61.317A ",.02)
  1. ;;S61.317A
  1. ;;9002226.02101,"873,S61.317A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.318A ",.01)
  1. ;;S61.318A
  1. ;;9002226.02101,"873,S61.318A ",.02)
  1. ;;S61.318A
  1. ;;9002226.02101,"873,S61.318A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.319A ",.01)
  1. ;;S61.319A
  1. ;;9002226.02101,"873,S61.319A ",.02)
  1. ;;S61.319A
  1. ;;9002226.02101,"873,S61.319A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.320A ",.01)
  1. ;;S61.320A
  1. ;;9002226.02101,"873,S61.320A ",.02)
  1. ;;S61.320A
  1. ;;9002226.02101,"873,S61.320A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.321A ",.01)
  1. ;;S61.321A
  1. ;;9002226.02101,"873,S61.321A ",.02)
  1. ;;S61.321A
  1. ;;9002226.02101,"873,S61.321A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.322A ",.01)
  1. ;;S61.322A
  1. ;;9002226.02101,"873,S61.322A ",.02)
  1. ;;S61.322A
  1. ;;9002226.02101,"873,S61.322A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.323A ",.01)
  1. ;;S61.323A
  1. ;;9002226.02101,"873,S61.323A ",.02)
  1. ;;S61.323A
  1. ;;9002226.02101,"873,S61.323A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.324A ",.01)
  1. ;;S61.324A
  1. ;;9002226.02101,"873,S61.324A ",.02)
  1. ;;S61.324A
  1. ;;9002226.02101,"873,S61.324A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.325A ",.01)
  1. ;;S61.325A
  1. ;;9002226.02101,"873,S61.325A ",.02)
  1. ;;S61.325A
  1. ;;9002226.02101,"873,S61.325A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.326A ",.01)
  1. ;;S61.326A
  1. ;;9002226.02101,"873,S61.326A ",.02)
  1. ;;S61.326A
  1. ;;9002226.02101,"873,S61.326A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.327A ",.01)
  1. ;;S61.327A
  1. ;;9002226.02101,"873,S61.327A ",.02)
  1. ;;S61.327A
  1. ;;9002226.02101,"873,S61.327A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.328A ",.01)
  1. ;;S61.328A
  1. ;;9002226.02101,"873,S61.328A ",.02)
  1. ;;S61.328A
  1. ;;9002226.02101,"873,S61.328A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.329A ",.01)
  1. ;;S61.329A
  1. ;;9002226.02101,"873,S61.329A ",.02)
  1. ;;S61.329A
  1. ;;9002226.02101,"873,S61.329A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.330A ",.01)
  1. ;;S61.330A
  1. ;;9002226.02101,"873,S61.330A ",.02)
  1. ;;S61.330A
  1. ;;9002226.02101,"873,S61.330A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.331A ",.01)
  1. ;;S61.331A
  1. ;;9002226.02101,"873,S61.331A ",.02)
  1. ;;S61.331A
  1. ;;9002226.02101,"873,S61.331A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.332A ",.01)
  1. ;;S61.332A
  1. ;;9002226.02101,"873,S61.332A ",.02)
  1. ;;S61.332A
  1. ;;9002226.02101,"873,S61.332A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.333A ",.01)
  1. ;;S61.333A
  1. ;;9002226.02101,"873,S61.333A ",.02)
  1. ;;S61.333A
  1. ;;9002226.02101,"873,S61.333A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.334A ",.01)
  1. ;;S61.334A
  1. ;;9002226.02101,"873,S61.334A ",.02)
  1. ;;S61.334A
  1. ;;9002226.02101,"873,S61.334A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.335A ",.01)
  1. ;;S61.335A
  1. ;;9002226.02101,"873,S61.335A ",.02)
  1. ;;S61.335A
  1. ;;9002226.02101,"873,S61.335A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.336A ",.01)
  1. ;;S61.336A
  1. ;;9002226.02101,"873,S61.336A ",.02)
  1. ;;S61.336A
  1. ;;9002226.02101,"873,S61.336A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.337A ",.01)
  1. ;;S61.337A
  1. ;;9002226.02101,"873,S61.337A ",.02)
  1. ;;S61.337A
  1. ;;9002226.02101,"873,S61.337A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.338A ",.01)
  1. ;;S61.338A
  1. ;;9002226.02101,"873,S61.338A ",.02)
  1. ;;S61.338A
  1. ;;9002226.02101,"873,S61.338A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.339A ",.01)
  1. ;;S61.339A
  1. ;;9002226.02101,"873,S61.339A ",.02)
  1. ;;S61.339A
  1. ;;9002226.02101,"873,S61.339A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.340A ",.01)
  1. ;;S61.340A
  1. ;;9002226.02101,"873,S61.340A ",.02)
  1. ;;S61.340A
  1. ;;9002226.02101,"873,S61.340A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.341A ",.01)
  1. ;;S61.341A
  1. ;;9002226.02101,"873,S61.341A ",.02)
  1. ;;S61.341A
  1. ;;9002226.02101,"873,S61.341A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.342A ",.01)
  1. ;;S61.342A
  1. ;;9002226.02101,"873,S61.342A ",.02)
  1. ;;S61.342A
  1. ;;9002226.02101,"873,S61.342A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.343A ",.01)
  1. ;;S61.343A
  1. ;;9002226.02101,"873,S61.343A ",.02)
  1. ;;S61.343A
  1. ;;9002226.02101,"873,S61.343A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.344A ",.01)
  1. ;;S61.344A
  1. ;;9002226.02101,"873,S61.344A ",.02)
  1. ;;S61.344A
  1. ;;9002226.02101,"873,S61.344A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.345A ",.01)
  1. ;;S61.345A
  1. ;;9002226.02101,"873,S61.345A ",.02)
  1. ;;S61.345A
  1. ;;9002226.02101,"873,S61.345A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.346A ",.01)
  1. ;;S61.346A
  1. ;;9002226.02101,"873,S61.346A ",.02)
  1. ;;S61.346A
  1. ;;9002226.02101,"873,S61.346A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.347A ",.01)
  1. ;;S61.347A
  1. ;;9002226.02101,"873,S61.347A ",.02)
  1. ;;S61.347A
  1. ;;9002226.02101,"873,S61.347A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.348A ",.01)
  1. ;;S61.348A
  1. ;;9002226.02101,"873,S61.348A ",.02)
  1. ;;S61.348A
  1. ;;9002226.02101,"873,S61.348A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.349A ",.01)
  1. ;;S61.349A
  1. ;;9002226.02101,"873,S61.349A ",.02)
  1. ;;S61.349A
  1. ;;9002226.02101,"873,S61.349A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.350A ",.01)
  1. ;;S61.350A
  1. ;;9002226.02101,"873,S61.350A ",.02)
  1. ;;S61.350A
  1. ;;9002226.02101,"873,S61.350A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.351A ",.01)
  1. ;;S61.351A
  1. ;;9002226.02101,"873,S61.351A ",.02)
  1. ;;S61.351A
  1. ;;9002226.02101,"873,S61.351A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.352A ",.01)
  1. ;;S61.352A
  1. ;;9002226.02101,"873,S61.352A ",.02)
  1. ;;S61.352A
  1. ;;9002226.02101,"873,S61.352A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.353A ",.01)
  1. ;;S61.353A
  1. ;;9002226.02101,"873,S61.353A ",.02)
  1. ;;S61.353A
  1. ;;9002226.02101,"873,S61.353A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.354A ",.01)
  1. ;;S61.354A
  1. ;;9002226.02101,"873,S61.354A ",.02)
  1. ;;S61.354A
  1. ;;9002226.02101,"873,S61.354A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.355A ",.01)
  1. ;;S61.355A
  1. ;;9002226.02101,"873,S61.355A ",.02)
  1. ;;S61.355A
  1. ;;9002226.02101,"873,S61.355A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.356A ",.01)
  1. ;;S61.356A
  1. ;;9002226.02101,"873,S61.356A ",.02)
  1. ;;S61.356A
  1. ;;9002226.02101,"873,S61.356A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.357A ",.01)
  1. ;;S61.357A
  1. ;;9002226.02101,"873,S61.357A ",.02)
  1. ;;S61.357A
  1. ;;9002226.02101,"873,S61.357A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.358A ",.01)
  1. ;;S61.358A
  1. ;;9002226.02101,"873,S61.358A ",.02)
  1. ;;S61.358A
  1. ;;9002226.02101,"873,S61.358A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.359A ",.01)
  1. ;;S61.359A
  1. ;;9002226.02101,"873,S61.359A ",.02)
  1. ;;S61.359A
  1. ;;9002226.02101,"873,S61.359A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.401A ",.01)
  1. ;;S61.401A
  1. ;;9002226.02101,"873,S61.401A ",.02)
  1. ;;S61.401A
  1. ;;9002226.02101,"873,S61.401A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.402A ",.01)
  1. ;;S61.402A
  1. ;;9002226.02101,"873,S61.402A ",.02)
  1. ;;S61.402A
  1. ;;9002226.02101,"873,S61.402A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.409A ",.01)
  1. ;;S61.409A
  1. ;;9002226.02101,"873,S61.409A ",.02)
  1. ;;S61.409A
  1. ;;9002226.02101,"873,S61.409A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.411A ",.01)
  1. ;;S61.411A
  1. ;;9002226.02101,"873,S61.411A ",.02)
  1. ;;S61.411A
  1. ;;9002226.02101,"873,S61.411A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.412A ",.01)
  1. ;;S61.412A
  1. ;;9002226.02101,"873,S61.412A ",.02)
  1. ;;S61.412A
  1. ;;9002226.02101,"873,S61.412A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.419A ",.01)
  1. ;;S61.419A
  1. ;;9002226.02101,"873,S61.419A ",.02)
  1. ;;S61.419A
  1. ;;9002226.02101,"873,S61.419A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.421A ",.01)
  1. ;;S61.421A
  1. ;;9002226.02101,"873,S61.421A ",.02)
  1. ;;S61.421A
  1. ;;9002226.02101,"873,S61.421A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.422A ",.01)
  1. ;;S61.422A
  1. ;;9002226.02101,"873,S61.422A ",.02)
  1. ;;S61.422A
  1. ;;9002226.02101,"873,S61.422A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.429A ",.01)
  1. ;;S61.429A
  1. ;;9002226.02101,"873,S61.429A ",.02)
  1. ;;S61.429A
  1. ;;9002226.02101,"873,S61.429A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.431A ",.01)
  1. ;;S61.431A
  1. ;;9002226.02101,"873,S61.431A ",.02)
  1. ;;S61.431A
  1. ;;9002226.02101,"873,S61.431A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.432A ",.01)
  1. ;;S61.432A
  1. ;;9002226.02101,"873,S61.432A ",.02)
  1. ;;S61.432A
  1. ;;9002226.02101,"873,S61.432A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.439A ",.01)
  1. ;;S61.439A
  1. ;;9002226.02101,"873,S61.439A ",.02)
  1. ;;S61.439A
  1. ;;9002226.02101,"873,S61.439A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.441A ",.01)
  1. ;;S61.441A
  1. ;;9002226.02101,"873,S61.441A ",.02)
  1. ;;S61.441A
  1. ;;9002226.02101,"873,S61.441A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.442A ",.01)
  1. ;;S61.442A
  1. ;;9002226.02101,"873,S61.442A ",.02)
  1. ;;S61.442A
  1. ;;9002226.02101,"873,S61.442A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.449A ",.01)
  1. ;;S61.449A
  1. ;;9002226.02101,"873,S61.449A ",.02)
  1. ;;S61.449A
  1. ;;9002226.02101,"873,S61.449A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.451A ",.01)
  1. ;;S61.451A
  1. ;;9002226.02101,"873,S61.451A ",.02)
  1. ;;S61.451A
  1. ;;9002226.02101,"873,S61.451A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.452A ",.01)
  1. ;;S61.452A
  1. ;;9002226.02101,"873,S61.452A ",.02)
  1. ;;S61.452A
  1. ;;9002226.02101,"873,S61.452A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.459A ",.01)
  1. ;;S61.459A
  1. ;;9002226.02101,"873,S61.459A ",.02)
  1. ;;S61.459A
  1. ;;9002226.02101,"873,S61.459A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.501A ",.01)
  1. ;;S61.501A
  1. ;;9002226.02101,"873,S61.501A ",.02)
  1. ;;S61.501A
  1. ;;9002226.02101,"873,S61.501A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.502A ",.01)
  1. ;;S61.502A
  1. ;;9002226.02101,"873,S61.502A ",.02)
  1. ;;S61.502A
  1. ;;9002226.02101,"873,S61.502A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.509A ",.01)
  1. ;;S61.509A
  1. ;;9002226.02101,"873,S61.509A ",.02)
  1. ;;S61.509A
  1. ;;9002226.02101,"873,S61.509A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.511A ",.01)
  1. ;;S61.511A
  1. ;;9002226.02101,"873,S61.511A ",.02)
  1. ;;S61.511A
  1. ;;9002226.02101,"873,S61.511A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.512A ",.01)
  1. ;;S61.512A
  1. ;;9002226.02101,"873,S61.512A ",.02)
  1. ;;S61.512A
  1. ;;9002226.02101,"873,S61.512A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.519A ",.01)
  1. ;;S61.519A
  1. ;;9002226.02101,"873,S61.519A ",.02)
  1. ;;S61.519A
  1. ;;9002226.02101,"873,S61.519A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.521A ",.01)
  1. ;;S61.521A
  1. ;;9002226.02101,"873,S61.521A ",.02)
  1. ;;S61.521A
  1. ;;9002226.02101,"873,S61.521A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.522A ",.01)
  1. ;;S61.522A
  1. ;;9002226.02101,"873,S61.522A ",.02)
  1. ;;S61.522A
  1. ;;9002226.02101,"873,S61.522A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.529A ",.01)
  1. ;;S61.529A
  1. ;;9002226.02101,"873,S61.529A ",.02)
  1. ;;S61.529A
  1. ;;9002226.02101,"873,S61.529A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.531A ",.01)
  1. ;;S61.531A
  1. ;;9002226.02101,"873,S61.531A ",.02)
  1. ;;S61.531A
  1. ;;9002226.02101,"873,S61.531A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.532A ",.01)
  1. ;;S61.532A
  1. ;;9002226.02101,"873,S61.532A ",.02)
  1. ;;S61.532A
  1. ;;9002226.02101,"873,S61.532A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.539A ",.01)
  1. ;;S61.539A
  1. ;;9002226.02101,"873,S61.539A ",.02)
  1. ;;S61.539A
  1. ;;9002226.02101,"873,S61.539A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S61.541A ",.01)
  1. ;;S61.541A