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

ATXXA69.m

Go to the documentation of this file.
ATXXA69 ;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.255A ",.01)
 ;;S52.255A
 ;;9002226.02101,"873,S52.255A ",.02)
 ;;S52.255A
 ;;9002226.02101,"873,S52.255A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.255B ",.01)
 ;;S52.255B
 ;;9002226.02101,"873,S52.255B ",.02)
 ;;S52.255B
 ;;9002226.02101,"873,S52.255B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.255C ",.01)
 ;;S52.255C
 ;;9002226.02101,"873,S52.255C ",.02)
 ;;S52.255C
 ;;9002226.02101,"873,S52.255C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.256A ",.01)
 ;;S52.256A
 ;;9002226.02101,"873,S52.256A ",.02)
 ;;S52.256A
 ;;9002226.02101,"873,S52.256A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.256B ",.01)
 ;;S52.256B
 ;;9002226.02101,"873,S52.256B ",.02)
 ;;S52.256B
 ;;9002226.02101,"873,S52.256B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.256C ",.01)
 ;;S52.256C
 ;;9002226.02101,"873,S52.256C ",.02)
 ;;S52.256C
 ;;9002226.02101,"873,S52.256C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.261A ",.01)
 ;;S52.261A
 ;;9002226.02101,"873,S52.261A ",.02)
 ;;S52.261A
 ;;9002226.02101,"873,S52.261A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.261B ",.01)
 ;;S52.261B
 ;;9002226.02101,"873,S52.261B ",.02)
 ;;S52.261B
 ;;9002226.02101,"873,S52.261B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.261C ",.01)
 ;;S52.261C
 ;;9002226.02101,"873,S52.261C ",.02)
 ;;S52.261C
 ;;9002226.02101,"873,S52.261C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.262A ",.01)
 ;;S52.262A
 ;;9002226.02101,"873,S52.262A ",.02)
 ;;S52.262A
 ;;9002226.02101,"873,S52.262A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.262B ",.01)
 ;;S52.262B
 ;;9002226.02101,"873,S52.262B ",.02)
 ;;S52.262B
 ;;9002226.02101,"873,S52.262B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.262C ",.01)
 ;;S52.262C
 ;;9002226.02101,"873,S52.262C ",.02)
 ;;S52.262C
 ;;9002226.02101,"873,S52.262C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.263A ",.01)
 ;;S52.263A
 ;;9002226.02101,"873,S52.263A ",.02)
 ;;S52.263A
 ;;9002226.02101,"873,S52.263A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.263B ",.01)
 ;;S52.263B
 ;;9002226.02101,"873,S52.263B ",.02)
 ;;S52.263B
 ;;9002226.02101,"873,S52.263B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.263C ",.01)
 ;;S52.263C
 ;;9002226.02101,"873,S52.263C ",.02)
 ;;S52.263C
 ;;9002226.02101,"873,S52.263C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.264A ",.01)
 ;;S52.264A
 ;;9002226.02101,"873,S52.264A ",.02)
 ;;S52.264A
 ;;9002226.02101,"873,S52.264A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.264B ",.01)
 ;;S52.264B
 ;;9002226.02101,"873,S52.264B ",.02)
 ;;S52.264B
 ;;9002226.02101,"873,S52.264B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.264C ",.01)
 ;;S52.264C
 ;;9002226.02101,"873,S52.264C ",.02)
 ;;S52.264C
 ;;9002226.02101,"873,S52.264C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.265A ",.01)
 ;;S52.265A
 ;;9002226.02101,"873,S52.265A ",.02)
 ;;S52.265A
 ;;9002226.02101,"873,S52.265A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.265B ",.01)
 ;;S52.265B
 ;;9002226.02101,"873,S52.265B ",.02)
 ;;S52.265B
 ;;9002226.02101,"873,S52.265B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.265C ",.01)
 ;;S52.265C
 ;;9002226.02101,"873,S52.265C ",.02)
 ;;S52.265C
 ;;9002226.02101,"873,S52.265C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.266A ",.01)
 ;;S52.266A
 ;;9002226.02101,"873,S52.266A ",.02)
 ;;S52.266A
 ;;9002226.02101,"873,S52.266A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.266B ",.01)
 ;;S52.266B
 ;;9002226.02101,"873,S52.266B ",.02)
 ;;S52.266B
 ;;9002226.02101,"873,S52.266B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.266C ",.01)
 ;;S52.266C
 ;;9002226.02101,"873,S52.266C ",.02)
 ;;S52.266C
 ;;9002226.02101,"873,S52.266C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.271A ",.01)
 ;;S52.271A
 ;;9002226.02101,"873,S52.271A ",.02)
 ;;S52.271A
 ;;9002226.02101,"873,S52.271A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.271B ",.01)
 ;;S52.271B
 ;;9002226.02101,"873,S52.271B ",.02)
 ;;S52.271B
 ;;9002226.02101,"873,S52.271B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.271C ",.01)
 ;;S52.271C
 ;;9002226.02101,"873,S52.271C ",.02)
 ;;S52.271C
 ;;9002226.02101,"873,S52.271C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.272A ",.01)
 ;;S52.272A
 ;;9002226.02101,"873,S52.272A ",.02)
 ;;S52.272A
 ;;9002226.02101,"873,S52.272A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.272B ",.01)
 ;;S52.272B
 ;;9002226.02101,"873,S52.272B ",.02)
 ;;S52.272B
 ;;9002226.02101,"873,S52.272B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.272C ",.01)
 ;;S52.272C
 ;;9002226.02101,"873,S52.272C ",.02)
 ;;S52.272C
 ;;9002226.02101,"873,S52.272C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.279A ",.01)
 ;;S52.279A
 ;;9002226.02101,"873,S52.279A ",.02)
 ;;S52.279A
 ;;9002226.02101,"873,S52.279A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.279B ",.01)
 ;;S52.279B
 ;;9002226.02101,"873,S52.279B ",.02)
 ;;S52.279B
 ;;9002226.02101,"873,S52.279B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.279C ",.01)
 ;;S52.279C
 ;;9002226.02101,"873,S52.279C ",.02)
 ;;S52.279C
 ;;9002226.02101,"873,S52.279C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.281A ",.01)
 ;;S52.281A
 ;;9002226.02101,"873,S52.281A ",.02)
 ;;S52.281A
 ;;9002226.02101,"873,S52.281A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.281B ",.01)
 ;;S52.281B
 ;;9002226.02101,"873,S52.281B ",.02)
 ;;S52.281B
 ;;9002226.02101,"873,S52.281B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.281C ",.01)
 ;;S52.281C
 ;;9002226.02101,"873,S52.281C ",.02)
 ;;S52.281C
 ;;9002226.02101,"873,S52.281C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.282A ",.01)
 ;;S52.282A
 ;;9002226.02101,"873,S52.282A ",.02)
 ;;S52.282A
 ;;9002226.02101,"873,S52.282A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.282B ",.01)
 ;;S52.282B
 ;;9002226.02101,"873,S52.282B ",.02)
 ;;S52.282B
 ;;9002226.02101,"873,S52.282B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.282C ",.01)
 ;;S52.282C
 ;;9002226.02101,"873,S52.282C ",.02)
 ;;S52.282C
 ;;9002226.02101,"873,S52.282C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.283A ",.01)
 ;;S52.283A
 ;;9002226.02101,"873,S52.283A ",.02)
 ;;S52.283A
 ;;9002226.02101,"873,S52.283A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.283B ",.01)
 ;;S52.283B
 ;;9002226.02101,"873,S52.283B ",.02)
 ;;S52.283B
 ;;9002226.02101,"873,S52.283B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.283C ",.01)
 ;;S52.283C
 ;;9002226.02101,"873,S52.283C ",.02)
 ;;S52.283C
 ;;9002226.02101,"873,S52.283C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.291A ",.01)
 ;;S52.291A
 ;;9002226.02101,"873,S52.291A ",.02)
 ;;S52.291A
 ;;9002226.02101,"873,S52.291A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.291B ",.01)
 ;;S52.291B
 ;;9002226.02101,"873,S52.291B ",.02)
 ;;S52.291B
 ;;9002226.02101,"873,S52.291B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.291C ",.01)
 ;;S52.291C
 ;;9002226.02101,"873,S52.291C ",.02)
 ;;S52.291C
 ;;9002226.02101,"873,S52.291C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.292A ",.01)
 ;;S52.292A
 ;;9002226.02101,"873,S52.292A ",.02)
 ;;S52.292A
 ;;9002226.02101,"873,S52.292A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.292B ",.01)
 ;;S52.292B
 ;;9002226.02101,"873,S52.292B ",.02)
 ;;S52.292B
 ;;9002226.02101,"873,S52.292B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.292C ",.01)
 ;;S52.292C
 ;;9002226.02101,"873,S52.292C ",.02)
 ;;S52.292C
 ;;9002226.02101,"873,S52.292C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.299A ",.01)
 ;;S52.299A
 ;;9002226.02101,"873,S52.299A ",.02)
 ;;S52.299A
 ;;9002226.02101,"873,S52.299A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.299B ",.01)
 ;;S52.299B
 ;;9002226.02101,"873,S52.299B ",.02)
 ;;S52.299B
 ;;9002226.02101,"873,S52.299B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.299C ",.01)
 ;;S52.299C
 ;;9002226.02101,"873,S52.299C ",.02)
 ;;S52.299C
 ;;9002226.02101,"873,S52.299C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.301A ",.01)
 ;;S52.301A
 ;;9002226.02101,"873,S52.301A ",.02)
 ;;S52.301A
 ;;9002226.02101,"873,S52.301A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.301B ",.01)
 ;;S52.301B
 ;;9002226.02101,"873,S52.301B ",.02)
 ;;S52.301B
 ;;9002226.02101,"873,S52.301B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.301C ",.01)
 ;;S52.301C
 ;;9002226.02101,"873,S52.301C ",.02)
 ;;S52.301C
 ;;9002226.02101,"873,S52.301C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.302A ",.01)
 ;;S52.302A
 ;;9002226.02101,"873,S52.302A ",.02)
 ;;S52.302A
 ;;9002226.02101,"873,S52.302A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.302B ",.01)
 ;;S52.302B
 ;;9002226.02101,"873,S52.302B ",.02)
 ;;S52.302B
 ;;9002226.02101,"873,S52.302B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.302C ",.01)
 ;;S52.302C
 ;;9002226.02101,"873,S52.302C ",.02)
 ;;S52.302C
 ;;9002226.02101,"873,S52.302C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.309A ",.01)
 ;;S52.309A
 ;;9002226.02101,"873,S52.309A ",.02)
 ;;S52.309A
 ;;9002226.02101,"873,S52.309A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.309B ",.01)
 ;;S52.309B
 ;;9002226.02101,"873,S52.309B ",.02)
 ;;S52.309B
 ;;9002226.02101,"873,S52.309B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.309C ",.01)
 ;;S52.309C
 ;;9002226.02101,"873,S52.309C ",.02)
 ;;S52.309C
 ;;9002226.02101,"873,S52.309C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.311A ",.01)
 ;;S52.311A
 ;;9002226.02101,"873,S52.311A ",.02)
 ;;S52.311A
 ;;9002226.02101,"873,S52.311A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.312A ",.01)
 ;;S52.312A
 ;;9002226.02101,"873,S52.312A ",.02)
 ;;S52.312A
 ;;9002226.02101,"873,S52.312A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.319A ",.01)
 ;;S52.319A
 ;;9002226.02101,"873,S52.319A ",.02)
 ;;S52.319A
 ;;9002226.02101,"873,S52.319A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.321A ",.01)
 ;;S52.321A
 ;;9002226.02101,"873,S52.321A ",.02)
 ;;S52.321A
 ;;9002226.02101,"873,S52.321A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.321B ",.01)
 ;;S52.321B
 ;;9002226.02101,"873,S52.321B ",.02)
 ;;S52.321B
 ;;9002226.02101,"873,S52.321B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.321C ",.01)
 ;;S52.321C
 ;;9002226.02101,"873,S52.321C ",.02)
 ;;S52.321C
 ;;9002226.02101,"873,S52.321C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.322A ",.01)
 ;;S52.322A
 ;;9002226.02101,"873,S52.322A ",.02)
 ;;S52.322A
 ;;9002226.02101,"873,S52.322A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.322B ",.01)
 ;;S52.322B
 ;;9002226.02101,"873,S52.322B ",.02)
 ;;S52.322B
 ;;9002226.02101,"873,S52.322B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.322C ",.01)
 ;;S52.322C
 ;;9002226.02101,"873,S52.322C ",.02)
 ;;S52.322C
 ;;9002226.02101,"873,S52.322C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.323A ",.01)
 ;;S52.323A
 ;;9002226.02101,"873,S52.323A ",.02)
 ;;S52.323A
 ;;9002226.02101,"873,S52.323A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.323B ",.01)
 ;;S52.323B
 ;;9002226.02101,"873,S52.323B ",.02)
 ;;S52.323B
 ;;9002226.02101,"873,S52.323B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.323C ",.01)
 ;;S52.323C
 ;;9002226.02101,"873,S52.323C ",.02)
 ;;S52.323C
 ;;9002226.02101,"873,S52.323C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.324A ",.01)
 ;;S52.324A
 ;;9002226.02101,"873,S52.324A ",.02)
 ;;S52.324A
 ;;9002226.02101,"873,S52.324A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.324B ",.01)
 ;;S52.324B
 ;;9002226.02101,"873,S52.324B ",.02)
 ;;S52.324B
 ;;9002226.02101,"873,S52.324B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.324C ",.01)
 ;;S52.324C
 ;;9002226.02101,"873,S52.324C ",.02)
 ;;S52.324C
 ;;9002226.02101,"873,S52.324C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.325A ",.01)
 ;;S52.325A
 ;;9002226.02101,"873,S52.325A ",.02)
 ;;S52.325A
 ;;9002226.02101,"873,S52.325A ",.03)
 ;;30
 ;;9002226.02101,"873,S52.325B ",.01)
 ;;S52.325B
 ;;9002226.02101,"873,S52.325B ",.02)
 ;;S52.325B
 ;;9002226.02101,"873,S52.325B ",.03)
 ;;30
 ;;9002226.02101,"873,S52.325C ",.01)
 ;;S52.325C
 ;;9002226.02101,"873,S52.325C ",.02)
 ;;S52.325C
 ;;9002226.02101,"873,S52.325C ",.03)
 ;;30
 ;;9002226.02101,"873,S52.326A ",.01)
 ;;S52.326A