BGP82Z18 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
;
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,"68180-0698-06 ")
;;5686
;;21,"68180-0699-06 ")
;;5687
;;21,"68258-2003-03 ")
;;5688
;;21,"68258-2012-09 ")
;;5689
;;21,"68258-3023-01 ")
;;5690
;;21,"68258-3024-01 ")
;;5691
;;21,"68258-3025-01 ")
;;5692
;;21,"68258-3040-01 ")
;;5693
;;21,"68308-0020-03 ")
;;5694
;;21,"68308-0108-01 ")
;;5695
;;21,"68308-0111-01 ")
;;5696
;;21,"68308-0112-01 ")
;;5697
;;21,"68308-0145-01 ")
;;5698
;;21,"68308-0221-01 ")
;;5699
;;21,"68308-0222-01 ")
;;5700
;;21,"68308-0223-01 ")
;;5701
;;21,"68308-0224-01 ")
;;5702
;;21,"68308-0225-01 ")
;;5703
;;21,"68308-0226-01 ")
;;5704
;;21,"68308-0312-10 ")
;;5705
;;21,"68308-0405-47 ")
;;5706
;;21,"68308-0475-47 ")
;;5707
;;21,"68308-0480-47 ")
;;5708
;;21,"68308-0505-47 ")
;;5709
;;21,"68308-0840-01 ")
;;5710
;;21,"68308-0841-01 ")
;;5711
;;21,"68308-0842-01 ")
;;5712
;;21,"68308-0843-01 ")
;;5713
;;21,"68308-0845-01 ")
;;5714
;;21,"68382-0319-01 ")
;;5715
;;21,"68382-0319-05 ")
;;5716
;;21,"68382-0319-10 ")
;;5717
;;21,"68382-0334-01 ")
;;5718
;;21,"68382-0334-05 ")
;;5719
;;21,"68382-0793-01 ")
;;5720
;;21,"68382-0794-01 ")
;;5721
;;21,"68382-0795-01 ")
;;5722
;;21,"68382-0796-01 ")
;;5723
;;21,"68382-0797-01 ")
;;5724
;;21,"68382-0903-01 ")
;;5725
;;21,"68382-0904-01 ")
;;5726
;;21,"68382-0905-01 ")
;;5727
;;21,"68382-0906-01 ")
;;5728
;;21,"68382-0907-01 ")
;;5729
;;21,"68387-0230-01 ")
;;5730
;;21,"68387-0230-10 ")
;;5731
;;21,"68387-0230-12 ")
;;5732
;;21,"68387-0230-15 ")
;;5733
;;21,"68387-0230-30 ")
;;5734
;;21,"68387-0230-40 ")
;;5735
;;21,"68387-0230-50 ")
;;5736
;;21,"68387-0230-51 ")
;;5737
;;21,"68387-0230-60 ")
;;5738
;;21,"68387-0230-90 ")
;;5739
;;21,"68387-0235-12 ")
;;5740
;;21,"68387-0235-18 ")
;;5741
;;21,"68387-0235-30 ")
;;5742
;;21,"68387-0235-40 ")
;;5743
;;21,"68387-0235-60 ")
;;5744
;;21,"68387-0235-90 ")
;;5745
;;21,"68387-0236-30 ")
;;5746
;;21,"68387-0236-90 ")
;;5747
;;21,"68387-0250-15 ")
;;5748
;;21,"68387-0250-30 ")
;;5749
;;21,"68387-0250-40 ")
;;5750
;;21,"68387-0250-60 ")
;;5751
;;21,"68387-0250-90 ")
;;5752
;;21,"68387-0497-12 ")
;;5753
;;21,"68387-0497-20 ")
;;5754
;;21,"68387-0497-30 ")
;;5755
;;21,"68387-0497-60 ")
;;5756
;;21,"68387-0497-90 ")
;;5757
;;21,"68387-0531-12 ")
;;5758
;;21,"68387-0531-30 ")
;;5759
;;21,"68387-0531-60 ")
;;5760
;;21,"68387-0900-12 ")
;;5761
;;21,"68387-0900-15 ")
;;5762
;;21,"68387-0900-20 ")
;;5763
;;21,"68387-0900-24 ")
;;5764
;;21,"68387-0900-30 ")
;;5765
;;21,"68387-0900-40 ")
;;5766
;;21,"68387-0900-50 ")
;;5767
;;21,"68387-0900-60 ")
;;5768
;;21,"68387-0900-90 ")
;;5769
;;21,"68405-0038-36 ")
;;5770
;;21,"68405-0098-36 ")
;;5771
;;21,"68405-0198-36 ")
;;5772
;;21,"68405-0298-36 ")
;;5773
;;21,"68405-0380-26 ")
;;5774
;;21,"68405-0398-36 ")
;;5775
;;21,"68405-0498-36 ")
;;5776
;;21,"68462-0204-01 ")
;;5777
;;21,"68462-0347-37 ")
;;5778
;;21,"68788-0285-03 ")
;;5779
;;21,"68788-0285-06 ")
;;5780
;;21,"68788-0985-02 ")
;;5781
;;21,"68788-0985-03 ")
;;5782
;;21,"68788-0985-06 ")
;;5783
;;21,"68788-6352-01 ")
;;5784
;;21,"68788-7373-01 ")
;;5785
;;21,"68788-7373-03 ")
;;5786
;;21,"68788-7373-06 ")
;;5787
;;21,"68788-7373-09 ")
;;5788
;;21,"68788-8918-03 ")
;;5789
;;21,"68788-8918-06 ")
;;5790
;;21,"68788-8918-09 ")
;;5791
;;21,"68788-8920-03 ")
;;5792
;;21,"68788-8920-06 ")
;;5793
;;21,"68788-8920-09 ")
;;5794
;;21,"68788-8921-02 ")
;;5795
;;21,"68788-8921-03 ")
;;5796
;;21,"68788-8921-06 ")
;;5797
;;21,"68788-8921-09 ")
;;5798
;;21,"68788-9125-03 ")
;;5799
;;21,"68788-9125-06 ")
;;5800
;;21,"68788-9125-09 ")
;;5801
;;21,"68788-9137-02 ")
;;5802
;;21,"68788-9137-03 ")
;;5803
;;21,"68788-9137-06 ")
;;5804
;;21,"68788-9137-09 ")
;;5805
;;21,"68788-9141-03 ")
;;5806
;;21,"68788-9141-06 ")
;;5807
;;21,"68788-9141-08 ")
;;5808
;;21,"68788-9141-09 ")
;;5809
;;21,"68788-9250-01 ")
;;5810
;;21,"68788-9250-02 ")
;;5811
;;21,"68788-9250-03 ")
;;5812
;;21,"68788-9250-04 ")
;;5813
;;21,"68788-9250-05 ")
;;5814
;;21,"68788-9250-06 ")
;;5815
;;21,"68788-9250-08 ")
;;5816
;;21,"68788-9250-09 ")
;;5817
;;21,"68788-9413-03 ")
;;5818
;;21,"68788-9413-06 ")
;;5819
;;21,"68788-9413-08 ")
;;5820
;;21,"68788-9413-09 ")
;;5821
;;21,"68788-9506-03 ")
;;5822
;;21,"68788-9506-06 ")
;;5823
;;21,"68788-9736-01 ")
;;5824
;;21,"68788-9736-02 ")
;;5825
;;21,"68788-9736-03 ")
;;5826
;;21,"68788-9736-06 ")
;;5827
;;21,"68788-9736-09 ")
;;5828
;;21,"68788-9784-03 ")
;;5829
;;21,"68788-9784-06 ")
;;5830
;;21,"68788-9895-01 ")
;;5831
;;21,"68788-9968-01 ")
;;5832
;;21,"68788-9968-02 ")
;;5833
;;21,"68788-9968-03 ")
;;5834
;;21,"68788-9968-04 ")
;;5835
;;21,"68788-9968-05 ")
;;5836
;;21,"68788-9968-06 ")
;;5837
;;21,"68788-9968-09 ")
;;5838
;;21,"69150-0020-10 ")
;;5839
;;21,"69166-0523-04 ")
;;5840
;;21,"69166-0523-16 ")
;;5841
;;21,"69344-0111-11 ")
;;5842
;;21,"69344-0113-11 ")
;;5843
;;21,"69344-0211-11 ")
;;5844
;;21,"69344-0213-11 ")
;;5845
;;21,"69344-0311-11 ")
;;5846
;;21,"69420-3002-01 ")
;;5847
;;21,"69442-0480-01 ")
;;5848
;;21,"69467-1001-01 ")
;;5849
;;21,"69512-0627-10 ")
;;5850
;;21,"69543-0136-10 ")
;;5851
;;21,"69543-0136-11 ")
;;5852
;;21,"69543-0136-50 ")
;;5853
;;21,"70408-0185-31 ")
;;5854
;;21,"70408-0185-34 ")
;;5855
;;21,"70408-0358-31 ")
;;5856
;;21,"70408-0358-35 ")
;;5857
;;21,"70408-0359-31 ")
;;5858
;;21,"70408-0359-35 ")
;;5859
;;21,"76014-0001-25 ")
;;5860
;;21,"76181-0001-25 ")
;;5861
;;21,"76218-0708-01 ")
;;5862
;;21,"76218-0708-05 ")
;;5863
;;21,"76218-1828-01 ")
;;5864
;;21,"76218-1828-05 ")
;;5865
;;21,"76439-0136-10 ")
;;5866
;;21,"76439-0136-11 ")
;;5867
;;21,"76439-0136-50 ")
;;5868
;;9002226,619,.01)
;;BGP PQA OPIOID NDC
;;9002226,619,.02)
;;@
;;9002226,619,.04)
;;@
;;9002226,619,.06)
;;@
;;9002226,619,.08)
;;@
;;9002226,619,.09)
;;3170809
;;9002226,619,.11)
;;@
;;9002226,619,.12)
;;@
;;9002226,619,.13)
;;1
;;9002226,619,.14)
;;@
;;9002226,619,.15)
;;50.67
;;9002226,619,.16)
;;@
;;9002226,619,.17)
;;@
;;9002226,619,.22)
;;@
;;9002226,619,3101)
;;@
;;9002226.02101,"619,00024-0335-04 ",.01)
;;00024-0335-04
;;9002226.02101,"619,00024-0335-04 ",.02)
;;00024-0335-04
;;9002226.02101,"619,00024-0335-05 ",.01)
;;00024-0335-05
;;9002226.02101,"619,00024-0335-05 ",.02)
;;00024-0335-05
;;9002226.02101,"619,00024-0337-04 ",.01)
;;00024-0337-04
;;9002226.02101,"619,00024-0337-04 ",.02)
;;00024-0337-04
;;9002226.02101,"619,00024-0337-05 ",.01)
;;00024-0337-05
;;9002226.02101,"619,00024-0337-05 ",.02)
;;00024-0337-05
;;9002226.02101,"619,00054-0235-24 ",.01)
;;00054-0235-24
;;9002226.02101,"619,00054-0235-24 ",.02)
;;00054-0235-24
;;9002226.02101,"619,00054-0235-25 ",.01)
;;00054-0235-25
;;9002226.02101,"619,00054-0235-25 ",.02)
;;00054-0235-25
;;9002226.02101,"619,00054-0236-24 ",.01)
;;00054-0236-24
;;9002226.02101,"619,00054-0236-24 ",.02)
;;00054-0236-24
;;9002226.02101,"619,00054-0236-25 ",.01)
;;00054-0236-25
;;9002226.02101,"619,00054-0236-25 ",.02)
;;00054-0236-25
;;9002226.02101,"619,00054-0237-41 ",.01)
;;00054-0237-41
;;9002226.02101,"619,00054-0237-41 ",.02)
;;00054-0237-41
;;9002226.02101,"619,00054-0237-49 ",.01)
;;00054-0237-49
;;9002226.02101,"619,00054-0237-49 ",.02)
;;00054-0237-49
;;9002226.02101,"619,00054-0237-55 ",.01)
;;00054-0237-55
;;9002226.02101,"619,00054-0237-55 ",.02)
;;00054-0237-55
;;9002226.02101,"619,00054-0237-63 ",.01)
;;00054-0237-63
;;9002226.02101,"619,00054-0237-63 ",.02)
;;00054-0237-63
;;9002226.02101,"619,00054-0238-49 ",.01)
;;00054-0238-49
;;9002226.02101,"619,00054-0238-49 ",.02)
;;00054-0238-49
;;9002226.02101,"619,00054-0238-63 ",.01)
;;00054-0238-63
;;9002226.02101,"619,00054-0238-63 ",.02)
;;00054-0238-63
;;9002226.02101,"619,00054-0243-24 ",.01)
;;00054-0243-24
;;9002226.02101,"619,00054-0243-24 ",.02)
;;00054-0243-24
;;9002226.02101,"619,00054-0244-24 ",.01)
;;00054-0244-24
;;9002226.02101,"619,00054-0244-24 ",.02)
;;00054-0244-24
;;9002226.02101,"619,00054-0244-25 ",.01)
;;00054-0244-25
;;9002226.02101,"619,00054-0244-25 ",.02)
;;00054-0244-25
;;9002226.02101,"619,00054-0245-25 ",.01)
;;00054-0245-25
;;9002226.02101,"619,00054-0245-25 ",.02)
;;00054-0245-25
;;9002226.02101,"619,00054-0264-24 ",.01)
;;00054-0264-24
;;9002226.02101,"619,00054-0264-24 ",.02)
;;00054-0264-24
;;9002226.02101,"619,00054-0264-25 ",.01)
;;00054-0264-25
;;9002226.02101,"619,00054-0264-25 ",.02)
;;00054-0264-25
;;9002226.02101,"619,00054-0265-25 ",.01)
;;00054-0265-25
;;9002226.02101,"619,00054-0265-25 ",.02)
;;00054-0265-25
;;9002226.02101,"619,00054-0283-25 ",.01)
;;00054-0283-25
;;9002226.02101,"619,00054-0283-25 ",.02)
;;00054-0283-25
;;9002226.02101,"619,00054-0284-25 ",.01)
;;00054-0284-25
;;9002226.02101,"619,00054-0284-25 ",.02)
;;00054-0284-25
;;9002226.02101,"619,00054-0386-63 ",.01)
;;00054-0386-63
;;9002226.02101,"619,00054-0386-63 ",.02)
;;00054-0386-63
;;9002226.02101,"619,00054-0390-41 ",.01)
;;00054-0390-41
;;9002226.02101,"619,00054-0390-41 ",.02)
;;00054-0390-41
;;9002226.02101,"619,00054-0390-63 ",.01)
;;00054-0390-63
;;9002226.02101,"619,00054-0390-63 ",.02)
;;00054-0390-63
;;9002226.02101,"619,00054-0391-68 ",.01)
;;00054-0391-68
;;9002226.02101,"619,00054-0391-68 ",.02)
;;00054-0391-68
;;9002226.02101,"619,00054-0392-68 ",.01)
;;00054-0392-68
;;9002226.02101,"619,00054-0392-68 ",.02)
;;00054-0392-68
;;9002226.02101,"619,00054-0393-44 ",.01)
;;00054-0393-44
;;9002226.02101,"619,00054-0393-44 ",.02)
;;00054-0393-44
;;9002226.02101,"619,00054-0404-41 ",.01)
;;00054-0404-41
;;9002226.02101,"619,00054-0404-41 ",.02)
;;00054-0404-41
;;9002226.02101,"619,00054-0404-44 ",.01)
;;00054-0404-44
;;9002226.02101,"619,00054-0404-44 ",.02)
;;00054-0404-44
;;9002226.02101,"619,00054-0404-50 ",.01)
;;00054-0404-50
;;9002226.02101,"619,00054-0404-50 ",.02)
;;00054-0404-50
;;9002226.02101,"619,00054-0438-25 ",.01)
;;00054-0438-25
;;9002226.02101,"619,00054-0438-25 ",.02)
;;00054-0438-25
;;9002226.02101,"619,00054-0517-41 ",.01)
;;00054-0517-41
;;9002226.02101,"619,00054-0517-41 ",.02)
;;00054-0517-41
;;9002226.02101,"619,00054-0517-44 ",.01)
;;00054-0517-44
;;9002226.02101,"619,00054-0517-44 ",.02)
;;00054-0517-44
;;9002226.02101,"619,00054-0517-50 ",.01)
;;00054-0517-50
;;9002226.02101,"619,00054-0517-50 ",.02)
;;00054-0517-50
;;9002226.02101,"619,00054-0522-44 ",.01)
;;00054-0522-44
;;9002226.02101,"619,00054-0522-44 ",.02)
;;00054-0522-44
;;9002226.02101,"619,00054-0523-41 ",.01)
;;00054-0523-41
;;9002226.02101,"619,00054-0523-41 ",.02)
;;00054-0523-41
;;9002226.02101,"619,00054-0523-63 ",.01)
;;00054-0523-63
;;9002226.02101,"619,00054-0523-63 ",.02)
;;00054-0523-63
;;9002226.02101,"619,00054-0551-25 ",.01)
;;00054-0551-25
BGP82Z18 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
+1 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
+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,"68180-0698-06 ")
+2 ;;5686
+3 ;;21,"68180-0699-06 ")
+4 ;;5687
+5 ;;21,"68258-2003-03 ")
+6 ;;5688
+7 ;;21,"68258-2012-09 ")
+8 ;;5689
+9 ;;21,"68258-3023-01 ")
+10 ;;5690
+11 ;;21,"68258-3024-01 ")
+12 ;;5691
+13 ;;21,"68258-3025-01 ")
+14 ;;5692
+15 ;;21,"68258-3040-01 ")
+16 ;;5693
+17 ;;21,"68308-0020-03 ")
+18 ;;5694
+19 ;;21,"68308-0108-01 ")
+20 ;;5695
+21 ;;21,"68308-0111-01 ")
+22 ;;5696
+23 ;;21,"68308-0112-01 ")
+24 ;;5697
+25 ;;21,"68308-0145-01 ")
+26 ;;5698
+27 ;;21,"68308-0221-01 ")
+28 ;;5699
+29 ;;21,"68308-0222-01 ")
+30 ;;5700
+31 ;;21,"68308-0223-01 ")
+32 ;;5701
+33 ;;21,"68308-0224-01 ")
+34 ;;5702
+35 ;;21,"68308-0225-01 ")
+36 ;;5703
+37 ;;21,"68308-0226-01 ")
+38 ;;5704
+39 ;;21,"68308-0312-10 ")
+40 ;;5705
+41 ;;21,"68308-0405-47 ")
+42 ;;5706
+43 ;;21,"68308-0475-47 ")
+44 ;;5707
+45 ;;21,"68308-0480-47 ")
+46 ;;5708
+47 ;;21,"68308-0505-47 ")
+48 ;;5709
+49 ;;21,"68308-0840-01 ")
+50 ;;5710
+51 ;;21,"68308-0841-01 ")
+52 ;;5711
+53 ;;21,"68308-0842-01 ")
+54 ;;5712
+55 ;;21,"68308-0843-01 ")
+56 ;;5713
+57 ;;21,"68308-0845-01 ")
+58 ;;5714
+59 ;;21,"68382-0319-01 ")
+60 ;;5715
+61 ;;21,"68382-0319-05 ")
+62 ;;5716
+63 ;;21,"68382-0319-10 ")
+64 ;;5717
+65 ;;21,"68382-0334-01 ")
+66 ;;5718
+67 ;;21,"68382-0334-05 ")
+68 ;;5719
+69 ;;21,"68382-0793-01 ")
+70 ;;5720
+71 ;;21,"68382-0794-01 ")
+72 ;;5721
+73 ;;21,"68382-0795-01 ")
+74 ;;5722
+75 ;;21,"68382-0796-01 ")
+76 ;;5723
+77 ;;21,"68382-0797-01 ")
+78 ;;5724
+79 ;;21,"68382-0903-01 ")
+80 ;;5725
+81 ;;21,"68382-0904-01 ")
+82 ;;5726
+83 ;;21,"68382-0905-01 ")
+84 ;;5727
+85 ;;21,"68382-0906-01 ")
+86 ;;5728
+87 ;;21,"68382-0907-01 ")
+88 ;;5729
+89 ;;21,"68387-0230-01 ")
+90 ;;5730
+91 ;;21,"68387-0230-10 ")
+92 ;;5731
+93 ;;21,"68387-0230-12 ")
+94 ;;5732
+95 ;;21,"68387-0230-15 ")
+96 ;;5733
+97 ;;21,"68387-0230-30 ")
+98 ;;5734
+99 ;;21,"68387-0230-40 ")
+100 ;;5735
+101 ;;21,"68387-0230-50 ")
+102 ;;5736
+103 ;;21,"68387-0230-51 ")
+104 ;;5737
+105 ;;21,"68387-0230-60 ")
+106 ;;5738
+107 ;;21,"68387-0230-90 ")
+108 ;;5739
+109 ;;21,"68387-0235-12 ")
+110 ;;5740
+111 ;;21,"68387-0235-18 ")
+112 ;;5741
+113 ;;21,"68387-0235-30 ")
+114 ;;5742
+115 ;;21,"68387-0235-40 ")
+116 ;;5743
+117 ;;21,"68387-0235-60 ")
+118 ;;5744
+119 ;;21,"68387-0235-90 ")
+120 ;;5745
+121 ;;21,"68387-0236-30 ")
+122 ;;5746
+123 ;;21,"68387-0236-90 ")
+124 ;;5747
+125 ;;21,"68387-0250-15 ")
+126 ;;5748
+127 ;;21,"68387-0250-30 ")
+128 ;;5749
+129 ;;21,"68387-0250-40 ")
+130 ;;5750
+131 ;;21,"68387-0250-60 ")
+132 ;;5751
+133 ;;21,"68387-0250-90 ")
+134 ;;5752
+135 ;;21,"68387-0497-12 ")
+136 ;;5753
+137 ;;21,"68387-0497-20 ")
+138 ;;5754
+139 ;;21,"68387-0497-30 ")
+140 ;;5755
+141 ;;21,"68387-0497-60 ")
+142 ;;5756
+143 ;;21,"68387-0497-90 ")
+144 ;;5757
+145 ;;21,"68387-0531-12 ")
+146 ;;5758
+147 ;;21,"68387-0531-30 ")
+148 ;;5759
+149 ;;21,"68387-0531-60 ")
+150 ;;5760
+151 ;;21,"68387-0900-12 ")
+152 ;;5761
+153 ;;21,"68387-0900-15 ")
+154 ;;5762
+155 ;;21,"68387-0900-20 ")
+156 ;;5763
+157 ;;21,"68387-0900-24 ")
+158 ;;5764
+159 ;;21,"68387-0900-30 ")
+160 ;;5765
+161 ;;21,"68387-0900-40 ")
+162 ;;5766
+163 ;;21,"68387-0900-50 ")
+164 ;;5767
+165 ;;21,"68387-0900-60 ")
+166 ;;5768
+167 ;;21,"68387-0900-90 ")
+168 ;;5769
+169 ;;21,"68405-0038-36 ")
+170 ;;5770
+171 ;;21,"68405-0098-36 ")
+172 ;;5771
+173 ;;21,"68405-0198-36 ")
+174 ;;5772
+175 ;;21,"68405-0298-36 ")
+176 ;;5773
+177 ;;21,"68405-0380-26 ")
+178 ;;5774
+179 ;;21,"68405-0398-36 ")
+180 ;;5775
+181 ;;21,"68405-0498-36 ")
+182 ;;5776
+183 ;;21,"68462-0204-01 ")
+184 ;;5777
+185 ;;21,"68462-0347-37 ")
+186 ;;5778
+187 ;;21,"68788-0285-03 ")
+188 ;;5779
+189 ;;21,"68788-0285-06 ")
+190 ;;5780
+191 ;;21,"68788-0985-02 ")
+192 ;;5781
+193 ;;21,"68788-0985-03 ")
+194 ;;5782
+195 ;;21,"68788-0985-06 ")
+196 ;;5783
+197 ;;21,"68788-6352-01 ")
+198 ;;5784
+199 ;;21,"68788-7373-01 ")
+200 ;;5785
+201 ;;21,"68788-7373-03 ")
+202 ;;5786
+203 ;;21,"68788-7373-06 ")
+204 ;;5787
+205 ;;21,"68788-7373-09 ")
+206 ;;5788
+207 ;;21,"68788-8918-03 ")
+208 ;;5789
+209 ;;21,"68788-8918-06 ")
+210 ;;5790
+211 ;;21,"68788-8918-09 ")
+212 ;;5791
+213 ;;21,"68788-8920-03 ")
+214 ;;5792
+215 ;;21,"68788-8920-06 ")
+216 ;;5793
+217 ;;21,"68788-8920-09 ")
+218 ;;5794
+219 ;;21,"68788-8921-02 ")
+220 ;;5795
+221 ;;21,"68788-8921-03 ")
+222 ;;5796
+223 ;;21,"68788-8921-06 ")
+224 ;;5797
+225 ;;21,"68788-8921-09 ")
+226 ;;5798
+227 ;;21,"68788-9125-03 ")
+228 ;;5799
+229 ;;21,"68788-9125-06 ")
+230 ;;5800
+231 ;;21,"68788-9125-09 ")
+232 ;;5801
+233 ;;21,"68788-9137-02 ")
+234 ;;5802
+235 ;;21,"68788-9137-03 ")
+236 ;;5803
+237 ;;21,"68788-9137-06 ")
+238 ;;5804
+239 ;;21,"68788-9137-09 ")
+240 ;;5805
+241 ;;21,"68788-9141-03 ")
+242 ;;5806
+243 ;;21,"68788-9141-06 ")
+244 ;;5807
+245 ;;21,"68788-9141-08 ")
+246 ;;5808
+247 ;;21,"68788-9141-09 ")
+248 ;;5809
+249 ;;21,"68788-9250-01 ")
+250 ;;5810
+251 ;;21,"68788-9250-02 ")
+252 ;;5811
+253 ;;21,"68788-9250-03 ")
+254 ;;5812
+255 ;;21,"68788-9250-04 ")
+256 ;;5813
+257 ;;21,"68788-9250-05 ")
+258 ;;5814
+259 ;;21,"68788-9250-06 ")
+260 ;;5815
+261 ;;21,"68788-9250-08 ")
+262 ;;5816
+263 ;;21,"68788-9250-09 ")
+264 ;;5817
+265 ;;21,"68788-9413-03 ")
+266 ;;5818
+267 ;;21,"68788-9413-06 ")
+268 ;;5819
+269 ;;21,"68788-9413-08 ")
+270 ;;5820
+271 ;;21,"68788-9413-09 ")
+272 ;;5821
+273 ;;21,"68788-9506-03 ")
+274 ;;5822
+275 ;;21,"68788-9506-06 ")
+276 ;;5823
+277 ;;21,"68788-9736-01 ")
+278 ;;5824
+279 ;;21,"68788-9736-02 ")
+280 ;;5825
+281 ;;21,"68788-9736-03 ")
+282 ;;5826
+283 ;;21,"68788-9736-06 ")
+284 ;;5827
+285 ;;21,"68788-9736-09 ")
+286 ;;5828
+287 ;;21,"68788-9784-03 ")
+288 ;;5829
+289 ;;21,"68788-9784-06 ")
+290 ;;5830
+291 ;;21,"68788-9895-01 ")
+292 ;;5831
+293 ;;21,"68788-9968-01 ")
+294 ;;5832
+295 ;;21,"68788-9968-02 ")
+296 ;;5833
+297 ;;21,"68788-9968-03 ")
+298 ;;5834
+299 ;;21,"68788-9968-04 ")
+300 ;;5835
+301 ;;21,"68788-9968-05 ")
+302 ;;5836
+303 ;;21,"68788-9968-06 ")
+304 ;;5837
+305 ;;21,"68788-9968-09 ")
+306 ;;5838
+307 ;;21,"69150-0020-10 ")
+308 ;;5839
+309 ;;21,"69166-0523-04 ")
+310 ;;5840
+311 ;;21,"69166-0523-16 ")
+312 ;;5841
+313 ;;21,"69344-0111-11 ")
+314 ;;5842
+315 ;;21,"69344-0113-11 ")
+316 ;;5843
+317 ;;21,"69344-0211-11 ")
+318 ;;5844
+319 ;;21,"69344-0213-11 ")
+320 ;;5845
+321 ;;21,"69344-0311-11 ")
+322 ;;5846
+323 ;;21,"69420-3002-01 ")
+324 ;;5847
+325 ;;21,"69442-0480-01 ")
+326 ;;5848
+327 ;;21,"69467-1001-01 ")
+328 ;;5849
+329 ;;21,"69512-0627-10 ")
+330 ;;5850
+331 ;;21,"69543-0136-10 ")
+332 ;;5851
+333 ;;21,"69543-0136-11 ")
+334 ;;5852
+335 ;;21,"69543-0136-50 ")
+336 ;;5853
+337 ;;21,"70408-0185-31 ")
+338 ;;5854
+339 ;;21,"70408-0185-34 ")
+340 ;;5855
+341 ;;21,"70408-0358-31 ")
+342 ;;5856
+343 ;;21,"70408-0358-35 ")
+344 ;;5857
+345 ;;21,"70408-0359-31 ")
+346 ;;5858
+347 ;;21,"70408-0359-35 ")
+348 ;;5859
+349 ;;21,"76014-0001-25 ")
+350 ;;5860
+351 ;;21,"76181-0001-25 ")
+352 ;;5861
+353 ;;21,"76218-0708-01 ")
+354 ;;5862
+355 ;;21,"76218-0708-05 ")
+356 ;;5863
+357 ;;21,"76218-1828-01 ")
+358 ;;5864
+359 ;;21,"76218-1828-05 ")
+360 ;;5865
+361 ;;21,"76439-0136-10 ")
+362 ;;5866
+363 ;;21,"76439-0136-11 ")
+364 ;;5867
+365 ;;21,"76439-0136-50 ")
+366 ;;5868
+367 ;;9002226,619,.01)
+368 ;;BGP PQA OPIOID NDC
+369 ;;9002226,619,.02)
+370 ;;@
+371 ;;9002226,619,.04)
+372 ;;@
+373 ;;9002226,619,.06)
+374 ;;@
+375 ;;9002226,619,.08)
+376 ;;@
+377 ;;9002226,619,.09)
+378 ;;3170809
+379 ;;9002226,619,.11)
+380 ;;@
+381 ;;9002226,619,.12)
+382 ;;@
+383 ;;9002226,619,.13)
+384 ;;1
+385 ;;9002226,619,.14)
+386 ;;@
+387 ;;9002226,619,.15)
+388 ;;50.67
+389 ;;9002226,619,.16)
+390 ;;@
+391 ;;9002226,619,.17)
+392 ;;@
+393 ;;9002226,619,.22)
+394 ;;@
+395 ;;9002226,619,3101)
+396 ;;@
+397 ;;9002226.02101,"619,00024-0335-04 ",.01)
+398 ;;00024-0335-04
+399 ;;9002226.02101,"619,00024-0335-04 ",.02)
+400 ;;00024-0335-04
+401 ;;9002226.02101,"619,00024-0335-05 ",.01)
+402 ;;00024-0335-05
+403 ;;9002226.02101,"619,00024-0335-05 ",.02)
+404 ;;00024-0335-05
+405 ;;9002226.02101,"619,00024-0337-04 ",.01)
+406 ;;00024-0337-04
+407 ;;9002226.02101,"619,00024-0337-04 ",.02)
+408 ;;00024-0337-04
+409 ;;9002226.02101,"619,00024-0337-05 ",.01)
+410 ;;00024-0337-05
+411 ;;9002226.02101,"619,00024-0337-05 ",.02)
+412 ;;00024-0337-05
+413 ;;9002226.02101,"619,00054-0235-24 ",.01)
+414 ;;00054-0235-24
+415 ;;9002226.02101,"619,00054-0235-24 ",.02)
+416 ;;00054-0235-24
+417 ;;9002226.02101,"619,00054-0235-25 ",.01)
+418 ;;00054-0235-25
+419 ;;9002226.02101,"619,00054-0235-25 ",.02)
+420 ;;00054-0235-25
+421 ;;9002226.02101,"619,00054-0236-24 ",.01)
+422 ;;00054-0236-24
+423 ;;9002226.02101,"619,00054-0236-24 ",.02)
+424 ;;00054-0236-24
+425 ;;9002226.02101,"619,00054-0236-25 ",.01)
+426 ;;00054-0236-25
+427 ;;9002226.02101,"619,00054-0236-25 ",.02)
+428 ;;00054-0236-25
+429 ;;9002226.02101,"619,00054-0237-41 ",.01)
+430 ;;00054-0237-41
+431 ;;9002226.02101,"619,00054-0237-41 ",.02)
+432 ;;00054-0237-41
+433 ;;9002226.02101,"619,00054-0237-49 ",.01)
+434 ;;00054-0237-49
+435 ;;9002226.02101,"619,00054-0237-49 ",.02)
+436 ;;00054-0237-49
+437 ;;9002226.02101,"619,00054-0237-55 ",.01)
+438 ;;00054-0237-55
+439 ;;9002226.02101,"619,00054-0237-55 ",.02)
+440 ;;00054-0237-55
+441 ;;9002226.02101,"619,00054-0237-63 ",.01)
+442 ;;00054-0237-63
+443 ;;9002226.02101,"619,00054-0237-63 ",.02)
+444 ;;00054-0237-63
+445 ;;9002226.02101,"619,00054-0238-49 ",.01)
+446 ;;00054-0238-49
+447 ;;9002226.02101,"619,00054-0238-49 ",.02)
+448 ;;00054-0238-49
+449 ;;9002226.02101,"619,00054-0238-63 ",.01)
+450 ;;00054-0238-63
+451 ;;9002226.02101,"619,00054-0238-63 ",.02)
+452 ;;00054-0238-63
+453 ;;9002226.02101,"619,00054-0243-24 ",.01)
+454 ;;00054-0243-24
+455 ;;9002226.02101,"619,00054-0243-24 ",.02)
+456 ;;00054-0243-24
+457 ;;9002226.02101,"619,00054-0244-24 ",.01)
+458 ;;00054-0244-24
+459 ;;9002226.02101,"619,00054-0244-24 ",.02)
+460 ;;00054-0244-24
+461 ;;9002226.02101,"619,00054-0244-25 ",.01)
+462 ;;00054-0244-25
+463 ;;9002226.02101,"619,00054-0244-25 ",.02)
+464 ;;00054-0244-25
+465 ;;9002226.02101,"619,00054-0245-25 ",.01)
+466 ;;00054-0245-25
+467 ;;9002226.02101,"619,00054-0245-25 ",.02)
+468 ;;00054-0245-25
+469 ;;9002226.02101,"619,00054-0264-24 ",.01)
+470 ;;00054-0264-24
+471 ;;9002226.02101,"619,00054-0264-24 ",.02)
+472 ;;00054-0264-24
+473 ;;9002226.02101,"619,00054-0264-25 ",.01)
+474 ;;00054-0264-25
+475 ;;9002226.02101,"619,00054-0264-25 ",.02)
+476 ;;00054-0264-25
+477 ;;9002226.02101,"619,00054-0265-25 ",.01)
+478 ;;00054-0265-25
+479 ;;9002226.02101,"619,00054-0265-25 ",.02)
+480 ;;00054-0265-25
+481 ;;9002226.02101,"619,00054-0283-25 ",.01)
+482 ;;00054-0283-25
+483 ;;9002226.02101,"619,00054-0283-25 ",.02)
+484 ;;00054-0283-25
+485 ;;9002226.02101,"619,00054-0284-25 ",.01)
+486 ;;00054-0284-25
+487 ;;9002226.02101,"619,00054-0284-25 ",.02)
+488 ;;00054-0284-25
+489 ;;9002226.02101,"619,00054-0386-63 ",.01)
+490 ;;00054-0386-63
+491 ;;9002226.02101,"619,00054-0386-63 ",.02)
+492 ;;00054-0386-63
+493 ;;9002226.02101,"619,00054-0390-41 ",.01)
+494 ;;00054-0390-41
+495 ;;9002226.02101,"619,00054-0390-41 ",.02)
+496 ;;00054-0390-41
+497 ;;9002226.02101,"619,00054-0390-63 ",.01)
+498 ;;00054-0390-63
+499 ;;9002226.02101,"619,00054-0390-63 ",.02)
+500 ;;00054-0390-63
+501 ;;9002226.02101,"619,00054-0391-68 ",.01)
+502 ;;00054-0391-68
+503 ;;9002226.02101,"619,00054-0391-68 ",.02)
+504 ;;00054-0391-68
+505 ;;9002226.02101,"619,00054-0392-68 ",.01)
+506 ;;00054-0392-68
+507 ;;9002226.02101,"619,00054-0392-68 ",.02)
+508 ;;00054-0392-68
+509 ;;9002226.02101,"619,00054-0393-44 ",.01)
+510 ;;00054-0393-44
+511 ;;9002226.02101,"619,00054-0393-44 ",.02)
+512 ;;00054-0393-44
+513 ;;9002226.02101,"619,00054-0404-41 ",.01)
+514 ;;00054-0404-41
+515 ;;9002226.02101,"619,00054-0404-41 ",.02)
+516 ;;00054-0404-41
+517 ;;9002226.02101,"619,00054-0404-44 ",.01)
+518 ;;00054-0404-44
+519 ;;9002226.02101,"619,00054-0404-44 ",.02)
+520 ;;00054-0404-44
+521 ;;9002226.02101,"619,00054-0404-50 ",.01)
+522 ;;00054-0404-50
+523 ;;9002226.02101,"619,00054-0404-50 ",.02)
+524 ;;00054-0404-50
+525 ;;9002226.02101,"619,00054-0438-25 ",.01)
+526 ;;00054-0438-25
+527 ;;9002226.02101,"619,00054-0438-25 ",.02)
+528 ;;00054-0438-25
+529 ;;9002226.02101,"619,00054-0517-41 ",.01)
+530 ;;00054-0517-41
+531 ;;9002226.02101,"619,00054-0517-41 ",.02)
+532 ;;00054-0517-41
+533 ;;9002226.02101,"619,00054-0517-44 ",.01)
+534 ;;00054-0517-44
+535 ;;9002226.02101,"619,00054-0517-44 ",.02)
+536 ;;00054-0517-44
+537 ;;9002226.02101,"619,00054-0517-50 ",.01)
+538 ;;00054-0517-50
+539 ;;9002226.02101,"619,00054-0517-50 ",.02)
+540 ;;00054-0517-50
+541 ;;9002226.02101,"619,00054-0522-44 ",.01)
+542 ;;00054-0522-44
+543 ;;9002226.02101,"619,00054-0522-44 ",.02)
+544 ;;00054-0522-44
+545 ;;9002226.02101,"619,00054-0523-41 ",.01)
+546 ;;00054-0523-41
+547 ;;9002226.02101,"619,00054-0523-41 ",.02)
+548 ;;00054-0523-41
+549 ;;9002226.02101,"619,00054-0523-63 ",.01)
+550 ;;00054-0523-63
+551 ;;9002226.02101,"619,00054-0523-63 ",.02)
+552 ;;00054-0523-63
+553 ;;9002226.02101,"619,00054-0551-25 ",.01)
+554 ;;00054-0551-25
