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: --
40: SAVEPOINT INSERT_ROW_PVT;
41:
42: -- Standard call to check for call compatibility.
43:
44: if not FND_API.Compatible_API_Call (l_api_version,
45: p_api_version,
46: l_api_name,
47: G_PKG_NAME)
48: then
45: p_api_version,
46: l_api_name,
47: G_PKG_NAME)
48: then
49: raise FND_API.G_EXC_UNEXPECTED_ERROR;
50: end if;
51:
52: -- Initialize message list if p_init_msg_list is set to TRUE.
53:
50: end if;
51:
52: -- Initialize message list if p_init_msg_list is set to TRUE.
53:
54: if FND_API.to_Boolean (p_init_msg_list) then
55: FND_MSG_PUB.initialize;
56: end if;
57:
58: -- Initialize API return status to success
56: end if;
57:
58: -- Initialize API return status to success
59:
60: p_return_status := FND_API.G_RET_STS_SUCCESS;
61:
62:
63: -- API body
64: INSERT INTO psb_element_pos_set_groups
93: -- End of API body.
94:
95: -- Standard check of p_commit.
96:
97: if FND_API.to_Boolean (p_commit) then
98: commit work;
99: end if;
100:
101: -- Standard call to get message count and if count is 1, get message info.
104: p_data => p_msg_data);
105:
106: EXCEPTION
107:
108: when FND_API.G_EXC_ERROR then
109:
110: rollback to INSERT_ROW_PVT;
111:
112: p_return_status := FND_API.G_RET_STS_ERROR;
108: when FND_API.G_EXC_ERROR then
109:
110: rollback to INSERT_ROW_PVT;
111:
112: p_return_status := FND_API.G_RET_STS_ERROR;
113:
114: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
115: p_data => p_msg_data);
116:
114: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
115: p_data => p_msg_data);
116:
117:
118: when FND_API.G_EXC_UNEXPECTED_ERROR then
119:
120: rollback to INSERT_ROW_PVT;
121:
122: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
118: when FND_API.G_EXC_UNEXPECTED_ERROR then
119:
120: rollback to INSERT_ROW_PVT;
121:
122: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
123:
124: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
125: p_data => p_msg_data);
126:
128: when OTHERS then
129:
130: rollback to INSERT_ROW_PVT;
131:
132: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
133:
134: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
135:
136: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
143: END INSERT_ROW;
144:
145: PROCEDURE UPDATE_ROW
146: ( p_api_version IN NUMBER,
147: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
148: p_commit IN VARCHAR2 := FND_API.G_FALSE,
149: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
150: p_return_status OUT NOCOPY VARCHAR2,
151: p_msg_count OUT NOCOPY NUMBER,
144:
145: PROCEDURE UPDATE_ROW
146: ( p_api_version IN NUMBER,
147: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
148: p_commit IN VARCHAR2 := FND_API.G_FALSE,
149: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
150: p_return_status OUT NOCOPY VARCHAR2,
151: p_msg_count OUT NOCOPY NUMBER,
152: p_msg_data OUT NOCOPY VARCHAR2,
145: PROCEDURE UPDATE_ROW
146: ( p_api_version IN NUMBER,
147: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
148: p_commit IN VARCHAR2 := FND_API.G_FALSE,
149: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
150: p_return_status OUT NOCOPY VARCHAR2,
151: p_msg_count OUT NOCOPY NUMBER,
152: p_msg_data OUT NOCOPY VARCHAR2,
153: --
169: SAVEPOINT UPDATE_ROW_PVT;
170:
171: -- Standard call to check for call compatibility.
172:
173: if not FND_API.Compatible_API_Call (l_api_version,
174: p_api_version,
175: l_api_name,
176: G_PKG_NAME)
177: then
174: p_api_version,
175: l_api_name,
176: G_PKG_NAME)
177: then
178: raise FND_API.G_EXC_UNEXPECTED_ERROR;
179: end if;
180:
181: -- Initialize message list if p_init_msg_list is set to TRUE.
182:
179: end if;
180:
181: -- Initialize message list if p_init_msg_list is set to TRUE.
182:
183: if FND_API.to_Boolean (p_init_msg_list) then
184: FND_MSG_PUB.initialize;
185: end if;
186:
187: -- Initialize API return status to success
185: end if;
186:
187: -- Initialize API return status to success
188:
189: p_return_status := FND_API.G_RET_STS_SUCCESS;
190:
191: -- API body
192: UPDATE psb_element_pos_set_groups SET
193: NAME = P_NAME ,
204: -- End of API body.
205:
206: -- Standard check of p_commit.
207:
208: if FND_API.to_Boolean (p_commit) then
209: commit work;
210: end if;
211:
212: -- Standard call to get message count and if count is 1, get message info.
215: p_data => p_msg_data);
216:
217: EXCEPTION
218:
219: when FND_API.G_EXC_ERROR then
220:
221: rollback to UPDATE_ROW_PVT;
222:
223: p_return_status := FND_API.G_RET_STS_ERROR;
219: when FND_API.G_EXC_ERROR then
220:
221: rollback to UPDATE_ROW_PVT;
222:
223: p_return_status := FND_API.G_RET_STS_ERROR;
224:
225: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
226: p_data => p_msg_data);
227:
225: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
226: p_data => p_msg_data);
227:
228:
229: when FND_API.G_EXC_UNEXPECTED_ERROR then
230:
231: rollback to UPDATE_ROW_PVT;
232:
233: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229: when FND_API.G_EXC_UNEXPECTED_ERROR then
230:
231: rollback to UPDATE_ROW_PVT;
232:
233: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234:
235: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
236: p_data => p_msg_data);
237:
239: when OTHERS then
240:
241: rollback to UPDATE_ROW_PVT;
242:
243: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
244:
245: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
246:
247: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
255:
256:
257: PROCEDURE DELETE_ROW
258: ( p_api_version IN NUMBER,
259: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
261: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
262: p_return_status OUT NOCOPY VARCHAR2,
263: p_msg_count OUT NOCOPY NUMBER,
256:
257: PROCEDURE DELETE_ROW
258: ( p_api_version IN NUMBER,
259: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
261: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
262: p_return_status OUT NOCOPY VARCHAR2,
263: p_msg_count OUT NOCOPY NUMBER,
264: p_msg_data OUT NOCOPY VARCHAR2,
257: PROCEDURE DELETE_ROW
258: ( p_api_version IN NUMBER,
259: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
261: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
262: p_return_status OUT NOCOPY VARCHAR2,
263: p_msg_count OUT NOCOPY NUMBER,
264: p_msg_data OUT NOCOPY VARCHAR2,
265: --
277: SAVEPOINT DELETE_ROW_PVT;
278:
279: -- Standard call to check for call compatibility.
280:
281: if not FND_API.Compatible_API_Call (l_api_version,
282: p_api_version,
283: l_api_name,
284: G_PKG_NAME)
285: then
282: p_api_version,
283: l_api_name,
284: G_PKG_NAME)
285: then
286: raise FND_API.G_EXC_UNEXPECTED_ERROR;
287: end if;
288:
289: -- Initialize message list if p_init_msg_list is set to TRUE.
290:
287: end if;
288:
289: -- Initialize message list if p_init_msg_list is set to TRUE.
290:
291: if FND_API.to_Boolean (p_init_msg_list) then
292: FND_MSG_PUB.initialize;
293: end if;
294:
295: --Deleting detail record from psb_pay_element_distributions and
315: p_data => p_msg_data);
316:
317: -- Standard check of p_commit.
318:
319: if FND_API.to_Boolean (p_commit) then
320: commit work;
321: end if;
322:
323:
322:
323:
324: EXCEPTION
325:
326: when FND_API.G_EXC_ERROR then
327:
328: rollback to DELETE_ROW_PVT;
329:
330: p_return_status := FND_API.G_RET_STS_ERROR;
326: when FND_API.G_EXC_ERROR then
327:
328: rollback to DELETE_ROW_PVT;
329:
330: p_return_status := FND_API.G_RET_STS_ERROR;
331:
332: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
333: p_data => p_msg_data);
334:
332: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
333: p_data => p_msg_data);
334:
335:
336: when FND_API.G_EXC_UNEXPECTED_ERROR then
337:
338: rollback to DELETE_ROW_PVT;
339:
340: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
336: when FND_API.G_EXC_UNEXPECTED_ERROR then
337:
338: rollback to DELETE_ROW_PVT;
339:
340: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
341:
342: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
343: p_data => p_msg_data);
344:
346: when OTHERS then
347:
348: rollback to DELETE_ROW_PVT;
349:
350: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
351:
352: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
353:
354: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
360: END DELETE_ROW;
361:
362: PROCEDURE LOCK_ROW(
363: p_api_version IN NUMBER,
364: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
365: p_commit IN VARCHAR2 := FND_API.G_FALSE,
366: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
367: p_return_status OUT NOCOPY VARCHAR2,
368: p_msg_count OUT NOCOPY NUMBER,
361:
362: PROCEDURE LOCK_ROW(
363: p_api_version IN NUMBER,
364: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
365: p_commit IN VARCHAR2 := FND_API.G_FALSE,
366: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
367: p_return_status OUT NOCOPY VARCHAR2,
368: p_msg_count OUT NOCOPY NUMBER,
369: p_msg_data OUT NOCOPY VARCHAR2,
362: PROCEDURE LOCK_ROW(
363: p_api_version IN NUMBER,
364: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
365: p_commit IN VARCHAR2 := FND_API.G_FALSE,
366: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
367: p_return_status OUT NOCOPY VARCHAR2,
368: p_msg_count OUT NOCOPY NUMBER,
369: p_msg_data OUT NOCOPY VARCHAR2,
370: --
390: BEGIN
391: --
392: SAVEPOINT Lock_Row_Pvt ;
393: --
394: IF NOT FND_API.Compatible_API_Call ( l_api_version,
395: p_api_version,
396: l_api_name,
397: G_PKG_NAME )
398: THEN
395: p_api_version,
396: l_api_name,
397: G_PKG_NAME )
398: THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
400: END IF;
401: --
402:
403: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
400: END IF;
401: --
402:
403: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
404: FND_MSG_PUB.initialize ;
405: END IF;
406: --
407: p_return_status := FND_API.G_RET_STS_SUCCESS ;
403: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
404: FND_MSG_PUB.initialize ;
405: END IF;
406: --
407: p_return_status := FND_API.G_RET_STS_SUCCESS ;
408: p_row_locked := FND_API.G_TRUE ;
409: --
410: OPEN C;
411: --
404: FND_MSG_PUB.initialize ;
405: END IF;
406: --
407: p_return_status := FND_API.G_RET_STS_SUCCESS ;
408: p_row_locked := FND_API.G_TRUE ;
409: --
410: OPEN C;
411: --
412: FETCH C INTO Recinfo;
413: IF (C%NOTFOUND) then
414: CLOSE C;
415: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
416: FND_MSG_PUB.Add;
417: RAISE FND_API.G_EXC_ERROR ;
418: END IF;
419:
420: IF
421: (
429: Null;
430: ELSE
431: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
432: FND_MSG_PUB.Add;
433: RAISE FND_API.G_EXC_ERROR ;
434: END IF;
435:
436: --
437: IF FND_API.To_Boolean ( p_commit ) THEN
433: RAISE FND_API.G_EXC_ERROR ;
434: END IF;
435:
436: --
437: IF FND_API.To_Boolean ( p_commit ) THEN
438: COMMIT WORK;
439: END iF;
440: --
441: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
445: --
446: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
447: --
448: ROLLBACK TO Lock_Row_Pvt ;
449: p_row_locked := FND_API.G_FALSE;
450: p_return_status := FND_API.G_RET_STS_ERROR;
451: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
452: p_data => p_msg_data );
453: --
446: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
447: --
448: ROLLBACK TO Lock_Row_Pvt ;
449: p_row_locked := FND_API.G_FALSE;
450: p_return_status := FND_API.G_RET_STS_ERROR;
451: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
452: p_data => p_msg_data );
453: --
454: WHEN FND_API.G_EXC_ERROR THEN
450: p_return_status := FND_API.G_RET_STS_ERROR;
451: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
452: p_data => p_msg_data );
453: --
454: WHEN FND_API.G_EXC_ERROR THEN
455: --
456: ROLLBACK TO Lock_Row_Pvt ;
457: p_return_status := FND_API.G_RET_STS_ERROR;
458: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
453: --
454: WHEN FND_API.G_EXC_ERROR THEN
455: --
456: ROLLBACK TO Lock_Row_Pvt ;
457: p_return_status := FND_API.G_RET_STS_ERROR;
458: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
459: p_data => p_msg_data );
460: --
461: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
457: p_return_status := FND_API.G_RET_STS_ERROR;
458: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
459: p_data => p_msg_data );
460: --
461: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
462: --
463: ROLLBACK TO Lock_Row_Pvt ;
464: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
465: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
460: --
461: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
462: --
463: ROLLBACK TO Lock_Row_Pvt ;
464: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
465: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
466: p_data => p_msg_data );
467: --
468: WHEN OTHERS THEN
467: --
468: WHEN OTHERS THEN
469: --
470: ROLLBACK TO Lock_Row_Pvt ;
471: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
472: --
473: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
474: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
475: l_api_name);
489: --
490: PROCEDURE Check_Unique
491: (
492: p_api_version IN NUMBER,
493: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
494: p_commit IN VARCHAR2 := FND_API.G_FALSE,
495: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
496: p_return_status OUT NOCOPY VARCHAR2,
497: p_msg_count OUT NOCOPY NUMBER,
490: PROCEDURE Check_Unique
491: (
492: p_api_version IN NUMBER,
493: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
494: p_commit IN VARCHAR2 := FND_API.G_FALSE,
495: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
496: p_return_status OUT NOCOPY VARCHAR2,
497: p_msg_count OUT NOCOPY NUMBER,
498: p_msg_data OUT NOCOPY VARCHAR2,
491: (
492: p_api_version IN NUMBER,
493: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
494: p_commit IN VARCHAR2 := FND_API.G_FALSE,
495: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
496: p_return_status OUT NOCOPY VARCHAR2,
497: p_msg_count OUT NOCOPY NUMBER,
498: p_msg_data OUT NOCOPY VARCHAR2,
499: --
523: BEGIN
524: --
525: SAVEPOINT Check_Unique_Pvt ;
526: --
527: IF NOT FND_API.Compatible_API_Call ( l_api_version,
528: p_api_version,
529: l_api_name,
530: G_PKG_NAME )
531: THEN
528: p_api_version,
529: l_api_name,
530: G_PKG_NAME )
531: THEN
532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
533: END IF;
534: --
535:
536: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
533: END IF;
534: --
535:
536: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
537: FND_MSG_PUB.initialize ;
538: END IF;
539: --
540: p_return_status := FND_API.G_RET_STS_SUCCESS ;
536: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
537: FND_MSG_PUB.initialize ;
538: END IF;
539: --
540: p_return_status := FND_API.G_RET_STS_SUCCESS ;
541: --
542:
543: -- Open the cursor.
544: OPEN c;
555: p_return_value := 'TRUE';
556: END IF;
557:
558: --
559: IF FND_API.To_Boolean ( p_commit ) THEN
560: COMMIT WORK;
561: END iF;
562: --
563: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
564: p_data => p_msg_data );
565: --
566: EXCEPTION
567: --
568: WHEN FND_API.G_EXC_ERROR THEN
569: --
570: ROLLBACK TO Check_Unique_Pvt ;
571: p_return_status := FND_API.G_RET_STS_ERROR;
572: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
567: --
568: WHEN FND_API.G_EXC_ERROR THEN
569: --
570: ROLLBACK TO Check_Unique_Pvt ;
571: p_return_status := FND_API.G_RET_STS_ERROR;
572: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
573: p_data => p_msg_data );
574: --
575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
571: p_return_status := FND_API.G_RET_STS_ERROR;
572: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
573: p_data => p_msg_data );
574: --
575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
576: --
577: ROLLBACK TO Check_Unique_Pvt ;
578: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
579: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
574: --
575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
576: --
577: ROLLBACK TO Check_Unique_Pvt ;
578: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
579: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
580: p_data => p_msg_data );
581: --
582: WHEN OTHERS THEN
581: --
582: WHEN OTHERS THEN
583: --
584: ROLLBACK TO Check_Unique_Pvt ;
585: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
586: --
587: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
588: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
589: l_api_name);
599:
600: PROCEDURE Check_References
601: (
602: p_api_version IN NUMBER,
603: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
604: p_commit IN VARCHAR2 := FND_API.G_FALSE,
605: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
606: p_return_status OUT NOCOPY VARCHAR2,
607: p_msg_count OUT NOCOPY NUMBER,
600: PROCEDURE Check_References
601: (
602: p_api_version IN NUMBER,
603: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
604: p_commit IN VARCHAR2 := FND_API.G_FALSE,
605: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
606: p_return_status OUT NOCOPY VARCHAR2,
607: p_msg_count OUT NOCOPY NUMBER,
608: p_msg_data OUT NOCOPY VARCHAR2,
601: (
602: p_api_version IN NUMBER,
603: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
604: p_commit IN VARCHAR2 := FND_API.G_FALSE,
605: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
606: p_return_status OUT NOCOPY VARCHAR2,
607: p_msg_count OUT NOCOPY NUMBER,
608: p_msg_data OUT NOCOPY VARCHAR2,
609: --
625: BEGIN
626: --
627: SAVEPOINT Check_References_Pvt ;
628: --
629: IF NOT FND_API.Compatible_API_Call ( l_api_version,
630: p_api_version,
631: l_api_name,
632: G_PKG_NAME )
633: THEN
630: p_api_version,
631: l_api_name,
632: G_PKG_NAME )
633: THEN
634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
635: END IF;
636: --
637:
638: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
635: END IF;
636: --
637:
638: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
639: FND_MSG_PUB.initialize ;
640: END IF;
641: --
642: p_return_status := FND_API.G_RET_STS_SUCCESS ;
638: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
639: FND_MSG_PUB.initialize ;
640: END IF;
641: --
642: p_return_status := FND_API.G_RET_STS_SUCCESS ;
643: --
644:
645: -- Checking the Psb_set_relations table for references.
646: OPEN c;
655: END IF;
656:
657: CLOSE c;
658: --
659: IF FND_API.To_Boolean ( p_commit ) THEN
660: COMMIT WORK;
661: END iF;
662: --
663: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
664: p_data => p_msg_data );
665:
666: EXCEPTION
667: --
668: WHEN FND_API.G_EXC_ERROR THEN
669: --
670: ROLLBACK TO Check_References_Pvt ;
671: p_return_status := FND_API.G_RET_STS_ERROR;
672: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
667: --
668: WHEN FND_API.G_EXC_ERROR THEN
669: --
670: ROLLBACK TO Check_References_Pvt ;
671: p_return_status := FND_API.G_RET_STS_ERROR;
672: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
673: p_data => p_msg_data );
674: --
675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
671: p_return_status := FND_API.G_RET_STS_ERROR;
672: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
673: p_data => p_msg_data );
674: --
675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
676: --
677: ROLLBACK TO Check_References_Pvt ;
678: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
679: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
674: --
675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
676: --
677: ROLLBACK TO Check_References_Pvt ;
678: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
679: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
680: p_data => p_msg_data );
681: --
682: WHEN OTHERS THEN
681: --
682: WHEN OTHERS THEN
683: --
684: ROLLBACK TO Check_References_Pvt ;
685: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
686: --
687: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
688: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
689: l_api_name);