Routine: BGP61E7

BGP61E7 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;

 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170

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,"67544-0911-80 ")

 ;;2179

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

 ;;2180

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

 ;;2181

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

 ;;2182

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

 ;;2183

 ;;21,"67857-0700-01 ")

 ;;2184

 ;;21,"67857-0701-01 ")

 ;;2185

 ;;21,"68001-0119-00 ")

 ;;2186

 ;;21,"68001-0119-03 ")

 ;;2187

 ;;21,"68001-0120-00 ")

 ;;2188

 ;;21,"68001-0120-03 ")

 ;;2189

 ;;21,"68001-0121-00 ")

 ;;2190

 ;;21,"68001-0121-03 ")

 ;;2191

 ;;21,"68001-0122-00 ")

 ;;2192

 ;;21,"68001-0122-03 ")

 ;;2193

 ;;21,"68001-0151-00 ")

 ;;2194

 ;;21,"68001-0151-03 ")

 ;;2195

 ;;21,"68001-0152-00 ")

 ;;2196

 ;;21,"68001-0152-03 ")

 ;;2197

 ;;21,"68001-0153-00 ")

 ;;2198

 ;;21,"68001-0153-03 ")

 ;;2199

 ;;21,"68001-0154-00 ")

 ;;2200

 ;;21,"68001-0154-03 ")

 ;;2201

 ;;21,"68001-0204-00 ")

 ;;2202

 ;;21,"68001-0204-03 ")

 ;;2203

 ;;21,"68001-0205-00 ")

 ;;2204

 ;;21,"68001-0205-03 ")

 ;;2205

 ;;21,"68001-0206-00 ")

 ;;2206

 ;;21,"68001-0206-03 ")

 ;;2207

 ;;21,"68001-0219-00 ")

 ;;2208

 ;;21,"68001-0220-00 ")

 ;;2209

 ;;21,"68001-0220-08 ")

 ;;2210

 ;;21,"68001-0221-00 ")

 ;;2211

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

 ;;2212

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

 ;;2213

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

 ;;2214

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

 ;;2215

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

 ;;2216

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

 ;;2217

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

 ;;2218

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

 ;;2219

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

 ;;2220

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

 ;;2221

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

 ;;2222

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

 ;;2223

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

 ;;2224

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

 ;;2225

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

 ;;2226

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

 ;;2227

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

 ;;2228

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

 ;;2229

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

 ;;2230

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

 ;;2231

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

 ;;2232

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

 ;;2233

 ;;21,"68084-0302-21 ")

 ;;2234

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

 ;;2235

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

 ;;2236

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

 ;;2237

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

 ;;2238

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

 ;;2239

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

 ;;2240

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

 ;;2241

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

 ;;2242

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

 ;;2243

 ;;21,"68084-0487-21 ")

 ;;2244

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

 ;;2245

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

 ;;2246

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

 ;;2247

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

 ;;2248

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

 ;;2249

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

 ;;2250

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

 ;;2251

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

 ;;2252

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

 ;;2253

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

 ;;2254

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

 ;;2255

 ;;21,"68084-0755-21 ")

 ;;2256

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

 ;;2257

 ;;21,"68084-0763-21 ")

 ;;2258

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

 ;;2259

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

 ;;2260

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

 ;;2261

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

 ;;2262

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

 ;;2263

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

 ;;2264

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

 ;;2265

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

 ;;2266

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

 ;;2267

 ;;21,"68258-6010-03 ")

 ;;2268

 ;;21,"68258-6010-09 ")

 ;;2269

 ;;21,"68258-6011-03 ")

 ;;2270

 ;;21,"68258-6011-09 ")

 ;;2271

 ;;21,"68258-6015-03 ")

 ;;2272

 ;;21,"68258-6015-08 ")

 ;;2273

 ;;21,"68258-6018-03 ")

 ;;2274

 ;;21,"68258-6018-09 ")

 ;;2275

 ;;21,"68258-6019-03 ")

 ;;2276

 ;;21,"68258-6019-06 ")

 ;;2277

 ;;21,"68258-6019-09 ")

 ;;2278

 ;;21,"68258-6020-03 ")

 ;;2279

 ;;21,"68258-6020-09 ")

 ;;2280

 ;;21,"68258-6026-03 ")

 ;;2281

 ;;21,"68258-6026-09 ")

 ;;2282

 ;;21,"68258-6033-03 ")

 ;;2283

 ;;21,"68258-6033-06 ")

 ;;2284

 ;;21,"68258-6033-09 ")

 ;;2285

 ;;21,"68258-6034-03 ")

 ;;2286

 ;;21,"68258-6039-03 ")

 ;;2287

 ;;21,"68258-6047-03 ")

 ;;2288

 ;;21,"68258-6047-09 ")

 ;;2289

 ;;21,"68258-6057-06 ")

 ;;2290

 ;;21,"68258-6062-03 ")

 ;;2291

 ;;21,"68258-6063-03 ")

 ;;2292

 ;;21,"68258-6064-03 ")

 ;;2293

 ;;21,"68258-6091-03 ")

 ;;2294

 ;;21,"68258-6092-03 ")

 ;;2295

 ;;21,"68258-6093-03 ")

 ;;2296

 ;;21,"68258-6104-03 ")

 ;;2297

 ;;21,"68258-6104-09 ")

 ;;2298

 ;;21,"68258-6964-03 ")

 ;;2299

 ;;21,"68258-6982-30 ")

 ;;2300

 ;;21,"68258-6987-03 ")

 ;;2301

 ;;21,"68258-6988-03 ")

 ;;2302

 ;;21,"68382-0022-01 ")

 ;;2303

 ;;21,"68382-0022-10 ")

 ;;2304

 ;;21,"68382-0023-01 ")

 ;;2305

 ;;21,"68382-0023-10 ")

 ;;2306

 ;;21,"68382-0024-01 ")

 ;;2307

 ;;21,"68382-0024-10 ")

 ;;2308

 ;;21,"68382-0092-01 ")

 ;;2309

 ;;21,"68382-0092-05 ")

 ;;2310

 ;;21,"68382-0092-17 ")

 ;;2311

 ;;21,"68382-0093-01 ")

 ;;2312

 ;;21,"68382-0093-05 ")

 ;;2313

 ;;21,"68382-0093-17 ")

 ;;2314

 ;;21,"68382-0094-01 ")

 ;;2315

 ;;21,"68382-0094-05 ")

 ;;2316

 ;;21,"68382-0094-17 ")

 ;;2317

 ;;21,"68382-0095-01 ")

 ;;2318

 ;;21,"68382-0095-05 ")

 ;;2319

 ;;21,"68382-0095-17 ")

 ;;2320

 ;;21,"68387-0538-30 ")

 ;;2321

 ;;21,"68387-0539-30 ")

 ;;2322

 ;;21,"68462-0162-01 ")

 ;;2323

 ;;21,"68462-0162-05 ")

 ;;2324

 ;;21,"68462-0163-01 ")

 ;;2325

 ;;21,"68462-0163-05 ")

 ;;2326

 ;;21,"68462-0164-01 ")

 ;;2327

 ;;21,"68462-0164-05 ")

 ;;2328

 ;;21,"68462-0165-01 ")

 ;;2329

 ;;21,"68462-0165-05 ")

 ;;2330

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

 ;;2331

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

 ;;2332

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

 ;;2333

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

 ;;2334

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

 ;;2335

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

 ;;2336

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

 ;;2337

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

 ;;2338

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

 ;;2339

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

 ;;2340

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

 ;;2341

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

 ;;2342

 ;;21,"68788-9048-03 ")

 ;;2343

 ;;21,"68788-9049-03 ")

 ;;2344

 ;;21,"68788-9691-03 ")

 ;;2345

 ;;21,"68788-9738-03 ")

 ;;2346

 ;;21,"68788-9789-03 ")

 ;;2347

 ;;21,"76299-0420-85 ")

 ;;2348

 ;;21,"76299-0420-88 ")

 ;;2349

 ;;21,"76299-0422-85 ")

 ;;2350

 ;;21,"76299-0422-88 ")

 ;;2351

 ;;9002226,1218,.01)

 ;;BGP PQA BETA BLOCKER NDC

 ;;9002226,1218,.02)

