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: --
50: SAVEPOINT INSERT_ROW_PVT;
51:
52: -- Standard call to check for call compatibility.
53:
54: if not FND_API.Compatible_API_Call (l_api_version,
55: p_api_version,
56: l_api_name,
57: G_PKG_NAME)
58: then
55: p_api_version,
56: l_api_name,
57: G_PKG_NAME)
58: then
59: raise FND_API.G_EXC_UNEXPECTED_ERROR;
60: end if;
61:
62: -- Initialize message list if p_init_msg_list is set to TRUE.
63:
60: end if;
61:
62: -- Initialize message list if p_init_msg_list is set to TRUE.
63:
64: if FND_API.to_Boolean (p_init_msg_list) then
65: FND_MSG_PUB.initialize;
66: end if;
67:
68: -- Initialize API return status to success
66: end if;
67:
68: -- Initialize API return status to success
69:
70: p_return_status := FND_API.G_RET_STS_SUCCESS;
71:
72:
73: -- API body
74: INSERT INTO psb_default_assignments
121: -- End of API body.
122:
123: -- Standard check of p_commit.
124:
125: if FND_API.to_Boolean (p_commit) then
126: commit work;
127: end if;
128:
129: -- Standard call to get message count and if count is 1, get message info.
132: p_data => p_msg_data);
133:
134: EXCEPTION
135:
136: when FND_API.G_EXC_ERROR then
137:
138: rollback to INSERT_ROW_PVT;
139:
140: p_return_status := FND_API.G_RET_STS_ERROR;
136: when FND_API.G_EXC_ERROR then
137:
138: rollback to INSERT_ROW_PVT;
139:
140: p_return_status := FND_API.G_RET_STS_ERROR;
141:
142: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
143: p_data => p_msg_data);
144:
142: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
143: p_data => p_msg_data);
144:
145:
146: when FND_API.G_EXC_UNEXPECTED_ERROR then
147:
148: rollback to INSERT_ROW_PVT;
149:
150: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146: when FND_API.G_EXC_UNEXPECTED_ERROR then
147:
148: rollback to INSERT_ROW_PVT;
149:
150: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
151:
152: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
153: p_data => p_msg_data);
154:
156: when OTHERS then
157:
158: rollback to INSERT_ROW_PVT;
159:
160: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161:
162: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
163:
164: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
171: END INSERT_ROW;
172:
173: PROCEDURE UPDATE_ROW
174: ( p_api_version IN NUMBER,
175: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
176: p_commit IN VARCHAR2 := FND_API.G_FALSE,
177: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
178: p_return_status OUT NOCOPY VARCHAR2,
179: p_msg_count OUT NOCOPY NUMBER,
172:
173: PROCEDURE UPDATE_ROW
174: ( p_api_version IN NUMBER,
175: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
176: p_commit IN VARCHAR2 := FND_API.G_FALSE,
177: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
178: p_return_status OUT NOCOPY VARCHAR2,
179: p_msg_count OUT NOCOPY NUMBER,
180: p_msg_data OUT NOCOPY VARCHAR2,
173: PROCEDURE UPDATE_ROW
174: ( p_api_version IN NUMBER,
175: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
176: p_commit IN VARCHAR2 := FND_API.G_FALSE,
177: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
178: p_return_status OUT NOCOPY VARCHAR2,
179: p_msg_count OUT NOCOPY NUMBER,
180: p_msg_data OUT NOCOPY VARCHAR2,
181: --
207: SAVEPOINT UPDATE_ROW_PVT;
208:
209: -- Standard call to check for call compatibility.
210:
211: if not FND_API.Compatible_API_Call (l_api_version,
212: p_api_version,
213: l_api_name,
214: G_PKG_NAME)
215: then
212: p_api_version,
213: l_api_name,
214: G_PKG_NAME)
215: then
216: raise FND_API.G_EXC_UNEXPECTED_ERROR;
217: end if;
218:
219: -- Initialize message list if p_init_msg_list is set to TRUE.
220:
217: end if;
218:
219: -- Initialize message list if p_init_msg_list is set to TRUE.
220:
221: if FND_API.to_Boolean (p_init_msg_list) then
222: FND_MSG_PUB.initialize;
223: end if;
224:
225: -- Initialize API return status to success
223: end if;
224:
225: -- Initialize API return status to success
226:
227: p_return_status := FND_API.G_RET_STS_SUCCESS;
228:
229: -- API body
230: UPDATE psb_default_assignments SET
231: DEFAULT_ASSIGNMENT_ID = P_DEFAULT_ASSIGNMENT_ID,
252: -- End of API body.
253:
254: -- Standard check of p_commit.
255:
256: if FND_API.to_Boolean (p_commit) then
257: commit work;
258: end if;
259:
260: -- Standard call to get message count and if count is 1, get message info.
263: p_data => p_msg_data);
264:
265: EXCEPTION
266:
267: when FND_API.G_EXC_ERROR then
268:
269: rollback to UPDATE_ROW_PVT;
270:
271: p_return_status := FND_API.G_RET_STS_ERROR;
267: when FND_API.G_EXC_ERROR then
268:
269: rollback to UPDATE_ROW_PVT;
270:
271: p_return_status := FND_API.G_RET_STS_ERROR;
272:
273: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
274: p_data => p_msg_data);
275:
273: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
274: p_data => p_msg_data);
275:
276:
277: when FND_API.G_EXC_UNEXPECTED_ERROR then
278:
279: rollback to UPDATE_ROW_PVT;
280:
281: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277: when FND_API.G_EXC_UNEXPECTED_ERROR then
278:
279: rollback to UPDATE_ROW_PVT;
280:
281: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282:
283: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
284: p_data => p_msg_data);
285:
287: when OTHERS then
288:
289: rollback to UPDATE_ROW_PVT;
290:
291: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292:
293: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
294:
295: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
303:
304:
305: PROCEDURE DELETE_ROW
306: ( p_api_version IN NUMBER,
307: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
308: p_commit IN VARCHAR2 := FND_API.G_FALSE,
309: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
310: p_return_status OUT NOCOPY VARCHAR2,
311: p_msg_count OUT NOCOPY NUMBER,
304:
305: PROCEDURE DELETE_ROW
306: ( p_api_version IN NUMBER,
307: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
308: p_commit IN VARCHAR2 := FND_API.G_FALSE,
309: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
310: p_return_status OUT NOCOPY VARCHAR2,
311: p_msg_count OUT NOCOPY NUMBER,
312: p_msg_data OUT NOCOPY VARCHAR2,
305: PROCEDURE DELETE_ROW
306: ( p_api_version IN NUMBER,
307: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
308: p_commit IN VARCHAR2 := FND_API.G_FALSE,
309: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
310: p_return_status OUT NOCOPY VARCHAR2,
311: p_msg_count OUT NOCOPY NUMBER,
312: p_msg_data OUT NOCOPY VARCHAR2,
313: --
324: SAVEPOINT DELETE_ROW_PVT;
325:
326: -- Standard call to check for call compatibility.
327:
328: if not FND_API.Compatible_API_Call (l_api_version,
329: p_api_version,
330: l_api_name,
331: G_PKG_NAME)
332: then
329: p_api_version,
330: l_api_name,
331: G_PKG_NAME)
332: then
333: raise FND_API.G_EXC_UNEXPECTED_ERROR;
334: end if;
335:
336: -- Initialize message list if p_init_msg_list is set to TRUE.
337:
334: end if;
335:
336: -- Initialize message list if p_init_msg_list is set to TRUE.
337:
338: if FND_API.to_Boolean (p_init_msg_list) then
339: FND_MSG_PUB.initialize;
340: end if;
341:
342:
355: p_data => p_msg_data);
356:
357: -- Standard check of p_commit.
358:
359: if FND_API.to_Boolean (p_commit) then
360: commit work;
361: end if;
362:
363:
362:
363:
364: EXCEPTION
365:
366: when FND_API.G_EXC_ERROR then
367:
368: rollback to DELETE_ROW_PVT;
369:
370: p_return_status := FND_API.G_RET_STS_ERROR;
366: when FND_API.G_EXC_ERROR then
367:
368: rollback to DELETE_ROW_PVT;
369:
370: p_return_status := FND_API.G_RET_STS_ERROR;
371:
372: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
373: p_data => p_msg_data);
374:
372: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
373: p_data => p_msg_data);
374:
375:
376: when FND_API.G_EXC_UNEXPECTED_ERROR then
377:
378: rollback to DELETE_ROW_PVT;
379:
380: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
376: when FND_API.G_EXC_UNEXPECTED_ERROR then
377:
378: rollback to DELETE_ROW_PVT;
379:
380: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
381:
382: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
383: p_data => p_msg_data);
384:
386: when OTHERS then
387:
388: rollback to DELETE_ROW_PVT;
389:
390: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391:
392: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
393:
394: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
400: END DELETE_ROW;
401:
402: PROCEDURE LOCK_ROW(
403: p_api_version IN NUMBER,
404: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
405: p_commit IN VARCHAR2 := FND_API.G_FALSE,
406: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
407: p_return_status OUT NOCOPY VARCHAR2,
408: p_msg_count OUT NOCOPY NUMBER,
401:
402: PROCEDURE LOCK_ROW(
403: p_api_version IN NUMBER,
404: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
405: p_commit IN VARCHAR2 := FND_API.G_FALSE,
406: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
407: p_return_status OUT NOCOPY VARCHAR2,
408: p_msg_count OUT NOCOPY NUMBER,
409: p_msg_data OUT NOCOPY VARCHAR2,
402: PROCEDURE LOCK_ROW(
403: p_api_version IN NUMBER,
404: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
405: p_commit IN VARCHAR2 := FND_API.G_FALSE,
406: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
407: p_return_status OUT NOCOPY VARCHAR2,
408: p_msg_count OUT NOCOPY NUMBER,
409: p_msg_data OUT NOCOPY VARCHAR2,
410: --
438: BEGIN
439: --
440: SAVEPOINT Lock_Row_Pvt ;
441: --
442: IF NOT FND_API.Compatible_API_Call ( l_api_version,
443: p_api_version,
444: l_api_name,
445: G_PKG_NAME )
446: THEN
443: p_api_version,
444: l_api_name,
445: G_PKG_NAME )
446: THEN
447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
448: END IF;
449: --
450:
451: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
448: END IF;
449: --
450:
451: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
452: FND_MSG_PUB.initialize ;
453: END IF;
454: --
455: p_return_status := FND_API.G_RET_STS_SUCCESS ;
451: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
452: FND_MSG_PUB.initialize ;
453: END IF;
454: --
455: p_return_status := FND_API.G_RET_STS_SUCCESS ;
456: p_row_locked := FND_API.G_TRUE ;
457: --
458: OPEN C;
459: --
452: FND_MSG_PUB.initialize ;
453: END IF;
454: --
455: p_return_status := FND_API.G_RET_STS_SUCCESS ;
456: p_row_locked := FND_API.G_TRUE ;
457: --
458: OPEN C;
459: --
460: FETCH C INTO Recinfo;
461: IF (C%NOTFOUND) then
462: CLOSE C;
463: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
464: FND_MSG_PUB.Add;
465: RAISE FND_API.G_EXC_ERROR ;
466: END IF;
467:
468: IF
469: (
505: Null;
506: ELSE
507: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
508: FND_MSG_PUB.Add;
509: RAISE FND_API.G_EXC_ERROR ;
510: END IF;
511:
512: --
513: IF FND_API.To_Boolean ( p_commit ) THEN
509: RAISE FND_API.G_EXC_ERROR ;
510: END IF;
511:
512: --
513: IF FND_API.To_Boolean ( p_commit ) THEN
514: COMMIT WORK;
515: END iF;
516: --
517: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
521: --
522: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
523: --
524: ROLLBACK TO Lock_Row_Pvt ;
525: p_row_locked := FND_API.G_FALSE;
526: p_return_status := FND_API.G_RET_STS_ERROR;
527: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
528: p_data => p_msg_data );
529: --
522: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
523: --
524: ROLLBACK TO Lock_Row_Pvt ;
525: p_row_locked := FND_API.G_FALSE;
526: p_return_status := FND_API.G_RET_STS_ERROR;
527: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
528: p_data => p_msg_data );
529: --
530: WHEN FND_API.G_EXC_ERROR THEN
526: p_return_status := FND_API.G_RET_STS_ERROR;
527: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
528: p_data => p_msg_data );
529: --
530: WHEN FND_API.G_EXC_ERROR THEN
531: --
532: ROLLBACK TO Lock_Row_Pvt ;
533: p_return_status := FND_API.G_RET_STS_ERROR;
534: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
529: --
530: WHEN FND_API.G_EXC_ERROR THEN
531: --
532: ROLLBACK TO Lock_Row_Pvt ;
533: p_return_status := FND_API.G_RET_STS_ERROR;
534: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
535: p_data => p_msg_data );
536: --
537: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
533: p_return_status := FND_API.G_RET_STS_ERROR;
534: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
535: p_data => p_msg_data );
536: --
537: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
538: --
539: ROLLBACK TO Lock_Row_Pvt ;
540: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
541: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
536: --
537: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
538: --
539: ROLLBACK TO Lock_Row_Pvt ;
540: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
541: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
542: p_data => p_msg_data );
543: --
544: WHEN OTHERS THEN
543: --
544: WHEN OTHERS THEN
545: --
546: ROLLBACK TO Lock_Row_Pvt ;
547: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: --
549: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
550: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
551: l_api_name);
557:
558: PROCEDURE Check_Unique
559: (
560: p_api_version IN NUMBER,
561: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
562: p_commit IN VARCHAR2 := FND_API.G_FALSE,
563: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
564: p_return_status OUT NOCOPY VARCHAR2,
565: p_msg_count OUT NOCOPY NUMBER,
558: PROCEDURE Check_Unique
559: (
560: p_api_version IN NUMBER,
561: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
562: p_commit IN VARCHAR2 := FND_API.G_FALSE,
563: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
564: p_return_status OUT NOCOPY VARCHAR2,
565: p_msg_count OUT NOCOPY NUMBER,
566: p_msg_data OUT NOCOPY VARCHAR2,
559: (
560: p_api_version IN NUMBER,
561: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
562: p_commit IN VARCHAR2 := FND_API.G_FALSE,
563: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
564: p_return_status OUT NOCOPY VARCHAR2,
565: p_msg_count OUT NOCOPY NUMBER,
566: p_msg_data OUT NOCOPY VARCHAR2,
567: --
595: BEGIN
596: --
597: SAVEPOINT Check_Unique_Pvt ;
598: --
599: IF NOT FND_API.Compatible_API_Call ( l_api_version,
600: p_api_version,
601: l_api_name,
602: G_PKG_NAME )
603: THEN
600: p_api_version,
601: l_api_name,
602: G_PKG_NAME )
603: THEN
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
605: END IF;
606: --
607:
608: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
605: END IF;
606: --
607:
608: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
609: FND_MSG_PUB.initialize ;
610: END IF;
611: --
612: p_return_status := FND_API.G_RET_STS_SUCCESS ;
608: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
609: FND_MSG_PUB.initialize ;
610: END IF;
611: --
612: p_return_status := FND_API.G_RET_STS_SUCCESS ;
613: --
614:
615: -- Checking the Psb_set_relations table for references.
616: OPEN c;
624: END IF;
625:
626: CLOSE c;
627: --
628: IF FND_API.To_Boolean ( p_commit ) THEN
629: COMMIT WORK;
630: END iF;
631: --
632: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
633: p_data => p_msg_data );
634: --
635: EXCEPTION
636: --
637: WHEN FND_API.G_EXC_ERROR THEN
638: --
639: ROLLBACK TO Check_Unique_Pvt ;
640: p_return_status := FND_API.G_RET_STS_ERROR;
641: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
636: --
637: WHEN FND_API.G_EXC_ERROR THEN
638: --
639: ROLLBACK TO Check_Unique_Pvt ;
640: p_return_status := FND_API.G_RET_STS_ERROR;
641: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
642: p_data => p_msg_data );
643: --
644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
640: p_return_status := FND_API.G_RET_STS_ERROR;
641: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
642: p_data => p_msg_data );
643: --
644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
645: --
646: ROLLBACK TO Check_Unique_Pvt ;
647: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
648: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
643: --
644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
645: --
646: ROLLBACK TO Check_Unique_Pvt ;
647: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
648: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
649: p_data => p_msg_data );
650: --
651: WHEN OTHERS THEN
650: --
651: WHEN OTHERS THEN
652: --
653: ROLLBACK TO Check_Unique_Pvt ;
654: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
655: --
656: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
657: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
658: l_api_name);