BGP0ZD10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
;
START ;
K:'$G(ATXPGMC) ^TMP("ATX",$J)
S ATXPGMC=$G(ATXPGMC)+1
F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X="" S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"68115-0103-90 ")
;;161
;;21,"68115-0137-10 ")
;;447
;;21,"68115-0137-30 ")
;;448
;;21,"68115-0137-60 ")
;;449
;;21,"68115-0140-30 ")
;;1549
;;21,"68115-0180-20 ")
;;2253
;;21,"68115-0180-30 ")
;;2254
;;21,"68115-0180-40 ")
;;2255
;;21,"68115-0180-50 ")
;;2256
;;21,"68115-0180-60 ")
;;2257
;;21,"68115-0180-90 ")
;;2258
;;21,"68115-0181-00 ")
;;2265
;;21,"68115-0181-12 ")
;;2259
;;21,"68115-0181-20 ")
;;2260
;;21,"68115-0181-30 ")
;;2261
;;21,"68115-0181-40 ")
;;2262
;;21,"68115-0181-60 ")
;;2263
;;21,"68115-0181-90 ")
;;2264
;;21,"68115-0181-99 ")
;;2267
;;21,"68115-0182-10 ")
;;2268
;;21,"68115-0182-20 ")
;;2269
;;21,"68115-0182-24 ")
;;2270
;;21,"68115-0182-30 ")
;;2271
;;21,"68115-0182-40 ")
;;2272
;;21,"68115-0182-60 ")
;;2273
;;21,"68115-0182-80 ")
;;2274
;;21,"68115-0182-90 ")
;;2275
;;21,"68115-0182-99 ")
;;2277
;;21,"68115-0183-30 ")
;;710
;;21,"68115-0183-60 ")
;;711
;;21,"68115-0184-20 ")
;;712
;;21,"68115-0184-30 ")
;;713
;;21,"68115-0184-90 ")
;;714
;;21,"68115-0185-30 ")
;;715
;;21,"68115-0190-60 ")
;;2389
;;21,"68115-0191-21 ")
;;2390
;;21,"68115-0191-30 ")
;;2391
;;21,"68115-0192-20 ")
;;861
;;21,"68115-0192-30 ")
;;862
;;21,"68115-0244-00 ")
;;1148
;;21,"68115-0244-30 ")
;;1145
;;21,"68115-0244-40 ")
;;1146
;;21,"68115-0244-60 ")
;;1147
;;21,"68115-0244-99 ")
;;1149
;;21,"68115-0245-30 ")
;;1150
;;21,"68115-0245-60 ")
;;1151
;;21,"68115-0245-99 ")
;;1152
;;21,"68115-0246-30 ")
;;2655
;;21,"68115-0246-60 ")
;;2656
;;21,"68115-0247-20 ")
;;2657
;;21,"68115-0247-30 ")
;;2658
;;21,"68115-0247-40 ")
;;2659
;;21,"68115-0247-60 ")
;;2660
;;21,"68115-0247-90 ")
;;2661
;;21,"68115-0247-99 ")
;;2662
;;21,"68115-0248-10 ")
;;2663
;;21,"68115-0248-14 ")
;;2664
;;21,"68115-0248-20 ")
;;2665
;;21,"68115-0248-30 ")
;;2666
;;21,"68115-0248-40 ")
;;2667
;;21,"68115-0248-45 ")
;;2668
;;21,"68115-0248-60 ")
;;2669
;;21,"68115-0248-90 ")
;;2670
;;21,"68115-0248-99 ")
;;2671
;;21,"68115-0251-60 ")
;;3044
;;21,"68115-0252-14 ")
;;3045
;;21,"68115-0252-20 ")
;;3046
;;21,"68115-0252-30 ")
;;3047
;;21,"68115-0252-90 ")
;;3048
;;21,"68115-0265-30 ")
;;3264
;;21,"68115-0265-60 ")
;;3265
;;21,"68115-0282-10 ")
;;1418
;;21,"68115-0282-20 ")
;;1419
;;21,"68115-0282-30 ")
;;1420
;;21,"68115-0282-40 ")
;;1421
;;21,"68115-0282-60 ")
;;1422
;;21,"68115-0282-99 ")
;;1423
;;21,"68115-0405-14 ")
;;980
;;21,"68115-0405-30 ")
;;981
;;21,"68115-0422-14 ")
;;3407
;;21,"68115-0424-20 ")
;;1416
;;21,"68115-0424-30 ")
;;1417
;;21,"68115-0436-30 ")
;;3373
;;21,"68115-0436-45 ")
;;3374
;;21,"68115-0436-90 ")
;;3375
;;21,"68115-0437-14 ")
;;1301
;;21,"68115-0437-30 ")
;;1304
;;21,"68115-0438-30 ")
;;1302
;;21,"68115-0457-60 ")
;;163
;;21,"68115-0585-00 ")
;;3376
;;21,"68115-0674-60 ")
;;3408
;;21,"68115-0805-00 ")
;;1303
;;21,"68115-0962-90 ")
;;2276
;;21,"68115-0963-00 ")
;;2266
;;21,"68387-0150-30 ")
;;479
;;21,"68387-0150-60 ")
;;480
;;21,"68387-0150-90 ")
;;481
;;21,"68387-0180-30 ")
;;3272
;;21,"68387-0180-60 ")
;;3273
;;21,"68387-0210-10 ")
;;2051
;;21,"68387-0210-30 ")
;;2048
;;21,"68387-0210-60 ")
;;2049
;;21,"68387-0210-90 ")
;;2050
;;21,"68387-0260-30 ")
;;180
;;21,"68387-0260-60 ")
;;181
;;21,"68387-0270-30 ")
;;1163
;;21,"68387-0270-60 ")
;;1164
;;21,"68387-0280-30 ")
;;15
;;21,"68387-0440-30 ")
;;868
;;21,"68387-0700-30 ")
;;1460
;;21,"68387-0700-60 ")
;;1461
;;21,"68387-0700-90 ")
;;1462
;;21,"68387-0800-30 ")
;;2741
;;21,"68387-0800-60 ")
;;2742
;;21,"68387-0800-90 ")
;;2743
;;9002226,976,.01)
;;BGP RA OA NSAID NDC
;;9002226,976,.02)
;;NDC CODES FOR OSTEOARTHRITIS
;;9002226,976,.04)
;;n
;;9002226,976,.06)
;;@
;;9002226,976,.08)
;;@
;;9002226,976,.09)
;;3051208
;;9002226,976,.11)
;;@
;;9002226,976,.12)
;;@
;;9002226,976,.13)
;;1
;;9002226,976,.14)
;;@
;;9002226,976,.15)
;;@
;;9002226,976,.16)
;;@
;;9002226,976,.17)
;;@
;;9002226,976,3101)
;;@
;;9002226.02101,"976,00004-0028-28 ",.01)
;;00004-0028-28
;;9002226.02101,"976,00004-0028-28 ",.02)
;;00004-0028-28
;;9002226.02101,"976,00004-0273-01 ",.01)
;;00004-0273-01
;;9002226.02101,"976,00004-0273-01 ",.02)
;;00004-0273-01
;;9002226.02101,"976,00004-6202-01 ",.01)
;;00004-6202-01
;;9002226.02101,"976,00004-6202-01 ",.02)
;;00004-6202-01
;;9002226.02101,"976,00004-6203-01 ",.01)
;;00004-6203-01
;;9002226.02101,"976,00004-6203-01 ",.02)
;;00004-6203-01
;;9002226.02101,"976,00004-6203-14 ",.01)
;;00004-6203-14
;;9002226.02101,"976,00004-6203-14 ",.02)
;;00004-6203-14
;;9002226.02101,"976,00004-6313-01 ",.01)
;;00004-6313-01
;;9002226.02101,"976,00004-6313-01 ",.02)
;;00004-6313-01
;;9002226.02101,"976,00004-6314-01 ",.01)
;;00004-6314-01
;;9002226.02101,"976,00004-6314-01 ",.02)
;;00004-6314-01
;;9002226.02101,"976,00004-6316-01 ",.01)
;;00004-6316-01
;;9002226.02101,"976,00004-6316-01 ",.02)
;;00004-6316-01
;;9002226.02101,"976,00004-6415-01 ",.01)
;;00004-6415-01
;;9002226.02101,"976,00004-6415-01 ",.02)
;;00004-6415-01
;;9002226.02101,"976,00004-6416-01 ",.01)
;;00004-6416-01
;;9002226.02101,"976,00004-6416-01 ",.02)
;;00004-6416-01
;;9002226.02101,"976,00006-0675-61 ",.01)
;;00006-0675-61
;;9002226.02101,"976,00006-0675-61 ",.02)
;;00006-0675-61
;;9002226.02101,"976,00006-0697-61 ",.01)
;;00006-0697-61
;;9002226.02101,"976,00006-0697-61 ",.02)
;;00006-0697-61
;;9002226.02101,"976,00006-3376-66 ",.01)
;;00006-3376-66
;;9002226.02101,"976,00006-3376-66 ",.02)
;;00006-3376-66
;;9002226.02101,"976,00006-3406-17 ",.01)
;;00006-3406-17
;;9002226.02101,"976,00006-3406-17 ",.02)
;;00006-3406-17
;;9002226.02101,"976,00008-0690-01 ",.01)
;;00008-0690-01
;;9002226.02101,"976,00008-0690-01 ",.02)
;;00008-0690-01
;;9002226.02101,"976,00009-7385-01 ",.01)
;;00009-7385-01
;;9002226.02101,"976,00009-7385-01 ",.02)
;;00009-7385-01
;;9002226.02101,"976,00009-7385-02 ",.01)
;;00009-7385-02
;;9002226.02101,"976,00009-7385-02 ",.02)
;;00009-7385-02
;;9002226.02101,"976,00009-7386-01 ",.01)
;;00009-7386-01
;;9002226.02101,"976,00009-7386-01 ",.02)
;;00009-7386-01
;;9002226.02101,"976,00009-7386-02 ",.01)
;;00009-7386-02
;;9002226.02101,"976,00009-7386-02 ",.02)
;;00009-7386-02
;;9002226.02101,"976,00009-7387-01 ",.01)
;;00009-7387-01
;;9002226.02101,"976,00009-7387-01 ",.02)
;;00009-7387-01
;;9002226.02101,"976,00009-7387-02 ",.01)
;;00009-7387-02
;;9002226.02101,"976,00009-7387-02 ",.02)
;;00009-7387-02
;;9002226.02101,"976,00009-7387-03 ",.01)
;;00009-7387-03
;;9002226.02101,"976,00009-7387-03 ",.02)
;;00009-7387-03
;;9002226.02101,"976,00009-7387-04 ",.01)
;;00009-7387-04
;;9002226.02101,"976,00009-7387-04 ",.02)
;;00009-7387-04
;;9002226.02101,"976,00025-1381-31 ",.01)
;;00025-1381-31
;;9002226.02101,"976,00025-1381-31 ",.02)
;;00025-1381-31
;;9002226.02101,"976,00025-1381-34 ",.01)
;;00025-1381-34
;;9002226.02101,"976,00025-1381-34 ",.02)
;;00025-1381-34
;;9002226.02101,"976,00025-1381-51 ",.01)
;;00025-1381-51
;;9002226.02101,"976,00025-1381-51 ",.02)
;;00025-1381-51
;;9002226.02101,"976,00025-1411-34 ",.01)
;;00025-1411-34
;;9002226.02101,"976,00025-1411-34 ",.02)
;;00025-1411-34
;;9002226.02101,"976,00025-1411-60 ",.01)
;;00025-1411-60
;;9002226.02101,"976,00025-1411-60 ",.02)
;;00025-1411-60
;;9002226.02101,"976,00025-1411-90 ",.01)
;;00025-1411-90
;;9002226.02101,"976,00025-1411-90 ",.02)
;;00025-1411-90
;;9002226.02101,"976,00025-1421-60 ",.01)
;;00025-1421-60
;;9002226.02101,"976,00025-1421-60 ",.02)
;;00025-1421-60
;;9002226.02101,"976,00025-1520-31 ",.01)
;;00025-1520-31
;;9002226.02101,"976,00025-1520-31 ",.02)
;;00025-1520-31
;;9002226.02101,"976,00025-1520-34 ",.01)
;;00025-1520-34
;;9002226.02101,"976,00025-1520-34 ",.02)
;;00025-1520-34
;;9002226.02101,"976,00025-1520-51 ",.01)
;;00025-1520-51
;;9002226.02101,"976,00025-1520-51 ",.02)
;;00025-1520-51
;;9002226.02101,"976,00025-1525-31 ",.01)
;;00025-1525-31
;;9002226.02101,"976,00025-1525-31 ",.02)
;;00025-1525-31
;;9002226.02101,"976,00025-1525-34 ",.01)
;;00025-1525-34
;;9002226.02101,"976,00025-1525-34 ",.02)
;;00025-1525-34
;;9002226.02101,"976,00025-1525-51 ",.01)
;;00025-1525-51
;;9002226.02101,"976,00025-1525-51 ",.02)
;;00025-1525-51
;;9002226.02101,"976,00025-1530-01 ",.01)
;;00025-1530-01
;;9002226.02101,"976,00025-1530-01 ",.02)
;;00025-1530-01
;;9002226.02101,"976,00025-1530-02 ",.01)
;;00025-1530-02
;;9002226.02101,"976,00025-1530-02 ",.02)
;;00025-1530-02
;;9002226.02101,"976,00028-0205-01 ",.01)
;;00028-0205-01
;;9002226.02101,"976,00028-0205-01 ",.02)
;;00028-0205-01
;;9002226.02101,"976,00028-0258-01 ",.01)
;;00028-0258-01
;;9002226.02101,"976,00028-0258-01 ",.02)
;;00028-0258-01
;;9002226.02101,"976,00028-0262-01 ",.01)
;;00028-0262-01
;;9002226.02101,"976,00028-0262-01 ",.02)
;;00028-0262-01
;;9002226.02101,"976,00028-0264-01 ",.01)
;;00028-0264-01
;;9002226.02101,"976,00028-0264-01 ",.02)
;;00028-0264-01
;;9002226.02101,"976,00029-4851-20 ",.01)
;;00029-4851-20
;;9002226.02101,"976,00029-4851-20 ",.02)
;;00029-4851-20
;;9002226.02101,"976,00029-4852-20 ",.01)
;;00029-4852-20
;;9002226.02101,"976,00029-4852-20 ",.02)
;;00029-4852-20
;;9002226.02101,"976,00036-1421-34 ",.01)
;;00036-1421-34
;;9002226.02101,"976,00036-1421-34 ",.02)
;;00036-1421-34
;;9002226.02101,"976,00045-0416-60 ",.01)
;;00045-0416-60
;;9002226.02101,"976,00045-0416-60 ",.02)
;;00045-0416-60
;;9002226.02101,"976,00045-0448-04 ",.01)
;;00045-0448-04
;;9002226.02101,"976,00045-0448-04 ",.02)
;;00045-0448-04
;;9002226.02101,"976,00045-0448-16 ",.01)
;;00045-0448-16
;;9002226.02101,"976,00045-0448-16 ",.02)
;;00045-0448-16
;;9002226.02101,"976,00046-0738-81 ",.01)
;;00046-0738-81
;;9002226.02101,"976,00046-0738-81 ",.02)
;;00046-0738-81
;;9002226.02101,"976,00046-0739-81 ",.01)
;;00046-0739-81
;;9002226.02101,"976,00046-0739-81 ",.02)
;;00046-0739-81
;;9002226.02101,"976,00046-0829-81 ",.01)
;;00046-0829-81
;;9002226.02101,"976,00046-0829-81 ",.02)
;;00046-0829-81
;;9002226.02101,"976,00046-0839-81 ",.01)
;;00046-0839-81
;;9002226.02101,"976,00046-0839-81 ",.02)
;;00046-0839-81
;;9002226.02101,"976,00054-3630-63 ",.01)
;;00054-3630-63
;;9002226.02101,"976,00054-3630-63 ",.02)
;;00054-3630-63
;;9002226.02101,"976,00054-4221-25 ",.01)
;;00054-4221-25
;;9002226.02101,"976,00054-4221-25 ",.02)
;;00054-4221-25
;;9002226.02101,"976,00054-4221-31 ",.01)
;;00054-4221-31
;;9002226.02101,"976,00054-4221-31 ",.02)
;;00054-4221-31
;;9002226.02101,"976,00054-4222-25 ",.01)
;;00054-4222-25
;;9002226.02101,"976,00054-4222-25 ",.02)
;;00054-4222-25
;;9002226.02101,"976,00054-4222-31 ",.01)
;;00054-4222-31
;;9002226.02101,"976,00054-4222-31 ",.02)
;;00054-4222-31
;;9002226.02101,"976,00054-8221-25 ",.01)
;;00054-8221-25
;;9002226.02101,"976,00054-8221-25 ",.02)
;;00054-8221-25
;;9002226.02101,"976,00054-8222-25 ",.01)
;;00054-8222-25
;;9002226.02101,"976,00054-8222-25 ",.02)
;;00054-8222-25
;;9002226.02101,"976,00069-3220-66 ",.01)
;;00069-3220-66
;;9002226.02101,"976,00069-3220-66 ",.02)
;;00069-3220-66
;;9002226.02101,"976,00069-3230-66 ",.01)
;;00069-3230-66
;;9002226.02101,"976,00069-3230-66 ",.02)
;;00069-3230-66
;;9002226.02101,"976,00074-2287-31 ",.01)
;;00074-2287-31
;;9002226.02101,"976,00074-2287-31 ",.02)
;;00074-2287-31
;;9002226.02101,"976,00074-2287-61 ",.01)
;;00074-2287-61
;;9002226.02101,"976,00074-2287-61 ",.02)
;;00074-2287-61
;;9002226.02101,"976,00074-2288-31 ",.01)
;;00074-2288-31
;;9002226.02101,"976,00074-2288-31 ",.02)
;;00074-2288-31
;;9002226.02101,"976,00074-3793-01 ",.01)
;;00074-3793-01
;;9002226.02101,"976,00074-3793-01 ",.02)
;;00074-3793-01
;;9002226.02101,"976,00074-3795-01 ",.01)
;;00074-3795-01
;;9002226.02101,"976,00074-3795-01 ",.02)
;;00074-3795-01
;;9002226.02101,"976,00074-3796-01 ",.01)
;;00074-3796-01
;;9002226.02101,"976,00074-3796-01 ",.02)
;;00074-3796-01
;;9002226.02101,"976,00093-0147-01 ",.01)
;;00093-0147-01
;;9002226.02101,"976,00093-0147-01 ",.02)
;;00093-0147-01
;;9002226.02101,"976,00093-0147-05 ",.01)
;;00093-0147-05
;;9002226.02101,"976,00093-0147-05 ",.02)
;;00093-0147-05
;;9002226.02101,"976,00093-0147-20 ",.01)
;;00093-0147-20
;;9002226.02101,"976,00093-0147-20 ",.02)
;;00093-0147-20
;;9002226.02101,"976,00093-0148-01 ",.01)
;;00093-0148-01
;;9002226.02101,"976,00093-0148-01 ",.02)
;;00093-0148-01
;;9002226.02101,"976,00093-0148-05 ",.01)
;;00093-0148-05
;;9002226.02101,"976,00093-0148-05 ",.02)
;;00093-0148-05
;;9002226.02101,"976,00093-0149-01 ",.01)
;;00093-0149-01
;;9002226.02101,"976,00093-0149-01 ",.02)
;;00093-0149-01
;;9002226.02101,"976,00093-0149-05 ",.01)
;;00093-0149-05
;;9002226.02101,"976,00093-0149-05 ",.02)
;;00093-0149-05
;;9002226.02101,"976,00093-0149-10 ",.01)
;;00093-0149-10
BGP0ZD10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
+1 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
+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,"68115-0103-90 ")
+2 ;;161
+3 ;;21,"68115-0137-10 ")
+4 ;;447
+5 ;;21,"68115-0137-30 ")
+6 ;;448
+7 ;;21,"68115-0137-60 ")
+8 ;;449
+9 ;;21,"68115-0140-30 ")
+10 ;;1549
+11 ;;21,"68115-0180-20 ")
+12 ;;2253
+13 ;;21,"68115-0180-30 ")
+14 ;;2254
+15 ;;21,"68115-0180-40 ")
+16 ;;2255
+17 ;;21,"68115-0180-50 ")
+18 ;;2256
+19 ;;21,"68115-0180-60 ")
+20 ;;2257
+21 ;;21,"68115-0180-90 ")
+22 ;;2258
+23 ;;21,"68115-0181-00 ")
+24 ;;2265
+25 ;;21,"68115-0181-12 ")
+26 ;;2259
+27 ;;21,"68115-0181-20 ")
+28 ;;2260
+29 ;;21,"68115-0181-30 ")
+30 ;;2261
+31 ;;21,"68115-0181-40 ")
+32 ;;2262
+33 ;;21,"68115-0181-60 ")
+34 ;;2263
+35 ;;21,"68115-0181-90 ")
+36 ;;2264
+37 ;;21,"68115-0181-99 ")
+38 ;;2267
+39 ;;21,"68115-0182-10 ")
+40 ;;2268
+41 ;;21,"68115-0182-20 ")
+42 ;;2269
+43 ;;21,"68115-0182-24 ")
+44 ;;2270
+45 ;;21,"68115-0182-30 ")
+46 ;;2271
+47 ;;21,"68115-0182-40 ")
+48 ;;2272
+49 ;;21,"68115-0182-60 ")
+50 ;;2273
+51 ;;21,"68115-0182-80 ")
+52 ;;2274
+53 ;;21,"68115-0182-90 ")
+54 ;;2275
+55 ;;21,"68115-0182-99 ")
+56 ;;2277
+57 ;;21,"68115-0183-30 ")
+58 ;;710
+59 ;;21,"68115-0183-60 ")
+60 ;;711
+61 ;;21,"68115-0184-20 ")
+62 ;;712
+63 ;;21,"68115-0184-30 ")
+64 ;;713
+65 ;;21,"68115-0184-90 ")
+66 ;;714
+67 ;;21,"68115-0185-30 ")
+68 ;;715
+69 ;;21,"68115-0190-60 ")
+70 ;;2389
+71 ;;21,"68115-0191-21 ")
+72 ;;2390
+73 ;;21,"68115-0191-30 ")
+74 ;;2391
+75 ;;21,"68115-0192-20 ")
+76 ;;861
+77 ;;21,"68115-0192-30 ")
+78 ;;862
+79 ;;21,"68115-0244-00 ")
+80 ;;1148
+81 ;;21,"68115-0244-30 ")
+82 ;;1145
+83 ;;21,"68115-0244-40 ")
+84 ;;1146
+85 ;;21,"68115-0244-60 ")
+86 ;;1147
+87 ;;21,"68115-0244-99 ")
+88 ;;1149
+89 ;;21,"68115-0245-30 ")
+90 ;;1150
+91 ;;21,"68115-0245-60 ")
+92 ;;1151
+93 ;;21,"68115-0245-99 ")
+94 ;;1152
+95 ;;21,"68115-0246-30 ")
+96 ;;2655
+97 ;;21,"68115-0246-60 ")
+98 ;;2656
+99 ;;21,"68115-0247-20 ")
+100 ;;2657
+101 ;;21,"68115-0247-30 ")
+102 ;;2658
+103 ;;21,"68115-0247-40 ")
+104 ;;2659
+105 ;;21,"68115-0247-60 ")
+106 ;;2660
+107 ;;21,"68115-0247-90 ")
+108 ;;2661
+109 ;;21,"68115-0247-99 ")
+110 ;;2662
+111 ;;21,"68115-0248-10 ")
+112 ;;2663
+113 ;;21,"68115-0248-14 ")
+114 ;;2664
+115 ;;21,"68115-0248-20 ")
+116 ;;2665
+117 ;;21,"68115-0248-30 ")
+118 ;;2666
+119 ;;21,"68115-0248-40 ")
+120 ;;2667
+121 ;;21,"68115-0248-45 ")
+122 ;;2668
+123 ;;21,"68115-0248-60 ")
+124 ;;2669
+125 ;;21,"68115-0248-90 ")
+126 ;;2670
+127 ;;21,"68115-0248-99 ")
+128 ;;2671
+129 ;;21,"68115-0251-60 ")
+130 ;;3044
+131 ;;21,"68115-0252-14 ")
+132 ;;3045
+133 ;;21,"68115-0252-20 ")
+134 ;;3046
+135 ;;21,"68115-0252-30 ")
+136 ;;3047
+137 ;;21,"68115-0252-90 ")
+138 ;;3048
+139 ;;21,"68115-0265-30 ")
+140 ;;3264
+141 ;;21,"68115-0265-60 ")
+142 ;;3265
+143 ;;21,"68115-0282-10 ")
+144 ;;1418
+145 ;;21,"68115-0282-20 ")
+146 ;;1419
+147 ;;21,"68115-0282-30 ")
+148 ;;1420
+149 ;;21,"68115-0282-40 ")
+150 ;;1421
+151 ;;21,"68115-0282-60 ")
+152 ;;1422
+153 ;;21,"68115-0282-99 ")
+154 ;;1423
+155 ;;21,"68115-0405-14 ")
+156 ;;980
+157 ;;21,"68115-0405-30 ")
+158 ;;981
+159 ;;21,"68115-0422-14 ")
+160 ;;3407
+161 ;;21,"68115-0424-20 ")
+162 ;;1416
+163 ;;21,"68115-0424-30 ")
+164 ;;1417
+165 ;;21,"68115-0436-30 ")
+166 ;;3373
+167 ;;21,"68115-0436-45 ")
+168 ;;3374
+169 ;;21,"68115-0436-90 ")
+170 ;;3375
+171 ;;21,"68115-0437-14 ")
+172 ;;1301
+173 ;;21,"68115-0437-30 ")
+174 ;;1304
+175 ;;21,"68115-0438-30 ")
+176 ;;1302
+177 ;;21,"68115-0457-60 ")
+178 ;;163
+179 ;;21,"68115-0585-00 ")
+180 ;;3376
+181 ;;21,"68115-0674-60 ")
+182 ;;3408
+183 ;;21,"68115-0805-00 ")
+184 ;;1303
+185 ;;21,"68115-0962-90 ")
+186 ;;2276
+187 ;;21,"68115-0963-00 ")
+188 ;;2266
+189 ;;21,"68387-0150-30 ")
+190 ;;479
+191 ;;21,"68387-0150-60 ")
+192 ;;480
+193 ;;21,"68387-0150-90 ")
+194 ;;481
+195 ;;21,"68387-0180-30 ")
+196 ;;3272
+197 ;;21,"68387-0180-60 ")
+198 ;;3273
+199 ;;21,"68387-0210-10 ")
+200 ;;2051
+201 ;;21,"68387-0210-30 ")
+202 ;;2048
+203 ;;21,"68387-0210-60 ")
+204 ;;2049
+205 ;;21,"68387-0210-90 ")
+206 ;;2050
+207 ;;21,"68387-0260-30 ")
+208 ;;180
+209 ;;21,"68387-0260-60 ")
+210 ;;181
+211 ;;21,"68387-0270-30 ")
+212 ;;1163
+213 ;;21,"68387-0270-60 ")
+214 ;;1164
+215 ;;21,"68387-0280-30 ")
+216 ;;15
+217 ;;21,"68387-0440-30 ")
+218 ;;868
+219 ;;21,"68387-0700-30 ")
+220 ;;1460
+221 ;;21,"68387-0700-60 ")
+222 ;;1461
+223 ;;21,"68387-0700-90 ")
+224 ;;1462
+225 ;;21,"68387-0800-30 ")
+226 ;;2741
+227 ;;21,"68387-0800-60 ")
+228 ;;2742
+229 ;;21,"68387-0800-90 ")
+230 ;;2743
+231 ;;9002226,976,.01)
+232 ;;BGP RA OA NSAID NDC
+233 ;;9002226,976,.02)
+234 ;;NDC CODES FOR OSTEOARTHRITIS
+235 ;;9002226,976,.04)
+236 ;;n
+237 ;;9002226,976,.06)
+238 ;;@
+239 ;;9002226,976,.08)
+240 ;;@
+241 ;;9002226,976,.09)
+242 ;;3051208
+243 ;;9002226,976,.11)
+244 ;;@
+245 ;;9002226,976,.12)
+246 ;;@
+247 ;;9002226,976,.13)
+248 ;;1
+249 ;;9002226,976,.14)
+250 ;;@
+251 ;;9002226,976,.15)
+252 ;;@
+253 ;;9002226,976,.16)
+254 ;;@
+255 ;;9002226,976,.17)
+256 ;;@
+257 ;;9002226,976,3101)
+258 ;;@
+259 ;;9002226.02101,"976,00004-0028-28 ",.01)
+260 ;;00004-0028-28
+261 ;;9002226.02101,"976,00004-0028-28 ",.02)
+262 ;;00004-0028-28
+263 ;;9002226.02101,"976,00004-0273-01 ",.01)
+264 ;;00004-0273-01
+265 ;;9002226.02101,"976,00004-0273-01 ",.02)
+266 ;;00004-0273-01
+267 ;;9002226.02101,"976,00004-6202-01 ",.01)
+268 ;;00004-6202-01
+269 ;;9002226.02101,"976,00004-6202-01 ",.02)
+270 ;;00004-6202-01
+271 ;;9002226.02101,"976,00004-6203-01 ",.01)
+272 ;;00004-6203-01
+273 ;;9002226.02101,"976,00004-6203-01 ",.02)
+274 ;;00004-6203-01
+275 ;;9002226.02101,"976,00004-6203-14 ",.01)
+276 ;;00004-6203-14
+277 ;;9002226.02101,"976,00004-6203-14 ",.02)
+278 ;;00004-6203-14
+279 ;;9002226.02101,"976,00004-6313-01 ",.01)
+280 ;;00004-6313-01
+281 ;;9002226.02101,"976,00004-6313-01 ",.02)
+282 ;;00004-6313-01
+283 ;;9002226.02101,"976,00004-6314-01 ",.01)
+284 ;;00004-6314-01
+285 ;;9002226.02101,"976,00004-6314-01 ",.02)
+286 ;;00004-6314-01
+287 ;;9002226.02101,"976,00004-6316-01 ",.01)
+288 ;;00004-6316-01
+289 ;;9002226.02101,"976,00004-6316-01 ",.02)
+290 ;;00004-6316-01
+291 ;;9002226.02101,"976,00004-6415-01 ",.01)
+292 ;;00004-6415-01
+293 ;;9002226.02101,"976,00004-6415-01 ",.02)
+294 ;;00004-6415-01
+295 ;;9002226.02101,"976,00004-6416-01 ",.01)
+296 ;;00004-6416-01
+297 ;;9002226.02101,"976,00004-6416-01 ",.02)
+298 ;;00004-6416-01
+299 ;;9002226.02101,"976,00006-0675-61 ",.01)
+300 ;;00006-0675-61
+301 ;;9002226.02101,"976,00006-0675-61 ",.02)
+302 ;;00006-0675-61
+303 ;;9002226.02101,"976,00006-0697-61 ",.01)
+304 ;;00006-0697-61
+305 ;;9002226.02101,"976,00006-0697-61 ",.02)
+306 ;;00006-0697-61
+307 ;;9002226.02101,"976,00006-3376-66 ",.01)
+308 ;;00006-3376-66
+309 ;;9002226.02101,"976,00006-3376-66 ",.02)
+310 ;;00006-3376-66
+311 ;;9002226.02101,"976,00006-3406-17 ",.01)
+312 ;;00006-3406-17
+313 ;;9002226.02101,"976,00006-3406-17 ",.02)
+314 ;;00006-3406-17
+315 ;;9002226.02101,"976,00008-0690-01 ",.01)
+316 ;;00008-0690-01
+317 ;;9002226.02101,"976,00008-0690-01 ",.02)
+318 ;;00008-0690-01
+319 ;;9002226.02101,"976,00009-7385-01 ",.01)
+320 ;;00009-7385-01
+321 ;;9002226.02101,"976,00009-7385-01 ",.02)
+322 ;;00009-7385-01
+323 ;;9002226.02101,"976,00009-7385-02 ",.01)
+324 ;;00009-7385-02
+325 ;;9002226.02101,"976,00009-7385-02 ",.02)
+326 ;;00009-7385-02
+327 ;;9002226.02101,"976,00009-7386-01 ",.01)
+328 ;;00009-7386-01
+329 ;;9002226.02101,"976,00009-7386-01 ",.02)
+330 ;;00009-7386-01
+331 ;;9002226.02101,"976,00009-7386-02 ",.01)
+332 ;;00009-7386-02
+333 ;;9002226.02101,"976,00009-7386-02 ",.02)
+334 ;;00009-7386-02
+335 ;;9002226.02101,"976,00009-7387-01 ",.01)
+336 ;;00009-7387-01
+337 ;;9002226.02101,"976,00009-7387-01 ",.02)
+338 ;;00009-7387-01
+339 ;;9002226.02101,"976,00009-7387-02 ",.01)
+340 ;;00009-7387-02
+341 ;;9002226.02101,"976,00009-7387-02 ",.02)
+342 ;;00009-7387-02
+343 ;;9002226.02101,"976,00009-7387-03 ",.01)
+344 ;;00009-7387-03
+345 ;;9002226.02101,"976,00009-7387-03 ",.02)
+346 ;;00009-7387-03
+347 ;;9002226.02101,"976,00009-7387-04 ",.01)
+348 ;;00009-7387-04
+349 ;;9002226.02101,"976,00009-7387-04 ",.02)
+350 ;;00009-7387-04
+351 ;;9002226.02101,"976,00025-1381-31 ",.01)
+352 ;;00025-1381-31
+353 ;;9002226.02101,"976,00025-1381-31 ",.02)
+354 ;;00025-1381-31
+355 ;;9002226.02101,"976,00025-1381-34 ",.01)
+356 ;;00025-1381-34
+357 ;;9002226.02101,"976,00025-1381-34 ",.02)
+358 ;;00025-1381-34
+359 ;;9002226.02101,"976,00025-1381-51 ",.01)
+360 ;;00025-1381-51
+361 ;;9002226.02101,"976,00025-1381-51 ",.02)
+362 ;;00025-1381-51
+363 ;;9002226.02101,"976,00025-1411-34 ",.01)
+364 ;;00025-1411-34
+365 ;;9002226.02101,"976,00025-1411-34 ",.02)
+366 ;;00025-1411-34
+367 ;;9002226.02101,"976,00025-1411-60 ",.01)
+368 ;;00025-1411-60
+369 ;;9002226.02101,"976,00025-1411-60 ",.02)
+370 ;;00025-1411-60
+371 ;;9002226.02101,"976,00025-1411-90 ",.01)
+372 ;;00025-1411-90
+373 ;;9002226.02101,"976,00025-1411-90 ",.02)
+374 ;;00025-1411-90
+375 ;;9002226.02101,"976,00025-1421-60 ",.01)
+376 ;;00025-1421-60
+377 ;;9002226.02101,"976,00025-1421-60 ",.02)
+378 ;;00025-1421-60
+379 ;;9002226.02101,"976,00025-1520-31 ",.01)
+380 ;;00025-1520-31
+381 ;;9002226.02101,"976,00025-1520-31 ",.02)
+382 ;;00025-1520-31
+383 ;;9002226.02101,"976,00025-1520-34 ",.01)
+384 ;;00025-1520-34
+385 ;;9002226.02101,"976,00025-1520-34 ",.02)
+386 ;;00025-1520-34
+387 ;;9002226.02101,"976,00025-1520-51 ",.01)
+388 ;;00025-1520-51
+389 ;;9002226.02101,"976,00025-1520-51 ",.02)
+390 ;;00025-1520-51
+391 ;;9002226.02101,"976,00025-1525-31 ",.01)
+392 ;;00025-1525-31
+393 ;;9002226.02101,"976,00025-1525-31 ",.02)
+394 ;;00025-1525-31
+395 ;;9002226.02101,"976,00025-1525-34 ",.01)
+396 ;;00025-1525-34
+397 ;;9002226.02101,"976,00025-1525-34 ",.02)
+398 ;;00025-1525-34
+399 ;;9002226.02101,"976,00025-1525-51 ",.01)
+400 ;;00025-1525-51
+401 ;;9002226.02101,"976,00025-1525-51 ",.02)
+402 ;;00025-1525-51
+403 ;;9002226.02101,"976,00025-1530-01 ",.01)
+404 ;;00025-1530-01
+405 ;;9002226.02101,"976,00025-1530-01 ",.02)
+406 ;;00025-1530-01
+407 ;;9002226.02101,"976,00025-1530-02 ",.01)
+408 ;;00025-1530-02
+409 ;;9002226.02101,"976,00025-1530-02 ",.02)
+410 ;;00025-1530-02
+411 ;;9002226.02101,"976,00028-0205-01 ",.01)
+412 ;;00028-0205-01
+413 ;;9002226.02101,"976,00028-0205-01 ",.02)
+414 ;;00028-0205-01
+415 ;;9002226.02101,"976,00028-0258-01 ",.01)
+416 ;;00028-0258-01
+417 ;;9002226.02101,"976,00028-0258-01 ",.02)
+418 ;;00028-0258-01
+419 ;;9002226.02101,"976,00028-0262-01 ",.01)
+420 ;;00028-0262-01
+421 ;;9002226.02101,"976,00028-0262-01 ",.02)
+422 ;;00028-0262-01
+423 ;;9002226.02101,"976,00028-0264-01 ",.01)
+424 ;;00028-0264-01
+425 ;;9002226.02101,"976,00028-0264-01 ",.02)
+426 ;;00028-0264-01
+427 ;;9002226.02101,"976,00029-4851-20 ",.01)
+428 ;;00029-4851-20
+429 ;;9002226.02101,"976,00029-4851-20 ",.02)
+430 ;;00029-4851-20
+431 ;;9002226.02101,"976,00029-4852-20 ",.01)
+432 ;;00029-4852-20
+433 ;;9002226.02101,"976,00029-4852-20 ",.02)
+434 ;;00029-4852-20
+435 ;;9002226.02101,"976,00036-1421-34 ",.01)
+436 ;;00036-1421-34
+437 ;;9002226.02101,"976,00036-1421-34 ",.02)
+438 ;;00036-1421-34
+439 ;;9002226.02101,"976,00045-0416-60 ",.01)
+440 ;;00045-0416-60
+441 ;;9002226.02101,"976,00045-0416-60 ",.02)
+442 ;;00045-0416-60
+443 ;;9002226.02101,"976,00045-0448-04 ",.01)
+444 ;;00045-0448-04
+445 ;;9002226.02101,"976,00045-0448-04 ",.02)
+446 ;;00045-0448-04
+447 ;;9002226.02101,"976,00045-0448-16 ",.01)
+448 ;;00045-0448-16
+449 ;;9002226.02101,"976,00045-0448-16 ",.02)
+450 ;;00045-0448-16
+451 ;;9002226.02101,"976,00046-0738-81 ",.01)
+452 ;;00046-0738-81
+453 ;;9002226.02101,"976,00046-0738-81 ",.02)
+454 ;;00046-0738-81
+455 ;;9002226.02101,"976,00046-0739-81 ",.01)
+456 ;;00046-0739-81
+457 ;;9002226.02101,"976,00046-0739-81 ",.02)
+458 ;;00046-0739-81
+459 ;;9002226.02101,"976,00046-0829-81 ",.01)
+460 ;;00046-0829-81
+461 ;;9002226.02101,"976,00046-0829-81 ",.02)
+462 ;;00046-0829-81
+463 ;;9002226.02101,"976,00046-0839-81 ",.01)
+464 ;;00046-0839-81
+465 ;;9002226.02101,"976,00046-0839-81 ",.02)
+466 ;;00046-0839-81
+467 ;;9002226.02101,"976,00054-3630-63 ",.01)
+468 ;;00054-3630-63
+469 ;;9002226.02101,"976,00054-3630-63 ",.02)
+470 ;;00054-3630-63
+471 ;;9002226.02101,"976,00054-4221-25 ",.01)
+472 ;;00054-4221-25
+473 ;;9002226.02101,"976,00054-4221-25 ",.02)
+474 ;;00054-4221-25
+475 ;;9002226.02101,"976,00054-4221-31 ",.01)
+476 ;;00054-4221-31
+477 ;;9002226.02101,"976,00054-4221-31 ",.02)
+478 ;;00054-4221-31
+479 ;;9002226.02101,"976,00054-4222-25 ",.01)
+480 ;;00054-4222-25
+481 ;;9002226.02101,"976,00054-4222-25 ",.02)
+482 ;;00054-4222-25
+483 ;;9002226.02101,"976,00054-4222-31 ",.01)
+484 ;;00054-4222-31
+485 ;;9002226.02101,"976,00054-4222-31 ",.02)
+486 ;;00054-4222-31
+487 ;;9002226.02101,"976,00054-8221-25 ",.01)
+488 ;;00054-8221-25
+489 ;;9002226.02101,"976,00054-8221-25 ",.02)
+490 ;;00054-8221-25
+491 ;;9002226.02101,"976,00054-8222-25 ",.01)
+492 ;;00054-8222-25
+493 ;;9002226.02101,"976,00054-8222-25 ",.02)
+494 ;;00054-8222-25
+495 ;;9002226.02101,"976,00069-3220-66 ",.01)
+496 ;;00069-3220-66
+497 ;;9002226.02101,"976,00069-3220-66 ",.02)
+498 ;;00069-3220-66
+499 ;;9002226.02101,"976,00069-3230-66 ",.01)
+500 ;;00069-3230-66
+501 ;;9002226.02101,"976,00069-3230-66 ",.02)
+502 ;;00069-3230-66
+503 ;;9002226.02101,"976,00074-2287-31 ",.01)
+504 ;;00074-2287-31
+505 ;;9002226.02101,"976,00074-2287-31 ",.02)
+506 ;;00074-2287-31
+507 ;;9002226.02101,"976,00074-2287-61 ",.01)
+508 ;;00074-2287-61
+509 ;;9002226.02101,"976,00074-2287-61 ",.02)
+510 ;;00074-2287-61
+511 ;;9002226.02101,"976,00074-2288-31 ",.01)
+512 ;;00074-2288-31
+513 ;;9002226.02101,"976,00074-2288-31 ",.02)
+514 ;;00074-2288-31
+515 ;;9002226.02101,"976,00074-3793-01 ",.01)
+516 ;;00074-3793-01
+517 ;;9002226.02101,"976,00074-3793-01 ",.02)
+518 ;;00074-3793-01
+519 ;;9002226.02101,"976,00074-3795-01 ",.01)
+520 ;;00074-3795-01
+521 ;;9002226.02101,"976,00074-3795-01 ",.02)
+522 ;;00074-3795-01
+523 ;;9002226.02101,"976,00074-3796-01 ",.01)
+524 ;;00074-3796-01
+525 ;;9002226.02101,"976,00074-3796-01 ",.02)
+526 ;;00074-3796-01
+527 ;;9002226.02101,"976,00093-0147-01 ",.01)
+528 ;;00093-0147-01
+529 ;;9002226.02101,"976,00093-0147-01 ",.02)
+530 ;;00093-0147-01
+531 ;;9002226.02101,"976,00093-0147-05 ",.01)
+532 ;;00093-0147-05
+533 ;;9002226.02101,"976,00093-0147-05 ",.02)
+534 ;;00093-0147-05
+535 ;;9002226.02101,"976,00093-0147-20 ",.01)
+536 ;;00093-0147-20
+537 ;;9002226.02101,"976,00093-0147-20 ",.02)
+538 ;;00093-0147-20
+539 ;;9002226.02101,"976,00093-0148-01 ",.01)
+540 ;;00093-0148-01
+541 ;;9002226.02101,"976,00093-0148-01 ",.02)
+542 ;;00093-0148-01
+543 ;;9002226.02101,"976,00093-0148-05 ",.01)
+544 ;;00093-0148-05
+545 ;;9002226.02101,"976,00093-0148-05 ",.02)
+546 ;;00093-0148-05
+547 ;;9002226.02101,"976,00093-0149-01 ",.01)
+548 ;;00093-0149-01
+549 ;;9002226.02101,"976,00093-0149-01 ",.02)
+550 ;;00093-0149-01
+551 ;;9002226.02101,"976,00093-0149-05 ",.01)
+552 ;;00093-0149-05
+553 ;;9002226.02101,"976,00093-0149-05 ",.02)
+554 ;;00093-0149-05
+555 ;;9002226.02101,"976,00093-0149-10 ",.01)
+556 ;;00093-0149-10