;;@

 ;;9002226,1218,.04)

;;n

 ;;9002226,1218,.06)

;;@

 ;;9002226,1218,.08)

;;@

 ;;9002226,1218,.09)

 ;;3150818

 ;;9002226,1218,.11)

;;@

 ;;9002226,1218,.12)

;;@

 ;;9002226,1218,.13)

;;1

 ;;9002226,1218,.14)

;;@

 ;;9002226,1218,.15)

 ;;50.67

 ;;9002226,1218,.16)

;;@

 ;;9002226,1218,.17)

;;@

 ;;9002226,1218,3101)

;;@

 ;;9002226.02101,"1218,00007-3370-13 ",.01)

 ;;00007-3370-13

 ;;9002226.02101,"1218,00007-3370-13 ",.02)

 ;;00007-3370-13

 ;;9002226.02101,"1218,00007-3371-13 ",.01)

 ;;00007-3371-13

 ;;9002226.02101,"1218,00007-3371-13 ",.02)

 ;;00007-3371-13

 ;;9002226.02101,"1218,00007-3372-13 ",.01)

 ;;00007-3372-13

 ;;9002226.02101,"1218,00007-3372-13 ",.02)

 ;;00007-3372-13

 ;;9002226.02101,"1218,00007-3373-13 ",.01)

 ;;00007-3373-13

 ;;9002226.02101,"1218,00007-3373-13 ",.02)

 ;;00007-3373-13

 ;;9002226.02101,"1218,00007-4139-20 ",.01)

 ;;00007-4139-20

 ;;9002226.02101,"1218,00007-4139-20 ",.02)

 ;;00007-4139-20

 ;;9002226.02101,"1218,00007-4140-20 ",.01)

 ;;00007-4140-20

 ;;9002226.02101,"1218,00007-4140-20 ",.02)

 ;;00007-4140-20

 ;;9002226.02101,"1218,00007-4141-20 ",.01)

 ;;00007-4141-20

 ;;9002226.02101,"1218,00007-4141-20 ",.02)

 ;;00007-4141-20

 ;;9002226.02101,"1218,00007-4142-20 ",.01)

 ;;00007-4142-20

 ;;9002226.02101,"1218,00007-4142-20 ",.02)

 ;;00007-4142-20

 ;;9002226.02101,"1218,00024-2300-20 ",.01)

 ;;00024-2300-20

 ;;9002226.02101,"1218,00024-2300-20 ",.02)

 ;;00024-2300-20

 ;;9002226.02101,"1218,00024-2301-10 ",.01)

 ;;00024-2301-10

 ;;9002226.02101,"1218,00024-2301-10 ",.02)

 ;;00024-2301-10

 ;;9002226.02101,"1218,00054-3727-63 ",.01)

 ;;00054-3727-63

 ;;9002226.02101,"1218,00054-3727-63 ",.02)

 ;;00054-3727-63

 ;;9002226.02101,"1218,00054-3730-63 ",.01)

 ;;00054-3730-63

 ;;9002226.02101,"1218,00054-3730-63 ",.02)

 ;;00054-3730-63

 ;;9002226.02101,"1218,00078-0458-05 ",.01)

 ;;00078-0458-05

 ;;9002226.02101,"1218,00078-0458-05 ",.02)

 ;;00078-0458-05

 ;;9002226.02101,"1218,00078-0459-05 ",.01)

 ;;00078-0459-05

 ;;9002226.02101,"1218,00078-0459-05 ",.02)

 ;;00078-0459-05

 ;;9002226.02101,"1218,00078-0460-05 ",.01)

 ;;00078-0460-05

 ;;9002226.02101,"1218,00078-0460-05 ",.02)

 ;;00078-0460-05

 ;;9002226.02101,"1218,00078-0461-05 ",.01)

 ;;00078-0461-05

 ;;9002226.02101,"1218,00078-0461-05 ",.02)

 ;;00078-0461-05

 ;;9002226.02101,"1218,00091-4500-15 ",.01)

 ;;00091-4500-15

 ;;9002226.02101,"1218,00091-4500-15 ",.02)

 ;;00091-4500-15

 ;;9002226.02101,"1218,00093-0051-01 ",.01)

 ;;00093-0051-01

 ;;9002226.02101,"1218,00093-0051-01 ",.02)

 ;;00093-0051-01

 ;;9002226.02101,"1218,00093-0051-05 ",.01)

 ;;00093-0051-05

 ;;9002226.02101,"1218,00093-0051-05 ",.02)

 ;;00093-0051-05

 ;;9002226.02101,"1218,00093-0135-01 ",.01)

 ;;00093-0135-01

 ;;9002226.02101,"1218,00093-0135-01 ",.02)

 ;;00093-0135-01

 ;;9002226.02101,"1218,00093-0135-05 ",.01)

 ;;00093-0135-05

 ;;9002226.02101,"1218,00093-0135-05 ",.02)

 ;;00093-0135-05

 ;;9002226.02101,"1218,00093-0733-01 ",.01)

 ;;00093-0733-01

 ;;9002226.02101,"1218,00093-0733-01 ",.02)

 ;;00093-0733-01

 ;;9002226.02101,"1218,00093-0733-10 ",.01)

 ;;00093-0733-10

 ;;9002226.02101,"1218,00093-0733-10 ",.02)

 ;;00093-0733-10

 ;;9002226.02101,"1218,00093-0734-01 ",.01)

 ;;00093-0734-01

 ;;9002226.02101,"1218,00093-0734-01 ",.02)

 ;;00093-0734-01

 ;;9002226.02101,"1218,00093-0734-10 ",.01)

 ;;00093-0734-10

 ;;9002226.02101,"1218,00093-0734-10 ",.02)

 ;;00093-0734-10

 ;;9002226.02101,"1218,00093-0752-01 ",.01)

 ;;00093-0752-01

 ;;9002226.02101,"1218,00093-0752-01 ",.02)

 ;;00093-0752-01

 ;;9002226.02101,"1218,00093-0752-10 ",.01)

 ;;00093-0752-10

 ;;9002226.02101,"1218,00093-0752-10 ",.02)

 ;;00093-0752-10

 ;;9002226.02101,"1218,00093-0753-01 ",.01)

 ;;00093-0753-01

 ;;9002226.02101,"1218,00093-0753-01 ",.02)

 ;;00093-0753-01

 ;;9002226.02101,"1218,00093-0753-05 ",.01)

 ;;00093-0753-05

 ;;9002226.02101,"1218,00093-0753-05 ",.02)

 ;;00093-0753-05

 ;;9002226.02101,"1218,00093-0787-01 ",.01)

 ;;00093-0787-01

 ;;9002226.02101,"1218,00093-0787-01 ",.02)

 ;;00093-0787-01

 ;;9002226.02101,"1218,00093-0787-10 ",.01)

 ;;00093-0787-10

 ;;9002226.02101,"1218,00093-0787-10 ",.02)

 ;;00093-0787-10

 ;;9002226.02101,"1218,00093-4235-01 ",.01)

 ;;00093-4235-01

 ;;9002226.02101,"1218,00093-4235-01 ",.02)

 ;;00093-4235-01

 ;;9002226.02101,"1218,00093-4236-01 ",.01)

 ;;00093-4236-01

 ;;9002226.02101,"1218,00093-4236-01 ",.02)

 ;;00093-4236-01

 ;;9002226.02101,"1218,00093-4237-01 ",.01)

 ;;00093-4237-01

 ;;9002226.02101,"1218,00093-4237-01 ",.02)

 ;;00093-4237-01

 ;;9002226.02101,"1218,00093-5270-56 ",.01)

 ;;00093-5270-56

 ;;9002226.02101,"1218,00093-5270-56 ",.02)

 ;;00093-5270-56

 ;;9002226.02101,"1218,00093-5271-56 ",.01)

 ;;00093-5271-56

 ;;9002226.02101,"1218,00093-5271-56 ",.02)

 ;;00093-5271-56

 ;;9002226.02101,"1218,00093-7295-01 ",.01)

 ;;00093-7295-01

 ;;9002226.02101,"1218,00093-7295-01 ",.02)

 ;;00093-7295-01

 ;;9002226.02101,"1218,00093-7295-05 ",.01)

 ;;00093-7295-05

 ;;9002226.02101,"1218,00093-7295-05 ",.02)

 ;;00093-7295-05

 ;;9002226.02101,"1218,00093-7296-01 ",.01)

 ;;00093-7296-01

 ;;9002226.02101,"1218,00093-7296-01 ",.02)

 ;;00093-7296-01

 ;;9002226.02101,"1218,00093-7296-05 ",.01)

 ;;00093-7296-05

 ;;9002226.02101,"1218,00093-7296-05 ",.02)

 ;;00093-7296-05

 ;;9002226.02101,"1218,00115-5311-01 ",.01)

 ;;00115-5311-01

 ;;9002226.02101,"1218,00115-5311-01 ",.02)

 ;;00115-5311-01

 ;;9002226.02101,"1218,00115-5322-01 ",.01)

 ;;00115-5322-01

 ;;9002226.02101,"1218,00115-5322-01 ",.02)

 ;;00115-5322-01

 ;;9002226.02101,"1218,00172-4364-00 ",.01)

 ;;00172-4364-00

 ;;9002226.02101,"1218,00172-4364-00 ",.02)

 ;;00172-4364-00

 ;;9002226.02101,"1218,00172-4364-10 ",.01)

 ;;00172-4364-10

 ;;9002226.02101,"1218,00172-4364-10 ",.02)

 ;;00172-4364-10

 ;;9002226.02101,"1218,00172-4364-60 ",.01)

 ;;00172-4364-60

 ;;9002226.02101,"1218,00172-4364-60 ",.02)

 ;;00172-4364-60

 ;;9002226.02101,"1218,00172-4364-70 ",.01)

 ;;00172-4364-70

 ;;9002226.02101,"1218,00172-4364-70 ",.02)

 ;;00172-4364-70

 ;;9002226.02101,"1218,00172-4365-00 ",.01)

 ;;00172-4365-00

 ;;9002226.02101,"1218,00172-4365-00 ",.02)

 ;;00172-4365-00

 ;;9002226.02101,"1218,00172-4365-10 ",.01)

 ;;00172-4365-10

 ;;9002226.02101,"1218,00172-4365-10 ",.02)

 ;;00172-4365-10

 ;;9002226.02101,"1218,00172-4365-60 ",.01)

 ;;00172-4365-60

 ;;9002226.02101,"1218,00172-4365-60 ",.02)

 ;;00172-4365-60

 ;;9002226.02101,"1218,00172-4365-70 ",.01)

 ;;00172-4365-70

