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

ATXXA85.m

Go to the documentation of this file.
  1. ATXXA85 ;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,S62.309B ",.02)
  1. ;;S62.309B
  1. ;;9002226.02101,"873,S62.309B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.310A ",.01)
  1. ;;S62.310A
  1. ;;9002226.02101,"873,S62.310A ",.02)
  1. ;;S62.310A
  1. ;;9002226.02101,"873,S62.310A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.310B ",.01)
  1. ;;S62.310B
  1. ;;9002226.02101,"873,S62.310B ",.02)
  1. ;;S62.310B
  1. ;;9002226.02101,"873,S62.310B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.311A ",.01)
  1. ;;S62.311A
  1. ;;9002226.02101,"873,S62.311A ",.02)
  1. ;;S62.311A
  1. ;;9002226.02101,"873,S62.311A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.311B ",.01)
  1. ;;S62.311B
  1. ;;9002226.02101,"873,S62.311B ",.02)
  1. ;;S62.311B
  1. ;;9002226.02101,"873,S62.311B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.312A ",.01)
  1. ;;S62.312A
  1. ;;9002226.02101,"873,S62.312A ",.02)
  1. ;;S62.312A
  1. ;;9002226.02101,"873,S62.312A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.312B ",.01)
  1. ;;S62.312B
  1. ;;9002226.02101,"873,S62.312B ",.02)
  1. ;;S62.312B
  1. ;;9002226.02101,"873,S62.312B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.313A ",.01)
  1. ;;S62.313A
  1. ;;9002226.02101,"873,S62.313A ",.02)
  1. ;;S62.313A
  1. ;;9002226.02101,"873,S62.313A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.313B ",.01)
  1. ;;S62.313B
  1. ;;9002226.02101,"873,S62.313B ",.02)
  1. ;;S62.313B
  1. ;;9002226.02101,"873,S62.313B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.314A ",.01)
  1. ;;S62.314A
  1. ;;9002226.02101,"873,S62.314A ",.02)
  1. ;;S62.314A
  1. ;;9002226.02101,"873,S62.314A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.314B ",.01)
  1. ;;S62.314B
  1. ;;9002226.02101,"873,S62.314B ",.02)
  1. ;;S62.314B
  1. ;;9002226.02101,"873,S62.314B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.315A ",.01)
  1. ;;S62.315A
  1. ;;9002226.02101,"873,S62.315A ",.02)
  1. ;;S62.315A
  1. ;;9002226.02101,"873,S62.315A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.315B ",.01)
  1. ;;S62.315B
  1. ;;9002226.02101,"873,S62.315B ",.02)
  1. ;;S62.315B
  1. ;;9002226.02101,"873,S62.315B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.316A ",.01)
  1. ;;S62.316A
  1. ;;9002226.02101,"873,S62.316A ",.02)
  1. ;;S62.316A
  1. ;;9002226.02101,"873,S62.316A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.316B ",.01)
  1. ;;S62.316B
  1. ;;9002226.02101,"873,S62.316B ",.02)
  1. ;;S62.316B
  1. ;;9002226.02101,"873,S62.316B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.317A ",.01)
  1. ;;S62.317A
  1. ;;9002226.02101,"873,S62.317A ",.02)
  1. ;;S62.317A
  1. ;;9002226.02101,"873,S62.317A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.317B ",.01)
  1. ;;S62.317B
  1. ;;9002226.02101,"873,S62.317B ",.02)
  1. ;;S62.317B
  1. ;;9002226.02101,"873,S62.317B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.318A ",.01)
  1. ;;S62.318A
  1. ;;9002226.02101,"873,S62.318A ",.02)
  1. ;;S62.318A
  1. ;;9002226.02101,"873,S62.318A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.318B ",.01)
  1. ;;S62.318B
  1. ;;9002226.02101,"873,S62.318B ",.02)
  1. ;;S62.318B
  1. ;;9002226.02101,"873,S62.318B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.319A ",.01)
  1. ;;S62.319A
  1. ;;9002226.02101,"873,S62.319A ",.02)
  1. ;;S62.319A
  1. ;;9002226.02101,"873,S62.319A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.319B ",.01)
  1. ;;S62.319B
  1. ;;9002226.02101,"873,S62.319B ",.02)
  1. ;;S62.319B
  1. ;;9002226.02101,"873,S62.319B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.320A ",.01)
  1. ;;S62.320A
  1. ;;9002226.02101,"873,S62.320A ",.02)
  1. ;;S62.320A
  1. ;;9002226.02101,"873,S62.320A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.320B ",.01)
  1. ;;S62.320B
  1. ;;9002226.02101,"873,S62.320B ",.02)
  1. ;;S62.320B
  1. ;;9002226.02101,"873,S62.320B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.321A ",.01)
  1. ;;S62.321A
  1. ;;9002226.02101,"873,S62.321A ",.02)
  1. ;;S62.321A
  1. ;;9002226.02101,"873,S62.321A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.321B ",.01)
  1. ;;S62.321B
  1. ;;9002226.02101,"873,S62.321B ",.02)
  1. ;;S62.321B
  1. ;;9002226.02101,"873,S62.321B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.322A ",.01)
  1. ;;S62.322A
  1. ;;9002226.02101,"873,S62.322A ",.02)
  1. ;;S62.322A
  1. ;;9002226.02101,"873,S62.322A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.322B ",.01)
  1. ;;S62.322B
  1. ;;9002226.02101,"873,S62.322B ",.02)
  1. ;;S62.322B
  1. ;;9002226.02101,"873,S62.322B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.323A ",.01)
  1. ;;S62.323A
  1. ;;9002226.02101,"873,S62.323A ",.02)
  1. ;;S62.323A
  1. ;;9002226.02101,"873,S62.323A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.323B ",.01)
  1. ;;S62.323B
  1. ;;9002226.02101,"873,S62.323B ",.02)
  1. ;;S62.323B
  1. ;;9002226.02101,"873,S62.323B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.324A ",.01)
  1. ;;S62.324A
  1. ;;9002226.02101,"873,S62.324A ",.02)
  1. ;;S62.324A
  1. ;;9002226.02101,"873,S62.324A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.324B ",.01)
  1. ;;S62.324B
  1. ;;9002226.02101,"873,S62.324B ",.02)
  1. ;;S62.324B
  1. ;;9002226.02101,"873,S62.324B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.325A ",.01)
  1. ;;S62.325A
  1. ;;9002226.02101,"873,S62.325A ",.02)
  1. ;;S62.325A
  1. ;;9002226.02101,"873,S62.325A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.325B ",.01)
  1. ;;S62.325B
  1. ;;9002226.02101,"873,S62.325B ",.02)
  1. ;;S62.325B
  1. ;;9002226.02101,"873,S62.325B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.326A ",.01)
  1. ;;S62.326A
  1. ;;9002226.02101,"873,S62.326A ",.02)
  1. ;;S62.326A
  1. ;;9002226.02101,"873,S62.326A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.326B ",.01)
  1. ;;S62.326B
  1. ;;9002226.02101,"873,S62.326B ",.02)
  1. ;;S62.326B
  1. ;;9002226.02101,"873,S62.326B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.327A ",.01)
  1. ;;S62.327A
  1. ;;9002226.02101,"873,S62.327A ",.02)
  1. ;;S62.327A
  1. ;;9002226.02101,"873,S62.327A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.327B ",.01)
  1. ;;S62.327B
  1. ;;9002226.02101,"873,S62.327B ",.02)
  1. ;;S62.327B
  1. ;;9002226.02101,"873,S62.327B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.328A ",.01)
  1. ;;S62.328A
  1. ;;9002226.02101,"873,S62.328A ",.02)
  1. ;;S62.328A
  1. ;;9002226.02101,"873,S62.328A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.328B ",.01)
  1. ;;S62.328B
  1. ;;9002226.02101,"873,S62.328B ",.02)
  1. ;;S62.328B
  1. ;;9002226.02101,"873,S62.328B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.329A ",.01)
  1. ;;S62.329A
  1. ;;9002226.02101,"873,S62.329A ",.02)
  1. ;;S62.329A
  1. ;;9002226.02101,"873,S62.329A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.329B ",.01)
  1. ;;S62.329B
  1. ;;9002226.02101,"873,S62.329B ",.02)
  1. ;;S62.329B
  1. ;;9002226.02101,"873,S62.329B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.330A ",.01)
  1. ;;S62.330A
  1. ;;9002226.02101,"873,S62.330A ",.02)
  1. ;;S62.330A
  1. ;;9002226.02101,"873,S62.330A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.330B ",.01)
  1. ;;S62.330B
  1. ;;9002226.02101,"873,S62.330B ",.02)
  1. ;;S62.330B
  1. ;;9002226.02101,"873,S62.330B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.331A ",.01)
  1. ;;S62.331A
  1. ;;9002226.02101,"873,S62.331A ",.02)
  1. ;;S62.331A
  1. ;;9002226.02101,"873,S62.331A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.331B ",.01)
  1. ;;S62.331B
  1. ;;9002226.02101,"873,S62.331B ",.02)
  1. ;;S62.331B
  1. ;;9002226.02101,"873,S62.331B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.332A ",.01)
  1. ;;S62.332A
  1. ;;9002226.02101,"873,S62.332A ",.02)
  1. ;;S62.332A
  1. ;;9002226.02101,"873,S62.332A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.332B ",.01)
  1. ;;S62.332B
  1. ;;9002226.02101,"873,S62.332B ",.02)
  1. ;;S62.332B
  1. ;;9002226.02101,"873,S62.332B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.333A ",.01)
  1. ;;S62.333A
  1. ;;9002226.02101,"873,S62.333A ",.02)
  1. ;;S62.333A
  1. ;;9002226.02101,"873,S62.333A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.333B ",.01)
  1. ;;S62.333B
  1. ;;9002226.02101,"873,S62.333B ",.02)
  1. ;;S62.333B
  1. ;;9002226.02101,"873,S62.333B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.334A ",.01)
  1. ;;S62.334A
  1. ;;9002226.02101,"873,S62.334A ",.02)
  1. ;;S62.334A
  1. ;;9002226.02101,"873,S62.334A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.334B ",.01)
  1. ;;S62.334B
  1. ;;9002226.02101,"873,S62.334B ",.02)
  1. ;;S62.334B
  1. ;;9002226.02101,"873,S62.334B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.335A ",.01)
  1. ;;S62.335A
  1. ;;9002226.02101,"873,S62.335A ",.02)
  1. ;;S62.335A
  1. ;;9002226.02101,"873,S62.335A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.335B ",.01)
  1. ;;S62.335B
  1. ;;9002226.02101,"873,S62.335B ",.02)
  1. ;;S62.335B
  1. ;;9002226.02101,"873,S62.335B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.336A ",.01)
  1. ;;S62.336A
  1. ;;9002226.02101,"873,S62.336A ",.02)
  1. ;;S62.336A
  1. ;;9002226.02101,"873,S62.336A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.336B ",.01)
  1. ;;S62.336B
  1. ;;9002226.02101,"873,S62.336B ",.02)
  1. ;;S62.336B
  1. ;;9002226.02101,"873,S62.336B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.337A ",.01)
  1. ;;S62.337A
  1. ;;9002226.02101,"873,S62.337A ",.02)
  1. ;;S62.337A
  1. ;;9002226.02101,"873,S62.337A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.337B ",.01)
  1. ;;S62.337B
  1. ;;9002226.02101,"873,S62.337B ",.02)
  1. ;;S62.337B
  1. ;;9002226.02101,"873,S62.337B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.338A ",.01)
  1. ;;S62.338A
  1. ;;9002226.02101,"873,S62.338A ",.02)
  1. ;;S62.338A
  1. ;;9002226.02101,"873,S62.338A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.338B ",.01)
  1. ;;S62.338B
  1. ;;9002226.02101,"873,S62.338B ",.02)
  1. ;;S62.338B
  1. ;;9002226.02101,"873,S62.338B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.339A ",.01)
  1. ;;S62.339A
  1. ;;9002226.02101,"873,S62.339A ",.02)
  1. ;;S62.339A
  1. ;;9002226.02101,"873,S62.339A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.339B ",.01)
  1. ;;S62.339B
  1. ;;9002226.02101,"873,S62.339B ",.02)
  1. ;;S62.339B
  1. ;;9002226.02101,"873,S62.339B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.340A ",.01)
  1. ;;S62.340A
  1. ;;9002226.02101,"873,S62.340A ",.02)
  1. ;;S62.340A
  1. ;;9002226.02101,"873,S62.340A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.340B ",.01)
  1. ;;S62.340B
  1. ;;9002226.02101,"873,S62.340B ",.02)
  1. ;;S62.340B
  1. ;;9002226.02101,"873,S62.340B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.341A ",.01)
  1. ;;S62.341A
  1. ;;9002226.02101,"873,S62.341A ",.02)
  1. ;;S62.341A
  1. ;;9002226.02101,"873,S62.341A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.341B ",.01)
  1. ;;S62.341B
  1. ;;9002226.02101,"873,S62.341B ",.02)
  1. ;;S62.341B
  1. ;;9002226.02101,"873,S62.341B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.342A ",.01)
  1. ;;S62.342A
  1. ;;9002226.02101,"873,S62.342A ",.02)
  1. ;;S62.342A
  1. ;;9002226.02101,"873,S62.342A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.342B ",.01)
  1. ;;S62.342B
  1. ;;9002226.02101,"873,S62.342B ",.02)
  1. ;;S62.342B
  1. ;;9002226.02101,"873,S62.342B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.343A ",.01)
  1. ;;S62.343A
  1. ;;9002226.02101,"873,S62.343A ",.02)
  1. ;;S62.343A
  1. ;;9002226.02101,"873,S62.343A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.343B ",.01)
  1. ;;S62.343B
  1. ;;9002226.02101,"873,S62.343B ",.02)
  1. ;;S62.343B
  1. ;;9002226.02101,"873,S62.343B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.344A ",.01)
  1. ;;S62.344A
  1. ;;9002226.02101,"873,S62.344A ",.02)
  1. ;;S62.344A
  1. ;;9002226.02101,"873,S62.344A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.344B ",.01)
  1. ;;S62.344B
  1. ;;9002226.02101,"873,S62.344B ",.02)
  1. ;;S62.344B
  1. ;;9002226.02101,"873,S62.344B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.345A ",.01)
  1. ;;S62.345A
  1. ;;9002226.02101,"873,S62.345A ",.02)
  1. ;;S62.345A
  1. ;;9002226.02101,"873,S62.345A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.345B ",.01)
  1. ;;S62.345B
  1. ;;9002226.02101,"873,S62.345B ",.02)
  1. ;;S62.345B
  1. ;;9002226.02101,"873,S62.345B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.346A ",.01)
  1. ;;S62.346A
  1. ;;9002226.02101,"873,S62.346A ",.02)
  1. ;;S62.346A
  1. ;;9002226.02101,"873,S62.346A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.346B ",.01)
  1. ;;S62.346B
  1. ;;9002226.02101,"873,S62.346B ",.02)
  1. ;;S62.346B
  1. ;;9002226.02101,"873,S62.346B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.347A ",.01)
  1. ;;S62.347A
  1. ;;9002226.02101,"873,S62.347A ",.02)
  1. ;;S62.347A
  1. ;;9002226.02101,"873,S62.347A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.347B ",.01)
  1. ;;S62.347B
  1. ;;9002226.02101,"873,S62.347B ",.02)
  1. ;;S62.347B
  1. ;;9002226.02101,"873,S62.347B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.348A ",.01)
  1. ;;S62.348A
  1. ;;9002226.02101,"873,S62.348A ",.02)
  1. ;;S62.348A
  1. ;;9002226.02101,"873,S62.348A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S62.348B ",.01)
  1. ;;S62.348B
  1. ;;9002226.02101,"873,S62.348B ",.02)
  1. ;;S62.348B