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

ATXXA71.m

Go to the documentation of this file.
ATXXA71 ;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.372A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.372B ",.01)
 ;;S52.372B
 ;;9002226.02101,"873,S52.372B ",.02)
 ;;S52.372B
 ;;9002226.02101,"873,S52.372B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.372C ",.01)
 ;;S52.372C
 ;;9002226.02101,"873,S52.372C ",.02)
 ;;S52.372C
 ;;9002226.02101,"873,S52.372C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.379A ",.01)
 ;;S52.379A
 ;;9002226.02101,"873,S52.379A ",.02)
 ;;S52.379A
 ;;9002226.02101,"873,S52.379A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.379B ",.01)
 ;;S52.379B
 ;;9002226.02101,"873,S52.379B ",.02)
 ;;S52.379B
 ;;9002226.02101,"873,S52.379B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.379C ",.01)
 ;;S52.379C
 ;;9002226.02101,"873,S52.379C ",.02)
 ;;S52.379C
 ;;9002226.02101,"873,S52.379C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.381A ",.01)
 ;;S52.381A
 ;;9002226.02101,"873,S52.381A ",.02)
 ;;S52.381A
 ;;9002226.02101,"873,S52.381A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.381B ",.01)
 ;;S52.381B
 ;;9002226.02101,"873,S52.381B ",.02)
 ;;S52.381B
 ;;9002226.02101,"873,S52.381B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.381C ",.01)
 ;;S52.381C
 ;;9002226.02101,"873,S52.381C ",.02)
 ;;S52.381C
 ;;9002226.02101,"873,S52.381C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.382A ",.01)
 ;;S52.382A
 ;;9002226.02101,"873,S52.382A ",.02)
 ;;S52.382A
 ;;9002226.02101,"873,S52.382A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.382B ",.01)
 ;;S52.382B
 ;;9002226.02101,"873,S52.382B ",.02)
 ;;S52.382B
 ;;9002226.02101,"873,S52.382B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.382C ",.01)
 ;;S52.382C
 ;;9002226.02101,"873,S52.382C ",.02)
 ;;S52.382C
 ;;9002226.02101,"873,S52.382C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.389A ",.01)
 ;;S52.389A
 ;;9002226.02101,"873,S52.389A ",.02)
 ;;S52.389A
 ;;9002226.02101,"873,S52.389A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.389B ",.01)
 ;;S52.389B
 ;;9002226.02101,"873,S52.389B ",.02)
 ;;S52.389B
 ;;9002226.02101,"873,S52.389B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.389C ",.01)
 ;;S52.389C
 ;;9002226.02101,"873,S52.389C ",.02)
 ;;S52.389C
 ;;9002226.02101,"873,S52.389C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.391A ",.01)
 ;;S52.391A
 ;;9002226.02101,"873,S52.391A ",.02)
 ;;S52.391A
 ;;9002226.02101,"873,S52.391A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.391B ",.01)
 ;;S52.391B
 ;;9002226.02101,"873,S52.391B ",.02)
 ;;S52.391B
 ;;9002226.02101,"873,S52.391B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.391C ",.01)
 ;;S52.391C
 ;;9002226.02101,"873,S52.391C ",.02)
 ;;S52.391C
 ;;9002226.02101,"873,S52.391C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.392A ",.01)
 ;;S52.392A
 ;;9002226.02101,"873,S52.392A ",.02)
 ;;S52.392A
 ;;9002226.02101,"873,S52.392A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.392B ",.01)
 ;;S52.392B
 ;;9002226.02101,"873,S52.392B ",.02)
 ;;S52.392B
 ;;9002226.02101,"873,S52.392B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.392C ",.01)
 ;;S52.392C
 ;;9002226.02101,"873,S52.392C ",.02)
 ;;S52.392C
 ;;9002226.02101,"873,S52.392C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.399A ",.01)
 ;;S52.399A
 ;;9002226.02101,"873,S52.399A ",.02)
 ;;S52.399A
 ;;9002226.02101,"873,S52.399A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.399B ",.01)
 ;;S52.399B
 ;;9002226.02101,"873,S52.399B ",.02)
 ;;S52.399B
 ;;9002226.02101,"873,S52.399B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.399C ",.01)
 ;;S52.399C
 ;;9002226.02101,"873,S52.399C ",.02)
 ;;S52.399C
 ;;9002226.02101,"873,S52.399C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.501A ",.01)
 ;;S52.501A
 ;;9002226.02101,"873,S52.501A ",.02)
 ;;S52.501A
 ;;9002226.02101,"873,S52.501A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.501B ",.01)
 ;;S52.501B
 ;;9002226.02101,"873,S52.501B ",.02)
 ;;S52.501B
 ;;9002226.02101,"873,S52.501B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.501C ",.01)
 ;;S52.501C
 ;;9002226.02101,"873,S52.501C ",.02)
 ;;S52.501C
 ;;9002226.02101,"873,S52.501C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.502A ",.01)
 ;;S52.502A
 ;;9002226.02101,"873,S52.502A ",.02)
 ;;S52.502A
 ;;9002226.02101,"873,S52.502A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.502B ",.01)
 ;;S52.502B
 ;;9002226.02101,"873,S52.502B ",.02)
 ;;S52.502B
 ;;9002226.02101,"873,S52.502B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.502C ",.01)
 ;;S52.502C
 ;;9002226.02101,"873,S52.502C ",.02)
 ;;S52.502C
 ;;9002226.02101,"873,S52.502C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.509A ",.01)
 ;;S52.509A
 ;;9002226.02101,"873,S52.509A ",.02)
 ;;S52.509A
 ;;9002226.02101,"873,S52.509A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.509B ",.01)
 ;;S52.509B
 ;;9002226.02101,"873,S52.509B ",.02)
 ;;S52.509B
 ;;9002226.02101,"873,S52.509B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.509C ",.01)
 ;;S52.509C
 ;;9002226.02101,"873,S52.509C ",.02)
 ;;S52.509C
 ;;9002226.02101,"873,S52.509C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.511A ",.01)
 ;;S52.511A
 ;;9002226.02101,"873,S52.511A ",.02)
 ;;S52.511A
 ;;9002226.02101,"873,S52.511A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.511B ",.01)
 ;;S52.511B
 ;;9002226.02101,"873,S52.511B ",.02)
 ;;S52.511B
 ;;9002226.02101,"873,S52.511B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.511C ",.01)
 ;;S52.511C
 ;;9002226.02101,"873,S52.511C ",.02)
 ;;S52.511C
 ;;9002226.02101,"873,S52.511C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.512A ",.01)
 ;;S52.512A
 ;;9002226.02101,"873,S52.512A ",.02)
 ;;S52.512A
 ;;9002226.02101,"873,S52.512A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.512B ",.01)
 ;;S52.512B
 ;;9002226.02101,"873,S52.512B ",.02)
 ;;S52.512B
 ;;9002226.02101,"873,S52.512B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.512C ",.01)
 ;;S52.512C
 ;;9002226.02101,"873,S52.512C ",.02)
 ;;S52.512C
 ;;9002226.02101,"873,S52.512C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.513A ",.01)
 ;;S52.513A
 ;;9002226.02101,"873,S52.513A ",.02)
 ;;S52.513A
 ;;9002226.02101,"873,S52.513A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.513B ",.01)
 ;;S52.513B
 ;;9002226.02101,"873,S52.513B ",.02)
 ;;S52.513B
 ;;9002226.02101,"873,S52.513B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.513C ",.01)
 ;;S52.513C
 ;;9002226.02101,"873,S52.513C ",.02)
 ;;S52.513C
 ;;9002226.02101,"873,S52.513C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.514A ",.01)
 ;;S52.514A
 ;;9002226.02101,"873,S52.514A ",.02)
 ;;S52.514A
 ;;9002226.02101,"873,S52.514A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.514B ",.01)
 ;;S52.514B
 ;;9002226.02101,"873,S52.514B ",.02)
 ;;S52.514B
 ;;9002226.02101,"873,S52.514B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.514C ",.01)
 ;;S52.514C
 ;;9002226.02101,"873,S52.514C ",.02)
 ;;S52.514C
 ;;9002226.02101,"873,S52.514C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.515A ",.01)
 ;;S52.515A
 ;;9002226.02101,"873,S52.515A ",.02)
 ;;S52.515A
 ;;9002226.02101,"873,S52.515A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.515B ",.01)
 ;;S52.515B
 ;;9002226.02101,"873,S52.515B ",.02)
 ;;S52.515B
 ;;9002226.02101,"873,S52.515B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.515C ",.01)
 ;;S52.515C
 ;;9002226.02101,"873,S52.515C ",.02)
 ;;S52.515C
 ;;9002226.02101,"873,S52.515C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.516A ",.01)
 ;;S52.516A
 ;;9002226.02101,"873,S52.516A ",.02)
 ;;S52.516A
 ;;9002226.02101,"873,S52.516A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.516B ",.01)
 ;;S52.516B
 ;;9002226.02101,"873,S52.516B ",.02)
 ;;S52.516B
 ;;9002226.02101,"873,S52.516B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.516C ",.01)
 ;;S52.516C
 ;;9002226.02101,"873,S52.516C ",.02)
 ;;S52.516C
 ;;9002226.02101,"873,S52.516C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.521A ",.01)
 ;;S52.521A
 ;;9002226.02101,"873,S52.521A ",.02)
 ;;S52.521A
 ;;9002226.02101,"873,S52.521A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.522A ",.01)
 ;;S52.522A
 ;;9002226.02101,"873,S52.522A ",.02)
 ;;S52.522A
 ;;9002226.02101,"873,S52.522A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.529A ",.01)
 ;;S52.529A
 ;;9002226.02101,"873,S52.529A ",.02)
 ;;S52.529A
 ;;9002226.02101,"873,S52.529A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.531A ",.01)
 ;;S52.531A
 ;;9002226.02101,"873,S52.531A ",.02)
 ;;S52.531A
 ;;9002226.02101,"873,S52.531A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.531B ",.01)
 ;;S52.531B
 ;;9002226.02101,"873,S52.531B ",.02)
 ;;S52.531B
 ;;9002226.02101,"873,S52.531B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.531C ",.01)
 ;;S52.531C
 ;;9002226.02101,"873,S52.531C ",.02)
 ;;S52.531C
 ;;9002226.02101,"873,S52.531C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.532A ",.01)
 ;;S52.532A
 ;;9002226.02101,"873,S52.532A ",.02)
 ;;S52.532A
 ;;9002226.02101,"873,S52.532A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.532B ",.01)
 ;;S52.532B
 ;;9002226.02101,"873,S52.532B ",.02)
 ;;S52.532B
 ;;9002226.02101,"873,S52.532B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.532C ",.01)
 ;;S52.532C
 ;;9002226.02101,"873,S52.532C ",.02)
 ;;S52.532C
 ;;9002226.02101,"873,S52.532C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.539A ",.01)
 ;;S52.539A
 ;;9002226.02101,"873,S52.539A ",.02)
 ;;S52.539A
 ;;9002226.02101,"873,S52.539A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.539B ",.01)
 ;;S52.539B
 ;;9002226.02101,"873,S52.539B ",.02)
 ;;S52.539B
 ;;9002226.02101,"873,S52.539B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.539C ",.01)
 ;;S52.539C
 ;;9002226.02101,"873,S52.539C ",.02)
 ;;S52.539C
 ;;9002226.02101,"873,S52.539C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.541A ",.01)
 ;;S52.541A
 ;;9002226.02101,"873,S52.541A ",.02)
 ;;S52.541A
 ;;9002226.02101,"873,S52.541A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.541B ",.01)
 ;;S52.541B
 ;;9002226.02101,"873,S52.541B ",.02)
 ;;S52.541B
 ;;9002226.02101,"873,S52.541B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.541C ",.01)
 ;;S52.541C
 ;;9002226.02101,"873,S52.541C ",.02)
 ;;S52.541C
 ;;9002226.02101,"873,S52.541C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.542A ",.01)
 ;;S52.542A
 ;;9002226.02101,"873,S52.542A ",.02)
 ;;S52.542A
 ;;9002226.02101,"873,S52.542A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.542B ",.01)
 ;;S52.542B
 ;;9002226.02101,"873,S52.542B ",.02)
 ;;S52.542B
 ;;9002226.02101,"873,S52.542B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.542C ",.01)
 ;;S52.542C
 ;;9002226.02101,"873,S52.542C ",.02)
 ;;S52.542C
 ;;9002226.02101,"873,S52.542C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.549A ",.01)
 ;;S52.549A
 ;;9002226.02101,"873,S52.549A ",.02)
 ;;S52.549A
 ;;9002226.02101,"873,S52.549A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.549B ",.01)
 ;;S52.549B
 ;;9002226.02101,"873,S52.549B ",.02)
 ;;S52.549B
 ;;9002226.02101,"873,S52.549B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.549C ",.01)
 ;;S52.549C
 ;;9002226.02101,"873,S52.549C ",.02)
 ;;S52.549C
 ;;9002226.02101,"873,S52.549C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.551A ",.01)
 ;;S52.551A
 ;;9002226.02101,"873,S52.551A ",.02)
 ;;S52.551A
 ;;9002226.02101,"873,S52.551A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.551B ",.01)
 ;;S52.551B
 ;;9002226.02101,"873,S52.551B ",.02)
 ;;S52.551B
 ;;9002226.02101,"873,S52.551B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.551C ",.01)
 ;;S52.551C
 ;;9002226.02101,"873,S52.551C ",.02)
 ;;S52.551C
 ;;9002226.02101,"873,S52.551C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.552A ",.01)
 ;;S52.552A
 ;;9002226.02101,"873,S52.552A ",.02)
 ;;S52.552A
 ;;9002226.02101,"873,S52.552A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.552B ",.01)
 ;;S52.552B
 ;;9002226.02101,"873,S52.552B ",.02)
 ;;S52.552B
 ;;9002226.02101,"873,S52.552B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.552C ",.01)
 ;;S52.552C
 ;;9002226.02101,"873,S52.552C ",.02)
 ;;S52.552C
 ;;9002226.02101,"873,S52.552C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.559A ",.01)
 ;;S52.559A
 ;;9002226.02101,"873,S52.559A ",.02)
 ;;S52.559A
 ;;9002226.02101,"873,S52.559A ",.03)
 ;;30