6: /* ----------------------------------------------------------------------- */
7:
8: PROCEDURE INSERT_ROW
9: ( p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
13: p_return_status OUT NOCOPY VARCHAR2,
14: p_msg_count OUT NOCOPY NUMBER,
7:
8: PROCEDURE INSERT_ROW
9: ( p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
13: p_return_status OUT NOCOPY VARCHAR2,
14: p_msg_count OUT NOCOPY NUMBER,
15: p_msg_data OUT NOCOPY VARCHAR2,
8: PROCEDURE INSERT_ROW
9: ( p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
13: p_return_status OUT NOCOPY VARCHAR2,
14: p_msg_count OUT NOCOPY NUMBER,
15: p_msg_data OUT NOCOPY VARCHAR2,
16: --
56: SAVEPOINT INSERT_ROW_PVT;
57:
58: -- Standard call to check for call compatibility.
59:
60: if not FND_API.Compatible_API_Call (l_api_version,
61: p_api_version,
62: l_api_name,
63: G_PKG_NAME)
64: then
61: p_api_version,
62: l_api_name,
63: G_PKG_NAME)
64: then
65: raise FND_API.G_EXC_UNEXPECTED_ERROR;
66: end if;
67:
68: -- Initialize message list if p_init_msg_list is set to TRUE.
69:
66: end if;
67:
68: -- Initialize message list if p_init_msg_list is set to TRUE.
69:
70: if FND_API.to_Boolean (p_init_msg_list) then
71: FND_MSG_PUB.initialize;
72: end if;
73:
74: -- Initialize API return status to success
72: end if;
73:
74: -- Initialize API return status to success
75:
76: p_return_status := FND_API.G_RET_STS_SUCCESS;
77:
78:
79: -- API body
80: INSERT INTO psb_attributes
171: -- End of API body.
172:
173: -- Standard check of p_commit.
174:
175: if FND_API.to_Boolean (p_commit) then
176: commit work;
177: end if;
178:
179: -- Standard call to get message count and if count is 1, get message info.
182: p_data => p_msg_data);
183:
184: EXCEPTION
185:
186: when FND_API.G_EXC_ERROR then
187:
188: rollback to INSERT_ROW_PVT;
189:
190: p_return_status := FND_API.G_RET_STS_ERROR;
186: when FND_API.G_EXC_ERROR then
187:
188: rollback to INSERT_ROW_PVT;
189:
190: p_return_status := FND_API.G_RET_STS_ERROR;
191:
192: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
193: p_data => p_msg_data);
194:
192: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
193: p_data => p_msg_data);
194:
195:
196: when FND_API.G_EXC_UNEXPECTED_ERROR then
197:
198: rollback to INSERT_ROW_PVT;
199:
200: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196: when FND_API.G_EXC_UNEXPECTED_ERROR then
197:
198: rollback to INSERT_ROW_PVT;
199:
200: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201:
202: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
203: p_data => p_msg_data);
204:
206: when OTHERS then
207:
208: rollback to INSERT_ROW_PVT;
209:
210: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
211:
212: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
213:
214: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
221: END INSERT_ROW;
222:
223: PROCEDURE UPDATE_ROW
224: ( p_api_version IN NUMBER,
225: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
226: p_commit IN VARCHAR2 := FND_API.G_FALSE,
227: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
228: p_return_status OUT NOCOPY VARCHAR2,
229: p_msg_count OUT NOCOPY NUMBER,
222:
223: PROCEDURE UPDATE_ROW
224: ( p_api_version IN NUMBER,
225: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
226: p_commit IN VARCHAR2 := FND_API.G_FALSE,
227: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
228: p_return_status OUT NOCOPY VARCHAR2,
229: p_msg_count OUT NOCOPY NUMBER,
230: p_msg_data OUT NOCOPY VARCHAR2,
223: PROCEDURE UPDATE_ROW
224: ( p_api_version IN NUMBER,
225: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
226: p_commit IN VARCHAR2 := FND_API.G_FALSE,
227: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
228: p_return_status OUT NOCOPY VARCHAR2,
229: p_msg_count OUT NOCOPY NUMBER,
230: p_msg_data OUT NOCOPY VARCHAR2,
231: --
263: SAVEPOINT UPDATE_ROW_PVT;
264:
265: -- Standard call to check for call compatibility.
266:
267: if not FND_API.Compatible_API_Call (l_api_version,
268: p_api_version,
269: l_api_name,
270: G_PKG_NAME)
271: then
268: p_api_version,
269: l_api_name,
270: G_PKG_NAME)
271: then
272: raise FND_API.G_EXC_UNEXPECTED_ERROR;
273: end if;
274:
275: -- Initialize message list if p_init_msg_list is set to TRUE.
276:
273: end if;
274:
275: -- Initialize message list if p_init_msg_list is set to TRUE.
276:
277: if FND_API.to_Boolean (p_init_msg_list) then
278: FND_MSG_PUB.initialize;
279: end if;
280:
281: -- Initialize API return status to success
279: end if;
280:
281: -- Initialize API return status to success
282:
283: p_return_status := FND_API.G_RET_STS_SUCCESS;
284:
285: -- API body
286: UPDATE psb_attributes SET
287: ATTRIBUTE_ID = p_ATTRIBUTE_ID,
326: -- End of API body.
327:
328: -- Standard check of p_commit.
329:
330: if FND_API.to_Boolean (p_commit) then
331: commit work;
332: end if;
333:
334: -- Standard call to get message count and if count is 1, get message info.
337: p_data => p_msg_data);
338:
339: EXCEPTION
340:
341: when FND_API.G_EXC_ERROR then
342:
343: rollback to UPDATE_ROW_PVT;
344:
345: p_return_status := FND_API.G_RET_STS_ERROR;
341: when FND_API.G_EXC_ERROR then
342:
343: rollback to UPDATE_ROW_PVT;
344:
345: p_return_status := FND_API.G_RET_STS_ERROR;
346:
347: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
348: p_data => p_msg_data);
349:
347: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
348: p_data => p_msg_data);
349:
350:
351: when FND_API.G_EXC_UNEXPECTED_ERROR then
352:
353: rollback to UPDATE_ROW_PVT;
354:
355: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
351: when FND_API.G_EXC_UNEXPECTED_ERROR then
352:
353: rollback to UPDATE_ROW_PVT;
354:
355: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356:
357: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
358: p_data => p_msg_data);
359:
361: when OTHERS then
362:
363: rollback to UPDATE_ROW_PVT;
364:
365: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
366:
367: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
368:
369: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
376: END UPDATE_ROW;
377:
378: PROCEDURE DELETE_ROW
379: ( p_api_version IN NUMBER,
380: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
381: p_commit IN VARCHAR2 := FND_API.G_FALSE,
382: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
383: p_return_status OUT NOCOPY VARCHAR2,
384: p_msg_count OUT NOCOPY NUMBER,
377:
378: PROCEDURE DELETE_ROW
379: ( p_api_version IN NUMBER,
380: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
381: p_commit IN VARCHAR2 := FND_API.G_FALSE,
382: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
383: p_return_status OUT NOCOPY VARCHAR2,
384: p_msg_count OUT NOCOPY NUMBER,
385: p_msg_data OUT NOCOPY VARCHAR2,
378: PROCEDURE DELETE_ROW
379: ( p_api_version IN NUMBER,
380: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
381: p_commit IN VARCHAR2 := FND_API.G_FALSE,
382: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
383: p_return_status OUT NOCOPY VARCHAR2,
384: p_msg_count OUT NOCOPY NUMBER,
385: p_msg_data OUT NOCOPY VARCHAR2,
386: --
397: SAVEPOINT DELETE_ROW_PVT;
398:
399: -- Standard call to check for call compatibility.
400:
401: if not FND_API.Compatible_API_Call (l_api_version,
402: p_api_version,
403: l_api_name,
404: G_PKG_NAME)
405: then
402: p_api_version,
403: l_api_name,
404: G_PKG_NAME)
405: then
406: raise FND_API.G_EXC_UNEXPECTED_ERROR;
407: end if;
408:
409: -- Initialize message list if p_init_msg_list is set to TRUE.
410:
407: end if;
408:
409: -- Initialize message list if p_init_msg_list is set to TRUE.
410:
411: if FND_API.to_Boolean (p_init_msg_list) then
412: FND_MSG_PUB.initialize;
413: end if;
414:
415: -- Perform the delete
434: p_data => p_msg_data);
435:
436: -- Standard check of p_commit.
437:
438: if FND_API.to_Boolean (p_commit) then
439: commit work;
440: end if;
441:
442:
441:
442:
443: EXCEPTION
444:
445: when FND_API.G_EXC_ERROR then
446:
447: rollback to DELETE_ROW_PVT;
448:
449: p_return_status := FND_API.G_RET_STS_ERROR;
445: when FND_API.G_EXC_ERROR then
446:
447: rollback to DELETE_ROW_PVT;
448:
449: p_return_status := FND_API.G_RET_STS_ERROR;
450:
451: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
452: p_data => p_msg_data);
453:
451: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
452: p_data => p_msg_data);
453:
454:
455: when FND_API.G_EXC_UNEXPECTED_ERROR then
456:
457: rollback to DELETE_ROW_PVT;
458:
459: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
455: when FND_API.G_EXC_UNEXPECTED_ERROR then
456:
457: rollback to DELETE_ROW_PVT;
458:
459: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
460:
461: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
462: p_data => p_msg_data);
463:
465: when OTHERS then
466:
467: rollback to DELETE_ROW_PVT;
468:
469: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
470:
471: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
472:
473: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
480: END DELETE_ROW;
481:
482: PROCEDURE LOCK_ROW(
483: p_api_version IN NUMBER,
484: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
485: p_commit IN VARCHAR2 := FND_API.G_FALSE,
486: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
487: p_return_status OUT NOCOPY VARCHAR2,
488: p_msg_count OUT NOCOPY NUMBER,
481:
482: PROCEDURE LOCK_ROW(
483: p_api_version IN NUMBER,
484: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
485: p_commit IN VARCHAR2 := FND_API.G_FALSE,
486: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
487: p_return_status OUT NOCOPY VARCHAR2,
488: p_msg_count OUT NOCOPY NUMBER,
489: p_msg_data OUT NOCOPY VARCHAR2,
482: PROCEDURE LOCK_ROW(
483: p_api_version IN NUMBER,
484: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
485: p_commit IN VARCHAR2 := FND_API.G_FALSE,
486: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
487: p_return_status OUT NOCOPY VARCHAR2,
488: p_msg_count OUT NOCOPY NUMBER,
489: p_msg_data OUT NOCOPY VARCHAR2,
490: --
551: BEGIN
552: --
553: SAVEPOINT Lock_Row_Pvt ;
554: --
555: IF NOT FND_API.Compatible_API_Call ( l_api_version,
556: p_api_version,
557: l_api_name,
558: G_PKG_NAME )
559: THEN
556: p_api_version,
557: l_api_name,
558: G_PKG_NAME )
559: THEN
560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
561: END IF;
562: --
563:
564: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
561: END IF;
562: --
563:
564: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
565: FND_MSG_PUB.initialize ;
566: END IF;
567: --
568: p_return_status := FND_API.G_RET_STS_SUCCESS ;
564: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
565: FND_MSG_PUB.initialize ;
566: END IF;
567: --
568: p_return_status := FND_API.G_RET_STS_SUCCESS ;
569: p_lock_row := FND_API.G_TRUE ;
570: --
571: OPEN C;
572: --
565: FND_MSG_PUB.initialize ;
566: END IF;
567: --
568: p_return_status := FND_API.G_RET_STS_SUCCESS ;
569: p_lock_row := FND_API.G_TRUE ;
570: --
571: OPEN C;
572: --
573: FETCH C INTO Recinfo;
574: IF (C%NOTFOUND) then
575: CLOSE C;
576: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
577: FND_MSG_PUB.Add;
578: RAISE FND_API.G_EXC_ERROR ;
579: END IF;
580: CLOSE C;
581:
582: if ( ((recinfo.ALLOW_IN_POSITION_SET_FLAG = p_ALLOW_IN_POSITION_SET_FLAG)
615: Null;
616: ELSE
617: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
618: FND_MSG_PUB.Add;
619: RAISE FND_API.G_EXC_ERROR ;
620: END IF;
621:
622: for tlinfo in c1 loop
623: if (tlinfo.BASELANG = 'Y') then
633: end if;
634: end loop;
635:
636: --
637: IF FND_API.To_Boolean ( p_commit ) THEN
638: COMMIT WORK;
639: END iF;
640: --
641: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
645: --
646: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
647: --
648: ROLLBACK TO Lock_Row_Pvt ;
649: p_lock_row := FND_API.G_FALSE;
650: p_return_status := FND_API.G_RET_STS_ERROR;
651: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
652: p_data => p_msg_data );
653: --
646: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
647: --
648: ROLLBACK TO Lock_Row_Pvt ;
649: p_lock_row := FND_API.G_FALSE;
650: p_return_status := FND_API.G_RET_STS_ERROR;
651: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
652: p_data => p_msg_data );
653: --
654: WHEN FND_API.G_EXC_ERROR THEN
650: p_return_status := FND_API.G_RET_STS_ERROR;
651: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
652: p_data => p_msg_data );
653: --
654: WHEN FND_API.G_EXC_ERROR THEN
655: --
656: ROLLBACK TO Lock_Row_Pvt ;
657: p_return_status := FND_API.G_RET_STS_ERROR;
658: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
653: --
654: WHEN FND_API.G_EXC_ERROR THEN
655: --
656: ROLLBACK TO Lock_Row_Pvt ;
657: p_return_status := FND_API.G_RET_STS_ERROR;
658: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
659: p_data => p_msg_data );
660: --
661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
657: p_return_status := FND_API.G_RET_STS_ERROR;
658: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
659: p_data => p_msg_data );
660: --
661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
662: --
663: ROLLBACK TO Lock_Row_Pvt ;
664: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
660: --
661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
662: --
663: ROLLBACK TO Lock_Row_Pvt ;
664: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
666: p_data => p_msg_data );
667: --
668: WHEN OTHERS THEN
667: --
668: WHEN OTHERS THEN
669: --
670: ROLLBACK TO Lock_Row_Pvt ;
671: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
672: --
673: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
674: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
675: l_api_name);
683:
684: PROCEDURE Check_Unique
685: (
686: p_api_version IN NUMBER,
687: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
688: p_commit IN VARCHAR2 := FND_API.G_FALSE,
689: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
690: p_return_status OUT NOCOPY VARCHAR2,
691: p_msg_count OUT NOCOPY NUMBER,
684: PROCEDURE Check_Unique
685: (
686: p_api_version IN NUMBER,
687: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
688: p_commit IN VARCHAR2 := FND_API.G_FALSE,
689: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
690: p_return_status OUT NOCOPY VARCHAR2,
691: p_msg_count OUT NOCOPY NUMBER,
692: p_msg_data OUT NOCOPY VARCHAR2,
685: (
686: p_api_version IN NUMBER,
687: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
688: p_commit IN VARCHAR2 := FND_API.G_FALSE,
689: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
690: p_return_status OUT NOCOPY VARCHAR2,
691: p_msg_count OUT NOCOPY NUMBER,
692: p_msg_data OUT NOCOPY VARCHAR2,
693: --
713: BEGIN
714: --
715: SAVEPOINT Check_Unique_Pvt ;
716: --
717: IF NOT FND_API.Compatible_API_Call ( l_api_version,
718: p_api_version,
719: l_api_name,
720: G_PKG_NAME )
721: THEN
718: p_api_version,
719: l_api_name,
720: G_PKG_NAME )
721: THEN
722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
723: END IF;
724: --
725:
726: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
723: END IF;
724: --
725:
726: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
727: FND_MSG_PUB.initialize ;
728: END IF;
729: --
730: p_return_status := FND_API.G_RET_STS_SUCCESS ;
726: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
727: FND_MSG_PUB.initialize ;
728: END IF;
729: --
730: p_return_status := FND_API.G_RET_STS_SUCCESS ;
731: --
732:
733: -- Checking the Psb_set_relations table for references.
734: OPEN c;
742: END IF;
743:
744: CLOSE c;
745: --
746: IF FND_API.To_Boolean ( p_commit ) THEN
747: COMMIT WORK;
748: END iF;
749: --
750: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
751: p_data => p_msg_data );
752: --
753: EXCEPTION
754: --
755: WHEN FND_API.G_EXC_ERROR THEN
756: --
757: ROLLBACK TO Check_Unique_Pvt ;
758: p_return_status := FND_API.G_RET_STS_ERROR;
759: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
754: --
755: WHEN FND_API.G_EXC_ERROR THEN
756: --
757: ROLLBACK TO Check_Unique_Pvt ;
758: p_return_status := FND_API.G_RET_STS_ERROR;
759: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
760: p_data => p_msg_data );
761: --
762: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
758: p_return_status := FND_API.G_RET_STS_ERROR;
759: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
760: p_data => p_msg_data );
761: --
762: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
763: --
764: ROLLBACK TO Check_Unique_Pvt ;
765: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
766: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
761: --
762: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
763: --
764: ROLLBACK TO Check_Unique_Pvt ;
765: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
766: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
767: p_data => p_msg_data );
768: --
769: WHEN OTHERS THEN
768: --
769: WHEN OTHERS THEN
770: --
771: ROLLBACK TO Check_Unique_Pvt ;
772: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
773: --
774: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
775: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
776: l_api_name);
783:
784: PROCEDURE Check_References1
785: (
786: p_api_version IN NUMBER,
787: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
788: p_commit IN VARCHAR2 := FND_API.G_FALSE,
789: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
790: p_return_status OUT NOCOPY VARCHAR2,
791: p_msg_count OUT NOCOPY NUMBER,
784: PROCEDURE Check_References1
785: (
786: p_api_version IN NUMBER,
787: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
788: p_commit IN VARCHAR2 := FND_API.G_FALSE,
789: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
790: p_return_status OUT NOCOPY VARCHAR2,
791: p_msg_count OUT NOCOPY NUMBER,
792: p_msg_data OUT NOCOPY VARCHAR2,
785: (
786: p_api_version IN NUMBER,
787: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
788: p_commit IN VARCHAR2 := FND_API.G_FALSE,
789: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
790: p_return_status OUT NOCOPY VARCHAR2,
791: p_msg_count OUT NOCOPY NUMBER,
792: p_msg_data OUT NOCOPY VARCHAR2,
793: --
814: BEGIN
815: --
816: SAVEPOINT Check_References_Pvt ;
817: --
818: IF NOT FND_API.Compatible_API_Call ( l_api_version,
819: p_api_version,
820: l_api_name,
821: G_PKG_NAME )
822: THEN
819: p_api_version,
820: l_api_name,
821: G_PKG_NAME )
822: THEN
823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
824: END IF;
825: --
826:
827: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
824: END IF;
825: --
826:
827: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
828: FND_MSG_PUB.initialize ;
829: END IF;
830: --
831: p_return_status := FND_API.G_RET_STS_SUCCESS ;
827: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
828: FND_MSG_PUB.initialize ;
829: END IF;
830: --
831: p_return_status := FND_API.G_RET_STS_SUCCESS ;
832: --
833:
834: -- Checking the Psb_set_relations table for references.
835: OPEN c;
856: p_Return_Value := 'TRUE';
857: END IF;
858:
859: CLOSE c1;
860: IF FND_API.To_Boolean ( p_commit ) THEN
861: COMMIT WORK;
862: END iF;
863: --
864: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
865: p_data => p_msg_data );
866:
867: EXCEPTION
868: --
869: WHEN FND_API.G_EXC_ERROR THEN
870: --
871: ROLLBACK TO Check_References_Pvt ;
872: p_return_status := FND_API.G_RET_STS_ERROR;
873: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
868: --
869: WHEN FND_API.G_EXC_ERROR THEN
870: --
871: ROLLBACK TO Check_References_Pvt ;
872: p_return_status := FND_API.G_RET_STS_ERROR;
873: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
874: p_data => p_msg_data );
875: --
876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
872: p_return_status := FND_API.G_RET_STS_ERROR;
873: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
874: p_data => p_msg_data );
875: --
876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
877: --
878: ROLLBACK TO Check_References_Pvt ;
879: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
880: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
875: --
876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
877: --
878: ROLLBACK TO Check_References_Pvt ;
879: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
880: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
881: p_data => p_msg_data );
882: --
883: WHEN OTHERS THEN
882: --
883: WHEN OTHERS THEN
884: --
885: ROLLBACK TO Check_References_Pvt ;
886: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
887: --
888: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
889: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
890: l_api_name);
899:
900: PROCEDURE Check_References2
901: (
902: p_api_version IN NUMBER,
903: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
906: p_return_status OUT NOCOPY VARCHAR2,
907: p_msg_count OUT NOCOPY NUMBER,
900: PROCEDURE Check_References2
901: (
902: p_api_version IN NUMBER,
903: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
906: p_return_status OUT NOCOPY VARCHAR2,
907: p_msg_count OUT NOCOPY NUMBER,
908: p_msg_data OUT NOCOPY VARCHAR2,
901: (
902: p_api_version IN NUMBER,
903: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
906: p_return_status OUT NOCOPY VARCHAR2,
907: p_msg_count OUT NOCOPY NUMBER,
908: p_msg_data OUT NOCOPY VARCHAR2,
909: --
925: BEGIN
926: --
927: SAVEPOINT Check_References_Pvt ;
928: --
929: IF NOT FND_API.Compatible_API_Call ( l_api_version,
930: p_api_version,
931: l_api_name,
932: G_PKG_NAME )
933: THEN
930: p_api_version,
931: l_api_name,
932: G_PKG_NAME )
933: THEN
934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
935: END IF;
936: --
937:
938: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
935: END IF;
936: --
937:
938: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
939: FND_MSG_PUB.initialize ;
940: END IF;
941: --
942: p_return_status := FND_API.G_RET_STS_SUCCESS ;
938: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
939: FND_MSG_PUB.initialize ;
940: END IF;
941: --
942: p_return_status := FND_API.G_RET_STS_SUCCESS ;
943: --
944:
945: -- Checking the Psb_set_relations table for references.
946: OPEN c;
954: END IF;
955:
956: CLOSE c;
957: --
958: IF FND_API.To_Boolean ( p_commit ) THEN
959: COMMIT WORK;
960: END iF;
961: --
962: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
963: p_data => p_msg_data );
964:
965: EXCEPTION
966: --
967: WHEN FND_API.G_EXC_ERROR THEN
968: --
969: ROLLBACK TO Check_References_Pvt ;
970: p_return_status := FND_API.G_RET_STS_ERROR;
971: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
966: --
967: WHEN FND_API.G_EXC_ERROR THEN
968: --
969: ROLLBACK TO Check_References_Pvt ;
970: p_return_status := FND_API.G_RET_STS_ERROR;
971: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
972: p_data => p_msg_data );
973: --
974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
970: p_return_status := FND_API.G_RET_STS_ERROR;
971: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
972: p_data => p_msg_data );
973: --
974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
975: --
976: ROLLBACK TO Check_References_Pvt ;
977: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
973: --
974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
975: --
976: ROLLBACK TO Check_References_Pvt ;
977: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
979: p_data => p_msg_data );
980: --
981: WHEN OTHERS THEN
980: --
981: WHEN OTHERS THEN
982: --
983: ROLLBACK TO Check_References_Pvt ;
984: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
985: --
986: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
987: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
988: l_api_name);
996:
997: PROCEDURE Insert_System_Attributes
998: (
999: p_api_version IN NUMBER,
1000: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1001: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1002: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1003: p_return_status OUT NOCOPY VARCHAR2,
1004: p_msg_count OUT NOCOPY NUMBER,
997: PROCEDURE Insert_System_Attributes
998: (
999: p_api_version IN NUMBER,
1000: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1001: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1002: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1003: p_return_status OUT NOCOPY VARCHAR2,
1004: p_msg_count OUT NOCOPY NUMBER,
1005: p_msg_data OUT NOCOPY VARCHAR2,
998: (
999: p_api_version IN NUMBER,
1000: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1001: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1002: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1003: p_return_status OUT NOCOPY VARCHAR2,
1004: p_msg_count OUT NOCOPY NUMBER,
1005: p_msg_data OUT NOCOPY VARCHAR2,
1006: --
1047: BEGIN
1048:
1049: SAVEPOINT Insert_System_Attributes ;
1050:
1051: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1052: p_api_version,
1053: l_api_name,
1054: G_PKG_NAME )
1055: THEN
1052: p_api_version,
1053: l_api_name,
1054: G_PKG_NAME )
1055: THEN
1056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1057: END IF;
1058: --
1059:
1060: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1057: END IF;
1058: --
1059:
1060: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1061: FND_MSG_PUB.initialize ;
1062: END IF;
1063: --
1064: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1060: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1061: FND_MSG_PUB.initialize ;
1062: END IF;
1063: --
1064: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1065: --
1066:
1067: /* bug no 3953023 */
1068: -- load all system attributes into the record type
1251: p_created_by => 1,
1252: p_creation_date => sysdate
1253: );
1254:
1255: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1256: RAISE FND_API.G_EXC_ERROR;
1257: END IF;
1258:
1259: END IF;
1252: p_creation_date => sysdate
1253: );
1254:
1255: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1256: RAISE FND_API.G_EXC_ERROR;
1257: END IF;
1258:
1259: END IF;
1260: END LOOP;
1917: -- The code comment ends here
1918:
1919: /* bug end 3953023 */
1920:
1921: IF FND_API.To_Boolean ( p_commit ) THEN
1922: COMMIT WORK;
1923: END iF;
1924: --
1925: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1926: p_data => p_msg_data );
1927:
1928: EXCEPTION
1929: --
1930: WHEN FND_API.G_EXC_ERROR THEN
1931: --
1932: ROLLBACK TO Insert_System_Attributes ;
1933: p_return_status := FND_API.G_RET_STS_ERROR;
1934: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1929: --
1930: WHEN FND_API.G_EXC_ERROR THEN
1931: --
1932: ROLLBACK TO Insert_System_Attributes ;
1933: p_return_status := FND_API.G_RET_STS_ERROR;
1934: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1935: p_data => p_msg_data );
1936: --
1937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1933: p_return_status := FND_API.G_RET_STS_ERROR;
1934: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1935: p_data => p_msg_data );
1936: --
1937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1938: --
1939: ROLLBACK TO Insert_System_Attributes ;
1940: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1941: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1936: --
1937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1938: --
1939: ROLLBACK TO Insert_System_Attributes ;
1940: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1941: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1942: p_data => p_msg_data );
1943: --
1944: WHEN OTHERS THEN
1943: --
1944: WHEN OTHERS THEN
1945: --
1946: ROLLBACK TO Insert_System_Attributes ;
1947: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1948: --
1949: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1950: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1951: l_api_name);