94: x_return_status);
95:
96: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
97: l_error_message := Fnd_Message.GET;
98: Fnd_File.put_line(Fnd_File.LOG,l_error_message);
99: --dbms_output.put_line('error in formula parsing ' || l_error_message);
100: END IF;
101: --modified where condition for cursor below for fix 8429665
102: IF p_update_flagged_items = 'Y' THEN
275: --dbms_output.put_line('deleted rows from qp_preq_line_attrs_formula_tmp');
276:
277: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
278: l_error_message := Fnd_Message.GET;
279: Fnd_File.put_line(Fnd_File.LOG,l_error_message);
280: END IF;
281: -- Added negative price validation for 2483391
282:
283: IF Fnd_Profile.VALUE('QP_NEGATIVE_PRICING') = 'N' AND l_list_price < 0 THEN
332: retcode := 0;
333:
334: EXCEPTION
335: WHEN NEGATIVE_VALUE THEN
336: Fnd_File.put_line(Fnd_File.LOG,errbuf);
337: retcode := 2;
338:
339:
340: WHEN OTHERS THEN
337: retcode := 2;
338:
339:
340: WHEN OTHERS THEN
341: Fnd_File.put_line(Fnd_File.LOG, SUBSTR(SQLERRM, 1, 300));
342: retcode := 2;
343:
344: END Update_Formula_Price;
345: