Routine: BGP8EXPC

BGP8EXPC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;

 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008

 ;;;BGP6;;SEP 28, 2007

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,"549,1548-7 ",.02)

 ;;1548-7

 ;;9002226.02101,"549,1549-5 ",.01)

 ;;1549-5

 ;;9002226.02101,"549,1549-5 ",.02)

 ;;1549-5

 ;;9002226.02101,"549,1550-3 ",.01)

 ;;1550-3

 ;;9002226.02101,"549,1550-3 ",.02)

 ;;1550-3

 ;;9002226.02101,"549,1551-1 ",.01)

 ;;1551-1

 ;;9002226.02101,"549,1551-1 ",.02)

 ;;1551-1

 ;;9002226.02101,"549,1552-9 ",.01)

 ;;1552-9

 ;;9002226.02101,"549,1552-9 ",.02)

 ;;1552-9

 ;;9002226.02101,"549,1553-7 ",.01)

 ;;1553-7

 ;;9002226.02101,"549,1553-7 ",.02)

 ;;1553-7

 ;;9002226.02101,"549,1554-5 ",.01)

 ;;1554-5

 ;;9002226.02101,"549,1554-5 ",.02)

 ;;1554-5

 ;;9002226.02101,"549,1555-2 ",.01)

 ;;1555-2

 ;;9002226.02101,"549,1555-2 ",.02)

 ;;1555-2

 ;;9002226.02101,"549,1556-0 ",.01)

 ;;1556-0

 ;;9002226.02101,"549,1556-0 ",.02)

 ;;1556-0

 ;;9002226.02101,"549,1557-8 ",.01)

 ;;1557-8

 ;;9002226.02101,"549,1557-8 ",.02)

 ;;1557-8

 ;;9002226.02101,"549,1558-6 ",.01)

 ;;1558-6

 ;;9002226.02101,"549,1558-6 ",.02)

 ;;1558-6

 ;;9002226.02101,"549,16165-3 ",.01)

 ;;16165-3

 ;;9002226.02101,"549,16165-3 ",.02)

 ;;16165-3

 ;;9002226.02101,"549,16166-1 ",.01)

 ;;16166-1

 ;;9002226.02101,"549,16166-1 ",.02)

 ;;16166-1

 ;;9002226.02101,"549,16167-9 ",.01)

 ;;16167-9

 ;;9002226.02101,"549,16167-9 ",.02)

 ;;16167-9

 ;;9002226.02101,"549,16168-7 ",.01)

 ;;16168-7

 ;;9002226.02101,"549,16168-7 ",.02)

 ;;16168-7

 ;;9002226.02101,"549,16169-5 ",.01)

 ;;16169-5

 ;;9002226.02101,"549,16169-5 ",.02)

 ;;16169-5

 ;;9002226.02101,"549,16170-3 ",.01)

 ;;16170-3

 ;;9002226.02101,"549,16170-3 ",.02)

 ;;16170-3

 ;;9002226.02101,"549,16906-0 ",.01)

 ;;16906-0

 ;;9002226.02101,"549,16906-0 ",.02)

 ;;16906-0

 ;;9002226.02101,"549,16907-8 ",.01)

 ;;16907-8

 ;;9002226.02101,"549,16907-8 ",.02)

 ;;16907-8

 ;;9002226.02101,"549,16908-6 ",.01)

 ;;16908-6

 ;;9002226.02101,"549,16908-6 ",.02)

 ;;16908-6

 ;;9002226.02101,"549,16909-4 ",.01)

 ;;16909-4

 ;;9002226.02101,"549,16909-4 ",.02)

 ;;16909-4

 ;;9002226.02101,"549,16910-2 ",.01)

 ;;16910-2

 ;;9002226.02101,"549,16910-2 ",.02)

 ;;16910-2

 ;;9002226.02101,"549,16911-0 ",.01)

 ;;16911-0

 ;;9002226.02101,"549,16911-0 ",.02)

 ;;16911-0

 ;;9002226.02101,"549,16912-8 ",.01)

 ;;16912-8

 ;;9002226.02101,"549,16912-8 ",.02)

 ;;16912-8

 ;;9002226.02101,"549,16913-6 ",.01)

 ;;16913-6

 ;;9002226.02101,"549,16913-6 ",.02)

 ;;16913-6

 ;;9002226.02101,"549,16914-4 ",.01)

 ;;16914-4

 ;;9002226.02101,"549,16914-4 ",.02)

 ;;16914-4

 ;;9002226.02101,"549,16915-1 ",.01)

 ;;16915-1

 ;;9002226.02101,"549,16915-1 ",.02)

 ;;16915-1

 ;;9002226.02101,"549,17865-7 ",.01)

 ;;17865-7

 ;;9002226.02101,"549,17865-7 ",.02)

 ;;17865-7

 ;;9002226.02101,"549,18296-4 ",.01)

 ;;18296-4

 ;;9002226.02101,"549,18296-4 ",.02)

 ;;18296-4

 ;;9002226.02101,"549,18342-6 ",.01)

 ;;18342-6

 ;;9002226.02101,"549,18342-6 ",.02)

 ;;18342-6

 ;;9002226.02101,"549,18353-3 ",.01)

 ;;18353-3

 ;;9002226.02101,"549,18353-3 ",.02)

 ;;18353-3

 ;;9002226.02101,"549,18354-1 ",.01)

 ;;18354-1

 ;;9002226.02101,"549,18354-1 ",.02)

 ;;18354-1

 ;;9002226.02101,"549,19104-9 ",.01)

 ;;19104-9

 ;;9002226.02101,"549,19104-9 ",.02)

 ;;19104-9

 ;;9002226.02101,"549,19105-6 ",.01)

 ;;19105-6

 ;;9002226.02101,"549,19105-6 ",.02)

 ;;19105-6

 ;;9002226.02101,"549,20436-2 ",.01)

 ;;20436-2

 ;;9002226.02101,"549,20436-2 ",.02)

 ;;20436-2

 ;;9002226.02101,"549,20437-0 ",.01)

 ;;20437-0

 ;;9002226.02101,"549,20437-0 ",.02)

 ;;20437-0

 ;;9002226.02101,"549,20438-8 ",.01)

 ;;20438-8

 ;;9002226.02101,"549,20438-8 ",.02)

 ;;20438-8

 ;;9002226.02101,"549,20439-6 ",.01)

 ;;20439-6

 ;;9002226.02101,"549,20439-6 ",.02)

 ;;20439-6

 ;;9002226.02101,"549,20440-4 ",.01)

 ;;20440-4

 ;;9002226.02101,"549,20440-4 ",.02)

 ;;20440-4

 ;;9002226.02101,"549,20441-2 ",.01)

 ;;20441-2

 ;;9002226.02101,"549,20441-2 ",.02)

 ;;20441-2

 ;;9002226.02101,"549,21308-2 ",.01)

 ;;21308-2

 ;;9002226.02101,"549,21308-2 ",.02)

 ;;21308-2

 ;;9002226.02101,"549,21309-0 ",.01)

 ;;21309-0

 ;;9002226.02101,"549,21309-0 ",.02)

 ;;21309-0

 ;;9002226.02101,"549,21310-8 ",.01)

 ;;21310-8

 ;;9002226.02101,"549,21310-8 ",.02)

 ;;21310-8

 ;;9002226.02101,"549,2339-0 ",.01)

 ;;2339-0

 ;;9002226.02101,"549,2339-0 ",.02)

 ;;2339-0

 ;;9002226.02101,"549,2340-8 ",.01)

 ;;2340-8

 ;;9002226.02101,"549,2340-8 ",.02)

 ;;2340-8

 ;;9002226.02101,"549,2341-6 ",.01)

 ;;2341-6

 ;;9002226.02101,"549,2341-6 ",.02)

 ;;2341-6

 ;;9002226.02101,"549,2345-7 ",.01)

 ;;2345-7

 ;;9002226.02101,"549,2345-7 ",.02)

 ;;2345-7

 ;;9002226.02101,"549,25663-6 ",.01)

 ;;25663-6

 ;;9002226.02101,"549,25663-6 ",.02)

 ;;25663-6

 ;;9002226.02101,"549,25665-1 ",.01)

 ;;25665-1

 ;;9002226.02101,"549,25665-1 ",.02)

 ;;25665-1

 ;;9002226.02101,"549,25666-9 ",.01)

 ;;25666-9

 ;;9002226.02101,"549,25666-9 ",.02)

 ;;25666-9

 ;;9002226.02101,"549,25668-5 ",.01)

 ;;25668-5

 ;;9002226.02101,"549,25668-5 ",.02)

 ;;25668-5

 ;;9002226.02101,"549,25669-3 ",.01)

 ;;25669-3

 ;;9002226.02101,"549,25669-3 ",.02)

 ;;25669-3

 ;;9002226.02101,"549,25671-9 ",.01)

 ;;25671-9

 ;;9002226.02101,"549,25671-9 ",.02)

 ;;25671-9

 ;;9002226.02101,"549,25672-7 ",.01)

 ;;25672-7

 ;;9002226.02101,"549,25672-7 ",.02)

 ;;25672-7

 ;;9002226.02101,"549,25673-5 ",.01)

 ;;25673-5

 ;;9002226.02101,"549,25673-5 ",.02)

 ;;25673-5

 ;;9002226.02101,"549,25674-3 ",.01)

 ;;25674-3

 ;;9002226.02101,"549,25674-3 ",.02)

 ;;25674-3

 ;;9002226.02101,"549,25676-8 ",.01)

 ;;25676-8

 ;;9002226.02101,"549,25676-8 ",.02)

 ;;25676-8

 ;;9002226.02101,"549,25677-6 ",.01)

 ;;25677-6

 ;;9002226.02101,"549,25677-6 ",.02)

 ;;25677-6

 ;;9002226.02101,"549,25679-2 ",.01)

 ;;25679-2

 ;;9002226.02101,"549,25679-2 ",.02)

 ;;25679-2

 ;;9002226.02101,"549,25680-0 ",.01)

 ;;25680-0

 ;;9002226.02101,"549,25680-0 ",.02)

 ;;25680-0

 ;;9002226.02101,"549,26538-9 ",.01)

 ;;26538-9

 ;;9002226.02101,"549,26538-9 ",.02)

 ;;26538-9

 ;;9002226.02101,"549,26539-7 ",.01)

 ;;26539-7

 ;;9002226.02101,"549,26539-7 ",.02)

 ;;26539-7

 ;;9002226.02101,"549,26540-5 ",.01)

 ;;26540-5

 ;;9002226.02101,"549,26540-5 ",.02)

 ;;26540-5

 ;;9002226.02101,"549,26541-3 ",.01)

 ;;26541-3

 ;;9002226.02101,"549,26541-3 ",.02)

 ;;26541-3

 ;;9002226.02101,"549,26543-9 ",.01)

 ;;26543-9

 ;;9002226.02101,"549,26543-9 ",.02)

 ;;26543-9

 ;;9002226.02101,"549,26544-7 ",.01)

 ;;26544-7

 ;;9002226.02101,"549,26544-7 ",.02)

 ;;26544-7

 ;;9002226.02101,"549,26548-8 ",.01)

 ;;26548-8

 ;;9002226.02101,"549,26548-8 ",.02)

 ;;26548-8

 ;;9002226.02101,"549,26549-6 ",.01)

 ;;26549-6

 ;;9002226.02101,"549,26549-6 ",.02)

 ;;26549-6

 ;;9002226.02101,"549,26552-0 ",.01)

 ;;26552-0

 ;;9002226.02101,"549,26552-0 ",.02)

 ;;26552-0

 ;;9002226.02101,"549,26554-6 ",.01)

 ;;26554-6

 ;;9002226.02101,"549,26554-6 ",.02)

 ;;26554-6

 ;;9002226.02101,"549,26555-3 ",.01)

 ;;26555-3

 ;;9002226.02101,"549,26555-3 ",.02)

 ;;26555-3

 ;;9002226.02101,"549,26695-7 ",.01)

 ;;26695-7

 ;;9002226.02101,"549,26695-7 ",.02)

 ;;26695-7

 ;;9002226.02101,"549,26777-3 ",.01)

 ;;26777-3

 ;;9002226.02101,"549,26777-3 ",.02)

 ;;26777-3

 ;;9002226.02101,"549,26778-1 ",.01)

 ;;26778-1

 ;;9002226.02101,"549,26778-1 ",.02)

 ;;26778-1

 ;;9002226.02101,"549,26779-9 ",.01)

 ;;26779-9

 ;;9002226.02101,"549,26779-9 ",.02)

 ;;26779-9

 ;;9002226.02101,"549,26780-7 ",.01)

 ;;26780-7

 ;;9002226.02101,"549,26780-7 ",.02)

 ;;26780-7

 ;;9002226.02101,"549,26781-5 ",.01)

 ;;26781-5

 ;;9002226.02101,"549,26781-5 ",.02)

 ;;26781-5

 ;;9002226.02101,"549,26782-3 ",.01)

 ;;26782-3

 ;;9002226.02101,"549,26782-3 ",.02)

 ;;26782-3

 ;;9002226.02101,"549,26783-1 ",.01)

 ;;26783-1

 ;;9002226.02101,"549,26783-1 ",.02)

 ;;26783-1

 ;;9002226.02101,"549,26817-7 ",.01)

 ;;26817-7

 ;;9002226.02101,"549,26817-7 ",.02)

 ;;26817-7

 ;;9002226.02101,"549,26853-2 ",.01)

 ;;26853-2

 ;;9002226.02101,"549,26853-2 ",.02)

 ;;26853-2

 ;;9002226.02101,"549,26854-0 ",.01)

 ;;26854-0

 ;;9002226.02101,"549,26854-0 ",.02)

 ;;26854-0

 ;;9002226.02101,"549,27353-2 ",.01)

 ;;27353-2

 ;;9002226.02101,"549,27353-2 ",.02)

 ;;27353-2

 ;;9002226.02101,"549,27432-4 ",.01)

 ;;27432-4

 ;;9002226.02101,"549,27432-4 ",.02)

 ;;27432-4

 ;;9002226.02101,"549,29329-0 ",.01)

 ;;29329-0

 ;;9002226.02101,"549,29329-0 ",.02)

 ;;29329-0

 ;;9002226.02101,"549,29330-8 ",.01)

 ;;29330-8

 ;;9002226.02101,"549,29330-8 ",.02)

 ;;29330-8

 ;;9002226.02101,"549,29331-6 ",.01)

 ;;29331-6

 ;;9002226.02101,"549,29331-6 ",.02)

 ;;29331-6

 ;;9002226.02101,"549,29332-4 ",.01)

 ;;29332-4

 ;;9002226.02101,"549,29332-4 ",.02)

 ;;29332-4

 ;;9002226.02101,"549,29412-4 ",.01)

 ;;29412-4

 ;;9002226.02101,"549,29412-4 ",.02)

 ;;29412-4

 ;;9002226.02101,"549,30251-3 ",.01)

 ;;30251-3

 ;;9002226.02101,"549,30251-3 ",.02)

 ;;30251-3

 ;;9002226.02101,"549,30252-1 ",.01)

 ;;30252-1

 ;;9002226.02101,"549,30252-1 ",.02)

 ;;30252-1

 ;;9002226.02101,"549,30253-9 ",.01)

 ;;30253-9

 ;;9002226.02101,"549,30253-9 ",.02)

 ;;30253-9

 ;;9002226.02101,"549,30263-8 ",.01)

 ;;30263-8

 ;;9002226.02101,"549,30263-8 ",.02)

 ;;30263-8

 ;;9002226.02101,"549,30264-6 ",.01)

 ;;30264-6

 ;;9002226.02101,"549,30264-6 ",.02)

 ;;30264-6

 ;;9002226.02101,"549,30265-3 ",.01)

 ;;30265-3

 ;;9002226.02101,"549,30265-3 ",.02)

 ;;30265-3

 ;;9002226.02101,"549,30266-1 ",.01)

 ;;30266-1

 ;;9002226.02101,"549,30266-1 ",.02)

 ;;30266-1

 ;;9002226.02101,"549,30267-9 ",.01)

 ;;30267-9

 ;;9002226.02101,"549,30267-9 ",.02)

 ;;30267-9

 ;;9002226.02101,"549,30344-6 ",.01)

 ;;30344-6

 ;;9002226.02101,"549,30344-6 ",.02)

 ;;30344-6

 ;;9002226.02101,"549,30345-3 ",.01)

 ;;30345-3

 ;;9002226.02101,"549,30345-3 ",.02)

 ;;30345-3

 ;;9002226.02101,"549,30346-1 ",.01)

 ;;30346-1

 ;;9002226.02101,"549,30346-1 ",.02)

 ;;30346-1

 ;;9002226.02101,"549,32016-8 ",.01)

 ;;32016-8

 ;;9002226.02101,"549,32016-8 ",.02)

 ;;32016-8

 ;;9002226.02101,"549,32319-6 ",.01)

 ;;32319-6

 ;;9002226.02101,"549,32319-6 ",.02)

 ;;32319-6

 ;;9002226.02101,"549,32320-4 ",.01)

 ;;32320-4

 ;;9002226.02101,"549,32320-4 ",.02)

 ;;32320-4

 ;;9002226.02101,"549,32321-2 ",.01)

 ;;32321-2

 ;;9002226.02101,"549,32321-2 ",.02)

 ;;32321-2

 ;;9002226.02101,"549,32322-0 ",.01)

 ;;32322-0

 ;;9002226.02101,"549,32322-0 ",.02)

 ;;32322-0

 ;;9002226.02101,"549,32359-2 ",.01)

 ;;32359-2

 ;;9002226.02101,"549,32359-2 ",.02)

 ;;32359-2

 ;;9002226.02101,"549,32820-3 ",.01)

 ;;32820-3

 ;;9002226.02101,"549,32820-3 ",.02)

 ;;32820-3

 ;;9002226.02101,"549,33024-1 ",.01)

 ;;33024-1

 ;;9002226.02101,"549,33024-1 ",.02)

 ;;33024-1

 ;;9002226.02101,"549,34056-2 ",.01)

 ;;34056-2

 ;;9002226.02101,"549,34056-2 ",.02)

 ;;34056-2

 ;;9002226.02101,"549,34057-0 ",.01)

 ;;34057-0

 ;;9002226.02101,"549,34057-0 ",.02)

 ;;34057-0

 ;;9002226.02101,"549,34058-8 ",.01)

 ;;34058-8

 ;;9002226.02101,"549,34058-8 ",.02)

 ;;34058-8

 ;;9002226.02101,"549,34059-6 ",.01)

 ;;34059-6

 ;;9002226.02101,"549,34059-6 ",.02)

 ;;34059-6

 ;;9002226.02101,"549,34060-4 ",.01)

 ;;34060-4

 ;;9002226.02101,"549,34060-4 ",.02)

 ;;34060-4

 ;;9002226.02101,"549,35184-1 ",.01)

 ;;35184-1

 ;;9002226.02101,"549,35184-1 ",.02)

 ;;35184-1

 ;;9002226.02101,"549,35211-2 ",.01)

 ;;35211-2

 ;;9002226.02101,"549,35211-2 ",.02)

 ;;35211-2

 ;;9002226.02101,"549,39480-9 ",.01)

 ;;39480-9

 ;;9002226.02101,"549,39480-9 ",.02)

 ;;39480-9

 ;;9002226.02101,"549,39481-7 ",.01)

 ;;39481-7

 ;;9002226.02101,"549,39481-7 ",.02)

 ;;39481-7

 ;;9002226.02101,"549,39561-6 ",.01)

 ;;39561-6

 ;;9002226.02101,"549,39561-6 ",.02)

 ;;39561-6

 ;;9002226.02101,"549,39562-4 ",.01)

 ;;39562-4

 ;;9002226.02101,"549,39562-4 ",.02)

 ;;39562-4

 ;;9002226.02101,"549,39563-2 ",.01)

 ;;39563-2

 ;;9002226.02101,"549,39563-2 ",.02)

 ;;39563-2

 ;;9002226.02101,"549,39997-2 ",.01)

 ;;39997-2

 ;;9002226.02101,"549,39997-2 ",.02)

 ;;39997-2

 ;;9002226.02101,"549,39998-0 ",.01)

 ;;39998-0

 ;;9002226.02101,"549,39998-0 ",.02)

 ;;39998-0

 ;;9002226.02101,"549,39999-8 ",.01)

 ;;39999-8

 ;;9002226.02101,"549,39999-8 ",.02)

 ;;39999-8

 ;;9002226.02101,"549,40000-2 ",.01)

 ;;40000-2

 ;;9002226.02101,"549,40000-2 ",.02)

 ;;40000-2

 ;;9002226.02101,"549,40001-0 ",.01)

 ;;40001-0

 ;;9002226.02101,"549,40001-0 ",.02)

 ;;40001-0

 ;;9002226.02101,"549,40002-8 ",.01)

 ;;40002-8

 ;;9002226.02101,"549,40002-8 ",.02)

 ;;40002-8

 ;;9002226.02101,"549,40003-6 ",.01)

 ;;40003-6

 ;;9002226.02101,"549,40003-6 ",.02)

 ;;40003-6

 ;;9002226.02101,"549,40004-4 ",.01)

 ;;40004-4

 ;;9002226.02101,"549,40004-4 ",.02)

 ;;40004-4

 ;;9002226.02101,"549,40005-1 ",.01)

 ;;40005-1

 ;;9002226.02101,"549,40005-1 ",.02)

 ;;40005-1

 ;;9002226.02101,"549,40006-9 ",.01)

 ;;40006-9

 ;;9002226.02101,"549,40006-9 ",.02)

 ;;40006-9

 ;;9002226.02101,"549,40007-7 ",.01)

 ;;40007-7

 ;;9002226.02101,"549,40007-7 ",.02)

 ;;40007-7

 ;;9002226.02101,"549,40008-5 ",.01)

 ;;40008-5

 ;;9002226.02101,"549,40008-5 ",.02)

 ;;40008-5

 ;;9002226.02101,"549,40009-3 ",.01)

 ;;40009-3

 ;;9002226.02101,"549,40009-3 ",.02)

 ;;40009-3

 ;;9002226.02101,"549,40010-1 ",.01)

 ;;40010-1

 ;;9002226.02101,"549,40010-1 ",.02)

 ;;40010-1

 ;;9002226.02101,"549,40011-9 ",.01)

 ;;40011-9

 ;;9002226.02101,"549,40011-9 ",.02)

 ;;40011-9

 ;;9002226.02101,"549,40012-7 ",.01)

 ;;40012-7

 ;;9002226.02101,"549,40012-7 ",.02)

 ;;40012-7

 ;;9002226.02101,"549,40013-5 ",.01)

 ;;40013-5

 ;;9002226.02101,"549,40013-5 ",.02)

 ;;40013-5

