9: +=========================================================================*/
10: PROCEDURE Insert_Row
11: (
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
16: p_return_status OUT NOCOPY VARCHAR2,
17: p_msg_count OUT NOCOPY NUMBER,
10: PROCEDURE Insert_Row
11: (
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
16: p_return_status OUT NOCOPY VARCHAR2,
17: p_msg_count OUT NOCOPY NUMBER,
18: p_msg_data OUT NOCOPY VARCHAR2,
11: (
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
16: p_return_status OUT NOCOPY VARCHAR2,
17: p_msg_count OUT NOCOPY NUMBER,
18: p_msg_data OUT NOCOPY VARCHAR2,
19: --
26: p_constraint_id IN NUMBER,
27: p_default_Rule_id IN NUMBER,
28: p_Parameter_Id IN NUMBER,
29: p_position_set_group_id IN NUMBER,
30: p_gl_budget_id IN NUMBER := FND_API.G_MISS_NUM,
31: /* Budget Revision Rules Enhancement Start */
32: p_rule_id IN VARCHAR2,
33: p_apply_balance_flag IN VARCHAR2,
34: /* Budget Revision Rules Enhancement End */
65: BEGIN
66: --
67: SAVEPOINT Insert_Row_Pvt ;
68: --
69: IF NOT FND_API.Compatible_API_Call ( l_api_version,
70: p_api_version,
71: l_api_name,
72: G_PKG_NAME )
73: THEN
70: p_api_version,
71: l_api_name,
72: G_PKG_NAME )
73: THEN
74: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
75: END IF;
76: --
77: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
78: FND_MSG_PUB.initialize ;
73: THEN
74: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
75: END IF;
76: --
77: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
78: FND_MSG_PUB.initialize ;
79: END IF;
80: --
81: p_return_status := FND_API.G_RET_STS_SUCCESS ;
77: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
78: FND_MSG_PUB.initialize ;
79: END IF;
80: --
81: p_return_status := FND_API.G_RET_STS_SUCCESS ;
82: --
83:
84: -- Resolve the defaulted parameters.
85: IF p_gl_budget_id = FND_API.G_MISS_NUM THEN
81: p_return_status := FND_API.G_RET_STS_SUCCESS ;
82: --
83:
84: -- Resolve the defaulted parameters.
85: IF p_gl_budget_id = FND_API.G_MISS_NUM THEN
86: l_gl_budget_id := NULL ;
87: ELSE
88: l_gl_budget_id := p_gl_budget_id ;
89: END IF;
164: FETCH C INTO p_row_id;
165: --
166: IF (C%NOTFOUND) THEN
167: CLOSE C;
168: RAISE FND_API.G_EXC_ERROR ;
169: END IF;
170: --
171: CLOSE C;
172: --
169: END IF;
170: --
171: CLOSE C;
172: --
173: IF FND_API.To_Boolean ( p_commit ) THEN
174: COMMIT WORK;
175: END iF;
176: --
177: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
178: p_data => p_msg_data );
179: --
180: EXCEPTION
181: --
182: WHEN FND_API.G_EXC_ERROR THEN
183: --
184: ROLLBACK TO Insert_Row_Pvt ;
185: p_return_status := FND_API.G_RET_STS_ERROR;
186: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
181: --
182: WHEN FND_API.G_EXC_ERROR THEN
183: --
184: ROLLBACK TO Insert_Row_Pvt ;
185: p_return_status := FND_API.G_RET_STS_ERROR;
186: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
187: p_data => p_msg_data );
188: --
189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
185: p_return_status := FND_API.G_RET_STS_ERROR;
186: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
187: p_data => p_msg_data );
188: --
189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
190: --
191: ROLLBACK TO Insert_Row_Pvt ;
192: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
193: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
188: --
189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
190: --
191: ROLLBACK TO Insert_Row_Pvt ;
192: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
193: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
194: p_data => p_msg_data );
195: --
196: WHEN OTHERS THEN
195: --
196: WHEN OTHERS THEN
197: --
198: ROLLBACK TO Insert_Row_Pvt ;
199: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
200: --
201: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
202: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
203: l_api_name);
216: +=========================================================================*/
217: PROCEDURE Lock_Row
218: (
219: p_api_version IN NUMBER,
220: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
221: p_commit IN VARCHAR2 := FND_API.G_FALSE,
222: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
223: p_return_status OUT NOCOPY VARCHAR2,
224: p_msg_count OUT NOCOPY NUMBER,
217: PROCEDURE Lock_Row
218: (
219: p_api_version IN NUMBER,
220: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
221: p_commit IN VARCHAR2 := FND_API.G_FALSE,
222: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
223: p_return_status OUT NOCOPY VARCHAR2,
224: p_msg_count OUT NOCOPY NUMBER,
225: p_msg_data OUT NOCOPY VARCHAR2,
218: (
219: p_api_version IN NUMBER,
220: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
221: p_commit IN VARCHAR2 := FND_API.G_FALSE,
222: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
223: p_return_status OUT NOCOPY VARCHAR2,
224: p_msg_count OUT NOCOPY NUMBER,
225: p_msg_data OUT NOCOPY VARCHAR2,
226: --
233: p_constraint_id IN NUMBER,
234: p_default_Rule_id IN NUMBER,
235: p_Parameter_Id IN NUMBER,
236: p_position_set_group_id IN NUMBER,
237: p_gl_budget_id IN NUMBER := FND_API.G_MISS_NUM,
238: /* Budget Revision Rules Enhancement Start */
239: p_rule_id IN VARCHAR2,
240: p_apply_balance_flag IN VARCHAR2,
241: /* Budget Revision Rules Enhancement End */
261: BEGIN
262: --
263: SAVEPOINT Lock_Row_Pvt ;
264: --
265: IF NOT FND_API.Compatible_API_Call ( l_api_version,
266: p_api_version,
267: l_api_name,
268: G_PKG_NAME )
269: THEN
266: p_api_version,
267: l_api_name,
268: G_PKG_NAME )
269: THEN
270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
271: END IF;
272: --
273:
274: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
271: END IF;
272: --
273:
274: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
275: FND_MSG_PUB.initialize ;
276: END IF;
277: --
278: p_return_status := FND_API.G_RET_STS_SUCCESS ;
274: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
275: FND_MSG_PUB.initialize ;
276: END IF;
277: --
278: p_return_status := FND_API.G_RET_STS_SUCCESS ;
279: p_row_locked := FND_API.G_TRUE ;
280:
281: -- Resolve the defaulted parameters.
282: IF p_gl_budget_id = FND_API.G_MISS_NUM THEN
275: FND_MSG_PUB.initialize ;
276: END IF;
277: --
278: p_return_status := FND_API.G_RET_STS_SUCCESS ;
279: p_row_locked := FND_API.G_TRUE ;
280:
281: -- Resolve the defaulted parameters.
282: IF p_gl_budget_id = FND_API.G_MISS_NUM THEN
283: l_gl_budget_id := NULL ;
278: p_return_status := FND_API.G_RET_STS_SUCCESS ;
279: p_row_locked := FND_API.G_TRUE ;
280:
281: -- Resolve the defaulted parameters.
282: IF p_gl_budget_id = FND_API.G_MISS_NUM THEN
283: l_gl_budget_id := NULL ;
284: ELSE
285: l_gl_budget_id := p_gl_budget_id ;
286: END IF;
292: IF (C%NOTFOUND) THEN
293: CLOSE C;
294: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
295: FND_MSG_PUB.Add;
296: RAISE FND_API.G_EXC_ERROR ;
297: END IF;
298: --
299: CLOSE C;
300: --
358: Null;
359: ELSE
360: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
361: FND_MSG_PUB.Add;
362: RAISE FND_API.G_EXC_ERROR ;
363: END IF;
364: --
365: IF FND_API.To_Boolean ( p_commit ) THEN
366: COMMIT WORK;
361: FND_MSG_PUB.Add;
362: RAISE FND_API.G_EXC_ERROR ;
363: END IF;
364: --
365: IF FND_API.To_Boolean ( p_commit ) THEN
366: COMMIT WORK;
367: END iF;
368: --
369: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
373: --
374: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
375: --
376: ROLLBACK TO Lock_Row_Pvt ;
377: p_row_locked := FND_API.G_FALSE;
378: p_return_status := FND_API.G_RET_STS_ERROR;
379: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
380: p_data => p_msg_data );
381: --
374: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
375: --
376: ROLLBACK TO Lock_Row_Pvt ;
377: p_row_locked := FND_API.G_FALSE;
378: p_return_status := FND_API.G_RET_STS_ERROR;
379: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
380: p_data => p_msg_data );
381: --
382: WHEN FND_API.G_EXC_ERROR THEN
378: p_return_status := FND_API.G_RET_STS_ERROR;
379: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
380: p_data => p_msg_data );
381: --
382: WHEN FND_API.G_EXC_ERROR THEN
383: --
384: ROLLBACK TO Lock_Row_Pvt ;
385: p_return_status := FND_API.G_RET_STS_ERROR;
386: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
381: --
382: WHEN FND_API.G_EXC_ERROR THEN
383: --
384: ROLLBACK TO Lock_Row_Pvt ;
385: p_return_status := FND_API.G_RET_STS_ERROR;
386: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
387: p_data => p_msg_data );
388: --
389: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
385: p_return_status := FND_API.G_RET_STS_ERROR;
386: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
387: p_data => p_msg_data );
388: --
389: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
390: --
391: ROLLBACK TO Lock_Row_Pvt ;
392: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
393: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
388: --
389: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
390: --
391: ROLLBACK TO Lock_Row_Pvt ;
392: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
393: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
394: p_data => p_msg_data );
395: --
396: WHEN OTHERS THEN
395: --
396: WHEN OTHERS THEN
397: --
398: ROLLBACK TO Lock_Row_Pvt ;
399: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
400: --
401: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
402: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
403: l_api_name);
416: +=========================================================================*/
417: PROCEDURE Update_Row
418: (
419: p_api_version IN NUMBER,
420: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
421: p_commit IN VARCHAR2 := FND_API.G_FALSE,
422: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
423: p_return_status OUT NOCOPY VARCHAR2,
424: p_msg_count OUT NOCOPY NUMBER,
417: PROCEDURE Update_Row
418: (
419: p_api_version IN NUMBER,
420: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
421: p_commit IN VARCHAR2 := FND_API.G_FALSE,
422: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
423: p_return_status OUT NOCOPY VARCHAR2,
424: p_msg_count OUT NOCOPY NUMBER,
425: p_msg_data OUT NOCOPY VARCHAR2,
418: (
419: p_api_version IN NUMBER,
420: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
421: p_commit IN VARCHAR2 := FND_API.G_FALSE,
422: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
423: p_return_status OUT NOCOPY VARCHAR2,
424: p_msg_count OUT NOCOPY NUMBER,
425: p_msg_data OUT NOCOPY VARCHAR2,
426: --
433: p_constraint_id IN NUMBER,
434: p_default_Rule_id IN NUMBER,
435: p_Parameter_Id IN NUMBER,
436: p_position_set_group_id IN NUMBER,
437: p_gl_budget_id IN NUMBER := FND_API.G_MISS_NUM,
438: /* Budget Revision Rules Enhancement Start */
439: p_rule_id IN VARCHAR2,
440: p_apply_balance_flag IN VARCHAR2,
441: /* Budget Revision Rules Enhancement End */
459: BEGIN
460: --
461: SAVEPOINT Update_Row_Pvt ;
462: --
463: IF NOT FND_API.Compatible_API_Call ( l_api_version,
464: p_api_version,
465: l_api_name,
466: G_PKG_NAME )
467: THEN
464: p_api_version,
465: l_api_name,
466: G_PKG_NAME )
467: THEN
468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
469: END IF;
470: --
471:
472: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
469: END IF;
470: --
471:
472: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
473: FND_MSG_PUB.initialize ;
474: END IF;
475: --
476: p_return_status := FND_API.G_RET_STS_SUCCESS ;
472: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
473: FND_MSG_PUB.initialize ;
474: END IF;
475: --
476: p_return_status := FND_API.G_RET_STS_SUCCESS ;
477:
478: -- Resolve the defaulted parameters.
479: IF p_gl_budget_id = FND_API.G_MISS_NUM THEN
480: l_gl_budget_id := NULL ;
475: --
476: p_return_status := FND_API.G_RET_STS_SUCCESS ;
477:
478: -- Resolve the defaulted parameters.
479: IF p_gl_budget_id = FND_API.G_MISS_NUM THEN
480: l_gl_budget_id := NULL ;
481: ELSE
482: l_gl_budget_id := p_gl_budget_id ;
483: END IF;
525: IF (SQL%NOTFOUND) THEN
526: RAISE NO_DATA_FOUND ;
527: END IF;
528: --
529: IF FND_API.To_Boolean ( p_commit ) THEN
530: COMMIT WORK;
531: END iF;
532: --
533: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
534: p_data => p_msg_data );
535: --
536: EXCEPTION
537: --
538: WHEN FND_API.G_EXC_ERROR THEN
539: --
540: ROLLBACK TO Update_Row_Pvt ;
541: p_return_status := FND_API.G_RET_STS_ERROR;
542: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
537: --
538: WHEN FND_API.G_EXC_ERROR THEN
539: --
540: ROLLBACK TO Update_Row_Pvt ;
541: p_return_status := FND_API.G_RET_STS_ERROR;
542: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
543: p_data => p_msg_data );
544: --
545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
541: p_return_status := FND_API.G_RET_STS_ERROR;
542: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
543: p_data => p_msg_data );
544: --
545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
546: --
547: ROLLBACK TO Update_Row_Pvt ;
548: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
544: --
545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
546: --
547: ROLLBACK TO Update_Row_Pvt ;
548: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
550: p_data => p_msg_data );
551: --
552: WHEN OTHERS THEN
551: --
552: WHEN OTHERS THEN
553: --
554: ROLLBACK TO Update_Row_Pvt ;
555: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
556: --
557: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
558: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
559: l_api_name);
571: | PROCEDURE Delete_Row |
572: +=========================================================================*/
573: PROCEDURE Delete_Row
574: ( p_api_version IN NUMBER,
575: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
576: p_commit IN VARCHAR2 := FND_API.G_FALSE,
577: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
578: p_return_status OUT NOCOPY VARCHAR2,
579: p_msg_count OUT NOCOPY NUMBER,
572: +=========================================================================*/
573: PROCEDURE Delete_Row
574: ( p_api_version IN NUMBER,
575: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
576: p_commit IN VARCHAR2 := FND_API.G_FALSE,
577: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
578: p_return_status OUT NOCOPY VARCHAR2,
579: p_msg_count OUT NOCOPY NUMBER,
580: p_msg_data OUT NOCOPY VARCHAR2,
573: PROCEDURE Delete_Row
574: ( p_api_version IN NUMBER,
575: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
576: p_commit IN VARCHAR2 := FND_API.G_FALSE,
577: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
578: p_return_status OUT NOCOPY VARCHAR2,
579: p_msg_count OUT NOCOPY NUMBER,
580: p_msg_data OUT NOCOPY VARCHAR2,
581: --
589: BEGIN
590: --
591: SAVEPOINT Delete_Row_Pvt ;
592: --
593: IF NOT FND_API.Compatible_API_Call ( l_api_version,
594: p_api_version,
595: l_api_name,
596: G_PKG_NAME )
597: THEN
594: p_api_version,
595: l_api_name,
596: G_PKG_NAME )
597: THEN
598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
599: END IF;
600: --
601:
602: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
599: END IF;
600: --
601:
602: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
603: FND_MSG_PUB.initialize ;
604: END IF;
605: --
606: p_return_status := FND_API.G_RET_STS_SUCCESS ;
602: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
603: FND_MSG_PUB.initialize ;
604: END IF;
605: --
606: p_return_status := FND_API.G_RET_STS_SUCCESS ;
607: --
608:
609: DELETE psb_set_relations
610: WHERE rowid = p_row_id;
613: RAISE NO_DATA_FOUND ;
614: END IF;
615:
616: --
617: IF FND_API.To_Boolean ( p_commit ) THEN
618: COMMIT WORK;
619: END iF;
620: --
621: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
622: p_data => p_msg_data );
623:
624: EXCEPTION
625: --
626: WHEN FND_API.G_EXC_ERROR THEN
627: --
628: ROLLBACK TO Delete_Row_Pvt ;
629: p_return_status := FND_API.G_RET_STS_ERROR;
630: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
625: --
626: WHEN FND_API.G_EXC_ERROR THEN
627: --
628: ROLLBACK TO Delete_Row_Pvt ;
629: p_return_status := FND_API.G_RET_STS_ERROR;
630: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
631: p_data => p_msg_data );
632: --
633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
629: p_return_status := FND_API.G_RET_STS_ERROR;
630: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
631: p_data => p_msg_data );
632: --
633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
634: --
635: ROLLBACK TO Delete_Row_Pvt ;
636: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
632: --
633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
634: --
635: ROLLBACK TO Delete_Row_Pvt ;
636: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
638: p_data => p_msg_data );
639: --
640: WHEN OTHERS THEN
639: --
640: WHEN OTHERS THEN
641: --
642: ROLLBACK TO Delete_Row_Pvt ;
643: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644: --
645: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
646: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
647: l_api_name);
660: +=========================================================================*/
661: PROCEDURE Delete_Entity_Relation
662: (
663: p_api_version IN NUMBER,
664: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
665: p_commit IN VARCHAR2 := FND_API.G_FALSE,
666: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
667: p_return_status OUT NOCOPY VARCHAR2,
668: p_msg_count OUT NOCOPY NUMBER,
661: PROCEDURE Delete_Entity_Relation
662: (
663: p_api_version IN NUMBER,
664: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
665: p_commit IN VARCHAR2 := FND_API.G_FALSE,
666: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
667: p_return_status OUT NOCOPY VARCHAR2,
668: p_msg_count OUT NOCOPY NUMBER,
669: p_msg_data OUT NOCOPY VARCHAR2,
662: (
663: p_api_version IN NUMBER,
664: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
665: p_commit IN VARCHAR2 := FND_API.G_FALSE,
666: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
667: p_return_status OUT NOCOPY VARCHAR2,
668: p_msg_count OUT NOCOPY NUMBER,
669: p_msg_data OUT NOCOPY VARCHAR2,
670: --
679: BEGIN
680: --
681: SAVEPOINT Delete_Entity_Relation_Pvt ;
682: --
683: IF NOT FND_API.Compatible_API_Call ( l_api_version,
684: p_api_version,
685: l_api_name,
686: G_PKG_NAME )
687: THEN
684: p_api_version,
685: l_api_name,
686: G_PKG_NAME )
687: THEN
688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
689: END IF;
690: --
691:
692: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
689: END IF;
690: --
691:
692: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
693: FND_MSG_PUB.initialize ;
694: END IF;
695: --
696: p_return_status := FND_API.G_RET_STS_SUCCESS ;
692: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
693: FND_MSG_PUB.initialize ;
694: END IF;
695: --
696: p_return_status := FND_API.G_RET_STS_SUCCESS ;
697: --
698:
699: --
700: -- Finding all the sets for the given p_entity_id
767: -- There is no need for this check as above are implicit cursors
768: -- and the following condition will always become true and so will
769: -- raise the error message.
770: /*IF (SQL%NOTFOUND) THEN
771: RAISE FND_API.G_EXC_ERROR ;
772: END IF;*/
773: /* Bug 1308558 End */
774:
775:
773: /* Bug 1308558 End */
774:
775:
776: --
777: IF FND_API.To_Boolean ( p_commit ) THEN
778: COMMIT WORK;
779: END iF;
780: --
781: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
782: p_data => p_msg_data );
783: --
784: EXCEPTION
785: --
786: WHEN FND_API.G_EXC_ERROR THEN
787: --
788: ROLLBACK TO Delete_Entity_Relation_Pvt ;
789: p_return_status := FND_API.G_RET_STS_ERROR;
790: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
785: --
786: WHEN FND_API.G_EXC_ERROR THEN
787: --
788: ROLLBACK TO Delete_Entity_Relation_Pvt ;
789: p_return_status := FND_API.G_RET_STS_ERROR;
790: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
791: p_data => p_msg_data );
792: --
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
789: p_return_status := FND_API.G_RET_STS_ERROR;
790: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
791: p_data => p_msg_data );
792: --
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794: --
795: ROLLBACK TO Delete_Entity_Relation_Pvt ;
796: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
797: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
792: --
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794: --
795: ROLLBACK TO Delete_Entity_Relation_Pvt ;
796: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
797: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
798: p_data => p_msg_data );
799: --
800: WHEN OTHERS THEN
799: --
800: WHEN OTHERS THEN
801: --
802: ROLLBACK TO Delete_Entity_Relation_Pvt ;
803: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804: --
805: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
806: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
807: l_api_name);
826: --
827: PROCEDURE Check_Unique
828: (
829: p_api_version IN NUMBER,
830: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
831: p_commit IN VARCHAR2 := FND_API.G_FALSE,
832: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
833: p_return_status OUT NOCOPY VARCHAR2,
834: p_msg_count OUT NOCOPY NUMBER,
827: PROCEDURE Check_Unique
828: (
829: p_api_version IN NUMBER,
830: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
831: p_commit IN VARCHAR2 := FND_API.G_FALSE,
832: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
833: p_return_status OUT NOCOPY VARCHAR2,
834: p_msg_count OUT NOCOPY NUMBER,
835: p_msg_data OUT NOCOPY VARCHAR2,
828: (
829: p_api_version IN NUMBER,
830: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
831: p_commit IN VARCHAR2 := FND_API.G_FALSE,
832: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
833: p_return_status OUT NOCOPY VARCHAR2,
834: p_msg_count OUT NOCOPY NUMBER,
835: p_msg_data OUT NOCOPY VARCHAR2,
836: --
899: BEGIN
900: --
901: SAVEPOINT Check_Unique_Pvt ;
902: --
903: IF NOT FND_API.Compatible_API_Call ( l_api_version,
904: p_api_version,
905: l_api_name,
906: G_PKG_NAME )
907: THEN
904: p_api_version,
905: l_api_name,
906: G_PKG_NAME )
907: THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
909: END IF;
910: --
911:
912: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
909: END IF;
910: --
911:
912: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
913: FND_MSG_PUB.initialize ;
914: END IF;
915: --
916: p_return_status := FND_API.G_RET_STS_SUCCESS ;
912: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
913: FND_MSG_PUB.initialize ;
914: END IF;
915: --
916: p_return_status := FND_API.G_RET_STS_SUCCESS ;
917: --
918:
919:
920: -- Checking the Psb_set_relations table for references.
943: END IF;
944: /* Bug No 2131841 End */
945:
946: --
947: IF FND_API.To_Boolean ( p_commit ) THEN
948: COMMIT WORK;
949: END iF;
950: --
951: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
952: p_data => p_msg_data );
953: --
954: EXCEPTION
955: --
956: WHEN FND_API.G_EXC_ERROR THEN
957: --
958: ROLLBACK TO Check_Unique_Pvt ;
959: p_return_status := FND_API.G_RET_STS_ERROR;
960: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
955: --
956: WHEN FND_API.G_EXC_ERROR THEN
957: --
958: ROLLBACK TO Check_Unique_Pvt ;
959: p_return_status := FND_API.G_RET_STS_ERROR;
960: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
961: p_data => p_msg_data );
962: --
963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
959: p_return_status := FND_API.G_RET_STS_ERROR;
960: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
961: p_data => p_msg_data );
962: --
963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
964: --
965: ROLLBACK TO Check_Unique_Pvt ;
966: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
967: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
962: --
963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
964: --
965: ROLLBACK TO Check_Unique_Pvt ;
966: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
967: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
968: p_data => p_msg_data );
969: --
970: WHEN OTHERS THEN
969: --
970: WHEN OTHERS THEN
971: --
972: ROLLBACK TO Check_Unique_Pvt ;
973: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
974: --
975: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
976: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
977: l_api_name);