Routine: BGP2TG4

BGP2TG4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;

 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

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)

 ;;21,"66105-0984-10 ")

 ;;966

 ;;21,"66105-0984-11 ")

 ;;967

 ;;21,"66105-0984-50 ")

 ;;968

 ;;21,"66105-0985-03 ")

 ;;1023

 ;;21,"66105-0985-06 ")

 ;;1024

 ;;21,"66105-0985-10 ")

 ;;1025

 ;;21,"66105-0985-11 ")

 ;;1026

 ;;21,"66105-0985-50 ")

 ;;1027

 ;;21,"66105-0986-03 ")

 ;;1251

 ;;21,"66105-0986-06 ")

 ;;1252

 ;;21,"66105-0986-10 ")

 ;;1253

 ;;21,"66105-0986-11 ")

 ;;1254

 ;;21,"66105-0986-50 ")

 ;;1255

 ;;21,"66116-0233-30 ")

 ;;84

 ;;21,"66116-0440-30 ")

 ;;1249

 ;;21,"66267-0100-30 ")

 ;;621

 ;;21,"66267-0100-60 ")

 ;;622

 ;;21,"66267-0100-90 ")

 ;;623

 ;;21,"66267-0100-91 ")

 ;;624

 ;;21,"66267-0100-92 ")

 ;;625

 ;;21,"66267-0103-30 ")

 ;;1250

 ;;21,"66336-0028-30 ")

 ;;1029

 ;;21,"66336-0269-30 ")

 ;;778

 ;;21,"66336-0319-30 ")

 ;;147

 ;;21,"66336-0534-30 ")

 ;;292

 ;;21,"66336-0535-30 ")

 ;;347

 ;;21,"66336-0535-90 ")

 ;;348

 ;;21,"66336-0573-30 ")

 ;;395

 ;;21,"66336-0573-90 ")

 ;;396

 ;;21,"66336-0662-30 ")

 ;;483

 ;;21,"66336-0662-60 ")

 ;;484

 ;;21,"66336-0662-90 ")

 ;;485

 ;;21,"66336-0662-94 ")

 ;;486

 ;;21,"66336-0730-14 ")

 ;;617

 ;;21,"66336-0730-30 ")

 ;;618

 ;;21,"66336-0730-60 ")

 ;;619

 ;;21,"66336-0730-90 ")

 ;;620

 ;;21,"66336-0784-30 ")

 ;;202

 ;;21,"66336-0784-60 ")

 ;;156

 ;;21,"66336-0784-90 ")

 ;;157

 ;;21,"66336-0850-30 ")

 ;;96

 ;;21,"66336-0850-60 ")

 ;;97

 ;;21,"66336-0850-90 ")

 ;;98

 ;;21,"66336-0938-30 ")

 ;;1242

 ;;21,"66336-0938-60 ")

 ;;1243

 ;;21,"66336-0938-90 ")

 ;;1244

 ;;21,"66993-0162-02 ")

 ;;293

 ;;21,"66993-0163-02 ")

 ;;344

 ;;21,"66993-0164-02 ")

 ;;394

 ;;21,"67253-0460-10 ")

 ;;867

 ;;21,"67253-0460-11 ")

 ;;868

 ;;21,"67253-0460-50 ")

 ;;869

 ;;21,"67253-0461-10 ")

 ;;893

 ;;21,"67253-0461-11 ")

 ;;894

 ;;21,"67253-0461-50 ")

 ;;895

 ;;21,"67253-0462-10 ")

 ;;915

 ;;21,"67253-0462-11 ")

 ;;916

 ;;21,"67253-0462-50 ")

 ;;917

 ;;21,"67544-0097-53 ")

 ;;463

 ;;21,"67544-0097-60 ")

 ;;464

 ;;21,"67544-0097-70 ")

 ;;465

 ;;21,"67544-0097-80 ")

 ;;466

 ;;21,"67544-0097-94 ")

 ;;467

 ;;21,"67544-0098-53 ")

 ;;1283

 ;;21,"67544-0098-60 ")

 ;;1284

 ;;21,"67544-0098-70 ")

 ;;1285

 ;;21,"67544-0098-80 ")

 ;;1286

 ;;21,"67544-0098-90 ")

 ;;1287

 ;;21,"67544-0098-92 ")

 ;;1288

 ;;21,"67544-0098-94 ")

 ;;1289

 ;;21,"67544-0129-53 ")

 ;;459

 ;;21,"67544-0129-70 ")

 ;;460

 ;;21,"67544-0129-80 ")

 ;;461

 ;;21,"67544-0129-94 ")

 ;;462

 ;;21,"67544-0199-80 ")

 ;;779

 ;;21,"67544-0296-70 ")

 ;;146

 ;;21,"67544-0302-45 ")

 ;;648

 ;;21,"67544-0302-60 ")

 ;;649

 ;;21,"67544-0302-73 ")

 ;;650

 ;;21,"67544-0302-80 ")

 ;;651

 ;;21,"67544-0302-92 ")

 ;;652

 ;;21,"67544-0302-98 ")

 ;;653

 ;;21,"67544-0364-70 ")

 ;;198

 ;;21,"67544-0417-70 ")

 ;;199

 ;;21,"67544-0478-82 ")

 ;;1075

 ;;21,"67544-0511-70 ")

 ;;196

 ;;21,"67544-0548-82 ")

 ;;978

 ;;21,"67544-0566-53 ")

 ;;1219

 ;;21,"67544-0566-60 ")

 ;;1220

 ;;21,"67544-0566-70 ")

 ;;1221

 ;;21,"67544-0566-80 ")

 ;;1222

 ;;21,"67544-0566-90 ")

 ;;1223

 ;;21,"67544-0566-92 ")

 ;;1224

 ;;21,"67544-0566-94 ")

 ;;1225

 ;;21,"67544-0613-53 ")

 ;;1226

 ;;21,"67544-0613-60 ")

 ;;1227

 ;;21,"67544-0613-70 ")

 ;;1228

 ;;21,"67544-0613-80 ")

 ;;1229

 ;;21,"67544-0613-90 ")

 ;;1230

 ;;21,"67544-0613-92 ")

 ;;1231

 ;;21,"67544-0613-94 ")

 ;;1232

 ;;21,"67544-0643-80 ")

 ;;1233

 ;;21,"67544-0643-94 ")

 ;;1234

 ;;21,"67544-0653-53 ")

 ;;1235

 ;;21,"67544-0653-60 ")

 ;;1236

 ;;21,"67544-0653-70 ")

 ;;1237

 ;;21,"67544-0653-80 ")

 ;;1238

 ;;21,"67544-0653-90 ")

 ;;1239

 ;;21,"67544-0653-92 ")

 ;;1240

 ;;21,"67544-0653-94 ")

 ;;1241

 ;;21,"67544-0661-41 ")

 ;;962

 ;;21,"67544-0661-81 ")

 ;;963

 ;;21,"67544-0751-60 ")

 ;;457

 ;;21,"67544-0751-80 ")

 ;;458

 ;;21,"67544-0756-60 ")

 ;;654

 ;;21,"67544-0756-80 ")

 ;;655

 ;;21,"67544-0808-60 ")

 ;;740

 ;;21,"67544-0875-60 ")

 ;;1002

 ;;21,"67544-0875-80 ")

 ;;1003

 ;;21,"67544-0927-60 ")

 ;;1004

 ;;21,"67544-1129-70 ")

 ;;197

 ;;21,"68071-0028-30 ")

 ;;164

 ;;21,"68071-0028-60 ")

 ;;165

 ;;21,"68084-0111-01 ")

 ;;837

 ;;21,"68084-0111-11 ")

 ;;838

 ;;21,"68084-0112-01 ")

 ;;737

 ;;21,"68084-0112-11 ")

 ;;738

 ;;21,"68084-0136-01 ")

 ;;70

 ;;21,"68084-0136-11 ")

 ;;71

 ;;21,"68084-0137-01 ")

 ;;114

 ;;21,"68084-0137-11 ")

 ;;115

 ;;21,"68084-0138-01 ")

 ;;200

 ;;21,"68084-0138-11 ")

 ;;201

 ;;21,"68084-0295-11 ")

 ;;798

 ;;21,"68084-0295-21 ")

 ;;799

 ;;21,"68084-0326-01 ")

 ;;345

 ;;21,"68084-0326-11 ")

 ;;346

 ;;21,"68084-0327-01 ")

 ;;392

 ;;21,"68084-0327-11 ")

 ;;393

 ;;21,"68115-0154-30 ")

 ;;455

 ;;21,"68115-0154-60 ")

 ;;456

 ;;21,"68115-0155-30 ")

 ;;656

 ;;21,"68115-0155-60 ")

 ;;657

 ;;21,"68115-0155-90 ")

 ;;658

 ;;21,"68115-0156-30 ")

 ;;780

 ;;21,"68115-0157-30 ")

 ;;856

 ;;21,"68115-0158-30 ")

 ;;82

 ;;21,"68115-0158-60 ")

 ;;83

 ;;21,"68115-0159-30 ")

 ;;144

 ;;21,"68115-0159-60 ")

 ;;145

 ;;21,"68115-0160-30 ")

 ;;1005

 ;;21,"68115-0161-30 ")

 ;;1246

 ;;21,"68115-0161-60 ")

 ;;1247

 ;;21,"68115-0616-00 ")

 ;;839

 ;;21,"68115-0622-00 ")

 ;;918

 ;;21,"68115-0840-00 ")

 ;;351

 ;;21,"68258-1012-01 ")

 ;;659

 ;;21,"68258-1013-01 ")

 ;;454

 ;;21,"68258-1014-01 ")

 ;;1248

 ;;21,"68258-1051-01 ")

 ;;739

 ;;21,"68645-0150-54 ")

 ;;660

 ;;21,"68645-0151-59 ")

 ;;453

 ;;21,"68645-0210-54 ")

 ;;1006

 ;;21,"68645-0211-54 ")

 ;;1245

 ;;9002226,1199,.01)

 ;;BGP PQA SULFONYLUREA NDC

 ;;9002226,1199,.02)

