10: g_Contract_rec OE_Pricing_Cont_PUB.Contract_Rec_Type;
11: g_db_Contract_rec OE_Pricing_Cont_PUB.Contract_Rec_Type;
12:
13: -- Revision Control S
14: g_Revision_Change VARCHAR2(1) := FND_API.G_FALSE;
15: g_Agreement_Id NUMBER := FND_API.G_MISS_NUM;
16: -- Revision Control E
17:
18: -- Forward declaration of procedures maintaining entity record cache.
11: g_db_Contract_rec OE_Pricing_Cont_PUB.Contract_Rec_Type;
12:
13: -- Revision Control S
14: g_Revision_Change VARCHAR2(1) := FND_API.G_FALSE;
15: g_Agreement_Id NUMBER := FND_API.G_MISS_NUM;
16: -- Revision Control E
17:
18: -- Forward declaration of procedures maintaining entity record cache.
19:
159: -- Call OE_Pricing_Cont_PVT.Process_Pricing_Cont
160:
161: OE_Pricing_Cont_PVT.Process_Pricing_Cont
162: ( p_api_version_number => 1.0
163: , p_init_msg_list => FND_API.G_TRUE
164: , x_return_status => l_return_status
165: , x_msg_count => x_msg_count
166: , x_msg_data => x_msg_data
167: , p_control_rec => l_control_rec
175: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
176: , x_Price_Break_tbl => l_x_Price_Break_tbl
177: );
178:
179: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
176: , x_Price_Break_tbl => l_x_Price_Break_tbl
177: );
178:
179: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184:
177: );
178:
179: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184:
185:
178:
179: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184:
185:
186: -- Load OUT parameters.
218:
219: -- Write to cache.
220: -- Set db_flag to False before writing to cache
221:
222: l_x_Contract_rec.db_flag := FND_API.G_FALSE;
223:
224: Write_Contract
225: ( p_Contract_rec => l_x_Contract_rec
226: );
226: );
227:
228: -- Set return status.
229:
230: x_return_status := FND_API.G_RET_STS_SUCCESS;
231:
232: -- Get message count and data
233:
234: OE_MSG_PUB.Count_And_Get
239: oe_debug_pub.add('Exiting OE_OE_Form_Contract.Default_Attributes');
240:
241: EXCEPTION
242:
243: WHEN FND_API.G_EXC_ERROR THEN
244:
245: x_return_status := FND_API.G_RET_STS_ERROR;
246:
247: -- Get message count and data
241: EXCEPTION
242:
243: WHEN FND_API.G_EXC_ERROR THEN
244:
245: x_return_status := FND_API.G_RET_STS_ERROR;
246:
247: -- Get message count and data
248:
249: OE_MSG_PUB.Count_And_Get
250: ( p_count => x_msg_count
251: , p_data => x_msg_data
252: );
253:
254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
255:
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
257:
258: -- Get message count and data
252: );
253:
254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
255:
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
257:
258: -- Get message count and data
259:
260: OE_MSG_PUB.Count_And_Get
263: );
264:
265: WHEN OTHERS THEN
266:
267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
268:
269: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
270: THEN
271: OE_MSG_PUB.Add_Exc_Msg
437: , 'Unrecognized attribute'
438: );
439: END IF;
440:
441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
442:
443: END IF;
444:
445: -- Set Operation.
443: END IF;
444:
445: -- Set Operation.
446:
447: IF FND_API.To_Boolean(l_Contract_rec.db_flag) THEN
448: l_Contract_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
449: ELSE
450: l_Contract_rec.operation := OE_GLOBALS.G_OPR_CREATE;
451: END IF;
453: -- Call OE_Pricing_Cont_PVT.Process_Pricing_Cont
454:
455: OE_Pricing_Cont_PVT.Process_Pricing_Cont
456: ( p_api_version_number => 1.0
457: , p_init_msg_list => FND_API.G_TRUE
458: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
459: , x_return_status => l_return_status
460: , x_msg_count => x_msg_count
461: , x_msg_data => x_msg_data
454:
455: OE_Pricing_Cont_PVT.Process_Pricing_Cont
456: ( p_api_version_number => 1.0
457: , p_init_msg_list => FND_API.G_TRUE
458: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
459: , x_return_status => l_return_status
460: , x_msg_count => x_msg_count
461: , x_msg_data => x_msg_data
462: , p_control_rec => l_control_rec
471: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
472: , x_Price_Break_tbl => l_x_Price_Break_tbl
473: );
474:
475: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
477: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
472: , x_Price_Break_tbl => l_x_Price_Break_tbl
473: );
474:
475: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
477: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
480:
473: );
474:
475: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
477: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
480:
481:
474:
475: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
477: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
480:
481:
482: -- Init OUT parameters to missing.
480:
481:
482: -- Init OUT parameters to missing.
483:
484: x_agreement_id := FND_API.G_MISS_NUM;
485: x_attribute1 := FND_API.G_MISS_CHAR;
486: x_attribute10 := FND_API.G_MISS_CHAR;
487: x_attribute11 := FND_API.G_MISS_CHAR;
488: x_attribute12 := FND_API.G_MISS_CHAR;
481:
482: -- Init OUT parameters to missing.
483:
484: x_agreement_id := FND_API.G_MISS_NUM;
485: x_attribute1 := FND_API.G_MISS_CHAR;
486: x_attribute10 := FND_API.G_MISS_CHAR;
487: x_attribute11 := FND_API.G_MISS_CHAR;
488: x_attribute12 := FND_API.G_MISS_CHAR;
489: x_attribute13 := FND_API.G_MISS_CHAR;
482: -- Init OUT parameters to missing.
483:
484: x_agreement_id := FND_API.G_MISS_NUM;
485: x_attribute1 := FND_API.G_MISS_CHAR;
486: x_attribute10 := FND_API.G_MISS_CHAR;
487: x_attribute11 := FND_API.G_MISS_CHAR;
488: x_attribute12 := FND_API.G_MISS_CHAR;
489: x_attribute13 := FND_API.G_MISS_CHAR;
490: x_attribute14 := FND_API.G_MISS_CHAR;
483:
484: x_agreement_id := FND_API.G_MISS_NUM;
485: x_attribute1 := FND_API.G_MISS_CHAR;
486: x_attribute10 := FND_API.G_MISS_CHAR;
487: x_attribute11 := FND_API.G_MISS_CHAR;
488: x_attribute12 := FND_API.G_MISS_CHAR;
489: x_attribute13 := FND_API.G_MISS_CHAR;
490: x_attribute14 := FND_API.G_MISS_CHAR;
491: x_attribute15 := FND_API.G_MISS_CHAR;
484: x_agreement_id := FND_API.G_MISS_NUM;
485: x_attribute1 := FND_API.G_MISS_CHAR;
486: x_attribute10 := FND_API.G_MISS_CHAR;
487: x_attribute11 := FND_API.G_MISS_CHAR;
488: x_attribute12 := FND_API.G_MISS_CHAR;
489: x_attribute13 := FND_API.G_MISS_CHAR;
490: x_attribute14 := FND_API.G_MISS_CHAR;
491: x_attribute15 := FND_API.G_MISS_CHAR;
492: x_attribute2 := FND_API.G_MISS_CHAR;
485: x_attribute1 := FND_API.G_MISS_CHAR;
486: x_attribute10 := FND_API.G_MISS_CHAR;
487: x_attribute11 := FND_API.G_MISS_CHAR;
488: x_attribute12 := FND_API.G_MISS_CHAR;
489: x_attribute13 := FND_API.G_MISS_CHAR;
490: x_attribute14 := FND_API.G_MISS_CHAR;
491: x_attribute15 := FND_API.G_MISS_CHAR;
492: x_attribute2 := FND_API.G_MISS_CHAR;
493: x_attribute3 := FND_API.G_MISS_CHAR;
486: x_attribute10 := FND_API.G_MISS_CHAR;
487: x_attribute11 := FND_API.G_MISS_CHAR;
488: x_attribute12 := FND_API.G_MISS_CHAR;
489: x_attribute13 := FND_API.G_MISS_CHAR;
490: x_attribute14 := FND_API.G_MISS_CHAR;
491: x_attribute15 := FND_API.G_MISS_CHAR;
492: x_attribute2 := FND_API.G_MISS_CHAR;
493: x_attribute3 := FND_API.G_MISS_CHAR;
494: x_attribute4 := FND_API.G_MISS_CHAR;
487: x_attribute11 := FND_API.G_MISS_CHAR;
488: x_attribute12 := FND_API.G_MISS_CHAR;
489: x_attribute13 := FND_API.G_MISS_CHAR;
490: x_attribute14 := FND_API.G_MISS_CHAR;
491: x_attribute15 := FND_API.G_MISS_CHAR;
492: x_attribute2 := FND_API.G_MISS_CHAR;
493: x_attribute3 := FND_API.G_MISS_CHAR;
494: x_attribute4 := FND_API.G_MISS_CHAR;
495: x_attribute5 := FND_API.G_MISS_CHAR;
488: x_attribute12 := FND_API.G_MISS_CHAR;
489: x_attribute13 := FND_API.G_MISS_CHAR;
490: x_attribute14 := FND_API.G_MISS_CHAR;
491: x_attribute15 := FND_API.G_MISS_CHAR;
492: x_attribute2 := FND_API.G_MISS_CHAR;
493: x_attribute3 := FND_API.G_MISS_CHAR;
494: x_attribute4 := FND_API.G_MISS_CHAR;
495: x_attribute5 := FND_API.G_MISS_CHAR;
496: x_attribute6 := FND_API.G_MISS_CHAR;
489: x_attribute13 := FND_API.G_MISS_CHAR;
490: x_attribute14 := FND_API.G_MISS_CHAR;
491: x_attribute15 := FND_API.G_MISS_CHAR;
492: x_attribute2 := FND_API.G_MISS_CHAR;
493: x_attribute3 := FND_API.G_MISS_CHAR;
494: x_attribute4 := FND_API.G_MISS_CHAR;
495: x_attribute5 := FND_API.G_MISS_CHAR;
496: x_attribute6 := FND_API.G_MISS_CHAR;
497: x_attribute7 := FND_API.G_MISS_CHAR;
490: x_attribute14 := FND_API.G_MISS_CHAR;
491: x_attribute15 := FND_API.G_MISS_CHAR;
492: x_attribute2 := FND_API.G_MISS_CHAR;
493: x_attribute3 := FND_API.G_MISS_CHAR;
494: x_attribute4 := FND_API.G_MISS_CHAR;
495: x_attribute5 := FND_API.G_MISS_CHAR;
496: x_attribute6 := FND_API.G_MISS_CHAR;
497: x_attribute7 := FND_API.G_MISS_CHAR;
498: x_attribute8 := FND_API.G_MISS_CHAR;
491: x_attribute15 := FND_API.G_MISS_CHAR;
492: x_attribute2 := FND_API.G_MISS_CHAR;
493: x_attribute3 := FND_API.G_MISS_CHAR;
494: x_attribute4 := FND_API.G_MISS_CHAR;
495: x_attribute5 := FND_API.G_MISS_CHAR;
496: x_attribute6 := FND_API.G_MISS_CHAR;
497: x_attribute7 := FND_API.G_MISS_CHAR;
498: x_attribute8 := FND_API.G_MISS_CHAR;
499: x_attribute9 := FND_API.G_MISS_CHAR;
492: x_attribute2 := FND_API.G_MISS_CHAR;
493: x_attribute3 := FND_API.G_MISS_CHAR;
494: x_attribute4 := FND_API.G_MISS_CHAR;
495: x_attribute5 := FND_API.G_MISS_CHAR;
496: x_attribute6 := FND_API.G_MISS_CHAR;
497: x_attribute7 := FND_API.G_MISS_CHAR;
498: x_attribute8 := FND_API.G_MISS_CHAR;
499: x_attribute9 := FND_API.G_MISS_CHAR;
500: x_context := FND_API.G_MISS_CHAR;
493: x_attribute3 := FND_API.G_MISS_CHAR;
494: x_attribute4 := FND_API.G_MISS_CHAR;
495: x_attribute5 := FND_API.G_MISS_CHAR;
496: x_attribute6 := FND_API.G_MISS_CHAR;
497: x_attribute7 := FND_API.G_MISS_CHAR;
498: x_attribute8 := FND_API.G_MISS_CHAR;
499: x_attribute9 := FND_API.G_MISS_CHAR;
500: x_context := FND_API.G_MISS_CHAR;
501: x_discount_id := FND_API.G_MISS_NUM;
494: x_attribute4 := FND_API.G_MISS_CHAR;
495: x_attribute5 := FND_API.G_MISS_CHAR;
496: x_attribute6 := FND_API.G_MISS_CHAR;
497: x_attribute7 := FND_API.G_MISS_CHAR;
498: x_attribute8 := FND_API.G_MISS_CHAR;
499: x_attribute9 := FND_API.G_MISS_CHAR;
500: x_context := FND_API.G_MISS_CHAR;
501: x_discount_id := FND_API.G_MISS_NUM;
502: x_last_updated_by := FND_API.G_MISS_NUM;
495: x_attribute5 := FND_API.G_MISS_CHAR;
496: x_attribute6 := FND_API.G_MISS_CHAR;
497: x_attribute7 := FND_API.G_MISS_CHAR;
498: x_attribute8 := FND_API.G_MISS_CHAR;
499: x_attribute9 := FND_API.G_MISS_CHAR;
500: x_context := FND_API.G_MISS_CHAR;
501: x_discount_id := FND_API.G_MISS_NUM;
502: x_last_updated_by := FND_API.G_MISS_NUM;
503: x_price_list_id := FND_API.G_MISS_NUM;
496: x_attribute6 := FND_API.G_MISS_CHAR;
497: x_attribute7 := FND_API.G_MISS_CHAR;
498: x_attribute8 := FND_API.G_MISS_CHAR;
499: x_attribute9 := FND_API.G_MISS_CHAR;
500: x_context := FND_API.G_MISS_CHAR;
501: x_discount_id := FND_API.G_MISS_NUM;
502: x_last_updated_by := FND_API.G_MISS_NUM;
503: x_price_list_id := FND_API.G_MISS_NUM;
504: x_pricing_contract_id := FND_API.G_MISS_NUM;
497: x_attribute7 := FND_API.G_MISS_CHAR;
498: x_attribute8 := FND_API.G_MISS_CHAR;
499: x_attribute9 := FND_API.G_MISS_CHAR;
500: x_context := FND_API.G_MISS_CHAR;
501: x_discount_id := FND_API.G_MISS_NUM;
502: x_last_updated_by := FND_API.G_MISS_NUM;
503: x_price_list_id := FND_API.G_MISS_NUM;
504: x_pricing_contract_id := FND_API.G_MISS_NUM;
505: x_agreement := FND_API.G_MISS_CHAR;
498: x_attribute8 := FND_API.G_MISS_CHAR;
499: x_attribute9 := FND_API.G_MISS_CHAR;
500: x_context := FND_API.G_MISS_CHAR;
501: x_discount_id := FND_API.G_MISS_NUM;
502: x_last_updated_by := FND_API.G_MISS_NUM;
503: x_price_list_id := FND_API.G_MISS_NUM;
504: x_pricing_contract_id := FND_API.G_MISS_NUM;
505: x_agreement := FND_API.G_MISS_CHAR;
506: x_discount := FND_API.G_MISS_CHAR;
499: x_attribute9 := FND_API.G_MISS_CHAR;
500: x_context := FND_API.G_MISS_CHAR;
501: x_discount_id := FND_API.G_MISS_NUM;
502: x_last_updated_by := FND_API.G_MISS_NUM;
503: x_price_list_id := FND_API.G_MISS_NUM;
504: x_pricing_contract_id := FND_API.G_MISS_NUM;
505: x_agreement := FND_API.G_MISS_CHAR;
506: x_discount := FND_API.G_MISS_CHAR;
507: x_price_list := FND_API.G_MISS_CHAR;
500: x_context := FND_API.G_MISS_CHAR;
501: x_discount_id := FND_API.G_MISS_NUM;
502: x_last_updated_by := FND_API.G_MISS_NUM;
503: x_price_list_id := FND_API.G_MISS_NUM;
504: x_pricing_contract_id := FND_API.G_MISS_NUM;
505: x_agreement := FND_API.G_MISS_CHAR;
506: x_discount := FND_API.G_MISS_CHAR;
507: x_price_list := FND_API.G_MISS_CHAR;
508:
501: x_discount_id := FND_API.G_MISS_NUM;
502: x_last_updated_by := FND_API.G_MISS_NUM;
503: x_price_list_id := FND_API.G_MISS_NUM;
504: x_pricing_contract_id := FND_API.G_MISS_NUM;
505: x_agreement := FND_API.G_MISS_CHAR;
506: x_discount := FND_API.G_MISS_CHAR;
507: x_price_list := FND_API.G_MISS_CHAR;
508:
509: -- Load display out parameters if any
502: x_last_updated_by := FND_API.G_MISS_NUM;
503: x_price_list_id := FND_API.G_MISS_NUM;
504: x_pricing_contract_id := FND_API.G_MISS_NUM;
505: x_agreement := FND_API.G_MISS_CHAR;
506: x_discount := FND_API.G_MISS_CHAR;
507: x_price_list := FND_API.G_MISS_CHAR;
508:
509: -- Load display out parameters if any
510:
503: x_price_list_id := FND_API.G_MISS_NUM;
504: x_pricing_contract_id := FND_API.G_MISS_NUM;
505: x_agreement := FND_API.G_MISS_CHAR;
506: x_discount := FND_API.G_MISS_CHAR;
507: x_price_list := FND_API.G_MISS_CHAR;
508:
509: -- Load display out parameters if any
510:
511: l_Contract_val_rec := OE_Contract_Util.Get_Values
652: );
653:
654: -- Set return status.
655:
656: x_return_status := FND_API.G_RET_STS_SUCCESS;
657:
658: -- Get message count and data
659:
660: OE_MSG_PUB.Count_And_Get
665: oe_debug_pub.add('Exiting OE_OE_Form_Contract.Change_Attribute');
666:
667: EXCEPTION
668:
669: WHEN FND_API.G_EXC_ERROR THEN
670:
671: x_return_status := FND_API.G_RET_STS_ERROR;
672:
673: -- Get message count and data
667: EXCEPTION
668:
669: WHEN FND_API.G_EXC_ERROR THEN
670:
671: x_return_status := FND_API.G_RET_STS_ERROR;
672:
673: -- Get message count and data
674:
675: OE_MSG_PUB.Count_And_Get
676: ( p_count => x_msg_count
677: , p_data => x_msg_data
678: );
679:
680: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
681:
682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
683:
684: -- Get message count and data
678: );
679:
680: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
681:
682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
683:
684: -- Get message count and data
685:
686: OE_MSG_PUB.Count_And_Get
689: );
690:
691: WHEN OTHERS THEN
692:
693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
694:
695: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
696: THEN
697: OE_MSG_PUB.Add_Exc_Msg
772: );
773:
774: -- Set Operation.
775:
776: IF FND_API.To_Boolean(l_Contract_rec.db_flag) THEN
777: l_Contract_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
778: ELSE
779: l_Contract_rec.operation := OE_GLOBALS.G_OPR_CREATE;
780: END IF;
779: l_Contract_rec.operation := OE_GLOBALS.G_OPR_CREATE;
780: END IF;
781:
782: --Revision Control S
783: IF FND_API.To_Boolean(g_Revision_Change) THEN
784: select oe_pricing_contracts_s.nextval into l_Contract_rec.pricing_contract_id from dual;
785: l_contract_rec.agreement_id := g_Agreement_Id;
786: l_Contract_rec.operation := OE_GLOBALS.G_OPR_CREATE;
787: l_Contract_rec.db_flag := FND_API.G_FALSE;
783: IF FND_API.To_Boolean(g_Revision_Change) THEN
784: select oe_pricing_contracts_s.nextval into l_Contract_rec.pricing_contract_id from dual;
785: l_contract_rec.agreement_id := g_Agreement_Id;
786: l_Contract_rec.operation := OE_GLOBALS.G_OPR_CREATE;
787: l_Contract_rec.db_flag := FND_API.G_FALSE;
788: g_Revision_Change := FND_API.G_FALSE;
789: END IF;
790: --Revision Control E
791:
784: select oe_pricing_contracts_s.nextval into l_Contract_rec.pricing_contract_id from dual;
785: l_contract_rec.agreement_id := g_Agreement_Id;
786: l_Contract_rec.operation := OE_GLOBALS.G_OPR_CREATE;
787: l_Contract_rec.db_flag := FND_API.G_FALSE;
788: g_Revision_Change := FND_API.G_FALSE;
789: END IF;
790: --Revision Control E
791:
792: -- Call OE_Pricing_Cont_PVT.Process_Pricing_Cont
792: -- Call OE_Pricing_Cont_PVT.Process_Pricing_Cont
793:
794: OE_Pricing_Cont_PVT.Process_Pricing_Cont
795: ( p_api_version_number => 1.0
796: , p_init_msg_list => FND_API.G_TRUE
797: , x_return_status => l_return_status
798: , x_msg_count => x_msg_count
799: , x_msg_data => x_msg_data
800: , p_control_rec => l_control_rec
809: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
810: , x_Price_Break_tbl => l_x_Price_Break_tbl
811: );
812:
813: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
815: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
816: RAISE FND_API.G_EXC_ERROR;
817: END IF;
810: , x_Price_Break_tbl => l_x_Price_Break_tbl
811: );
812:
813: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
815: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
816: RAISE FND_API.G_EXC_ERROR;
817: END IF;
818:
811: );
812:
813: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
815: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
816: RAISE FND_API.G_EXC_ERROR;
817: END IF;
818:
819:
812:
813: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
815: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
816: RAISE FND_API.G_EXC_ERROR;
817: END IF;
818:
819:
820: -- Load OUT parameters.
836:
837:
838: -- Set return status.
839:
840: x_return_status := FND_API.G_RET_STS_SUCCESS;
841:
842: -- Get message count and data
843:
844: OE_MSG_PUB.Count_And_Get
849: oe_debug_pub.add('Exiting OE_OE_Form_Contract.Validate_And_Write');
850:
851: EXCEPTION
852:
853: WHEN FND_API.G_EXC_ERROR THEN
854:
855: x_return_status := FND_API.G_RET_STS_ERROR;
856:
857: -- Get message count and data
851: EXCEPTION
852:
853: WHEN FND_API.G_EXC_ERROR THEN
854:
855: x_return_status := FND_API.G_RET_STS_ERROR;
856:
857: -- Get message count and data
858:
859: OE_MSG_PUB.Count_And_Get
860: ( p_count => x_msg_count
861: , p_data => x_msg_data
862: );
863:
864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
865:
866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
867:
868: -- Get message count and data
862: );
863:
864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
865:
866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
867:
868: -- Get message count and data
869:
870: OE_MSG_PUB.Count_And_Get
873: );
874:
875: WHEN OTHERS THEN
876:
877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
878:
879: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
880: THEN
881: OE_MSG_PUB.Add_Exc_Msg
949: -- Call OE_Pricing_Cont_PVT.Process_Pricing_Cont
950:
951: OE_Pricing_Cont_PVT.Process_Pricing_Cont
952: ( p_api_version_number => 1.0
953: , p_init_msg_list => FND_API.G_TRUE
954: , x_return_status => l_return_status
955: , x_msg_count => x_msg_count
956: , x_msg_data => x_msg_data
957: , p_control_rec => l_control_rec
965: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
966: , x_Price_Break_tbl => l_x_Price_Break_tbl
967: );
968:
969: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
971: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
972: RAISE FND_API.G_EXC_ERROR;
973: END IF;
966: , x_Price_Break_tbl => l_x_Price_Break_tbl
967: );
968:
969: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
971: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
972: RAISE FND_API.G_EXC_ERROR;
973: END IF;
974:
967: );
968:
969: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
971: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
972: RAISE FND_API.G_EXC_ERROR;
973: END IF;
974:
975:
968:
969: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
971: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
972: RAISE FND_API.G_EXC_ERROR;
973: END IF;
974:
975:
976: -- Clear Contract record cache
978: Clear_Contract;
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
1078: -- Call OE_Pricing_Cont_PVT.Process_Pricing_Cont
1079:
1080: OE_Pricing_Cont_PVT.Process_Pricing_Cont
1081: ( p_api_version_number => 1.0
1082: , p_init_msg_list => FND_API.G_TRUE
1083: , x_return_status => l_return_status
1084: , x_msg_count => x_msg_count
1085: , x_msg_data => x_msg_data
1086: , p_control_rec => l_control_rec
1093: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
1094: , x_Price_Break_tbl => l_x_Price_Break_tbl
1095: );
1096:
1097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1100: RAISE FND_API.G_EXC_ERROR;
1101: END IF;
1094: , x_Price_Break_tbl => l_x_Price_Break_tbl
1095: );
1096:
1097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1100: RAISE FND_API.G_EXC_ERROR;
1101: END IF;
1102:
1095: );
1096:
1097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1100: RAISE FND_API.G_EXC_ERROR;
1101: END IF;
1102:
1103:
1096:
1097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1100: RAISE FND_API.G_EXC_ERROR;
1101: END IF;
1102:
1103:
1104: -- Set return status.
1102:
1103:
1104: -- Set return status.
1105:
1106: x_return_status := FND_API.G_RET_STS_SUCCESS;
1107:
1108: -- Get message count and data
1109:
1110: OE_MSG_PUB.Count_And_Get
1114:
1115:
1116: EXCEPTION
1117:
1118: WHEN FND_API.G_EXC_ERROR THEN
1119:
1120: x_return_status := FND_API.G_RET_STS_ERROR;
1121:
1122: -- Get message count and data
1116: EXCEPTION
1117:
1118: WHEN FND_API.G_EXC_ERROR THEN
1119:
1120: x_return_status := FND_API.G_RET_STS_ERROR;
1121:
1122: -- Get message count and data
1123:
1124: OE_MSG_PUB.Count_And_Get
1125: ( p_count => x_msg_count
1126: , p_data => x_msg_data
1127: );
1128:
1129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1130:
1131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1132:
1133: -- Get message count and data
1127: );
1128:
1129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1130:
1131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1132:
1133: -- Get message count and data
1134:
1135: OE_MSG_PUB.Count_And_Get
1138: );
1139:
1140: WHEN OTHERS THEN
1141:
1142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1143:
1144: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1145: THEN
1146: OE_MSG_PUB.Add_Exc_Msg
1202: -- Call OE_Pricing_Cont_PVT.Process_Pricing_Cont
1203:
1204: OE_Pricing_Cont_PVT.Process_Pricing_Cont
1205: ( p_api_version_number => 1.0
1206: , p_init_msg_list => FND_API.G_TRUE
1207: , x_return_status => l_return_status
1208: , x_msg_count => x_msg_count
1209: , x_msg_data => x_msg_data
1210: , p_control_rec => l_control_rec
1217: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
1218: , x_Price_Break_tbl => l_x_Price_Break_tbl
1219: );
1220:
1221: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1223: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1224: RAISE FND_API.G_EXC_ERROR;
1225: END IF;
1218: , x_Price_Break_tbl => l_x_Price_Break_tbl
1219: );
1220:
1221: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1223: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1224: RAISE FND_API.G_EXC_ERROR;
1225: END IF;
1226:
1219: );
1220:
1221: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1223: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1224: RAISE FND_API.G_EXC_ERROR;
1225: END IF;
1226:
1227:
1220:
1221: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1223: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1224: RAISE FND_API.G_EXC_ERROR;
1225: END IF;
1226:
1227:
1228: -- Set return status.
1226:
1227:
1228: -- Set return status.
1229:
1230: x_return_status := FND_API.G_RET_STS_SUCCESS;
1231:
1232: -- Get message count and data
1233:
1234: OE_MSG_PUB.Count_And_Get
1238:
1239:
1240: EXCEPTION
1241:
1242: WHEN FND_API.G_EXC_ERROR THEN
1243:
1244: x_return_status := FND_API.G_RET_STS_ERROR;
1245:
1246: -- Get message count and data
1240: EXCEPTION
1241:
1242: WHEN FND_API.G_EXC_ERROR THEN
1243:
1244: x_return_status := FND_API.G_RET_STS_ERROR;
1245:
1246: -- Get message count and data
1247:
1248: OE_MSG_PUB.Count_And_Get
1249: ( p_count => x_msg_count
1250: , p_data => x_msg_data
1251: );
1252:
1253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1254:
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1256:
1257: -- Get message count and data
1251: );
1252:
1253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1254:
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1256:
1257: -- Get message count and data
1258:
1259: OE_MSG_PUB.Count_And_Get
1262: );
1263:
1264: WHEN OTHERS THEN
1265:
1266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1267:
1268: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1269: THEN
1270: OE_MSG_PUB.Add_Exc_Msg
1363: -- Call OE_Pricing_Cont_PVT.Lock_Pricing_Cont
1364:
1365: OE_Pricing_Cont_PVT.Lock_Pricing_Cont
1366: ( p_api_version_number => 1.0
1367: , p_init_msg_list => FND_API.G_TRUE
1368: , x_return_status => l_return_status
1369: , x_msg_count => x_msg_count
1370: , x_msg_data => x_msg_data
1371: , p_Contract_rec => l_Contract_rec
1378: , x_Discount_Line_tbl => l_x_Discount_Line_tbl
1379: , x_Price_Break_tbl => l_x_Price_Break_tbl
1380: );
1381:
1382: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1383:
1384: -- Set DB flag and write record to cache.
1385:
1386: l_x_Contract_rec.db_flag := FND_API.G_TRUE;
1382: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1383:
1384: -- Set DB flag and write record to cache.
1385:
1386: l_x_Contract_rec.db_flag := FND_API.G_TRUE;
1387:
1388: Write_Contract
1389: ( p_Contract_rec => l_x_Contract_rec
1390: , p_db_record => TRUE
1415: , 'Lock_Row'
1416: );
1417: END IF;
1418:
1419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1420:
1421: -- Get message count and data
1422:
1423: OE_MSG_PUB.Count_And_Get
1464: g_Contract_rec := OE_Contract_Util.Query_Row
1465: ( p_pricing_contract_id => p_pricing_contract_id
1466: );
1467:
1468: g_Contract_rec.db_flag := FND_API.G_TRUE;
1469:
1470: -- Load DB record
1471:
1472: g_db_Contract_rec := g_Contract_rec;
1497: -- Revision Control S
1498: PROCEDURE Create_Revision (l_Agreement_Id IN NUMBER)
1499: IS
1500: BEGIN
1501: g_Revision_Change := FND_API.G_TRUE;
1502: g_Agreement_Id := l_Agreement_Id;
1503: --Validate_And_Write;
1504: --g_Revision_Change := FND_API.G_FALSE;
1505: END;
1500: BEGIN
1501: g_Revision_Change := FND_API.G_TRUE;
1502: g_Agreement_Id := l_Agreement_Id;
1503: --Validate_And_Write;
1504: --g_Revision_Change := FND_API.G_FALSE;
1505: END;
1506: -- Revision Control E
1507:
1508: END OE_OE_Form_Contract;