10:
11: PROCEDURE Insert_Row
12: (
13: p_api_version IN NUMBER,
14: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
15: p_commit IN VARCHAR2 := FND_API.G_FALSE,
16: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
17: p_return_status OUT NOCOPY VARCHAR2,
18: p_msg_count OUT NOCOPY NUMBER,
11: PROCEDURE Insert_Row
12: (
13: p_api_version IN NUMBER,
14: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
15: p_commit IN VARCHAR2 := FND_API.G_FALSE,
16: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
17: p_return_status OUT NOCOPY VARCHAR2,
18: p_msg_count OUT NOCOPY NUMBER,
19: p_msg_data OUT NOCOPY VARCHAR2,
12: (
13: p_api_version IN NUMBER,
14: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
15: p_commit IN VARCHAR2 := FND_API.G_FALSE,
16: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
17: p_return_status OUT NOCOPY VARCHAR2,
18: p_msg_count OUT NOCOPY NUMBER,
19: p_msg_data OUT NOCOPY VARCHAR2,
20: --
45: BEGIN
46: --
47: SAVEPOINT Insert_Row_Pvt ;
48: --
49: IF NOT FND_API.Compatible_API_Call ( l_api_version,
50: p_api_version,
51: l_api_name,
52: G_PKG_NAME )
53: THEN
50: p_api_version,
51: l_api_name,
52: G_PKG_NAME )
53: THEN
54: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
55: END IF;
56: --
57:
58: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
54: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
55: END IF;
56: --
57:
58: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
59: FND_MSG_PUB.initialize ;
60: END IF;
61: --
62: p_return_status := FND_API.G_RET_STS_SUCCESS ;
58: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
59: FND_MSG_PUB.initialize ;
60: END IF;
61: --
62: p_return_status := FND_API.G_RET_STS_SUCCESS ;
63: --
64:
65: IF (p_value_sequence_id is NULL) THEN
66: OPEN C2;
94: OPEN C;
95: FETCH C INTO p_Row_Id;
96: IF (C%NOTFOUND) THEN
97: CLOSE C;
98: RAISE FND_API.G_EXC_ERROR ;
99: END IF;
100: CLOSE C;
101: --
102:
100: CLOSE C;
101: --
102:
103: --
104: IF FND_API.To_Boolean ( p_commit ) THEN
105: COMMIT WORK;
106: END iF;
107: --
108: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
109: p_data => p_msg_data );
110: --
111: EXCEPTION
112: --
113: WHEN FND_API.G_EXC_ERROR THEN
114: --
115: ROLLBACK TO Insert_Row_Pvt ;
116: p_return_status := FND_API.G_RET_STS_ERROR;
117: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
112: --
113: WHEN FND_API.G_EXC_ERROR THEN
114: --
115: ROLLBACK TO Insert_Row_Pvt ;
116: p_return_status := FND_API.G_RET_STS_ERROR;
117: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
118: p_data => p_msg_data );
119: --
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
116: p_return_status := FND_API.G_RET_STS_ERROR;
117: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
118: p_data => p_msg_data );
119: --
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: --
122: ROLLBACK TO Insert_Row_Pvt ;
123: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
119: --
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: --
122: ROLLBACK TO Insert_Row_Pvt ;
123: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
125: p_data => p_msg_data );
126: --
127: WHEN OTHERS THEN
126: --
127: WHEN OTHERS THEN
128: --
129: ROLLBACK TO Insert_Row_Pvt ;
130: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131: --
132: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
133: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
134: l_api_name);
148:
149: PROCEDURE Lock_Row
150: (
151: p_api_version IN NUMBER,
152: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
153: p_commit IN VARCHAR2 := FND_API.G_FALSE,
154: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
155: p_return_status OUT NOCOPY VARCHAR2,
156: p_msg_count OUT NOCOPY NUMBER,
149: PROCEDURE Lock_Row
150: (
151: p_api_version IN NUMBER,
152: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
153: p_commit IN VARCHAR2 := FND_API.G_FALSE,
154: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
155: p_return_status OUT NOCOPY VARCHAR2,
156: p_msg_count OUT NOCOPY NUMBER,
157: p_msg_data OUT NOCOPY VARCHAR2,
150: (
151: p_api_version IN NUMBER,
152: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
153: p_commit IN VARCHAR2 := FND_API.G_FALSE,
154: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
155: p_return_status OUT NOCOPY VARCHAR2,
156: p_msg_count OUT NOCOPY NUMBER,
157: p_msg_data OUT NOCOPY VARCHAR2,
158: --
180: BEGIN
181: --
182: SAVEPOINT Lock_Row_Pvt ;
183: --
184: IF NOT FND_API.Compatible_API_Call ( l_api_version,
185: p_api_version,
186: l_api_name,
187: G_PKG_NAME )
188: THEN
185: p_api_version,
186: l_api_name,
187: G_PKG_NAME )
188: THEN
189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
190: END IF;
191: --
192:
193: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
190: END IF;
191: --
192:
193: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
194: FND_MSG_PUB.initialize ;
195: END IF;
196: --
197: p_return_status := FND_API.G_RET_STS_SUCCESS ;
193: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
194: FND_MSG_PUB.initialize ;
195: END IF;
196: --
197: p_return_status := FND_API.G_RET_STS_SUCCESS ;
198: p_row_locked := FND_API.G_TRUE ;
199: --
200: OPEN C;
201: --
194: FND_MSG_PUB.initialize ;
195: END IF;
196: --
197: p_return_status := FND_API.G_RET_STS_SUCCESS ;
198: p_row_locked := FND_API.G_TRUE ;
199: --
200: OPEN C;
201: --
202: FETCH C INTO Recinfo;
203: IF (C%NOTFOUND) then
204: CLOSE C;
205: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
206: FND_MSG_PUB.Add;
207: RAISE FND_API.G_EXC_ERROR ;
208: END IF;
209: CLOSE C;
210: IF
211: (
228: Null;
229: ELSE
230: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
231: FND_MSG_PUB.Add;
232: RAISE FND_API.G_EXC_ERROR ;
233: END IF;
234:
235: --
236: IF FND_API.To_Boolean ( p_commit ) THEN
232: RAISE FND_API.G_EXC_ERROR ;
233: END IF;
234:
235: --
236: IF FND_API.To_Boolean ( p_commit ) THEN
237: COMMIT WORK;
238: END iF;
239: --
240: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
244: --
245: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
246: --
247: ROLLBACK TO Lock_Row_Pvt ;
248: p_row_locked := FND_API.G_FALSE;
249: p_return_status := FND_API.G_RET_STS_ERROR;
250: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
251: p_data => p_msg_data );
252: --
245: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
246: --
247: ROLLBACK TO Lock_Row_Pvt ;
248: p_row_locked := FND_API.G_FALSE;
249: p_return_status := FND_API.G_RET_STS_ERROR;
250: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
251: p_data => p_msg_data );
252: --
253: WHEN FND_API.G_EXC_ERROR THEN
249: p_return_status := FND_API.G_RET_STS_ERROR;
250: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
251: p_data => p_msg_data );
252: --
253: WHEN FND_API.G_EXC_ERROR THEN
254: --
255: ROLLBACK TO Lock_Row_Pvt ;
256: p_return_status := FND_API.G_RET_STS_ERROR;
257: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
252: --
253: WHEN FND_API.G_EXC_ERROR THEN
254: --
255: ROLLBACK TO Lock_Row_Pvt ;
256: p_return_status := FND_API.G_RET_STS_ERROR;
257: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
258: p_data => p_msg_data );
259: --
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
256: p_return_status := FND_API.G_RET_STS_ERROR;
257: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
258: p_data => p_msg_data );
259: --
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: --
262: ROLLBACK TO Lock_Row_Pvt ;
263: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
259: --
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: --
262: ROLLBACK TO Lock_Row_Pvt ;
263: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
265: p_data => p_msg_data );
266: --
267: WHEN OTHERS THEN
266: --
267: WHEN OTHERS THEN
268: --
269: ROLLBACK TO Lock_Row_Pvt ;
270: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: --
272: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
273: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
274: l_api_name);
289:
290: PROCEDURE Update_Row
291: (
292: p_api_version IN NUMBER,
293: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
294: p_commit IN VARCHAR2 := FND_API.G_FALSE,
295: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
296: p_return_status OUT NOCOPY VARCHAR2,
297: p_msg_count OUT NOCOPY NUMBER,
290: PROCEDURE Update_Row
291: (
292: p_api_version IN NUMBER,
293: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
294: p_commit IN VARCHAR2 := FND_API.G_FALSE,
295: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
296: p_return_status OUT NOCOPY VARCHAR2,
297: p_msg_count OUT NOCOPY NUMBER,
298: p_msg_data OUT NOCOPY VARCHAR2,
291: (
292: p_api_version IN NUMBER,
293: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
294: p_commit IN VARCHAR2 := FND_API.G_FALSE,
295: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
296: p_return_status OUT NOCOPY VARCHAR2,
297: p_msg_count OUT NOCOPY NUMBER,
298: p_msg_data OUT NOCOPY VARCHAR2,
299: --
314: BEGIN
315: --
316: SAVEPOINT Update_Row_Pvt ;
317: --
318: IF NOT FND_API.Compatible_API_Call ( l_api_version,
319: p_api_version,
320: l_api_name,
321: G_PKG_NAME )
322: THEN
319: p_api_version,
320: l_api_name,
321: G_PKG_NAME )
322: THEN
323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
324: END IF;
325: --
326:
327: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
324: END IF;
325: --
326:
327: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
328: FND_MSG_PUB.initialize ;
329: END IF;
330: --
331: p_return_status := FND_API.G_RET_STS_SUCCESS ;
327: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
328: FND_MSG_PUB.initialize ;
329: END IF;
330: --
331: p_return_status := FND_API.G_RET_STS_SUCCESS ;
332: --
333:
334: UPDATE psb_position_set_line_values
335: SET
346: RAISE NO_DATA_FOUND ;
347: END IF;
348:
349: --
350: IF FND_API.To_Boolean ( p_commit ) THEN
351: COMMIT WORK;
352: END iF;
353: --
354: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
355: p_data => p_msg_data );
356: --
357: EXCEPTION
358: --
359: WHEN FND_API.G_EXC_ERROR THEN
360: --
361: ROLLBACK TO Update_Row_Pvt ;
362: p_return_status := FND_API.G_RET_STS_ERROR;
363: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
358: --
359: WHEN FND_API.G_EXC_ERROR THEN
360: --
361: ROLLBACK TO Update_Row_Pvt ;
362: p_return_status := FND_API.G_RET_STS_ERROR;
363: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
364: p_data => p_msg_data );
365: --
366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
362: p_return_status := FND_API.G_RET_STS_ERROR;
363: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
364: p_data => p_msg_data );
365: --
366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
367: --
368: ROLLBACK TO Update_Row_Pvt ;
369: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
370: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
365: --
366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
367: --
368: ROLLBACK TO Update_Row_Pvt ;
369: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
370: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
371: p_data => p_msg_data );
372: --
373: WHEN OTHERS THEN
372: --
373: WHEN OTHERS THEN
374: --
375: ROLLBACK TO Update_Row_Pvt ;
376: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
377: --
378: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
379: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
380: l_api_name);
395:
396: PROCEDURE Delete_Row
397: (
398: p_api_version IN NUMBER,
399: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
400: p_commit IN VARCHAR2 := FND_API.G_FALSE,
401: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
402: p_return_status OUT NOCOPY VARCHAR2,
403: p_msg_count OUT NOCOPY NUMBER,
396: PROCEDURE Delete_Row
397: (
398: p_api_version IN NUMBER,
399: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
400: p_commit IN VARCHAR2 := FND_API.G_FALSE,
401: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
402: p_return_status OUT NOCOPY VARCHAR2,
403: p_msg_count OUT NOCOPY NUMBER,
404: p_msg_data OUT NOCOPY VARCHAR2,
397: (
398: p_api_version IN NUMBER,
399: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
400: p_commit IN VARCHAR2 := FND_API.G_FALSE,
401: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
402: p_return_status OUT NOCOPY VARCHAR2,
403: p_msg_count OUT NOCOPY NUMBER,
404: p_msg_data OUT NOCOPY VARCHAR2,
405: --
413: BEGIN
414: --
415: SAVEPOINT Delete_Row_Pvt ;
416: --
417: IF NOT FND_API.Compatible_API_Call ( l_api_version,
418: p_api_version,
419: l_api_name,
420: G_PKG_NAME )
421: THEN
418: p_api_version,
419: l_api_name,
420: G_PKG_NAME )
421: THEN
422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
423: END IF;
424: --
425:
426: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
423: END IF;
424: --
425:
426: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
427: FND_MSG_PUB.initialize ;
428: END IF;
429: --
430: p_return_status := FND_API.G_RET_STS_SUCCESS ;
426: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
427: FND_MSG_PUB.initialize ;
428: END IF;
429: --
430: p_return_status := FND_API.G_RET_STS_SUCCESS ;
431: --
432:
433: --
434: -- Deleting the record in psb_position_set_line_values.
440: RAISE NO_DATA_FOUND ;
441: END IF;
442:
443: --
444: IF FND_API.To_Boolean ( p_commit ) THEN
445: COMMIT WORK;
446: END iF;
447: --
448: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
449: p_data => p_msg_data );
450:
451: EXCEPTION
452: --
453: WHEN FND_API.G_EXC_ERROR THEN
454: --
455: ROLLBACK TO Delete_Row_Pvt ;
456: p_return_status := FND_API.G_RET_STS_ERROR;
457: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
452: --
453: WHEN FND_API.G_EXC_ERROR THEN
454: --
455: ROLLBACK TO Delete_Row_Pvt ;
456: p_return_status := FND_API.G_RET_STS_ERROR;
457: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
458: p_data => p_msg_data );
459: --
460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
456: p_return_status := FND_API.G_RET_STS_ERROR;
457: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
458: p_data => p_msg_data );
459: --
460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
461: --
462: ROLLBACK TO Delete_Row_Pvt ;
463: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
464: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
459: --
460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
461: --
462: ROLLBACK TO Delete_Row_Pvt ;
463: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
464: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
465: p_data => p_msg_data );
466: --
467: WHEN OTHERS THEN
466: --
467: WHEN OTHERS THEN
468: --
469: ROLLBACK TO Delete_Row_Pvt ;
470: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: --
472: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
473: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
474: l_api_name);
488:
489: PROCEDURE Check_Unique
490: (
491: p_api_version IN NUMBER,
492: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
493: p_commit IN VARCHAR2 := FND_API.G_FALSE,
494: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
495: p_return_status OUT NOCOPY VARCHAR2,
496: p_msg_count OUT NOCOPY NUMBER,
489: PROCEDURE Check_Unique
490: (
491: p_api_version IN NUMBER,
492: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
493: p_commit IN VARCHAR2 := FND_API.G_FALSE,
494: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
495: p_return_status OUT NOCOPY VARCHAR2,
496: p_msg_count OUT NOCOPY NUMBER,
497: p_msg_data OUT NOCOPY VARCHAR2,
490: (
491: p_api_version IN NUMBER,
492: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
493: p_commit IN VARCHAR2 := FND_API.G_FALSE,
494: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
495: p_return_status OUT NOCOPY VARCHAR2,
496: p_msg_count OUT NOCOPY NUMBER,
497: p_msg_data OUT NOCOPY VARCHAR2,
498: --
537: BEGIN
538: --
539: SAVEPOINT Check_Unique_Pvt ;
540: --
541: IF NOT FND_API.Compatible_API_Call ( l_api_version,
542: p_api_version,
543: l_api_name,
544: G_PKG_NAME )
545: THEN
542: p_api_version,
543: l_api_name,
544: G_PKG_NAME )
545: THEN
546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
547: END IF;
548: --
549:
550: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
547: END IF;
548: --
549:
550: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
551: FND_MSG_PUB.initialize ;
552: END IF;
553: --
554: p_return_status := FND_API.G_RET_STS_SUCCESS ;
550: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
551: FND_MSG_PUB.initialize ;
552: END IF;
553: --
554: p_return_status := FND_API.G_RET_STS_SUCCESS ;
555: --
556:
557: -- Checking the Psb_set_relations table for references.
558: OPEN c;
566: END IF;
567:
568: CLOSE c;
569: --
570: IF FND_API.To_Boolean ( p_commit ) THEN
571: COMMIT WORK;
572: END iF;
573: --
574: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
575: p_data => p_msg_data );
576: --
577: EXCEPTION
578: --
579: WHEN FND_API.G_EXC_ERROR THEN
580: --
581: ROLLBACK TO Check_Unique_Pvt ;
582: p_return_status := FND_API.G_RET_STS_ERROR;
583: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
578: --
579: WHEN FND_API.G_EXC_ERROR THEN
580: --
581: ROLLBACK TO Check_Unique_Pvt ;
582: p_return_status := FND_API.G_RET_STS_ERROR;
583: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
584: p_data => p_msg_data );
585: --
586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
582: p_return_status := FND_API.G_RET_STS_ERROR;
583: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
584: p_data => p_msg_data );
585: --
586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
587: --
588: ROLLBACK TO Check_Unique_Pvt ;
589: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
590: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
585: --
586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
587: --
588: ROLLBACK TO Check_Unique_Pvt ;
589: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
590: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
591: p_data => p_msg_data );
592: --
593: WHEN OTHERS THEN
592: --
593: WHEN OTHERS THEN
594: --
595: ROLLBACK TO Check_Unique_Pvt ;
596: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
597: --
598: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
599: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
600: l_api_name);
615:
616: PROCEDURE Check_References
617: (
618: p_api_version IN NUMBER,
619: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
620: p_commit IN VARCHAR2 := FND_API.G_FALSE,
621: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
622: p_return_status OUT NOCOPY VARCHAR2,
623: p_msg_count OUT NOCOPY NUMBER,
616: PROCEDURE Check_References
617: (
618: p_api_version IN NUMBER,
619: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
620: p_commit IN VARCHAR2 := FND_API.G_FALSE,
621: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
622: p_return_status OUT NOCOPY VARCHAR2,
623: p_msg_count OUT NOCOPY NUMBER,
624: p_msg_data OUT NOCOPY VARCHAR2,
617: (
618: p_api_version IN NUMBER,
619: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
620: p_commit IN VARCHAR2 := FND_API.G_FALSE,
621: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
622: p_return_status OUT NOCOPY VARCHAR2,
623: p_msg_count OUT NOCOPY NUMBER,
624: p_msg_data OUT NOCOPY VARCHAR2,
625: --
641: BEGIN
642: --
643: SAVEPOINT Check_References_Pvt ;
644: --
645: IF NOT FND_API.Compatible_API_Call ( l_api_version,
646: p_api_version,
647: l_api_name,
648: G_PKG_NAME )
649: THEN
646: p_api_version,
647: l_api_name,
648: G_PKG_NAME )
649: THEN
650: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
651: END IF;
652: --
653:
654: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
650: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
651: END IF;
652: --
653:
654: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
655: FND_MSG_PUB.initialize ;
656: END IF;
657: --
658: p_return_status := FND_API.G_RET_STS_SUCCESS ;
654: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
655: FND_MSG_PUB.initialize ;
656: END IF;
657: --
658: p_return_status := FND_API.G_RET_STS_SUCCESS ;
659: --
660:
661: -- Checking the Psb_set_relations table for references.
662: OPEN c;
670: END IF;
671:
672: CLOSE c;
673: --
674: IF FND_API.To_Boolean ( p_commit ) THEN
675: COMMIT WORK;
676: END iF;
677: --
678: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
679: p_data => p_msg_data );
680:
681: EXCEPTION
682: --
683: WHEN FND_API.G_EXC_ERROR THEN
684: --
685: ROLLBACK TO Check_References_Pvt ;
686: p_return_status := FND_API.G_RET_STS_ERROR;
687: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
682: --
683: WHEN FND_API.G_EXC_ERROR THEN
684: --
685: ROLLBACK TO Check_References_Pvt ;
686: p_return_status := FND_API.G_RET_STS_ERROR;
687: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
688: p_data => p_msg_data );
689: --
690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: p_return_status := FND_API.G_RET_STS_ERROR;
687: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
688: p_data => p_msg_data );
689: --
690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
691: --
692: ROLLBACK TO Check_References_Pvt ;
693: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
694: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
689: --
690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
691: --
692: ROLLBACK TO Check_References_Pvt ;
693: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
694: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
695: p_data => p_msg_data );
696: --
697: WHEN OTHERS THEN
696: --
697: WHEN OTHERS THEN
698: --
699: ROLLBACK TO Check_References_Pvt ;
700: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: --
702: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
703: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
704: l_api_name);