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

ATXXA70.m

Go to the documentation of this file.
ATXXA70 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"873,S52.326A ",.02)
 ;;S52.326A
 ;;9002226.02101,"873,S52.326A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.326B ",.01)
 ;;S52.326B
 ;;9002226.02101,"873,S52.326B ",.02)
 ;;S52.326B
 ;;9002226.02101,"873,S52.326B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.326C ",.01)
 ;;S52.326C
 ;;9002226.02101,"873,S52.326C ",.02)
 ;;S52.326C
 ;;9002226.02101,"873,S52.326C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.331A ",.01)
 ;;S52.331A
 ;;9002226.02101,"873,S52.331A ",.02)
 ;;S52.331A
 ;;9002226.02101,"873,S52.331A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.331B ",.01)
 ;;S52.331B
 ;;9002226.02101,"873,S52.331B ",.02)
 ;;S52.331B
 ;;9002226.02101,"873,S52.331B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.331C ",.01)
 ;;S52.331C
 ;;9002226.02101,"873,S52.331C ",.02)
 ;;S52.331C
 ;;9002226.02101,"873,S52.331C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.332A ",.01)
 ;;S52.332A
 ;;9002226.02101,"873,S52.332A ",.02)
 ;;S52.332A
 ;;9002226.02101,"873,S52.332A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.332B ",.01)
 ;;S52.332B
 ;;9002226.02101,"873,S52.332B ",.02)
 ;;S52.332B
 ;;9002226.02101,"873,S52.332B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.332C ",.01)
 ;;S52.332C
 ;;9002226.02101,"873,S52.332C ",.02)
 ;;S52.332C
 ;;9002226.02101,"873,S52.332C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.333A ",.01)
 ;;S52.333A
 ;;9002226.02101,"873,S52.333A ",.02)
 ;;S52.333A
 ;;9002226.02101,"873,S52.333A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.333B ",.01)
 ;;S52.333B
 ;;9002226.02101,"873,S52.333B ",.02)
 ;;S52.333B
 ;;9002226.02101,"873,S52.333B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.333C ",.01)
 ;;S52.333C
 ;;9002226.02101,"873,S52.333C ",.02)
 ;;S52.333C
 ;;9002226.02101,"873,S52.333C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.334A ",.01)
 ;;S52.334A
 ;;9002226.02101,"873,S52.334A ",.02)
 ;;S52.334A
 ;;9002226.02101,"873,S52.334A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.334B ",.01)
 ;;S52.334B
 ;;9002226.02101,"873,S52.334B ",.02)
 ;;S52.334B
 ;;9002226.02101,"873,S52.334B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.334C ",.01)
 ;;S52.334C
 ;;9002226.02101,"873,S52.334C ",.02)
 ;;S52.334C
 ;;9002226.02101,"873,S52.334C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.335A ",.01)
 ;;S52.335A
 ;;9002226.02101,"873,S52.335A ",.02)
 ;;S52.335A
 ;;9002226.02101,"873,S52.335A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.335B ",.01)
 ;;S52.335B
 ;;9002226.02101,"873,S52.335B ",.02)
 ;;S52.335B
 ;;9002226.02101,"873,S52.335B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.335C ",.01)
 ;;S52.335C
 ;;9002226.02101,"873,S52.335C ",.02)
 ;;S52.335C
 ;;9002226.02101,"873,S52.335C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.336A ",.01)
 ;;S52.336A
 ;;9002226.02101,"873,S52.336A ",.02)
 ;;S52.336A
 ;;9002226.02101,"873,S52.336A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.336B ",.01)
 ;;S52.336B
 ;;9002226.02101,"873,S52.336B ",.02)
 ;;S52.336B
 ;;9002226.02101,"873,S52.336B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.336C ",.01)
 ;;S52.336C
 ;;9002226.02101,"873,S52.336C ",.02)
 ;;S52.336C
 ;;9002226.02101,"873,S52.336C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.341A ",.01)
 ;;S52.341A
 ;;9002226.02101,"873,S52.341A ",.02)
 ;;S52.341A
 ;;9002226.02101,"873,S52.341A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.341B ",.01)
 ;;S52.341B
 ;;9002226.02101,"873,S52.341B ",.02)
 ;;S52.341B
 ;;9002226.02101,"873,S52.341B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.341C ",.01)
 ;;S52.341C
 ;;9002226.02101,"873,S52.341C ",.02)
 ;;S52.341C
 ;;9002226.02101,"873,S52.341C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.342A ",.01)
 ;;S52.342A
 ;;9002226.02101,"873,S52.342A ",.02)
 ;;S52.342A
 ;;9002226.02101,"873,S52.342A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.342B ",.01)
 ;;S52.342B
 ;;9002226.02101,"873,S52.342B ",.02)
 ;;S52.342B
 ;;9002226.02101,"873,S52.342B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.342C ",.01)
 ;;S52.342C
 ;;9002226.02101,"873,S52.342C ",.02)
 ;;S52.342C
 ;;9002226.02101,"873,S52.342C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.343A ",.01)
 ;;S52.343A
 ;;9002226.02101,"873,S52.343A ",.02)
 ;;S52.343A
 ;;9002226.02101,"873,S52.343A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.343B ",.01)
 ;;S52.343B
 ;;9002226.02101,"873,S52.343B ",.02)
 ;;S52.343B
 ;;9002226.02101,"873,S52.343B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.343C ",.01)
 ;;S52.343C
 ;;9002226.02101,"873,S52.343C ",.02)
 ;;S52.343C
 ;;9002226.02101,"873,S52.343C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.344A ",.01)
 ;;S52.344A
 ;;9002226.02101,"873,S52.344A ",.02)
 ;;S52.344A
 ;;9002226.02101,"873,S52.344A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.344B ",.01)
 ;;S52.344B
 ;;9002226.02101,"873,S52.344B ",.02)
 ;;S52.344B
 ;;9002226.02101,"873,S52.344B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.344C ",.01)
 ;;S52.344C
 ;;9002226.02101,"873,S52.344C ",.02)
 ;;S52.344C
 ;;9002226.02101,"873,S52.344C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.345A ",.01)
 ;;S52.345A
 ;;9002226.02101,"873,S52.345A ",.02)
 ;;S52.345A
 ;;9002226.02101,"873,S52.345A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.345B ",.01)
 ;;S52.345B
 ;;9002226.02101,"873,S52.345B ",.02)
 ;;S52.345B
 ;;9002226.02101,"873,S52.345B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.345C ",.01)
 ;;S52.345C
 ;;9002226.02101,"873,S52.345C ",.02)
 ;;S52.345C
 ;;9002226.02101,"873,S52.345C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.346A ",.01)
 ;;S52.346A
 ;;9002226.02101,"873,S52.346A ",.02)
 ;;S52.346A
 ;;9002226.02101,"873,S52.346A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.346B ",.01)
 ;;S52.346B
 ;;9002226.02101,"873,S52.346B ",.02)
 ;;S52.346B
 ;;9002226.02101,"873,S52.346B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.346C ",.01)
 ;;S52.346C
 ;;9002226.02101,"873,S52.346C ",.02)
 ;;S52.346C
 ;;9002226.02101,"873,S52.346C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.351A ",.01)
 ;;S52.351A
 ;;9002226.02101,"873,S52.351A ",.02)
 ;;S52.351A
 ;;9002226.02101,"873,S52.351A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.351B ",.01)
 ;;S52.351B
 ;;9002226.02101,"873,S52.351B ",.02)
 ;;S52.351B
 ;;9002226.02101,"873,S52.351B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.351C ",.01)
 ;;S52.351C
 ;;9002226.02101,"873,S52.351C ",.02)
 ;;S52.351C
 ;;9002226.02101,"873,S52.351C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.352A ",.01)
 ;;S52.352A
 ;;9002226.02101,"873,S52.352A ",.02)
 ;;S52.352A
 ;;9002226.02101,"873,S52.352A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.352B ",.01)
 ;;S52.352B
 ;;9002226.02101,"873,S52.352B ",.02)
 ;;S52.352B
 ;;9002226.02101,"873,S52.352B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.352C ",.01)
 ;;S52.352C
 ;;9002226.02101,"873,S52.352C ",.02)
 ;;S52.352C
 ;;9002226.02101,"873,S52.352C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.353A ",.01)
 ;;S52.353A
 ;;9002226.02101,"873,S52.353A ",.02)
 ;;S52.353A
 ;;9002226.02101,"873,S52.353A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.353B ",.01)
 ;;S52.353B
 ;;9002226.02101,"873,S52.353B ",.02)
 ;;S52.353B
 ;;9002226.02101,"873,S52.353B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.353C ",.01)
 ;;S52.353C
 ;;9002226.02101,"873,S52.353C ",.02)
 ;;S52.353C
 ;;9002226.02101,"873,S52.353C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.354A ",.01)
 ;;S52.354A
 ;;9002226.02101,"873,S52.354A ",.02)
 ;;S52.354A
 ;;9002226.02101,"873,S52.354A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.354B ",.01)
 ;;S52.354B
 ;;9002226.02101,"873,S52.354B ",.02)
 ;;S52.354B
 ;;9002226.02101,"873,S52.354B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.354C ",.01)
 ;;S52.354C
 ;;9002226.02101,"873,S52.354C ",.02)
 ;;S52.354C
 ;;9002226.02101,"873,S52.354C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.355A ",.01)
 ;;S52.355A
 ;;9002226.02101,"873,S52.355A ",.02)
 ;;S52.355A
 ;;9002226.02101,"873,S52.355A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.355B ",.01)
 ;;S52.355B
 ;;9002226.02101,"873,S52.355B ",.02)
 ;;S52.355B
 ;;9002226.02101,"873,S52.355B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.355C ",.01)
 ;;S52.355C
 ;;9002226.02101,"873,S52.355C ",.02)
 ;;S52.355C
 ;;9002226.02101,"873,S52.355C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.356A ",.01)
 ;;S52.356A
 ;;9002226.02101,"873,S52.356A ",.02)
 ;;S52.356A
 ;;9002226.02101,"873,S52.356A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.356B ",.01)
 ;;S52.356B
 ;;9002226.02101,"873,S52.356B ",.02)
 ;;S52.356B
 ;;9002226.02101,"873,S52.356B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.356C ",.01)
 ;;S52.356C
 ;;9002226.02101,"873,S52.356C ",.02)
 ;;S52.356C
 ;;9002226.02101,"873,S52.356C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.361A ",.01)
 ;;S52.361A
 ;;9002226.02101,"873,S52.361A ",.02)
 ;;S52.361A
 ;;9002226.02101,"873,S52.361A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.361B ",.01)
 ;;S52.361B
 ;;9002226.02101,"873,S52.361B ",.02)
 ;;S52.361B
 ;;9002226.02101,"873,S52.361B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.361C ",.01)
 ;;S52.361C
 ;;9002226.02101,"873,S52.361C ",.02)
 ;;S52.361C
 ;;9002226.02101,"873,S52.361C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.362A ",.01)
 ;;S52.362A
 ;;9002226.02101,"873,S52.362A ",.02)
 ;;S52.362A
 ;;9002226.02101,"873,S52.362A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.362B ",.01)
 ;;S52.362B
 ;;9002226.02101,"873,S52.362B ",.02)
 ;;S52.362B
 ;;9002226.02101,"873,S52.362B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.362C ",.01)
 ;;S52.362C
 ;;9002226.02101,"873,S52.362C ",.02)
 ;;S52.362C
 ;;9002226.02101,"873,S52.362C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.363A ",.01)
 ;;S52.363A
 ;;9002226.02101,"873,S52.363A ",.02)
 ;;S52.363A
 ;;9002226.02101,"873,S52.363A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.363B ",.01)
 ;;S52.363B
 ;;9002226.02101,"873,S52.363B ",.02)
 ;;S52.363B
 ;;9002226.02101,"873,S52.363B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.363C ",.01)
 ;;S52.363C
 ;;9002226.02101,"873,S52.363C ",.02)
 ;;S52.363C
 ;;9002226.02101,"873,S52.363C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.364A ",.01)
 ;;S52.364A
 ;;9002226.02101,"873,S52.364A ",.02)
 ;;S52.364A
 ;;9002226.02101,"873,S52.364A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.364B ",.01)
 ;;S52.364B
 ;;9002226.02101,"873,S52.364B ",.02)
 ;;S52.364B
 ;;9002226.02101,"873,S52.364B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.364C ",.01)
 ;;S52.364C
 ;;9002226.02101,"873,S52.364C ",.02)
 ;;S52.364C
 ;;9002226.02101,"873,S52.364C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.365A ",.01)
 ;;S52.365A
 ;;9002226.02101,"873,S52.365A ",.02)
 ;;S52.365A
 ;;9002226.02101,"873,S52.365A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.365B ",.01)
 ;;S52.365B
 ;;9002226.02101,"873,S52.365B ",.02)
 ;;S52.365B
 ;;9002226.02101,"873,S52.365B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.365C ",.01)
 ;;S52.365C
 ;;9002226.02101,"873,S52.365C ",.02)
 ;;S52.365C
 ;;9002226.02101,"873,S52.365C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.366A ",.01)
 ;;S52.366A
 ;;9002226.02101,"873,S52.366A ",.02)
 ;;S52.366A
 ;;9002226.02101,"873,S52.366A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.366B ",.01)
 ;;S52.366B
 ;;9002226.02101,"873,S52.366B ",.02)
 ;;S52.366B
 ;;9002226.02101,"873,S52.366B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.366C ",.01)
 ;;S52.366C
 ;;9002226.02101,"873,S52.366C ",.02)
 ;;S52.366C
 ;;9002226.02101,"873,S52.366C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.371A ",.01)
 ;;S52.371A
 ;;9002226.02101,"873,S52.371A ",.02)
 ;;S52.371A
 ;;9002226.02101,"873,S52.371A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.371B ",.01)
 ;;S52.371B
 ;;9002226.02101,"873,S52.371B ",.02)
 ;;S52.371B
 ;;9002226.02101,"873,S52.371B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.371C ",.01)
 ;;S52.371C
 ;;9002226.02101,"873,S52.371C ",.02)
 ;;S52.371C
 ;;9002226.02101,"873,S52.371C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.372A ",.01)
 ;;S52.372A
 ;;9002226.02101,"873,S52.372A ",.02)
 ;;S52.372A