BGP13L3 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
;
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,"63874-0201-48 ")
;;379
;;21,"63874-0201-50 ")
;;380
;;21,"63874-0201-56 ")
;;381
;;21,"63874-0201-60 ")
;;382
;;21,"63874-0201-71 ")
;;383
;;21,"63874-0201-72 ")
;;384
;;21,"63874-0201-74 ")
;;385
;;21,"63874-0201-77 ")
;;386
;;21,"63874-0201-80 ")
;;387
;;21,"63874-0201-84 ")
;;388
;;21,"63874-0201-90 ")
;;389
;;21,"63874-0212-20 ")
;;390
;;21,"63874-0212-30 ")
;;391
;;21,"63874-0215-12 ")
;;802
;;21,"63874-0215-30 ")
;;803
;;21,"63874-0215-50 ")
;;804
;;21,"63874-0215-60 ")
;;805
;;21,"63874-0220-01 ")
;;677
;;21,"63874-0220-03 ")
;;678
;;21,"63874-0220-04 ")
;;679
;;21,"63874-0220-10 ")
;;680
;;21,"63874-0220-12 ")
;;681
;;21,"63874-0220-15 ")
;;682
;;21,"63874-0220-20 ")
;;683
;;21,"63874-0220-30 ")
;;684
;;21,"63874-0220-35 ")
;;685
;;21,"63874-0220-40 ")
;;686
;;21,"63874-0220-60 ")
;;687
;;21,"63874-0220-90 ")
;;688
;;21,"66267-0178-06 ")
;;392
;;21,"66267-0178-12 ")
;;393
;;21,"66267-0178-15 ")
;;394
;;21,"66267-0178-20 ")
;;395
;;21,"66267-0178-30 ")
;;396
;;21,"66267-0178-40 ")
;;397
;;21,"66267-0178-50 ")
;;398
;;21,"66267-0178-60 ")
;;399
;;21,"66267-0178-90 ")
;;400
;;21,"66267-0178-91 ")
;;401
;;21,"66267-0179-12 ")
;;806
;;21,"66267-0179-20 ")
;;807
;;21,"66267-0179-30 ")
;;808
;;21,"66267-0487-30 ")
;;689
;;21,"66267-0487-40 ")
;;690
;;21,"66336-0416-30 ")
;;559
;;21,"66336-0610-20 ")
;;402
;;21,"66336-0610-30 ")
;;403
;;21,"66336-0628-10 ")
;;404
;;21,"66336-0628-12 ")
;;405
;;21,"66336-0628-15 ")
;;406
;;21,"66336-0628-16 ")
;;407
;;21,"66336-0628-20 ")
;;408
;;21,"66336-0628-30 ")
;;409
;;21,"66336-0628-60 ")
;;410
;;21,"66479-0510-10 ")
;;489
;;21,"66479-0512-10 ")
;;500
;;21,"66479-0513-10 ")
;;458
;;21,"66479-0514-10 ")
;;484
;;21,"66479-0515-10 ")
;;480
;;21,"66479-0515-50 ")
;;481
;;21,"66591-0612-41 ")
;;494
;;21,"66591-0622-41 ")
;;490
;;21,"66591-0631-41 ")
;;501
;;21,"66591-0631-51 ")
;;502
;;21,"66591-0641-41 ")
;;482
;;21,"66591-0641-51 ")
;;483
;;21,"66591-0651-41 ")
;;485
;;21,"66591-0691-41 ")
;;459
;;21,"66591-1622-41 ")
;;491
;;21,"67544-0033-30 ")
;;411
;;21,"67544-0131-30 ")
;;809
;;21,"67544-0138-30 ")
;;412
;;21,"67544-0151-30 ")
;;413
;;21,"67544-0396-30 ")
;;810
;;21,"67544-0497-30 ")
;;414
;;21,"68071-0760-30 ")
;;624
;;21,"68084-0393-01 ")
;;415
;;21,"68115-0305-00 ")
;;416
;;21,"68115-0305-20 ")
;;417
;;21,"68115-0305-25 ")
;;418
;;21,"68115-0305-30 ")
;;419
;;21,"68115-0305-40 ")
;;420
;;21,"68115-0305-60 ")
;;421
;;21,"68115-0305-90 ")
;;422
;;21,"68115-0305-99 ")
;;423
;;21,"68115-0306-12 ")
;;811
;;21,"68115-0306-30 ")
;;812
;;21,"68115-0306-60 ")
;;813
;;21,"68115-0462-30 ")
;;691
;;21,"68115-0462-60 ")
;;692
;;21,"68115-0605-00 ")
;;693
;;21,"68115-0743-00 ")
;;495
;;21,"68115-0815-00 ")
;;48
;;21,"68387-0100-01 ")
;;424
;;21,"68387-0100-12 ")
;;425
;;21,"68387-0100-15 ")
;;426
;;21,"68387-0100-30 ")
;;427
;;21,"68387-0100-40 ")
;;428
;;21,"68387-0100-50 ")
;;429
;;21,"68387-0100-60 ")
;;430
;;21,"68387-0100-90 ")
;;431
;;21,"68387-0531-12 ")
;;694
;;21,"68387-0531-60 ")
;;695
;;9002226,700,.01)
;;BGP HEDIS NARCOTIC NDC
;;9002226,700,.02)
;;@
;;9002226,700,.04)
;;n
;;9002226,700,.06)
;;@
;;9002226,700,.08)
;;@
;;9002226,700,.09)
;;@
;;9002226,700,.11)
;;@
;;9002226,700,.12)
;;@
;;9002226,700,.13)
;;1
;;9002226,700,.14)
;;@
;;9002226,700,.15)
;;@
;;9002226,700,.16)
;;@
;;9002226,700,.17)
;;@
;;9002226,700,3101)
;;@
;;9002226.02101,"700,00002-0353-02 ",.01)
;;00002-0353-02
;;9002226.02101,"700,00002-0353-02 ",.02)
;;00002-0353-02
;;9002226.02101,"700,00002-0353-03 ",.01)
;;00002-0353-03
;;9002226.02101,"700,00002-0353-03 ",.02)
;;00002-0353-03
;;9002226.02101,"700,00002-0353-33 ",.01)
;;00002-0353-33
;;9002226.02101,"700,00002-0353-33 ",.02)
;;00002-0353-33
;;9002226.02101,"700,00002-0803-02 ",.01)
;;00002-0803-02
;;9002226.02101,"700,00002-0803-02 ",.02)
;;00002-0803-02
;;9002226.02101,"700,00002-0803-03 ",.01)
;;00002-0803-03
;;9002226.02101,"700,00002-0803-03 ",.02)
;;00002-0803-03
;;9002226.02101,"700,00002-0803-33 ",.01)
;;00002-0803-33
;;9002226.02101,"700,00002-0803-33 ",.02)
;;00002-0803-33
;;9002226.02101,"700,00002-3111-02 ",.01)
;;00002-3111-02
;;9002226.02101,"700,00002-3111-02 ",.02)
;;00002-3111-02
;;9002226.02101,"700,00002-3111-03 ",.01)
;;00002-3111-03
;;9002226.02101,"700,00002-3111-03 ",.02)
;;00002-3111-03
;;9002226.02101,"700,00008-0259-01 ",.01)
;;00008-0259-01
;;9002226.02101,"700,00008-0259-01 ",.02)
;;00008-0259-01
;;9002226.02101,"700,00024-0332-06 ",.01)
;;00024-0332-06
;;9002226.02101,"700,00024-0332-06 ",.02)
;;00024-0332-06
;;9002226.02101,"700,00024-0335-02 ",.01)
;;00024-0335-02
;;9002226.02101,"700,00024-0335-02 ",.02)
;;00024-0335-02
;;9002226.02101,"700,00024-0335-04 ",.01)
;;00024-0335-04
;;9002226.02101,"700,00024-0335-04 ",.02)
;;00024-0335-04
;;9002226.02101,"700,00024-0335-06 ",.01)
;;00024-0335-06
;;9002226.02101,"700,00024-0335-06 ",.02)
;;00024-0335-06
;;9002226.02101,"700,00024-0337-04 ",.01)
;;00024-0337-04
;;9002226.02101,"700,00024-0337-04 ",.02)
;;00024-0337-04
;;9002226.02101,"700,00024-1937-04 ",.01)
;;00024-1937-04
;;9002226.02101,"700,00024-1937-04 ",.02)
;;00024-1937-04
;;9002226.02101,"700,00024-1951-04 ",.01)
;;00024-1951-04
;;9002226.02101,"700,00024-1951-04 ",.02)
;;00024-1951-04
;;9002226.02101,"700,00054-3545-63 ",.01)
;;00054-3545-63
;;9002226.02101,"700,00054-3545-63 ",.02)
;;00054-3545-63
;;9002226.02101,"700,00054-4595-25 ",.01)
;;00054-4595-25
;;9002226.02101,"700,00054-4595-25 ",.02)
;;00054-4595-25
;;9002226.02101,"700,00054-4596-25 ",.01)
;;00054-4596-25
;;9002226.02101,"700,00054-4596-25 ",.02)
;;00054-4596-25
;;9002226.02101,"700,00054-8595-11 ",.01)
;;00054-8595-11
;;9002226.02101,"700,00054-8595-11 ",.02)
;;00054-8595-11
;;9002226.02101,"700,00054-8596-11 ",.01)
;;00054-8596-11
;;9002226.02101,"700,00054-8596-11 ",.02)
;;00054-8596-11
;;9002226.02101,"700,00074-1176-30 ",.01)
;;00074-1176-30
;;9002226.02101,"700,00074-1176-30 ",.02)
;;00074-1176-30
;;9002226.02101,"700,00074-1178-30 ",.01)
;;00074-1178-30
;;9002226.02101,"700,00074-1178-30 ",.02)
;;00074-1178-30
;;9002226.02101,"700,00074-1179-01 ",.01)
;;00074-1179-01
;;9002226.02101,"700,00074-1179-01 ",.02)
;;00074-1179-01
;;9002226.02101,"700,00074-1179-02 ",.01)
;;00074-1179-02
;;9002226.02101,"700,00074-1179-02 ",.02)
;;00074-1179-02
;;9002226.02101,"700,00074-1179-21 ",.01)
;;00074-1179-21
;;9002226.02101,"700,00074-1179-21 ",.02)
;;00074-1179-21
;;9002226.02101,"700,00074-1179-30 ",.01)
;;00074-1179-30
;;9002226.02101,"700,00074-1179-30 ",.02)
;;00074-1179-30
;;9002226.02101,"700,00074-1180-69 ",.01)
;;00074-1180-69
;;9002226.02101,"700,00074-1180-69 ",.02)
;;00074-1180-69
;;9002226.02101,"700,00074-1181-30 ",.01)
;;00074-1181-30
;;9002226.02101,"700,00074-1181-30 ",.02)
;;00074-1181-30
;;9002226.02101,"700,00074-1201-20 ",.01)
;;00074-1201-20
;;9002226.02101,"700,00074-1201-20 ",.02)
;;00074-1201-20
;;9002226.02101,"700,00074-1203-01 ",.01)
;;00074-1203-01
;;9002226.02101,"700,00074-1203-01 ",.02)
;;00074-1203-01
;;9002226.02101,"700,00074-1253-01 ",.01)
;;00074-1253-01
;;9002226.02101,"700,00074-1253-01 ",.02)
;;00074-1253-01
;;9002226.02101,"700,00074-1254-01 ",.01)
;;00074-1254-01
;;9002226.02101,"700,00074-1254-01 ",.02)
;;00074-1254-01
;;9002226.02101,"700,00074-1255-02 ",.01)
;;00074-1255-02
;;9002226.02101,"700,00074-1255-02 ",.02)
;;00074-1255-02
;;9002226.02101,"700,00074-1256-01 ",.01)
;;00074-1256-01
;;9002226.02101,"700,00074-1256-01 ",.02)
;;00074-1256-01
;;9002226.02101,"700,00074-1266-01 ",.01)
;;00074-1266-01
;;9002226.02101,"700,00074-1266-01 ",.02)
;;00074-1266-01
;;9002226.02101,"700,00074-1267-01 ",.01)
;;00074-1267-01
;;9002226.02101,"700,00074-1267-01 ",.02)
;;00074-1267-01
;;9002226.02101,"700,00074-1269-01 ",.01)
;;00074-1269-01
;;9002226.02101,"700,00074-1269-01 ",.02)
;;00074-1269-01
;;9002226.02101,"700,00074-1271-02 ",.01)
;;00074-1271-02
;;9002226.02101,"700,00074-1271-02 ",.02)
;;00074-1271-02
;;9002226.02101,"700,00074-1920-10 ",.01)
;;00074-1920-10
;;9002226.02101,"700,00074-1920-10 ",.02)
;;00074-1920-10
;;9002226.02101,"700,00074-1941-01 ",.01)
;;00074-1941-01
;;9002226.02101,"700,00074-1941-01 ",.02)
;;00074-1941-01
;;9002226.02101,"700,00074-1941-11 ",.01)
;;00074-1941-11
;;9002226.02101,"700,00074-1941-11 ",.02)
;;00074-1941-11
;;9002226.02101,"700,00074-6030-04 ",.01)
;;00074-6030-04
;;9002226.02101,"700,00074-6030-04 ",.02)
;;00074-6030-04
;;9002226.02101,"700,00093-0490-01 ",.01)
;;00093-0490-01
;;9002226.02101,"700,00093-0490-01 ",.02)
;;00093-0490-01
;;9002226.02101,"700,00093-0490-05 ",.01)
;;00093-0490-05
;;9002226.02101,"700,00093-0490-05 ",.02)
;;00093-0490-05
;;9002226.02101,"700,00093-0741-01 ",.01)
;;00093-0741-01
;;9002226.02101,"700,00093-0741-01 ",.02)
;;00093-0741-01
;;9002226.02101,"700,00093-0890-01 ",.01)
;;00093-0890-01
;;9002226.02101,"700,00093-0890-01 ",.02)
;;00093-0890-01
;;9002226.02101,"700,00093-0890-05 ",.01)
;;00093-0890-05
;;9002226.02101,"700,00093-0890-05 ",.02)
;;00093-0890-05
;;9002226.02101,"700,00143-3235-01 ",.01)
;;00143-3235-01
;;9002226.02101,"700,00143-3235-01 ",.02)
;;00143-3235-01
;;9002226.02101,"700,00143-3235-05 ",.01)
;;00143-3235-05
;;9002226.02101,"700,00143-3235-05 ",.02)
;;00143-3235-05
;;9002226.02101,"700,00143-3235-10 ",.01)
;;00143-3235-10
;;9002226.02101,"700,00143-3235-10 ",.02)
;;00143-3235-10
;;9002226.02101,"700,00172-4980-60 ",.01)
;;00172-4980-60
;;9002226.02101,"700,00172-4980-60 ",.02)
;;00172-4980-60
;;9002226.02101,"700,00172-4980-70 ",.01)
;;00172-4980-70
;;9002226.02101,"700,00172-4980-70 ",.02)
;;00172-4980-70
;;9002226.02101,"700,00172-4980-80 ",.01)
;;00172-4980-80
;;9002226.02101,"700,00172-4980-80 ",.02)
;;00172-4980-80
;;9002226.02101,"700,00182-0317-89 ",.01)
;;00182-0317-89
;;9002226.02101,"700,00182-0317-89 ",.02)
;;00182-0317-89
;;9002226.02101,"700,00182-0698-01 ",.01)
;;00182-0698-01
;;9002226.02101,"700,00182-0698-01 ",.02)
;;00182-0698-01
;;9002226.02101,"700,00182-0698-05 ",.01)
;;00182-0698-05
;;9002226.02101,"700,00182-0698-05 ",.02)
;;00182-0698-05
;;9002226.02101,"700,00182-1673-01 ",.01)
;;00182-1673-01
;;9002226.02101,"700,00182-1673-01 ",.02)
;;00182-1673-01
;;9002226.02101,"700,00182-1673-05 ",.01)
;;00182-1673-05
;;9002226.02101,"700,00182-1673-05 ",.02)
;;00182-1673-05
;;9002226.02101,"700,00182-9130-66 ",.01)
;;00182-9130-66
;;9002226.02101,"700,00182-9130-66 ",.02)
;;00182-9130-66
;;9002226.02101,"700,00182-9131-65 ",.01)
;;00182-9131-65
;;9002226.02101,"700,00182-9131-65 ",.02)
;;00182-9131-65
;;9002226.02101,"700,00182-9140-01 ",.01)
;;00182-9140-01
;;9002226.02101,"700,00182-9140-01 ",.02)
;;00182-9140-01
;;9002226.02101,"700,00182-9141-01 ",.01)
;;00182-9141-01
;;9002226.02101,"700,00182-9141-01 ",.02)
;;00182-9141-01
;;9002226.02101,"700,00228-2082-10 ",.01)
;;00228-2082-10
;;9002226.02101,"700,00228-2082-10 ",.02)
;;00228-2082-10
;;9002226.02101,"700,00228-2082-50 ",.01)
;;00228-2082-50
;;9002226.02101,"700,00228-2082-50 ",.02)
;;00228-2082-50
;;9002226.02101,"700,00228-2085-10 ",.01)
;;00228-2085-10
;;9002226.02101,"700,00228-2085-10 ",.02)
;;00228-2085-10
;;9002226.02101,"700,00228-2085-50 ",.01)
;;00228-2085-50
;;9002226.02101,"700,00228-2085-50 ",.02)
;;00228-2085-50
;;9002226.02101,"700,00247-0086-00 ",.01)
;;00247-0086-00
;;9002226.02101,"700,00247-0086-00 ",.02)
;;00247-0086-00
;;9002226.02101,"700,00247-0086-02 ",.01)
;;00247-0086-02
;;9002226.02101,"700,00247-0086-02 ",.02)
;;00247-0086-02
;;9002226.02101,"700,00247-0086-03 ",.01)
;;00247-0086-03
;;9002226.02101,"700,00247-0086-03 ",.02)
;;00247-0086-03
;;9002226.02101,"700,00247-0086-04 ",.01)
;;00247-0086-04
;;9002226.02101,"700,00247-0086-04 ",.02)
;;00247-0086-04
;;9002226.02101,"700,00247-0086-05 ",.01)
;;00247-0086-05
BGP13L3 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
+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,"63874-0201-48 ")
+2 ;;379
+3 ;;21,"63874-0201-50 ")
+4 ;;380
+5 ;;21,"63874-0201-56 ")
+6 ;;381
+7 ;;21,"63874-0201-60 ")
+8 ;;382
+9 ;;21,"63874-0201-71 ")
+10 ;;383
+11 ;;21,"63874-0201-72 ")
+12 ;;384
+13 ;;21,"63874-0201-74 ")
+14 ;;385
+15 ;;21,"63874-0201-77 ")
+16 ;;386
+17 ;;21,"63874-0201-80 ")
+18 ;;387
+19 ;;21,"63874-0201-84 ")
+20 ;;388
+21 ;;21,"63874-0201-90 ")
+22 ;;389
+23 ;;21,"63874-0212-20 ")
+24 ;;390
+25 ;;21,"63874-0212-30 ")
+26 ;;391
+27 ;;21,"63874-0215-12 ")
+28 ;;802
+29 ;;21,"63874-0215-30 ")
+30 ;;803
+31 ;;21,"63874-0215-50 ")
+32 ;;804
+33 ;;21,"63874-0215-60 ")
+34 ;;805
+35 ;;21,"63874-0220-01 ")
+36 ;;677
+37 ;;21,"63874-0220-03 ")
+38 ;;678
+39 ;;21,"63874-0220-04 ")
+40 ;;679
+41 ;;21,"63874-0220-10 ")
+42 ;;680
+43 ;;21,"63874-0220-12 ")
+44 ;;681
+45 ;;21,"63874-0220-15 ")
+46 ;;682
+47 ;;21,"63874-0220-20 ")
+48 ;;683
+49 ;;21,"63874-0220-30 ")
+50 ;;684
+51 ;;21,"63874-0220-35 ")
+52 ;;685
+53 ;;21,"63874-0220-40 ")
+54 ;;686
+55 ;;21,"63874-0220-60 ")
+56 ;;687
+57 ;;21,"63874-0220-90 ")
+58 ;;688
+59 ;;21,"66267-0178-06 ")
+60 ;;392
+61 ;;21,"66267-0178-12 ")
+62 ;;393
+63 ;;21,"66267-0178-15 ")
+64 ;;394
+65 ;;21,"66267-0178-20 ")
+66 ;;395
+67 ;;21,"66267-0178-30 ")
+68 ;;396
+69 ;;21,"66267-0178-40 ")
+70 ;;397
+71 ;;21,"66267-0178-50 ")
+72 ;;398
+73 ;;21,"66267-0178-60 ")
+74 ;;399
+75 ;;21,"66267-0178-90 ")
+76 ;;400
+77 ;;21,"66267-0178-91 ")
+78 ;;401
+79 ;;21,"66267-0179-12 ")
+80 ;;806
+81 ;;21,"66267-0179-20 ")
+82 ;;807
+83 ;;21,"66267-0179-30 ")
+84 ;;808
+85 ;;21,"66267-0487-30 ")
+86 ;;689
+87 ;;21,"66267-0487-40 ")
+88 ;;690
+89 ;;21,"66336-0416-30 ")
+90 ;;559
+91 ;;21,"66336-0610-20 ")
+92 ;;402
+93 ;;21,"66336-0610-30 ")
+94 ;;403
+95 ;;21,"66336-0628-10 ")
+96 ;;404
+97 ;;21,"66336-0628-12 ")
+98 ;;405
+99 ;;21,"66336-0628-15 ")
+100 ;;406
+101 ;;21,"66336-0628-16 ")
+102 ;;407
+103 ;;21,"66336-0628-20 ")
+104 ;;408
+105 ;;21,"66336-0628-30 ")
+106 ;;409
+107 ;;21,"66336-0628-60 ")
+108 ;;410
+109 ;;21,"66479-0510-10 ")
+110 ;;489
+111 ;;21,"66479-0512-10 ")
+112 ;;500
+113 ;;21,"66479-0513-10 ")
+114 ;;458
+115 ;;21,"66479-0514-10 ")
+116 ;;484
+117 ;;21,"66479-0515-10 ")
+118 ;;480
+119 ;;21,"66479-0515-50 ")
+120 ;;481
+121 ;;21,"66591-0612-41 ")
+122 ;;494
+123 ;;21,"66591-0622-41 ")
+124 ;;490
+125 ;;21,"66591-0631-41 ")
+126 ;;501
+127 ;;21,"66591-0631-51 ")
+128 ;;502
+129 ;;21,"66591-0641-41 ")
+130 ;;482
+131 ;;21,"66591-0641-51 ")
+132 ;;483
+133 ;;21,"66591-0651-41 ")
+134 ;;485
+135 ;;21,"66591-0691-41 ")
+136 ;;459
+137 ;;21,"66591-1622-41 ")
+138 ;;491
+139 ;;21,"67544-0033-30 ")
+140 ;;411
+141 ;;21,"67544-0131-30 ")
+142 ;;809
+143 ;;21,"67544-0138-30 ")
+144 ;;412
+145 ;;21,"67544-0151-30 ")
+146 ;;413
+147 ;;21,"67544-0396-30 ")
+148 ;;810
+149 ;;21,"67544-0497-30 ")
+150 ;;414
+151 ;;21,"68071-0760-30 ")
+152 ;;624
+153 ;;21,"68084-0393-01 ")
+154 ;;415
+155 ;;21,"68115-0305-00 ")
+156 ;;416
+157 ;;21,"68115-0305-20 ")
+158 ;;417
+159 ;;21,"68115-0305-25 ")
+160 ;;418
+161 ;;21,"68115-0305-30 ")
+162 ;;419
+163 ;;21,"68115-0305-40 ")
+164 ;;420
+165 ;;21,"68115-0305-60 ")
+166 ;;421
+167 ;;21,"68115-0305-90 ")
+168 ;;422
+169 ;;21,"68115-0305-99 ")
+170 ;;423
+171 ;;21,"68115-0306-12 ")
+172 ;;811
+173 ;;21,"68115-0306-30 ")
+174 ;;812
+175 ;;21,"68115-0306-60 ")
+176 ;;813
+177 ;;21,"68115-0462-30 ")
+178 ;;691
+179 ;;21,"68115-0462-60 ")
+180 ;;692
+181 ;;21,"68115-0605-00 ")
+182 ;;693
+183 ;;21,"68115-0743-00 ")
+184 ;;495
+185 ;;21,"68115-0815-00 ")
+186 ;;48
+187 ;;21,"68387-0100-01 ")
+188 ;;424
+189 ;;21,"68387-0100-12 ")
+190 ;;425
+191 ;;21,"68387-0100-15 ")
+192 ;;426
+193 ;;21,"68387-0100-30 ")
+194 ;;427
+195 ;;21,"68387-0100-40 ")
+196 ;;428
+197 ;;21,"68387-0100-50 ")
+198 ;;429
+199 ;;21,"68387-0100-60 ")
+200 ;;430
+201 ;;21,"68387-0100-90 ")
+202 ;;431
+203 ;;21,"68387-0531-12 ")
+204 ;;694
+205 ;;21,"68387-0531-60 ")
+206 ;;695
+207 ;;9002226,700,.01)
+208 ;;BGP HEDIS NARCOTIC NDC
+209 ;;9002226,700,.02)
+210 ;;@
+211 ;;9002226,700,.04)
+212 ;;n
+213 ;;9002226,700,.06)
+214 ;;@
+215 ;;9002226,700,.08)
+216 ;;@
+217 ;;9002226,700,.09)
+218 ;;@
+219 ;;9002226,700,.11)
+220 ;;@
+221 ;;9002226,700,.12)
+222 ;;@
+223 ;;9002226,700,.13)
+224 ;;1
+225 ;;9002226,700,.14)
+226 ;;@
+227 ;;9002226,700,.15)
+228 ;;@
+229 ;;9002226,700,.16)
+230 ;;@
+231 ;;9002226,700,.17)
+232 ;;@
+233 ;;9002226,700,3101)
+234 ;;@
+235 ;;9002226.02101,"700,00002-0353-02 ",.01)
+236 ;;00002-0353-02
+237 ;;9002226.02101,"700,00002-0353-02 ",.02)
+238 ;;00002-0353-02
+239 ;;9002226.02101,"700,00002-0353-03 ",.01)
+240 ;;00002-0353-03
+241 ;;9002226.02101,"700,00002-0353-03 ",.02)
+242 ;;00002-0353-03
+243 ;;9002226.02101,"700,00002-0353-33 ",.01)
+244 ;;00002-0353-33
+245 ;;9002226.02101,"700,00002-0353-33 ",.02)
+246 ;;00002-0353-33
+247 ;;9002226.02101,"700,00002-0803-02 ",.01)
+248 ;;00002-0803-02
+249 ;;9002226.02101,"700,00002-0803-02 ",.02)
+250 ;;00002-0803-02
+251 ;;9002226.02101,"700,00002-0803-03 ",.01)
+252 ;;00002-0803-03
+253 ;;9002226.02101,"700,00002-0803-03 ",.02)
+254 ;;00002-0803-03
+255 ;;9002226.02101,"700,00002-0803-33 ",.01)
+256 ;;00002-0803-33
+257 ;;9002226.02101,"700,00002-0803-33 ",.02)
+258 ;;00002-0803-33
+259 ;;9002226.02101,"700,00002-3111-02 ",.01)
+260 ;;00002-3111-02
+261 ;;9002226.02101,"700,00002-3111-02 ",.02)
+262 ;;00002-3111-02
+263 ;;9002226.02101,"700,00002-3111-03 ",.01)
+264 ;;00002-3111-03
+265 ;;9002226.02101,"700,00002-3111-03 ",.02)
+266 ;;00002-3111-03
+267 ;;9002226.02101,"700,00008-0259-01 ",.01)
+268 ;;00008-0259-01
+269 ;;9002226.02101,"700,00008-0259-01 ",.02)
+270 ;;00008-0259-01
+271 ;;9002226.02101,"700,00024-0332-06 ",.01)
+272 ;;00024-0332-06
+273 ;;9002226.02101,"700,00024-0332-06 ",.02)
+274 ;;00024-0332-06
+275 ;;9002226.02101,"700,00024-0335-02 ",.01)
+276 ;;00024-0335-02
+277 ;;9002226.02101,"700,00024-0335-02 ",.02)
+278 ;;00024-0335-02
+279 ;;9002226.02101,"700,00024-0335-04 ",.01)
+280 ;;00024-0335-04
+281 ;;9002226.02101,"700,00024-0335-04 ",.02)
+282 ;;00024-0335-04
+283 ;;9002226.02101,"700,00024-0335-06 ",.01)
+284 ;;00024-0335-06
+285 ;;9002226.02101,"700,00024-0335-06 ",.02)
+286 ;;00024-0335-06
+287 ;;9002226.02101,"700,00024-0337-04 ",.01)
+288 ;;00024-0337-04
+289 ;;9002226.02101,"700,00024-0337-04 ",.02)
+290 ;;00024-0337-04
+291 ;;9002226.02101,"700,00024-1937-04 ",.01)
+292 ;;00024-1937-04
+293 ;;9002226.02101,"700,00024-1937-04 ",.02)
+294 ;;00024-1937-04
+295 ;;9002226.02101,"700,00024-1951-04 ",.01)
+296 ;;00024-1951-04
+297 ;;9002226.02101,"700,00024-1951-04 ",.02)
+298 ;;00024-1951-04
+299 ;;9002226.02101,"700,00054-3545-63 ",.01)
+300 ;;00054-3545-63
+301 ;;9002226.02101,"700,00054-3545-63 ",.02)
+302 ;;00054-3545-63
+303 ;;9002226.02101,"700,00054-4595-25 ",.01)
+304 ;;00054-4595-25
+305 ;;9002226.02101,"700,00054-4595-25 ",.02)
+306 ;;00054-4595-25
+307 ;;9002226.02101,"700,00054-4596-25 ",.01)
+308 ;;00054-4596-25
+309 ;;9002226.02101,"700,00054-4596-25 ",.02)
+310 ;;00054-4596-25
+311 ;;9002226.02101,"700,00054-8595-11 ",.01)
+312 ;;00054-8595-11
+313 ;;9002226.02101,"700,00054-8595-11 ",.02)
+314 ;;00054-8595-11
+315 ;;9002226.02101,"700,00054-8596-11 ",.01)
+316 ;;00054-8596-11
+317 ;;9002226.02101,"700,00054-8596-11 ",.02)
+318 ;;00054-8596-11
+319 ;;9002226.02101,"700,00074-1176-30 ",.01)
+320 ;;00074-1176-30
+321 ;;9002226.02101,"700,00074-1176-30 ",.02)
+322 ;;00074-1176-30
+323 ;;9002226.02101,"700,00074-1178-30 ",.01)
+324 ;;00074-1178-30
+325 ;;9002226.02101,"700,00074-1178-30 ",.02)
+326 ;;00074-1178-30
+327 ;;9002226.02101,"700,00074-1179-01 ",.01)
+328 ;;00074-1179-01
+329 ;;9002226.02101,"700,00074-1179-01 ",.02)
+330 ;;00074-1179-01
+331 ;;9002226.02101,"700,00074-1179-02 ",.01)
+332 ;;00074-1179-02
+333 ;;9002226.02101,"700,00074-1179-02 ",.02)
+334 ;;00074-1179-02
+335 ;;9002226.02101,"700,00074-1179-21 ",.01)
+336 ;;00074-1179-21
+337 ;;9002226.02101,"700,00074-1179-21 ",.02)
+338 ;;00074-1179-21
+339 ;;9002226.02101,"700,00074-1179-30 ",.01)
+340 ;;00074-1179-30
+341 ;;9002226.02101,"700,00074-1179-30 ",.02)
+342 ;;00074-1179-30
+343 ;;9002226.02101,"700,00074-1180-69 ",.01)
+344 ;;00074-1180-69
+345 ;;9002226.02101,"700,00074-1180-69 ",.02)
+346 ;;00074-1180-69
+347 ;;9002226.02101,"700,00074-1181-30 ",.01)
+348 ;;00074-1181-30
+349 ;;9002226.02101,"700,00074-1181-30 ",.02)
+350 ;;00074-1181-30
+351 ;;9002226.02101,"700,00074-1201-20 ",.01)
+352 ;;00074-1201-20
+353 ;;9002226.02101,"700,00074-1201-20 ",.02)
+354 ;;00074-1201-20
+355 ;;9002226.02101,"700,00074-1203-01 ",.01)
+356 ;;00074-1203-01
+357 ;;9002226.02101,"700,00074-1203-01 ",.02)
+358 ;;00074-1203-01
+359 ;;9002226.02101,"700,00074-1253-01 ",.01)
+360 ;;00074-1253-01
+361 ;;9002226.02101,"700,00074-1253-01 ",.02)
+362 ;;00074-1253-01
+363 ;;9002226.02101,"700,00074-1254-01 ",.01)
+364 ;;00074-1254-01
+365 ;;9002226.02101,"700,00074-1254-01 ",.02)
+366 ;;00074-1254-01
+367 ;;9002226.02101,"700,00074-1255-02 ",.01)
+368 ;;00074-1255-02
+369 ;;9002226.02101,"700,00074-1255-02 ",.02)
+370 ;;00074-1255-02
+371 ;;9002226.02101,"700,00074-1256-01 ",.01)
+372 ;;00074-1256-01
+373 ;;9002226.02101,"700,00074-1256-01 ",.02)
+374 ;;00074-1256-01
+375 ;;9002226.02101,"700,00074-1266-01 ",.01)
+376 ;;00074-1266-01
+377 ;;9002226.02101,"700,00074-1266-01 ",.02)
+378 ;;00074-1266-01
+379 ;;9002226.02101,"700,00074-1267-01 ",.01)
+380 ;;00074-1267-01
+381 ;;9002226.02101,"700,00074-1267-01 ",.02)
+382 ;;00074-1267-01
+383 ;;9002226.02101,"700,00074-1269-01 ",.01)
+384 ;;00074-1269-01
+385 ;;9002226.02101,"700,00074-1269-01 ",.02)
+386 ;;00074-1269-01
+387 ;;9002226.02101,"700,00074-1271-02 ",.01)
+388 ;;00074-1271-02
+389 ;;9002226.02101,"700,00074-1271-02 ",.02)
+390 ;;00074-1271-02
+391 ;;9002226.02101,"700,00074-1920-10 ",.01)
+392 ;;00074-1920-10
+393 ;;9002226.02101,"700,00074-1920-10 ",.02)
+394 ;;00074-1920-10
+395 ;;9002226.02101,"700,00074-1941-01 ",.01)
+396 ;;00074-1941-01
+397 ;;9002226.02101,"700,00074-1941-01 ",.02)
+398 ;;00074-1941-01
+399 ;;9002226.02101,"700,00074-1941-11 ",.01)
+400 ;;00074-1941-11
+401 ;;9002226.02101,"700,00074-1941-11 ",.02)
+402 ;;00074-1941-11
+403 ;;9002226.02101,"700,00074-6030-04 ",.01)
+404 ;;00074-6030-04
+405 ;;9002226.02101,"700,00074-6030-04 ",.02)
+406 ;;00074-6030-04
+407 ;;9002226.02101,"700,00093-0490-01 ",.01)
+408 ;;00093-0490-01
+409 ;;9002226.02101,"700,00093-0490-01 ",.02)
+410 ;;00093-0490-01
+411 ;;9002226.02101,"700,00093-0490-05 ",.01)
+412 ;;00093-0490-05
+413 ;;9002226.02101,"700,00093-0490-05 ",.02)
+414 ;;00093-0490-05
+415 ;;9002226.02101,"700,00093-0741-01 ",.01)
+416 ;;00093-0741-01
+417 ;;9002226.02101,"700,00093-0741-01 ",.02)
+418 ;;00093-0741-01
+419 ;;9002226.02101,"700,00093-0890-01 ",.01)
+420 ;;00093-0890-01
+421 ;;9002226.02101,"700,00093-0890-01 ",.02)
+422 ;;00093-0890-01
+423 ;;9002226.02101,"700,00093-0890-05 ",.01)
+424 ;;00093-0890-05
+425 ;;9002226.02101,"700,00093-0890-05 ",.02)
+426 ;;00093-0890-05
+427 ;;9002226.02101,"700,00143-3235-01 ",.01)
+428 ;;00143-3235-01
+429 ;;9002226.02101,"700,00143-3235-01 ",.02)
+430 ;;00143-3235-01
+431 ;;9002226.02101,"700,00143-3235-05 ",.01)
+432 ;;00143-3235-05
+433 ;;9002226.02101,"700,00143-3235-05 ",.02)
+434 ;;00143-3235-05
+435 ;;9002226.02101,"700,00143-3235-10 ",.01)
+436 ;;00143-3235-10
+437 ;;9002226.02101,"700,00143-3235-10 ",.02)
+438 ;;00143-3235-10
+439 ;;9002226.02101,"700,00172-4980-60 ",.01)
+440 ;;00172-4980-60
+441 ;;9002226.02101,"700,00172-4980-60 ",.02)
+442 ;;00172-4980-60
+443 ;;9002226.02101,"700,00172-4980-70 ",.01)
+444 ;;00172-4980-70
+445 ;;9002226.02101,"700,00172-4980-70 ",.02)
+446 ;;00172-4980-70
+447 ;;9002226.02101,"700,00172-4980-80 ",.01)
+448 ;;00172-4980-80
+449 ;;9002226.02101,"700,00172-4980-80 ",.02)
+450 ;;00172-4980-80
+451 ;;9002226.02101,"700,00182-0317-89 ",.01)
+452 ;;00182-0317-89
+453 ;;9002226.02101,"700,00182-0317-89 ",.02)
+454 ;;00182-0317-89
+455 ;;9002226.02101,"700,00182-0698-01 ",.01)
+456 ;;00182-0698-01
+457 ;;9002226.02101,"700,00182-0698-01 ",.02)
+458 ;;00182-0698-01
+459 ;;9002226.02101,"700,00182-0698-05 ",.01)
+460 ;;00182-0698-05
+461 ;;9002226.02101,"700,00182-0698-05 ",.02)
+462 ;;00182-0698-05
+463 ;;9002226.02101,"700,00182-1673-01 ",.01)
+464 ;;00182-1673-01
+465 ;;9002226.02101,"700,00182-1673-01 ",.02)
+466 ;;00182-1673-01
+467 ;;9002226.02101,"700,00182-1673-05 ",.01)
+468 ;;00182-1673-05
+469 ;;9002226.02101,"700,00182-1673-05 ",.02)
+470 ;;00182-1673-05
+471 ;;9002226.02101,"700,00182-9130-66 ",.01)
+472 ;;00182-9130-66
+473 ;;9002226.02101,"700,00182-9130-66 ",.02)
+474 ;;00182-9130-66
+475 ;;9002226.02101,"700,00182-9131-65 ",.01)
+476 ;;00182-9131-65
+477 ;;9002226.02101,"700,00182-9131-65 ",.02)
+478 ;;00182-9131-65
+479 ;;9002226.02101,"700,00182-9140-01 ",.01)
+480 ;;00182-9140-01
+481 ;;9002226.02101,"700,00182-9140-01 ",.02)
+482 ;;00182-9140-01
+483 ;;9002226.02101,"700,00182-9141-01 ",.01)
+484 ;;00182-9141-01
+485 ;;9002226.02101,"700,00182-9141-01 ",.02)
+486 ;;00182-9141-01
+487 ;;9002226.02101,"700,00228-2082-10 ",.01)
+488 ;;00228-2082-10
+489 ;;9002226.02101,"700,00228-2082-10 ",.02)
+490 ;;00228-2082-10
+491 ;;9002226.02101,"700,00228-2082-50 ",.01)
+492 ;;00228-2082-50
+493 ;;9002226.02101,"700,00228-2082-50 ",.02)
+494 ;;00228-2082-50
+495 ;;9002226.02101,"700,00228-2085-10 ",.01)
+496 ;;00228-2085-10
+497 ;;9002226.02101,"700,00228-2085-10 ",.02)
+498 ;;00228-2085-10
+499 ;;9002226.02101,"700,00228-2085-50 ",.01)
+500 ;;00228-2085-50
+501 ;;9002226.02101,"700,00228-2085-50 ",.02)
+502 ;;00228-2085-50
+503 ;;9002226.02101,"700,00247-0086-00 ",.01)
+504 ;;00247-0086-00
+505 ;;9002226.02101,"700,00247-0086-00 ",.02)
+506 ;;00247-0086-00
+507 ;;9002226.02101,"700,00247-0086-02 ",.01)
+508 ;;00247-0086-02
+509 ;;9002226.02101,"700,00247-0086-02 ",.02)
+510 ;;00247-0086-02
+511 ;;9002226.02101,"700,00247-0086-03 ",.01)
+512 ;;00247-0086-03
+513 ;;9002226.02101,"700,00247-0086-03 ",.02)
+514 ;;00247-0086-03
+515 ;;9002226.02101,"700,00247-0086-04 ",.01)
+516 ;;00247-0086-04
+517 ;;9002226.02101,"700,00247-0086-04 ",.02)
+518 ;;00247-0086-04
+519 ;;9002226.02101,"700,00247-0086-05 ",.01)
+520 ;;00247-0086-05