BGP61E7   ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;

 +1       ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170

 +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,"67544-0911-80 ")

 +2       ;;2179

 +3       ;;21,"67544-0911-92 ")

 +4       ;;2180

 +5       ;;21,"67544-0911-94 ")

 +6       ;;2181

 +7       ;;21,"67544-0911-98 ")

 +8       ;;2182

 +9       ;;21,"67544-0929-60 ")

 +10      ;;2183

 +11      ;;21,"67857-0700-01 ")

 +12      ;;2184

 +13      ;;21,"67857-0701-01 ")

 +14      ;;2185

 +15      ;;21,"68001-0119-00 ")

 +16      ;;2186

 +17      ;;21,"68001-0119-03 ")

 +18      ;;2187

 +19      ;;21,"68001-0120-00 ")

 +20      ;;2188

 +21      ;;21,"68001-0120-03 ")

 +22      ;;2189

 +23      ;;21,"68001-0121-00 ")

 +24      ;;2190

 +25      ;;21,"68001-0121-03 ")

 +26      ;;2191

 +27      ;;21,"68001-0122-00 ")

 +28      ;;2192

 +29      ;;21,"68001-0122-03 ")

 +30      ;;2193

 +31      ;;21,"68001-0151-00 ")

 +32      ;;2194

 +33      ;;21,"68001-0151-03 ")

 +34      ;;2195

 +35      ;;21,"68001-0152-00 ")

 +36      ;;2196

 +37      ;;21,"68001-0152-03 ")

 +38      ;;2197

 +39      ;;21,"68001-0153-00 ")

 +40      ;;2198

 +41      ;;21,"68001-0153-03 ")

 +42      ;;2199

 +43      ;;21,"68001-0154-00 ")

 +44      ;;2200

 +45      ;;21,"68001-0154-03 ")

 +46      ;;2201

 +47      ;;21,"68001-0204-00 ")

 +48      ;;2202

 +49      ;;21,"68001-0204-03 ")

 +50      ;;2203

 +51      ;;21,"68001-0205-00 ")

 +52      ;;2204

 +53      ;;21,"68001-0205-03 ")

 +54      ;;2205

 +55      ;;21,"68001-0206-00 ")

 +56      ;;2206

 +57      ;;21,"68001-0206-03 ")

 +58      ;;2207

 +59      ;;21,"68001-0219-00 ")

 +60      ;;2208

 +61      ;;21,"68001-0220-00 ")

 +62      ;;2209

 +63      ;;21,"68001-0220-08 ")

 +64      ;;2210

 +65      ;;21,"68001-0221-00 ")

 +66      ;;2211

 +67      ;;21,"68071-0288-30 ")

 +68      ;;2212

 +69      ;;21,"68071-0841-30 ")

 +70      ;;2213

 +71      ;;21,"68071-0856-30 ")

 +72      ;;2214

 +73      ;;21,"68084-0209-01 ")

 +74      ;;2215

 +75      ;;21,"68084-0209-11 ")

 +76      ;;2216

 +77      ;;21,"68084-0210-01 ")

 +78      ;;2217

 +79      ;;21,"68084-0210-11 ")

 +80      ;;2218

 +81      ;;21,"68084-0211-01 ")

 +82      ;;2219

 +83      ;;21,"68084-0211-11 ")

 +84      ;;2220

 +85      ;;21,"68084-0212-01 ")

 +86      ;;2221

 +87      ;;21,"68084-0212-11 ")

 +88      ;;2222

 +89      ;;21,"68084-0261-01 ")

 +90      ;;2223

 +91      ;;21,"68084-0261-11 ")

 +92      ;;2224

 +93      ;;21,"68084-0262-01 ")

 +94      ;;2225

 +95      ;;21,"68084-0262-11 ")

 +96      ;;2226

 +97      ;;21,"68084-0263-01 ")

 +98      ;;2227

 +99      ;;21,"68084-0263-11 ")

 +100     ;;2228

 +101     ;;21,"68084-0264-01 ")

 +102     ;;2229

 +103     ;;21,"68084-0264-11 ")

 +104     ;;2230

 +105     ;;21,"68084-0301-01 ")

 +106     ;;2231

 +107     ;;21,"68084-0301-11 ")

 +108     ;;2232

 +109     ;;21,"68084-0302-11 ")

 +110     ;;2233

 +111     ;;21,"68084-0302-21 ")

 +112     ;;2234

 +113     ;;21,"68084-0303-01 ")

 +114     ;;2235

 +115     ;;21,"68084-0303-11 ")

 +116     ;;2236

 +117     ;;21,"68084-0304-01 ")

 +118     ;;2237

 +119     ;;21,"68084-0304-11 ")

 +120     ;;2238

 +121     ;;21,"68084-0456-01 ")

 +122     ;;2239

 +123     ;;21,"68084-0456-11 ")

 +124     ;;2240

 +125     ;;21,"68084-0457-01 ")

 +126     ;;2241

 +127     ;;21,"68084-0457-11 ")

 +128     ;;2242

 +129     ;;21,"68084-0487-11 ")

 +130     ;;2243

 +131     ;;21,"68084-0487-21 ")

 +132     ;;2244

 +133     ;;21,"68084-0503-01 ")

 +134     ;;2245

 +135     ;;21,"68084-0503-11 ")

 +136     ;;2246

 +137     ;;21,"68084-0504-01 ")

 +138     ;;2247

 +139     ;;21,"68084-0504-11 ")

 +140     ;;2248

 +141     ;;21,"68084-0659-01 ")

 +142     ;;2249

 +143     ;;21,"68084-0659-11 ")

 +144     ;;2250

 +145     ;;21,"68084-0666-01 ")

 +146     ;;2251

 +147     ;;21,"68084-0666-11 ")

 +148     ;;2252

 +149     ;;21,"68084-0673-01 ")

 +150     ;;2253

 +151     ;;21,"68084-0673-11 ")

 +152     ;;2254

 +153     ;;21,"68084-0755-11 ")

 +154     ;;2255

 +155     ;;21,"68084-0755-21 ")

 +156     ;;2256

 +157     ;;21,"68084-0763-11 ")

 +158     ;;2257

 +159     ;;21,"68084-0763-21 ")

 +160     ;;2258

 +161     ;;21,"68084-0843-01 ")

 +162     ;;2259

 +163     ;;21,"68084-0843-11 ")

 +164     ;;2260

 +165     ;;21,"68084-0854-01 ")

 +166     ;;2261

 +167     ;;21,"68084-0854-11 ")

 +168     ;;2262

 +169     ;;21,"68084-0865-01 ")

 +170     ;;2263

 +171     ;;21,"68084-0865-11 ")

 +172     ;;2264

 +173     ;;21,"68084-0876-01 ")

 +174     ;;2265

 +175     ;;21,"68084-0876-11 ")

 +176     ;;2266

 +177     ;;21,"68258-6010-01 ")

 +178     ;;2267

 +179     ;;21,"68258-6010-03 ")

 +180     ;;2268

 +181     ;;21,"68258-6010-09 ")

 +182     ;;2269

 +183     ;;21,"68258-6011-03 ")

 +184     ;;2270

 +185     ;;21,"68258-6011-09 ")

 +186     ;;2271

 +187     ;;21,"68258-6015-03 ")

 +188     ;;2272

 +189     ;;21,"68258-6015-08 ")

 +190     ;;2273

 +191     ;;21,"68258-6018-03 ")

 +192     ;;2274

 +193     ;;21,"68258-6018-09 ")

 +194     ;;2275

 +195     ;;21,"68258-6019-03 ")

 +196     ;;2276

 +197     ;;21,"68258-6019-06 ")

 +198     ;;2277

 +199     ;;21,"68258-6019-09 ")

 +200     ;;2278

 +201     ;;21,"68258-6020-03 ")

 +202     ;;2279

 +203     ;;21,"68258-6020-09 ")

 +204     ;;2280

 +205     ;;21,"68258-6026-03 ")

 +206     ;;2281

 +207     ;;21,"68258-6026-09 ")

 +208     ;;2282

 +209     ;;21,"68258-6033-03 ")

 +210     ;;2283

 +211     ;;21,"68258-6033-06 ")

 +212     ;;2284

 +213     ;;21,"68258-6033-09 ")

 +214     ;;2285

 +215     ;;21,"68258-6034-03 ")

 +216     ;;2286

 +217     ;;21,"68258-6039-03 ")

 +218     ;;2287

 +219     ;;21,"68258-6047-03 ")

 +220     ;;2288

 +221     ;;21,"68258-6047-09 ")

 +222     ;;2289

 +223     ;;21,"68258-6057-06 ")

 +224     ;;2290

 +225     ;;21,"68258-6062-03 ")

 +226     ;;2291

 +227     ;;21,"68258-6063-03 ")

 +228     ;;2292

 +229     ;;21,"68258-6064-03 ")

 +230     ;;2293

 +231     ;;21,"68258-6091-03 ")

 +232     ;;2294

 +233     ;;21,"68258-6092-03 ")

 +234     ;;2295

 +235     ;;21,"68258-6093-03 ")

 +236     ;;2296

 +237     ;;21,"68258-6104-03 ")

 +238     ;;2297

 +239     ;;21,"68258-6104-09 ")

 +240     ;;2298

 +241     ;;21,"68258-6964-03 ")

 +242     ;;2299

 +243     ;;21,"68258-6982-30 ")

 +244     ;;2300

 +245     ;;21,"68258-6987-03 ")

 +246     ;;2301

 +247     ;;21,"68258-6988-03 ")

 +248     ;;2302

 +249     ;;21,"68382-0022-01 ")

 +250     ;;2303

 +251     ;;21,"68382-0022-10 ")

 +252     ;;2304

 +253     ;;21,"68382-0023-01 ")

 +254     ;;2305

 +255     ;;21,"68382-0023-10 ")

 +256     ;;2306

 +257     ;;21,"68382-0024-01 ")

 +258     ;;2307

 +259     ;;21,"68382-0024-10 ")

 +260     ;;2308

 +261     ;;21,"68382-0092-01 ")

 +262     ;;2309

 +263     ;;21,"68382-0092-05 ")

 +264     ;;2310

 +265     ;;21,"68382-0092-17 ")

 +266     ;;2311

 +267     ;;21,"68382-0093-01 ")

 +268     ;;2312

 +269     ;;21,"68382-0093-05 ")

 +270     ;;2313

 +271     ;;21,"68382-0093-17 ")

 +272     ;;2314

 +273     ;;21,"68382-0094-01 ")

 +274     ;;2315

 +275     ;;21,"68382-0094-05 ")

 +276     ;;2316

 +277     ;;21,"68382-0094-17 ")

 +278     ;;2317

 +279     ;;21,"68382-0095-01 ")

 +280     ;;2318

 +281     ;;21,"68382-0095-05 ")

 +282     ;;2319

 +283     ;;21,"68382-0095-17 ")

 +284     ;;2320

 +285     ;;21,"68387-0538-30 ")

 +286     ;;2321

 +287     ;;21,"68387-0539-30 ")

 +288     ;;2322

 +289     ;;21,"68462-0162-01 ")

 +290     ;;2323

 +291     ;;21,"68462-0162-05 ")

 +292     ;;2324

 +293     ;;21,"68462-0163-01 ")

 +294     ;;2325

 +295     ;;21,"68462-0163-05 ")

 +296     ;;2326

 +297     ;;21,"68462-0164-01 ")

 +298     ;;2327

 +299     ;;21,"68462-0164-05 ")

 +300     ;;2328

 +301     ;;21,"68462-0165-01 ")

 +302     ;;2329

 +303     ;;21,"68462-0165-05 ")

 +304     ;;2330

 +305     ;;21,"68645-0190-59 ")

 +306     ;;2331

 +307     ;;21,"68645-0191-59 ")

 +308     ;;2332

 +309     ;;21,"68645-0310-54 ")

 +310     ;;2333

 +311     ;;21,"68645-0350-59 ")

 +312     ;;2334

 +313     ;;21,"68645-0351-59 ")

 +314     ;;2335

 +315     ;;21,"68645-0352-59 ")

 +316     ;;2336

 +317     ;;21,"68645-0468-59 ")

 +318     ;;2337

 +319     ;;21,"68645-0477-54 ")

 +320     ;;2338

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

 +322     ;;2339

 +323     ;;21,"68645-0479-54 ")

 +324     ;;2340

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

 +326     ;;2341

 +327     ;;21,"68645-0496-59 ")

 +328     ;;2342

 +329     ;;21,"68788-9048-03 ")

 +330     ;;2343

 +331     ;;21,"68788-9049-03 ")

 +332     ;;2344

 +333     ;;21,"68788-9691-03 ")

 +334     ;;2345

 +335     ;;21,"68788-9738-03 ")

 +336     ;;2346

 +337     ;;21,"68788-9789-03 ")

 +338     ;;2347

 +339     ;;21,"76299-0420-85 ")

 +340     ;;2348

 +341     ;;21,"76299-0420-88 ")

 +342     ;;2349

 +343     ;;21,"76299-0422-85 ")

 +344     ;;2350

 +345     ;;21,"76299-0422-88 ")

 +346     ;;2351

 +347     ;;9002226,1218,.01)

 +348     ;;BGP PQA BETA BLOCKER NDC

 +349     ;;9002226,1218,.02)

 +350     ;;@

 +351     ;;9002226,1218,.04)

 +352     ;;n

 +353     ;;9002226,1218,.06)

 +354     ;;@

 +355     ;;9002226,1218,.08)

 +356     ;;@

 +357     ;;9002226,1218,.09)

 +358     ;;3150818

 +359     ;;9002226,1218,.11)

 +360     ;;@

 +361     ;;9002226,1218,.12)

 +362     ;;@

 +363     ;;9002226,1218,.13)

 +364     ;;1

 +365     ;;9002226,1218,.14)

 +366     ;;@

 +367     ;;9002226,1218,.15)

 +368     ;;50.67

 +369     ;;9002226,1218,.16)

 +370     ;;@

 +371     ;;9002226,1218,.17)

 +372     ;;@

 +373     ;;9002226,1218,3101)

 +374     ;;@

 +375     ;;9002226.02101,"1218,00007-3370-13 ",.01)

 +376     ;;00007-3370-13

 +377     ;;9002226.02101,"1218,00007-3370-13 ",.02)

 +378     ;;00007-3370-13

 +379     ;;9002226.02101,"1218,00007-3371-13 ",.01)

 +380     ;;00007-3371-13

 +381     ;;9002226.02101,"1218,00007-3371-13 ",.02)

 +382     ;;00007-3371-13

 +383     ;;9002226.02101,"1218,00007-3372-13 ",.01)

 +384     ;;00007-3372-13

 +385     ;;9002226.02101,"1218,00007-3372-13 ",.02)

 +386     ;;00007-3372-13

 +387     ;;9002226.02101,"1218,00007-3373-13 ",.01)

 +388     ;;00007-3373-13

 +389     ;;9002226.02101,"1218,00007-3373-13 ",.02)

 +390     ;;00007-3373-13

 +391     ;;9002226.02101,"1218,00007-4139-20 ",.01)

 +392     ;;00007-4139-20

 +393     ;;9002226.02101,"1218,00007-4139-20 ",.02)

 +394     ;;00007-4139-20

 +395     ;;9002226.02101,"1218,00007-4140-20 ",.01)

 +396     ;;00007-4140-20

 +397     ;;9002226.02101,"1218,00007-4140-20 ",.02)

 +398     ;;00007-4140-20

 +399     ;;9002226.02101,"1218,00007-4141-20 ",.01)

 +400     ;;00007-4141-20

 +401     ;;9002226.02101,"1218,00007-4141-20 ",.02)

 +402     ;;00007-4141-20

 +403     ;;9002226.02101,"1218,00007-4142-20 ",.01)

 +404     ;;00007-4142-20

 +405     ;;9002226.02101,"1218,00007-4142-20 ",.02)

 +406     ;;00007-4142-20

 +407     ;;9002226.02101,"1218,00024-2300-20 ",.01)

 +408     ;;00024-2300-20

 +409     ;;9002226.02101,"1218,00024-2300-20 ",.02)

 +410     ;;00024-2300-20

 +411     ;;9002226.02101,"1218,00024-2301-10 ",.01)

 +412     ;;00024-2301-10

 +413     ;;9002226.02101,"1218,00024-2301-10 ",.02)

 +414     ;;00024-2301-10

 +415     ;;9002226.02101,"1218,00054-3727-63 ",.01)

 +416     ;;00054-3727-63

 +417     ;;9002226.02101,"1218,00054-3727-63 ",.02)

 +418     ;;00054-3727-63

 +419     ;;9002226.02101,"1218,00054-3730-63 ",.01)

 +420     ;;00054-3730-63

 +421     ;;9002226.02101,"1218,00054-3730-63 ",.02)

 +422     ;;00054-3730-63

 +423     ;;9002226.02101,"1218,00078-0458-05 ",.01)

 +424     ;;00078-0458-05

 +425     ;;9002226.02101,"1218,00078-0458-05 ",.02)

 +426     ;;00078-0458-05

 +427     ;;9002226.02101,"1218,00078-0459-05 ",.01)

 +428     ;;00078-0459-05

 +429     ;;9002226.02101,"1218,00078-0459-05 ",.02)

 +430     ;;00078-0459-05

 +431     ;;9002226.02101,"1218,00078-0460-05 ",.01)

 +432     ;;00078-0460-05

 +433     ;;9002226.02101,"1218,00078-0460-05 ",.02)

 +434     ;;00078-0460-05

 +435     ;;9002226.02101,"1218,00078-0461-05 ",.01)

 +436     ;;00078-0461-05

 +437     ;;9002226.02101,"1218,00078-0461-05 ",.02)

 +438     ;;00078-0461-05

 +439     ;;9002226.02101,"1218,00091-4500-15 ",.01)

 +440     ;;00091-4500-15

 +441     ;;9002226.02101,"1218,00091-4500-15 ",.02)

 +442     ;;00091-4500-15

 +443     ;;9002226.02101,"1218,00093-0051-01 ",.01)

 +444     ;;00093-0051-01

 +445     ;;9002226.02101,"1218,00093-0051-01 ",.02)

 +446     ;;00093-0051-01

 +447     ;;9002226.02101,"1218,00093-0051-05 ",.01)

 +448     ;;00093-0051-05

 +449     ;;9002226.02101,"1218,00093-0051-05 ",.02)

 +450     ;;00093-0051-05

 +451     ;;9002226.02101,"1218,00093-0135-01 ",.01)

 +452     ;;00093-0135-01

 +453     ;;9002226.02101,"1218,00093-0135-01 ",.02)

 +454     ;;00093-0135-01

 +455     ;;9002226.02101,"1218,00093-0135-05 ",.01)

 +456     ;;00093-0135-05

 +457     ;;9002226.02101,"1218,00093-0135-05 ",.02)

 +458     ;;00093-0135-05

 +459     ;;9002226.02101,"1218,00093-0733-01 ",.01)

 +460     ;;00093-0733-01

 +461     ;;9002226.02101,"1218,00093-0733-01 ",.02)

 +462     ;;00093-0733-01

 +463     ;;9002226.02101,"1218,00093-0733-10 ",.01)

 +464     ;;00093-0733-10

 +465     ;;9002226.02101,"1218,00093-0733-10 ",.02)

 +466     ;;00093-0733-10

 +467     ;;9002226.02101,"1218,00093-0734-01 ",.01)

 +468     ;;00093-0734-01

 +469     ;;9002226.02101,"1218,00093-0734-01 ",.02)

 +470     ;;00093-0734-01

 +471     ;;9002226.02101,"1218,00093-0734-10 ",.01)

 +472     ;;00093-0734-10

 +473     ;;9002226.02101,"1218,00093-0734-10 ",.02)

 +474     ;;00093-0734-10

 +475     ;;9002226.02101,"1218,00093-0752-01 ",.01)

 +476     ;;00093-0752-01

 +477     ;;9002226.02101,"1218,00093-0752-01 ",.02)

 +478     ;;00093-0752-01

 +479     ;;9002226.02101,"1218,00093-0752-10 ",.01)

 +480     ;;00093-0752-10

 +481     ;;9002226.02101,"1218,00093-0752-10 ",.02)

 +482     ;;00093-0752-10

 +483     ;;9002226.02101,"1218,00093-0753-01 ",.01)

 +484     ;;00093-0753-01

 +485     ;;9002226.02101,"1218,00093-0753-01 ",.02)

 +486     ;;00093-0753-01

 +487     ;;9002226.02101,"1218,00093-0753-05 ",.01)

 +488     ;;00093-0753-05

 +489     ;;9002226.02101,"1218,00093-0753-05 ",.02)

 +490     ;;00093-0753-05

 +491     ;;9002226.02101,"1218,00093-0787-01 ",.01)

 +492     ;;00093-0787-01

 +493     ;;9002226.02101,"1218,00093-0787-01 ",.02)

 +494     ;;00093-0787-01

 +495     ;;9002226.02101,"1218,00093-0787-10 ",.01)

 +496     ;;00093-0787-10

 +497     ;;9002226.02101,"1218,00093-0787-10 ",.02)

 +498     ;;00093-0787-10

 +499     ;;9002226.02101,"1218,00093-4235-01 ",.01)

 +500     ;;00093-4235-01

 +501     ;;9002226.02101,"1218,00093-4235-01 ",.02)

 +502     ;;00093-4235-01

 +503     ;;9002226.02101,"1218,00093-4236-01 ",.01)

 +504     ;;00093-4236-01

 +505     ;;9002226.02101,"1218,00093-4236-01 ",.02)

 +506     ;;00093-4236-01

 +507     ;;9002226.02101,"1218,00093-4237-01 ",.01)

 +508     ;;00093-4237-01

 +509     ;;9002226.02101,"1218,00093-4237-01 ",.02)

 +510     ;;00093-4237-01

 +511     ;;9002226.02101,"1218,00093-5270-56 ",.01)

 +512     ;;00093-5270-56

 +513     ;;9002226.02101,"1218,00093-5270-56 ",.02)

 +514     ;;00093-5270-56

 +515     ;;9002226.02101,"1218,00093-5271-56 ",.01)

 +516     ;;00093-5271-56

 +517     ;;9002226.02101,"1218,00093-5271-56 ",.02)

 +518     ;;00093-5271-56

 +519     ;;9002226.02101,"1218,00093-7295-01 ",.01)

 +520     ;;00093-7295-01

 +521     ;;9002226.02101,"1218,00093-7295-01 ",.02)

 +522     ;;00093-7295-01

 +523     ;;9002226.02101,"1218,00093-7295-05 ",.01)

 +524     ;;00093-7295-05

 +525     ;;9002226.02101,"1218,00093-7295-05 ",.02)

 +526     ;;00093-7295-05

 +527     ;;9002226.02101,"1218,00093-7296-01 ",.01)

 +528     ;;00093-7296-01

 +529     ;;9002226.02101,"1218,00093-7296-01 ",.02)

 +530     ;;00093-7296-01

 +531     ;;9002226.02101,"1218,00093-7296-05 ",.01)

 +532     ;;00093-7296-05

 +533     ;;9002226.02101,"1218,00093-7296-05 ",.02)

 +534     ;;00093-7296-05

 +535     ;;9002226.02101,"1218,00115-5311-01 ",.01)

 +536     ;;00115-5311-01

 +537     ;;9002226.02101,"1218,00115-5311-01 ",.02)

 +538     ;;00115-5311-01

 +539     ;;9002226.02101,"1218,00115-5322-01 ",.01)

 +540     ;;00115-5322-01

 +541     ;;9002226.02101,"1218,00115-5322-01 ",.02)

 +542     ;;00115-5322-01

 +543     ;;9002226.02101,"1218,00172-4364-00 ",.01)

 +544     ;;00172-4364-00

 +545     ;;9002226.02101,"1218,00172-4364-00 ",.02)

 +546     ;;00172-4364-00

 +547     ;;9002226.02101,"1218,00172-4364-10 ",.01)

 +548     ;;00172-4364-10

 +549     ;;9002226.02101,"1218,00172-4364-10 ",.02)

 +550     ;;00172-4364-10

 +551     ;;9002226.02101,"1218,00172-4364-60 ",.01)

 +552     ;;00172-4364-60

 +553     ;;9002226.02101,"1218,00172-4364-60 ",.02)

 +554     ;;00172-4364-60

 +555     ;;9002226.02101,"1218,00172-4364-70 ",.01)

 +556     ;;00172-4364-70

 +557     ;;9002226.02101,"1218,00172-4364-70 ",.02)

 +558     ;;00172-4364-70

 +559     ;;9002226.02101,"1218,00172-4365-00 ",.01)

 +560     ;;00172-4365-00

 +561     ;;9002226.02101,"1218,00172-4365-00 ",.02)

 +562     ;;00172-4365-00

 +563     ;;9002226.02101,"1218,00172-4365-10 ",.01)

 +564     ;;00172-4365-10

 +565     ;;9002226.02101,"1218,00172-4365-10 ",.02)

 +566     ;;00172-4365-10

 +567     ;;9002226.02101,"1218,00172-4365-60 ",.01)

 +568     ;;00172-4365-60

 +569     ;;9002226.02101,"1218,00172-4365-60 ",.02)

 +570     ;;00172-4365-60

 +571     ;;9002226.02101,"1218,00172-4365-70 ",.01)

 +572     ;;00172-4365-70

BGP61E7.m