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

ATXXA102.m

Go to the documentation of this file.
ATXXA102 ;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,S72.325A ",.01)
 ;;S72.325A
 ;;9002226.02101,"873,S72.325A ",.02)
 ;;S72.325A
 ;;9002226.02101,"873,S72.325A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.325B ",.01)
 ;;S72.325B
 ;;9002226.02101,"873,S72.325B ",.02)
 ;;S72.325B
 ;;9002226.02101,"873,S72.325B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.325C ",.01)
 ;;S72.325C
 ;;9002226.02101,"873,S72.325C ",.02)
 ;;S72.325C
 ;;9002226.02101,"873,S72.325C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.326A ",.01)
 ;;S72.326A
 ;;9002226.02101,"873,S72.326A ",.02)
 ;;S72.326A
 ;;9002226.02101,"873,S72.326A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.326B ",.01)
 ;;S72.326B
 ;;9002226.02101,"873,S72.326B ",.02)
 ;;S72.326B
 ;;9002226.02101,"873,S72.326B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.326C ",.01)
 ;;S72.326C
 ;;9002226.02101,"873,S72.326C ",.02)
 ;;S72.326C
 ;;9002226.02101,"873,S72.326C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.331A ",.01)
 ;;S72.331A
 ;;9002226.02101,"873,S72.331A ",.02)
 ;;S72.331A
 ;;9002226.02101,"873,S72.331A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.331B ",.01)
 ;;S72.331B
 ;;9002226.02101,"873,S72.331B ",.02)
 ;;S72.331B
 ;;9002226.02101,"873,S72.331B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.331C ",.01)
 ;;S72.331C
 ;;9002226.02101,"873,S72.331C ",.02)
 ;;S72.331C
 ;;9002226.02101,"873,S72.331C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.332A ",.01)
 ;;S72.332A
 ;;9002226.02101,"873,S72.332A ",.02)
 ;;S72.332A
 ;;9002226.02101,"873,S72.332A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.332B ",.01)
 ;;S72.332B
 ;;9002226.02101,"873,S72.332B ",.02)
 ;;S72.332B
 ;;9002226.02101,"873,S72.332B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.332C ",.01)
 ;;S72.332C
 ;;9002226.02101,"873,S72.332C ",.02)
 ;;S72.332C
 ;;9002226.02101,"873,S72.332C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.333A ",.01)
 ;;S72.333A
 ;;9002226.02101,"873,S72.333A ",.02)
 ;;S72.333A
 ;;9002226.02101,"873,S72.333A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.333B ",.01)
 ;;S72.333B
 ;;9002226.02101,"873,S72.333B ",.02)
 ;;S72.333B
 ;;9002226.02101,"873,S72.333B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.333C ",.01)
 ;;S72.333C
 ;;9002226.02101,"873,S72.333C ",.02)
 ;;S72.333C
 ;;9002226.02101,"873,S72.333C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.334A ",.01)
 ;;S72.334A
 ;;9002226.02101,"873,S72.334A ",.02)
 ;;S72.334A
 ;;9002226.02101,"873,S72.334A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.334B ",.01)
 ;;S72.334B
 ;;9002226.02101,"873,S72.334B ",.02)
 ;;S72.334B
 ;;9002226.02101,"873,S72.334B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.334C ",.01)
 ;;S72.334C
 ;;9002226.02101,"873,S72.334C ",.02)
 ;;S72.334C
 ;;9002226.02101,"873,S72.334C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.335A ",.01)
 ;;S72.335A
 ;;9002226.02101,"873,S72.335A ",.02)
 ;;S72.335A
 ;;9002226.02101,"873,S72.335A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.335B ",.01)
 ;;S72.335B
 ;;9002226.02101,"873,S72.335B ",.02)
 ;;S72.335B
 ;;9002226.02101,"873,S72.335B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.335C ",.01)
 ;;S72.335C
 ;;9002226.02101,"873,S72.335C ",.02)
 ;;S72.335C
 ;;9002226.02101,"873,S72.335C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.336A ",.01)
 ;;S72.336A
 ;;9002226.02101,"873,S72.336A ",.02)
 ;;S72.336A
 ;;9002226.02101,"873,S72.336A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.336B ",.01)
 ;;S72.336B
 ;;9002226.02101,"873,S72.336B ",.02)
 ;;S72.336B
 ;;9002226.02101,"873,S72.336B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.336C ",.01)
 ;;S72.336C
 ;;9002226.02101,"873,S72.336C ",.02)
 ;;S72.336C
 ;;9002226.02101,"873,S72.336C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.341A ",.01)
 ;;S72.341A
 ;;9002226.02101,"873,S72.341A ",.02)
 ;;S72.341A
 ;;9002226.02101,"873,S72.341A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.341B ",.01)
 ;;S72.341B
 ;;9002226.02101,"873,S72.341B ",.02)
 ;;S72.341B
 ;;9002226.02101,"873,S72.341B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.341C ",.01)
 ;;S72.341C
 ;;9002226.02101,"873,S72.341C ",.02)
 ;;S72.341C
 ;;9002226.02101,"873,S72.341C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.342A ",.01)
 ;;S72.342A
 ;;9002226.02101,"873,S72.342A ",.02)
 ;;S72.342A
 ;;9002226.02101,"873,S72.342A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.342B ",.01)
 ;;S72.342B
 ;;9002226.02101,"873,S72.342B ",.02)
 ;;S72.342B
 ;;9002226.02101,"873,S72.342B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.342C ",.01)
 ;;S72.342C
 ;;9002226.02101,"873,S72.342C ",.02)
 ;;S72.342C
 ;;9002226.02101,"873,S72.342C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.343A ",.01)
 ;;S72.343A
 ;;9002226.02101,"873,S72.343A ",.02)
 ;;S72.343A
 ;;9002226.02101,"873,S72.343A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.343B ",.01)
 ;;S72.343B
 ;;9002226.02101,"873,S72.343B ",.02)
 ;;S72.343B
 ;;9002226.02101,"873,S72.343B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.343C ",.01)
 ;;S72.343C
 ;;9002226.02101,"873,S72.343C ",.02)
 ;;S72.343C
 ;;9002226.02101,"873,S72.343C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.344A ",.01)
 ;;S72.344A
 ;;9002226.02101,"873,S72.344A ",.02)
 ;;S72.344A
 ;;9002226.02101,"873,S72.344A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.344B ",.01)
 ;;S72.344B
 ;;9002226.02101,"873,S72.344B ",.02)
 ;;S72.344B
 ;;9002226.02101,"873,S72.344B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.344C ",.01)
 ;;S72.344C
 ;;9002226.02101,"873,S72.344C ",.02)
 ;;S72.344C
 ;;9002226.02101,"873,S72.344C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.345A ",.01)
 ;;S72.345A
 ;;9002226.02101,"873,S72.345A ",.02)
 ;;S72.345A
 ;;9002226.02101,"873,S72.345A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.345B ",.01)
 ;;S72.345B
 ;;9002226.02101,"873,S72.345B ",.02)
 ;;S72.345B
 ;;9002226.02101,"873,S72.345B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.345C ",.01)
 ;;S72.345C
 ;;9002226.02101,"873,S72.345C ",.02)
 ;;S72.345C
 ;;9002226.02101,"873,S72.345C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.346A ",.01)
 ;;S72.346A
 ;;9002226.02101,"873,S72.346A ",.02)
 ;;S72.346A
 ;;9002226.02101,"873,S72.346A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.346B ",.01)
 ;;S72.346B
 ;;9002226.02101,"873,S72.346B ",.02)
 ;;S72.346B
 ;;9002226.02101,"873,S72.346B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.346C ",.01)
 ;;S72.346C
 ;;9002226.02101,"873,S72.346C ",.02)
 ;;S72.346C
 ;;9002226.02101,"873,S72.346C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.351A ",.01)
 ;;S72.351A
 ;;9002226.02101,"873,S72.351A ",.02)
 ;;S72.351A
 ;;9002226.02101,"873,S72.351A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.351B ",.01)
 ;;S72.351B
 ;;9002226.02101,"873,S72.351B ",.02)
 ;;S72.351B
 ;;9002226.02101,"873,S72.351B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.351C ",.01)
 ;;S72.351C
 ;;9002226.02101,"873,S72.351C ",.02)
 ;;S72.351C
 ;;9002226.02101,"873,S72.351C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.352A ",.01)
 ;;S72.352A
 ;;9002226.02101,"873,S72.352A ",.02)
 ;;S72.352A
 ;;9002226.02101,"873,S72.352A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.352B ",.01)
 ;;S72.352B
 ;;9002226.02101,"873,S72.352B ",.02)
 ;;S72.352B
 ;;9002226.02101,"873,S72.352B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.352C ",.01)
 ;;S72.352C
 ;;9002226.02101,"873,S72.352C ",.02)
 ;;S72.352C
 ;;9002226.02101,"873,S72.352C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.353A ",.01)
 ;;S72.353A
 ;;9002226.02101,"873,S72.353A ",.02)
 ;;S72.353A
 ;;9002226.02101,"873,S72.353A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.353B ",.01)
 ;;S72.353B
 ;;9002226.02101,"873,S72.353B ",.02)
 ;;S72.353B
 ;;9002226.02101,"873,S72.353B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.353C ",.01)
 ;;S72.353C
 ;;9002226.02101,"873,S72.353C ",.02)
 ;;S72.353C
 ;;9002226.02101,"873,S72.353C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.354A ",.01)
 ;;S72.354A
 ;;9002226.02101,"873,S72.354A ",.02)
 ;;S72.354A
 ;;9002226.02101,"873,S72.354A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.354B ",.01)
 ;;S72.354B
 ;;9002226.02101,"873,S72.354B ",.02)
 ;;S72.354B
 ;;9002226.02101,"873,S72.354B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.354C ",.01)
 ;;S72.354C
 ;;9002226.02101,"873,S72.354C ",.02)
 ;;S72.354C
 ;;9002226.02101,"873,S72.354C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.355A ",.01)
 ;;S72.355A
 ;;9002226.02101,"873,S72.355A ",.02)
 ;;S72.355A
 ;;9002226.02101,"873,S72.355A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.355B ",.01)
 ;;S72.355B
 ;;9002226.02101,"873,S72.355B ",.02)
 ;;S72.355B
 ;;9002226.02101,"873,S72.355B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.355C ",.01)
 ;;S72.355C
 ;;9002226.02101,"873,S72.355C ",.02)
 ;;S72.355C
 ;;9002226.02101,"873,S72.355C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.356A ",.01)
 ;;S72.356A
 ;;9002226.02101,"873,S72.356A ",.02)
 ;;S72.356A
 ;;9002226.02101,"873,S72.356A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.356B ",.01)
 ;;S72.356B
 ;;9002226.02101,"873,S72.356B ",.02)
 ;;S72.356B
 ;;9002226.02101,"873,S72.356B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.356C ",.01)
 ;;S72.356C
 ;;9002226.02101,"873,S72.356C ",.02)
 ;;S72.356C
 ;;9002226.02101,"873,S72.356C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.361A ",.01)
 ;;S72.361A
 ;;9002226.02101,"873,S72.361A ",.02)
 ;;S72.361A
 ;;9002226.02101,"873,S72.361A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.361B ",.01)
 ;;S72.361B
 ;;9002226.02101,"873,S72.361B ",.02)
 ;;S72.361B
 ;;9002226.02101,"873,S72.361B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.361C ",.01)
 ;;S72.361C
 ;;9002226.02101,"873,S72.361C ",.02)
 ;;S72.361C
 ;;9002226.02101,"873,S72.361C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.362A ",.01)
 ;;S72.362A
 ;;9002226.02101,"873,S72.362A ",.02)
 ;;S72.362A
 ;;9002226.02101,"873,S72.362A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.362B ",.01)
 ;;S72.362B
 ;;9002226.02101,"873,S72.362B ",.02)
 ;;S72.362B
 ;;9002226.02101,"873,S72.362B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.362C ",.01)
 ;;S72.362C
 ;;9002226.02101,"873,S72.362C ",.02)
 ;;S72.362C
 ;;9002226.02101,"873,S72.362C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.363A ",.01)
 ;;S72.363A
 ;;9002226.02101,"873,S72.363A ",.02)
 ;;S72.363A
 ;;9002226.02101,"873,S72.363A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.363B ",.01)
 ;;S72.363B
 ;;9002226.02101,"873,S72.363B ",.02)
 ;;S72.363B
 ;;9002226.02101,"873,S72.363B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.363C ",.01)
 ;;S72.363C
 ;;9002226.02101,"873,S72.363C ",.02)
 ;;S72.363C
 ;;9002226.02101,"873,S72.363C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.364A ",.01)
 ;;S72.364A
 ;;9002226.02101,"873,S72.364A ",.02)
 ;;S72.364A
 ;;9002226.02101,"873,S72.364A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.364B ",.01)
 ;;S72.364B
 ;;9002226.02101,"873,S72.364B ",.02)
 ;;S72.364B
 ;;9002226.02101,"873,S72.364B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.364C ",.01)
 ;;S72.364C
 ;;9002226.02101,"873,S72.364C ",.02)
 ;;S72.364C
 ;;9002226.02101,"873,S72.364C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.365A ",.01)
 ;;S72.365A
 ;;9002226.02101,"873,S72.365A ",.02)
 ;;S72.365A
 ;;9002226.02101,"873,S72.365A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.365B ",.01)
 ;;S72.365B
 ;;9002226.02101,"873,S72.365B ",.02)
 ;;S72.365B
 ;;9002226.02101,"873,S72.365B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.365C ",.01)
 ;;S72.365C
 ;;9002226.02101,"873,S72.365C ",.02)
 ;;S72.365C
 ;;9002226.02101,"873,S72.365C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.366A ",.01)
 ;;S72.366A
 ;;9002226.02101,"873,S72.366A ",.02)
 ;;S72.366A
 ;;9002226.02101,"873,S72.366A ",.03)
 ;;30
 ;;9002226.02101,"873,S72.366B ",.01)
 ;;S72.366B
 ;;9002226.02101,"873,S72.366B ",.02)
 ;;S72.366B
 ;;9002226.02101,"873,S72.366B ",.03)
 ;;30
 ;;9002226.02101,"873,S72.366C ",.01)
 ;;S72.366C
 ;;9002226.02101,"873,S72.366C ",.02)
 ;;S72.366C
 ;;9002226.02101,"873,S72.366C ",.03)
 ;;30
 ;;9002226.02101,"873,S72.391A ",.01)
 ;;S72.391A