138: -- Call OE_Pricing_Cont_PVT.Process_Pricing_Cont
139:
140: OE_Pricing_Cont_PVT.Process_Pricing_Cont
141: ( p_api_version_number => 1.0
142: , p_init_msg_list => FND_API.G_TRUE
143: , x_return_status => l_return_status
144: , x_msg_count => x_msg_count
145: , x_msg_data => x_msg_data
146: , p_control_rec => l_control_rec
154: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
155: , x_Price_Break_tbl => l_x_Price_Break_tbl
156: );
157:
158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
161: RAISE FND_API.G_EXC_ERROR;
162: END IF;
155: , x_Price_Break_tbl => l_x_Price_Break_tbl
156: );
157:
158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
161: RAISE FND_API.G_EXC_ERROR;
162: END IF;
163:
156: );
157:
158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
161: RAISE FND_API.G_EXC_ERROR;
162: END IF;
163:
164: oe_debug_pub.add('after process pricing cont');
157:
158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
161: RAISE FND_API.G_EXC_ERROR;
162: END IF;
163:
164: oe_debug_pub.add('after process pricing cont');
165:
211:
212: -- Write to cache.
213: -- Set db_flag to False before writing to cache
214:
215: l_x_Price_LHeader_rec.db_flag := FND_API.G_FALSE;
216:
217: Write_Price_LHeader
218: ( p_Price_LHeader_rec => l_x_Price_LHeader_rec
219: );
222:
223:
224: -- Set return status.
225:
226: x_return_status := FND_API.G_RET_STS_SUCCESS;
227:
228: -- Get message count and data
229:
230: OE_MSG_PUB.Count_And_Get
234:
235:
236: EXCEPTION
237:
238: WHEN FND_API.G_EXC_ERROR THEN
239:
240: x_return_status := FND_API.G_RET_STS_ERROR;
241:
242: -- Get message count and data
236: EXCEPTION
237:
238: WHEN FND_API.G_EXC_ERROR THEN
239:
240: x_return_status := FND_API.G_RET_STS_ERROR;
241:
242: -- Get message count and data
243:
244: OE_MSG_PUB.Count_And_Get
245: ( p_count => x_msg_count
246: , p_data => x_msg_data
247: );
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250:
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
252:
253: -- Get message count and data
247: );
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250:
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
252:
253: -- Get message count and data
254:
255: OE_MSG_PUB.Count_And_Get
258: );
259:
260: WHEN OTHERS THEN
261:
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
263:
264: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
265: THEN
266: OE_MSG_PUB.Add_Exc_Msg
454: , 'Unrecognized attribute'
455: );
456: END IF;
457:
458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
459:
460: END IF;
461:
462: -- Set Operation.
460: END IF;
461:
462: -- Set Operation.
463:
464: IF FND_API.To_Boolean(l_Price_LHeader_rec.db_flag) THEN
465: l_Price_LHeader_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
466: ELSE
467: l_Price_LHeader_rec.operation := OE_GLOBALS.G_OPR_CREATE;
468: END IF;
470: -- Call OE_Pricing_Cont_PVT.Process_Pricing_Cont
471:
472: OE_Pricing_Cont_PVT.Process_Pricing_Cont
473: ( p_api_version_number => 1.0
474: , p_init_msg_list => FND_API.G_TRUE
475: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
476: , x_return_status => l_return_status
477: , x_msg_count => x_msg_count
478: , x_msg_data => x_msg_data
471:
472: OE_Pricing_Cont_PVT.Process_Pricing_Cont
473: ( p_api_version_number => 1.0
474: , p_init_msg_list => FND_API.G_TRUE
475: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
476: , x_return_status => l_return_status
477: , x_msg_count => x_msg_count
478: , x_msg_data => x_msg_data
479: , p_control_rec => l_control_rec
488: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
489: , x_Price_Break_tbl => l_x_Price_Break_tbl
490: );
491:
492: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
495: RAISE FND_API.G_EXC_ERROR;
496: END IF;
489: , x_Price_Break_tbl => l_x_Price_Break_tbl
490: );
491:
492: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
495: RAISE FND_API.G_EXC_ERROR;
496: END IF;
497:
490: );
491:
492: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
495: RAISE FND_API.G_EXC_ERROR;
496: END IF;
497:
498:
491:
492: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
495: RAISE FND_API.G_EXC_ERROR;
496: END IF;
497:
498:
499: -- Init OUT parameters to missing.
497:
498:
499: -- Init OUT parameters to missing.
500:
501: x_attribute1 := FND_API.G_MISS_CHAR;
502: x_attribute10 := FND_API.G_MISS_CHAR;
503: x_attribute11 := FND_API.G_MISS_CHAR;
504: x_attribute12 := FND_API.G_MISS_CHAR;
505: x_attribute13 := FND_API.G_MISS_CHAR;
498:
499: -- Init OUT parameters to missing.
500:
501: x_attribute1 := FND_API.G_MISS_CHAR;
502: x_attribute10 := FND_API.G_MISS_CHAR;
503: x_attribute11 := FND_API.G_MISS_CHAR;
504: x_attribute12 := FND_API.G_MISS_CHAR;
505: x_attribute13 := FND_API.G_MISS_CHAR;
506: x_attribute14 := FND_API.G_MISS_CHAR;
499: -- Init OUT parameters to missing.
500:
501: x_attribute1 := FND_API.G_MISS_CHAR;
502: x_attribute10 := FND_API.G_MISS_CHAR;
503: x_attribute11 := FND_API.G_MISS_CHAR;
504: x_attribute12 := FND_API.G_MISS_CHAR;
505: x_attribute13 := FND_API.G_MISS_CHAR;
506: x_attribute14 := FND_API.G_MISS_CHAR;
507: x_attribute15 := FND_API.G_MISS_CHAR;
500:
501: x_attribute1 := FND_API.G_MISS_CHAR;
502: x_attribute10 := FND_API.G_MISS_CHAR;
503: x_attribute11 := FND_API.G_MISS_CHAR;
504: x_attribute12 := FND_API.G_MISS_CHAR;
505: x_attribute13 := FND_API.G_MISS_CHAR;
506: x_attribute14 := FND_API.G_MISS_CHAR;
507: x_attribute15 := FND_API.G_MISS_CHAR;
508: x_attribute2 := FND_API.G_MISS_CHAR;
501: x_attribute1 := FND_API.G_MISS_CHAR;
502: x_attribute10 := FND_API.G_MISS_CHAR;
503: x_attribute11 := FND_API.G_MISS_CHAR;
504: x_attribute12 := FND_API.G_MISS_CHAR;
505: x_attribute13 := FND_API.G_MISS_CHAR;
506: x_attribute14 := FND_API.G_MISS_CHAR;
507: x_attribute15 := FND_API.G_MISS_CHAR;
508: x_attribute2 := FND_API.G_MISS_CHAR;
509: x_attribute3 := FND_API.G_MISS_CHAR;
502: x_attribute10 := FND_API.G_MISS_CHAR;
503: x_attribute11 := FND_API.G_MISS_CHAR;
504: x_attribute12 := FND_API.G_MISS_CHAR;
505: x_attribute13 := FND_API.G_MISS_CHAR;
506: x_attribute14 := FND_API.G_MISS_CHAR;
507: x_attribute15 := FND_API.G_MISS_CHAR;
508: x_attribute2 := FND_API.G_MISS_CHAR;
509: x_attribute3 := FND_API.G_MISS_CHAR;
510: x_attribute4 := FND_API.G_MISS_CHAR;
503: x_attribute11 := FND_API.G_MISS_CHAR;
504: x_attribute12 := FND_API.G_MISS_CHAR;
505: x_attribute13 := FND_API.G_MISS_CHAR;
506: x_attribute14 := FND_API.G_MISS_CHAR;
507: x_attribute15 := FND_API.G_MISS_CHAR;
508: x_attribute2 := FND_API.G_MISS_CHAR;
509: x_attribute3 := FND_API.G_MISS_CHAR;
510: x_attribute4 := FND_API.G_MISS_CHAR;
511: x_attribute5 := FND_API.G_MISS_CHAR;
504: x_attribute12 := FND_API.G_MISS_CHAR;
505: x_attribute13 := FND_API.G_MISS_CHAR;
506: x_attribute14 := FND_API.G_MISS_CHAR;
507: x_attribute15 := FND_API.G_MISS_CHAR;
508: x_attribute2 := FND_API.G_MISS_CHAR;
509: x_attribute3 := FND_API.G_MISS_CHAR;
510: x_attribute4 := FND_API.G_MISS_CHAR;
511: x_attribute5 := FND_API.G_MISS_CHAR;
512: x_attribute6 := FND_API.G_MISS_CHAR;
505: x_attribute13 := FND_API.G_MISS_CHAR;
506: x_attribute14 := FND_API.G_MISS_CHAR;
507: x_attribute15 := FND_API.G_MISS_CHAR;
508: x_attribute2 := FND_API.G_MISS_CHAR;
509: x_attribute3 := FND_API.G_MISS_CHAR;
510: x_attribute4 := FND_API.G_MISS_CHAR;
511: x_attribute5 := FND_API.G_MISS_CHAR;
512: x_attribute6 := FND_API.G_MISS_CHAR;
513: x_attribute7 := FND_API.G_MISS_CHAR;
506: x_attribute14 := FND_API.G_MISS_CHAR;
507: x_attribute15 := FND_API.G_MISS_CHAR;
508: x_attribute2 := FND_API.G_MISS_CHAR;
509: x_attribute3 := FND_API.G_MISS_CHAR;
510: x_attribute4 := FND_API.G_MISS_CHAR;
511: x_attribute5 := FND_API.G_MISS_CHAR;
512: x_attribute6 := FND_API.G_MISS_CHAR;
513: x_attribute7 := FND_API.G_MISS_CHAR;
514: x_attribute8 := FND_API.G_MISS_CHAR;
507: x_attribute15 := FND_API.G_MISS_CHAR;
508: x_attribute2 := FND_API.G_MISS_CHAR;
509: x_attribute3 := FND_API.G_MISS_CHAR;
510: x_attribute4 := FND_API.G_MISS_CHAR;
511: x_attribute5 := FND_API.G_MISS_CHAR;
512: x_attribute6 := FND_API.G_MISS_CHAR;
513: x_attribute7 := FND_API.G_MISS_CHAR;
514: x_attribute8 := FND_API.G_MISS_CHAR;
515: x_attribute9 := FND_API.G_MISS_CHAR;
508: x_attribute2 := FND_API.G_MISS_CHAR;
509: x_attribute3 := FND_API.G_MISS_CHAR;
510: x_attribute4 := FND_API.G_MISS_CHAR;
511: x_attribute5 := FND_API.G_MISS_CHAR;
512: x_attribute6 := FND_API.G_MISS_CHAR;
513: x_attribute7 := FND_API.G_MISS_CHAR;
514: x_attribute8 := FND_API.G_MISS_CHAR;
515: x_attribute9 := FND_API.G_MISS_CHAR;
516: x_comments := FND_API.G_MISS_CHAR;
509: x_attribute3 := FND_API.G_MISS_CHAR;
510: x_attribute4 := FND_API.G_MISS_CHAR;
511: x_attribute5 := FND_API.G_MISS_CHAR;
512: x_attribute6 := FND_API.G_MISS_CHAR;
513: x_attribute7 := FND_API.G_MISS_CHAR;
514: x_attribute8 := FND_API.G_MISS_CHAR;
515: x_attribute9 := FND_API.G_MISS_CHAR;
516: x_comments := FND_API.G_MISS_CHAR;
517: x_context := FND_API.G_MISS_CHAR;
510: x_attribute4 := FND_API.G_MISS_CHAR;
511: x_attribute5 := FND_API.G_MISS_CHAR;
512: x_attribute6 := FND_API.G_MISS_CHAR;
513: x_attribute7 := FND_API.G_MISS_CHAR;
514: x_attribute8 := FND_API.G_MISS_CHAR;
515: x_attribute9 := FND_API.G_MISS_CHAR;
516: x_comments := FND_API.G_MISS_CHAR;
517: x_context := FND_API.G_MISS_CHAR;
518: x_currency_code := FND_API.G_MISS_CHAR;
511: x_attribute5 := FND_API.G_MISS_CHAR;
512: x_attribute6 := FND_API.G_MISS_CHAR;
513: x_attribute7 := FND_API.G_MISS_CHAR;
514: x_attribute8 := FND_API.G_MISS_CHAR;
515: x_attribute9 := FND_API.G_MISS_CHAR;
516: x_comments := FND_API.G_MISS_CHAR;
517: x_context := FND_API.G_MISS_CHAR;
518: x_currency_code := FND_API.G_MISS_CHAR;
519: x_description := FND_API.G_MISS_CHAR;
512: x_attribute6 := FND_API.G_MISS_CHAR;
513: x_attribute7 := FND_API.G_MISS_CHAR;
514: x_attribute8 := FND_API.G_MISS_CHAR;
515: x_attribute9 := FND_API.G_MISS_CHAR;
516: x_comments := FND_API.G_MISS_CHAR;
517: x_context := FND_API.G_MISS_CHAR;
518: x_currency_code := FND_API.G_MISS_CHAR;
519: x_description := FND_API.G_MISS_CHAR;
520: x_end_date_active := FND_API.G_MISS_DATE;
513: x_attribute7 := FND_API.G_MISS_CHAR;
514: x_attribute8 := FND_API.G_MISS_CHAR;
515: x_attribute9 := FND_API.G_MISS_CHAR;
516: x_comments := FND_API.G_MISS_CHAR;
517: x_context := FND_API.G_MISS_CHAR;
518: x_currency_code := FND_API.G_MISS_CHAR;
519: x_description := FND_API.G_MISS_CHAR;
520: x_end_date_active := FND_API.G_MISS_DATE;
521: x_freight_terms_code := FND_API.G_MISS_CHAR;
514: x_attribute8 := FND_API.G_MISS_CHAR;
515: x_attribute9 := FND_API.G_MISS_CHAR;
516: x_comments := FND_API.G_MISS_CHAR;
517: x_context := FND_API.G_MISS_CHAR;
518: x_currency_code := FND_API.G_MISS_CHAR;
519: x_description := FND_API.G_MISS_CHAR;
520: x_end_date_active := FND_API.G_MISS_DATE;
521: x_freight_terms_code := FND_API.G_MISS_CHAR;
522: x_name := FND_API.G_MISS_CHAR;
515: x_attribute9 := FND_API.G_MISS_CHAR;
516: x_comments := FND_API.G_MISS_CHAR;
517: x_context := FND_API.G_MISS_CHAR;
518: x_currency_code := FND_API.G_MISS_CHAR;
519: x_description := FND_API.G_MISS_CHAR;
520: x_end_date_active := FND_API.G_MISS_DATE;
521: x_freight_terms_code := FND_API.G_MISS_CHAR;
522: x_name := FND_API.G_MISS_CHAR;
523: x_price_list_id := FND_API.G_MISS_NUM;
516: x_comments := FND_API.G_MISS_CHAR;
517: x_context := FND_API.G_MISS_CHAR;
518: x_currency_code := FND_API.G_MISS_CHAR;
519: x_description := FND_API.G_MISS_CHAR;
520: x_end_date_active := FND_API.G_MISS_DATE;
521: x_freight_terms_code := FND_API.G_MISS_CHAR;
522: x_name := FND_API.G_MISS_CHAR;
523: x_price_list_id := FND_API.G_MISS_NUM;
524: x_rounding_factor := FND_API.G_MISS_NUM;
517: x_context := FND_API.G_MISS_CHAR;
518: x_currency_code := FND_API.G_MISS_CHAR;
519: x_description := FND_API.G_MISS_CHAR;
520: x_end_date_active := FND_API.G_MISS_DATE;
521: x_freight_terms_code := FND_API.G_MISS_CHAR;
522: x_name := FND_API.G_MISS_CHAR;
523: x_price_list_id := FND_API.G_MISS_NUM;
524: x_rounding_factor := FND_API.G_MISS_NUM;
525: x_secondary_price_list_id := FND_API.G_MISS_NUM;
518: x_currency_code := FND_API.G_MISS_CHAR;
519: x_description := FND_API.G_MISS_CHAR;
520: x_end_date_active := FND_API.G_MISS_DATE;
521: x_freight_terms_code := FND_API.G_MISS_CHAR;
522: x_name := FND_API.G_MISS_CHAR;
523: x_price_list_id := FND_API.G_MISS_NUM;
524: x_rounding_factor := FND_API.G_MISS_NUM;
525: x_secondary_price_list_id := FND_API.G_MISS_NUM;
526: x_ship_method_code := FND_API.G_MISS_CHAR;
519: x_description := FND_API.G_MISS_CHAR;
520: x_end_date_active := FND_API.G_MISS_DATE;
521: x_freight_terms_code := FND_API.G_MISS_CHAR;
522: x_name := FND_API.G_MISS_CHAR;
523: x_price_list_id := FND_API.G_MISS_NUM;
524: x_rounding_factor := FND_API.G_MISS_NUM;
525: x_secondary_price_list_id := FND_API.G_MISS_NUM;
526: x_ship_method_code := FND_API.G_MISS_CHAR;
527: x_start_date_active := FND_API.G_MISS_DATE;
520: x_end_date_active := FND_API.G_MISS_DATE;
521: x_freight_terms_code := FND_API.G_MISS_CHAR;
522: x_name := FND_API.G_MISS_CHAR;
523: x_price_list_id := FND_API.G_MISS_NUM;
524: x_rounding_factor := FND_API.G_MISS_NUM;
525: x_secondary_price_list_id := FND_API.G_MISS_NUM;
526: x_ship_method_code := FND_API.G_MISS_CHAR;
527: x_start_date_active := FND_API.G_MISS_DATE;
528: x_terms_id := FND_API.G_MISS_NUM;
521: x_freight_terms_code := FND_API.G_MISS_CHAR;
522: x_name := FND_API.G_MISS_CHAR;
523: x_price_list_id := FND_API.G_MISS_NUM;
524: x_rounding_factor := FND_API.G_MISS_NUM;
525: x_secondary_price_list_id := FND_API.G_MISS_NUM;
526: x_ship_method_code := FND_API.G_MISS_CHAR;
527: x_start_date_active := FND_API.G_MISS_DATE;
528: x_terms_id := FND_API.G_MISS_NUM;
529: x_currency := FND_API.G_MISS_CHAR;
522: x_name := FND_API.G_MISS_CHAR;
523: x_price_list_id := FND_API.G_MISS_NUM;
524: x_rounding_factor := FND_API.G_MISS_NUM;
525: x_secondary_price_list_id := FND_API.G_MISS_NUM;
526: x_ship_method_code := FND_API.G_MISS_CHAR;
527: x_start_date_active := FND_API.G_MISS_DATE;
528: x_terms_id := FND_API.G_MISS_NUM;
529: x_currency := FND_API.G_MISS_CHAR;
530: x_freight_terms := FND_API.G_MISS_CHAR;
523: x_price_list_id := FND_API.G_MISS_NUM;
524: x_rounding_factor := FND_API.G_MISS_NUM;
525: x_secondary_price_list_id := FND_API.G_MISS_NUM;
526: x_ship_method_code := FND_API.G_MISS_CHAR;
527: x_start_date_active := FND_API.G_MISS_DATE;
528: x_terms_id := FND_API.G_MISS_NUM;
529: x_currency := FND_API.G_MISS_CHAR;
530: x_freight_terms := FND_API.G_MISS_CHAR;
531: x_price_list := FND_API.G_MISS_CHAR;
524: x_rounding_factor := FND_API.G_MISS_NUM;
525: x_secondary_price_list_id := FND_API.G_MISS_NUM;
526: x_ship_method_code := FND_API.G_MISS_CHAR;
527: x_start_date_active := FND_API.G_MISS_DATE;
528: x_terms_id := FND_API.G_MISS_NUM;
529: x_currency := FND_API.G_MISS_CHAR;
530: x_freight_terms := FND_API.G_MISS_CHAR;
531: x_price_list := FND_API.G_MISS_CHAR;
532: x_secondary_price_list := FND_API.G_MISS_CHAR;
525: x_secondary_price_list_id := FND_API.G_MISS_NUM;
526: x_ship_method_code := FND_API.G_MISS_CHAR;
527: x_start_date_active := FND_API.G_MISS_DATE;
528: x_terms_id := FND_API.G_MISS_NUM;
529: x_currency := FND_API.G_MISS_CHAR;
530: x_freight_terms := FND_API.G_MISS_CHAR;
531: x_price_list := FND_API.G_MISS_CHAR;
532: x_secondary_price_list := FND_API.G_MISS_CHAR;
533: x_ship_method := FND_API.G_MISS_CHAR;
526: x_ship_method_code := FND_API.G_MISS_CHAR;
527: x_start_date_active := FND_API.G_MISS_DATE;
528: x_terms_id := FND_API.G_MISS_NUM;
529: x_currency := FND_API.G_MISS_CHAR;
530: x_freight_terms := FND_API.G_MISS_CHAR;
531: x_price_list := FND_API.G_MISS_CHAR;
532: x_secondary_price_list := FND_API.G_MISS_CHAR;
533: x_ship_method := FND_API.G_MISS_CHAR;
534: x_terms := FND_API.G_MISS_CHAR;
527: x_start_date_active := FND_API.G_MISS_DATE;
528: x_terms_id := FND_API.G_MISS_NUM;
529: x_currency := FND_API.G_MISS_CHAR;
530: x_freight_terms := FND_API.G_MISS_CHAR;
531: x_price_list := FND_API.G_MISS_CHAR;
532: x_secondary_price_list := FND_API.G_MISS_CHAR;
533: x_ship_method := FND_API.G_MISS_CHAR;
534: x_terms := FND_API.G_MISS_CHAR;
535:
528: x_terms_id := FND_API.G_MISS_NUM;
529: x_currency := FND_API.G_MISS_CHAR;
530: x_freight_terms := FND_API.G_MISS_CHAR;
531: x_price_list := FND_API.G_MISS_CHAR;
532: x_secondary_price_list := FND_API.G_MISS_CHAR;
533: x_ship_method := FND_API.G_MISS_CHAR;
534: x_terms := FND_API.G_MISS_CHAR;
535:
536: -- Load display out parameters if any
529: x_currency := FND_API.G_MISS_CHAR;
530: x_freight_terms := FND_API.G_MISS_CHAR;
531: x_price_list := FND_API.G_MISS_CHAR;
532: x_secondary_price_list := FND_API.G_MISS_CHAR;
533: x_ship_method := FND_API.G_MISS_CHAR;
534: x_terms := FND_API.G_MISS_CHAR;
535:
536: -- Load display out parameters if any
537:
530: x_freight_terms := FND_API.G_MISS_CHAR;
531: x_price_list := FND_API.G_MISS_CHAR;
532: x_secondary_price_list := FND_API.G_MISS_CHAR;
533: x_ship_method := FND_API.G_MISS_CHAR;
534: x_terms := FND_API.G_MISS_CHAR;
535:
536: -- Load display out parameters if any
537:
538: l_Price_LHeader_val_rec := OE_Price_List_Util.Get_Values
724: );
725:
726: -- Set return status.
727:
728: x_return_status := FND_API.G_RET_STS_SUCCESS;
729:
730: -- Get message count and data
731:
732: OE_MSG_PUB.Count_And_Get
736:
737:
738: EXCEPTION
739:
740: WHEN FND_API.G_EXC_ERROR THEN
741:
742: x_return_status := FND_API.G_RET_STS_ERROR;
743:
744: -- Get message count and data
738: EXCEPTION
739:
740: WHEN FND_API.G_EXC_ERROR THEN
741:
742: x_return_status := FND_API.G_RET_STS_ERROR;
743:
744: -- Get message count and data
745:
746: OE_MSG_PUB.Count_And_Get
747: ( p_count => x_msg_count
748: , p_data => x_msg_data
749: );
750:
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752:
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
754:
755: -- Get message count and data
749: );
750:
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752:
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
754:
755: -- Get message count and data
756:
757: OE_MSG_PUB.Count_And_Get
760: );
761:
762: WHEN OTHERS THEN
763:
764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
765:
766: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
767: THEN
768: OE_MSG_PUB.Add_Exc_Msg
841: );
842:
843: -- Set Operation.
844:
845: IF FND_API.To_Boolean(l_Price_LHeader_rec.db_flag) THEN
846: l_Price_LHeader_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
847: ELSE
848: l_Price_LHeader_rec.operation := OE_GLOBALS.G_OPR_CREATE;
849: END IF;
851: -- Call OE_Pricing_Cont_PVT.Process_Pricing_Cont
852:
853: OE_Pricing_Cont_PVT.Process_Pricing_Cont
854: ( p_api_version_number => 1.0
855: , p_init_msg_list => FND_API.G_TRUE
856: , x_return_status => l_return_status
857: , x_msg_count => x_msg_count
858: , x_msg_data => x_msg_data
859: , p_control_rec => l_control_rec
868: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
869: , x_Price_Break_tbl => l_x_Price_Break_tbl
870: );
871:
872: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
874: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
875: RAISE FND_API.G_EXC_ERROR;
876: END IF;
869: , x_Price_Break_tbl => l_x_Price_Break_tbl
870: );
871:
872: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
874: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
875: RAISE FND_API.G_EXC_ERROR;
876: END IF;
877:
870: );
871:
872: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
874: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
875: RAISE FND_API.G_EXC_ERROR;
876: END IF;
877:
878:
871:
872: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
874: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
875: RAISE FND_API.G_EXC_ERROR;
876: END IF;
877:
878:
879: -- Load OUT parameters.
895:
896:
897: -- Set return status.
898:
899: x_return_status := FND_API.G_RET_STS_SUCCESS;
900:
901: -- Get message count and data
902:
903: OE_MSG_PUB.Count_And_Get
907:
908:
909: EXCEPTION
910:
911: WHEN FND_API.G_EXC_ERROR THEN
912:
913: x_return_status := FND_API.G_RET_STS_ERROR;
914:
915: -- Get message count and data
909: EXCEPTION
910:
911: WHEN FND_API.G_EXC_ERROR THEN
912:
913: x_return_status := FND_API.G_RET_STS_ERROR;
914:
915: -- Get message count and data
916:
917: OE_MSG_PUB.Count_And_Get
918: ( p_count => x_msg_count
919: , p_data => x_msg_data
920: );
921:
922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
923:
924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
925:
926: -- Get message count and data
920: );
921:
922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
923:
924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
925:
926: -- Get message count and data
927:
928: OE_MSG_PUB.Count_And_Get
931: );
932:
933: WHEN OTHERS THEN
934:
935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
936:
937: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
938: THEN
939: OE_MSG_PUB.Add_Exc_Msg
1007: -- Call OE_Pricing_Cont_PVT.Process_Pricing_Cont
1008:
1009: OE_Pricing_Cont_PVT.Process_Pricing_Cont
1010: ( p_api_version_number => 1.0
1011: , p_init_msg_list => FND_API.G_TRUE
1012: , x_return_status => l_return_status
1013: , x_msg_count => x_msg_count
1014: , x_msg_data => x_msg_data
1015: , p_control_rec => l_control_rec
1023: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
1024: , x_Price_Break_tbl => l_x_Price_Break_tbl
1025: );
1026:
1027: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1030: RAISE FND_API.G_EXC_ERROR;
1031: END IF;
1024: , x_Price_Break_tbl => l_x_Price_Break_tbl
1025: );
1026:
1027: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1030: RAISE FND_API.G_EXC_ERROR;
1031: END IF;
1032:
1025: );
1026:
1027: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1030: RAISE FND_API.G_EXC_ERROR;
1031: END IF;
1032:
1033:
1026:
1027: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1030: RAISE FND_API.G_EXC_ERROR;
1031: END IF;
1032:
1033:
1034: -- Clear Price_LHeader record cache
1036: Clear_Price_LHeader;
1037:
1038: -- Set return status.
1039:
1040: x_return_status := FND_API.G_RET_STS_SUCCESS;
1041:
1042: -- Get message count and data
1043:
1044: OE_MSG_PUB.Count_And_Get
1048:
1049:
1050: EXCEPTION
1051:
1052: WHEN FND_API.G_EXC_ERROR THEN
1053:
1054: x_return_status := FND_API.G_RET_STS_ERROR;
1055:
1056: -- Get message count and data
1050: EXCEPTION
1051:
1052: WHEN FND_API.G_EXC_ERROR THEN
1053:
1054: x_return_status := FND_API.G_RET_STS_ERROR;
1055:
1056: -- Get message count and data
1057:
1058: OE_MSG_PUB.Count_And_Get
1059: ( p_count => x_msg_count
1060: , p_data => x_msg_data
1061: );
1062:
1063: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1064:
1065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1066:
1067: -- Get message count and data
1061: );
1062:
1063: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1064:
1065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1066:
1067: -- Get message count and data
1068:
1069: OE_MSG_PUB.Count_And_Get
1072: );
1073:
1074: WHEN OTHERS THEN
1075:
1076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1077:
1078: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1079: THEN
1080: OE_MSG_PUB.Add_Exc_Msg
1136: -- Call OE_Pricing_Cont_PVT.Process_Pricing_Cont
1137:
1138: OE_Pricing_Cont_PVT.Process_Pricing_Cont
1139: ( p_api_version_number => 1.0
1140: , p_init_msg_list => FND_API.G_TRUE
1141: , x_return_status => l_return_status
1142: , x_msg_count => x_msg_count
1143: , x_msg_data => x_msg_data
1144: , p_control_rec => l_control_rec
1151: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
1152: , x_Price_Break_tbl => l_x_Price_Break_tbl
1153: );
1154:
1155: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1157: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1158: RAISE FND_API.G_EXC_ERROR;
1159: END IF;
1152: , x_Price_Break_tbl => l_x_Price_Break_tbl
1153: );
1154:
1155: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1157: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1158: RAISE FND_API.G_EXC_ERROR;
1159: END IF;
1160:
1153: );
1154:
1155: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1157: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1158: RAISE FND_API.G_EXC_ERROR;
1159: END IF;
1160:
1161:
1154:
1155: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1157: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1158: RAISE FND_API.G_EXC_ERROR;
1159: END IF;
1160:
1161:
1162: -- Set return status.
1160:
1161:
1162: -- Set return status.
1163:
1164: x_return_status := FND_API.G_RET_STS_SUCCESS;
1165:
1166: -- Get message count and data
1167:
1168: OE_MSG_PUB.Count_And_Get
1172:
1173:
1174: EXCEPTION
1175:
1176: WHEN FND_API.G_EXC_ERROR THEN
1177:
1178: x_return_status := FND_API.G_RET_STS_ERROR;
1179:
1180: -- Get message count and data
1174: EXCEPTION
1175:
1176: WHEN FND_API.G_EXC_ERROR THEN
1177:
1178: x_return_status := FND_API.G_RET_STS_ERROR;
1179:
1180: -- Get message count and data
1181:
1182: OE_MSG_PUB.Count_And_Get
1183: ( p_count => x_msg_count
1184: , p_data => x_msg_data
1185: );
1186:
1187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1188:
1189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1190:
1191: -- Get message count and data
1185: );
1186:
1187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1188:
1189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1190:
1191: -- Get message count and data
1192:
1193: OE_MSG_PUB.Count_And_Get
1196: );
1197:
1198: WHEN OTHERS THEN
1199:
1200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1201:
1202: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1203: THEN
1204: OE_MSG_PUB.Add_Exc_Msg
1323: -- Call OE_Pricing_Cont_PVT.Lock_Pricing_Cont
1324:
1325: OE_Pricing_Cont_PVT.Lock_Pricing_Cont
1326: ( p_api_version_number => 1.0
1327: , p_init_msg_list => FND_API.G_TRUE
1328: , x_return_status => l_return_status
1329: , x_msg_count => x_msg_count
1330: , x_msg_data => x_msg_data
1331: , p_Price_LHeader_rec => l_Price_LHeader_rec
1338: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
1339: , x_Price_Break_tbl => l_x_Price_Break_tbl
1340: );
1341:
1342: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1343:
1344: -- Set DB flag and write record to cache.
1345:
1346: l_x_Price_LHeader_rec.db_flag := FND_API.G_TRUE;
1342: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1343:
1344: -- Set DB flag and write record to cache.
1345:
1346: l_x_Price_LHeader_rec.db_flag := FND_API.G_TRUE;
1347:
1348: Write_Price_LHeader
1349: ( p_Price_LHeader_rec => l_x_Price_LHeader_rec
1350: , p_db_record => TRUE
1375: , 'Lock_Row'
1376: );
1377: END IF;
1378:
1379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1380:
1381: -- Get message count and data
1382:
1383: OE_MSG_PUB.Count_And_Get
1425: ( p_name => g_Price_LHeader_rec.name ,
1426: p_price_list_id => p_price_list_id
1427: );
1428:
1429: g_Price_LHeader_rec.db_flag := FND_API.G_TRUE;
1430:
1431: -- Load DB record
1432:
1433: g_db_Price_LHeader_rec := g_Price_LHeader_rec;