43: );
44:
45: -- Set record return status.
46:
47: l_Contract_rec.return_status := FND_API.G_RET_STS_SUCCESS;
48:
49: -- Prepare record.
50:
51: IF l_Contract_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
49: -- Prepare record.
50:
51: IF l_Contract_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
52:
53: l_Contract_rec.db_flag := FND_API.G_FALSE;
54:
55: -- Set missing old record elements to NULL.
56:
57: l_old_Contract_rec :=
60: ELSIF (l_Contract_rec.operation = OE_GLOBALS.G_OPR_UPDATE
61: OR l_Contract_rec.operation = OE_GLOBALS.G_OPR_DELETE )
62: THEN
63:
64: l_Contract_rec.db_flag := FND_API.G_TRUE;
65:
66: -- Query Old if missing
67:
68: IF l_old_Contract_rec.pricing_contract_id = FND_API.G_MISS_NUM
64: l_Contract_rec.db_flag := FND_API.G_TRUE;
65:
66: -- Query Old if missing
67:
68: IF l_old_Contract_rec.pricing_contract_id = FND_API.G_MISS_NUM
69: THEN
70:
71: l_old_Contract_rec := OE_Contract_Util.Query_Row
72: ( p_pricing_contract_id => l_Contract_rec.pricing_contract_id
99: IF l_control_rec.default_attributes
100: OR l_control_rec.change_attributes
101: THEN
102:
103: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
104:
105: OE_Validate_Contract.Attributes
106: ( x_return_status => l_return_status
107: , p_Contract_rec => l_Contract_rec
107: , p_Contract_rec => l_Contract_rec
108: , p_old_Contract_rec => l_old_Contract_rec
109: );
110:
111: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
108: , p_old_Contract_rec => l_old_Contract_rec
109: );
110:
111: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116:
109: );
110:
111: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116:
117: END IF;
110:
111: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116:
117: END IF;
118:
185: );
186:
187: END IF;
188:
189: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
191: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
186:
187: END IF;
188:
189: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
191: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
194:
187: END IF;
188:
189: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
191: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
194:
195: END IF;
188:
189: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
191: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
194:
195: END IF;
196:
238: oe_debug_pub.add('------------------------------------------------');
239:
240: EXCEPTION
241:
242: WHEN FND_API.G_EXC_ERROR THEN
243:
244: l_Contract_rec.return_status := FND_API.G_RET_STS_ERROR;
245: x_Contract_rec := l_Contract_rec;
246: x_old_Contract_rec := l_old_Contract_rec;
240: EXCEPTION
241:
242: WHEN FND_API.G_EXC_ERROR THEN
243:
244: l_Contract_rec.return_status := FND_API.G_RET_STS_ERROR;
245: x_Contract_rec := l_Contract_rec;
246: x_old_Contract_rec := l_old_Contract_rec;
247: RAISE;
248:
245: x_Contract_rec := l_Contract_rec;
246: x_old_Contract_rec := l_old_Contract_rec;
247: RAISE;
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250:
251: l_Contract_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: x_Contract_rec := l_Contract_rec;
253: x_old_Contract_rec := l_old_Contract_rec;
247: RAISE;
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250:
251: l_Contract_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: x_Contract_rec := l_Contract_rec;
253: x_old_Contract_rec := l_old_Contract_rec;
254:
255: RAISE;
263: , 'Contract'
264: );
265: END IF;
266:
267: l_Contract_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
268: x_Contract_rec := l_Contract_rec;
269: x_old_Contract_rec := l_old_Contract_rec;
270:
271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: l_Contract_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
268: x_Contract_rec := l_Contract_rec;
269: x_old_Contract_rec := l_old_Contract_rec;
270:
271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
272:
273: END Contract;
274: -- End Procedure not required
275: */
317: l_x_QUALIFIERS_val_tbl QP_Qualifier_Rules_PUB.Qualifiers_Val_Tbl_Type;
318: l_x_QUALIFIERS_rec QP_Qualifier_Rules_PUB.Qualifiers_Rec_Type ;
319: l_x_QUALIFIER_RULES_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Rec_Type ;
320: l_x_QUALIFIER_RULES_val_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Val_Rec_Type;
321: l_return_values VARCHAR2(1) := FND_API.G_FALSE;
322: l_commit VARCHAR2(1) := FND_API.G_FALSE;
323: l_msg_count NUMBER;
324: l_msg_data VARCHAR2(250);
325:
318: l_x_QUALIFIERS_rec QP_Qualifier_Rules_PUB.Qualifiers_Rec_Type ;
319: l_x_QUALIFIER_RULES_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Rec_Type ;
320: l_x_QUALIFIER_RULES_val_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Val_Rec_Type;
321: l_return_values VARCHAR2(1) := FND_API.G_FALSE;
322: l_commit VARCHAR2(1) := FND_API.G_FALSE;
323: l_msg_count NUMBER;
324: l_msg_data VARCHAR2(250);
325:
326: l_p_Agreement_rec OE_Pricing_Cont_PUB.Agreement_Rec_Type; --[prarasto]
337: );
338:
339: -- Set record return status.
340:
341: l_Agreement_rec.return_status := FND_API.G_RET_STS_SUCCESS;
342:
343: -- Prepare record.
344:
345: IF l_Agreement_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
343: -- Prepare record.
344:
345: IF l_Agreement_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
346:
347: l_Agreement_rec.db_flag := FND_API.G_FALSE;
348:
349: -- Set missing old record elements to NULL.
350:
351: l_old_Agreement_rec :=
354: ELSIF l_Agreement_rec.operation = OE_GLOBALS.G_OPR_UPDATE
355: OR l_Agreement_rec.operation = OE_GLOBALS.G_OPR_DELETE
356: THEN
357:
358: l_Agreement_rec.db_flag := FND_API.G_TRUE;
359:
360: -- Query Old if missing
361:
362: IF l_old_Agreement_rec.agreement_id = FND_API.G_MISS_NUM
358: l_Agreement_rec.db_flag := FND_API.G_TRUE;
359:
360: -- Query Old if missing
361:
362: IF l_old_Agreement_rec.agreement_id = FND_API.G_MISS_NUM
363: THEN
364:
365: l_old_Agreement_rec := OE_Agreement_Util.Query_Row
366: ( p_agreement_id => l_Agreement_rec.agreement_id
396: IF l_control_rec.default_attributes
397: OR l_control_rec.change_attributes
398: THEN
399:
400: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
401:
402: OE_Validate_Agreement.Attributes
403: ( x_return_status => l_return_status
404: , p_Agreement_rec => l_Agreement_rec
404: , p_Agreement_rec => l_Agreement_rec
405: , p_old_Agreement_rec => l_old_Agreement_rec
406: );
407:
408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
405: , p_old_Agreement_rec => l_old_Agreement_rec
406: );
407:
408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
413:
406: );
407:
408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
413:
414: END IF;
407:
408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
413:
414: END IF;
415:
490: END if;
491:
492: END IF;
493:
494: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
496: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
497: RAISE FND_API.G_EXC_ERROR;
498: END IF;
491:
492: END IF;
493:
494: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
496: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
497: RAISE FND_API.G_EXC_ERROR;
498: END IF;
499:
492: END IF;
493:
494: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
496: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
497: RAISE FND_API.G_EXC_ERROR;
498: END IF;
499:
500: END IF;
493:
494: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
496: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
497: RAISE FND_API.G_EXC_ERROR;
498: END IF;
499:
500: END IF;
501:
545: , p_Agreement_Lines_Delete_Flag => l_Agreement_Lines_Delete_Flag
546: );
547: /* Added following code for bug 2321498 */
548:
549: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
551: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
552: RAISE FND_API.G_EXC_ERROR;
553: END IF;
546: );
547: /* Added following code for bug 2321498 */
548:
549: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
551: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
552: RAISE FND_API.G_EXC_ERROR;
553: END IF;
554:
547: /* Added following code for bug 2321498 */
548:
549: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
551: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
552: RAISE FND_API.G_EXC_ERROR;
553: END IF;
554:
555: ELSE
548:
549: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
551: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
552: RAISE FND_API.G_EXC_ERROR;
553: END IF;
554:
555: ELSE
556:
591: ,l_return_status);
592:
593: oe_debug_pub.add('after update create_agr_qual');
594:
595: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
597: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
598: RAISE FND_API.G_EXC_ERROR;
599: END IF;
592:
593: oe_debug_pub.add('after update create_agr_qual');
594:
595: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
597: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
598: RAISE FND_API.G_EXC_ERROR;
599: END IF;
600:
593: oe_debug_pub.add('after update create_agr_qual');
594:
595: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
597: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
598: RAISE FND_API.G_EXC_ERROR;
599: END IF;
600:
601: END IF;
594:
595: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
597: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
598: RAISE FND_API.G_EXC_ERROR;
599: END IF;
600:
601: END IF;
602:
639: END IF;
640:
641: END IF;
642:
643: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
645: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
646: RAISE FND_API.G_EXC_ERROR;
647: END IF;
640:
641: END IF;
642:
643: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
645: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
646: RAISE FND_API.G_EXC_ERROR;
647: END IF;
648:
641: END IF;
642:
643: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
645: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
646: RAISE FND_API.G_EXC_ERROR;
647: END IF;
648:
649:
642:
643: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
645: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
646: RAISE FND_API.G_EXC_ERROR;
647: END IF;
648:
649:
650: /* Creating a quaklifier for a price list */
680: l_qualifiers_tbl(1) := l_qualifiers_rec;
681:
682: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
683: ( p_api_version_number => 1.0
684: , p_init_msg_list => FND_API.G_TRUE
685: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
686: , p_commit => FND_API.G_FALSE
687: , x_return_status => l_return_status
688: , x_msg_count => l_msg_count
681:
682: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
683: ( p_api_version_number => 1.0
684: , p_init_msg_list => FND_API.G_TRUE
685: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
686: , p_commit => FND_API.G_FALSE
687: , x_return_status => l_return_status
688: , x_msg_count => l_msg_count
689: , x_msg_data => l_msg_data
682: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
683: ( p_api_version_number => 1.0
684: , p_init_msg_list => FND_API.G_TRUE
685: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
686: , p_commit => FND_API.G_FALSE
687: , x_return_status => l_return_status
688: , x_msg_count => l_msg_count
689: , x_msg_data => l_msg_data
690: , p_control_rec => l_control_rec
702: null;
703:
704: END IF;
705:
706: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
709: RAISE FND_API.G_EXC_ERROR;
710: END IF;
703:
704: END IF;
705:
706: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
709: RAISE FND_API.G_EXC_ERROR;
710: END IF;
711:
704: END IF;
705:
706: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
709: RAISE FND_API.G_EXC_ERROR;
710: END IF;
711:
712:
705:
706: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
709: RAISE FND_API.G_EXC_ERROR;
710: END IF;
711:
712:
713: END IF;
723: oe_debug_pub.add('------------------------------------------------');
724:
725: EXCEPTION
726:
727: WHEN FND_API.G_EXC_ERROR THEN
728:
729: l_Agreement_rec.return_status := FND_API.G_RET_STS_ERROR;
730: x_Agreement_rec := l_Agreement_rec;
731: x_old_Agreement_rec := l_old_Agreement_rec;
725: EXCEPTION
726:
727: WHEN FND_API.G_EXC_ERROR THEN
728:
729: l_Agreement_rec.return_status := FND_API.G_RET_STS_ERROR;
730: x_Agreement_rec := l_Agreement_rec;
731: x_old_Agreement_rec := l_old_Agreement_rec;
732: RAISE;
733:
730: x_Agreement_rec := l_Agreement_rec;
731: x_old_Agreement_rec := l_old_Agreement_rec;
732: RAISE;
733:
734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
735:
736: l_Agreement_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
737: x_Agreement_rec := l_Agreement_rec;
738: x_old_Agreement_rec := l_old_Agreement_rec;
732: RAISE;
733:
734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
735:
736: l_Agreement_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
737: x_Agreement_rec := l_Agreement_rec;
738: x_old_Agreement_rec := l_old_Agreement_rec;
739:
740: RAISE;
748: , 'Agreement'
749: );
750: END IF;
751:
752: l_Agreement_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753: x_Agreement_rec := l_Agreement_rec;
754: x_old_Agreement_rec := l_old_Agreement_rec;
755:
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
752: l_Agreement_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753: x_Agreement_rec := l_Agreement_rec;
754: x_old_Agreement_rec := l_old_Agreement_rec;
755:
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757:
758: END Agreement;
759:
760: -- Price_Lheader
784: l_control_rec := OE_GLOBALS.Init_Control_Rec
785: ( p_operation => l_Price_LHeader_rec.operation
786: , p_control_rec => p_control_rec
787: );
788: l_Price_LHeader_rec.return_status := FND_API.G_RET_STS_SUCCESS;
789:
790: -- Set record return status.
791:
792:
793: -- Prepare record.
794:
795: IF l_Price_LHeader_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
796:
797: l_Price_LHeader_rec.db_flag := FND_API.G_FALSE;
798:
799: -- Set missing old record elements to NULL.
800:
801: l_old_Price_LHeader_rec :=
804: ELSIF l_Price_LHeader_rec.operation = OE_GLOBALS.G_OPR_UPDATE
805: OR l_Price_LHeader_rec.operation = OE_GLOBALS.G_OPR_DELETE
806: THEN
807:
808: l_Price_LHeader_rec.db_flag := FND_API.G_TRUE;
809:
810: -- Query Old if missing
811:
812: IF l_old_Price_LHeader_rec.name = FND_API.G_MISS_CHAR
808: l_Price_LHeader_rec.db_flag := FND_API.G_TRUE;
809:
810: -- Query Old if missing
811:
812: IF l_old_Price_LHeader_rec.name = FND_API.G_MISS_CHAR
813: OR l_old_Price_LHeader_rec.price_list_id = FND_API.G_MISS_NUM
814: THEN
815:
816: l_old_Price_LHeader_rec := OE_Price_List_Util.Query_Row
809:
810: -- Query Old if missing
811:
812: IF l_old_Price_LHeader_rec.name = FND_API.G_MISS_CHAR
813: OR l_old_Price_LHeader_rec.price_list_id = FND_API.G_MISS_NUM
814: THEN
815:
816: l_old_Price_LHeader_rec := OE_Price_List_Util.Query_Row
817: ( p_name => l_Price_LHeader_rec.name ,
845: IF l_control_rec.default_attributes
846: OR l_control_rec.change_attributes
847: THEN
848:
849: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
850:
851: OE_Validate_Price_List.Attributes
852: ( x_return_status => l_return_status
853: , p_Price_LIST_rec => l_Price_LHeader_rec
853: , p_Price_LIST_rec => l_Price_LHeader_rec
854: , p_old_Price_LIST_rec => l_old_Price_LHeader_rec
855: );
856:
857: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
859: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
860: RAISE FND_API.G_EXC_ERROR;
861: END IF;
854: , p_old_Price_LIST_rec => l_old_Price_LHeader_rec
855: );
856:
857: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
859: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
860: RAISE FND_API.G_EXC_ERROR;
861: END IF;
862:
855: );
856:
857: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
859: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
860: RAISE FND_API.G_EXC_ERROR;
861: END IF;
862:
863: END IF;
856:
857: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
859: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
860: RAISE FND_API.G_EXC_ERROR;
861: END IF;
862:
863: END IF;
864:
928: );
929:
930: END IF;
931:
932: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
934: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
929:
930: END IF;
931:
932: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
934: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937:
930: END IF;
931:
932: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
934: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937:
938: END IF;
931:
932: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
934: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937:
938: END IF;
939:
983: oe_debug_pub.add('------------------------------------------------');
984:
985: EXCEPTION
986:
987: WHEN FND_API.G_EXC_ERROR THEN
988:
989: l_Price_LHeader_rec.return_status := FND_API.G_RET_STS_ERROR;
990: x_Price_LHeader_rec := l_Price_LHeader_rec;
991: x_old_Price_LHeader_rec := l_old_Price_LHeader_rec;
985: EXCEPTION
986:
987: WHEN FND_API.G_EXC_ERROR THEN
988:
989: l_Price_LHeader_rec.return_status := FND_API.G_RET_STS_ERROR;
990: x_Price_LHeader_rec := l_Price_LHeader_rec;
991: x_old_Price_LHeader_rec := l_old_Price_LHeader_rec;
992: RAISE;
993:
990: x_Price_LHeader_rec := l_Price_LHeader_rec;
991: x_old_Price_LHeader_rec := l_old_Price_LHeader_rec;
992: RAISE;
993:
994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
995:
996: l_Price_LHeader_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
997: x_Price_LHeader_rec := l_Price_LHeader_rec;
998: x_old_Price_LHeader_rec := l_old_Price_LHeader_rec;
992: RAISE;
993:
994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
995:
996: l_Price_LHeader_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
997: x_Price_LHeader_rec := l_Price_LHeader_rec;
998: x_old_Price_LHeader_rec := l_old_Price_LHeader_rec;
999:
1000: RAISE;
1008: , 'Price_Lheader'
1009: );
1010: END IF;
1011:
1012: l_Price_LHeader_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1013: x_Price_LHeader_rec := l_Price_LHeader_rec;
1014: x_old_Price_LHeader_rec := l_old_Price_LHeader_rec;
1015:
1016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012: l_Price_LHeader_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1013: x_Price_LHeader_rec := l_Price_LHeader_rec;
1014: x_old_Price_LHeader_rec := l_old_Price_LHeader_rec;
1015:
1016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1017:
1018: END Price_Lheader;
1019:
1020:
1071: );
1072:
1073: -- Set record return status.
1074:
1075: l_Price_LLine_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1076:
1077: -- Prepare record.
1078:
1079: IF l_Price_LLine_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1077: -- Prepare record.
1078:
1079: IF l_Price_LLine_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1080:
1081: l_Price_LLine_rec.db_flag := FND_API.G_FALSE;
1082:
1083: -- Set missing old record elements to NULL.
1084:
1085: l_old_Price_LLine_rec :=
1088: ELSIF l_Price_LLine_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1089: OR l_Price_LLine_rec.operation = OE_GLOBALS.G_OPR_DELETE
1090: THEN
1091:
1092: l_Price_LLine_rec.db_flag := FND_API.G_TRUE;
1093:
1094: -- Query Old if missing
1095:
1096: IF l_old_Price_LLine_rec.price_list_line_id = FND_API.G_MISS_NUM
1092: l_Price_LLine_rec.db_flag := FND_API.G_TRUE;
1093:
1094: -- Query Old if missing
1095:
1096: IF l_old_Price_LLine_rec.price_list_line_id = FND_API.G_MISS_NUM
1097: THEN
1098:
1099: l_old_Price_LLine_rec := OE_Price_List_Line_Util.Query_Row
1100: ( p_price_list_line_id => l_Price_LLine_rec.price_list_line_id
1127: IF l_control_rec.default_attributes
1128: OR l_control_rec.change_attributes
1129: THEN
1130:
1131: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1132:
1133: OE_Validate_Price_List_Line.Attributes
1134: ( x_return_status => l_return_status
1135: , p_PRICE_LIST_LINE_rec => l_Price_LLine_rec
1135: , p_PRICE_LIST_LINE_rec => l_Price_LLine_rec
1136: , p_old_PRICE_LIST_LINE_rec => l_old_Price_LLine_rec
1137: );
1138:
1139: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1141: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1142: RAISE FND_API.G_EXC_ERROR;
1143: END IF;
1136: , p_old_PRICE_LIST_LINE_rec => l_old_Price_LLine_rec
1137: );
1138:
1139: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1141: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1142: RAISE FND_API.G_EXC_ERROR;
1143: END IF;
1144:
1137: );
1138:
1139: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1141: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1142: RAISE FND_API.G_EXC_ERROR;
1143: END IF;
1144:
1145: END IF;
1138:
1139: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1141: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1142: RAISE FND_API.G_EXC_ERROR;
1143: END IF;
1144:
1145: END IF;
1146:
1211: );
1212:
1213: END IF;
1214:
1215: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: END IF;
1212:
1213: END IF;
1214:
1215: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: END IF;
1220:
1213: END IF;
1214:
1215: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: END IF;
1220:
1221: END IF;
1214:
1215: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: END IF;
1220:
1221: END IF;
1222:
1266: -- For loop exception handler.
1267:
1268: EXCEPTION
1269:
1270: WHEN FND_API.G_EXC_ERROR THEN
1271:
1272: l_Price_LLine_rec.return_status := FND_API.G_RET_STS_ERROR;
1273: l_Price_LLine_tbl(I) := l_Price_LLine_rec;
1274: l_old_Price_LLine_tbl(I) := l_old_Price_LLine_rec;
1268: EXCEPTION
1269:
1270: WHEN FND_API.G_EXC_ERROR THEN
1271:
1272: l_Price_LLine_rec.return_status := FND_API.G_RET_STS_ERROR;
1273: l_Price_LLine_tbl(I) := l_Price_LLine_rec;
1274: l_old_Price_LLine_tbl(I) := l_old_Price_LLine_rec;
1275:
1276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1272: l_Price_LLine_rec.return_status := FND_API.G_RET_STS_ERROR;
1273: l_Price_LLine_tbl(I) := l_Price_LLine_rec;
1274: l_old_Price_LLine_tbl(I) := l_old_Price_LLine_rec;
1275:
1276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1277:
1278: l_Price_LLine_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1279: l_Price_LLine_tbl(I) := l_Price_LLine_rec;
1280: l_old_Price_LLine_tbl(I) := l_old_Price_LLine_rec;
1274: l_old_Price_LLine_tbl(I) := l_old_Price_LLine_rec;
1275:
1276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1277:
1278: l_Price_LLine_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1279: l_Price_LLine_tbl(I) := l_Price_LLine_rec;
1280: l_old_Price_LLine_tbl(I) := l_old_Price_LLine_rec;
1281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1282:
1277:
1278: l_Price_LLine_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1279: l_Price_LLine_tbl(I) := l_Price_LLine_rec;
1280: l_old_Price_LLine_tbl(I) := l_old_Price_LLine_rec;
1281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1282:
1283: WHEN OTHERS THEN
1284:
1285: l_Price_LLine_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1282:
1283: WHEN OTHERS THEN
1284:
1285: l_Price_LLine_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1286: l_Price_LLine_tbl(I) := l_Price_LLine_rec;
1287: l_old_Price_LLine_tbl(I) := l_old_Price_LLine_rec;
1288:
1289: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1293: , 'Price_Llines'
1294: );
1295: END IF;
1296:
1297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1298:
1299: END;
1300: END LOOP;
1301:
1308: oe_debug_pub.add('------------------------------------------------');
1309:
1310: EXCEPTION
1311:
1312: WHEN FND_API.G_EXC_ERROR THEN
1313:
1314: RAISE;
1315:
1316: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1312: WHEN FND_API.G_EXC_ERROR THEN
1313:
1314: RAISE;
1315:
1316: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1317:
1318:
1319: RAISE;
1320:
1328: );
1329: END IF;
1330:
1331:
1332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333:
1334: END Price_Llines;
1335:
1336: -- Price_Breaks
1384: );
1385:
1386: -- Set record return status.
1387:
1388: l_Price_Break_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1389:
1390: -- Prepare record.
1391:
1392: IF l_Price_Break_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1390: -- Prepare record.
1391:
1392: IF l_Price_Break_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1393:
1394: l_Price_Break_rec.db_flag := FND_API.G_FALSE;
1395:
1396: -- Set missing old record elements to NULL.
1397:
1398: l_old_Price_Break_rec :=
1401: ELSIF l_Price_Break_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1402: OR l_Price_Break_rec.operation = OE_GLOBALS.G_OPR_DELETE
1403: THEN
1404:
1405: l_Price_Break_rec.db_flag := FND_API.G_TRUE;
1406:
1407: -- Query Old if missing
1408:
1409: IF l_old_Price_Break_rec.discount_line_id = FND_API.G_MISS_NUM
1405: l_Price_Break_rec.db_flag := FND_API.G_TRUE;
1406:
1407: -- Query Old if missing
1408:
1409: IF l_old_Price_Break_rec.discount_line_id = FND_API.G_MISS_NUM
1410: OR l_old_Price_Break_rec.method_type_code = FND_API.G_MISS_CHAR
1411: OR l_old_Price_Break_rec.price_break_high = FND_API.G_MISS_NUM
1412: OR l_old_Price_Break_rec.price_break_low = FND_API.G_MISS_NUM
1413: THEN
1406:
1407: -- Query Old if missing
1408:
1409: IF l_old_Price_Break_rec.discount_line_id = FND_API.G_MISS_NUM
1410: OR l_old_Price_Break_rec.method_type_code = FND_API.G_MISS_CHAR
1411: OR l_old_Price_Break_rec.price_break_high = FND_API.G_MISS_NUM
1412: OR l_old_Price_Break_rec.price_break_low = FND_API.G_MISS_NUM
1413: THEN
1414: NULL;
1407: -- Query Old if missing
1408:
1409: IF l_old_Price_Break_rec.discount_line_id = FND_API.G_MISS_NUM
1410: OR l_old_Price_Break_rec.method_type_code = FND_API.G_MISS_CHAR
1411: OR l_old_Price_Break_rec.price_break_high = FND_API.G_MISS_NUM
1412: OR l_old_Price_Break_rec.price_break_low = FND_API.G_MISS_NUM
1413: THEN
1414: NULL;
1415: /*
1408:
1409: IF l_old_Price_Break_rec.discount_line_id = FND_API.G_MISS_NUM
1410: OR l_old_Price_Break_rec.method_type_code = FND_API.G_MISS_CHAR
1411: OR l_old_Price_Break_rec.price_break_high = FND_API.G_MISS_NUM
1412: OR l_old_Price_Break_rec.price_break_low = FND_API.G_MISS_NUM
1413: THEN
1414: NULL;
1415: /*
1416: l_old_Price_Break_rec := OE_Price_Break_Util.Query_Row
1447: IF l_control_rec.default_attributes
1448: OR l_control_rec.change_attributes
1449: THEN
1450:
1451: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1452:
1453: OE_Validate_Price_Break.Attributes
1454: ( x_return_status => l_return_status
1455: , p_Price_Break_rec => l_Price_Break_rec
1455: , p_Price_Break_rec => l_Price_Break_rec
1456: , p_old_Price_Break_rec => l_old_Price_Break_rec
1457: );
1458:
1459: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1462: RAISE FND_API.G_EXC_ERROR;
1463: END IF;
1456: , p_old_Price_Break_rec => l_old_Price_Break_rec
1457: );
1458:
1459: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1462: RAISE FND_API.G_EXC_ERROR;
1463: END IF;
1464:
1457: );
1458:
1459: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1462: RAISE FND_API.G_EXC_ERROR;
1463: END IF;
1464:
1465: END IF;
1458:
1459: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1462: RAISE FND_API.G_EXC_ERROR;
1463: END IF;
1464:
1465: END IF;
1466:
1536: */
1537:
1538: END IF;
1539:
1540: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1543: RAISE FND_API.G_EXC_ERROR;
1544: END IF;
1537:
1538: END IF;
1539:
1540: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1543: RAISE FND_API.G_EXC_ERROR;
1544: END IF;
1545:
1538: END IF;
1539:
1540: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1543: RAISE FND_API.G_EXC_ERROR;
1544: END IF;
1545:
1546: END IF;
1539:
1540: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1543: RAISE FND_API.G_EXC_ERROR;
1544: END IF;
1545:
1546: END IF;
1547:
1599:
1600:
1601: EXCEPTION
1602:
1603: WHEN FND_API.G_EXC_ERROR THEN
1604:
1605: l_Price_Break_rec.return_status := FND_API.G_RET_STS_ERROR;
1606: l_Price_Break_tbl(I) := l_Price_Break_rec;
1607: l_old_Price_Break_tbl(I) := l_old_Price_Break_rec;
1601: EXCEPTION
1602:
1603: WHEN FND_API.G_EXC_ERROR THEN
1604:
1605: l_Price_Break_rec.return_status := FND_API.G_RET_STS_ERROR;
1606: l_Price_Break_tbl(I) := l_Price_Break_rec;
1607: l_old_Price_Break_tbl(I) := l_old_Price_Break_rec;
1608:
1609: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1605: l_Price_Break_rec.return_status := FND_API.G_RET_STS_ERROR;
1606: l_Price_Break_tbl(I) := l_Price_Break_rec;
1607: l_old_Price_Break_tbl(I) := l_old_Price_Break_rec;
1608:
1609: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1610:
1611: l_Price_Break_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1612: l_Price_Break_tbl(I) := l_Price_Break_rec;
1613: l_old_Price_Break_tbl(I) := l_old_Price_Break_rec;
1607: l_old_Price_Break_tbl(I) := l_old_Price_Break_rec;
1608:
1609: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1610:
1611: l_Price_Break_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1612: l_Price_Break_tbl(I) := l_Price_Break_rec;
1613: l_old_Price_Break_tbl(I) := l_old_Price_Break_rec;
1614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1615:
1610:
1611: l_Price_Break_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1612: l_Price_Break_tbl(I) := l_Price_Break_rec;
1613: l_old_Price_Break_tbl(I) := l_old_Price_Break_rec;
1614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1615:
1616: WHEN OTHERS THEN
1617:
1618: l_Price_Break_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1615:
1616: WHEN OTHERS THEN
1617:
1618: l_Price_Break_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1619: l_Price_Break_tbl(I) := l_Price_Break_rec;
1620: l_old_Price_Break_tbl(I) := l_old_Price_Break_rec;
1621:
1622: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1626: , 'Price_Breaks'
1627: );
1628: END IF;
1629:
1630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1631:
1632: END;
1633: END LOOP;
1634:
1641: oe_debug_pub.add('------------------------------------------------');
1642:
1643: EXCEPTION
1644:
1645: WHEN FND_API.G_EXC_ERROR THEN
1646:
1647: RAISE;
1648:
1649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1645: WHEN FND_API.G_EXC_ERROR THEN
1646:
1647: RAISE;
1648:
1649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1650:
1651:
1652: RAISE;
1653:
1661: );
1662: END IF;
1663:
1664:
1665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1666:
1667: END Price_Breaks;
1668:
1669: -- Start of Comments
1683: -- End of Comments
1684:
1685: PROCEDURE Process_Pricing_Cont
1686: ( p_api_version_number IN NUMBER
1687: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1688: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1689: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1690: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
1691: OE_GLOBALS.G_MISS_CONTROL_REC
1684:
1685: PROCEDURE Process_Pricing_Cont
1686: ( p_api_version_number IN NUMBER
1687: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1688: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1689: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1690: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
1691: OE_GLOBALS.G_MISS_CONTROL_REC
1692: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1685: PROCEDURE Process_Pricing_Cont
1686: ( p_api_version_number IN NUMBER
1687: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1688: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1689: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1690: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
1691: OE_GLOBALS.G_MISS_CONTROL_REC
1692: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1693: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1778: l_x_QUALIFIERS_rec QP_Qualifier_Rules_PUB.Qualifiers_Rec_Type ;
1779: l_x_QUALIFIER_RULES_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Rec_Type ;
1780: l_x_QUALIFIER_RULES_val_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Val_Rec_Type;
1781: */
1782: l_return_values VARCHAR2(1) := FND_API.G_FALSE;
1783: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1784: NO_UPDATE_PRIVILEGE EXCEPTION;
1785:
1786: l_p_Agreement_rec OE_Pricing_Cont_PUB.Agreement_Rec_Type; --[prarasto]
1779: l_x_QUALIFIER_RULES_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Rec_Type ;
1780: l_x_QUALIFIER_RULES_val_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Val_Rec_Type;
1781: */
1782: l_return_values VARCHAR2(1) := FND_API.G_FALSE;
1783: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1784: NO_UPDATE_PRIVILEGE EXCEPTION;
1785:
1786: l_p_Agreement_rec OE_Pricing_Cont_PUB.Agreement_Rec_Type; --[prarasto]
1787: l_p_old_Agreement_rec OE_Pricing_Cont_PUB.Agreement_Rec_Type; --[prarasto]
1798: oe_debug_pub.add('Entring Process_Pricing_Cont');
1799:
1800: -- Standard call to check for call compatibility
1801:
1802: IF NOT FND_API.Compatible_API_Call
1803: ( l_api_version_number
1804: , p_api_version_number
1805: , l_api_name
1806: , G_PKG_NAME
1805: , l_api_name
1806: , G_PKG_NAME
1807: )
1808: THEN
1809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1810: END IF;
1811:
1812:
1813: IF p_Agreement_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
1828: END IF;
1829: END IF;
1830: -- Initialize message list.
1831:
1832: IF FND_API.to_Boolean(p_init_msg_list) THEN
1833: OE_MSG_PUB.initialize;
1834: END IF;
1835:
1836: -- Init local table variables.
1884: -- Load parent key if missing and operation is create.
1885:
1886: IF l_Agreement_rec.operation = OE_GLOBALS.G_OPR_CREATE
1887: AND (l_Agreement_rec.pricing_contract_id IS NULL OR
1888: l_Agreement_rec.pricing_contract_id = FND_API.G_MISS_NUM)
1889: THEN
1890:
1891: -- Copy parent_id.
1892:
1892:
1893: l_Agreement_rec.pricing_contract_id := l_Contract_rec.pricing_contract_id;
1894: END IF;
1895:
1896: if (l_Contract_rec.agreement_Id IS NOT NULL AND l_Contract_rec.agreement_Id <> FND_API.G_MISS_NUM)
1897: THEN
1898: l_Agreement_rec.agreement_id := l_Contract_rec.agreement_id;
1899: END IF;
1900:
1935: -- Load parent key if missing and operation is create.
1936:
1937: IF l_Price_LHeader_rec.operation = OE_GLOBALS.G_OPR_CREATE
1938: AND (l_Price_LHeader_rec.pricing_contract_id IS NULL OR
1939: l_Price_LHeader_rec.pricing_contract_id = FND_API.G_MISS_NUM)
1940: THEN
1941:
1942: -- Copy parent_id.
1943:
1973: -- Load parent key if missing and operation is create.
1974:
1975: IF l_Discount_Header_rec.operation = OE_GLOBALS.G_OPR_CREATE
1976: AND (l_Discount_Header_rec.pricing_contract_id IS NULL OR
1977: l_Discount_Header_rec.pricing_contract_id = FND_API.G_MISS_NUM)
1978: THEN
1979:
1980: -- Copy parent_id.
1981:
1981:
1982: l_Discount_Header_rec.pricing_contract_id := l_Contract_rec.pricing_contract_id;
1983: END IF;
1984:
1985: if (l_Contract_rec.discount_Id IS NOT NULL AND l_Contract_rec.discount_Id <> FND_API.G_MISS_NUM)
1986: THEN
1987: l_Discount_Header_rec.discount_id := l_Contract_rec.discount_id;
1988: END IF;
1989:
2022: l_Price_LLine_rec := l_Price_LLine_tbl(I);
2023:
2024: IF l_Price_LLine_rec.operation = OE_GLOBALS.G_OPR_CREATE
2025: AND (l_Price_LLine_rec.price_list_id IS NULL OR
2026: l_Price_LLine_rec.price_list_id = FND_API.G_MISS_NUM)
2027: THEN
2028:
2029: -- Copy parent_id.
2030:
2064: l_Discount_Cust_rec := l_Discount_Cust_tbl(I);
2065:
2066: IF l_Discount_Cust_rec.operation = OE_GLOBALS.G_OPR_CREATE
2067: AND (l_Discount_Cust_rec.discount_id IS NULL OR
2068: l_Discount_Cust_rec.discount_id = FND_API.G_MISS_NUM)
2069: THEN
2070:
2071: -- Copy parent_id.
2072:
2107: l_Discount_Line_rec := l_Discount_Line_tbl(I);
2108:
2109: IF l_Discount_Line_rec.operation = OE_GLOBALS.G_OPR_CREATE
2110: AND (l_Discount_Line_rec.discount_id IS NULL OR
2111: l_Discount_Line_rec.discount_id = FND_API.G_MISS_NUM)
2112: THEN
2113:
2114: -- Copy parent_id.
2115:
2150: l_Price_Break_rec := l_Price_Break_tbl(I);
2151:
2152: IF l_Price_Break_rec.operation = OE_GLOBALS.G_OPR_CREATE
2153: AND (l_Price_Break_rec.discount_line_id IS NULL OR
2154: l_Price_Break_rec.discount_line_id = FND_API.G_MISS_NUM)
2155: THEN
2156:
2157: -- Check If parent exists.
2158:
2246: -- Derive return status.
2247:
2248:
2249:
2250: IF l_Contract_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2251: x_return_status := FND_API.G_RET_STS_ERROR;
2252: END IF;
2253:
2254: IF l_Agreement_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2247:
2248:
2249:
2250: IF l_Contract_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2251: x_return_status := FND_API.G_RET_STS_ERROR;
2252: END IF;
2253:
2254: IF l_Agreement_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2255: x_return_status := FND_API.G_RET_STS_ERROR;
2250: IF l_Contract_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2251: x_return_status := FND_API.G_RET_STS_ERROR;
2252: END IF;
2253:
2254: IF l_Agreement_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2255: x_return_status := FND_API.G_RET_STS_ERROR;
2256: END IF;
2257:
2258: IF l_Price_LHeader_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2251: x_return_status := FND_API.G_RET_STS_ERROR;
2252: END IF;
2253:
2254: IF l_Agreement_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2255: x_return_status := FND_API.G_RET_STS_ERROR;
2256: END IF;
2257:
2258: IF l_Price_LHeader_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2259: x_return_status := FND_API.G_RET_STS_ERROR;
2254: IF l_Agreement_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2255: x_return_status := FND_API.G_RET_STS_ERROR;
2256: END IF;
2257:
2258: IF l_Price_LHeader_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2259: x_return_status := FND_API.G_RET_STS_ERROR;
2260: END IF;
2261:
2262: IF l_Discount_Header_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2255: x_return_status := FND_API.G_RET_STS_ERROR;
2256: END IF;
2257:
2258: IF l_Price_LHeader_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2259: x_return_status := FND_API.G_RET_STS_ERROR;
2260: END IF;
2261:
2262: IF l_Discount_Header_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2263: x_return_status := FND_API.G_RET_STS_ERROR;
2258: IF l_Price_LHeader_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2259: x_return_status := FND_API.G_RET_STS_ERROR;
2260: END IF;
2261:
2262: IF l_Discount_Header_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2263: x_return_status := FND_API.G_RET_STS_ERROR;
2264: END IF;
2265:
2266: FOR I IN 1..l_Price_LLine_tbl.COUNT LOOP
2259: x_return_status := FND_API.G_RET_STS_ERROR;
2260: END IF;
2261:
2262: IF l_Discount_Header_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2263: x_return_status := FND_API.G_RET_STS_ERROR;
2264: END IF;
2265:
2266: FOR I IN 1..l_Price_LLine_tbl.COUNT LOOP
2267:
2264: END IF;
2265:
2266: FOR I IN 1..l_Price_LLine_tbl.COUNT LOOP
2267:
2268: IF l_Price_LLine_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2269: x_return_status := FND_API.G_RET_STS_ERROR;
2270: END IF;
2271:
2272: END LOOP;
2265:
2266: FOR I IN 1..l_Price_LLine_tbl.COUNT LOOP
2267:
2268: IF l_Price_LLine_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2269: x_return_status := FND_API.G_RET_STS_ERROR;
2270: END IF;
2271:
2272: END LOOP;
2273:
2272: END LOOP;
2273:
2274: FOR I IN 1..l_Discount_Cust_tbl.COUNT LOOP
2275:
2276: IF l_Discount_Cust_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2277: x_return_status := FND_API.G_RET_STS_ERROR;
2278: END IF;
2279:
2280: END LOOP;
2273:
2274: FOR I IN 1..l_Discount_Cust_tbl.COUNT LOOP
2275:
2276: IF l_Discount_Cust_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2277: x_return_status := FND_API.G_RET_STS_ERROR;
2278: END IF;
2279:
2280: END LOOP;
2281:
2280: END LOOP;
2281:
2282: FOR I IN 1..l_Discount_Line_tbl.COUNT LOOP
2283:
2284: IF l_Discount_Line_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2285: x_return_status := FND_API.G_RET_STS_ERROR;
2286: END IF;
2287:
2288: END LOOP;
2281:
2282: FOR I IN 1..l_Discount_Line_tbl.COUNT LOOP
2283:
2284: IF l_Discount_Line_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2285: x_return_status := FND_API.G_RET_STS_ERROR;
2286: END IF;
2287:
2288: END LOOP;
2289:
2288: END LOOP;
2289:
2290: FOR I IN 1..l_Price_Break_tbl.COUNT LOOP
2291:
2292: IF l_Price_Break_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2293: x_return_status := FND_API.G_RET_STS_ERROR;
2294: END IF;
2295:
2296: END LOOP;
2289:
2290: FOR I IN 1..l_Price_Break_tbl.COUNT LOOP
2291:
2292: IF l_Price_Break_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2293: x_return_status := FND_API.G_RET_STS_ERROR;
2294: END IF;
2295:
2296: END LOOP;
2297:
2305: oe_debug_pub.add('Exiting Process_Pricing_Cont');
2306:
2307: EXCEPTION
2308:
2309: WHEN FND_API.G_EXC_ERROR THEN
2310:
2311: x_return_status := FND_API.G_RET_STS_ERROR;
2312:
2313: -- Get message count and data
2307: EXCEPTION
2308:
2309: WHEN FND_API.G_EXC_ERROR THEN
2310:
2311: x_return_status := FND_API.G_RET_STS_ERROR;
2312:
2313: -- Get message count and data
2314:
2315: OE_MSG_PUB.Count_And_Get
2316: ( p_count => x_msg_count
2317: , p_data => x_msg_data
2318: );
2319:
2320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2321:
2322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2323:
2324: -- Get message count and data
2318: );
2319:
2320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2321:
2322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2323:
2324: -- Get message count and data
2325:
2326: OE_MSG_PUB.Count_And_Get
2328: , p_data => x_msg_data
2329: );
2330:
2331: WHEN NO_UPDATE_PRIVILEGE THEN
2332: x_return_status := FND_API.G_RET_STS_SUCCESS;
2333:
2334: -- Get message count and data
2335:
2336: oe_msg_pub.Count_And_Get
2340:
2341:
2342: WHEN OTHERS THEN
2343:
2344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2345:
2346: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2347: THEN
2348: OE_MSG_PUB.Add_Exc_Msg
2377: -- End of Comments
2378:
2379: PROCEDURE Lock_Pricing_Cont
2380: ( p_api_version_number IN NUMBER
2381: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2382: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2383: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
2384: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2385: , p_Contract_rec IN OE_Pricing_Cont_PUB.Contract_Rec_Type :=
2409: )
2410: IS
2411: l_api_version_number CONSTANT NUMBER := 1.0;
2412: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Pricing_Cont';
2413: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2414: l_Price_LLine_rec OE_Price_List_PUB.Price_List_Line_Rec_Type;
2415: l_Discount_Cust_rec OE_Pricing_Cont_PUB.Discount_Cust_Rec_Type;
2416: l_Discount_Line_rec OE_Pricing_Cont_PUB.Discount_Line_Rec_Type;
2417: l_Price_Break_rec OE_Pricing_Cont_PUB.Price_Break_Rec_Type;
2418: BEGIN
2419:
2420: -- Standard call to check for call compatibility
2421:
2422: IF NOT FND_API.Compatible_API_Call
2423: ( l_api_version_number
2424: , p_api_version_number
2425: , l_api_name
2426: , G_PKG_NAME
2425: , l_api_name
2426: , G_PKG_NAME
2427: )
2428: THEN
2429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2430: END IF;
2431:
2432: -- Initialize message list.
2433:
2430: END IF;
2431:
2432: -- Initialize message list.
2433:
2434: IF FND_API.to_Boolean(p_init_msg_list) THEN
2435: OE_MSG_PUB.initialize;
2436: END IF;
2437:
2438: -- Set Savepoint
2448: , x_Contract_rec => x_Contract_rec
2449: , x_return_status => l_return_status
2450: );
2451:
2452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2454: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2455: RAISE FND_API.G_EXC_ERROR;
2456: END IF;
2449: , x_return_status => l_return_status
2450: );
2451:
2452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2454: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2455: RAISE FND_API.G_EXC_ERROR;
2456: END IF;
2457:
2450: );
2451:
2452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2454: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2455: RAISE FND_API.G_EXC_ERROR;
2456: END IF;
2457:
2458:
2451:
2452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2454: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2455: RAISE FND_API.G_EXC_ERROR;
2456: END IF;
2457:
2458:
2459: END IF;
2467: , x_Agreement_rec => x_Agreement_rec
2468: , x_return_status => l_return_status
2469: );
2470:
2471: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2473: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2474: RAISE FND_API.G_EXC_ERROR;
2475: END IF;
2468: , x_return_status => l_return_status
2469: );
2470:
2471: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2473: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2474: RAISE FND_API.G_EXC_ERROR;
2475: END IF;
2476:
2469: );
2470:
2471: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2473: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2474: RAISE FND_API.G_EXC_ERROR;
2475: END IF;
2476:
2477:
2470:
2471: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2473: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2474: RAISE FND_API.G_EXC_ERROR;
2475: END IF;
2476:
2477:
2478: END IF;
2486: , x_Price_LIST_rec => x_Price_LHeader_rec
2487: , x_return_status => l_return_status
2488: );
2489:
2490: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2492: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2493: RAISE FND_API.G_EXC_ERROR;
2494: END IF;
2487: , x_return_status => l_return_status
2488: );
2489:
2490: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2492: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2493: RAISE FND_API.G_EXC_ERROR;
2494: END IF;
2495:
2488: );
2489:
2490: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2492: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2493: RAISE FND_API.G_EXC_ERROR;
2494: END IF;
2495:
2496:
2489:
2490: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2492: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2493: RAISE FND_API.G_EXC_ERROR;
2494: END IF;
2495:
2496:
2497: END IF;
2505: , x_Discount_Header_rec => x_Discount_Header_rec
2506: , x_return_status => l_return_status
2507: );
2508:
2509: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2511: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2512: RAISE FND_API.G_EXC_ERROR;
2513: END IF;
2506: , x_return_status => l_return_status
2507: );
2508:
2509: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2511: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2512: RAISE FND_API.G_EXC_ERROR;
2513: END IF;
2514:
2507: );
2508:
2509: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2511: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2512: RAISE FND_API.G_EXC_ERROR;
2513: END IF;
2514:
2515:
2508:
2509: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2511: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2512: RAISE FND_API.G_EXC_ERROR;
2513: END IF;
2514:
2515:
2516: END IF;
2526: , x_PRICE_LIST_LINE_rec => l_Price_LLine_rec
2527: , x_return_status => l_return_status
2528: );
2529:
2530: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2532: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2533: RAISE FND_API.G_EXC_ERROR;
2534: END IF;
2527: , x_return_status => l_return_status
2528: );
2529:
2530: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2532: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2533: RAISE FND_API.G_EXC_ERROR;
2534: END IF;
2535:
2528: );
2529:
2530: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2532: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2533: RAISE FND_API.G_EXC_ERROR;
2534: END IF;
2535:
2536: x_Price_LLine_tbl(I) := l_Price_LLine_rec;
2529:
2530: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2532: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2533: RAISE FND_API.G_EXC_ERROR;
2534: END IF;
2535:
2536: x_Price_LLine_tbl(I) := l_Price_LLine_rec;
2537:
2550: , x_Discount_Cust_rec => l_Discount_Cust_rec
2551: , x_return_status => l_return_status
2552: );
2553:
2554: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2556: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2557: RAISE FND_API.G_EXC_ERROR;
2558: END IF;
2551: , x_return_status => l_return_status
2552: );
2553:
2554: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2556: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2557: RAISE FND_API.G_EXC_ERROR;
2558: END IF;
2559:
2552: );
2553:
2554: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2556: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2557: RAISE FND_API.G_EXC_ERROR;
2558: END IF;
2559:
2560: x_Discount_Cust_tbl(I) := l_Discount_Cust_rec;
2553:
2554: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2556: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2557: RAISE FND_API.G_EXC_ERROR;
2558: END IF;
2559:
2560: x_Discount_Cust_tbl(I) := l_Discount_Cust_rec;
2561:
2574: , x_Discount_Line_rec => l_Discount_Line_rec
2575: , x_return_status => l_return_status
2576: );
2577:
2578: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2580: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2581: RAISE FND_API.G_EXC_ERROR;
2582: END IF;
2575: , x_return_status => l_return_status
2576: );
2577:
2578: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2580: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2581: RAISE FND_API.G_EXC_ERROR;
2582: END IF;
2583:
2576: );
2577:
2578: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2580: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2581: RAISE FND_API.G_EXC_ERROR;
2582: END IF;
2583:
2584: x_Discount_Line_tbl(I) := l_Discount_Line_rec;
2577:
2578: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2580: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2581: RAISE FND_API.G_EXC_ERROR;
2582: END IF;
2583:
2584: x_Discount_Line_tbl(I) := l_Discount_Line_rec;
2585:
2600: , x_Price_Break_rec => l_Price_Break_rec
2601: , x_return_status => l_return_status
2602: );
2603:
2604: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2606: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2607: RAISE FND_API.G_EXC_ERROR;
2608: END IF;
2601: , x_return_status => l_return_status
2602: );
2603:
2604: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2606: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2607: RAISE FND_API.G_EXC_ERROR;
2608: END IF;
2609:
2602: );
2603:
2604: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2606: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2607: RAISE FND_API.G_EXC_ERROR;
2608: END IF;
2609:
2610: x_Price_Break_tbl(I) := l_Price_Break_rec;
2603:
2604: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2606: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2607: RAISE FND_API.G_EXC_ERROR;
2608: END IF;
2609:
2610: x_Price_Break_tbl(I) := l_Price_Break_rec;
2611:
2614: END LOOP;
2615:
2616: -- Set return status
2617:
2618: x_return_status := FND_API.G_RET_STS_SUCCESS;
2619:
2620: -- Get message count and data
2621:
2622: OE_MSG_PUB.Count_And_Get
2626:
2627:
2628: EXCEPTION
2629:
2630: WHEN FND_API.G_EXC_ERROR THEN
2631:
2632: x_return_status := FND_API.G_RET_STS_ERROR;
2633:
2634: -- Get message count and data
2628: EXCEPTION
2629:
2630: WHEN FND_API.G_EXC_ERROR THEN
2631:
2632: x_return_status := FND_API.G_RET_STS_ERROR;
2633:
2634: -- Get message count and data
2635:
2636: OE_MSG_PUB.Count_And_Get
2641: -- Rollback
2642:
2643: ROLLBACK TO Lock_Pricing_Cont_PVT;
2644:
2645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2646:
2647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2648:
2649: -- Get message count and data
2643: ROLLBACK TO Lock_Pricing_Cont_PVT;
2644:
2645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2646:
2647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2648:
2649: -- Get message count and data
2650:
2651: OE_MSG_PUB.Count_And_Get
2658: ROLLBACK TO Lock_Pricing_Cont_PVT;
2659:
2660: WHEN OTHERS THEN
2661:
2662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2663:
2664: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2665: THEN
2666: OE_MSG_PUB.Add_Exc_Msg
2699: -- End of Comments
2700:
2701: PROCEDURE Get_Pricing_Cont
2702: ( p_api_version_number IN NUMBER
2703: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2704: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2705: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
2706: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2707: , p_pricing_contract_id IN NUMBER
2734: BEGIN
2735:
2736: -- Standard call to check for call compatibility
2737:
2738: IF NOT FND_API.Compatible_API_Call
2739: ( l_api_version_number
2740: , p_api_version_number
2741: , l_api_name
2742: , G_PKG_NAME
2741: , l_api_name
2742: , G_PKG_NAME
2743: )
2744: THEN
2745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2746: END IF;
2747:
2748: -- Initialize message list.
2749:
2746: END IF;
2747:
2748: -- Initialize message list.
2749:
2750: IF FND_API.to_Boolean(p_init_msg_list) THEN
2751: OE_MSG_PUB.initialize;
2752: END IF;
2753:
2754: -- Get Contract ( parent = Contract )
2848: x_Price_Break_tbl := l_x_Price_Break_tbl;
2849:
2850: -- Set return status
2851:
2852: x_return_status := FND_API.G_RET_STS_SUCCESS;
2853:
2854: -- Get message count and data
2855:
2856: OE_MSG_PUB.Count_And_Get
2860:
2861:
2862: EXCEPTION
2863:
2864: WHEN FND_API.G_EXC_ERROR THEN
2865:
2866: x_return_status := FND_API.G_RET_STS_ERROR;
2867:
2868: -- Get message count and data
2862: EXCEPTION
2863:
2864: WHEN FND_API.G_EXC_ERROR THEN
2865:
2866: x_return_status := FND_API.G_RET_STS_ERROR;
2867:
2868: -- Get message count and data
2869:
2870: OE_MSG_PUB.Count_And_Get
2871: ( p_count => x_msg_count
2872: , p_data => x_msg_data
2873: );
2874:
2875: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2876:
2877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2878:
2879: -- Get message count and data
2873: );
2874:
2875: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2876:
2877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2878:
2879: -- Get message count and data
2880:
2881: OE_MSG_PUB.Count_And_Get
2884: );
2885:
2886: WHEN OTHERS THEN
2887:
2888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2889:
2890: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2891: THEN
2892: OE_MSG_PUB.Add_Exc_Msg
3077: l_x_QUALIFIERS_rec QP_Qualifier_Rules_PUB.Qualifiers_Rec_Type ;
3078: l_x_QUALIFIER_RULES_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Rec_Type ;
3079: l_x_QUALIFIER_RULES_val_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Val_Rec_Type;
3080: l_return_status VARCHAR2(1);
3081: l_return_values VARCHAR2(1) := FND_API.G_FALSE;
3082: l_commit VARCHAR2(1) := FND_API.G_FALSE;
3083: l_msg_count NUMBER;
3084: l_msg_data VARCHAR2(250);
3085: l_qual_count NUMBER;
3078: l_x_QUALIFIER_RULES_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Rec_Type ;
3079: l_x_QUALIFIER_RULES_val_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Val_Rec_Type;
3080: l_return_status VARCHAR2(1);
3081: l_return_values VARCHAR2(1) := FND_API.G_FALSE;
3082: l_commit VARCHAR2(1) := FND_API.G_FALSE;
3083: l_msg_count NUMBER;
3084: l_msg_data VARCHAR2(250);
3085: l_qual_count NUMBER;
3086: l_old_qual_count NUMBER;
3089:
3090: oe_debug_pub.add('begin create_agr_qual'||to_char(p_old_list_header_id)||'old'||to_char(p_list_header_id)||'new');
3091:
3092: IF p_list_header_id IS NOT NULL OR
3093: p_list_header_id <> FND_API.G_MISS_NUM THEN
3094:
3095:
3096: if p_operation = OE_GLOBALS.G_OPR_CREATE then
3097:
3115: -- We should call the private package and not the public
3116:
3117: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
3118: ( p_api_version_number => 1.0
3119: , p_init_msg_list => FND_API.G_TRUE
3120: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3121: , p_commit => FND_API.G_FALSE
3122: , x_return_status => x_return_status
3123: , x_msg_count => l_msg_count
3116:
3117: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
3118: ( p_api_version_number => 1.0
3119: , p_init_msg_list => FND_API.G_TRUE
3120: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3121: , p_commit => FND_API.G_FALSE
3122: , x_return_status => x_return_status
3123: , x_msg_count => l_msg_count
3124: , x_msg_data => l_msg_data
3117: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
3118: ( p_api_version_number => 1.0
3119: , p_init_msg_list => FND_API.G_TRUE
3120: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3121: , p_commit => FND_API.G_FALSE
3122: , x_return_status => x_return_status
3123: , x_msg_count => l_msg_count
3124: , x_msg_data => l_msg_data
3125: , p_control_rec => l_control_rec
3191: -- We should call the private package and not the public
3192:
3193: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
3194: ( p_api_version_number => 1.0
3195: , p_init_msg_list => FND_API.G_TRUE
3196: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3197: , p_commit => FND_API.G_FALSE
3198: , x_return_status => x_return_status
3199: , x_msg_count => l_msg_count
3192:
3193: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
3194: ( p_api_version_number => 1.0
3195: , p_init_msg_list => FND_API.G_TRUE
3196: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3197: , p_commit => FND_API.G_FALSE
3198: , x_return_status => x_return_status
3199: , x_msg_count => l_msg_count
3200: , x_msg_data => l_msg_data
3193: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
3194: ( p_api_version_number => 1.0
3195: , p_init_msg_list => FND_API.G_TRUE
3196: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3197: , p_commit => FND_API.G_FALSE
3198: , x_return_status => x_return_status
3199: , x_msg_count => l_msg_count
3200: , x_msg_data => l_msg_data
3201: , p_control_rec => l_control_rec
3224: , 'Process_Modifiers'
3225: );
3226: END IF;
3227:
3228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3229:
3230: -- Get message count and data
3231:
3232: OE_MSG_PUB.Count_And_Get