>IF rx.rx340b > This.cmd340B.Enabled = .T. >Here ----- >>ELSE > This.cmd340B.Enabled = .F. >ENDIF >>
>Thisform.pgfScreen.RapidPage.txtSearch.value = "" >>
>*!* INSERT INTO csrHistory (Current,Rx_no, Refill_no, DateFilled, NDC, Name, QtyFilled, Price, Discount, Cash, ; >*!* ThirdParty, AWP, QtyAWP, Acq, QtyAcq, FMAC, QtyFMAC,PriceCode,InsName,Margin); >*!* VALUES (.T.,0, 0, DATE(), drug.ndc, ALLTRIM(drug.name),This.Parent.DrugPage.pgfDrug.TradePage.txtQtyFilled.value, ; >*!* This.txtIngredientCost.value, This.txtDiscount.value, This.txtGrossAmountDue.value , 0.00 , drug.awp, ; >*!* Thisform.p_QtyAWP, drug.acquisition_cost, Thisform.p_QtyAcq, drug.fmac, Thisform.p_QtyFMAC, ; >*!* Thisform.p_PriceCode,lcInsuranceName,lnMargin ) >>>
>INSERT INTO csrHistory (Current,Rx_no, Refill_no, DateFilled, NDC, Name, QtyFilled, Price, Discount, Cash, ; > ThirdParty, AWP, QtyAWP, Acq, QtyAcq, FMAC, QtyFMAC,PriceCode,InsName,Margin, ISThree40B, Three40B, Qty340B); > VALUES (.T.,0, 0, DATE(), drug.ndc, ALLTRIM(drug.name),This.Parent.DrugPage.pgfDrug.TradePage.txtQtyFilled.value, ; > This.txtIngredientCost.value, This.txtDiscount.value, This.txtGrossAmountDue.value , 0.00 , drug.awp, ; > Thisform.p_QtyAWP, drug.acquisition_cost, Thisform.p_QtyAcq, drug.fmac, Thisform.p_QtyFMAC, ; > Thisform.p_PriceCode,lcInsuranceName,lnMargin,drug.drug340b,drug.acq340b_cost,Thisform.p_qty340bacq ) > >>
>INSERT INTO csrHistory (Current,Rx_no, Refill_no, DateFilled, NDC, Name, QtyFilled, Price, Discount, Cash, ; >ThirdParty, AWP, QtyAWP, Acq, QtyAcq, FMAC, QtyFMAC,PriceCode,InsName,Margin,ISThree40B, Three40B, Qty340B); >VALUES (.F.,refill.rx_no, refill.refill_no, refill.filled_date, generic.ndc, ALLTRIM(generic.name), refill.quantity_filled, ; >lyPrice, refill.discount, lyRetail , lyThirdParty , lyAWP, ; >refill.qty_awp, lyAcq, refill.qty_acq, lyFMAC, refill.qty_fmac, ; >refill.price_code_used,lcInsuranceName,lnMargin, refill.Rx340B, ly340B, refill.qty_340Bacq) >>