Routine: ATXXB205

ATXXB205 ;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

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;9002226.02101,"1804,BR271ZZ ",.01)

 ;;BR271ZZ

 ;;9002226.02101,"1804,BR271ZZ ",.02)

 ;;BR271ZZ

 ;;9002226.02101,"1804,BR271ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR27YZZ ",.01)

 ;;BR27YZZ

 ;;9002226.02101,"1804,BR27YZZ ",.02)

 ;;BR27YZZ

 ;;9002226.02101,"1804,BR27YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR27ZZZ ",.01)

 ;;BR27ZZZ

 ;;9002226.02101,"1804,BR27ZZZ ",.02)

 ;;BR27ZZZ

 ;;9002226.02101,"1804,BR27ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR290ZZ ",.01)

 ;;BR290ZZ

 ;;9002226.02101,"1804,BR290ZZ ",.02)

 ;;BR290ZZ

 ;;9002226.02101,"1804,BR290ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR291ZZ ",.01)

 ;;BR291ZZ

 ;;9002226.02101,"1804,BR291ZZ ",.02)

 ;;BR291ZZ

 ;;9002226.02101,"1804,BR291ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR29YZZ ",.01)

 ;;BR29YZZ

 ;;9002226.02101,"1804,BR29YZZ ",.02)

 ;;BR29YZZ

 ;;9002226.02101,"1804,BR29YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR29ZZZ ",.01)

 ;;BR29ZZZ

 ;;9002226.02101,"1804,BR29ZZZ ",.02)

 ;;BR29ZZZ

 ;;9002226.02101,"1804,BR29ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR2C0ZZ ",.01)

 ;;BR2C0ZZ

 ;;9002226.02101,"1804,BR2C0ZZ ",.02)

 ;;BR2C0ZZ

 ;;9002226.02101,"1804,BR2C0ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR2C1ZZ ",.01)

 ;;BR2C1ZZ

 ;;9002226.02101,"1804,BR2C1ZZ ",.02)

 ;;BR2C1ZZ

 ;;9002226.02101,"1804,BR2C1ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR2CYZZ ",.01)

 ;;BR2CYZZ

 ;;9002226.02101,"1804,BR2CYZZ ",.02)

 ;;BR2CYZZ

 ;;9002226.02101,"1804,BR2CYZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR2CZZZ ",.01)

 ;;BR2CZZZ

 ;;9002226.02101,"1804,BR2CZZZ ",.02)

 ;;BR2CZZZ

 ;;9002226.02101,"1804,BR2CZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR2D0ZZ ",.01)

 ;;BR2D0ZZ

 ;;9002226.02101,"1804,BR2D0ZZ ",.02)

 ;;BR2D0ZZ

 ;;9002226.02101,"1804,BR2D0ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR2D1ZZ ",.01)

 ;;BR2D1ZZ

 ;;9002226.02101,"1804,BR2D1ZZ ",.02)

 ;;BR2D1ZZ

 ;;9002226.02101,"1804,BR2D1ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR2DYZZ ",.01)

 ;;BR2DYZZ

 ;;9002226.02101,"1804,BR2DYZZ ",.02)

 ;;BR2DYZZ

 ;;9002226.02101,"1804,BR2DYZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR2DZZZ ",.01)

 ;;BR2DZZZ

 ;;9002226.02101,"1804,BR2DZZZ ",.02)

 ;;BR2DZZZ

 ;;9002226.02101,"1804,BR2DZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR2F0ZZ ",.01)

 ;;BR2F0ZZ

 ;;9002226.02101,"1804,BR2F0ZZ ",.02)

 ;;BR2F0ZZ

 ;;9002226.02101,"1804,BR2F0ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR2F1ZZ ",.01)

 ;;BR2F1ZZ

 ;;9002226.02101,"1804,BR2F1ZZ ",.02)

 ;;BR2F1ZZ

 ;;9002226.02101,"1804,BR2F1ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR2FYZZ ",.01)

 ;;BR2FYZZ

 ;;9002226.02101,"1804,BR2FYZZ ",.02)

 ;;BR2FYZZ

 ;;9002226.02101,"1804,BR2FYZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR2FZZZ ",.01)

 ;;BR2FZZZ

 ;;9002226.02101,"1804,BR2FZZZ ",.02)

 ;;BR2FZZZ

 ;;9002226.02101,"1804,BR2FZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR30Y0Z ",.01)

 ;;BR30Y0Z

 ;;9002226.02101,"1804,BR30Y0Z ",.02)

 ;;BR30Y0Z

 ;;9002226.02101,"1804,BR30Y0Z ",.03)

 ;;31

 ;;9002226.02101,"1804,BR30YZZ ",.01)

 ;;BR30YZZ

 ;;9002226.02101,"1804,BR30YZZ ",.02)

 ;;BR30YZZ

 ;;9002226.02101,"1804,BR30YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR30ZZZ ",.01)

 ;;BR30ZZZ

 ;;9002226.02101,"1804,BR30ZZZ ",.02)

 ;;BR30ZZZ

 ;;9002226.02101,"1804,BR30ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR31Y0Z ",.01)

 ;;BR31Y0Z

 ;;9002226.02101,"1804,BR31Y0Z ",.02)

 ;;BR31Y0Z

 ;;9002226.02101,"1804,BR31Y0Z ",.03)

 ;;31

 ;;9002226.02101,"1804,BR31YZZ ",.01)

 ;;BR31YZZ

 ;;9002226.02101,"1804,BR31YZZ ",.02)

 ;;BR31YZZ

 ;;9002226.02101,"1804,BR31YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR31ZZZ ",.01)

 ;;BR31ZZZ

 ;;9002226.02101,"1804,BR31ZZZ ",.02)

 ;;BR31ZZZ

 ;;9002226.02101,"1804,BR31ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR32Y0Z ",.01)

 ;;BR32Y0Z

 ;;9002226.02101,"1804,BR32Y0Z ",.02)

 ;;BR32Y0Z

 ;;9002226.02101,"1804,BR32Y0Z ",.03)

 ;;31

 ;;9002226.02101,"1804,BR32YZZ ",.01)

 ;;BR32YZZ

 ;;9002226.02101,"1804,BR32YZZ ",.02)

 ;;BR32YZZ

 ;;9002226.02101,"1804,BR32YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR32ZZZ ",.01)

 ;;BR32ZZZ

 ;;9002226.02101,"1804,BR32ZZZ ",.02)

 ;;BR32ZZZ

 ;;9002226.02101,"1804,BR32ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR33Y0Z ",.01)

 ;;BR33Y0Z

 ;;9002226.02101,"1804,BR33Y0Z ",.02)

 ;;BR33Y0Z

 ;;9002226.02101,"1804,BR33Y0Z ",.03)

 ;;31

 ;;9002226.02101,"1804,BR33YZZ ",.01)

 ;;BR33YZZ

 ;;9002226.02101,"1804,BR33YZZ ",.02)

 ;;BR33YZZ

 ;;9002226.02101,"1804,BR33YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR33ZZZ ",.01)

 ;;BR33ZZZ

 ;;9002226.02101,"1804,BR33ZZZ ",.02)

 ;;BR33ZZZ

 ;;9002226.02101,"1804,BR33ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR37Y0Z ",.01)

 ;;BR37Y0Z

 ;;9002226.02101,"1804,BR37Y0Z ",.02)

 ;;BR37Y0Z

 ;;9002226.02101,"1804,BR37Y0Z ",.03)

 ;;31

 ;;9002226.02101,"1804,BR37YZZ ",.01)

 ;;BR37YZZ

 ;;9002226.02101,"1804,BR37YZZ ",.02)

 ;;BR37YZZ

 ;;9002226.02101,"1804,BR37YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR37ZZZ ",.01)

 ;;BR37ZZZ

 ;;9002226.02101,"1804,BR37ZZZ ",.02)

 ;;BR37ZZZ

 ;;9002226.02101,"1804,BR37ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR39Y0Z ",.01)

 ;;BR39Y0Z

 ;;9002226.02101,"1804,BR39Y0Z ",.02)

 ;;BR39Y0Z

 ;;9002226.02101,"1804,BR39Y0Z ",.03)

 ;;31

 ;;9002226.02101,"1804,BR39YZZ ",.01)

 ;;BR39YZZ

 ;;9002226.02101,"1804,BR39YZZ ",.02)

 ;;BR39YZZ

 ;;9002226.02101,"1804,BR39YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR39ZZZ ",.01)

 ;;BR39ZZZ

 ;;9002226.02101,"1804,BR39ZZZ ",.02)

 ;;BR39ZZZ

 ;;9002226.02101,"1804,BR39ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR3CY0Z ",.01)

 ;;BR3CY0Z

 ;;9002226.02101,"1804,BR3CY0Z ",.02)

 ;;BR3CY0Z

 ;;9002226.02101,"1804,BR3CY0Z ",.03)

 ;;31

 ;;9002226.02101,"1804,BR3CYZZ ",.01)

 ;;BR3CYZZ

 ;;9002226.02101,"1804,BR3CYZZ ",.02)

 ;;BR3CYZZ

 ;;9002226.02101,"1804,BR3CYZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR3CZZZ ",.01)

 ;;BR3CZZZ

 ;;9002226.02101,"1804,BR3CZZZ ",.02)

 ;;BR3CZZZ

 ;;9002226.02101,"1804,BR3CZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR3FY0Z ",.01)

 ;;BR3FY0Z

 ;;9002226.02101,"1804,BR3FY0Z ",.02)

 ;;BR3FY0Z

 ;;9002226.02101,"1804,BR3FY0Z ",.03)

 ;;31

 ;;9002226.02101,"1804,BR3FYZZ ",.01)

 ;;BR3FYZZ

 ;;9002226.02101,"1804,BR3FYZZ ",.02)

 ;;BR3FYZZ

 ;;9002226.02101,"1804,BR3FYZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR3FZZZ ",.01)

 ;;BR3FZZZ

 ;;9002226.02101,"1804,BR3FZZZ ",.02)

 ;;BR3FZZZ

 ;;9002226.02101,"1804,BR3FZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR40ZZZ ",.01)

 ;;BR40ZZZ

 ;;9002226.02101,"1804,BR40ZZZ ",.02)

 ;;BR40ZZZ

 ;;9002226.02101,"1804,BR40ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR47ZZZ ",.01)

 ;;BR47ZZZ

 ;;9002226.02101,"1804,BR47ZZZ ",.02)

 ;;BR47ZZZ

 ;;9002226.02101,"1804,BR47ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR49ZZZ ",.01)

 ;;BR49ZZZ

 ;;9002226.02101,"1804,BR49ZZZ ",.02)

 ;;BR49ZZZ

 ;;9002226.02101,"1804,BR49ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BR4FZZZ ",.01)

 ;;BR4FZZZ

 ;;9002226.02101,"1804,BR4FZZZ ",.02)

 ;;BR4FZZZ

 ;;9002226.02101,"1804,BR4FZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT000ZZ ",.01)

 ;;BT000ZZ

 ;;9002226.02101,"1804,BT000ZZ ",.02)

 ;;BT000ZZ

 ;;9002226.02101,"1804,BT000ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT001ZZ ",.01)

 ;;BT001ZZ

 ;;9002226.02101,"1804,BT001ZZ ",.02)

 ;;BT001ZZ

 ;;9002226.02101,"1804,BT001ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT00YZZ ",.01)

 ;;BT00YZZ

 ;;9002226.02101,"1804,BT00YZZ ",.02)

 ;;BT00YZZ

 ;;9002226.02101,"1804,BT00YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT00ZZZ ",.01)

 ;;BT00ZZZ

 ;;9002226.02101,"1804,BT00ZZZ ",.02)

 ;;BT00ZZZ

 ;;9002226.02101,"1804,BT00ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT010ZZ ",.01)

 ;;BT010ZZ

 ;;9002226.02101,"1804,BT010ZZ ",.02)

 ;;BT010ZZ

 ;;9002226.02101,"1804,BT010ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT011ZZ ",.01)

 ;;BT011ZZ

 ;;9002226.02101,"1804,BT011ZZ ",.02)

 ;;BT011ZZ

 ;;9002226.02101,"1804,BT011ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT01YZZ ",.01)

 ;;BT01YZZ

 ;;9002226.02101,"1804,BT01YZZ ",.02)

 ;;BT01YZZ

 ;;9002226.02101,"1804,BT01YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT01ZZZ ",.01)

 ;;BT01ZZZ

 ;;9002226.02101,"1804,BT01ZZZ ",.02)

 ;;BT01ZZZ

 ;;9002226.02101,"1804,BT01ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT020ZZ ",.01)

 ;;BT020ZZ

 ;;9002226.02101,"1804,BT020ZZ ",.02)

 ;;BT020ZZ

 ;;9002226.02101,"1804,BT020ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT021ZZ ",.01)

 ;;BT021ZZ

 ;;9002226.02101,"1804,BT021ZZ ",.02)

 ;;BT021ZZ

 ;;9002226.02101,"1804,BT021ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT02YZZ ",.01)

 ;;BT02YZZ

 ;;9002226.02101,"1804,BT02YZZ ",.02)

 ;;BT02YZZ

 ;;9002226.02101,"1804,BT02YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT02ZZZ ",.01)

 ;;BT02ZZZ

 ;;9002226.02101,"1804,BT02ZZZ ",.02)

 ;;BT02ZZZ

 ;;9002226.02101,"1804,BT02ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT030ZZ ",.01)

 ;;BT030ZZ

 ;;9002226.02101,"1804,BT030ZZ ",.02)

 ;;BT030ZZ

 ;;9002226.02101,"1804,BT030ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT031ZZ ",.01)

 ;;BT031ZZ

 ;;9002226.02101,"1804,BT031ZZ ",.02)

 ;;BT031ZZ

 ;;9002226.02101,"1804,BT031ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT03YZZ ",.01)

 ;;BT03YZZ

 ;;9002226.02101,"1804,BT03YZZ ",.02)

 ;;BT03YZZ

 ;;9002226.02101,"1804,BT03YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT03ZZZ ",.01)

 ;;BT03ZZZ

 ;;9002226.02101,"1804,BT03ZZZ ",.02)

 ;;BT03ZZZ

 ;;9002226.02101,"1804,BT03ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT040ZZ ",.01)

 ;;BT040ZZ

 ;;9002226.02101,"1804,BT040ZZ ",.02)

 ;;BT040ZZ

 ;;9002226.02101,"1804,BT040ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT041ZZ ",.01)

 ;;BT041ZZ

 ;;9002226.02101,"1804,BT041ZZ ",.02)

 ;;BT041ZZ

 ;;9002226.02101,"1804,BT041ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT04YZZ ",.01)

 ;;BT04YZZ

 ;;9002226.02101,"1804,BT04YZZ ",.02)

 ;;BT04YZZ

 ;;9002226.02101,"1804,BT04YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT04ZZZ ",.01)

 ;;BT04ZZZ

 ;;9002226.02101,"1804,BT04ZZZ ",.02)

 ;;BT04ZZZ

 ;;9002226.02101,"1804,BT04ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT050ZZ ",.01)

 ;;BT050ZZ

 ;;9002226.02101,"1804,BT050ZZ ",.02)

 ;;BT050ZZ

 ;;9002226.02101,"1804,BT050ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT051ZZ ",.01)

 ;;BT051ZZ

 ;;9002226.02101,"1804,BT051ZZ ",.02)

 ;;BT051ZZ

 ;;9002226.02101,"1804,BT051ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT05YZZ ",.01)

 ;;BT05YZZ

 ;;9002226.02101,"1804,BT05YZZ ",.02)

 ;;BT05YZZ

 ;;9002226.02101,"1804,BT05YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT05ZZZ ",.01)

 ;;BT05ZZZ

 ;;9002226.02101,"1804,BT05ZZZ ",.02)

 ;;BT05ZZZ

 ;;9002226.02101,"1804,BT05ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT060ZZ ",.01)

 ;;BT060ZZ

 ;;9002226.02101,"1804,BT060ZZ ",.02)

 ;;BT060ZZ

 ;;9002226.02101,"1804,BT060ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT061ZZ ",.01)

 ;;BT061ZZ

 ;;9002226.02101,"1804,BT061ZZ ",.02)

 ;;BT061ZZ

 ;;9002226.02101,"1804,BT061ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT06YZZ ",.01)

 ;;BT06YZZ

 ;;9002226.02101,"1804,BT06YZZ ",.02)

 ;;BT06YZZ

 ;;9002226.02101,"1804,BT06YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT06ZZZ ",.01)

 ;;BT06ZZZ

 ;;9002226.02101,"1804,BT06ZZZ ",.02)

 ;;BT06ZZZ

 ;;9002226.02101,"1804,BT06ZZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT070ZZ ",.01)

 ;;BT070ZZ

 ;;9002226.02101,"1804,BT070ZZ ",.02)

 ;;BT070ZZ

 ;;9002226.02101,"1804,BT070ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT071ZZ ",.01)

 ;;BT071ZZ

 ;;9002226.02101,"1804,BT071ZZ ",.02)

 ;;BT071ZZ

 ;;9002226.02101,"1804,BT071ZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT07YZZ ",.01)

 ;;BT07YZZ

 ;;9002226.02101,"1804,BT07YZZ ",.02)

 ;;BT07YZZ

 ;;9002226.02101,"1804,BT07YZZ ",.03)

 ;;31

 ;;9002226.02101,"1804,BT07ZZZ ",.01)

 ;;BT07ZZZ

