33: );
34:
35: -- Set record return status.
36:
37: l_LIMITS_rec.return_status := FND_API.G_RET_STS_SUCCESS;
38:
39: -- Prepare record.
40:
41: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
39: -- Prepare record.
40:
41: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
42:
43: l_LIMITS_rec.db_flag := FND_API.G_FALSE;
44:
45: -- Set missing old record elements to NULL.
46:
47: l_old_LIMITS_rec :=
50: ELSIF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_UPDATE
51: OR l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_DELETE
52: THEN
53:
54: l_LIMITS_rec.db_flag := FND_API.G_TRUE;
55:
56: -- Query Old if missing
57:
58: IF l_old_LIMITS_rec.limit_id = FND_API.G_MISS_NUM
54: l_LIMITS_rec.db_flag := FND_API.G_TRUE;
55:
56: -- Query Old if missing
57:
58: IF l_old_LIMITS_rec.limit_id = FND_API.G_MISS_NUM
59: THEN
60:
61: l_old_LIMITS_rec := QP_Limits_Util.Query_Row
62: ( p_limit_id => l_LIMITS_rec.limit_id
87: IF l_control_rec.default_attributes
88: OR l_control_rec.change_attributes
89: THEN
90:
91: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
92: --dbms_output.put_line('Processing Limits - Calling QP_Validate_Limits.Attributes' || l_return_status);
93: oe_debug_pub.add('Processing Limits - Calling QP_Validate_Limits.Attributes' || l_return_status);
94: QP_Validate_Limits.Attributes
95: ( x_return_status => l_return_status
97: , p_old_LIMITS_rec => l_old_LIMITS_rec
98: );
99:
100: oe_debug_pub.add('Processing Limits - After QP_Validate_Limits.Attributes ' || l_return_status);
101: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
104: RAISE FND_API.G_EXC_ERROR;
105: END IF;
98: );
99:
100: oe_debug_pub.add('Processing Limits - After QP_Validate_Limits.Attributes ' || l_return_status);
101: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
104: RAISE FND_API.G_EXC_ERROR;
105: END IF;
106:
99:
100: oe_debug_pub.add('Processing Limits - After QP_Validate_Limits.Attributes ' || l_return_status);
101: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
104: RAISE FND_API.G_EXC_ERROR;
105: END IF;
106:
107: END IF;
100: oe_debug_pub.add('Processing Limits - After QP_Validate_Limits.Attributes ' || l_return_status);
101: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
104: RAISE FND_API.G_EXC_ERROR;
105: END IF;
106:
107: END IF;
108:
178: );
179:
180: END IF;
181:
182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
179:
180: END IF;
181:
182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187:
180: END IF;
181:
182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187:
188: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
181:
182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187:
188: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
189:
200: );
201: END IF;
202:
203:
204: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
207: RAISE FND_API.G_EXC_ERROR;
208: END IF;
201: END IF;
202:
203:
204: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
207: RAISE FND_API.G_EXC_ERROR;
208: END IF;
209:
202:
203:
204: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
207: RAISE FND_API.G_EXC_ERROR;
208: END IF;
209:
210: END IF;
203:
204: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
207: RAISE FND_API.G_EXC_ERROR;
208: END IF;
209:
210: END IF;
211:
268: x_LIMITS_rec := l_LIMITS_rec;
269: x_old_LIMITS_rec := l_old_LIMITS_rec;
270:
271: EXCEPTION
272: WHEN FND_API.G_EXC_ERROR THEN
273: --dbms_output.put_line('Processing Limits - In Exception' || l_return_status);
274: oe_debug_pub.add('Processing Limits - In Exception' || l_return_status);
275:
276: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
272: WHEN FND_API.G_EXC_ERROR THEN
273: --dbms_output.put_line('Processing Limits - In Exception' || l_return_status);
274: oe_debug_pub.add('Processing Limits - In Exception' || l_return_status);
275:
276: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
277: x_LIMITS_rec := l_LIMITS_rec;
278: x_old_LIMITS_rec := l_old_LIMITS_rec;
279: RAISE;
280:
277: x_LIMITS_rec := l_LIMITS_rec;
278: x_old_LIMITS_rec := l_old_LIMITS_rec;
279: RAISE;
280:
281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
282:
283: l_LIMITS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284: x_LIMITS_rec := l_LIMITS_rec;
285: x_old_LIMITS_rec := l_old_LIMITS_rec;
279: RAISE;
280:
281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
282:
283: l_LIMITS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284: x_LIMITS_rec := l_LIMITS_rec;
285: x_old_LIMITS_rec := l_old_LIMITS_rec;
286:
287: RAISE;
295: , 'Limits'
296: );
297: END IF;
298:
299: l_LIMITS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
300: x_LIMITS_rec := l_LIMITS_rec;
301: x_old_LIMITS_rec := l_old_LIMITS_rec;
302:
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: l_LIMITS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
300: x_LIMITS_rec := l_LIMITS_rec;
301: x_old_LIMITS_rec := l_old_LIMITS_rec;
302:
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
304:
305: END Limits;
306:
307: -- Limit_Attrss
351: );
352:
353: -- Set record return status.
354:
355: l_LIMIT_ATTRS_rec.return_status := FND_API.G_RET_STS_SUCCESS;
356:
357: -- Prepare record.
358:
359: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
357: -- Prepare record.
358:
359: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
360:
361: l_LIMIT_ATTRS_rec.db_flag := FND_API.G_FALSE;
362:
363: -- Set missing old record elements to NULL.
364:
365: l_old_LIMIT_ATTRS_rec :=
368: ELSIF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_UPDATE
369: OR l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_DELETE
370: THEN
371:
372: l_LIMIT_ATTRS_rec.db_flag := FND_API.G_TRUE;
373:
374: -- Query Old if missing
375:
376: IF l_old_LIMIT_ATTRS_rec.limit_attribute_id = FND_API.G_MISS_NUM
372: l_LIMIT_ATTRS_rec.db_flag := FND_API.G_TRUE;
373:
374: -- Query Old if missing
375:
376: IF l_old_LIMIT_ATTRS_rec.limit_attribute_id = FND_API.G_MISS_NUM
377: THEN
378:
379: l_old_LIMIT_ATTRS_rec := QP_Limit_Attrs_Util.Query_Row
380: ( p_limit_attribute_id => l_LIMIT_ATTRS_rec.limit_attribute_id
403: IF l_control_rec.default_attributes
404: OR l_control_rec.change_attributes
405: THEN
406:
407: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
408: --dbms_output.put_line('Processing Limit Attributes- Calling QP_Validate_Limit_Attrs.Attributes' || l_return_status);
409: oe_debug_pub.add('Processing Limit Attributes- Calling QP_Validate_Limit_Attrs.Attributes' || l_return_status);
410:
411: QP_Validate_Limit_Attrs.Attributes
415: );
416:
417: --dbms_output.put_line('Processing Limit Attributes- After QP_Validate_Limit_Attrs.Attributes' || l_return_status);
418: oe_debug_pub.add('Processing Limit Attributes- After QP_Validate_Limit_Attrs.Attributes' || l_return_status);
419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
421: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
416:
417: --dbms_output.put_line('Processing Limit Attributes- After QP_Validate_Limit_Attrs.Attributes' || l_return_status);
418: oe_debug_pub.add('Processing Limit Attributes- After QP_Validate_Limit_Attrs.Attributes' || l_return_status);
419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
421: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424:
417: --dbms_output.put_line('Processing Limit Attributes- After QP_Validate_Limit_Attrs.Attributes' || l_return_status);
418: oe_debug_pub.add('Processing Limit Attributes- After QP_Validate_Limit_Attrs.Attributes' || l_return_status);
419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
421: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424:
425: END IF;
418: oe_debug_pub.add('Processing Limit Attributes- After QP_Validate_Limit_Attrs.Attributes' || l_return_status);
419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
421: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424:
425: END IF;
426:
493: );
494:
495: END IF;
496:
497: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
499: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
500: RAISE FND_API.G_EXC_ERROR;
501: END IF;
494:
495: END IF;
496:
497: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
499: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
500: RAISE FND_API.G_EXC_ERROR;
501: END IF;
502:
495: END IF;
496:
497: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
499: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
500: RAISE FND_API.G_EXC_ERROR;
501: END IF;
502:
503: --dbms_output.put_line('Processing Limit Attributes- After QP_Validate_Limit_Attrs.Entity' || l_return_status);
496:
497: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
499: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
500: RAISE FND_API.G_EXC_ERROR;
501: END IF;
502:
503: --dbms_output.put_line('Processing Limit Attributes- After QP_Validate_Limit_Attrs.Entity' || l_return_status);
504: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
524:
525: END IF;
526:
527:
528: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
530: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
531: RAISE FND_API.G_EXC_ERROR;
532: END IF;
525: END IF;
526:
527:
528: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
530: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
531: RAISE FND_API.G_EXC_ERROR;
532: END IF;
533:
526:
527:
528: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
530: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
531: RAISE FND_API.G_EXC_ERROR;
532: END IF;
533:
534: END IF;
527:
528: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
530: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
531: RAISE FND_API.G_EXC_ERROR;
532: END IF;
533:
534: END IF;
535:
593:
594:
595: EXCEPTION
596:
597: WHEN FND_API.G_EXC_ERROR THEN
598:
599: --dbms_output.put_line('Processing Limit Attributes- In Exception' || l_return_status);
600: oe_debug_pub.add('Processing Limit Attributes- In Exception' || l_return_status);
601: l_LIMIT_ATTRS_rec.return_status := FND_API.G_RET_STS_ERROR;
597: WHEN FND_API.G_EXC_ERROR THEN
598:
599: --dbms_output.put_line('Processing Limit Attributes- In Exception' || l_return_status);
600: oe_debug_pub.add('Processing Limit Attributes- In Exception' || l_return_status);
601: l_LIMIT_ATTRS_rec.return_status := FND_API.G_RET_STS_ERROR;
602: l_LIMIT_ATTRS_tbl(I) := l_LIMIT_ATTRS_rec;
603: l_old_LIMIT_ATTRS_tbl(I) := l_old_LIMIT_ATTRS_rec;
604:
605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
601: l_LIMIT_ATTRS_rec.return_status := FND_API.G_RET_STS_ERROR;
602: l_LIMIT_ATTRS_tbl(I) := l_LIMIT_ATTRS_rec;
603: l_old_LIMIT_ATTRS_tbl(I) := l_old_LIMIT_ATTRS_rec;
604:
605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
606:
607: l_LIMIT_ATTRS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608: l_LIMIT_ATTRS_tbl(I) := l_LIMIT_ATTRS_rec;
609: l_old_LIMIT_ATTRS_tbl(I) := l_old_LIMIT_ATTRS_rec;
603: l_old_LIMIT_ATTRS_tbl(I) := l_old_LIMIT_ATTRS_rec;
604:
605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
606:
607: l_LIMIT_ATTRS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608: l_LIMIT_ATTRS_tbl(I) := l_LIMIT_ATTRS_rec;
609: l_old_LIMIT_ATTRS_tbl(I) := l_old_LIMIT_ATTRS_rec;
610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611:
606:
607: l_LIMIT_ATTRS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608: l_LIMIT_ATTRS_tbl(I) := l_LIMIT_ATTRS_rec;
609: l_old_LIMIT_ATTRS_tbl(I) := l_old_LIMIT_ATTRS_rec;
610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611:
612: WHEN OTHERS THEN
613:
614: l_LIMIT_ATTRS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611:
612: WHEN OTHERS THEN
613:
614: l_LIMIT_ATTRS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
615: l_LIMIT_ATTRS_tbl(I) := l_LIMIT_ATTRS_rec;
616: l_old_LIMIT_ATTRS_tbl(I) := l_old_LIMIT_ATTRS_rec;
617:
618: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
622: , 'Limit_Attrss'
623: );
624: END IF;
625:
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627:
628: END;
629: END LOOP;
630:
634: x_old_LIMIT_ATTRS_tbl := l_old_LIMIT_ATTRS_tbl;
635:
636: EXCEPTION
637:
638: WHEN FND_API.G_EXC_ERROR THEN
639:
640: RAISE;
641:
642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
638: WHEN FND_API.G_EXC_ERROR THEN
639:
640: RAISE;
641:
642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
643:
644:
645: RAISE;
646:
654: );
655: END IF;
656:
657:
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659:
660: END Limit_Attrss;
661:
662: -- Limit_Balancess
710: -- Set record return status.
711:
712: --dbms_output.put_line('Inside Limit Balances 1- ' || l_return_status);
713: oe_debug_pub.add('Inside Limit Balances 1- ' || l_return_status);
714: l_LIMIT_BALANCES_rec.return_status := FND_API.G_RET_STS_SUCCESS;
715:
716: -- Prepare record.
717:
718: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
716: -- Prepare record.
717:
718: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
719:
720: l_LIMIT_BALANCES_rec.db_flag := FND_API.G_FALSE;
721:
722: -- Set missing old record elements to NULL.
723:
724: l_old_LIMIT_BALANCES_rec :=
727: ELSIF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_UPDATE
728: OR l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_DELETE
729: THEN
730:
731: l_LIMIT_BALANCES_rec.db_flag := FND_API.G_TRUE;
732:
733: -- Query Old if missing
734:
735: IF l_old_LIMIT_BALANCES_rec.limit_balance_id = FND_API.G_MISS_NUM
731: l_LIMIT_BALANCES_rec.db_flag := FND_API.G_TRUE;
732:
733: -- Query Old if missing
734:
735: IF l_old_LIMIT_BALANCES_rec.limit_balance_id = FND_API.G_MISS_NUM
736: THEN
737:
738: l_old_LIMIT_BALANCES_rec := QP_Limit_Balances_Util.Query_Row
739: ( p_limit_balance_id => l_LIMIT_BALANCES_rec.limit_balance_id
766: IF l_control_rec.default_attributes
767: OR l_control_rec.change_attributes
768: THEN
769:
770: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
771:
772: --dbms_output.put_line('Processing Limit Balances - Calling QP_Validate_Limit_Balances.Attributes ' || l_return_status);
773: oe_debug_pub.add('Processing Limit Balances - Calling QP_Validate_Limit_Balances.Attributes ' || l_return_status);
774: QP_Validate_Limit_Balances.Attributes
778: );
779:
780: --dbms_output.put_line('Processing Limit Balances - After QP_Validate_Limit_Balances.Attributes ' || l_return_status);
781: oe_debug_pub.add('Processing Limit Balances - After QP_Validate_Limit_Balances.Attributes ' || l_return_status);
782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
779:
780: --dbms_output.put_line('Processing Limit Balances - After QP_Validate_Limit_Balances.Attributes ' || l_return_status);
781: oe_debug_pub.add('Processing Limit Balances - After QP_Validate_Limit_Balances.Attributes ' || l_return_status);
782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
787:
780: --dbms_output.put_line('Processing Limit Balances - After QP_Validate_Limit_Balances.Attributes ' || l_return_status);
781: oe_debug_pub.add('Processing Limit Balances - After QP_Validate_Limit_Balances.Attributes ' || l_return_status);
782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
787:
788: END IF;
781: oe_debug_pub.add('Processing Limit Balances - After QP_Validate_Limit_Balances.Attributes ' || l_return_status);
782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
787:
788: END IF;
789:
867: END IF;
868:
869: --dbms_output.put_line('Processing Limit Balances - After QP_Validate_Limit_Balances.Entity ' || l_return_status);
870: oe_debug_pub.add('Processing Limit Balances - After QP_Validate_Limit_Balances.Entity ' || l_return_status);
871: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
873: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
874: RAISE FND_API.G_EXC_ERROR;
875: END IF;
868:
869: --dbms_output.put_line('Processing Limit Balances - After QP_Validate_Limit_Balances.Entity ' || l_return_status);
870: oe_debug_pub.add('Processing Limit Balances - After QP_Validate_Limit_Balances.Entity ' || l_return_status);
871: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
873: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
874: RAISE FND_API.G_EXC_ERROR;
875: END IF;
876:
869: --dbms_output.put_line('Processing Limit Balances - After QP_Validate_Limit_Balances.Entity ' || l_return_status);
870: oe_debug_pub.add('Processing Limit Balances - After QP_Validate_Limit_Balances.Entity ' || l_return_status);
871: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
873: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
874: RAISE FND_API.G_EXC_ERROR;
875: END IF;
876:
877: END IF;
870: oe_debug_pub.add('Processing Limit Balances - After QP_Validate_Limit_Balances.Entity ' || l_return_status);
871: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
873: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
874: RAISE FND_API.G_EXC_ERROR;
875: END IF;
876:
877: END IF;
878:
924:
925:
926: EXCEPTION
927:
928: WHEN FND_API.G_EXC_ERROR THEN
929:
930: l_LIMIT_BALANCES_rec.return_status := FND_API.G_RET_STS_ERROR;
931: l_LIMIT_BALANCES_tbl(I) := l_LIMIT_BALANCES_rec;
932: l_old_LIMIT_BALANCES_tbl(I) := l_old_LIMIT_BALANCES_rec;
926: EXCEPTION
927:
928: WHEN FND_API.G_EXC_ERROR THEN
929:
930: l_LIMIT_BALANCES_rec.return_status := FND_API.G_RET_STS_ERROR;
931: l_LIMIT_BALANCES_tbl(I) := l_LIMIT_BALANCES_rec;
932: l_old_LIMIT_BALANCES_tbl(I) := l_old_LIMIT_BALANCES_rec;
933:
934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
930: l_LIMIT_BALANCES_rec.return_status := FND_API.G_RET_STS_ERROR;
931: l_LIMIT_BALANCES_tbl(I) := l_LIMIT_BALANCES_rec;
932: l_old_LIMIT_BALANCES_tbl(I) := l_old_LIMIT_BALANCES_rec;
933:
934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
935:
936: l_LIMIT_BALANCES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937: l_LIMIT_BALANCES_tbl(I) := l_LIMIT_BALANCES_rec;
938: l_old_LIMIT_BALANCES_tbl(I) := l_old_LIMIT_BALANCES_rec;
932: l_old_LIMIT_BALANCES_tbl(I) := l_old_LIMIT_BALANCES_rec;
933:
934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
935:
936: l_LIMIT_BALANCES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937: l_LIMIT_BALANCES_tbl(I) := l_LIMIT_BALANCES_rec;
938: l_old_LIMIT_BALANCES_tbl(I) := l_old_LIMIT_BALANCES_rec;
939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
940:
935:
936: l_LIMIT_BALANCES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937: l_LIMIT_BALANCES_tbl(I) := l_LIMIT_BALANCES_rec;
938: l_old_LIMIT_BALANCES_tbl(I) := l_old_LIMIT_BALANCES_rec;
939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
940:
941: WHEN OTHERS THEN
942:
943: l_LIMIT_BALANCES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
940:
941: WHEN OTHERS THEN
942:
943: l_LIMIT_BALANCES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
944: l_LIMIT_BALANCES_tbl(I) := l_LIMIT_BALANCES_rec;
945: l_old_LIMIT_BALANCES_tbl(I) := l_old_LIMIT_BALANCES_rec;
946:
947: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
951: , 'Limit_Balancess'
952: );
953: END IF;
954:
955: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
956:
957: END;
958: END LOOP;
959:
963: x_old_LIMIT_BALANCES_tbl := l_old_LIMIT_BALANCES_tbl;
964:
965: EXCEPTION
966:
967: WHEN FND_API.G_EXC_ERROR THEN
968:
969: RAISE;
970:
971: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
967: WHEN FND_API.G_EXC_ERROR THEN
968:
969: RAISE;
970:
971: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
972:
973:
974: RAISE;
975:
983: );
984: END IF;
985:
986:
987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
988:
989: END Limit_Balancess;
990:
991:
1006: -- End of Comments
1007:
1008: PROCEDURE Process_Limits
1009: ( p_api_version_number IN NUMBER
1010: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1011: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1012: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1013: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
1014: QP_GLOBALS.G_MISS_CONTROL_REC
1007:
1008: PROCEDURE Process_Limits
1009: ( p_api_version_number IN NUMBER
1010: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1011: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1012: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1013: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
1014: QP_GLOBALS.G_MISS_CONTROL_REC
1015: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1008: PROCEDURE Process_Limits
1009: ( p_api_version_number IN NUMBER
1010: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1011: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1012: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1013: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
1014: QP_GLOBALS.G_MISS_CONTROL_REC
1015: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1016: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1057: BEGIN
1058:
1059: -- Standard call to check for call compatibility
1060:
1061: IF NOT FND_API.Compatible_API_Call
1062: ( l_api_version_number
1063: , p_api_version_number
1064: , l_api_name
1065: , G_PKG_NAME
1064: , l_api_name
1065: , G_PKG_NAME
1066: )
1067: THEN
1068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1069: END IF;
1070:
1071: -- Initialize message list.
1072:
1069: END IF;
1070:
1071: -- Initialize message list.
1072:
1073: IF FND_API.to_Boolean(p_init_msg_list) THEN
1074: OE_MSG_PUB.initialize;
1075: END IF;
1076:
1077: -- Init local table variables.
1120: QP_DELAYED_REQUESTS_PVT.Process_Delayed_Requests
1121: (
1122: x_return_status => l_return_status
1123: );
1124: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1121: (
1122: x_return_status => l_return_status
1123: );
1124: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1129: END IF;
1122: x_return_status => l_return_status
1123: );
1124: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1129: END IF;
1130:
1123: );
1124: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1129: END IF;
1130:
1131: -- Load parent key if missing and operation is create.
1136:
1137: --dbms_output.put_line('XXXX Limit_ATTR_ID' || l_LIMIT_ATTRS_tbl(I).limit_id);
1138: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE
1139: AND (l_LIMIT_ATTRS_rec.limit_id IS NULL OR
1140: l_LIMIT_ATTRS_rec.limit_id = FND_API.G_MISS_NUM)
1141: THEN
1142:
1143: -- Copy parent_id.
1144:
1183: l_LIMIT_BALANCES_rec := l_LIMIT_BALANCES_tbl(I);
1184:
1185: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_CREATE
1186: AND (l_LIMIT_BALANCES_rec.limit_id IS NULL OR
1187: l_LIMIT_BALANCES_rec.limit_id = FND_API.G_MISS_NUM)
1188: THEN
1189:
1190: -- Copy parent_id.
1191:
1233: QP_DELAYED_REQUESTS_PVT.Process_Delayed_Requests
1234: (
1235: x_return_status => l_return_status
1236: );
1237: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1239: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: END IF;
1234: (
1235: x_return_status => l_return_status
1236: );
1237: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1239: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: END IF;
1242: NULL;
1235: x_return_status => l_return_status
1236: );
1237: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1239: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: END IF;
1242: NULL;
1243:
1236: );
1237: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1239: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: END IF;
1242: NULL;
1243:
1244: END IF;
1266: END IF;
1267:
1268: -- Derive return status.
1269:
1270: x_return_status := FND_API.G_RET_STS_SUCCESS;
1271:
1272: IF l_LIMITS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1273: x_return_status := FND_API.G_RET_STS_ERROR;
1274: END IF;
1268: -- Derive return status.
1269:
1270: x_return_status := FND_API.G_RET_STS_SUCCESS;
1271:
1272: IF l_LIMITS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1273: x_return_status := FND_API.G_RET_STS_ERROR;
1274: END IF;
1275:
1276: FOR I IN 1..l_LIMIT_ATTRS_tbl.COUNT LOOP
1269:
1270: x_return_status := FND_API.G_RET_STS_SUCCESS;
1271:
1272: IF l_LIMITS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1273: x_return_status := FND_API.G_RET_STS_ERROR;
1274: END IF;
1275:
1276: FOR I IN 1..l_LIMIT_ATTRS_tbl.COUNT LOOP
1277:
1274: END IF;
1275:
1276: FOR I IN 1..l_LIMIT_ATTRS_tbl.COUNT LOOP
1277:
1278: IF l_LIMIT_ATTRS_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
1279: x_return_status := FND_API.G_RET_STS_ERROR;
1280: END IF;
1281:
1282: END LOOP;
1275:
1276: FOR I IN 1..l_LIMIT_ATTRS_tbl.COUNT LOOP
1277:
1278: IF l_LIMIT_ATTRS_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
1279: x_return_status := FND_API.G_RET_STS_ERROR;
1280: END IF;
1281:
1282: END LOOP;
1283:
1282: END LOOP;
1283:
1284: FOR I IN 1..l_LIMIT_BALANCES_tbl.COUNT LOOP
1285:
1286: IF l_LIMIT_BALANCES_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
1287: x_return_status := FND_API.G_RET_STS_ERROR;
1288: END IF;
1289:
1290: END LOOP;
1283:
1284: FOR I IN 1..l_LIMIT_BALANCES_tbl.COUNT LOOP
1285:
1286: IF l_LIMIT_BALANCES_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
1287: x_return_status := FND_API.G_RET_STS_ERROR;
1288: END IF;
1289:
1290: END LOOP;
1291:
1298:
1299:
1300: EXCEPTION
1301:
1302: WHEN FND_API.G_EXC_ERROR THEN
1303:
1304: x_return_status := FND_API.G_RET_STS_ERROR;
1305:
1306: -- Get message count and data
1300: EXCEPTION
1301:
1302: WHEN FND_API.G_EXC_ERROR THEN
1303:
1304: x_return_status := FND_API.G_RET_STS_ERROR;
1305:
1306: -- Get message count and data
1307:
1308: OE_MSG_PUB.Count_And_Get
1311: );
1312:
1313: --dbms_output.put_line('Proc Limits - EXCEPTION x_msg_count' || x_msg_count);
1314:
1315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1316:
1317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1318:
1319: -- Get message count and data
1313: --dbms_output.put_line('Proc Limits - EXCEPTION x_msg_count' || x_msg_count);
1314:
1315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1316:
1317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1318:
1319: -- Get message count and data
1320:
1321: OE_MSG_PUB.Count_And_Get
1325: --dbms_output.put_line('Proc Limits - EXCEPTION x_msg_count' || x_msg_count);
1326:
1327: WHEN OTHERS THEN
1328:
1329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1330:
1331: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1332: THEN
1333: OE_MSG_PUB.Add_Exc_Msg
1363: -- End of Comments
1364:
1365: PROCEDURE Lock_Limits
1366: ( p_api_version_number IN NUMBER
1367: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1368: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1369: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1370: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1371: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
1380: )
1381: IS
1382: l_api_version_number CONSTANT NUMBER := 1.0;
1383: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Limits';
1384: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1385: l_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1386: l_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1387: BEGIN
1388:
1387: BEGIN
1388:
1389: -- Standard call to check for call compatibility
1390:
1391: IF NOT FND_API.Compatible_API_Call
1392: ( l_api_version_number
1393: , p_api_version_number
1394: , l_api_name
1395: , G_PKG_NAME
1394: , l_api_name
1395: , G_PKG_NAME
1396: )
1397: THEN
1398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1399: END IF;
1400:
1401: -- Initialize message list.
1402:
1399: END IF;
1400:
1401: -- Initialize message list.
1402:
1403: IF FND_API.to_Boolean(p_init_msg_list) THEN
1404: OE_MSG_PUB.initialize;
1405: END IF;
1406:
1407: -- Set Savepoint
1417: , x_LIMITS_rec => x_LIMITS_rec
1418: , x_return_status => l_return_status
1419: );
1420:
1421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1424: RAISE FND_API.G_EXC_ERROR;
1425: END IF;
1418: , x_return_status => l_return_status
1419: );
1420:
1421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1424: RAISE FND_API.G_EXC_ERROR;
1425: END IF;
1426:
1419: );
1420:
1421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1424: RAISE FND_API.G_EXC_ERROR;
1425: END IF;
1426:
1427:
1420:
1421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1424: RAISE FND_API.G_EXC_ERROR;
1425: END IF;
1426:
1427:
1428: END IF;
1438: , x_LIMIT_ATTRS_rec => l_LIMIT_ATTRS_rec
1439: , x_return_status => l_return_status
1440: );
1441:
1442: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1444: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1445: RAISE FND_API.G_EXC_ERROR;
1446: END IF;
1439: , x_return_status => l_return_status
1440: );
1441:
1442: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1444: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1445: RAISE FND_API.G_EXC_ERROR;
1446: END IF;
1447:
1440: );
1441:
1442: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1444: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1445: RAISE FND_API.G_EXC_ERROR;
1446: END IF;
1447:
1448: x_LIMIT_ATTRS_tbl(I) := l_LIMIT_ATTRS_rec;
1441:
1442: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1444: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1445: RAISE FND_API.G_EXC_ERROR;
1446: END IF;
1447:
1448: x_LIMIT_ATTRS_tbl(I) := l_LIMIT_ATTRS_rec;
1449:
1462: , x_LIMIT_BALANCES_rec => l_LIMIT_BALANCES_rec
1463: , x_return_status => l_return_status
1464: );
1465:
1466: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1468: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1469: RAISE FND_API.G_EXC_ERROR;
1470: END IF;
1463: , x_return_status => l_return_status
1464: );
1465:
1466: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1468: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1469: RAISE FND_API.G_EXC_ERROR;
1470: END IF;
1471:
1464: );
1465:
1466: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1468: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1469: RAISE FND_API.G_EXC_ERROR;
1470: END IF;
1471:
1472: x_LIMIT_BALANCES_tbl(I) := l_LIMIT_BALANCES_rec;
1465:
1466: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1468: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1469: RAISE FND_API.G_EXC_ERROR;
1470: END IF;
1471:
1472: x_LIMIT_BALANCES_tbl(I) := l_LIMIT_BALANCES_rec;
1473:
1476: END LOOP;
1477:
1478: -- Set return status
1479:
1480: x_return_status := FND_API.G_RET_STS_SUCCESS;
1481:
1482: -- Get message count and data
1483:
1484: OE_MSG_PUB.Count_And_Get
1488:
1489:
1490: EXCEPTION
1491:
1492: WHEN FND_API.G_EXC_ERROR THEN
1493:
1494: x_return_status := FND_API.G_RET_STS_ERROR;
1495:
1496: -- Get message count and data
1490: EXCEPTION
1491:
1492: WHEN FND_API.G_EXC_ERROR THEN
1493:
1494: x_return_status := FND_API.G_RET_STS_ERROR;
1495:
1496: -- Get message count and data
1497:
1498: OE_MSG_PUB.Count_And_Get
1503: -- Rollback
1504:
1505: ROLLBACK TO Lock_Limits_PVT;
1506:
1507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1508:
1509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1510:
1511: -- Get message count and data
1505: ROLLBACK TO Lock_Limits_PVT;
1506:
1507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1508:
1509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1510:
1511: -- Get message count and data
1512:
1513: OE_MSG_PUB.Count_And_Get
1520: ROLLBACK TO Lock_Limits_PVT;
1521:
1522: WHEN OTHERS THEN
1523:
1524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1525:
1526: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1527: THEN
1528: OE_MSG_PUB.Add_Exc_Msg
1561: -- End of Comments
1562:
1563: PROCEDURE Get_Limits
1564: ( p_api_version_number IN NUMBER
1565: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1566: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1567: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1568: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1569: , p_limit_id IN NUMBER
1580: BEGIN
1581:
1582: -- Standard call to check for call compatibility
1583:
1584: IF NOT FND_API.Compatible_API_Call
1585: ( l_api_version_number
1586: , p_api_version_number
1587: , l_api_name
1588: , G_PKG_NAME
1587: , l_api_name
1588: , G_PKG_NAME
1589: )
1590: THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1593:
1594: -- Initialize message list.
1595:
1592: END IF;
1593:
1594: -- Initialize message list.
1595:
1596: IF FND_API.to_Boolean(p_init_msg_list) THEN
1597: OE_MSG_PUB.initialize;
1598: END IF;
1599:
1600: -- Get LIMITS ( parent = LIMITS )
1624: x_LIMIT_BALANCES_tbl := l_LIMIT_BALANCES_tbl;
1625:
1626: -- Set return status
1627:
1628: x_return_status := FND_API.G_RET_STS_SUCCESS;
1629:
1630: -- Get message count and data
1631:
1632: OE_MSG_PUB.Count_And_Get
1636:
1637:
1638: EXCEPTION
1639:
1640: WHEN FND_API.G_EXC_ERROR THEN
1641:
1642: x_return_status := FND_API.G_RET_STS_ERROR;
1643:
1644: -- Get message count and data
1638: EXCEPTION
1639:
1640: WHEN FND_API.G_EXC_ERROR THEN
1641:
1642: x_return_status := FND_API.G_RET_STS_ERROR;
1643:
1644: -- Get message count and data
1645:
1646: OE_MSG_PUB.Count_And_Get
1647: ( p_count => x_msg_count
1648: , p_data => x_msg_data
1649: );
1650:
1651: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1652:
1653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1654:
1655: -- Get message count and data
1649: );
1650:
1651: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1652:
1653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1654:
1655: -- Get message count and data
1656:
1657: OE_MSG_PUB.Count_And_Get
1660: );
1661:
1662: WHEN OTHERS THEN
1663:
1664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1665:
1666: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1667: THEN
1668: OE_MSG_PUB.Add_Exc_Msg