35: );
36:
37: -- Set record return status.
38:
39: l_FORMULA_rec.return_status := FND_API.G_RET_STS_SUCCESS;
40:
41: -- Prepare record.
42:
43: IF l_FORMULA_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
41: -- Prepare record.
42:
43: IF l_FORMULA_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
44:
45: l_FORMULA_rec.db_flag := FND_API.G_FALSE;
46:
47: -- Set missing old record elements to NULL.
48:
49: l_old_FORMULA_rec :=
52: ELSIF l_FORMULA_rec.operation = QP_GLOBALS.G_OPR_UPDATE
53: OR l_FORMULA_rec.operation = QP_GLOBALS.G_OPR_DELETE
54: THEN
55:
56: l_FORMULA_rec.db_flag := FND_API.G_TRUE;
57:
58: -- Query Old if missing
59:
60: IF l_old_FORMULA_rec.price_formula_id = FND_API.G_MISS_NUM
56: l_FORMULA_rec.db_flag := FND_API.G_TRUE;
57:
58: -- Query Old if missing
59:
60: IF l_old_FORMULA_rec.price_formula_id = FND_API.G_MISS_NUM
61: THEN
62:
63: l_old_FORMULA_rec := QP_Formula_Util.Query_Row
64: ( p_price_formula_id => l_FORMULA_rec.price_formula_id
91: IF l_control_rec.default_attributes
92: OR l_control_rec.change_attributes
93: THEN
94:
95: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
96:
97: QP_Validate_Formula.Attributes
98: ( x_return_status => l_return_status
99: , p_FORMULA_rec => l_FORMULA_rec
99: , p_FORMULA_rec => l_FORMULA_rec
100: , p_old_FORMULA_rec => l_old_FORMULA_rec
101: );
102:
103: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
106: RAISE FND_API.G_EXC_ERROR;
107: END IF;
100: , p_old_FORMULA_rec => l_old_FORMULA_rec
101: );
102:
103: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
106: RAISE FND_API.G_EXC_ERROR;
107: END IF;
108:
101: );
102:
103: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
106: RAISE FND_API.G_EXC_ERROR;
107: END IF;
108:
109: END IF;
102:
103: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
106: RAISE FND_API.G_EXC_ERROR;
107: END IF;
108:
109: END IF;
110:
175: );
176:
177: END IF;
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:
177: END IF;
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: END IF;
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: END IF;
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: END IF;
186:
228:
229: oe_debug_pub.add('Leaving procedure Formula in Pvt formula package' );
230: EXCEPTION
231:
232: WHEN FND_API.G_EXC_ERROR THEN
233:
234: l_FORMULA_rec.return_status := FND_API.G_RET_STS_ERROR;
235: x_FORMULA_rec := l_FORMULA_rec;
236: x_old_FORMULA_rec := l_old_FORMULA_rec;
230: EXCEPTION
231:
232: WHEN FND_API.G_EXC_ERROR THEN
233:
234: l_FORMULA_rec.return_status := FND_API.G_RET_STS_ERROR;
235: x_FORMULA_rec := l_FORMULA_rec;
236: x_old_FORMULA_rec := l_old_FORMULA_rec;
237: RAISE;
238:
235: x_FORMULA_rec := l_FORMULA_rec;
236: x_old_FORMULA_rec := l_old_FORMULA_rec;
237: RAISE;
238:
239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
240:
241: l_FORMULA_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
242: x_FORMULA_rec := l_FORMULA_rec;
243: x_old_FORMULA_rec := l_old_FORMULA_rec;
237: RAISE;
238:
239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
240:
241: l_FORMULA_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
242: x_FORMULA_rec := l_FORMULA_rec;
243: x_old_FORMULA_rec := l_old_FORMULA_rec;
244:
245: RAISE;
253: , 'Formula'
254: );
255: END IF;
256:
257: l_FORMULA_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
258: x_FORMULA_rec := l_FORMULA_rec;
259: x_old_FORMULA_rec := l_old_FORMULA_rec;
260:
261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
257: l_FORMULA_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
258: x_FORMULA_rec := l_FORMULA_rec;
259: x_old_FORMULA_rec := l_old_FORMULA_rec;
260:
261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
262:
263: END Formula;
264:
265: -- Formula_Liness
311: );
312:
313: -- Set record return status.
314:
315: l_FORMULA_LINES_rec.return_status := FND_API.G_RET_STS_SUCCESS;
316:
317: -- Prepare record.
318:
319: IF l_FORMULA_LINES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
317: -- Prepare record.
318:
319: IF l_FORMULA_LINES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
320:
321: l_FORMULA_LINES_rec.db_flag := FND_API.G_FALSE;
322:
323: -- Set missing old record elements to NULL.
324:
325: l_old_FORMULA_LINES_rec :=
328: ELSIF l_FORMULA_LINES_rec.operation = QP_GLOBALS.G_OPR_UPDATE
329: OR l_FORMULA_LINES_rec.operation = QP_GLOBALS.G_OPR_DELETE
330: THEN
331:
332: l_FORMULA_LINES_rec.db_flag := FND_API.G_TRUE;
333:
334: -- Query Old if missing
335:
336: IF l_old_FORMULA_LINES_rec.price_formula_line_id = FND_API.G_MISS_NUM
332: l_FORMULA_LINES_rec.db_flag := FND_API.G_TRUE;
333:
334: -- Query Old if missing
335:
336: IF l_old_FORMULA_LINES_rec.price_formula_line_id = FND_API.G_MISS_NUM
337: THEN
338:
339: l_old_FORMULA_LINES_rec := QP_Formula_Lines_Util.Query_Row
340: ( p_price_formula_line_id => l_FORMULA_LINES_rec.price_formula_line_id
363: IF l_control_rec.default_attributes
364: OR l_control_rec.change_attributes
365: THEN
366:
367: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
368:
369:
370: QP_Validate_Formula_Lines.Attributes
371: ( x_return_status => l_return_status
372: , p_FORMULA_LINES_rec => l_FORMULA_LINES_rec
373: , p_old_FORMULA_LINES_rec => l_old_FORMULA_LINES_rec
374: );
375:
376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
379: RAISE FND_API.G_EXC_ERROR;
380: END IF;
373: , p_old_FORMULA_LINES_rec => l_old_FORMULA_LINES_rec
374: );
375:
376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
379: RAISE FND_API.G_EXC_ERROR;
380: END IF;
381:
374: );
375:
376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
379: RAISE FND_API.G_EXC_ERROR;
380: END IF;
381:
382: END IF;
375:
376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
379: RAISE FND_API.G_EXC_ERROR;
380: END IF;
381:
382: END IF;
383:
448: );
449:
450: END IF;
451:
452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
455: RAISE FND_API.G_EXC_ERROR;
456: END IF;
449:
450: END IF;
451:
452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
455: RAISE FND_API.G_EXC_ERROR;
456: END IF;
457:
450: END IF;
451:
452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
455: RAISE FND_API.G_EXC_ERROR;
456: END IF;
457:
458: END IF;
451:
452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
455: RAISE FND_API.G_EXC_ERROR;
456: END IF;
457:
458: END IF;
459:
501:
502:
503: EXCEPTION
504:
505: WHEN FND_API.G_EXC_ERROR THEN
506:
507: l_FORMULA_LINES_rec.return_status := FND_API.G_RET_STS_ERROR;
508: l_FORMULA_LINES_tbl(I) := l_FORMULA_LINES_rec;
509: l_old_FORMULA_LINES_tbl(I) := l_old_FORMULA_LINES_rec;
503: EXCEPTION
504:
505: WHEN FND_API.G_EXC_ERROR THEN
506:
507: l_FORMULA_LINES_rec.return_status := FND_API.G_RET_STS_ERROR;
508: l_FORMULA_LINES_tbl(I) := l_FORMULA_LINES_rec;
509: l_old_FORMULA_LINES_tbl(I) := l_old_FORMULA_LINES_rec;
510:
511: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
507: l_FORMULA_LINES_rec.return_status := FND_API.G_RET_STS_ERROR;
508: l_FORMULA_LINES_tbl(I) := l_FORMULA_LINES_rec;
509: l_old_FORMULA_LINES_tbl(I) := l_old_FORMULA_LINES_rec;
510:
511: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
512:
513: l_FORMULA_LINES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
514: l_FORMULA_LINES_tbl(I) := l_FORMULA_LINES_rec;
515: l_old_FORMULA_LINES_tbl(I) := l_old_FORMULA_LINES_rec;
509: l_old_FORMULA_LINES_tbl(I) := l_old_FORMULA_LINES_rec;
510:
511: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
512:
513: l_FORMULA_LINES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
514: l_FORMULA_LINES_tbl(I) := l_FORMULA_LINES_rec;
515: l_old_FORMULA_LINES_tbl(I) := l_old_FORMULA_LINES_rec;
516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
517:
512:
513: l_FORMULA_LINES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
514: l_FORMULA_LINES_tbl(I) := l_FORMULA_LINES_rec;
515: l_old_FORMULA_LINES_tbl(I) := l_old_FORMULA_LINES_rec;
516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
517:
518: WHEN OTHERS THEN
519:
520: l_FORMULA_LINES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
517:
518: WHEN OTHERS THEN
519:
520: l_FORMULA_LINES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521: l_FORMULA_LINES_tbl(I) := l_FORMULA_LINES_rec;
522: l_old_FORMULA_LINES_tbl(I) := l_old_FORMULA_LINES_rec;
523:
524: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
528: , 'Formula_Liness'
529: );
530: END IF;
531:
532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
533:
534: END;
535: END LOOP;
536:
541:
542: oe_debug_pub.add('Leaving procedure Formula Liness in Pvt formula package');
543: EXCEPTION
544:
545: WHEN FND_API.G_EXC_ERROR THEN
546:
547: RAISE;
548:
549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
545: WHEN FND_API.G_EXC_ERROR THEN
546:
547: RAISE;
548:
549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
550:
551:
552: RAISE;
553:
561: );
562: END IF;
563:
564:
565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
566:
567: END Formula_Liness;
568:
569: -- Start of Comments
583: -- End of Comments
584:
585: PROCEDURE Process_Price_Formula
586: ( p_api_version_number IN NUMBER
587: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
588: , p_commit IN VARCHAR2 := FND_API.G_FALSE
589: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
590: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
591: QP_GLOBALS.G_MISS_CONTROL_REC
584:
585: PROCEDURE Process_Price_Formula
586: ( p_api_version_number IN NUMBER
587: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
588: , p_commit IN VARCHAR2 := FND_API.G_FALSE
589: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
590: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
591: QP_GLOBALS.G_MISS_CONTROL_REC
592: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
585: PROCEDURE Process_Price_Formula
586: ( p_api_version_number IN NUMBER
587: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
588: , p_commit IN VARCHAR2 := FND_API.G_FALSE
589: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
590: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
591: QP_GLOBALS.G_MISS_CONTROL_REC
592: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
593: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
626:
627: oe_debug_pub.add('Entering procedure Process_Price_Formula in Pvt package');
628: -- Standard call to check for call compatibility
629:
630: IF NOT FND_API.Compatible_API_Call
631: ( l_api_version_number
632: , p_api_version_number
633: , l_api_name
634: , G_PKG_NAME
633: , l_api_name
634: , G_PKG_NAME
635: )
636: THEN
637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
638: END IF;
639:
640: -- Initialize message list.
641:
638: END IF;
639:
640: -- Initialize message list.
641:
642: IF FND_API.to_Boolean(p_init_msg_list) THEN
643: OE_MSG_PUB.initialize;
644: END IF;
645:
646:
650: l_qp_status := QP_UTIL.get_qp_status;
651:
652: IF l_qp_status = 'N' THEN
653:
654: l_return_status := FND_API.G_RET_STS_ERROR;
655: FND_MESSAGE.SET_NAME('QP','QP_PRICING_NOT_INSTALLED');
656: OE_MSG_PUB.Add;
657: RAISE FND_API.G_EXC_ERROR;
658:
653:
654: l_return_status := FND_API.G_RET_STS_ERROR;
655: FND_MESSAGE.SET_NAME('QP','QP_PRICING_NOT_INSTALLED');
656: OE_MSG_PUB.Add;
657: RAISE FND_API.G_EXC_ERROR;
658:
659: END IF;
660:
661: -- Init local table variables.
695: l_FORMULA_LINES_rec := l_FORMULA_LINES_tbl(I);
696:
697: IF l_FORMULA_LINES_rec.operation = QP_GLOBALS.G_OPR_CREATE
698: AND (l_FORMULA_LINES_rec.price_formula_id IS NULL OR
699: l_FORMULA_LINES_rec.price_formula_id = FND_API.G_MISS_NUM)
700: THEN
701:
702: -- Copy parent_id.
703:
762: END IF;
763:
764: -- Derive return status.
765:
766: x_return_status := FND_API.G_RET_STS_SUCCESS;
767:
768: IF l_FORMULA_rec.return_status = FND_API.G_RET_STS_ERROR THEN
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: END IF;
764: -- Derive return status.
765:
766: x_return_status := FND_API.G_RET_STS_SUCCESS;
767:
768: IF l_FORMULA_rec.return_status = FND_API.G_RET_STS_ERROR THEN
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: END IF;
771:
772: FOR I IN 1..l_FORMULA_LINES_tbl.COUNT LOOP
765:
766: x_return_status := FND_API.G_RET_STS_SUCCESS;
767:
768: IF l_FORMULA_rec.return_status = FND_API.G_RET_STS_ERROR THEN
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: END IF;
771:
772: FOR I IN 1..l_FORMULA_LINES_tbl.COUNT LOOP
773:
770: END IF;
771:
772: FOR I IN 1..l_FORMULA_LINES_tbl.COUNT LOOP
773:
774: IF l_FORMULA_LINES_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
775: x_return_status := FND_API.G_RET_STS_ERROR;
776: END IF;
777:
778: END LOOP;
771:
772: FOR I IN 1..l_FORMULA_LINES_tbl.COUNT LOOP
773:
774: IF l_FORMULA_LINES_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
775: x_return_status := FND_API.G_RET_STS_ERROR;
776: END IF;
777:
778: END LOOP;
779:
787: oe_debug_pub.add('Leaving procedure Process_Price_Formula in Pvt package');
788:
789: EXCEPTION
790:
791: WHEN FND_API.G_EXC_ERROR THEN
792:
793: x_return_status := FND_API.G_RET_STS_ERROR;
794:
795: -- Get message count and data
789: EXCEPTION
790:
791: WHEN FND_API.G_EXC_ERROR THEN
792:
793: x_return_status := FND_API.G_RET_STS_ERROR;
794:
795: -- Get message count and data
796:
797: OE_MSG_PUB.Count_And_Get
798: ( p_count => x_msg_count
799: , p_data => x_msg_data
800: );
801:
802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
803:
804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
805:
806: -- Get message count and data
800: );
801:
802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
803:
804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
805:
806: -- Get message count and data
807:
808: OE_MSG_PUB.Count_And_Get
811: );
812:
813: WHEN OTHERS THEN
814:
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
816:
817: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
818: THEN
819: OE_MSG_PUB.Add_Exc_Msg
848: -- End of Comments
849:
850: PROCEDURE Lock_Price_Formula
851: ( p_api_version_number IN NUMBER
852: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
853: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
854: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
855: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
856: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
862: )
863: IS
864: l_api_version_number CONSTANT NUMBER := 1.0;
865: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Price_Formula';
866: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
867: l_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
868: BEGIN
869:
870: oe_debug_pub.add('Entering procedure Lock_Price_Formula in Pvt package');
869:
870: oe_debug_pub.add('Entering procedure Lock_Price_Formula in Pvt package');
871: -- Standard call to check for call compatibility
872:
873: IF NOT FND_API.Compatible_API_Call
874: ( l_api_version_number
875: , p_api_version_number
876: , l_api_name
877: , G_PKG_NAME
876: , l_api_name
877: , G_PKG_NAME
878: )
879: THEN
880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
881: END IF;
882:
883: -- Initialize message list.
884:
881: END IF;
882:
883: -- Initialize message list.
884:
885: IF FND_API.to_Boolean(p_init_msg_list) THEN
886: OE_MSG_PUB.initialize;
887: END IF;
888:
889: -- Set Savepoint
899: , x_FORMULA_rec => x_FORMULA_rec
900: , x_return_status => l_return_status
901: );
902:
903: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
906: RAISE FND_API.G_EXC_ERROR;
907: END IF;
900: , x_return_status => l_return_status
901: );
902:
903: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
906: RAISE FND_API.G_EXC_ERROR;
907: END IF;
908:
901: );
902:
903: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
906: RAISE FND_API.G_EXC_ERROR;
907: END IF;
908:
909:
902:
903: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
906: RAISE FND_API.G_EXC_ERROR;
907: END IF;
908:
909:
910: END IF;
920: , x_FORMULA_LINES_rec => l_FORMULA_LINES_rec
921: , x_return_status => l_return_status
922: );
923:
924: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
926: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
927: RAISE FND_API.G_EXC_ERROR;
928: END IF;
921: , x_return_status => l_return_status
922: );
923:
924: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
926: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
927: RAISE FND_API.G_EXC_ERROR;
928: END IF;
929:
922: );
923:
924: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
926: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
927: RAISE FND_API.G_EXC_ERROR;
928: END IF;
929:
930: x_FORMULA_LINES_tbl(I) := l_FORMULA_LINES_rec;
923:
924: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
926: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
927: RAISE FND_API.G_EXC_ERROR;
928: END IF;
929:
930: x_FORMULA_LINES_tbl(I) := l_FORMULA_LINES_rec;
931:
934: END LOOP;
935:
936: -- Set return status
937:
938: x_return_status := FND_API.G_RET_STS_SUCCESS;
939:
940: -- Get message count and data
941:
942: OE_MSG_PUB.Count_And_Get
947: oe_debug_pub.add('Leaving procedure Lock_Price_Formula in Pvt package');
948:
949: EXCEPTION
950:
951: WHEN FND_API.G_EXC_ERROR THEN
952:
953: x_return_status := FND_API.G_RET_STS_ERROR;
954:
955: -- Get message count and data
949: EXCEPTION
950:
951: WHEN FND_API.G_EXC_ERROR THEN
952:
953: x_return_status := FND_API.G_RET_STS_ERROR;
954:
955: -- Get message count and data
956:
957: OE_MSG_PUB.Count_And_Get
962: -- Rollback
963:
964: ROLLBACK TO Lock_Price_Formula_PVT;
965:
966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
967:
968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
969:
970: -- Get message count and data
964: ROLLBACK TO Lock_Price_Formula_PVT;
965:
966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
967:
968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
969:
970: -- Get message count and data
971:
972: OE_MSG_PUB.Count_And_Get
979: ROLLBACK TO Lock_Price_Formula_PVT;
980:
981: WHEN OTHERS THEN
982:
983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
984:
985: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
986: THEN
987: OE_MSG_PUB.Add_Exc_Msg
1020: -- End of Comments
1021:
1022: PROCEDURE Get_Price_Formula
1023: ( p_api_version_number IN NUMBER
1024: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1025: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1026: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1027: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1028: , p_price_formula_id IN NUMBER
1038:
1039: oe_debug_pub.add('Entering procedure Get_Price_Formula in Pvt package');
1040: -- Standard call to check for call compatibility
1041:
1042: IF NOT FND_API.Compatible_API_Call
1043: ( l_api_version_number
1044: , p_api_version_number
1045: , l_api_name
1046: , G_PKG_NAME
1045: , l_api_name
1046: , G_PKG_NAME
1047: )
1048: THEN
1049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1050: END IF;
1051:
1052: -- Initialize message list.
1053:
1050: END IF;
1051:
1052: -- Initialize message list.
1053:
1054: IF FND_API.to_Boolean(p_init_msg_list) THEN
1055: OE_MSG_PUB.initialize;
1056: END IF;
1057:
1058: -- Get FORMULA ( parent = FORMULA )
1074: x_FORMULA_LINES_tbl := l_FORMULA_LINES_tbl;
1075:
1076: -- Set return status
1077:
1078: x_return_status := FND_API.G_RET_STS_SUCCESS;
1079:
1080: -- Get message count and data
1081:
1082: OE_MSG_PUB.Count_And_Get
1087: oe_debug_pub.add('Leaving procedure Get_Price_Formula in Pvt package');
1088:
1089: EXCEPTION
1090:
1091: WHEN FND_API.G_EXC_ERROR THEN
1092:
1093: x_return_status := FND_API.G_RET_STS_ERROR;
1094:
1095: -- Get message count and data
1089: EXCEPTION
1090:
1091: WHEN FND_API.G_EXC_ERROR THEN
1092:
1093: x_return_status := FND_API.G_RET_STS_ERROR;
1094:
1095: -- Get message count and data
1096:
1097: OE_MSG_PUB.Count_And_Get
1098: ( p_count => x_msg_count
1099: , p_data => x_msg_data
1100: );
1101:
1102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1103:
1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1105:
1106: -- Get message count and data
1100: );
1101:
1102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1103:
1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1105:
1106: -- Get message count and data
1107:
1108: OE_MSG_PUB.Count_And_Get
1111: );
1112:
1113: WHEN OTHERS THEN
1114:
1115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1116:
1117: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1118: THEN
1119: OE_MSG_PUB.Add_Exc_Msg