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