;;@

 ;;9002226,1199,.04)

;;n

 ;;9002226,1199,.06)

;;@

 ;;9002226,1199,.08)

;;@

 ;;9002226,1199,.09)

 ;;3120312

 ;;9002226,1199,.11)

;;@

 ;;9002226,1199,.12)

;;@

 ;;9002226,1199,.13)

;;1

 ;;9002226,1199,.14)

;;@

 ;;9002226,1199,.15)

;;@

 ;;9002226,1199,.16)

;;@

 ;;9002226,1199,.17)

;;@

 ;;9002226,1199,3101)

;;@

 ;;9002226.02101,"1199,00007-3148-13 ",.01)

 ;;00007-3148-13

 ;;9002226.02101,"1199,00007-3148-13 ",.02)

 ;;00007-3148-13

 ;;9002226.02101,"1199,00007-3149-13 ",.01)

 ;;00007-3149-13

 ;;9002226.02101,"1199,00007-3149-13 ",.02)

 ;;00007-3149-13

 ;;9002226.02101,"1199,00007-3151-13 ",.01)

 ;;00007-3151-13

 ;;9002226.02101,"1199,00007-3151-13 ",.02)

 ;;00007-3151-13

 ;;9002226.02101,"1199,00007-3152-13 ",.01)

 ;;00007-3152-13

 ;;9002226.02101,"1199,00007-3152-13 ",.02)

 ;;00007-3152-13

 ;;9002226.02101,"1199,00007-3153-13 ",.01)

 ;;00007-3153-13

 ;;9002226.02101,"1199,00007-3153-13 ",.02)

 ;;00007-3153-13

 ;;9002226.02101,"1199,00009-0070-02 ",.01)

 ;;00009-0070-02

 ;;9002226.02101,"1199,00009-0070-02 ",.02)

 ;;00009-0070-02

 ;;9002226.02101,"1199,00009-0114-04 ",.01)

 ;;00009-0114-04

 ;;9002226.02101,"1199,00009-0114-04 ",.02)

 ;;00009-0114-04

 ;;9002226.02101,"1199,00009-0114-05 ",.01)

 ;;00009-0114-05

 ;;9002226.02101,"1199,00009-0114-05 ",.02)

 ;;00009-0114-05

 ;;9002226.02101,"1199,00009-0131-01 ",.01)

 ;;00009-0131-01

 ;;9002226.02101,"1199,00009-0131-01 ",.02)

 ;;00009-0131-01

 ;;9002226.02101,"1199,00009-0141-01 ",.01)

 ;;00009-0141-01

 ;;9002226.02101,"1199,00009-0141-01 ",.02)

 ;;00009-0141-01

 ;;9002226.02101,"1199,00009-0141-02 ",.01)

 ;;00009-0141-02

 ;;9002226.02101,"1199,00009-0141-02 ",.02)

 ;;00009-0141-02

 ;;9002226.02101,"1199,00009-0171-03 ",.01)

 ;;00009-0171-03

 ;;9002226.02101,"1199,00009-0171-03 ",.02)

 ;;00009-0171-03

 ;;9002226.02101,"1199,00009-0171-05 ",.01)

 ;;00009-0171-05

 ;;9002226.02101,"1199,00009-0171-05 ",.02)

 ;;00009-0171-05

 ;;9002226.02101,"1199,00009-0171-06 ",.01)

 ;;00009-0171-06

 ;;9002226.02101,"1199,00009-0171-06 ",.02)

 ;;00009-0171-06

 ;;9002226.02101,"1199,00009-0171-07 ",.01)

 ;;00009-0171-07

 ;;9002226.02101,"1199,00009-0171-07 ",.02)

 ;;00009-0171-07

 ;;9002226.02101,"1199,00009-0341-01 ",.01)

 ;;00009-0341-01

 ;;9002226.02101,"1199,00009-0341-01 ",.02)

 ;;00009-0341-01

 ;;9002226.02101,"1199,00009-0341-02 ",.01)

 ;;00009-0341-02

 ;;9002226.02101,"1199,00009-0341-02 ",.02)

 ;;00009-0341-02

 ;;9002226.02101,"1199,00009-0352-01 ",.01)

 ;;00009-0352-01

 ;;9002226.02101,"1199,00009-0352-01 ",.02)

 ;;00009-0352-01

 ;;9002226.02101,"1199,00009-0352-02 ",.01)

 ;;00009-0352-02

 ;;9002226.02101,"1199,00009-0352-02 ",.02)

 ;;00009-0352-02

 ;;9002226.02101,"1199,00009-0352-03 ",.01)

 ;;00009-0352-03

 ;;9002226.02101,"1199,00009-0352-03 ",.02)

 ;;00009-0352-03

 ;;9002226.02101,"1199,00009-0352-04 ",.01)

 ;;00009-0352-04

 ;;9002226.02101,"1199,00009-0352-04 ",.02)

 ;;00009-0352-04

 ;;9002226.02101,"1199,00009-3449-01 ",.01)

 ;;00009-3449-01

 ;;9002226.02101,"1199,00009-3449-01 ",.02)

 ;;00009-3449-01

 ;;9002226.02101,"1199,00009-3449-03 ",.01)

 ;;00009-3449-03

 ;;9002226.02101,"1199,00009-3449-03 ",.02)

 ;;00009-3449-03

 ;;9002226.02101,"1199,00029-3151-13 ",.01)

 ;;00029-3151-13

 ;;9002226.02101,"1199,00029-3151-13 ",.02)

 ;;00029-3151-13

 ;;9002226.02101,"1199,00029-3152-13 ",.01)

 ;;00029-3152-13

 ;;9002226.02101,"1199,00029-3152-13 ",.02)

 ;;00029-3152-13

 ;;9002226.02101,"1199,00029-3153-13 ",.01)

 ;;00029-3153-13

 ;;9002226.02101,"1199,00029-3153-13 ",.02)

 ;;00029-3153-13

 ;;9002226.02101,"1199,00039-0051-10 ",.01)

 ;;00039-0051-10

 ;;9002226.02101,"1199,00039-0051-10 ",.02)

 ;;00039-0051-10

 ;;9002226.02101,"1199,00039-0051-11 ",.01)

 ;;00039-0051-11

 ;;9002226.02101,"1199,00039-0051-11 ",.02)

 ;;00039-0051-11

 ;;9002226.02101,"1199,00039-0051-50 ",.01)

 ;;00039-0051-50

 ;;9002226.02101,"1199,00039-0051-50 ",.02)

 ;;00039-0051-50

 ;;9002226.02101,"1199,00039-0052-10 ",.01)

 ;;00039-0052-10

 ;;9002226.02101,"1199,00039-0052-10 ",.02)

 ;;00039-0052-10

 ;;9002226.02101,"1199,00039-0052-11 ",.01)

 ;;00039-0052-11

 ;;9002226.02101,"1199,00039-0052-11 ",.02)

 ;;00039-0052-11

 ;;9002226.02101,"1199,00039-0052-50 ",.01)

 ;;00039-0052-50

 ;;9002226.02101,"1199,00039-0052-50 ",.02)

 ;;00039-0052-50

 ;;9002226.02101,"1199,00039-0052-70 ",.01)

 ;;00039-0052-70

 ;;9002226.02101,"1199,00039-0052-70 ",.02)

 ;;00039-0052-70

 ;;9002226.02101,"1199,00039-0053-05 ",.01)

 ;;00039-0053-05

 ;;9002226.02101,"1199,00039-0053-05 ",.02)

 ;;00039-0053-05

 ;;9002226.02101,"1199,00039-0221-10 ",.01)

 ;;00039-0221-10

 ;;9002226.02101,"1199,00039-0221-10 ",.02)

 ;;00039-0221-10

 ;;9002226.02101,"1199,00039-0222-10 ",.01)

 ;;00039-0222-10

 ;;9002226.02101,"1199,00039-0222-10 ",.02)

 ;;00039-0222-10

 ;;9002226.02101,"1199,00039-0222-11 ",.01)

 ;;00039-0222-11

 ;;9002226.02101,"1199,00039-0222-11 ",.02)

 ;;00039-0222-11

 ;;9002226.02101,"1199,00039-0223-10 ",.01)

 ;;00039-0223-10

 ;;9002226.02101,"1199,00039-0223-10 ",.02)

 ;;00039-0223-10

 ;;9002226.02101,"1199,00039-0223-11 ",.01)

 ;;00039-0223-11

 ;;9002226.02101,"1199,00039-0223-11 ",.02)

 ;;00039-0223-11

 ;;9002226.02101,"1199,00049-1550-66 ",.01)

 ;;00049-1550-66

 ;;9002226.02101,"1199,00049-1550-66 ",.02)

 ;;00049-1550-66

 ;;9002226.02101,"1199,00049-1550-73 ",.01)

 ;;00049-1550-73

 ;;9002226.02101,"1199,00049-1550-73 ",.02)

 ;;00049-1550-73

 ;;9002226.02101,"1199,00049-1560-66 ",.01)

 ;;00049-1560-66

 ;;9002226.02101,"1199,00049-1560-66 ",.02)

 ;;00049-1560-66

 ;;9002226.02101,"1199,00049-1560-73 ",.01)

 ;;00049-1560-73

 ;;9002226.02101,"1199,00049-1560-73 ",.02)

 ;;00049-1560-73

 ;;9002226.02101,"1199,00049-1620-30 ",.01)

 ;;00049-1620-30

 ;;9002226.02101,"1199,00049-1620-30 ",.02)

 ;;00049-1620-30

 ;;9002226.02101,"1199,00049-4110-66 ",.01)

 ;;00049-4110-66

 ;;9002226.02101,"1199,00049-4110-66 ",.02)

 ;;00049-4110-66

 ;;9002226.02101,"1199,00049-4110-73 ",.01)

 ;;00049-4110-73

 ;;9002226.02101,"1199,00049-4110-73 ",.02)

 ;;00049-4110-73

 ;;9002226.02101,"1199,00049-4120-66 ",.01)

 ;;00049-4120-66

 ;;9002226.02101,"1199,00049-4120-66 ",.02)

 ;;00049-4120-66

 ;;9002226.02101,"1199,00049-4120-73 ",.01)

 ;;00049-4120-73

 ;;9002226.02101,"1199,00049-4120-73 ",.02)

 ;;00049-4120-73

 ;;9002226.02101,"1199,00069-3930-66 ",.01)

 ;;00069-3930-66

 ;;9002226.02101,"1199,00069-3930-66 ",.02)

 ;;00069-3930-66

 ;;9002226.02101,"1199,00069-3940-66 ",.01)

 ;;00069-3940-66

 ;;9002226.02101,"1199,00069-3940-66 ",.02)

 ;;00069-3940-66

 ;;9002226.02101,"1199,00069-3940-82 ",.01)

 ;;00069-3940-82

 ;;9002226.02101,"1199,00069-3940-82 ",.02)

 ;;00069-3940-82

 ;;9002226.02101,"1199,00087-6072-11 ",.01)

 ;;00087-6072-11

 ;;9002226.02101,"1199,00087-6072-11 ",.02)

 ;;00087-6072-11

 ;;9002226.02101,"1199,00087-6073-11 ",.01)

 ;;00087-6073-11

 ;;9002226.02101,"1199,00087-6073-11 ",.02)

 ;;00087-6073-11

 ;;9002226.02101,"1199,00087-6074-11 ",.01)

 ;;00087-6074-11

 ;;9002226.02101,"1199,00087-6074-11 ",.02)

 ;;00087-6074-11

 ;;9002226.02101,"1199,00087-6077-31 ",.01)

 ;;00087-6077-31

 ;;9002226.02101,"1199,00087-6077-31 ",.02)

 ;;00087-6077-31

 ;;9002226.02101,"1199,00087-6078-31 ",.01)

 ;;00087-6078-31

 ;;9002226.02101,"1199,00087-6078-31 ",.02)

 ;;00087-6078-31

 ;;9002226.02101,"1199,00087-6081-31 ",.01)

 ;;00087-6081-31

 ;;9002226.02101,"1199,00087-6081-31 ",.02)

 ;;00087-6081-31

 ;;9002226.02101,"1199,00093-5710-01 ",.01)

 ;;00093-5710-01

 ;;9002226.02101,"1199,00093-5710-01 ",.02)

 ;;00093-5710-01

 ;;9002226.02101,"1199,00093-5710-05 ",.01)

 ;;00093-5710-05

 ;;9002226.02101,"1199,00093-5710-05 ",.02)

 ;;00093-5710-05

 ;;9002226.02101,"1199,00093-5710-19 ",.01)

 ;;00093-5710-19

 ;;9002226.02101,"1199,00093-5710-19 ",.02)

 ;;00093-5710-19

 ;;9002226.02101,"1199,00093-5710-83 ",.01)

 ;;00093-5710-83

