115: -- Call QP_Price_Formula_PVT.Process_Price_Formula
116:
117: QP_Price_Formula_PVT.Process_Price_Formula
118: ( p_api_version_number => 1.0
119: , p_init_msg_list => FND_API.G_TRUE
120: , x_return_status => l_return_status
121: , x_msg_count => x_msg_count
122: , x_msg_data => x_msg_data
123: , p_control_rec => l_control_rec
125: , x_FORMULA_rec => l_x_FORMULA_rec
126: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
127: );
128:
129: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
126: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
127: );
128:
129: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
134:
127: );
128:
129: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
134:
135:
128:
129: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
134:
135:
136: -- Load OUT parameters.
167:
168: -- Write to cache.
169: -- Set db_flag to False before writing to cache
170:
171: l_x_FORMULA_rec.db_flag := FND_API.G_FALSE;
172:
173: Write_FORMULA
174: ( p_FORMULA_rec => l_x_FORMULA_rec
175: );
175: );
176:
177: -- Set return status.
178:
179: x_return_status := FND_API.G_RET_STS_SUCCESS;
180:
181: -- Get message count and data
182:
183: OE_MSG_PUB.Count_And_Get
187:
188:
189: EXCEPTION
190:
191: WHEN FND_API.G_EXC_ERROR THEN
192:
193: x_return_status := FND_API.G_RET_STS_ERROR;
194:
195: -- Get message count and data
189: EXCEPTION
190:
191: WHEN FND_API.G_EXC_ERROR THEN
192:
193: x_return_status := FND_API.G_RET_STS_ERROR;
194:
195: -- Get message count and data
196:
197: OE_MSG_PUB.Count_And_Get
198: ( p_count => x_msg_count
199: , p_data => x_msg_data
200: );
201:
202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
203:
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
205:
206: -- Get message count and data
200: );
201:
202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
203:
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
205:
206: -- Get message count and data
207:
208: OE_MSG_PUB.Count_And_Get
211: );
212:
213: WHEN OTHERS THEN
214:
215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
216:
217: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
218: THEN
219: OE_MSG_PUB.Add_Exc_Msg
375: , 'Unrecognized attribute'
376: );
377: END IF;
378:
379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
380:
381: END IF;
382:
383: -- Set Operation.
381: END IF;
382:
383: -- Set Operation.
384:
385: IF FND_API.To_Boolean(l_FORMULA_rec.db_flag) THEN
386: l_FORMULA_rec.operation := QP_GLOBALS.G_OPR_UPDATE;
387: ELSE
388: l_FORMULA_rec.operation := QP_GLOBALS.G_OPR_CREATE;
389: END IF;
391: -- Call QP_Price_Formula_PVT.Process_Price_Formula
392:
393: QP_Price_Formula_PVT.Process_Price_Formula
394: ( p_api_version_number => 1.0
395: , p_init_msg_list => FND_API.G_TRUE
396: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
397: , x_return_status => l_return_status
398: , x_msg_count => x_msg_count
399: , x_msg_data => x_msg_data
392:
393: QP_Price_Formula_PVT.Process_Price_Formula
394: ( p_api_version_number => 1.0
395: , p_init_msg_list => FND_API.G_TRUE
396: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
397: , x_return_status => l_return_status
398: , x_msg_count => x_msg_count
399: , x_msg_data => x_msg_data
400: , p_control_rec => l_control_rec
403: , x_FORMULA_rec => l_x_FORMULA_rec
404: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
405: );
406:
407: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
409: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
410: RAISE FND_API.G_EXC_ERROR;
411: END IF;
404: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
405: );
406:
407: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
409: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
410: RAISE FND_API.G_EXC_ERROR;
411: END IF;
412:
405: );
406:
407: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
409: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
410: RAISE FND_API.G_EXC_ERROR;
411: END IF;
412:
413:
406:
407: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
409: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
410: RAISE FND_API.G_EXC_ERROR;
411: END IF;
412:
413:
414: -- Init OUT parameters to missing.
412:
413:
414: -- Init OUT parameters to missing.
415:
416: x_attribute1 := FND_API.G_MISS_CHAR;
417: x_attribute10 := FND_API.G_MISS_CHAR;
418: x_attribute11 := FND_API.G_MISS_CHAR;
419: x_attribute12 := FND_API.G_MISS_CHAR;
420: x_attribute13 := FND_API.G_MISS_CHAR;
413:
414: -- Init OUT parameters to missing.
415:
416: x_attribute1 := FND_API.G_MISS_CHAR;
417: x_attribute10 := FND_API.G_MISS_CHAR;
418: x_attribute11 := FND_API.G_MISS_CHAR;
419: x_attribute12 := FND_API.G_MISS_CHAR;
420: x_attribute13 := FND_API.G_MISS_CHAR;
421: x_attribute14 := FND_API.G_MISS_CHAR;
414: -- Init OUT parameters to missing.
415:
416: x_attribute1 := FND_API.G_MISS_CHAR;
417: x_attribute10 := FND_API.G_MISS_CHAR;
418: x_attribute11 := FND_API.G_MISS_CHAR;
419: x_attribute12 := FND_API.G_MISS_CHAR;
420: x_attribute13 := FND_API.G_MISS_CHAR;
421: x_attribute14 := FND_API.G_MISS_CHAR;
422: x_attribute15 := FND_API.G_MISS_CHAR;
415:
416: x_attribute1 := FND_API.G_MISS_CHAR;
417: x_attribute10 := FND_API.G_MISS_CHAR;
418: x_attribute11 := FND_API.G_MISS_CHAR;
419: x_attribute12 := FND_API.G_MISS_CHAR;
420: x_attribute13 := FND_API.G_MISS_CHAR;
421: x_attribute14 := FND_API.G_MISS_CHAR;
422: x_attribute15 := FND_API.G_MISS_CHAR;
423: x_attribute2 := FND_API.G_MISS_CHAR;
416: x_attribute1 := FND_API.G_MISS_CHAR;
417: x_attribute10 := FND_API.G_MISS_CHAR;
418: x_attribute11 := FND_API.G_MISS_CHAR;
419: x_attribute12 := FND_API.G_MISS_CHAR;
420: x_attribute13 := FND_API.G_MISS_CHAR;
421: x_attribute14 := FND_API.G_MISS_CHAR;
422: x_attribute15 := FND_API.G_MISS_CHAR;
423: x_attribute2 := FND_API.G_MISS_CHAR;
424: x_attribute3 := FND_API.G_MISS_CHAR;
417: x_attribute10 := FND_API.G_MISS_CHAR;
418: x_attribute11 := FND_API.G_MISS_CHAR;
419: x_attribute12 := FND_API.G_MISS_CHAR;
420: x_attribute13 := FND_API.G_MISS_CHAR;
421: x_attribute14 := FND_API.G_MISS_CHAR;
422: x_attribute15 := FND_API.G_MISS_CHAR;
423: x_attribute2 := FND_API.G_MISS_CHAR;
424: x_attribute3 := FND_API.G_MISS_CHAR;
425: x_attribute4 := FND_API.G_MISS_CHAR;
418: x_attribute11 := FND_API.G_MISS_CHAR;
419: x_attribute12 := FND_API.G_MISS_CHAR;
420: x_attribute13 := FND_API.G_MISS_CHAR;
421: x_attribute14 := FND_API.G_MISS_CHAR;
422: x_attribute15 := FND_API.G_MISS_CHAR;
423: x_attribute2 := FND_API.G_MISS_CHAR;
424: x_attribute3 := FND_API.G_MISS_CHAR;
425: x_attribute4 := FND_API.G_MISS_CHAR;
426: x_attribute5 := FND_API.G_MISS_CHAR;
419: x_attribute12 := FND_API.G_MISS_CHAR;
420: x_attribute13 := FND_API.G_MISS_CHAR;
421: x_attribute14 := FND_API.G_MISS_CHAR;
422: x_attribute15 := FND_API.G_MISS_CHAR;
423: x_attribute2 := FND_API.G_MISS_CHAR;
424: x_attribute3 := FND_API.G_MISS_CHAR;
425: x_attribute4 := FND_API.G_MISS_CHAR;
426: x_attribute5 := FND_API.G_MISS_CHAR;
427: x_attribute6 := FND_API.G_MISS_CHAR;
420: x_attribute13 := FND_API.G_MISS_CHAR;
421: x_attribute14 := FND_API.G_MISS_CHAR;
422: x_attribute15 := FND_API.G_MISS_CHAR;
423: x_attribute2 := FND_API.G_MISS_CHAR;
424: x_attribute3 := FND_API.G_MISS_CHAR;
425: x_attribute4 := FND_API.G_MISS_CHAR;
426: x_attribute5 := FND_API.G_MISS_CHAR;
427: x_attribute6 := FND_API.G_MISS_CHAR;
428: x_attribute7 := FND_API.G_MISS_CHAR;
421: x_attribute14 := FND_API.G_MISS_CHAR;
422: x_attribute15 := FND_API.G_MISS_CHAR;
423: x_attribute2 := FND_API.G_MISS_CHAR;
424: x_attribute3 := FND_API.G_MISS_CHAR;
425: x_attribute4 := FND_API.G_MISS_CHAR;
426: x_attribute5 := FND_API.G_MISS_CHAR;
427: x_attribute6 := FND_API.G_MISS_CHAR;
428: x_attribute7 := FND_API.G_MISS_CHAR;
429: x_attribute8 := FND_API.G_MISS_CHAR;
422: x_attribute15 := FND_API.G_MISS_CHAR;
423: x_attribute2 := FND_API.G_MISS_CHAR;
424: x_attribute3 := FND_API.G_MISS_CHAR;
425: x_attribute4 := FND_API.G_MISS_CHAR;
426: x_attribute5 := FND_API.G_MISS_CHAR;
427: x_attribute6 := FND_API.G_MISS_CHAR;
428: x_attribute7 := FND_API.G_MISS_CHAR;
429: x_attribute8 := FND_API.G_MISS_CHAR;
430: x_attribute9 := FND_API.G_MISS_CHAR;
423: x_attribute2 := FND_API.G_MISS_CHAR;
424: x_attribute3 := FND_API.G_MISS_CHAR;
425: x_attribute4 := FND_API.G_MISS_CHAR;
426: x_attribute5 := FND_API.G_MISS_CHAR;
427: x_attribute6 := FND_API.G_MISS_CHAR;
428: x_attribute7 := FND_API.G_MISS_CHAR;
429: x_attribute8 := FND_API.G_MISS_CHAR;
430: x_attribute9 := FND_API.G_MISS_CHAR;
431: x_context := FND_API.G_MISS_CHAR;
424: x_attribute3 := FND_API.G_MISS_CHAR;
425: x_attribute4 := FND_API.G_MISS_CHAR;
426: x_attribute5 := FND_API.G_MISS_CHAR;
427: x_attribute6 := FND_API.G_MISS_CHAR;
428: x_attribute7 := FND_API.G_MISS_CHAR;
429: x_attribute8 := FND_API.G_MISS_CHAR;
430: x_attribute9 := FND_API.G_MISS_CHAR;
431: x_context := FND_API.G_MISS_CHAR;
432: x_description := FND_API.G_MISS_CHAR;
425: x_attribute4 := FND_API.G_MISS_CHAR;
426: x_attribute5 := FND_API.G_MISS_CHAR;
427: x_attribute6 := FND_API.G_MISS_CHAR;
428: x_attribute7 := FND_API.G_MISS_CHAR;
429: x_attribute8 := FND_API.G_MISS_CHAR;
430: x_attribute9 := FND_API.G_MISS_CHAR;
431: x_context := FND_API.G_MISS_CHAR;
432: x_description := FND_API.G_MISS_CHAR;
433: x_end_date_active := FND_API.G_MISS_DATE;
426: x_attribute5 := FND_API.G_MISS_CHAR;
427: x_attribute6 := FND_API.G_MISS_CHAR;
428: x_attribute7 := FND_API.G_MISS_CHAR;
429: x_attribute8 := FND_API.G_MISS_CHAR;
430: x_attribute9 := FND_API.G_MISS_CHAR;
431: x_context := FND_API.G_MISS_CHAR;
432: x_description := FND_API.G_MISS_CHAR;
433: x_end_date_active := FND_API.G_MISS_DATE;
434: x_formula := FND_API.G_MISS_CHAR;
427: x_attribute6 := FND_API.G_MISS_CHAR;
428: x_attribute7 := FND_API.G_MISS_CHAR;
429: x_attribute8 := FND_API.G_MISS_CHAR;
430: x_attribute9 := FND_API.G_MISS_CHAR;
431: x_context := FND_API.G_MISS_CHAR;
432: x_description := FND_API.G_MISS_CHAR;
433: x_end_date_active := FND_API.G_MISS_DATE;
434: x_formula := FND_API.G_MISS_CHAR;
435: x_name := FND_API.G_MISS_CHAR;
428: x_attribute7 := FND_API.G_MISS_CHAR;
429: x_attribute8 := FND_API.G_MISS_CHAR;
430: x_attribute9 := FND_API.G_MISS_CHAR;
431: x_context := FND_API.G_MISS_CHAR;
432: x_description := FND_API.G_MISS_CHAR;
433: x_end_date_active := FND_API.G_MISS_DATE;
434: x_formula := FND_API.G_MISS_CHAR;
435: x_name := FND_API.G_MISS_CHAR;
436: x_price_formula_id := FND_API.G_MISS_NUM;
429: x_attribute8 := FND_API.G_MISS_CHAR;
430: x_attribute9 := FND_API.G_MISS_CHAR;
431: x_context := FND_API.G_MISS_CHAR;
432: x_description := FND_API.G_MISS_CHAR;
433: x_end_date_active := FND_API.G_MISS_DATE;
434: x_formula := FND_API.G_MISS_CHAR;
435: x_name := FND_API.G_MISS_CHAR;
436: x_price_formula_id := FND_API.G_MISS_NUM;
437: x_start_date_active := FND_API.G_MISS_DATE;
430: x_attribute9 := FND_API.G_MISS_CHAR;
431: x_context := FND_API.G_MISS_CHAR;
432: x_description := FND_API.G_MISS_CHAR;
433: x_end_date_active := FND_API.G_MISS_DATE;
434: x_formula := FND_API.G_MISS_CHAR;
435: x_name := FND_API.G_MISS_CHAR;
436: x_price_formula_id := FND_API.G_MISS_NUM;
437: x_start_date_active := FND_API.G_MISS_DATE;
438: x_price_formula := FND_API.G_MISS_CHAR;
431: x_context := FND_API.G_MISS_CHAR;
432: x_description := FND_API.G_MISS_CHAR;
433: x_end_date_active := FND_API.G_MISS_DATE;
434: x_formula := FND_API.G_MISS_CHAR;
435: x_name := FND_API.G_MISS_CHAR;
436: x_price_formula_id := FND_API.G_MISS_NUM;
437: x_start_date_active := FND_API.G_MISS_DATE;
438: x_price_formula := FND_API.G_MISS_CHAR;
439:
432: x_description := FND_API.G_MISS_CHAR;
433: x_end_date_active := FND_API.G_MISS_DATE;
434: x_formula := FND_API.G_MISS_CHAR;
435: x_name := FND_API.G_MISS_CHAR;
436: x_price_formula_id := FND_API.G_MISS_NUM;
437: x_start_date_active := FND_API.G_MISS_DATE;
438: x_price_formula := FND_API.G_MISS_CHAR;
439:
440: -- Load display out parameters if any
433: x_end_date_active := FND_API.G_MISS_DATE;
434: x_formula := FND_API.G_MISS_CHAR;
435: x_name := FND_API.G_MISS_CHAR;
436: x_price_formula_id := FND_API.G_MISS_NUM;
437: x_start_date_active := FND_API.G_MISS_DATE;
438: x_price_formula := FND_API.G_MISS_CHAR;
439:
440: -- Load display out parameters if any
441:
434: x_formula := FND_API.G_MISS_CHAR;
435: x_name := FND_API.G_MISS_CHAR;
436: x_price_formula_id := FND_API.G_MISS_NUM;
437: x_start_date_active := FND_API.G_MISS_DATE;
438: x_price_formula := FND_API.G_MISS_CHAR;
439:
440: -- Load display out parameters if any
441:
442: l_FORMULA_val_rec := QP_Formula_Util.Get_Values
587: );
588:
589: -- Set return status.
590:
591: x_return_status := FND_API.G_RET_STS_SUCCESS;
592:
593: -- Get message count and data
594:
595: OE_MSG_PUB.Count_And_Get
599:
600:
601: EXCEPTION
602:
603: WHEN FND_API.G_EXC_ERROR THEN
604:
605: x_return_status := FND_API.G_RET_STS_ERROR;
606:
607: -- Get message count and data
601: EXCEPTION
602:
603: WHEN FND_API.G_EXC_ERROR THEN
604:
605: x_return_status := FND_API.G_RET_STS_ERROR;
606:
607: -- Get message count and data
608:
609: OE_MSG_PUB.Count_And_Get
610: ( p_count => x_msg_count
611: , p_data => x_msg_data
612: );
613:
614: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
615:
616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
617:
618: -- Get message count and data
612: );
613:
614: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
615:
616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
617:
618: -- Get message count and data
619:
620: OE_MSG_PUB.Count_And_Get
623: );
624:
625: WHEN OTHERS THEN
626:
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
628:
629: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
630: THEN
631: OE_MSG_PUB.Add_Exc_Msg
695: );
696:
697: -- Set Operation.
698:
699: IF FND_API.To_Boolean(l_FORMULA_rec.db_flag) THEN
700: l_FORMULA_rec.operation := QP_GLOBALS.G_OPR_UPDATE;
701: ELSE
702: l_FORMULA_rec.operation := QP_GLOBALS.G_OPR_CREATE;
703: END IF;
705: -- Call QP_Price_Formula_PVT.Process_Price_Formula
706:
707: QP_Price_Formula_PVT.Process_Price_Formula
708: ( p_api_version_number => 1.0
709: , p_init_msg_list => FND_API.G_TRUE
710: , x_return_status => l_return_status
711: , x_msg_count => x_msg_count
712: , x_msg_data => x_msg_data
713: , p_control_rec => l_control_rec
716: , x_FORMULA_rec => l_x_FORMULA_rec
717: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
718: );
719:
720: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
722: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
717: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
718: );
719:
720: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
722: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
725:
718: );
719:
720: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
722: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
725:
726:
719:
720: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
722: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
725:
726:
727: -- Load OUT parameters.
743:
744:
745: -- Set return status.
746:
747: x_return_status := FND_API.G_RET_STS_SUCCESS;
748:
749: -- Get message count and data
750:
751: OE_MSG_PUB.Count_And_Get
755:
756:
757: EXCEPTION
758:
759: WHEN FND_API.G_EXC_ERROR THEN
760:
761: x_return_status := FND_API.G_RET_STS_ERROR;
762:
763: -- Get message count and data
757: EXCEPTION
758:
759: WHEN FND_API.G_EXC_ERROR THEN
760:
761: x_return_status := FND_API.G_RET_STS_ERROR;
762:
763: -- Get message count and data
764:
765: OE_MSG_PUB.Count_And_Get
766: ( p_count => x_msg_count
767: , p_data => x_msg_data
768: );
769:
770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
771:
772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
773:
774: -- Get message count and data
768: );
769:
770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
771:
772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
773:
774: -- Get message count and data
775:
776: OE_MSG_PUB.Count_And_Get
779: );
780:
781: WHEN OTHERS THEN
782:
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
784:
785: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
786: THEN
787: OE_MSG_PUB.Add_Exc_Msg
846: -- Call QP_Price_Formula_PVT.Process_Price_Formula
847:
848: QP_Price_Formula_PVT.Process_Price_Formula
849: ( p_api_version_number => 1.0
850: , p_init_msg_list => FND_API.G_TRUE
851: , x_return_status => l_return_status
852: , x_msg_count => x_msg_count
853: , x_msg_data => x_msg_data
854: , p_control_rec => l_control_rec
856: , x_FORMULA_rec => l_x_FORMULA_rec
857: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
858: );
859:
860: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
862: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
863: RAISE FND_API.G_EXC_ERROR;
864: END IF;
857: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
858: );
859:
860: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
862: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
863: RAISE FND_API.G_EXC_ERROR;
864: END IF;
865:
858: );
859:
860: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
862: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
863: RAISE FND_API.G_EXC_ERROR;
864: END IF;
865:
866:
859:
860: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
862: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
863: RAISE FND_API.G_EXC_ERROR;
864: END IF;
865:
866:
867: -- Clear FORMULA record cache
869: Clear_FORMULA;
870:
871: -- Set return status.
872:
873: x_return_status := FND_API.G_RET_STS_SUCCESS;
874:
875: -- Get message count and data
876:
877: OE_MSG_PUB.Count_And_Get
881:
882:
883: EXCEPTION
884:
885: WHEN FND_API.G_EXC_ERROR THEN
886:
887: x_return_status := FND_API.G_RET_STS_ERROR;
888:
889: -- Get message count and data
883: EXCEPTION
884:
885: WHEN FND_API.G_EXC_ERROR THEN
886:
887: x_return_status := FND_API.G_RET_STS_ERROR;
888:
889: -- Get message count and data
890:
891: OE_MSG_PUB.Count_And_Get
892: ( p_count => x_msg_count
893: , p_data => x_msg_data
894: );
895:
896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
897:
898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
899:
900: -- Get message count and data
894: );
895:
896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
897:
898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
899:
900: -- Get message count and data
901:
902: OE_MSG_PUB.Count_And_Get
905: );
906:
907: WHEN OTHERS THEN
908:
909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
910:
911: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
912: THEN
913: OE_MSG_PUB.Add_Exc_Msg
960: -- Call QP_Price_Formula_PVT.Process_Price_Formula
961:
962: QP_Price_Formula_PVT.Process_Price_Formula
963: ( p_api_version_number => 1.0
964: , p_init_msg_list => FND_API.G_TRUE
965: , x_return_status => l_return_status
966: , x_msg_count => x_msg_count
967: , x_msg_data => x_msg_data
968: , p_control_rec => l_control_rec
969: , x_FORMULA_rec => l_x_FORMULA_rec
970: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
971: );
972:
973: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
975: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
976: RAISE FND_API.G_EXC_ERROR;
977: END IF;
970: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
971: );
972:
973: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
975: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
976: RAISE FND_API.G_EXC_ERROR;
977: END IF;
978:
971: );
972:
973: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
975: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
976: RAISE FND_API.G_EXC_ERROR;
977: END IF;
978:
979:
972:
973: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
975: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
976: RAISE FND_API.G_EXC_ERROR;
977: END IF;
978:
979:
980: -- Set return status.
978:
979:
980: -- Set return status.
981:
982: x_return_status := FND_API.G_RET_STS_SUCCESS;
983:
984: -- Get message count and data
985:
986: OE_MSG_PUB.Count_And_Get
990:
991:
992: EXCEPTION
993:
994: WHEN FND_API.G_EXC_ERROR THEN
995:
996: x_return_status := FND_API.G_RET_STS_ERROR;
997:
998: -- Get message count and data
992: EXCEPTION
993:
994: WHEN FND_API.G_EXC_ERROR THEN
995:
996: x_return_status := FND_API.G_RET_STS_ERROR;
997:
998: -- Get message count and data
999:
1000: OE_MSG_PUB.Count_And_Get
1001: ( p_count => x_msg_count
1002: , p_data => x_msg_data
1003: );
1004:
1005: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1006:
1007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1008:
1009: -- Get message count and data
1003: );
1004:
1005: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1006:
1007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1008:
1009: -- Get message count and data
1010:
1011: OE_MSG_PUB.Count_And_Get
1014: );
1015:
1016: WHEN OTHERS THEN
1017:
1018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1019:
1020: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1021: THEN
1022: OE_MSG_PUB.Add_Exc_Msg
1069: -- Call QP_Price_Formula_PVT.Process_Price_Formula
1070:
1071: QP_Price_Formula_PVT.Process_Price_Formula
1072: ( p_api_version_number => 1.0
1073: , p_init_msg_list => FND_API.G_TRUE
1074: , x_return_status => l_return_status
1075: , x_msg_count => x_msg_count
1076: , x_msg_data => x_msg_data
1077: , p_control_rec => l_control_rec
1078: , x_FORMULA_rec => l_x_FORMULA_rec
1079: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
1080: );
1081:
1082: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1084: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1085: RAISE FND_API.G_EXC_ERROR;
1086: END IF;
1079: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
1080: );
1081:
1082: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1084: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1085: RAISE FND_API.G_EXC_ERROR;
1086: END IF;
1087:
1080: );
1081:
1082: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1084: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1085: RAISE FND_API.G_EXC_ERROR;
1086: END IF;
1087:
1088:
1081:
1082: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1084: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1085: RAISE FND_API.G_EXC_ERROR;
1086: END IF;
1087:
1088:
1089: -- Set return status.
1087:
1088:
1089: -- Set return status.
1090:
1091: x_return_status := FND_API.G_RET_STS_SUCCESS;
1092:
1093: -- Get message count and data
1094:
1095: OE_MSG_PUB.Count_And_Get
1099:
1100:
1101: EXCEPTION
1102:
1103: WHEN FND_API.G_EXC_ERROR THEN
1104:
1105: x_return_status := FND_API.G_RET_STS_ERROR;
1106:
1107: -- Get message count and data
1101: EXCEPTION
1102:
1103: WHEN FND_API.G_EXC_ERROR THEN
1104:
1105: x_return_status := FND_API.G_RET_STS_ERROR;
1106:
1107: -- Get message count and data
1108:
1109: OE_MSG_PUB.Count_And_Get
1110: ( p_count => x_msg_count
1111: , p_data => x_msg_data
1112: );
1113:
1114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1115:
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1117:
1118: -- Get message count and data
1112: );
1113:
1114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1115:
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1117:
1118: -- Get message count and data
1119:
1120: OE_MSG_PUB.Count_And_Get
1123: );
1124:
1125: WHEN OTHERS THEN
1126:
1127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1128:
1129: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1130: THEN
1131: OE_MSG_PUB.Add_Exc_Msg
1221: -- l_FORMULA_rec.operation := QP_GLOBALS.G_OPR_LOCK;
1222:
1223: QP_Price_Formula_PVT.Lock_Price_Formula
1224: ( p_api_version_number => 1.0
1225: , p_init_msg_list => FND_API.G_TRUE
1226: , x_return_status => l_return_status
1227: , x_msg_count => x_msg_count
1228: , x_msg_data => x_msg_data
1229: , p_FORMULA_rec => l_FORMULA_rec
1230: , x_FORMULA_rec => l_x_FORMULA_rec
1231: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
1232: );
1233:
1234: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1235:
1236: -- Set DB flag and write record to cache.
1237:
1238: l_x_FORMULA_rec.db_flag := FND_API.G_TRUE;
1234: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1235:
1236: -- Set DB flag and write record to cache.
1237:
1238: l_x_FORMULA_rec.db_flag := FND_API.G_TRUE;
1239:
1240: Write_FORMULA
1241: ( p_FORMULA_rec => l_x_FORMULA_rec
1242: , p_db_record => TRUE
1267: , 'Lock_Row'
1268: );
1269: END IF;
1270:
1271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1272:
1273: -- Get message count and data
1274:
1275: OE_MSG_PUB.Count_And_Get
1316: g_FORMULA_rec := QP_Formula_Util.Query_Row
1317: ( p_price_formula_id => p_price_formula_id
1318: );
1319:
1320: g_FORMULA_rec.db_flag := FND_API.G_TRUE;
1321:
1322: -- Load DB record
1323:
1324: g_db_FORMULA_rec := g_FORMULA_rec;