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: --
42: SAVEPOINT INSERT_ROW_PVT;
43:
44: -- Standard call to check for call compatibility.
45:
46: if not FND_API.Compatible_API_Call (l_api_version,
47: p_api_version,
48: l_api_name,
49: G_PKG_NAME)
50: then
47: p_api_version,
48: l_api_name,
49: G_PKG_NAME)
50: then
51: raise FND_API.G_EXC_UNEXPECTED_ERROR;
52: end if;
53:
54: -- Initialize message list if p_init_msg_list is set to TRUE.
55:
52: end if;
53:
54: -- Initialize message list if p_init_msg_list is set to TRUE.
55:
56: if FND_API.to_Boolean (p_init_msg_list) then
57: FND_MSG_PUB.initialize;
58: end if;
59:
60: -- Initialize API return status to success
58: end if;
59:
60: -- Initialize API return status to success
61:
62: p_return_status := FND_API.G_RET_STS_SUCCESS;
63:
64:
65: -- API body
66: INSERT INTO psb_pay_element_options
99: -- End of API body.
100:
101: -- Standard check of p_commit.
102:
103: if FND_API.to_Boolean (p_commit) then
104: commit work;
105: end if;
106:
107: -- Standard call to get message count and if count is 1, get message info.
110: p_data => p_msg_data);
111:
112: EXCEPTION
113:
114: when FND_API.G_EXC_ERROR then
115:
116: rollback to INSERT_ROW_PVT;
117:
118: p_return_status := FND_API.G_RET_STS_ERROR;
114: when FND_API.G_EXC_ERROR then
115:
116: rollback to INSERT_ROW_PVT;
117:
118: p_return_status := FND_API.G_RET_STS_ERROR;
119:
120: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
121: p_data => p_msg_data);
122:
120: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
121: p_data => p_msg_data);
122:
123:
124: when FND_API.G_EXC_UNEXPECTED_ERROR then
125:
126: rollback to INSERT_ROW_PVT;
127:
128: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: when FND_API.G_EXC_UNEXPECTED_ERROR then
125:
126: rollback to INSERT_ROW_PVT;
127:
128: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129:
130: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
131: p_data => p_msg_data);
132:
134: when OTHERS then
135:
136: rollback to INSERT_ROW_PVT;
137:
138: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139:
140: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
141:
142: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
149: END INSERT_ROW;
150:
151: PROCEDURE UPDATE_ROW
152: ( p_api_version IN NUMBER,
153: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
154: p_commit IN VARCHAR2 := FND_API.G_FALSE,
155: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
156: p_return_status OUT NOCOPY VARCHAR2,
157: p_msg_count OUT NOCOPY NUMBER,
150:
151: PROCEDURE UPDATE_ROW
152: ( p_api_version IN NUMBER,
153: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
154: p_commit IN VARCHAR2 := FND_API.G_FALSE,
155: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
156: p_return_status OUT NOCOPY VARCHAR2,
157: p_msg_count OUT NOCOPY NUMBER,
158: p_msg_data OUT NOCOPY VARCHAR2,
151: PROCEDURE UPDATE_ROW
152: ( p_api_version IN NUMBER,
153: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
154: p_commit IN VARCHAR2 := FND_API.G_FALSE,
155: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
156: p_return_status OUT NOCOPY VARCHAR2,
157: p_msg_count OUT NOCOPY NUMBER,
158: p_msg_data OUT NOCOPY VARCHAR2,
159: --
177: SAVEPOINT UPDATE_ROW_PVT;
178:
179: -- Standard call to check for call compatibility.
180:
181: if not FND_API.Compatible_API_Call (l_api_version,
182: p_api_version,
183: l_api_name,
184: G_PKG_NAME)
185: then
182: p_api_version,
183: l_api_name,
184: G_PKG_NAME)
185: then
186: raise FND_API.G_EXC_UNEXPECTED_ERROR;
187: end if;
188:
189: -- Initialize message list if p_init_msg_list is set to TRUE.
190:
187: end if;
188:
189: -- Initialize message list if p_init_msg_list is set to TRUE.
190:
191: if FND_API.to_Boolean (p_init_msg_list) then
192: FND_MSG_PUB.initialize;
193: end if;
194:
195: -- Initialize API return status to success
193: end if;
194:
195: -- Initialize API return status to success
196:
197: p_return_status := FND_API.G_RET_STS_SUCCESS;
198:
199: -- API body
200: UPDATE psb_pay_element_options SET
201: NAME = P_NAME ,
214: -- End of API body.
215:
216: -- Standard check of p_commit.
217:
218: if FND_API.to_Boolean (p_commit) then
219: commit work;
220: end if;
221:
222: -- Standard call to get message count and if count is 1, get message info.
225: p_data => p_msg_data);
226:
227: EXCEPTION
228:
229: when FND_API.G_EXC_ERROR then
230:
231: rollback to UPDATE_ROW_PVT;
232:
233: p_return_status := FND_API.G_RET_STS_ERROR;
229: when FND_API.G_EXC_ERROR then
230:
231: rollback to UPDATE_ROW_PVT;
232:
233: p_return_status := FND_API.G_RET_STS_ERROR;
234:
235: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
236: p_data => p_msg_data);
237:
235: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
236: p_data => p_msg_data);
237:
238:
239: when FND_API.G_EXC_UNEXPECTED_ERROR then
240:
241: rollback to UPDATE_ROW_PVT;
242:
243: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
239: when FND_API.G_EXC_UNEXPECTED_ERROR then
240:
241: rollback to UPDATE_ROW_PVT;
242:
243: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
244:
245: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
246: p_data => p_msg_data);
247:
249: when OTHERS then
250:
251: rollback to UPDATE_ROW_PVT;
252:
253: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254:
255: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
256:
257: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
265:
266:
267: PROCEDURE DELETE_ROW
268: ( p_api_version IN NUMBER,
269: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
270: p_commit IN VARCHAR2 := FND_API.G_FALSE,
271: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
272: p_return_status OUT NOCOPY VARCHAR2,
273: p_msg_count OUT NOCOPY NUMBER,
266:
267: PROCEDURE DELETE_ROW
268: ( p_api_version IN NUMBER,
269: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
270: p_commit IN VARCHAR2 := FND_API.G_FALSE,
271: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
272: p_return_status OUT NOCOPY VARCHAR2,
273: p_msg_count OUT NOCOPY NUMBER,
274: p_msg_data OUT NOCOPY VARCHAR2,
267: PROCEDURE DELETE_ROW
268: ( p_api_version IN NUMBER,
269: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
270: p_commit IN VARCHAR2 := FND_API.G_FALSE,
271: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
272: p_return_status OUT NOCOPY VARCHAR2,
273: p_msg_count OUT NOCOPY NUMBER,
274: p_msg_data OUT NOCOPY VARCHAR2,
275: --
287: SAVEPOINT DELETE_ROW_PVT;
288:
289: -- Standard call to check for call compatibility.
290:
291: if not FND_API.Compatible_API_Call (l_api_version,
292: p_api_version,
293: l_api_name,
294: G_PKG_NAME)
295: then
292: p_api_version,
293: l_api_name,
294: G_PKG_NAME)
295: then
296: raise FND_API.G_EXC_UNEXPECTED_ERROR;
297: end if;
298:
299: -- Initialize message list if p_init_msg_list is set to TRUE.
300:
297: end if;
298:
299: -- Initialize message list if p_init_msg_list is set to TRUE.
300:
301: if FND_API.to_Boolean (p_init_msg_list) then
302: FND_MSG_PUB.initialize;
303: end if;
304:
305: --Deleting detail record from psb_pay_element_options and
326: p_data => p_msg_data);
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:
333:
334:
335: EXCEPTION
336:
337: when FND_API.G_EXC_ERROR then
338:
339: rollback to DELETE_ROW_PVT;
340:
341: p_return_status := FND_API.G_RET_STS_ERROR;
337: when FND_API.G_EXC_ERROR then
338:
339: rollback to DELETE_ROW_PVT;
340:
341: p_return_status := FND_API.G_RET_STS_ERROR;
342:
343: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
344: p_data => p_msg_data);
345:
343: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
344: p_data => p_msg_data);
345:
346:
347: when FND_API.G_EXC_UNEXPECTED_ERROR then
348:
349: rollback to DELETE_ROW_PVT;
350:
351: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347: when FND_API.G_EXC_UNEXPECTED_ERROR then
348:
349: rollback to DELETE_ROW_PVT;
350:
351: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
352:
353: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
354: p_data => p_msg_data);
355:
357: when OTHERS then
358:
359: rollback to DELETE_ROW_PVT;
360:
361: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
362:
363: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
364:
365: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
371: END DELETE_ROW;
372:
373: PROCEDURE LOCK_ROW(
374: p_api_version IN NUMBER,
375: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
376: p_commit IN VARCHAR2 := FND_API.G_FALSE,
377: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
378: p_return_status OUT NOCOPY VARCHAR2,
379: p_msg_count OUT NOCOPY NUMBER,
372:
373: PROCEDURE LOCK_ROW(
374: p_api_version IN NUMBER,
375: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
376: p_commit IN VARCHAR2 := FND_API.G_FALSE,
377: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
378: p_return_status OUT NOCOPY VARCHAR2,
379: p_msg_count OUT NOCOPY NUMBER,
380: p_msg_data OUT NOCOPY VARCHAR2,
373: PROCEDURE LOCK_ROW(
374: p_api_version IN NUMBER,
375: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
376: p_commit IN VARCHAR2 := FND_API.G_FALSE,
377: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
378: p_return_status OUT NOCOPY VARCHAR2,
379: p_msg_count OUT NOCOPY NUMBER,
380: p_msg_data OUT NOCOPY VARCHAR2,
381: --
403: BEGIN
404: --
405: SAVEPOINT Lock_Row_Pvt ;
406: --
407: IF NOT FND_API.Compatible_API_Call ( l_api_version,
408: p_api_version,
409: l_api_name,
410: G_PKG_NAME )
411: THEN
408: p_api_version,
409: l_api_name,
410: G_PKG_NAME )
411: THEN
412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
413: END IF;
414: --
415:
416: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
413: END IF;
414: --
415:
416: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
417: FND_MSG_PUB.initialize ;
418: END IF;
419: --
420: p_return_status := FND_API.G_RET_STS_SUCCESS ;
416: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
417: FND_MSG_PUB.initialize ;
418: END IF;
419: --
420: p_return_status := FND_API.G_RET_STS_SUCCESS ;
421: p_row_locked := FND_API.G_TRUE ;
422: --
423: OPEN C;
424: --
417: FND_MSG_PUB.initialize ;
418: END IF;
419: --
420: p_return_status := FND_API.G_RET_STS_SUCCESS ;
421: p_row_locked := FND_API.G_TRUE ;
422: --
423: OPEN C;
424: --
425: FETCH C INTO Recinfo;
426: IF (C%NOTFOUND) then
427: CLOSE C;
428: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
429: FND_MSG_PUB.Add;
430: RAISE FND_API.G_EXC_ERROR ;
431: END IF;
432:
433: IF
434: (
452: Null;
453: ELSE
454: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
455: FND_MSG_PUB.Add;
456: RAISE FND_API.G_EXC_ERROR ;
457: END IF;
458:
459: --
460: IF FND_API.To_Boolean ( p_commit ) THEN
456: RAISE FND_API.G_EXC_ERROR ;
457: END IF;
458:
459: --
460: IF FND_API.To_Boolean ( p_commit ) THEN
461: COMMIT WORK;
462: END iF;
463: --
464: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
468: --
469: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
470: --
471: ROLLBACK TO Lock_Row_Pvt ;
472: p_row_locked := FND_API.G_FALSE;
473: p_return_status := FND_API.G_RET_STS_ERROR;
474: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
475: p_data => p_msg_data );
476: --
469: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
470: --
471: ROLLBACK TO Lock_Row_Pvt ;
472: p_row_locked := FND_API.G_FALSE;
473: p_return_status := FND_API.G_RET_STS_ERROR;
474: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
475: p_data => p_msg_data );
476: --
477: WHEN FND_API.G_EXC_ERROR THEN
473: p_return_status := FND_API.G_RET_STS_ERROR;
474: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
475: p_data => p_msg_data );
476: --
477: WHEN FND_API.G_EXC_ERROR THEN
478: --
479: ROLLBACK TO Lock_Row_Pvt ;
480: p_return_status := FND_API.G_RET_STS_ERROR;
481: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
476: --
477: WHEN FND_API.G_EXC_ERROR THEN
478: --
479: ROLLBACK TO Lock_Row_Pvt ;
480: p_return_status := FND_API.G_RET_STS_ERROR;
481: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
482: p_data => p_msg_data );
483: --
484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
480: p_return_status := FND_API.G_RET_STS_ERROR;
481: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
482: p_data => p_msg_data );
483: --
484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
485: --
486: ROLLBACK TO Lock_Row_Pvt ;
487: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
488: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
483: --
484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
485: --
486: ROLLBACK TO Lock_Row_Pvt ;
487: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
488: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
489: p_data => p_msg_data );
490: --
491: WHEN OTHERS THEN
490: --
491: WHEN OTHERS THEN
492: --
493: ROLLBACK TO Lock_Row_Pvt ;
494: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
495: --
496: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
497: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
498: l_api_name);
505:
506: PROCEDURE Check_Unique
507: (
508: p_api_version IN NUMBER,
509: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
510: p_commit IN VARCHAR2 := FND_API.G_FALSE,
511: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
512: p_return_status OUT NOCOPY VARCHAR2,
513: p_msg_count OUT NOCOPY NUMBER,
506: PROCEDURE Check_Unique
507: (
508: p_api_version IN NUMBER,
509: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
510: p_commit IN VARCHAR2 := FND_API.G_FALSE,
511: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
512: p_return_status OUT NOCOPY VARCHAR2,
513: p_msg_count OUT NOCOPY NUMBER,
514: p_msg_data OUT NOCOPY VARCHAR2,
507: (
508: p_api_version IN NUMBER,
509: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
510: p_commit IN VARCHAR2 := FND_API.G_FALSE,
511: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
512: p_return_status OUT NOCOPY VARCHAR2,
513: p_msg_count OUT NOCOPY NUMBER,
514: p_msg_data OUT NOCOPY VARCHAR2,
515: --
545: BEGIN
546: --
547: SAVEPOINT Check_Unique_Pvt ;
548: --
549: IF NOT FND_API.Compatible_API_Call ( l_api_version,
550: p_api_version,
551: l_api_name,
552: G_PKG_NAME )
553: THEN
550: p_api_version,
551: l_api_name,
552: G_PKG_NAME )
553: THEN
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
555: END IF;
556: --
557:
558: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
555: END IF;
556: --
557:
558: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
559: FND_MSG_PUB.initialize ;
560: END IF;
561: --
562: p_return_status := FND_API.G_RET_STS_SUCCESS ;
558: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
559: FND_MSG_PUB.initialize ;
560: END IF;
561: --
562: p_return_status := FND_API.G_RET_STS_SUCCESS ;
563: --
564: -- Checking the Psb_set_relations table for references.
565: IF p_grade_step IS NULL THEN
566: OPEN c;
578: ELSE
579: p_Return_Value := 'TRUE';
580: END IF;
581: --
582: IF FND_API.To_Boolean ( p_commit ) THEN
583: COMMIT WORK;
584: END iF;
585: --
586: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
587: p_data => p_msg_data );
588: --
589: EXCEPTION
590: --
591: WHEN FND_API.G_EXC_ERROR THEN
592: --
593: ROLLBACK TO Check_Unique_Pvt ;
594: p_return_status := FND_API.G_RET_STS_ERROR;
595: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
590: --
591: WHEN FND_API.G_EXC_ERROR THEN
592: --
593: ROLLBACK TO Check_Unique_Pvt ;
594: p_return_status := FND_API.G_RET_STS_ERROR;
595: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
596: p_data => p_msg_data );
597: --
598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
594: p_return_status := FND_API.G_RET_STS_ERROR;
595: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
596: p_data => p_msg_data );
597: --
598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
599: --
600: ROLLBACK TO Check_Unique_Pvt ;
601: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
602: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
597: --
598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
599: --
600: ROLLBACK TO Check_Unique_Pvt ;
601: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
602: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
603: p_data => p_msg_data );
604: --
605: WHEN OTHERS THEN
604: --
605: WHEN OTHERS THEN
606: --
607: ROLLBACK TO Check_Unique_Pvt ;
608: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
609: --
610: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
611: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
612: l_api_name);
620:
621: PROCEDURE Check_References
622: (
623: p_api_version IN NUMBER,
624: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
625: p_commit IN VARCHAR2 := FND_API.G_FALSE,
626: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
627: p_return_status OUT NOCOPY VARCHAR2,
628: p_msg_count OUT NOCOPY NUMBER,
621: PROCEDURE Check_References
622: (
623: p_api_version IN NUMBER,
624: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
625: p_commit IN VARCHAR2 := FND_API.G_FALSE,
626: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
627: p_return_status OUT NOCOPY VARCHAR2,
628: p_msg_count OUT NOCOPY NUMBER,
629: p_msg_data OUT NOCOPY VARCHAR2,
622: (
623: p_api_version IN NUMBER,
624: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
625: p_commit IN VARCHAR2 := FND_API.G_FALSE,
626: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
627: p_return_status OUT NOCOPY VARCHAR2,
628: p_msg_count OUT NOCOPY NUMBER,
629: p_msg_data OUT NOCOPY VARCHAR2,
630: --
656: BEGIN
657: --
658: SAVEPOINT Check_References_Pvt ;
659: --
660: IF NOT FND_API.Compatible_API_Call ( l_api_version,
661: p_api_version,
662: l_api_name,
663: G_PKG_NAME )
664: THEN
661: p_api_version,
662: l_api_name,
663: G_PKG_NAME )
664: THEN
665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
666: END IF;
667: --
668:
669: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
666: END IF;
667: --
668:
669: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
670: FND_MSG_PUB.initialize ;
671: END IF;
672: --
673: p_return_status := FND_API.G_RET_STS_SUCCESS ;
669: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
670: FND_MSG_PUB.initialize ;
671: END IF;
672: --
673: p_return_status := FND_API.G_RET_STS_SUCCESS ;
674: --
675:
676: -- Checking the Psb_set_relations table for references.
677: OPEN c;
690:
691: CLOSE c;
692: CLOSE c1;
693: --
694: IF FND_API.To_Boolean ( p_commit ) THEN
695: COMMIT WORK;
696: END iF;
697: --
698: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
699: p_data => p_msg_data );
700:
701: EXCEPTION
702: --
703: WHEN FND_API.G_EXC_ERROR THEN
704: --
705: ROLLBACK TO Check_References_Pvt ;
706: p_return_status := FND_API.G_RET_STS_ERROR;
707: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
702: --
703: WHEN FND_API.G_EXC_ERROR THEN
704: --
705: ROLLBACK TO Check_References_Pvt ;
706: p_return_status := FND_API.G_RET_STS_ERROR;
707: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
708: p_data => p_msg_data );
709: --
710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
706: p_return_status := FND_API.G_RET_STS_ERROR;
707: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
708: p_data => p_msg_data );
709: --
710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
711: --
712: ROLLBACK TO Check_References_Pvt ;
713: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
714: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
709: --
710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
711: --
712: ROLLBACK TO Check_References_Pvt ;
713: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
714: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
715: p_data => p_msg_data );
716: --
717: WHEN OTHERS THEN
716: --
717: WHEN OTHERS THEN
718: --
719: ROLLBACK TO Check_References_Pvt ;
720: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
721: --
722: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
723: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
724: l_api_name);