BGP2TG4   ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;

 +1       ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 +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       ;;21,"66105-0984-10 ")

 +2       ;;966

 +3       ;;21,"66105-0984-11 ")

 +4       ;;967

 +5       ;;21,"66105-0984-50 ")

 +6       ;;968

 +7       ;;21,"66105-0985-03 ")

 +8       ;;1023

 +9       ;;21,"66105-0985-06 ")

 +10      ;;1024

 +11      ;;21,"66105-0985-10 ")

 +12      ;;1025

 +13      ;;21,"66105-0985-11 ")

 +14      ;;1026

 +15      ;;21,"66105-0985-50 ")

 +16      ;;1027

 +17      ;;21,"66105-0986-03 ")

 +18      ;;1251

 +19      ;;21,"66105-0986-06 ")

 +20      ;;1252

 +21      ;;21,"66105-0986-10 ")

 +22      ;;1253

 +23      ;;21,"66105-0986-11 ")

 +24      ;;1254

 +25      ;;21,"66105-0986-50 ")

 +26      ;;1255

 +27      ;;21,"66116-0233-30 ")

 +28      ;;84

 +29      ;;21,"66116-0440-30 ")

 +30      ;;1249

 +31      ;;21,"66267-0100-30 ")

 +32      ;;621

 +33      ;;21,"66267-0100-60 ")

 +34      ;;622

 +35      ;;21,"66267-0100-90 ")

 +36      ;;623

 +37      ;;21,"66267-0100-91 ")

 +38      ;;624

 +39      ;;21,"66267-0100-92 ")

 +40      ;;625

 +41      ;;21,"66267-0103-30 ")

 +42      ;;1250

 +43      ;;21,"66336-0028-30 ")

 +44      ;;1029

 +45      ;;21,"66336-0269-30 ")

 +46      ;;778

 +47      ;;21,"66336-0319-30 ")

 +48      ;;147

 +49      ;;21,"66336-0534-30 ")

 +50      ;;292

 +51      ;;21,"66336-0535-30 ")

 +52      ;;347

 +53      ;;21,"66336-0535-90 ")

 +54      ;;348

 +55      ;;21,"66336-0573-30 ")

 +56      ;;395

 +57      ;;21,"66336-0573-90 ")

 +58      ;;396

 +59      ;;21,"66336-0662-30 ")

 +60      ;;483

 +61      ;;21,"66336-0662-60 ")

 +62      ;;484

 +63      ;;21,"66336-0662-90 ")

 +64      ;;485

 +65      ;;21,"66336-0662-94 ")

 +66      ;;486

 +67      ;;21,"66336-0730-14 ")

 +68      ;;617

 +69      ;;21,"66336-0730-30 ")

 +70      ;;618

 +71      ;;21,"66336-0730-60 ")

 +72      ;;619

 +73      ;;21,"66336-0730-90 ")

 +74      ;;620

 +75      ;;21,"66336-0784-30 ")

 +76      ;;202

 +77      ;;21,"66336-0784-60 ")

 +78      ;;156

 +79      ;;21,"66336-0784-90 ")

 +80      ;;157

 +81      ;;21,"66336-0850-30 ")

 +82      ;;96

 +83      ;;21,"66336-0850-60 ")

 +84      ;;97

 +85      ;;21,"66336-0850-90 ")

 +86      ;;98

 +87      ;;21,"66336-0938-30 ")

 +88      ;;1242

 +89      ;;21,"66336-0938-60 ")

 +90      ;;1243

 +91      ;;21,"66336-0938-90 ")

 +92      ;;1244

 +93      ;;21,"66993-0162-02 ")

 +94      ;;293

 +95      ;;21,"66993-0163-02 ")

 +96      ;;344

 +97      ;;21,"66993-0164-02 ")

 +98      ;;394

 +99      ;;21,"67253-0460-10 ")

 +100     ;;867

 +101     ;;21,"67253-0460-11 ")

 +102     ;;868

 +103     ;;21,"67253-0460-50 ")

 +104     ;;869

 +105     ;;21,"67253-0461-10 ")

 +106     ;;893

 +107     ;;21,"67253-0461-11 ")

 +108     ;;894

 +109     ;;21,"67253-0461-50 ")

 +110     ;;895

 +111     ;;21,"67253-0462-10 ")

 +112     ;;915

 +113     ;;21,"67253-0462-11 ")

 +114     ;;916

 +115     ;;21,"67253-0462-50 ")

 +116     ;;917

 +117     ;;21,"67544-0097-53 ")

 +118     ;;463

 +119     ;;21,"67544-0097-60 ")

 +120     ;;464

 +121     ;;21,"67544-0097-70 ")

 +122     ;;465

 +123     ;;21,"67544-0097-80 ")

 +124     ;;466

 +125     ;;21,"67544-0097-94 ")

 +126     ;;467

 +127     ;;21,"67544-0098-53 ")

 +128     ;;1283

 +129     ;;21,"67544-0098-60 ")

 +130     ;;1284

 +131     ;;21,"67544-0098-70 ")

 +132     ;;1285

 +133     ;;21,"67544-0098-80 ")

 +134     ;;1286

 +135     ;;21,"67544-0098-90 ")

 +136     ;;1287

 +137     ;;21,"67544-0098-92 ")

 +138     ;;1288

 +139     ;;21,"67544-0098-94 ")

 +140     ;;1289

 +141     ;;21,"67544-0129-53 ")

 +142     ;;459

 +143     ;;21,"67544-0129-70 ")

 +144     ;;460

 +145     ;;21,"67544-0129-80 ")

 +146     ;;461

 +147     ;;21,"67544-0129-94 ")

 +148     ;;462

 +149     ;;21,"67544-0199-80 ")

 +150     ;;779

 +151     ;;21,"67544-0296-70 ")

 +152     ;;146

 +153     ;;21,"67544-0302-45 ")

 +154     ;;648

 +155     ;;21,"67544-0302-60 ")

 +156     ;;649

 +157     ;;21,"67544-0302-73 ")

 +158     ;;650

 +159     ;;21,"67544-0302-80 ")

 +160     ;;651

 +161     ;;21,"67544-0302-92 ")

 +162     ;;652

 +163     ;;21,"67544-0302-98 ")

 +164     ;;653

 +165     ;;21,"67544-0364-70 ")

 +166     ;;198

 +167     ;;21,"67544-0417-70 ")

 +168     ;;199

 +169     ;;21,"67544-0478-82 ")

 +170     ;;1075

 +171     ;;21,"67544-0511-70 ")

 +172     ;;196

 +173     ;;21,"67544-0548-82 ")

 +174     ;;978

 +175     ;;21,"67544-0566-53 ")

 +176     ;;1219

 +177     ;;21,"67544-0566-60 ")

 +178     ;;1220

 +179     ;;21,"67544-0566-70 ")

 +180     ;;1221

 +181     ;;21,"67544-0566-80 ")

 +182     ;;1222

 +183     ;;21,"67544-0566-90 ")

 +184     ;;1223

 +185     ;;21,"67544-0566-92 ")

 +186     ;;1224

 +187     ;;21,"67544-0566-94 ")

 +188     ;;1225

 +189     ;;21,"67544-0613-53 ")

 +190     ;;1226

 +191     ;;21,"67544-0613-60 ")

 +192     ;;1227

 +193     ;;21,"67544-0613-70 ")

 +194     ;;1228

 +195     ;;21,"67544-0613-80 ")

 +196     ;;1229

 +197     ;;21,"67544-0613-90 ")

 +198     ;;1230

 +199     ;;21,"67544-0613-92 ")

 +200     ;;1231

 +201     ;;21,"67544-0613-94 ")

 +202     ;;1232

 +203     ;;21,"67544-0643-80 ")

 +204     ;;1233

 +205     ;;21,"67544-0643-94 ")

 +206     ;;1234

 +207     ;;21,"67544-0653-53 ")

 +208     ;;1235

 +209     ;;21,"67544-0653-60 ")

 +210     ;;1236

 +211     ;;21,"67544-0653-70 ")

 +212     ;;1237

 +213     ;;21,"67544-0653-80 ")

 +214     ;;1238

 +215     ;;21,"67544-0653-90 ")

 +216     ;;1239

 +217     ;;21,"67544-0653-92 ")

 +218     ;;1240

 +219     ;;21,"67544-0653-94 ")

 +220     ;;1241

 +221     ;;21,"67544-0661-41 ")

 +222     ;;962

 +223     ;;21,"67544-0661-81 ")

 +224     ;;963

 +225     ;;21,"67544-0751-60 ")

 +226     ;;457

 +227     ;;21,"67544-0751-80 ")

 +228     ;;458

 +229     ;;21,"67544-0756-60 ")

 +230     ;;654

 +231     ;;21,"67544-0756-80 ")

 +232     ;;655

 +233     ;;21,"67544-0808-60 ")

 +234     ;;740

 +235     ;;21,"67544-0875-60 ")

 +236     ;;1002

 +237     ;;21,"67544-0875-80 ")

 +238     ;;1003

 +239     ;;21,"67544-0927-60 ")

 +240     ;;1004

 +241     ;;21,"67544-1129-70 ")

 +242     ;;197

 +243     ;;21,"68071-0028-30 ")

 +244     ;;164

 +245     ;;21,"68071-0028-60 ")

 +246     ;;165

 +247     ;;21,"68084-0111-01 ")

 +248     ;;837

 +249     ;;21,"68084-0111-11 ")

 +250     ;;838

 +251     ;;21,"68084-0112-01 ")

 +252     ;;737

 +253     ;;21,"68084-0112-11 ")

 +254     ;;738

 +255     ;;21,"68084-0136-01 ")

 +256     ;;70

 +257     ;;21,"68084-0136-11 ")

 +258     ;;71

 +259     ;;21,"68084-0137-01 ")

 +260     ;;114

 +261     ;;21,"68084-0137-11 ")

 +262     ;;115

 +263     ;;21,"68084-0138-01 ")

 +264     ;;200

 +265     ;;21,"68084-0138-11 ")

 +266     ;;201

 +267     ;;21,"68084-0295-11 ")

 +268     ;;798

 +269     ;;21,"68084-0295-21 ")

 +270     ;;799

 +271     ;;21,"68084-0326-01 ")

 +272     ;;345

 +273     ;;21,"68084-0326-11 ")

 +274     ;;346

 +275     ;;21,"68084-0327-01 ")

 +276     ;;392

 +277     ;;21,"68084-0327-11 ")

 +278     ;;393

 +279     ;;21,"68115-0154-30 ")

 +280     ;;455

 +281     ;;21,"68115-0154-60 ")

 +282     ;;456

 +283     ;;21,"68115-0155-30 ")

 +284     ;;656

 +285     ;;21,"68115-0155-60 ")

 +286     ;;657

 +287     ;;21,"68115-0155-90 ")

 +288     ;;658

 +289     ;;21,"68115-0156-30 ")

 +290     ;;780

 +291     ;;21,"68115-0157-30 ")

 +292     ;;856

 +293     ;;21,"68115-0158-30 ")

 +294     ;;82

 +295     ;;21,"68115-0158-60 ")

 +296     ;;83

 +297     ;;21,"68115-0159-30 ")

 +298     ;;144

 +299     ;;21,"68115-0159-60 ")

 +300     ;;145

 +301     ;;21,"68115-0160-30 ")

 +302     ;;1005

 +303     ;;21,"68115-0161-30 ")

 +304     ;;1246

 +305     ;;21,"68115-0161-60 ")

 +306     ;;1247

 +307     ;;21,"68115-0616-00 ")

 +308     ;;839

 +309     ;;21,"68115-0622-00 ")

 +310     ;;918

 +311     ;;21,"68115-0840-00 ")

 +312     ;;351

 +313     ;;21,"68258-1012-01 ")

 +314     ;;659

 +315     ;;21,"68258-1013-01 ")

 +316     ;;454

 +317     ;;21,"68258-1014-01 ")

 +318     ;;1248

 +319     ;;21,"68258-1051-01 ")

 +320     ;;739

 +321     ;;21,"68645-0150-54 ")

 +322     ;;660

 +323     ;;21,"68645-0151-59 ")

 +324     ;;453

 +325     ;;21,"68645-0210-54 ")

 +326     ;;1006

 +327     ;;21,"68645-0211-54 ")

 +328     ;;1245

 +329     ;;9002226,1199,.01)

 +330     ;;BGP PQA SULFONYLUREA NDC

 +331     ;;9002226,1199,.02)

 +332     ;;@

 +333     ;;9002226,1199,.04)

 +334     ;;n

 +335     ;;9002226,1199,.06)

 +336     ;;@

 +337     ;;9002226,1199,.08)

 +338     ;;@

 +339     ;;9002226,1199,.09)

 +340     ;;3120312

 +341     ;;9002226,1199,.11)

 +342     ;;@

 +343     ;;9002226,1199,.12)

 +344     ;;@

 +345     ;;9002226,1199,.13)

 +346     ;;1

 +347     ;;9002226,1199,.14)

 +348     ;;@

 +349     ;;9002226,1199,.15)

 +350     ;;@

 +351     ;;9002226,1199,.16)

 +352     ;;@

 +353     ;;9002226,1199,.17)

 +354     ;;@

 +355     ;;9002226,1199,3101)

 +356     ;;@

 +357     ;;9002226.02101,"1199,00007-3148-13 ",.01)

 +358     ;;00007-3148-13

 +359     ;;9002226.02101,"1199,00007-3148-13 ",.02)

 +360     ;;00007-3148-13

 +361     ;;9002226.02101,"1199,00007-3149-13 ",.01)

 +362     ;;00007-3149-13

 +363     ;;9002226.02101,"1199,00007-3149-13 ",.02)

 +364     ;;00007-3149-13

 +365     ;;9002226.02101,"1199,00007-3151-13 ",.01)

 +366     ;;00007-3151-13

 +367     ;;9002226.02101,"1199,00007-3151-13 ",.02)

 +368     ;;00007-3151-13

 +369     ;;9002226.02101,"1199,00007-3152-13 ",.01)

 +370     ;;00007-3152-13

 +371     ;;9002226.02101,"1199,00007-3152-13 ",.02)

 +372     ;;00007-3152-13

 +373     ;;9002226.02101,"1199,00007-3153-13 ",.01)

 +374     ;;00007-3153-13

 +375     ;;9002226.02101,"1199,00007-3153-13 ",.02)

 +376     ;;00007-3153-13

 +377     ;;9002226.02101,"1199,00009-0070-02 ",.01)

 +378     ;;00009-0070-02

 +379     ;;9002226.02101,"1199,00009-0070-02 ",.02)

 +380     ;;00009-0070-02

 +381     ;;9002226.02101,"1199,00009-0114-04 ",.01)

 +382     ;;00009-0114-04

 +383     ;;9002226.02101,"1199,00009-0114-04 ",.02)

 +384     ;;00009-0114-04

 +385     ;;9002226.02101,"1199,00009-0114-05 ",.01)

 +386     ;;00009-0114-05

 +387     ;;9002226.02101,"1199,00009-0114-05 ",.02)

 +388     ;;00009-0114-05

 +389     ;;9002226.02101,"1199,00009-0131-01 ",.01)

 +390     ;;00009-0131-01

 +391     ;;9002226.02101,"1199,00009-0131-01 ",.02)

 +392     ;;00009-0131-01

 +393     ;;9002226.02101,"1199,00009-0141-01 ",.01)

 +394     ;;00009-0141-01

 +395     ;;9002226.02101,"1199,00009-0141-01 ",.02)

 +396     ;;00009-0141-01

 +397     ;;9002226.02101,"1199,00009-0141-02 ",.01)

 +398     ;;00009-0141-02

 +399     ;;9002226.02101,"1199,00009-0141-02 ",.02)

 +400     ;;00009-0141-02

 +401     ;;9002226.02101,"1199,00009-0171-03 ",.01)

 +402     ;;00009-0171-03

 +403     ;;9002226.02101,"1199,00009-0171-03 ",.02)

 +404     ;;00009-0171-03

 +405     ;;9002226.02101,"1199,00009-0171-05 ",.01)

 +406     ;;00009-0171-05

 +407     ;;9002226.02101,"1199,00009-0171-05 ",.02)

 +408     ;;00009-0171-05

 +409     ;;9002226.02101,"1199,00009-0171-06 ",.01)

 +410     ;;00009-0171-06

 +411     ;;9002226.02101,"1199,00009-0171-06 ",.02)

 +412     ;;00009-0171-06

 +413     ;;9002226.02101,"1199,00009-0171-07 ",.01)

 +414     ;;00009-0171-07

 +415     ;;9002226.02101,"1199,00009-0171-07 ",.02)

 +416     ;;00009-0171-07

 +417     ;;9002226.02101,"1199,00009-0341-01 ",.01)

 +418     ;;00009-0341-01

 +419     ;;9002226.02101,"1199,00009-0341-01 ",.02)

 +420     ;;00009-0341-01

 +421     ;;9002226.02101,"1199,00009-0341-02 ",.01)

 +422     ;;00009-0341-02

 +423     ;;9002226.02101,"1199,00009-0341-02 ",.02)

 +424     ;;00009-0341-02

 +425     ;;9002226.02101,"1199,00009-0352-01 ",.01)

 +426     ;;00009-0352-01

 +427     ;;9002226.02101,"1199,00009-0352-01 ",.02)

 +428     ;;00009-0352-01

 +429     ;;9002226.02101,"1199,00009-0352-02 ",.01)

 +430     ;;00009-0352-02

 +431     ;;9002226.02101,"1199,00009-0352-02 ",.02)

 +432     ;;00009-0352-02

 +433     ;;9002226.02101,"1199,00009-0352-03 ",.01)

 +434     ;;00009-0352-03

 +435     ;;9002226.02101,"1199,00009-0352-03 ",.02)

 +436     ;;00009-0352-03

 +437     ;;9002226.02101,"1199,00009-0352-04 ",.01)

 +438     ;;00009-0352-04

 +439     ;;9002226.02101,"1199,00009-0352-04 ",.02)

 +440     ;;00009-0352-04

 +441     ;;9002226.02101,"1199,00009-3449-01 ",.01)

 +442     ;;00009-3449-01

 +443     ;;9002226.02101,"1199,00009-3449-01 ",.02)

 +444     ;;00009-3449-01

 +445     ;;9002226.02101,"1199,00009-3449-03 ",.01)

 +446     ;;00009-3449-03

 +447     ;;9002226.02101,"1199,00009-3449-03 ",.02)

 +448     ;;00009-3449-03

 +449     ;;9002226.02101,"1199,00029-3151-13 ",.01)

 +450     ;;00029-3151-13

 +451     ;;9002226.02101,"1199,00029-3151-13 ",.02)

 +452     ;;00029-3151-13

 +453     ;;9002226.02101,"1199,00029-3152-13 ",.01)

 +454     ;;00029-3152-13

 +455     ;;9002226.02101,"1199,00029-3152-13 ",.02)

 +456     ;;00029-3152-13

 +457     ;;9002226.02101,"1199,00029-3153-13 ",.01)

 +458     ;;00029-3153-13

 +459     ;;9002226.02101,"1199,00029-3153-13 ",.02)

 +460     ;;00029-3153-13

 +461     ;;9002226.02101,"1199,00039-0051-10 ",.01)

 +462     ;;00039-0051-10

 +463     ;;9002226.02101,"1199,00039-0051-10 ",.02)

 +464     ;;00039-0051-10

 +465     ;;9002226.02101,"1199,00039-0051-11 ",.01)

 +466     ;;00039-0051-11

 +467     ;;9002226.02101,"1199,00039-0051-11 ",.02)

 +468     ;;00039-0051-11

 +469     ;;9002226.02101,"1199,00039-0051-50 ",.01)

 +470     ;;00039-0051-50

 +471     ;;9002226.02101,"1199,00039-0051-50 ",.02)

 +472     ;;00039-0051-50

 +473     ;;9002226.02101,"1199,00039-0052-10 ",.01)

 +474     ;;00039-0052-10

 +475     ;;9002226.02101,"1199,00039-0052-10 ",.02)

 +476     ;;00039-0052-10

 +477     ;;9002226.02101,"1199,00039-0052-11 ",.01)

 +478     ;;00039-0052-11

 +479     ;;9002226.02101,"1199,00039-0052-11 ",.02)

 +480     ;;00039-0052-11

 +481     ;;9002226.02101,"1199,00039-0052-50 ",.01)

 +482     ;;00039-0052-50

 +483     ;;9002226.02101,"1199,00039-0052-50 ",.02)

 +484     ;;00039-0052-50

 +485     ;;9002226.02101,"1199,00039-0052-70 ",.01)

 +486     ;;00039-0052-70

 +487     ;;9002226.02101,"1199,00039-0052-70 ",.02)

 +488     ;;00039-0052-70

 +489     ;;9002226.02101,"1199,00039-0053-05 ",.01)

 +490     ;;00039-0053-05

 +491     ;;9002226.02101,"1199,00039-0053-05 ",.02)

 +492     ;;00039-0053-05

 +493     ;;9002226.02101,"1199,00039-0221-10 ",.01)

 +494     ;;00039-0221-10

 +495     ;;9002226.02101,"1199,00039-0221-10 ",.02)

 +496     ;;00039-0221-10

 +497     ;;9002226.02101,"1199,00039-0222-10 ",.01)

 +498     ;;00039-0222-10

 +499     ;;9002226.02101,"1199,00039-0222-10 ",.02)

 +500     ;;00039-0222-10

 +501     ;;9002226.02101,"1199,00039-0222-11 ",.01)

 +502     ;;00039-0222-11

 +503     ;;9002226.02101,"1199,00039-0222-11 ",.02)

 +504     ;;00039-0222-11

 +505     ;;9002226.02101,"1199,00039-0223-10 ",.01)

 +506     ;;00039-0223-10

 +507     ;;9002226.02101,"1199,00039-0223-10 ",.02)

 +508     ;;00039-0223-10

 +509     ;;9002226.02101,"1199,00039-0223-11 ",.01)

 +510     ;;00039-0223-11

 +511     ;;9002226.02101,"1199,00039-0223-11 ",.02)

 +512     ;;00039-0223-11

 +513     ;;9002226.02101,"1199,00049-1550-66 ",.01)

 +514     ;;00049-1550-66

 +515     ;;9002226.02101,"1199,00049-1550-66 ",.02)

 +516     ;;00049-1550-66

 +517     ;;9002226.02101,"1199,00049-1550-73 ",.01)

 +518     ;;00049-1550-73

 +519     ;;9002226.02101,"1199,00049-1550-73 ",.02)

 +520     ;;00049-1550-73

 +521     ;;9002226.02101,"1199,00049-1560-66 ",.01)

 +522     ;;00049-1560-66

 +523     ;;9002226.02101,"1199,00049-1560-66 ",.02)

 +524     ;;00049-1560-66

 +525     ;;9002226.02101,"1199,00049-1560-73 ",.01)

 +526     ;;00049-1560-73

 +527     ;;9002226.02101,"1199,00049-1560-73 ",.02)

 +528     ;;00049-1560-73

 +529     ;;9002226.02101,"1199,00049-1620-30 ",.01)

 +530     ;;00049-1620-30

 +531     ;;9002226.02101,"1199,00049-1620-30 ",.02)

 +532     ;;00049-1620-30

 +533     ;;9002226.02101,"1199,00049-4110-66 ",.01)

 +534     ;;00049-4110-66

 +535     ;;9002226.02101,"1199,00049-4110-66 ",.02)

 +536     ;;00049-4110-66

 +537     ;;9002226.02101,"1199,00049-4110-73 ",.01)

 +538     ;;00049-4110-73

 +539     ;;9002226.02101,"1199,00049-4110-73 ",.02)

 +540     ;;00049-4110-73

 +541     ;;9002226.02101,"1199,00049-4120-66 ",.01)

 +542     ;;00049-4120-66

 +543     ;;9002226.02101,"1199,00049-4120-66 ",.02)

 +544     ;;00049-4120-66

 +545     ;;9002226.02101,"1199,00049-4120-73 ",.01)

 +546     ;;00049-4120-73

 +547     ;;9002226.02101,"1199,00049-4120-73 ",.02)

 +548     ;;00049-4120-73

 +549     ;;9002226.02101,"1199,00069-3930-66 ",.01)

 +550     ;;00069-3930-66

 +551     ;;9002226.02101,"1199,00069-3930-66 ",.02)

 +552     ;;00069-3930-66

 +553     ;;9002226.02101,"1199,00069-3940-66 ",.01)

 +554     ;;00069-3940-66

 +555     ;;9002226.02101,"1199,00069-3940-66 ",.02)

 +556     ;;00069-3940-66

 +557     ;;9002226.02101,"1199,00069-3940-82 ",.01)

 +558     ;;00069-3940-82

 +559     ;;9002226.02101,"1199,00069-3940-82 ",.02)

 +560     ;;00069-3940-82

 +561     ;;9002226.02101,"1199,00087-6072-11 ",.01)

 +562     ;;00087-6072-11

 +563     ;;9002226.02101,"1199,00087-6072-11 ",.02)

 +564     ;;00087-6072-11

 +565     ;;9002226.02101,"1199,00087-6073-11 ",.01)

 +566     ;;00087-6073-11

 +567     ;;9002226.02101,"1199,00087-6073-11 ",.02)

 +568     ;;00087-6073-11

 +569     ;;9002226.02101,"1199,00087-6074-11 ",.01)

 +570     ;;00087-6074-11

 +571     ;;9002226.02101,"1199,00087-6074-11 ",.02)

 +572     ;;00087-6074-11

 +573     ;;9002226.02101,"1199,00087-6077-31 ",.01)

 +574     ;;00087-6077-31

 +575     ;;9002226.02101,"1199,00087-6077-31 ",.02)

 +576     ;;00087-6077-31

 +577     ;;9002226.02101,"1199,00087-6078-31 ",.01)

 +578     ;;00087-6078-31

 +579     ;;9002226.02101,"1199,00087-6078-31 ",.02)

 +580     ;;00087-6078-31

 +581     ;;9002226.02101,"1199,00087-6081-31 ",.01)

 +582     ;;00087-6081-31

 +583     ;;9002226.02101,"1199,00087-6081-31 ",.02)

 +584     ;;00087-6081-31

 +585     ;;9002226.02101,"1199,00093-5710-01 ",.01)

 +586     ;;00093-5710-01

 +587     ;;9002226.02101,"1199,00093-5710-01 ",.02)

 +588     ;;00093-5710-01

 +589     ;;9002226.02101,"1199,00093-5710-05 ",.01)

 +590     ;;00093-5710-05

 +591     ;;9002226.02101,"1199,00093-5710-05 ",.02)

 +592     ;;00093-5710-05

 +593     ;;9002226.02101,"1199,00093-5710-19 ",.01)

 +594     ;;00093-5710-19

 +595     ;;9002226.02101,"1199,00093-5710-19 ",.02)

 +596     ;;00093-5710-19

 +597     ;;9002226.02101,"1199,00093-5710-83 ",.01)

 +598     ;;00093-5710-83

BGP2TG4.m