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

ATXXB221.m

Go to the documentation of this file.
ATXXB221 ;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,"1804,D7Y38ZZ ",.02)
 ;;D7Y38ZZ 
 ;;9002226.02101,"1804,D7Y38ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D7Y3FZZ ",.01)
 ;;D7Y3FZZ 
 ;;9002226.02101,"1804,D7Y3FZZ ",.02)
 ;;D7Y3FZZ 
 ;;9002226.02101,"1804,D7Y3FZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D7Y48ZZ ",.01)
 ;;D7Y48ZZ 
 ;;9002226.02101,"1804,D7Y48ZZ ",.02)
 ;;D7Y48ZZ 
 ;;9002226.02101,"1804,D7Y48ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D7Y4FZZ ",.01)
 ;;D7Y4FZZ 
 ;;9002226.02101,"1804,D7Y4FZZ ",.02)
 ;;D7Y4FZZ 
 ;;9002226.02101,"1804,D7Y4FZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D7Y58ZZ ",.01)
 ;;D7Y58ZZ 
 ;;9002226.02101,"1804,D7Y58ZZ ",.02)
 ;;D7Y58ZZ 
 ;;9002226.02101,"1804,D7Y58ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D7Y5FZZ ",.01)
 ;;D7Y5FZZ 
 ;;9002226.02101,"1804,D7Y5FZZ ",.02)
 ;;D7Y5FZZ 
 ;;9002226.02101,"1804,D7Y5FZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D7Y68ZZ ",.01)
 ;;D7Y68ZZ 
 ;;9002226.02101,"1804,D7Y68ZZ ",.02)
 ;;D7Y68ZZ 
 ;;9002226.02101,"1804,D7Y68ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D7Y6FZZ ",.01)
 ;;D7Y6FZZ 
 ;;9002226.02101,"1804,D7Y6FZZ ",.02)
 ;;D7Y6FZZ 
 ;;9002226.02101,"1804,D7Y6FZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D7Y78ZZ ",.01)
 ;;D7Y78ZZ 
 ;;9002226.02101,"1804,D7Y78ZZ ",.02)
 ;;D7Y78ZZ 
 ;;9002226.02101,"1804,D7Y78ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D7Y7FZZ ",.01)
 ;;D7Y7FZZ 
 ;;9002226.02101,"1804,D7Y7FZZ ",.02)
 ;;D7Y7FZZ 
 ;;9002226.02101,"1804,D7Y7FZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D7Y88ZZ ",.01)
 ;;D7Y88ZZ 
 ;;9002226.02101,"1804,D7Y88ZZ ",.02)
 ;;D7Y88ZZ 
 ;;9002226.02101,"1804,D7Y88ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D7Y8FZZ ",.01)
 ;;D7Y8FZZ 
 ;;9002226.02101,"1804,D7Y8FZZ ",.02)
 ;;D7Y8FZZ 
 ;;9002226.02101,"1804,D7Y8FZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D8000ZZ ",.01)
 ;;D8000ZZ 
 ;;9002226.02101,"1804,D8000ZZ ",.02)
 ;;D8000ZZ 
 ;;9002226.02101,"1804,D8000ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D8001ZZ ",.01)
 ;;D8001ZZ 
 ;;9002226.02101,"1804,D8001ZZ ",.02)
 ;;D8001ZZ 
 ;;9002226.02101,"1804,D8001ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D8002ZZ ",.01)
 ;;D8002ZZ 
 ;;9002226.02101,"1804,D8002ZZ ",.02)
 ;;D8002ZZ 
 ;;9002226.02101,"1804,D8002ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D8003Z0 ",.01)
 ;;D8003Z0 
 ;;9002226.02101,"1804,D8003Z0 ",.02)
 ;;D8003Z0 
 ;;9002226.02101,"1804,D8003Z0 ",.03)
 ;;31
 ;;9002226.02101,"1804,D8003ZZ ",.01)
 ;;D8003ZZ 
 ;;9002226.02101,"1804,D8003ZZ ",.02)
 ;;D8003ZZ 
 ;;9002226.02101,"1804,D8003ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D8004ZZ ",.01)
 ;;D8004ZZ 
 ;;9002226.02101,"1804,D8004ZZ ",.02)
 ;;D8004ZZ 
 ;;9002226.02101,"1804,D8004ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D8005ZZ ",.01)
 ;;D8005ZZ 
 ;;9002226.02101,"1804,D8005ZZ ",.02)
 ;;D8005ZZ 
 ;;9002226.02101,"1804,D8005ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D8006ZZ ",.01)
 ;;D8006ZZ 
 ;;9002226.02101,"1804,D8006ZZ ",.02)
 ;;D8006ZZ 
 ;;9002226.02101,"1804,D8006ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D81097Z ",.01)
 ;;D81097Z 
 ;;9002226.02101,"1804,D81097Z ",.02)
 ;;D81097Z 
 ;;9002226.02101,"1804,D81097Z ",.03)
 ;;31
 ;;9002226.02101,"1804,D81098Z ",.01)
 ;;D81098Z 
 ;;9002226.02101,"1804,D81098Z ",.02)
 ;;D81098Z 
 ;;9002226.02101,"1804,D81098Z ",.03)
 ;;31
 ;;9002226.02101,"1804,D81099Z ",.01)
 ;;D81099Z 
 ;;9002226.02101,"1804,D81099Z ",.02)
 ;;D81099Z 
 ;;9002226.02101,"1804,D81099Z ",.03)
 ;;31
 ;;9002226.02101,"1804,D8109BZ ",.01)
 ;;D8109BZ 
 ;;9002226.02101,"1804,D8109BZ ",.02)
 ;;D8109BZ 
 ;;9002226.02101,"1804,D8109BZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D8109CZ ",.01)
 ;;D8109CZ 
 ;;9002226.02101,"1804,D8109CZ ",.02)
 ;;D8109CZ 
 ;;9002226.02101,"1804,D8109CZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D8109YZ ",.01)
 ;;D8109YZ 
 ;;9002226.02101,"1804,D8109YZ ",.02)
 ;;D8109YZ 
 ;;9002226.02101,"1804,D8109YZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D810B7Z ",.01)
 ;;D810B7Z 
 ;;9002226.02101,"1804,D810B7Z ",.02)
 ;;D810B7Z 
 ;;9002226.02101,"1804,D810B7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,D810B8Z ",.01)
 ;;D810B8Z 
 ;;9002226.02101,"1804,D810B8Z ",.02)
 ;;D810B8Z 
 ;;9002226.02101,"1804,D810B8Z ",.03)
 ;;31
 ;;9002226.02101,"1804,D810B9Z ",.01)
 ;;D810B9Z 
 ;;9002226.02101,"1804,D810B9Z ",.02)
 ;;D810B9Z 
 ;;9002226.02101,"1804,D810B9Z ",.03)
 ;;31
 ;;9002226.02101,"1804,D810BBZ ",.01)
 ;;D810BBZ 
 ;;9002226.02101,"1804,D810BBZ ",.02)
 ;;D810BBZ 
 ;;9002226.02101,"1804,D810BBZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D810BCZ ",.01)
 ;;D810BCZ 
 ;;9002226.02101,"1804,D810BCZ ",.02)
 ;;D810BCZ 
 ;;9002226.02101,"1804,D810BCZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D810BYZ ",.01)
 ;;D810BYZ 
 ;;9002226.02101,"1804,D810BYZ ",.02)
 ;;D810BYZ 
 ;;9002226.02101,"1804,D810BYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D820DZZ ",.01)
 ;;D820DZZ 
 ;;9002226.02101,"1804,D820DZZ ",.02)
 ;;D820DZZ 
 ;;9002226.02101,"1804,D820DZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D820HZZ ",.01)
 ;;D820HZZ 
 ;;9002226.02101,"1804,D820HZZ ",.02)
 ;;D820HZZ 
 ;;9002226.02101,"1804,D820HZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D820JZZ ",.01)
 ;;D820JZZ 
 ;;9002226.02101,"1804,D820JZZ ",.02)
 ;;D820JZZ 
 ;;9002226.02101,"1804,D820JZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D8Y07ZZ ",.01)
 ;;D8Y07ZZ 
 ;;9002226.02101,"1804,D8Y07ZZ ",.02)
 ;;D8Y07ZZ 
 ;;9002226.02101,"1804,D8Y07ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D8Y08ZZ ",.01)
 ;;D8Y08ZZ 
 ;;9002226.02101,"1804,D8Y08ZZ ",.02)
 ;;D8Y08ZZ 
 ;;9002226.02101,"1804,D8Y08ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D8Y0FZZ ",.01)
 ;;D8Y0FZZ 
 ;;9002226.02101,"1804,D8Y0FZZ ",.02)
 ;;D8Y0FZZ 
 ;;9002226.02101,"1804,D8Y0FZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9000ZZ ",.01)
 ;;D9000ZZ 
 ;;9002226.02101,"1804,D9000ZZ ",.02)
 ;;D9000ZZ 
 ;;9002226.02101,"1804,D9000ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9001ZZ ",.01)
 ;;D9001ZZ 
 ;;9002226.02101,"1804,D9001ZZ ",.02)
 ;;D9001ZZ 
 ;;9002226.02101,"1804,D9001ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9002ZZ ",.01)
 ;;D9002ZZ 
 ;;9002226.02101,"1804,D9002ZZ ",.02)
 ;;D9002ZZ 
 ;;9002226.02101,"1804,D9002ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9003Z0 ",.01)
 ;;D9003Z0 
 ;;9002226.02101,"1804,D9003Z0 ",.02)
 ;;D9003Z0 
 ;;9002226.02101,"1804,D9003Z0 ",.03)
 ;;31
 ;;9002226.02101,"1804,D9003ZZ ",.01)
 ;;D9003ZZ 
 ;;9002226.02101,"1804,D9003ZZ ",.02)
 ;;D9003ZZ 
 ;;9002226.02101,"1804,D9003ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9004ZZ ",.01)
 ;;D9004ZZ 
 ;;9002226.02101,"1804,D9004ZZ ",.02)
 ;;D9004ZZ 
 ;;9002226.02101,"1804,D9004ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9005ZZ ",.01)
 ;;D9005ZZ 
 ;;9002226.02101,"1804,D9005ZZ ",.02)
 ;;D9005ZZ 
 ;;9002226.02101,"1804,D9005ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9006ZZ ",.01)
 ;;D9006ZZ 
 ;;9002226.02101,"1804,D9006ZZ ",.02)
 ;;D9006ZZ 
 ;;9002226.02101,"1804,D9006ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9010ZZ ",.01)
 ;;D9010ZZ 
 ;;9002226.02101,"1804,D9010ZZ ",.02)
 ;;D9010ZZ 
 ;;9002226.02101,"1804,D9010ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9011ZZ ",.01)
 ;;D9011ZZ 
 ;;9002226.02101,"1804,D9011ZZ ",.02)
 ;;D9011ZZ 
 ;;9002226.02101,"1804,D9011ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9012ZZ ",.01)
 ;;D9012ZZ 
 ;;9002226.02101,"1804,D9012ZZ ",.02)
 ;;D9012ZZ 
 ;;9002226.02101,"1804,D9012ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9013Z0 ",.01)
 ;;D9013Z0 
 ;;9002226.02101,"1804,D9013Z0 ",.02)
 ;;D9013Z0 
 ;;9002226.02101,"1804,D9013Z0 ",.03)
 ;;31
 ;;9002226.02101,"1804,D9013ZZ ",.01)
 ;;D9013ZZ 
 ;;9002226.02101,"1804,D9013ZZ ",.02)
 ;;D9013ZZ 
 ;;9002226.02101,"1804,D9013ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9014ZZ ",.01)
 ;;D9014ZZ 
 ;;9002226.02101,"1804,D9014ZZ ",.02)
 ;;D9014ZZ 
 ;;9002226.02101,"1804,D9014ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9015ZZ ",.01)
 ;;D9015ZZ 
 ;;9002226.02101,"1804,D9015ZZ ",.02)
 ;;D9015ZZ 
 ;;9002226.02101,"1804,D9015ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9016ZZ ",.01)
 ;;D9016ZZ 
 ;;9002226.02101,"1804,D9016ZZ ",.02)
 ;;D9016ZZ 
 ;;9002226.02101,"1804,D9016ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9030ZZ ",.01)
 ;;D9030ZZ 
 ;;9002226.02101,"1804,D9030ZZ ",.02)
 ;;D9030ZZ 
 ;;9002226.02101,"1804,D9030ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9031ZZ ",.01)
 ;;D9031ZZ 
 ;;9002226.02101,"1804,D9031ZZ ",.02)
 ;;D9031ZZ 
 ;;9002226.02101,"1804,D9031ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9032ZZ ",.01)
 ;;D9032ZZ 
 ;;9002226.02101,"1804,D9032ZZ ",.02)
 ;;D9032ZZ 
 ;;9002226.02101,"1804,D9032ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9033Z0 ",.01)
 ;;D9033Z0 
 ;;9002226.02101,"1804,D9033Z0 ",.02)
 ;;D9033Z0 
 ;;9002226.02101,"1804,D9033Z0 ",.03)
 ;;31
 ;;9002226.02101,"1804,D9033ZZ ",.01)
 ;;D9033ZZ 
 ;;9002226.02101,"1804,D9033ZZ ",.02)
 ;;D9033ZZ 
 ;;9002226.02101,"1804,D9033ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9034ZZ ",.01)
 ;;D9034ZZ 
 ;;9002226.02101,"1804,D9034ZZ ",.02)
 ;;D9034ZZ 
 ;;9002226.02101,"1804,D9034ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9035ZZ ",.01)
 ;;D9035ZZ 
 ;;9002226.02101,"1804,D9035ZZ ",.02)
 ;;D9035ZZ 
 ;;9002226.02101,"1804,D9035ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9036ZZ ",.01)
 ;;D9036ZZ 
 ;;9002226.02101,"1804,D9036ZZ ",.02)
 ;;D9036ZZ 
 ;;9002226.02101,"1804,D9036ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9040ZZ ",.01)
 ;;D9040ZZ 
 ;;9002226.02101,"1804,D9040ZZ ",.02)
 ;;D9040ZZ 
 ;;9002226.02101,"1804,D9040ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9041ZZ ",.01)
 ;;D9041ZZ 
 ;;9002226.02101,"1804,D9041ZZ ",.02)
 ;;D9041ZZ 
 ;;9002226.02101,"1804,D9041ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9042ZZ ",.01)
 ;;D9042ZZ 
 ;;9002226.02101,"1804,D9042ZZ ",.02)
 ;;D9042ZZ 
 ;;9002226.02101,"1804,D9042ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9043Z0 ",.01)
 ;;D9043Z0 
 ;;9002226.02101,"1804,D9043Z0 ",.02)
 ;;D9043Z0 
 ;;9002226.02101,"1804,D9043Z0 ",.03)
 ;;31
 ;;9002226.02101,"1804,D9043ZZ ",.01)
 ;;D9043ZZ 
 ;;9002226.02101,"1804,D9043ZZ ",.02)
 ;;D9043ZZ 
 ;;9002226.02101,"1804,D9043ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9044ZZ ",.01)
 ;;D9044ZZ 
 ;;9002226.02101,"1804,D9044ZZ ",.02)
 ;;D9044ZZ 
 ;;9002226.02101,"1804,D9044ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9045ZZ ",.01)
 ;;D9045ZZ 
 ;;9002226.02101,"1804,D9045ZZ ",.02)
 ;;D9045ZZ 
 ;;9002226.02101,"1804,D9045ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9046ZZ ",.01)
 ;;D9046ZZ 
 ;;9002226.02101,"1804,D9046ZZ ",.02)
 ;;D9046ZZ 
 ;;9002226.02101,"1804,D9046ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9050ZZ ",.01)
 ;;D9050ZZ 
 ;;9002226.02101,"1804,D9050ZZ ",.02)
 ;;D9050ZZ 
 ;;9002226.02101,"1804,D9050ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9051ZZ ",.01)
 ;;D9051ZZ 
 ;;9002226.02101,"1804,D9051ZZ ",.02)
 ;;D9051ZZ 
 ;;9002226.02101,"1804,D9051ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9052ZZ ",.01)
 ;;D9052ZZ 
 ;;9002226.02101,"1804,D9052ZZ ",.02)
 ;;D9052ZZ 
 ;;9002226.02101,"1804,D9052ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9053Z0 ",.01)
 ;;D9053Z0 
 ;;9002226.02101,"1804,D9053Z0 ",.02)
 ;;D9053Z0 
 ;;9002226.02101,"1804,D9053Z0 ",.03)
 ;;31
 ;;9002226.02101,"1804,D9053ZZ ",.01)
 ;;D9053ZZ 
 ;;9002226.02101,"1804,D9053ZZ ",.02)
 ;;D9053ZZ 
 ;;9002226.02101,"1804,D9053ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9054ZZ ",.01)
 ;;D9054ZZ 
 ;;9002226.02101,"1804,D9054ZZ ",.02)
 ;;D9054ZZ 
 ;;9002226.02101,"1804,D9054ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9055ZZ ",.01)
 ;;D9055ZZ 
 ;;9002226.02101,"1804,D9055ZZ ",.02)
 ;;D9055ZZ 
 ;;9002226.02101,"1804,D9055ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9056ZZ ",.01)
 ;;D9056ZZ 
 ;;9002226.02101,"1804,D9056ZZ ",.02)
 ;;D9056ZZ 
 ;;9002226.02101,"1804,D9056ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,D9060ZZ ",.01)
 ;;D9060ZZ 
 ;;9002226.02101,"1804,D9060ZZ ",.02)
 ;;D9060ZZ