BGP8EXPC  ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;

 +1       ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008

 +2       ;;;BGP6;;SEP 28, 2007

 +3       ;

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,"549,1548-7 ",.02)

 +2       ;;1548-7

 +3       ;;9002226.02101,"549,1549-5 ",.01)

 +4       ;;1549-5

 +5       ;;9002226.02101,"549,1549-5 ",.02)

 +6       ;;1549-5

 +7       ;;9002226.02101,"549,1550-3 ",.01)

 +8       ;;1550-3

 +9       ;;9002226.02101,"549,1550-3 ",.02)

 +10      ;;1550-3

 +11      ;;9002226.02101,"549,1551-1 ",.01)

 +12      ;;1551-1

 +13      ;;9002226.02101,"549,1551-1 ",.02)

 +14      ;;1551-1

 +15      ;;9002226.02101,"549,1552-9 ",.01)

 +16      ;;1552-9

 +17      ;;9002226.02101,"549,1552-9 ",.02)

 +18      ;;1552-9

 +19      ;;9002226.02101,"549,1553-7 ",.01)

 +20      ;;1553-7

 +21      ;;9002226.02101,"549,1553-7 ",.02)

 +22      ;;1553-7

 +23      ;;9002226.02101,"549,1554-5 ",.01)

 +24      ;;1554-5

 +25      ;;9002226.02101,"549,1554-5 ",.02)

 +26      ;;1554-5

 +27      ;;9002226.02101,"549,1555-2 ",.01)

 +28      ;;1555-2

 +29      ;;9002226.02101,"549,1555-2 ",.02)

 +30      ;;1555-2

 +31      ;;9002226.02101,"549,1556-0 ",.01)

 +32      ;;1556-0

 +33      ;;9002226.02101,"549,1556-0 ",.02)

 +34      ;;1556-0

 +35      ;;9002226.02101,"549,1557-8 ",.01)

 +36      ;;1557-8

 +37      ;;9002226.02101,"549,1557-8 ",.02)

 +38      ;;1557-8

 +39      ;;9002226.02101,"549,1558-6 ",.01)

 +40      ;;1558-6

 +41      ;;9002226.02101,"549,1558-6 ",.02)

 +42      ;;1558-6

 +43      ;;9002226.02101,"549,16165-3 ",.01)

 +44      ;;16165-3

 +45      ;;9002226.02101,"549,16165-3 ",.02)

 +46      ;;16165-3

 +47      ;;9002226.02101,"549,16166-1 ",.01)

 +48      ;;16166-1

 +49      ;;9002226.02101,"549,16166-1 ",.02)

 +50      ;;16166-1

 +51      ;;9002226.02101,"549,16167-9 ",.01)

 +52      ;;16167-9

 +53      ;;9002226.02101,"549,16167-9 ",.02)

 +54      ;;16167-9

 +55      ;;9002226.02101,"549,16168-7 ",.01)

 +56      ;;16168-7

 +57      ;;9002226.02101,"549,16168-7 ",.02)

 +58      ;;16168-7

 +59      ;;9002226.02101,"549,16169-5 ",.01)

 +60      ;;16169-5

 +61      ;;9002226.02101,"549,16169-5 ",.02)

 +62      ;;16169-5

 +63      ;;9002226.02101,"549,16170-3 ",.01)

 +64      ;;16170-3

 +65      ;;9002226.02101,"549,16170-3 ",.02)

 +66      ;;16170-3

 +67      ;;9002226.02101,"549,16906-0 ",.01)

 +68      ;;16906-0

 +69      ;;9002226.02101,"549,16906-0 ",.02)

 +70      ;;16906-0

 +71      ;;9002226.02101,"549,16907-8 ",.01)

 +72      ;;16907-8

 +73      ;;9002226.02101,"549,16907-8 ",.02)

 +74      ;;16907-8

 +75      ;;9002226.02101,"549,16908-6 ",.01)

 +76      ;;16908-6

 +77      ;;9002226.02101,"549,16908-6 ",.02)

 +78      ;;16908-6

 +79      ;;9002226.02101,"549,16909-4 ",.01)

 +80      ;;16909-4

 +81      ;;9002226.02101,"549,16909-4 ",.02)

 +82      ;;16909-4

 +83      ;;9002226.02101,"549,16910-2 ",.01)

 +84      ;;16910-2

 +85      ;;9002226.02101,"549,16910-2 ",.02)

 +86      ;;16910-2

 +87      ;;9002226.02101,"549,16911-0 ",.01)

 +88      ;;16911-0

 +89      ;;9002226.02101,"549,16911-0 ",.02)

 +90      ;;16911-0

 +91      ;;9002226.02101,"549,16912-8 ",.01)

 +92      ;;16912-8

 +93      ;;9002226.02101,"549,16912-8 ",.02)

 +94      ;;16912-8

 +95      ;;9002226.02101,"549,16913-6 ",.01)

 +96      ;;16913-6

 +97      ;;9002226.02101,"549,16913-6 ",.02)

 +98      ;;16913-6

 +99      ;;9002226.02101,"549,16914-4 ",.01)

 +100     ;;16914-4

 +101     ;;9002226.02101,"549,16914-4 ",.02)

 +102     ;;16914-4

 +103     ;;9002226.02101,"549,16915-1 ",.01)

 +104     ;;16915-1

 +105     ;;9002226.02101,"549,16915-1 ",.02)

 +106     ;;16915-1

 +107     ;;9002226.02101,"549,17865-7 ",.01)

 +108     ;;17865-7

 +109     ;;9002226.02101,"549,17865-7 ",.02)

 +110     ;;17865-7

 +111     ;;9002226.02101,"549,18296-4 ",.01)

 +112     ;;18296-4

 +113     ;;9002226.02101,"549,18296-4 ",.02)

 +114     ;;18296-4

 +115     ;;9002226.02101,"549,18342-6 ",.01)

 +116     ;;18342-6

 +117     ;;9002226.02101,"549,18342-6 ",.02)

 +118     ;;18342-6

 +119     ;;9002226.02101,"549,18353-3 ",.01)

 +120     ;;18353-3

 +121     ;;9002226.02101,"549,18353-3 ",.02)

 +122     ;;18353-3

 +123     ;;9002226.02101,"549,18354-1 ",.01)

 +124     ;;18354-1

 +125     ;;9002226.02101,"549,18354-1 ",.02)

 +126     ;;18354-1

 +127     ;;9002226.02101,"549,19104-9 ",.01)

 +128     ;;19104-9

 +129     ;;9002226.02101,"549,19104-9 ",.02)

 +130     ;;19104-9

 +131     ;;9002226.02101,"549,19105-6 ",.01)

 +132     ;;19105-6

 +133     ;;9002226.02101,"549,19105-6 ",.02)

 +134     ;;19105-6

 +135     ;;9002226.02101,"549,20436-2 ",.01)

 +136     ;;20436-2

 +137     ;;9002226.02101,"549,20436-2 ",.02)

 +138     ;;20436-2

 +139     ;;9002226.02101,"549,20437-0 ",.01)

 +140     ;;20437-0

 +141     ;;9002226.02101,"549,20437-0 ",.02)

 +142     ;;20437-0

 +143     ;;9002226.02101,"549,20438-8 ",.01)

 +144     ;;20438-8

 +145     ;;9002226.02101,"549,20438-8 ",.02)

 +146     ;;20438-8

 +147     ;;9002226.02101,"549,20439-6 ",.01)

 +148     ;;20439-6

 +149     ;;9002226.02101,"549,20439-6 ",.02)

 +150     ;;20439-6

 +151     ;;9002226.02101,"549,20440-4 ",.01)

 +152     ;;20440-4

 +153     ;;9002226.02101,"549,20440-4 ",.02)

 +154     ;;20440-4

 +155     ;;9002226.02101,"549,20441-2 ",.01)

 +156     ;;20441-2

 +157     ;;9002226.02101,"549,20441-2 ",.02)

 +158     ;;20441-2

 +159     ;;9002226.02101,"549,21308-2 ",.01)

 +160     ;;21308-2

 +161     ;;9002226.02101,"549,21308-2 ",.02)

 +162     ;;21308-2

 +163     ;;9002226.02101,"549,21309-0 ",.01)

 +164     ;;21309-0

 +165     ;;9002226.02101,"549,21309-0 ",.02)

 +166     ;;21309-0

 +167     ;;9002226.02101,"549,21310-8 ",.01)

 +168     ;;21310-8

 +169     ;;9002226.02101,"549,21310-8 ",.02)

 +170     ;;21310-8

 +171     ;;9002226.02101,"549,2339-0 ",.01)

 +172     ;;2339-0

 +173     ;;9002226.02101,"549,2339-0 ",.02)

 +174     ;;2339-0

 +175     ;;9002226.02101,"549,2340-8 ",.01)

 +176     ;;2340-8

 +177     ;;9002226.02101,"549,2340-8 ",.02)

 +178     ;;2340-8

 +179     ;;9002226.02101,"549,2341-6 ",.01)

 +180     ;;2341-6

 +181     ;;9002226.02101,"549,2341-6 ",.02)

 +182     ;;2341-6

 +183     ;;9002226.02101,"549,2345-7 ",.01)

 +184     ;;2345-7

 +185     ;;9002226.02101,"549,2345-7 ",.02)

 +186     ;;2345-7

 +187     ;;9002226.02101,"549,25663-6 ",.01)

 +188     ;;25663-6

 +189     ;;9002226.02101,"549,25663-6 ",.02)

 +190     ;;25663-6

 +191     ;;9002226.02101,"549,25665-1 ",.01)

 +192     ;;25665-1

 +193     ;;9002226.02101,"549,25665-1 ",.02)

 +194     ;;25665-1

 +195     ;;9002226.02101,"549,25666-9 ",.01)

 +196     ;;25666-9

 +197     ;;9002226.02101,"549,25666-9 ",.02)

 +198     ;;25666-9

 +199     ;;9002226.02101,"549,25668-5 ",.01)

 +200     ;;25668-5

 +201     ;;9002226.02101,"549,25668-5 ",.02)

 +202     ;;25668-5

 +203     ;;9002226.02101,"549,25669-3 ",.01)

 +204     ;;25669-3

 +205     ;;9002226.02101,"549,25669-3 ",.02)

 +206     ;;25669-3

 +207     ;;9002226.02101,"549,25671-9 ",.01)

 +208     ;;25671-9

 +209     ;;9002226.02101,"549,25671-9 ",.02)

 +210     ;;25671-9

 +211     ;;9002226.02101,"549,25672-7 ",.01)

 +212     ;;25672-7

 +213     ;;9002226.02101,"549,25672-7 ",.02)

 +214     ;;25672-7

 +215     ;;9002226.02101,"549,25673-5 ",.01)

 +216     ;;25673-5

 +217     ;;9002226.02101,"549,25673-5 ",.02)

 +218     ;;25673-5

 +219     ;;9002226.02101,"549,25674-3 ",.01)

 +220     ;;25674-3

 +221     ;;9002226.02101,"549,25674-3 ",.02)

 +222     ;;25674-3

 +223     ;;9002226.02101,"549,25676-8 ",.01)

 +224     ;;25676-8

 +225     ;;9002226.02101,"549,25676-8 ",.02)

 +226     ;;25676-8

 +227     ;;9002226.02101,"549,25677-6 ",.01)

 +228     ;;25677-6

 +229     ;;9002226.02101,"549,25677-6 ",.02)

 +230     ;;25677-6

 +231     ;;9002226.02101,"549,25679-2 ",.01)

 +232     ;;25679-2

 +233     ;;9002226.02101,"549,25679-2 ",.02)

 +234     ;;25679-2

 +235     ;;9002226.02101,"549,25680-0 ",.01)

 +236     ;;25680-0

 +237     ;;9002226.02101,"549,25680-0 ",.02)

 +238     ;;25680-0

 +239     ;;9002226.02101,"549,26538-9 ",.01)

 +240     ;;26538-9

 +241     ;;9002226.02101,"549,26538-9 ",.02)

 +242     ;;26538-9

 +243     ;;9002226.02101,"549,26539-7 ",.01)

 +244     ;;26539-7

 +245     ;;9002226.02101,"549,26539-7 ",.02)

 +246     ;;26539-7

 +247     ;;9002226.02101,"549,26540-5 ",.01)

 +248     ;;26540-5

 +249     ;;9002226.02101,"549,26540-5 ",.02)

 +250     ;;26540-5

 +251     ;;9002226.02101,"549,26541-3 ",.01)

 +252     ;;26541-3

 +253     ;;9002226.02101,"549,26541-3 ",.02)

 +254     ;;26541-3

 +255     ;;9002226.02101,"549,26543-9 ",.01)

 +256     ;;26543-9

 +257     ;;9002226.02101,"549,26543-9 ",.02)

 +258     ;;26543-9

 +259     ;;9002226.02101,"549,26544-7 ",.01)

 +260     ;;26544-7

 +261     ;;9002226.02101,"549,26544-7 ",.02)

 +262     ;;26544-7

 +263     ;;9002226.02101,"549,26548-8 ",.01)

 +264     ;;26548-8

 +265     ;;9002226.02101,"549,26548-8 ",.02)

 +266     ;;26548-8

 +267     ;;9002226.02101,"549,26549-6 ",.01)

 +268     ;;26549-6

 +269     ;;9002226.02101,"549,26549-6 ",.02)

 +270     ;;26549-6

 +271     ;;9002226.02101,"549,26552-0 ",.01)

 +272     ;;26552-0

 +273     ;;9002226.02101,"549,26552-0 ",.02)

 +274     ;;26552-0

 +275     ;;9002226.02101,"549,26554-6 ",.01)

 +276     ;;26554-6

 +277     ;;9002226.02101,"549,26554-6 ",.02)

 +278     ;;26554-6

 +279     ;;9002226.02101,"549,26555-3 ",.01)

 +280     ;;26555-3

 +281     ;;9002226.02101,"549,26555-3 ",.02)

 +282     ;;26555-3

 +283     ;;9002226.02101,"549,26695-7 ",.01)

 +284     ;;26695-7

 +285     ;;9002226.02101,"549,26695-7 ",.02)

 +286     ;;26695-7

 +287     ;;9002226.02101,"549,26777-3 ",.01)

 +288     ;;26777-3

 +289     ;;9002226.02101,"549,26777-3 ",.02)

 +290     ;;26777-3

 +291     ;;9002226.02101,"549,26778-1 ",.01)

 +292     ;;26778-1

 +293     ;;9002226.02101,"549,26778-1 ",.02)

 +294     ;;26778-1

 +295     ;;9002226.02101,"549,26779-9 ",.01)

 +296     ;;26779-9

 +297     ;;9002226.02101,"549,26779-9 ",.02)

 +298     ;;26779-9

 +299     ;;9002226.02101,"549,26780-7 ",.01)

 +300     ;;26780-7

 +301     ;;9002226.02101,"549,26780-7 ",.02)

 +302     ;;26780-7

 +303     ;;9002226.02101,"549,26781-5 ",.01)

 +304     ;;26781-5

 +305     ;;9002226.02101,"549,26781-5 ",.02)

 +306     ;;26781-5

 +307     ;;9002226.02101,"549,26782-3 ",.01)

 +308     ;;26782-3

 +309     ;;9002226.02101,"549,26782-3 ",.02)

 +310     ;;26782-3

 +311     ;;9002226.02101,"549,26783-1 ",.01)

 +312     ;;26783-1

 +313     ;;9002226.02101,"549,26783-1 ",.02)

 +314     ;;26783-1

 +315     ;;9002226.02101,"549,26817-7 ",.01)

 +316     ;;26817-7

 +317     ;;9002226.02101,"549,26817-7 ",.02)

 +318     ;;26817-7

 +319     ;;9002226.02101,"549,26853-2 ",.01)

 +320     ;;26853-2

 +321     ;;9002226.02101,"549,26853-2 ",.02)

 +322     ;;26853-2

 +323     ;;9002226.02101,"549,26854-0 ",.01)

 +324     ;;26854-0

 +325     ;;9002226.02101,"549,26854-0 ",.02)

 +326     ;;26854-0

 +327     ;;9002226.02101,"549,27353-2 ",.01)

 +328     ;;27353-2

 +329     ;;9002226.02101,"549,27353-2 ",.02)

 +330     ;;27353-2

 +331     ;;9002226.02101,"549,27432-4 ",.01)

 +332     ;;27432-4

 +333     ;;9002226.02101,"549,27432-4 ",.02)

 +334     ;;27432-4

 +335     ;;9002226.02101,"549,29329-0 ",.01)

 +336     ;;29329-0

 +337     ;;9002226.02101,"549,29329-0 ",.02)

 +338     ;;29329-0

 +339     ;;9002226.02101,"549,29330-8 ",.01)

 +340     ;;29330-8

 +341     ;;9002226.02101,"549,29330-8 ",.02)

 +342     ;;29330-8

 +343     ;;9002226.02101,"549,29331-6 ",.01)

 +344     ;;29331-6

 +345     ;;9002226.02101,"549,29331-6 ",.02)

 +346     ;;29331-6

 +347     ;;9002226.02101,"549,29332-4 ",.01)

 +348     ;;29332-4

 +349     ;;9002226.02101,"549,29332-4 ",.02)

 +350     ;;29332-4

 +351     ;;9002226.02101,"549,29412-4 ",.01)

 +352     ;;29412-4

 +353     ;;9002226.02101,"549,29412-4 ",.02)

 +354     ;;29412-4

 +355     ;;9002226.02101,"549,30251-3 ",.01)

 +356     ;;30251-3

 +357     ;;9002226.02101,"549,30251-3 ",.02)

 +358     ;;30251-3

 +359     ;;9002226.02101,"549,30252-1 ",.01)

 +360     ;;30252-1

 +361     ;;9002226.02101,"549,30252-1 ",.02)

 +362     ;;30252-1

 +363     ;;9002226.02101,"549,30253-9 ",.01)

 +364     ;;30253-9

 +365     ;;9002226.02101,"549,30253-9 ",.02)

 +366     ;;30253-9

 +367     ;;9002226.02101,"549,30263-8 ",.01)

 +368     ;;30263-8

 +369     ;;9002226.02101,"549,30263-8 ",.02)

 +370     ;;30263-8

 +371     ;;9002226.02101,"549,30264-6 ",.01)

 +372     ;;30264-6

 +373     ;;9002226.02101,"549,30264-6 ",.02)

 +374     ;;30264-6

 +375     ;;9002226.02101,"549,30265-3 ",.01)

 +376     ;;30265-3

 +377     ;;9002226.02101,"549,30265-3 ",.02)

 +378     ;;30265-3

 +379     ;;9002226.02101,"549,30266-1 ",.01)

 +380     ;;30266-1

 +381     ;;9002226.02101,"549,30266-1 ",.02)

 +382     ;;30266-1

 +383     ;;9002226.02101,"549,30267-9 ",.01)

 +384     ;;30267-9

 +385     ;;9002226.02101,"549,30267-9 ",.02)

 +386     ;;30267-9

 +387     ;;9002226.02101,"549,30344-6 ",.01)

 +388     ;;30344-6

 +389     ;;9002226.02101,"549,30344-6 ",.02)

 +390     ;;30344-6

 +391     ;;9002226.02101,"549,30345-3 ",.01)

 +392     ;;30345-3

 +393     ;;9002226.02101,"549,30345-3 ",.02)

 +394     ;;30345-3

 +395     ;;9002226.02101,"549,30346-1 ",.01)

 +396     ;;30346-1

 +397     ;;9002226.02101,"549,30346-1 ",.02)

 +398     ;;30346-1

 +399     ;;9002226.02101,"549,32016-8 ",.01)

 +400     ;;32016-8

 +401     ;;9002226.02101,"549,32016-8 ",.02)

 +402     ;;32016-8

 +403     ;;9002226.02101,"549,32319-6 ",.01)

 +404     ;;32319-6

 +405     ;;9002226.02101,"549,32319-6 ",.02)

 +406     ;;32319-6

 +407     ;;9002226.02101,"549,32320-4 ",.01)

 +408     ;;32320-4

 +409     ;;9002226.02101,"549,32320-4 ",.02)

 +410     ;;32320-4

 +411     ;;9002226.02101,"549,32321-2 ",.01)

 +412     ;;32321-2

 +413     ;;9002226.02101,"549,32321-2 ",.02)

 +414     ;;32321-2

 +415     ;;9002226.02101,"549,32322-0 ",.01)

 +416     ;;32322-0

 +417     ;;9002226.02101,"549,32322-0 ",.02)

 +418     ;;32322-0

 +419     ;;9002226.02101,"549,32359-2 ",.01)

 +420     ;;32359-2

 +421     ;;9002226.02101,"549,32359-2 ",.02)

 +422     ;;32359-2

 +423     ;;9002226.02101,"549,32820-3 ",.01)

 +424     ;;32820-3

 +425     ;;9002226.02101,"549,32820-3 ",.02)

 +426     ;;32820-3

 +427     ;;9002226.02101,"549,33024-1 ",.01)

 +428     ;;33024-1

 +429     ;;9002226.02101,"549,33024-1 ",.02)

 +430     ;;33024-1

 +431     ;;9002226.02101,"549,34056-2 ",.01)

 +432     ;;34056-2

 +433     ;;9002226.02101,"549,34056-2 ",.02)

 +434     ;;34056-2

 +435     ;;9002226.02101,"549,34057-0 ",.01)

 +436     ;;34057-0

 +437     ;;9002226.02101,"549,34057-0 ",.02)

 +438     ;;34057-0

 +439     ;;9002226.02101,"549,34058-8 ",.01)

 +440     ;;34058-8

 +441     ;;9002226.02101,"549,34058-8 ",.02)

 +442     ;;34058-8

 +443     ;;9002226.02101,"549,34059-6 ",.01)

 +444     ;;34059-6

 +445     ;;9002226.02101,"549,34059-6 ",.02)

 +446     ;;34059-6

 +447     ;;9002226.02101,"549,34060-4 ",.01)

 +448     ;;34060-4

 +449     ;;9002226.02101,"549,34060-4 ",.02)

 +450     ;;34060-4

 +451     ;;9002226.02101,"549,35184-1 ",.01)

 +452     ;;35184-1

 +453     ;;9002226.02101,"549,35184-1 ",.02)

 +454     ;;35184-1

 +455     ;;9002226.02101,"549,35211-2 ",.01)

 +456     ;;35211-2

 +457     ;;9002226.02101,"549,35211-2 ",.02)

 +458     ;;35211-2

 +459     ;;9002226.02101,"549,39480-9 ",.01)

 +460     ;;39480-9

 +461     ;;9002226.02101,"549,39480-9 ",.02)

 +462     ;;39480-9

 +463     ;;9002226.02101,"549,39481-7 ",.01)

 +464     ;;39481-7

 +465     ;;9002226.02101,"549,39481-7 ",.02)

 +466     ;;39481-7

 +467     ;;9002226.02101,"549,39561-6 ",.01)

 +468     ;;39561-6

 +469     ;;9002226.02101,"549,39561-6 ",.02)

 +470     ;;39561-6

 +471     ;;9002226.02101,"549,39562-4 ",.01)

 +472     ;;39562-4

 +473     ;;9002226.02101,"549,39562-4 ",.02)

 +474     ;;39562-4

 +475     ;;9002226.02101,"549,39563-2 ",.01)

 +476     ;;39563-2

 +477     ;;9002226.02101,"549,39563-2 ",.02)

 +478     ;;39563-2

 +479     ;;9002226.02101,"549,39997-2 ",.01)

 +480     ;;39997-2

 +481     ;;9002226.02101,"549,39997-2 ",.02)

 +482     ;;39997-2

 +483     ;;9002226.02101,"549,39998-0 ",.01)

 +484     ;;39998-0

 +485     ;;9002226.02101,"549,39998-0 ",.02)

 +486     ;;39998-0

 +487     ;;9002226.02101,"549,39999-8 ",.01)

 +488     ;;39999-8

 +489     ;;9002226.02101,"549,39999-8 ",.02)

 +490     ;;39999-8

 +491     ;;9002226.02101,"549,40000-2 ",.01)

 +492     ;;40000-2

 +493     ;;9002226.02101,"549,40000-2 ",.02)

 +494     ;;40000-2

 +495     ;;9002226.02101,"549,40001-0 ",.01)

 +496     ;;40001-0

 +497     ;;9002226.02101,"549,40001-0 ",.02)

 +498     ;;40001-0

 +499     ;;9002226.02101,"549,40002-8 ",.01)

 +500     ;;40002-8

 +501     ;;9002226.02101,"549,40002-8 ",.02)

 +502     ;;40002-8

 +503     ;;9002226.02101,"549,40003-6 ",.01)

 +504     ;;40003-6

 +505     ;;9002226.02101,"549,40003-6 ",.02)

 +506     ;;40003-6

 +507     ;;9002226.02101,"549,40004-4 ",.01)

 +508     ;;40004-4

 +509     ;;9002226.02101,"549,40004-4 ",.02)

 +510     ;;40004-4

 +511     ;;9002226.02101,"549,40005-1 ",.01)

 +512     ;;40005-1

 +513     ;;9002226.02101,"549,40005-1 ",.02)

 +514     ;;40005-1

 +515     ;;9002226.02101,"549,40006-9 ",.01)

 +516     ;;40006-9

 +517     ;;9002226.02101,"549,40006-9 ",.02)

 +518     ;;40006-9

 +519     ;;9002226.02101,"549,40007-7 ",.01)

 +520     ;;40007-7

 +521     ;;9002226.02101,"549,40007-7 ",.02)

 +522     ;;40007-7

 +523     ;;9002226.02101,"549,40008-5 ",.01)

 +524     ;;40008-5

 +525     ;;9002226.02101,"549,40008-5 ",.02)

 +526     ;;40008-5

 +527     ;;9002226.02101,"549,40009-3 ",.01)

 +528     ;;40009-3

 +529     ;;9002226.02101,"549,40009-3 ",.02)

 +530     ;;40009-3

 +531     ;;9002226.02101,"549,40010-1 ",.01)

 +532     ;;40010-1

 +533     ;;9002226.02101,"549,40010-1 ",.02)

 +534     ;;40010-1

 +535     ;;9002226.02101,"549,40011-9 ",.01)

 +536     ;;40011-9

 +537     ;;9002226.02101,"549,40011-9 ",.02)

 +538     ;;40011-9

 +539     ;;9002226.02101,"549,40012-7 ",.01)

 +540     ;;40012-7

 +541     ;;9002226.02101,"549,40012-7 ",.02)

 +542     ;;40012-7

 +543     ;;9002226.02101,"549,40013-5 ",.01)

 +544     ;;40013-5

 +545     ;;9002226.02101,"549,40013-5 ",.02)

 +546     ;;40013-5

BGP8EXPC.m