31: );
32:
33: -- Set record return status.
34:
35: l_CON_rec.return_status := FND_API.G_RET_STS_SUCCESS;
36:
37: -- Prepare record.
38:
39: IF l_CON_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
37: -- Prepare record.
38:
39: IF l_CON_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
40:
41: l_CON_rec.db_flag := FND_API.G_FALSE;
42:
43: -- Set missing old record elements to NULL.
44:
45: l_old_CON_rec :=
48: ELSIF l_CON_rec.operation = QP_GLOBALS.G_OPR_UPDATE
49: OR l_CON_rec.operation = QP_GLOBALS.G_OPR_DELETE
50: THEN
51:
52: l_CON_rec.db_flag := FND_API.G_TRUE;
53:
54: -- Query Old if missing
55:
56: IF l_old_CON_rec.prc_context_id = FND_API.G_MISS_NUM
52: l_CON_rec.db_flag := FND_API.G_TRUE;
53:
54: -- Query Old if missing
55:
56: IF l_old_CON_rec.prc_context_id = FND_API.G_MISS_NUM
57: THEN
58:
59: l_old_CON_rec := QP_Con_Util.Query_Row
60: ( p_prc_context_id => l_CON_rec.prc_context_id
84: IF l_control_rec.default_attributes
85: OR l_control_rec.change_attributes
86: THEN
87:
88: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
89:
90: QP_Validate_Con.Attributes
91: ( x_return_status => l_return_status
92: , p_CON_rec => l_CON_rec
92: , p_CON_rec => l_CON_rec
93: , p_old_CON_rec => l_old_CON_rec
94: );
95:
96: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
97: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
98: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
99: RAISE FND_API.G_EXC_ERROR;
100: END IF;
93: , p_old_CON_rec => l_old_CON_rec
94: );
95:
96: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
97: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
98: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
99: RAISE FND_API.G_EXC_ERROR;
100: END IF;
101:
94: );
95:
96: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
97: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
98: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
99: RAISE FND_API.G_EXC_ERROR;
100: END IF;
101:
102: END IF;
95:
96: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
97: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
98: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
99: RAISE FND_API.G_EXC_ERROR;
100: END IF;
101:
102: END IF;
103:
163: );
164:
165: END IF;
166:
167: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
169: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
170: RAISE FND_API.G_EXC_ERROR;
171: END IF;
164:
165: END IF;
166:
167: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
169: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
170: RAISE FND_API.G_EXC_ERROR;
171: END IF;
172:
165: END IF;
166:
167: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
169: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
170: RAISE FND_API.G_EXC_ERROR;
171: END IF;
172:
173: END IF;
166:
167: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
169: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
170: RAISE FND_API.G_EXC_ERROR;
171: END IF;
172:
173: END IF;
174:
213: x_old_CON_rec := l_old_CON_rec;
214:
215: EXCEPTION
216:
217: WHEN FND_API.G_EXC_ERROR THEN
218:
219: l_CON_rec.return_status := FND_API.G_RET_STS_ERROR;
220: x_CON_rec := l_CON_rec;
221: x_old_CON_rec := l_old_CON_rec;
215: EXCEPTION
216:
217: WHEN FND_API.G_EXC_ERROR THEN
218:
219: l_CON_rec.return_status := FND_API.G_RET_STS_ERROR;
220: x_CON_rec := l_CON_rec;
221: x_old_CON_rec := l_old_CON_rec;
222: RAISE;
223:
220: x_CON_rec := l_CON_rec;
221: x_old_CON_rec := l_old_CON_rec;
222: RAISE;
223:
224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
225:
226: l_CON_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: x_CON_rec := l_CON_rec;
228: x_old_CON_rec := l_old_CON_rec;
222: RAISE;
223:
224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
225:
226: l_CON_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: x_CON_rec := l_CON_rec;
228: x_old_CON_rec := l_old_CON_rec;
229:
230: RAISE;
238: , 'Con'
239: );
240: END IF;
241:
242: l_CON_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: x_CON_rec := l_CON_rec;
244: x_old_CON_rec := l_old_CON_rec;
245:
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: l_CON_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: x_CON_rec := l_CON_rec;
244: x_old_CON_rec := l_old_CON_rec;
245:
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247:
248: END Con;
249:
250: -- Segs
293: );
294:
295: -- Set record return status.
296:
297: l_SEG_rec.return_status := FND_API.G_RET_STS_SUCCESS;
298:
299: -- Prepare record.
300:
301: IF l_SEG_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
299: -- Prepare record.
300:
301: IF l_SEG_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
302:
303: l_SEG_rec.db_flag := FND_API.G_FALSE;
304:
305: -- Set missing old record elements to NULL.
306:
307: l_old_SEG_rec :=
310: ELSIF l_SEG_rec.operation = QP_GLOBALS.G_OPR_UPDATE
311: OR l_SEG_rec.operation = QP_GLOBALS.G_OPR_DELETE
312: THEN
313:
314: l_SEG_rec.db_flag := FND_API.G_TRUE;
315:
316: -- Query Old if missing
317:
318: IF l_old_SEG_rec.segment_id = FND_API.G_MISS_NUM
314: l_SEG_rec.db_flag := FND_API.G_TRUE;
315:
316: -- Query Old if missing
317:
318: IF l_old_SEG_rec.segment_id = FND_API.G_MISS_NUM
319: THEN
320:
321: l_old_SEG_rec := QP_Seg_Util.Query_Row
322: ( p_segment_id => l_SEG_rec.segment_id
345: IF l_control_rec.default_attributes
346: OR l_control_rec.change_attributes
347: THEN
348:
349: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
350:
351: QP_Validate_Seg.Attributes
352: ( x_return_status => l_return_status
353: , p_SEG_rec => l_SEG_rec
353: , p_SEG_rec => l_SEG_rec
354: , p_old_SEG_rec => l_old_SEG_rec
355: );
356:
357: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
359: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
360: RAISE FND_API.G_EXC_ERROR;
361: END IF;
354: , p_old_SEG_rec => l_old_SEG_rec
355: );
356:
357: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
359: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
360: RAISE FND_API.G_EXC_ERROR;
361: END IF;
362:
355: );
356:
357: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
359: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
360: RAISE FND_API.G_EXC_ERROR;
361: END IF;
362:
363: END IF;
356:
357: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
359: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
360: RAISE FND_API.G_EXC_ERROR;
361: END IF;
362:
363: END IF;
364:
423: );
424:
425: END IF;
426:
427: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
429: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
430: RAISE FND_API.G_EXC_ERROR;
431: END IF;
424:
425: END IF;
426:
427: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
429: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
430: RAISE FND_API.G_EXC_ERROR;
431: END IF;
432:
425: END IF;
426:
427: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
429: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
430: RAISE FND_API.G_EXC_ERROR;
431: END IF;
432:
433: END IF;
426:
427: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
429: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
430: RAISE FND_API.G_EXC_ERROR;
431: END IF;
432:
433: END IF;
434:
476:
477:
478: EXCEPTION
479:
480: WHEN FND_API.G_EXC_ERROR THEN
481:
482: l_SEG_rec.return_status := FND_API.G_RET_STS_ERROR;
483: l_SEG_tbl(I) := l_SEG_rec;
484: l_old_SEG_tbl(I) := l_old_SEG_rec;
478: EXCEPTION
479:
480: WHEN FND_API.G_EXC_ERROR THEN
481:
482: l_SEG_rec.return_status := FND_API.G_RET_STS_ERROR;
483: l_SEG_tbl(I) := l_SEG_rec;
484: l_old_SEG_tbl(I) := l_old_SEG_rec;
485:
486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
482: l_SEG_rec.return_status := FND_API.G_RET_STS_ERROR;
483: l_SEG_tbl(I) := l_SEG_rec;
484: l_old_SEG_tbl(I) := l_old_SEG_rec;
485:
486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
487:
488: l_SEG_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
489: l_SEG_tbl(I) := l_SEG_rec;
490: l_old_SEG_tbl(I) := l_old_SEG_rec;
484: l_old_SEG_tbl(I) := l_old_SEG_rec;
485:
486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
487:
488: l_SEG_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
489: l_SEG_tbl(I) := l_SEG_rec;
490: l_old_SEG_tbl(I) := l_old_SEG_rec;
491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492:
487:
488: l_SEG_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
489: l_SEG_tbl(I) := l_SEG_rec;
490: l_old_SEG_tbl(I) := l_old_SEG_rec;
491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492:
493: WHEN OTHERS THEN
494:
495: l_SEG_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492:
493: WHEN OTHERS THEN
494:
495: l_SEG_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
496: l_SEG_tbl(I) := l_SEG_rec;
497: l_old_SEG_tbl(I) := l_old_SEG_rec;
498:
499: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
503: , 'Segs'
504: );
505: END IF;
506:
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508:
509: END;
510: END LOOP;
511:
515: x_old_SEG_tbl := l_old_SEG_tbl;
516:
517: EXCEPTION
518:
519: WHEN FND_API.G_EXC_ERROR THEN
520:
521: RAISE;
522:
523: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
519: WHEN FND_API.G_EXC_ERROR THEN
520:
521: RAISE;
522:
523: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
524:
525:
526: RAISE;
527:
535: );
536: END IF;
537:
538:
539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
540:
541: END Segs;
542:
543: -- Start of Comments
557: -- End of Comments
558:
559: PROCEDURE Process_Attributes
560: ( p_api_version_number IN NUMBER
561: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
562: , p_commit IN VARCHAR2 := FND_API.G_FALSE
563: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
564: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
565: QP_GLOBALS.G_MISS_CONTROL_REC
558:
559: PROCEDURE Process_Attributes
560: ( p_api_version_number IN NUMBER
561: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
562: , p_commit IN VARCHAR2 := FND_API.G_FALSE
563: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
564: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
565: QP_GLOBALS.G_MISS_CONTROL_REC
566: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
559: PROCEDURE Process_Attributes
560: ( p_api_version_number IN NUMBER
561: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
562: , p_commit IN VARCHAR2 := FND_API.G_FALSE
563: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
564: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
565: QP_GLOBALS.G_MISS_CONTROL_REC
566: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
567: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
596: BEGIN
597:
598: -- Standard call to check for call compatibility
599:
600: IF NOT FND_API.Compatible_API_Call
601: ( l_api_version_number
602: , p_api_version_number
603: , l_api_name
604: , G_PKG_NAME
603: , l_api_name
604: , G_PKG_NAME
605: )
606: THEN
607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
608: END IF;
609:
610: -- Initialize message list.
611:
608: END IF;
609:
610: -- Initialize message list.
611:
612: IF FND_API.to_Boolean(p_init_msg_list) THEN
613: OE_MSG_PUB.initialize;
614: END IF;
615:
616: -- Init local table variables.
647: l_SEG_rec := l_SEG_tbl(I);
648:
649: IF l_SEG_rec.operation = QP_GLOBALS.G_OPR_CREATE
650: AND (l_SEG_rec.prc_context_id IS NULL OR
651: l_SEG_rec.prc_context_id = FND_API.G_MISS_NUM)
652: THEN
653:
654: -- Copy parent_id.
655:
714: END IF;
715:
716: -- Derive return status.
717:
718: x_return_status := FND_API.G_RET_STS_SUCCESS;
719:
720: IF l_CON_rec.return_status = FND_API.G_RET_STS_ERROR THEN
721: x_return_status := FND_API.G_RET_STS_ERROR;
722: END IF;
716: -- Derive return status.
717:
718: x_return_status := FND_API.G_RET_STS_SUCCESS;
719:
720: IF l_CON_rec.return_status = FND_API.G_RET_STS_ERROR THEN
721: x_return_status := FND_API.G_RET_STS_ERROR;
722: END IF;
723:
724: FOR I IN 1..l_SEG_tbl.COUNT LOOP
717:
718: x_return_status := FND_API.G_RET_STS_SUCCESS;
719:
720: IF l_CON_rec.return_status = FND_API.G_RET_STS_ERROR THEN
721: x_return_status := FND_API.G_RET_STS_ERROR;
722: END IF;
723:
724: FOR I IN 1..l_SEG_tbl.COUNT LOOP
725:
722: END IF;
723:
724: FOR I IN 1..l_SEG_tbl.COUNT LOOP
725:
726: IF l_SEG_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
727: x_return_status := FND_API.G_RET_STS_ERROR;
728: END IF;
729:
730: END LOOP;
723:
724: FOR I IN 1..l_SEG_tbl.COUNT LOOP
725:
726: IF l_SEG_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
727: x_return_status := FND_API.G_RET_STS_ERROR;
728: END IF;
729:
730: END LOOP;
731:
738:
739:
740: EXCEPTION
741:
742: WHEN FND_API.G_EXC_ERROR THEN
743:
744: x_return_status := FND_API.G_RET_STS_ERROR;
745:
746: -- Get message count and data
740: EXCEPTION
741:
742: WHEN FND_API.G_EXC_ERROR THEN
743:
744: x_return_status := FND_API.G_RET_STS_ERROR;
745:
746: -- Get message count and data
747:
748: OE_MSG_PUB.Count_And_Get
749: ( p_count => x_msg_count
750: , p_data => x_msg_data
751: );
752:
753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
754:
755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
756:
757: -- Get message count and data
751: );
752:
753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
754:
755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
756:
757: -- Get message count and data
758:
759: OE_MSG_PUB.Count_And_Get
762: );
763:
764: WHEN OTHERS THEN
765:
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
767:
768: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
769: THEN
770: OE_MSG_PUB.Add_Exc_Msg
799: -- End of Comments
800:
801: PROCEDURE Lock_Attributes
802: ( p_api_version_number IN NUMBER
803: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
804: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
805: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
806: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
807: , p_CON_rec IN QP_Attributes_PUB.Con_Rec_Type :=
813: )
814: IS
815: l_api_version_number CONSTANT NUMBER := 1.0;
816: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Attributes';
817: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
818: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
819: BEGIN
820:
821: -- Standard call to check for call compatibility
819: BEGIN
820:
821: -- Standard call to check for call compatibility
822:
823: IF NOT FND_API.Compatible_API_Call
824: ( l_api_version_number
825: , p_api_version_number
826: , l_api_name
827: , G_PKG_NAME
826: , l_api_name
827: , G_PKG_NAME
828: )
829: THEN
830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
831: END IF;
832:
833: -- Initialize message list.
834:
831: END IF;
832:
833: -- Initialize message list.
834:
835: IF FND_API.to_Boolean(p_init_msg_list) THEN
836: OE_MSG_PUB.initialize;
837: END IF;
838:
839: -- Set Savepoint
849: , x_CON_rec => x_CON_rec
850: , x_return_status => l_return_status
851: );
852:
853: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
856: RAISE FND_API.G_EXC_ERROR;
857: END IF;
850: , x_return_status => l_return_status
851: );
852:
853: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
856: RAISE FND_API.G_EXC_ERROR;
857: END IF;
858:
851: );
852:
853: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
856: RAISE FND_API.G_EXC_ERROR;
857: END IF;
858:
859:
852:
853: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
856: RAISE FND_API.G_EXC_ERROR;
857: END IF;
858:
859:
860: END IF;
870: , x_SEG_rec => l_SEG_rec
871: , x_return_status => l_return_status
872: );
873:
874: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
876: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
877: RAISE FND_API.G_EXC_ERROR;
878: END IF;
871: , x_return_status => l_return_status
872: );
873:
874: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
876: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
877: RAISE FND_API.G_EXC_ERROR;
878: END IF;
879:
872: );
873:
874: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
876: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
877: RAISE FND_API.G_EXC_ERROR;
878: END IF;
879:
880: x_SEG_tbl(I) := l_SEG_rec;
873:
874: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
876: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
877: RAISE FND_API.G_EXC_ERROR;
878: END IF;
879:
880: x_SEG_tbl(I) := l_SEG_rec;
881:
884: END LOOP;
885:
886: -- Set return status
887:
888: x_return_status := FND_API.G_RET_STS_SUCCESS;
889:
890: -- Get message count and data
891:
892: OE_MSG_PUB.Count_And_Get
896:
897:
898: EXCEPTION
899:
900: WHEN FND_API.G_EXC_ERROR THEN
901:
902: x_return_status := FND_API.G_RET_STS_ERROR;
903:
904: -- Get message count and data
898: EXCEPTION
899:
900: WHEN FND_API.G_EXC_ERROR THEN
901:
902: x_return_status := FND_API.G_RET_STS_ERROR;
903:
904: -- Get message count and data
905:
906: OE_MSG_PUB.Count_And_Get
911: -- Rollback
912:
913: ROLLBACK TO Lock_Attributes_PVT;
914:
915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
916:
917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
918:
919: -- Get message count and data
913: ROLLBACK TO Lock_Attributes_PVT;
914:
915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
916:
917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
918:
919: -- Get message count and data
920:
921: OE_MSG_PUB.Count_And_Get
928: ROLLBACK TO Lock_Attributes_PVT;
929:
930: WHEN OTHERS THEN
931:
932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
933:
934: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
935: THEN
936: OE_MSG_PUB.Add_Exc_Msg
969: -- End of Comments
970:
971: PROCEDURE Get_Attributes
972: ( p_api_version_number IN NUMBER
973: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
974: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
975: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
976: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
977: , p_prc_context_id IN NUMBER
986: BEGIN
987:
988: -- Standard call to check for call compatibility
989:
990: IF NOT FND_API.Compatible_API_Call
991: ( l_api_version_number
992: , p_api_version_number
993: , l_api_name
994: , G_PKG_NAME
993: , l_api_name
994: , G_PKG_NAME
995: )
996: THEN
997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
998: END IF;
999:
1000: -- Initialize message list.
1001:
998: END IF;
999:
1000: -- Initialize message list.
1001:
1002: IF FND_API.to_Boolean(p_init_msg_list) THEN
1003: OE_MSG_PUB.initialize;
1004: END IF;
1005:
1006: -- Get CON ( parent = CON )
1022: x_SEG_tbl := l_SEG_tbl;
1023:
1024: -- Set return status
1025:
1026: x_return_status := FND_API.G_RET_STS_SUCCESS;
1027:
1028: -- Get message count and data
1029:
1030: OE_MSG_PUB.Count_And_Get
1034:
1035:
1036: EXCEPTION
1037:
1038: WHEN FND_API.G_EXC_ERROR THEN
1039:
1040: x_return_status := FND_API.G_RET_STS_ERROR;
1041:
1042: -- Get message count and data
1036: EXCEPTION
1037:
1038: WHEN FND_API.G_EXC_ERROR THEN
1039:
1040: x_return_status := FND_API.G_RET_STS_ERROR;
1041:
1042: -- Get message count and data
1043:
1044: OE_MSG_PUB.Count_And_Get
1045: ( p_count => x_msg_count
1046: , p_data => x_msg_data
1047: );
1048:
1049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1050:
1051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1052:
1053: -- Get message count and data
1047: );
1048:
1049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1050:
1051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1052:
1053: -- Get message count and data
1054:
1055: OE_MSG_PUB.Count_And_Get
1058: );
1059:
1060: WHEN OTHERS THEN
1061:
1062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1063:
1064: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1065: THEN
1066: OE_MSG_PUB.Add_Exc_Msg