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

ATXXB197.m

Go to the documentation of this file.
ATXXB197 ;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,BP02ZZZ ",.02)
 ;;BP02ZZZ 
 ;;9002226.02101,"1804,BP02ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP03ZZZ ",.01)
 ;;BP03ZZZ 
 ;;9002226.02101,"1804,BP03ZZZ ",.02)
 ;;BP03ZZZ 
 ;;9002226.02101,"1804,BP03ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP04ZZZ ",.01)
 ;;BP04ZZZ 
 ;;9002226.02101,"1804,BP04ZZZ ",.02)
 ;;BP04ZZZ 
 ;;9002226.02101,"1804,BP04ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP05ZZZ ",.01)
 ;;BP05ZZZ 
 ;;9002226.02101,"1804,BP05ZZZ ",.02)
 ;;BP05ZZZ 
 ;;9002226.02101,"1804,BP05ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP06ZZZ ",.01)
 ;;BP06ZZZ 
 ;;9002226.02101,"1804,BP06ZZZ ",.02)
 ;;BP06ZZZ 
 ;;9002226.02101,"1804,BP06ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP07ZZZ ",.01)
 ;;BP07ZZZ 
 ;;9002226.02101,"1804,BP07ZZZ ",.02)
 ;;BP07ZZZ 
 ;;9002226.02101,"1804,BP07ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP080ZZ ",.01)
 ;;BP080ZZ 
 ;;9002226.02101,"1804,BP080ZZ ",.02)
 ;;BP080ZZ 
 ;;9002226.02101,"1804,BP080ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP081ZZ ",.01)
 ;;BP081ZZ 
 ;;9002226.02101,"1804,BP081ZZ ",.02)
 ;;BP081ZZ 
 ;;9002226.02101,"1804,BP081ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP08YZZ ",.01)
 ;;BP08YZZ 
 ;;9002226.02101,"1804,BP08YZZ ",.02)
 ;;BP08YZZ 
 ;;9002226.02101,"1804,BP08YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP08ZZZ ",.01)
 ;;BP08ZZZ 
 ;;9002226.02101,"1804,BP08ZZZ ",.02)
 ;;BP08ZZZ 
 ;;9002226.02101,"1804,BP08ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP090ZZ ",.01)
 ;;BP090ZZ 
 ;;9002226.02101,"1804,BP090ZZ ",.02)
 ;;BP090ZZ 
 ;;9002226.02101,"1804,BP090ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP091ZZ ",.01)
 ;;BP091ZZ 
 ;;9002226.02101,"1804,BP091ZZ ",.02)
 ;;BP091ZZ 
 ;;9002226.02101,"1804,BP091ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP09YZZ ",.01)
 ;;BP09YZZ 
 ;;9002226.02101,"1804,BP09YZZ ",.02)
 ;;BP09YZZ 
 ;;9002226.02101,"1804,BP09YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP09ZZZ ",.01)
 ;;BP09ZZZ 
 ;;9002226.02101,"1804,BP09ZZZ ",.02)
 ;;BP09ZZZ 
 ;;9002226.02101,"1804,BP09ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0AZZZ ",.01)
 ;;BP0AZZZ 
 ;;9002226.02101,"1804,BP0AZZZ ",.02)
 ;;BP0AZZZ 
 ;;9002226.02101,"1804,BP0AZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0BZZZ ",.01)
 ;;BP0BZZZ 
 ;;9002226.02101,"1804,BP0BZZZ ",.02)
 ;;BP0BZZZ 
 ;;9002226.02101,"1804,BP0BZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0C0ZZ ",.01)
 ;;BP0C0ZZ 
 ;;9002226.02101,"1804,BP0C0ZZ ",.02)
 ;;BP0C0ZZ 
 ;;9002226.02101,"1804,BP0C0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0C1ZZ ",.01)
 ;;BP0C1ZZ 
 ;;9002226.02101,"1804,BP0C1ZZ ",.02)
 ;;BP0C1ZZ 
 ;;9002226.02101,"1804,BP0C1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0CYZZ ",.01)
 ;;BP0CYZZ 
 ;;9002226.02101,"1804,BP0CYZZ ",.02)
 ;;BP0CYZZ 
 ;;9002226.02101,"1804,BP0CYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0CZZZ ",.01)
 ;;BP0CZZZ 
 ;;9002226.02101,"1804,BP0CZZZ ",.02)
 ;;BP0CZZZ 
 ;;9002226.02101,"1804,BP0CZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0D0ZZ ",.01)
 ;;BP0D0ZZ 
 ;;9002226.02101,"1804,BP0D0ZZ ",.02)
 ;;BP0D0ZZ 
 ;;9002226.02101,"1804,BP0D0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0D1ZZ ",.01)
 ;;BP0D1ZZ 
 ;;9002226.02101,"1804,BP0D1ZZ ",.02)
 ;;BP0D1ZZ 
 ;;9002226.02101,"1804,BP0D1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0DYZZ ",.01)
 ;;BP0DYZZ 
 ;;9002226.02101,"1804,BP0DYZZ ",.02)
 ;;BP0DYZZ 
 ;;9002226.02101,"1804,BP0DYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0DZZZ ",.01)
 ;;BP0DZZZ 
 ;;9002226.02101,"1804,BP0DZZZ ",.02)
 ;;BP0DZZZ 
 ;;9002226.02101,"1804,BP0DZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0EZZZ ",.01)
 ;;BP0EZZZ 
 ;;9002226.02101,"1804,BP0EZZZ ",.02)
 ;;BP0EZZZ 
 ;;9002226.02101,"1804,BP0EZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0FZZZ ",.01)
 ;;BP0FZZZ 
 ;;9002226.02101,"1804,BP0FZZZ ",.02)
 ;;BP0FZZZ 
 ;;9002226.02101,"1804,BP0FZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0G0ZZ ",.01)
 ;;BP0G0ZZ 
 ;;9002226.02101,"1804,BP0G0ZZ ",.02)
 ;;BP0G0ZZ 
 ;;9002226.02101,"1804,BP0G0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0G1ZZ ",.01)
 ;;BP0G1ZZ 
 ;;9002226.02101,"1804,BP0G1ZZ ",.02)
 ;;BP0G1ZZ 
 ;;9002226.02101,"1804,BP0G1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0GYZZ ",.01)
 ;;BP0GYZZ 
 ;;9002226.02101,"1804,BP0GYZZ ",.02)
 ;;BP0GYZZ 
 ;;9002226.02101,"1804,BP0GYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0GZZZ ",.01)
 ;;BP0GZZZ 
 ;;9002226.02101,"1804,BP0GZZZ ",.02)
 ;;BP0GZZZ 
 ;;9002226.02101,"1804,BP0GZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0H0ZZ ",.01)
 ;;BP0H0ZZ 
 ;;9002226.02101,"1804,BP0H0ZZ ",.02)
 ;;BP0H0ZZ 
 ;;9002226.02101,"1804,BP0H0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0H1ZZ ",.01)
 ;;BP0H1ZZ 
 ;;9002226.02101,"1804,BP0H1ZZ ",.02)
 ;;BP0H1ZZ 
 ;;9002226.02101,"1804,BP0H1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0HYZZ ",.01)
 ;;BP0HYZZ 
 ;;9002226.02101,"1804,BP0HYZZ ",.02)
 ;;BP0HYZZ 
 ;;9002226.02101,"1804,BP0HYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0HZZZ ",.01)
 ;;BP0HZZZ 
 ;;9002226.02101,"1804,BP0HZZZ ",.02)
 ;;BP0HZZZ 
 ;;9002226.02101,"1804,BP0HZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0JZZZ ",.01)
 ;;BP0JZZZ 
 ;;9002226.02101,"1804,BP0JZZZ ",.02)
 ;;BP0JZZZ 
 ;;9002226.02101,"1804,BP0JZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0KZZZ ",.01)
 ;;BP0KZZZ 
 ;;9002226.02101,"1804,BP0KZZZ ",.02)
 ;;BP0KZZZ 
 ;;9002226.02101,"1804,BP0KZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0L0ZZ ",.01)
 ;;BP0L0ZZ 
 ;;9002226.02101,"1804,BP0L0ZZ ",.02)
 ;;BP0L0ZZ 
 ;;9002226.02101,"1804,BP0L0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0L1ZZ ",.01)
 ;;BP0L1ZZ 
 ;;9002226.02101,"1804,BP0L1ZZ ",.02)
 ;;BP0L1ZZ 
 ;;9002226.02101,"1804,BP0L1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0LYZZ ",.01)
 ;;BP0LYZZ 
 ;;9002226.02101,"1804,BP0LYZZ ",.02)
 ;;BP0LYZZ 
 ;;9002226.02101,"1804,BP0LYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0LZZZ ",.01)
 ;;BP0LZZZ 
 ;;9002226.02101,"1804,BP0LZZZ ",.02)
 ;;BP0LZZZ 
 ;;9002226.02101,"1804,BP0LZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0M0ZZ ",.01)
 ;;BP0M0ZZ 
 ;;9002226.02101,"1804,BP0M0ZZ ",.02)
 ;;BP0M0ZZ 
 ;;9002226.02101,"1804,BP0M0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0M1ZZ ",.01)
 ;;BP0M1ZZ 
 ;;9002226.02101,"1804,BP0M1ZZ ",.02)
 ;;BP0M1ZZ 
 ;;9002226.02101,"1804,BP0M1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0MYZZ ",.01)
 ;;BP0MYZZ 
 ;;9002226.02101,"1804,BP0MYZZ ",.02)
 ;;BP0MYZZ 
 ;;9002226.02101,"1804,BP0MYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0MZZZ ",.01)
 ;;BP0MZZZ 
 ;;9002226.02101,"1804,BP0MZZZ ",.02)
 ;;BP0MZZZ 
 ;;9002226.02101,"1804,BP0MZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0NZZZ ",.01)
 ;;BP0NZZZ 
 ;;9002226.02101,"1804,BP0NZZZ ",.02)
 ;;BP0NZZZ 
 ;;9002226.02101,"1804,BP0NZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0PZZZ ",.01)
 ;;BP0PZZZ 
 ;;9002226.02101,"1804,BP0PZZZ ",.02)
 ;;BP0PZZZ 
 ;;9002226.02101,"1804,BP0PZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0RZZZ ",.01)
 ;;BP0RZZZ 
 ;;9002226.02101,"1804,BP0RZZZ ",.02)
 ;;BP0RZZZ 
 ;;9002226.02101,"1804,BP0RZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0SZZZ ",.01)
 ;;BP0SZZZ 
 ;;9002226.02101,"1804,BP0SZZZ ",.02)
 ;;BP0SZZZ 
 ;;9002226.02101,"1804,BP0SZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0XZZZ ",.01)
 ;;BP0XZZZ 
 ;;9002226.02101,"1804,BP0XZZZ ",.02)
 ;;BP0XZZZ 
 ;;9002226.02101,"1804,BP0XZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP0YZZZ ",.01)
 ;;BP0YZZZ 
 ;;9002226.02101,"1804,BP0YZZZ ",.02)
 ;;BP0YZZZ 
 ;;9002226.02101,"1804,BP0YZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP10ZZZ ",.01)
 ;;BP10ZZZ 
 ;;9002226.02101,"1804,BP10ZZZ ",.02)
 ;;BP10ZZZ 
 ;;9002226.02101,"1804,BP10ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP11ZZZ ",.01)
 ;;BP11ZZZ 
 ;;9002226.02101,"1804,BP11ZZZ ",.02)
 ;;BP11ZZZ 
 ;;9002226.02101,"1804,BP11ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP12ZZZ ",.01)
 ;;BP12ZZZ 
 ;;9002226.02101,"1804,BP12ZZZ ",.02)
 ;;BP12ZZZ 
 ;;9002226.02101,"1804,BP12ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP13ZZZ ",.01)
 ;;BP13ZZZ 
 ;;9002226.02101,"1804,BP13ZZZ ",.02)
 ;;BP13ZZZ 
 ;;9002226.02101,"1804,BP13ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP14ZZZ ",.01)
 ;;BP14ZZZ 
 ;;9002226.02101,"1804,BP14ZZZ ",.02)
 ;;BP14ZZZ 
 ;;9002226.02101,"1804,BP14ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP15ZZZ ",.01)
 ;;BP15ZZZ 
 ;;9002226.02101,"1804,BP15ZZZ ",.02)
 ;;BP15ZZZ 
 ;;9002226.02101,"1804,BP15ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP16ZZZ ",.01)
 ;;BP16ZZZ 
 ;;9002226.02101,"1804,BP16ZZZ ",.02)
 ;;BP16ZZZ 
 ;;9002226.02101,"1804,BP16ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP17ZZZ ",.01)
 ;;BP17ZZZ 
 ;;9002226.02101,"1804,BP17ZZZ ",.02)
 ;;BP17ZZZ 
 ;;9002226.02101,"1804,BP17ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP180ZZ ",.01)
 ;;BP180ZZ 
 ;;9002226.02101,"1804,BP180ZZ ",.02)
 ;;BP180ZZ 
 ;;9002226.02101,"1804,BP180ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP181ZZ ",.01)
 ;;BP181ZZ 
 ;;9002226.02101,"1804,BP181ZZ ",.02)
 ;;BP181ZZ 
 ;;9002226.02101,"1804,BP181ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP18YZZ ",.01)
 ;;BP18YZZ 
 ;;9002226.02101,"1804,BP18YZZ ",.02)
 ;;BP18YZZ 
 ;;9002226.02101,"1804,BP18YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP18ZZZ ",.01)
 ;;BP18ZZZ 
 ;;9002226.02101,"1804,BP18ZZZ ",.02)
 ;;BP18ZZZ 
 ;;9002226.02101,"1804,BP18ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP190ZZ ",.01)
 ;;BP190ZZ 
 ;;9002226.02101,"1804,BP190ZZ ",.02)
 ;;BP190ZZ 
 ;;9002226.02101,"1804,BP190ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP191ZZ ",.01)
 ;;BP191ZZ 
 ;;9002226.02101,"1804,BP191ZZ ",.02)
 ;;BP191ZZ 
 ;;9002226.02101,"1804,BP191ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP19YZZ ",.01)
 ;;BP19YZZ 
 ;;9002226.02101,"1804,BP19YZZ ",.02)
 ;;BP19YZZ 
 ;;9002226.02101,"1804,BP19YZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP19ZZZ ",.01)
 ;;BP19ZZZ 
 ;;9002226.02101,"1804,BP19ZZZ ",.02)
 ;;BP19ZZZ 
 ;;9002226.02101,"1804,BP19ZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1AZZZ ",.01)
 ;;BP1AZZZ 
 ;;9002226.02101,"1804,BP1AZZZ ",.02)
 ;;BP1AZZZ 
 ;;9002226.02101,"1804,BP1AZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1BZZZ ",.01)
 ;;BP1BZZZ 
 ;;9002226.02101,"1804,BP1BZZZ ",.02)
 ;;BP1BZZZ 
 ;;9002226.02101,"1804,BP1BZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1C0ZZ ",.01)
 ;;BP1C0ZZ 
 ;;9002226.02101,"1804,BP1C0ZZ ",.02)
 ;;BP1C0ZZ 
 ;;9002226.02101,"1804,BP1C0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1C1ZZ ",.01)
 ;;BP1C1ZZ 
 ;;9002226.02101,"1804,BP1C1ZZ ",.02)
 ;;BP1C1ZZ 
 ;;9002226.02101,"1804,BP1C1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1CYZZ ",.01)
 ;;BP1CYZZ 
 ;;9002226.02101,"1804,BP1CYZZ ",.02)
 ;;BP1CYZZ 
 ;;9002226.02101,"1804,BP1CYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1D0ZZ ",.01)
 ;;BP1D0ZZ 
 ;;9002226.02101,"1804,BP1D0ZZ ",.02)
 ;;BP1D0ZZ 
 ;;9002226.02101,"1804,BP1D0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1D1ZZ ",.01)
 ;;BP1D1ZZ 
 ;;9002226.02101,"1804,BP1D1ZZ ",.02)
 ;;BP1D1ZZ 
 ;;9002226.02101,"1804,BP1D1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1DYZZ ",.01)
 ;;BP1DYZZ 
 ;;9002226.02101,"1804,BP1DYZZ ",.02)
 ;;BP1DYZZ 
 ;;9002226.02101,"1804,BP1DYZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1EZZZ ",.01)
 ;;BP1EZZZ 
 ;;9002226.02101,"1804,BP1EZZZ ",.02)
 ;;BP1EZZZ 
 ;;9002226.02101,"1804,BP1EZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1FZZZ ",.01)
 ;;BP1FZZZ 
 ;;9002226.02101,"1804,BP1FZZZ ",.02)
 ;;BP1FZZZ 
 ;;9002226.02101,"1804,BP1FZZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1G0ZZ ",.01)
 ;;BP1G0ZZ 
 ;;9002226.02101,"1804,BP1G0ZZ ",.02)
 ;;BP1G0ZZ 
 ;;9002226.02101,"1804,BP1G0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1G1ZZ ",.01)
 ;;BP1G1ZZ 
 ;;9002226.02101,"1804,BP1G1ZZ ",.02)
 ;;BP1G1ZZ 
 ;;9002226.02101,"1804,BP1G1ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,BP1GYZZ ",.01)
 ;;BP1GYZZ 
 ;;9002226.02101,"1804,BP1GYZZ ",.02)
 ;;BP1GYZZ