ATXXB205  ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;

 +1       ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48

 +2       ;

START     ;

 +1        IF '$GET(ATXPGMC)

               KILL ^TMP("ATX",$JOB)

 +2        SET ATXPGMC=$GET(ATXPGMC)+1

 +3        FOR ATXI=1:1

               SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)

               IF X=""

                   QUIT

               SET X="^TMP(""ATX"",$J,"_X

               SET ATXI=ATXI+1

               SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)

               SET @X=Y

 +4        QUIT

 +5       ;

TMP       ;;TAXONOMY (WITH BULLETIN)

 +1       ;;9002226.02101,"1804,BR271ZZ ",.01)

 +2       ;;BR271ZZ

 +3       ;;9002226.02101,"1804,BR271ZZ ",.02)

 +4       ;;BR271ZZ

 +5       ;;9002226.02101,"1804,BR271ZZ ",.03)

 +6       ;;31

 +7       ;;9002226.02101,"1804,BR27YZZ ",.01)

 +8       ;;BR27YZZ

 +9       ;;9002226.02101,"1804,BR27YZZ ",.02)

 +10      ;;BR27YZZ

 +11      ;;9002226.02101,"1804,BR27YZZ ",.03)

 +12      ;;31

 +13      ;;9002226.02101,"1804,BR27ZZZ ",.01)

 +14      ;;BR27ZZZ

 +15      ;;9002226.02101,"1804,BR27ZZZ ",.02)

 +16      ;;BR27ZZZ

 +17      ;;9002226.02101,"1804,BR27ZZZ ",.03)

 +18      ;;31

 +19      ;;9002226.02101,"1804,BR290ZZ ",.01)

 +20      ;;BR290ZZ

 +21      ;;9002226.02101,"1804,BR290ZZ ",.02)

 +22      ;;BR290ZZ

 +23      ;;9002226.02101,"1804,BR290ZZ ",.03)

 +24      ;;31

 +25      ;;9002226.02101,"1804,BR291ZZ ",.01)

 +26      ;;BR291ZZ

 +27      ;;9002226.02101,"1804,BR291ZZ ",.02)

 +28      ;;BR291ZZ

 +29      ;;9002226.02101,"1804,BR291ZZ ",.03)

 +30      ;;31

 +31      ;;9002226.02101,"1804,BR29YZZ ",.01)

 +32      ;;BR29YZZ

 +33      ;;9002226.02101,"1804,BR29YZZ ",.02)

 +34      ;;BR29YZZ

 +35      ;;9002226.02101,"1804,BR29YZZ ",.03)

 +36      ;;31

 +37      ;;9002226.02101,"1804,BR29ZZZ ",.01)

 +38      ;;BR29ZZZ

 +39      ;;9002226.02101,"1804,BR29ZZZ ",.02)

 +40      ;;BR29ZZZ

 +41      ;;9002226.02101,"1804,BR29ZZZ ",.03)

 +42      ;;31

 +43      ;;9002226.02101,"1804,BR2C0ZZ ",.01)

 +44      ;;BR2C0ZZ

 +45      ;;9002226.02101,"1804,BR2C0ZZ ",.02)

 +46      ;;BR2C0ZZ

 +47      ;;9002226.02101,"1804,BR2C0ZZ ",.03)

 +48      ;;31

 +49      ;;9002226.02101,"1804,BR2C1ZZ ",.01)

 +50      ;;BR2C1ZZ

 +51      ;;9002226.02101,"1804,BR2C1ZZ ",.02)

 +52      ;;BR2C1ZZ

 +53      ;;9002226.02101,"1804,BR2C1ZZ ",.03)

 +54      ;;31

 +55      ;;9002226.02101,"1804,BR2CYZZ ",.01)

 +56      ;;BR2CYZZ

 +57      ;;9002226.02101,"1804,BR2CYZZ ",.02)

 +58      ;;BR2CYZZ

 +59      ;;9002226.02101,"1804,BR2CYZZ ",.03)

 +60      ;;31

 +61      ;;9002226.02101,"1804,BR2CZZZ ",.01)

 +62      ;;BR2CZZZ

 +63      ;;9002226.02101,"1804,BR2CZZZ ",.02)

 +64      ;;BR2CZZZ

 +65      ;;9002226.02101,"1804,BR2CZZZ ",.03)

 +66      ;;31

 +67      ;;9002226.02101,"1804,BR2D0ZZ ",.01)

 +68      ;;BR2D0ZZ

 +69      ;;9002226.02101,"1804,BR2D0ZZ ",.02)

 +70      ;;BR2D0ZZ

 +71      ;;9002226.02101,"1804,BR2D0ZZ ",.03)

 +72      ;;31

 +73      ;;9002226.02101,"1804,BR2D1ZZ ",.01)

 +74      ;;BR2D1ZZ

 +75      ;;9002226.02101,"1804,BR2D1ZZ ",.02)

 +76      ;;BR2D1ZZ

 +77      ;;9002226.02101,"1804,BR2D1ZZ ",.03)

 +78      ;;31

 +79      ;;9002226.02101,"1804,BR2DYZZ ",.01)

 +80      ;;BR2DYZZ

 +81      ;;9002226.02101,"1804,BR2DYZZ ",.02)

 +82      ;;BR2DYZZ

 +83      ;;9002226.02101,"1804,BR2DYZZ ",.03)

 +84      ;;31

 +85      ;;9002226.02101,"1804,BR2DZZZ ",.01)

 +86      ;;BR2DZZZ

 +87      ;;9002226.02101,"1804,BR2DZZZ ",.02)

 +88      ;;BR2DZZZ

 +89      ;;9002226.02101,"1804,BR2DZZZ ",.03)

 +90      ;;31

 +91      ;;9002226.02101,"1804,BR2F0ZZ ",.01)

 +92      ;;BR2F0ZZ

 +93      ;;9002226.02101,"1804,BR2F0ZZ ",.02)

 +94      ;;BR2F0ZZ

 +95      ;;9002226.02101,"1804,BR2F0ZZ ",.03)

 +96      ;;31

 +97      ;;9002226.02101,"1804,BR2F1ZZ ",.01)

 +98      ;;BR2F1ZZ

 +99      ;;9002226.02101,"1804,BR2F1ZZ ",.02)

 +100     ;;BR2F1ZZ

 +101     ;;9002226.02101,"1804,BR2F1ZZ ",.03)

 +102     ;;31

 +103     ;;9002226.02101,"1804,BR2FYZZ ",.01)

 +104     ;;BR2FYZZ

 +105     ;;9002226.02101,"1804,BR2FYZZ ",.02)

 +106     ;;BR2FYZZ

 +107     ;;9002226.02101,"1804,BR2FYZZ ",.03)

 +108     ;;31

 +109     ;;9002226.02101,"1804,BR2FZZZ ",.01)

 +110     ;;BR2FZZZ

 +111     ;;9002226.02101,"1804,BR2FZZZ ",.02)

 +112     ;;BR2FZZZ

 +113     ;;9002226.02101,"1804,BR2FZZZ ",.03)

 +114     ;;31

 +115     ;;9002226.02101,"1804,BR30Y0Z ",.01)

 +116     ;;BR30Y0Z

 +117     ;;9002226.02101,"1804,BR30Y0Z ",.02)

 +118     ;;BR30Y0Z

 +119     ;;9002226.02101,"1804,BR30Y0Z ",.03)

 +120     ;;31

 +121     ;;9002226.02101,"1804,BR30YZZ ",.01)

 +122     ;;BR30YZZ

 +123     ;;9002226.02101,"1804,BR30YZZ ",.02)

 +124     ;;BR30YZZ

 +125     ;;9002226.02101,"1804,BR30YZZ ",.03)

 +126     ;;31

 +127     ;;9002226.02101,"1804,BR30ZZZ ",.01)

 +128     ;;BR30ZZZ

 +129     ;;9002226.02101,"1804,BR30ZZZ ",.02)

 +130     ;;BR30ZZZ

 +131     ;;9002226.02101,"1804,BR30ZZZ ",.03)

 +132     ;;31

 +133     ;;9002226.02101,"1804,BR31Y0Z ",.01)

 +134     ;;BR31Y0Z

 +135     ;;9002226.02101,"1804,BR31Y0Z ",.02)

 +136     ;;BR31Y0Z

 +137     ;;9002226.02101,"1804,BR31Y0Z ",.03)

 +138     ;;31

 +139     ;;9002226.02101,"1804,BR31YZZ ",.01)

 +140     ;;BR31YZZ

 +141     ;;9002226.02101,"1804,BR31YZZ ",.02)

 +142     ;;BR31YZZ

 +143     ;;9002226.02101,"1804,BR31YZZ ",.03)

 +144     ;;31

 +145     ;;9002226.02101,"1804,BR31ZZZ ",.01)

 +146     ;;BR31ZZZ

 +147     ;;9002226.02101,"1804,BR31ZZZ ",.02)

 +148     ;;BR31ZZZ

 +149     ;;9002226.02101,"1804,BR31ZZZ ",.03)

 +150     ;;31

 +151     ;;9002226.02101,"1804,BR32Y0Z ",.01)

 +152     ;;BR32Y0Z

 +153     ;;9002226.02101,"1804,BR32Y0Z ",.02)

 +154     ;;BR32Y0Z

 +155     ;;9002226.02101,"1804,BR32Y0Z ",.03)

 +156     ;;31

 +157     ;;9002226.02101,"1804,BR32YZZ ",.01)

 +158     ;;BR32YZZ

 +159     ;;9002226.02101,"1804,BR32YZZ ",.02)

 +160     ;;BR32YZZ

 +161     ;;9002226.02101,"1804,BR32YZZ ",.03)

 +162     ;;31

 +163     ;;9002226.02101,"1804,BR32ZZZ ",.01)

 +164     ;;BR32ZZZ

 +165     ;;9002226.02101,"1804,BR32ZZZ ",.02)

 +166     ;;BR32ZZZ

 +167     ;;9002226.02101,"1804,BR32ZZZ ",.03)

 +168     ;;31

 +169     ;;9002226.02101,"1804,BR33Y0Z ",.01)

 +170     ;;BR33Y0Z

 +171     ;;9002226.02101,"1804,BR33Y0Z ",.02)

 +172     ;;BR33Y0Z

 +173     ;;9002226.02101,"1804,BR33Y0Z ",.03)

 +174     ;;31

 +175     ;;9002226.02101,"1804,BR33YZZ ",.01)

 +176     ;;BR33YZZ

 +177     ;;9002226.02101,"1804,BR33YZZ ",.02)

 +178     ;;BR33YZZ

 +179     ;;9002226.02101,"1804,BR33YZZ ",.03)

 +180     ;;31

 +181     ;;9002226.02101,"1804,BR33ZZZ ",.01)

 +182     ;;BR33ZZZ

 +183     ;;9002226.02101,"1804,BR33ZZZ ",.02)

 +184     ;;BR33ZZZ

 +185     ;;9002226.02101,"1804,BR33ZZZ ",.03)

 +186     ;;31

 +187     ;;9002226.02101,"1804,BR37Y0Z ",.01)

 +188     ;;BR37Y0Z

 +189     ;;9002226.02101,"1804,BR37Y0Z ",.02)

 +190     ;;BR37Y0Z

 +191     ;;9002226.02101,"1804,BR37Y0Z ",.03)

 +192     ;;31

 +193     ;;9002226.02101,"1804,BR37YZZ ",.01)

 +194     ;;BR37YZZ

 +195     ;;9002226.02101,"1804,BR37YZZ ",.02)

 +196     ;;BR37YZZ

 +197     ;;9002226.02101,"1804,BR37YZZ ",.03)

 +198     ;;31

 +199     ;;9002226.02101,"1804,BR37ZZZ ",.01)

 +200     ;;BR37ZZZ

 +201     ;;9002226.02101,"1804,BR37ZZZ ",.02)

 +202     ;;BR37ZZZ

 +203     ;;9002226.02101,"1804,BR37ZZZ ",.03)

 +204     ;;31

 +205     ;;9002226.02101,"1804,BR39Y0Z ",.01)

 +206     ;;BR39Y0Z

 +207     ;;9002226.02101,"1804,BR39Y0Z ",.02)

 +208     ;;BR39Y0Z

 +209     ;;9002226.02101,"1804,BR39Y0Z ",.03)

 +210     ;;31

 +211     ;;9002226.02101,"1804,BR39YZZ ",.01)

 +212     ;;BR39YZZ

 +213     ;;9002226.02101,"1804,BR39YZZ ",.02)

 +214     ;;BR39YZZ

 +215     ;;9002226.02101,"1804,BR39YZZ ",.03)

 +216     ;;31

 +217     ;;9002226.02101,"1804,BR39ZZZ ",.01)

 +218     ;;BR39ZZZ

 +219     ;;9002226.02101,"1804,BR39ZZZ ",.02)

 +220     ;;BR39ZZZ

 +221     ;;9002226.02101,"1804,BR39ZZZ ",.03)

 +222     ;;31

 +223     ;;9002226.02101,"1804,BR3CY0Z ",.01)

 +224     ;;BR3CY0Z

 +225     ;;9002226.02101,"1804,BR3CY0Z ",.02)

 +226     ;;BR3CY0Z

 +227     ;;9002226.02101,"1804,BR3CY0Z ",.03)

 +228     ;;31

 +229     ;;9002226.02101,"1804,BR3CYZZ ",.01)

 +230     ;;BR3CYZZ

 +231     ;;9002226.02101,"1804,BR3CYZZ ",.02)

 +232     ;;BR3CYZZ

 +233     ;;9002226.02101,"1804,BR3CYZZ ",.03)

 +234     ;;31

 +235     ;;9002226.02101,"1804,BR3CZZZ ",.01)

 +236     ;;BR3CZZZ

 +237     ;;9002226.02101,"1804,BR3CZZZ ",.02)

 +238     ;;BR3CZZZ

 +239     ;;9002226.02101,"1804,BR3CZZZ ",.03)

 +240     ;;31

 +241     ;;9002226.02101,"1804,BR3FY0Z ",.01)

 +242     ;;BR3FY0Z

 +243     ;;9002226.02101,"1804,BR3FY0Z ",.02)

 +244     ;;BR3FY0Z

 +245     ;;9002226.02101,"1804,BR3FY0Z ",.03)

 +246     ;;31

 +247     ;;9002226.02101,"1804,BR3FYZZ ",.01)

 +248     ;;BR3FYZZ

 +249     ;;9002226.02101,"1804,BR3FYZZ ",.02)

 +250     ;;BR3FYZZ

 +251     ;;9002226.02101,"1804,BR3FYZZ ",.03)

 +252     ;;31

 +253     ;;9002226.02101,"1804,BR3FZZZ ",.01)

 +254     ;;BR3FZZZ

 +255     ;;9002226.02101,"1804,BR3FZZZ ",.02)

 +256     ;;BR3FZZZ

 +257     ;;9002226.02101,"1804,BR3FZZZ ",.03)

 +258     ;;31

 +259     ;;9002226.02101,"1804,BR40ZZZ ",.01)

 +260     ;;BR40ZZZ

 +261     ;;9002226.02101,"1804,BR40ZZZ ",.02)

 +262     ;;BR40ZZZ

 +263     ;;9002226.02101,"1804,BR40ZZZ ",.03)

 +264     ;;31

 +265     ;;9002226.02101,"1804,BR47ZZZ ",.01)

 +266     ;;BR47ZZZ

 +267     ;;9002226.02101,"1804,BR47ZZZ ",.02)

 +268     ;;BR47ZZZ

 +269     ;;9002226.02101,"1804,BR47ZZZ ",.03)

 +270     ;;31

 +271     ;;9002226.02101,"1804,BR49ZZZ ",.01)

 +272     ;;BR49ZZZ

 +273     ;;9002226.02101,"1804,BR49ZZZ ",.02)

 +274     ;;BR49ZZZ

 +275     ;;9002226.02101,"1804,BR49ZZZ ",.03)

 +276     ;;31

 +277     ;;9002226.02101,"1804,BR4FZZZ ",.01)

 +278     ;;BR4FZZZ

 +279     ;;9002226.02101,"1804,BR4FZZZ ",.02)

 +280     ;;BR4FZZZ

 +281     ;;9002226.02101,"1804,BR4FZZZ ",.03)

 +282     ;;31

 +283     ;;9002226.02101,"1804,BT000ZZ ",.01)

 +284     ;;BT000ZZ

 +285     ;;9002226.02101,"1804,BT000ZZ ",.02)

 +286     ;;BT000ZZ

 +287     ;;9002226.02101,"1804,BT000ZZ ",.03)

 +288     ;;31

 +289     ;;9002226.02101,"1804,BT001ZZ ",.01)

 +290     ;;BT001ZZ

 +291     ;;9002226.02101,"1804,BT001ZZ ",.02)

 +292     ;;BT001ZZ

 +293     ;;9002226.02101,"1804,BT001ZZ ",.03)

 +294     ;;31

 +295     ;;9002226.02101,"1804,BT00YZZ ",.01)

 +296     ;;BT00YZZ

 +297     ;;9002226.02101,"1804,BT00YZZ ",.02)

 +298     ;;BT00YZZ

 +299     ;;9002226.02101,"1804,BT00YZZ ",.03)

 +300     ;;31

 +301     ;;9002226.02101,"1804,BT00ZZZ ",.01)

 +302     ;;BT00ZZZ

 +303     ;;9002226.02101,"1804,BT00ZZZ ",.02)

 +304     ;;BT00ZZZ

 +305     ;;9002226.02101,"1804,BT00ZZZ ",.03)

 +306     ;;31

 +307     ;;9002226.02101,"1804,BT010ZZ ",.01)

 +308     ;;BT010ZZ

 +309     ;;9002226.02101,"1804,BT010ZZ ",.02)

 +310     ;;BT010ZZ

 +311     ;;9002226.02101,"1804,BT010ZZ ",.03)

 +312     ;;31

 +313     ;;9002226.02101,"1804,BT011ZZ ",.01)

 +314     ;;BT011ZZ

 +315     ;;9002226.02101,"1804,BT011ZZ ",.02)

 +316     ;;BT011ZZ

 +317     ;;9002226.02101,"1804,BT011ZZ ",.03)

 +318     ;;31

 +319     ;;9002226.02101,"1804,BT01YZZ ",.01)

 +320     ;;BT01YZZ

 +321     ;;9002226.02101,"1804,BT01YZZ ",.02)

 +322     ;;BT01YZZ

 +323     ;;9002226.02101,"1804,BT01YZZ ",.03)

 +324     ;;31

 +325     ;;9002226.02101,"1804,BT01ZZZ ",.01)

 +326     ;;BT01ZZZ

 +327     ;;9002226.02101,"1804,BT01ZZZ ",.02)

 +328     ;;BT01ZZZ

 +329     ;;9002226.02101,"1804,BT01ZZZ ",.03)

 +330     ;;31

 +331     ;;9002226.02101,"1804,BT020ZZ ",.01)

 +332     ;;BT020ZZ

 +333     ;;9002226.02101,"1804,BT020ZZ ",.02)

 +334     ;;BT020ZZ

 +335     ;;9002226.02101,"1804,BT020ZZ ",.03)

 +336     ;;31

 +337     ;;9002226.02101,"1804,BT021ZZ ",.01)

 +338     ;;BT021ZZ

 +339     ;;9002226.02101,"1804,BT021ZZ ",.02)

 +340     ;;BT021ZZ

 +341     ;;9002226.02101,"1804,BT021ZZ ",.03)

 +342     ;;31

 +343     ;;9002226.02101,"1804,BT02YZZ ",.01)

 +344     ;;BT02YZZ

 +345     ;;9002226.02101,"1804,BT02YZZ ",.02)

 +346     ;;BT02YZZ

 +347     ;;9002226.02101,"1804,BT02YZZ ",.03)

 +348     ;;31

 +349     ;;9002226.02101,"1804,BT02ZZZ ",.01)

 +350     ;;BT02ZZZ

 +351     ;;9002226.02101,"1804,BT02ZZZ ",.02)

 +352     ;;BT02ZZZ

 +353     ;;9002226.02101,"1804,BT02ZZZ ",.03)

 +354     ;;31

 +355     ;;9002226.02101,"1804,BT030ZZ ",.01)

 +356     ;;BT030ZZ

 +357     ;;9002226.02101,"1804,BT030ZZ ",.02)

 +358     ;;BT030ZZ

 +359     ;;9002226.02101,"1804,BT030ZZ ",.03)

 +360     ;;31

 +361     ;;9002226.02101,"1804,BT031ZZ ",.01)

 +362     ;;BT031ZZ

 +363     ;;9002226.02101,"1804,BT031ZZ ",.02)

 +364     ;;BT031ZZ

 +365     ;;9002226.02101,"1804,BT031ZZ ",.03)

 +366     ;;31

 +367     ;;9002226.02101,"1804,BT03YZZ ",.01)

 +368     ;;BT03YZZ

 +369     ;;9002226.02101,"1804,BT03YZZ ",.02)

 +370     ;;BT03YZZ

 +371     ;;9002226.02101,"1804,BT03YZZ ",.03)

 +372     ;;31

 +373     ;;9002226.02101,"1804,BT03ZZZ ",.01)

 +374     ;;BT03ZZZ

 +375     ;;9002226.02101,"1804,BT03ZZZ ",.02)

 +376     ;;BT03ZZZ

 +377     ;;9002226.02101,"1804,BT03ZZZ ",.03)

 +378     ;;31

 +379     ;;9002226.02101,"1804,BT040ZZ ",.01)

 +380     ;;BT040ZZ

 +381     ;;9002226.02101,"1804,BT040ZZ ",.02)

 +382     ;;BT040ZZ

 +383     ;;9002226.02101,"1804,BT040ZZ ",.03)

 +384     ;;31

 +385     ;;9002226.02101,"1804,BT041ZZ ",.01)

 +386     ;;BT041ZZ

 +387     ;;9002226.02101,"1804,BT041ZZ ",.02)

 +388     ;;BT041ZZ

 +389     ;;9002226.02101,"1804,BT041ZZ ",.03)

 +390     ;;31

 +391     ;;9002226.02101,"1804,BT04YZZ ",.01)

 +392     ;;BT04YZZ

 +393     ;;9002226.02101,"1804,BT04YZZ ",.02)

 +394     ;;BT04YZZ

 +395     ;;9002226.02101,"1804,BT04YZZ ",.03)

 +396     ;;31

 +397     ;;9002226.02101,"1804,BT04ZZZ ",.01)

 +398     ;;BT04ZZZ

 +399     ;;9002226.02101,"1804,BT04ZZZ ",.02)

 +400     ;;BT04ZZZ

 +401     ;;9002226.02101,"1804,BT04ZZZ ",.03)

 +402     ;;31

 +403     ;;9002226.02101,"1804,BT050ZZ ",.01)

 +404     ;;BT050ZZ

 +405     ;;9002226.02101,"1804,BT050ZZ ",.02)

 +406     ;;BT050ZZ

 +407     ;;9002226.02101,"1804,BT050ZZ ",.03)

 +408     ;;31

 +409     ;;9002226.02101,"1804,BT051ZZ ",.01)

 +410     ;;BT051ZZ

 +411     ;;9002226.02101,"1804,BT051ZZ ",.02)

 +412     ;;BT051ZZ

 +413     ;;9002226.02101,"1804,BT051ZZ ",.03)

 +414     ;;31

 +415     ;;9002226.02101,"1804,BT05YZZ ",.01)

 +416     ;;BT05YZZ

 +417     ;;9002226.02101,"1804,BT05YZZ ",.02)

 +418     ;;BT05YZZ

 +419     ;;9002226.02101,"1804,BT05YZZ ",.03)

 +420     ;;31

 +421     ;;9002226.02101,"1804,BT05ZZZ ",.01)

 +422     ;;BT05ZZZ

 +423     ;;9002226.02101,"1804,BT05ZZZ ",.02)

 +424     ;;BT05ZZZ

 +425     ;;9002226.02101,"1804,BT05ZZZ ",.03)

 +426     ;;31

 +427     ;;9002226.02101,"1804,BT060ZZ ",.01)

 +428     ;;BT060ZZ

 +429     ;;9002226.02101,"1804,BT060ZZ ",.02)

 +430     ;;BT060ZZ

 +431     ;;9002226.02101,"1804,BT060ZZ ",.03)

 +432     ;;31

 +433     ;;9002226.02101,"1804,BT061ZZ ",.01)

 +434     ;;BT061ZZ

 +435     ;;9002226.02101,"1804,BT061ZZ ",.02)

 +436     ;;BT061ZZ

 +437     ;;9002226.02101,"1804,BT061ZZ ",.03)

 +438     ;;31

 +439     ;;9002226.02101,"1804,BT06YZZ ",.01)

 +440     ;;BT06YZZ

 +441     ;;9002226.02101,"1804,BT06YZZ ",.02)

 +442     ;;BT06YZZ

 +443     ;;9002226.02101,"1804,BT06YZZ ",.03)

 +444     ;;31

 +445     ;;9002226.02101,"1804,BT06ZZZ ",.01)

 +446     ;;BT06ZZZ

 +447     ;;9002226.02101,"1804,BT06ZZZ ",.02)

 +448     ;;BT06ZZZ

 +449     ;;9002226.02101,"1804,BT06ZZZ ",.03)

 +450     ;;31

 +451     ;;9002226.02101,"1804,BT070ZZ ",.01)

 +452     ;;BT070ZZ

 +453     ;;9002226.02101,"1804,BT070ZZ ",.02)

 +454     ;;BT070ZZ

 +455     ;;9002226.02101,"1804,BT070ZZ ",.03)

 +456     ;;31

 +457     ;;9002226.02101,"1804,BT071ZZ ",.01)

 +458     ;;BT071ZZ

 +459     ;;9002226.02101,"1804,BT071ZZ ",.02)

 +460     ;;BT071ZZ

 +461     ;;9002226.02101,"1804,BT071ZZ ",.03)

 +462     ;;31

 +463     ;;9002226.02101,"1804,BT07YZZ ",.01)

 +464     ;;BT07YZZ

 +465     ;;9002226.02101,"1804,BT07YZZ ",.02)

 +466     ;;BT07YZZ

 +467     ;;9002226.02101,"1804,BT07YZZ ",.03)

 +468     ;;31

 +469     ;;9002226.02101,"1804,BT07ZZZ ",.01)

 +470     ;;BT07ZZZ

ATXXB205.m