IF rx.rx340b This.cmd340B.Enabled = .T. Here ----- >>ELSE This.cmd340B.Enabled = .F. ENDIFand
Thisform.pgfScreen.RapidPage.txtSearch.value = ""and
*!* 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 )and finally
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)So, it is very weird ......
>>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) >>>>