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: --
78: SAVEPOINT INSERT_ROW_PVT;
79:
80: -- Standard call to check for call compatibility.
81:
82: if not FND_API.Compatible_API_Call (l_api_version,
83: p_api_version,
84: l_api_name,
85: G_PKG_NAME)
86: then
83: p_api_version,
84: l_api_name,
85: G_PKG_NAME)
86: then
87: raise FND_API.G_EXC_UNEXPECTED_ERROR;
88: end if;
89:
90: -- Initialize message list if p_init_msg_list is set to TRUE.
91:
88: end if;
89:
90: -- Initialize message list if p_init_msg_list is set to TRUE.
91:
92: if FND_API.to_Boolean (p_init_msg_list) then
93: FND_MSG_PUB.initialize;
94: end if;
95:
96: -- Initialize API return status to success
94: end if;
95:
96: -- Initialize API return status to success
97:
98: p_return_status := FND_API.G_RET_STS_SUCCESS;
99:
100:
101: -- API body
102: INSERT INTO psb_pay_element_distributions
203: -- End of API body.
204:
205: -- Standard check of p_commit.
206:
207: if FND_API.to_Boolean (p_commit) then
208: commit work;
209: end if;
210:
211: -- Standard call to get message count and if count is 1, get message info.
214: p_data => p_msg_data);
215:
216: EXCEPTION
217:
218: when FND_API.G_EXC_ERROR then
219:
220: rollback to INSERT_ROW_PVT;
221:
222: p_return_status := FND_API.G_RET_STS_ERROR;
218: when FND_API.G_EXC_ERROR then
219:
220: rollback to INSERT_ROW_PVT;
221:
222: p_return_status := FND_API.G_RET_STS_ERROR;
223:
224: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
225: p_data => p_msg_data);
226:
224: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
225: p_data => p_msg_data);
226:
227:
228: when FND_API.G_EXC_UNEXPECTED_ERROR then
229:
230: rollback to INSERT_ROW_PVT;
231:
232: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228: when FND_API.G_EXC_UNEXPECTED_ERROR then
229:
230: rollback to INSERT_ROW_PVT;
231:
232: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233:
234: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
235: p_data => p_msg_data);
236:
238: when OTHERS then
239:
240: rollback to INSERT_ROW_PVT;
241:
242: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243:
244: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
245:
246: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
253: END INSERT_ROW;
254:
255: PROCEDURE UPDATE_ROW
256: ( p_api_version IN NUMBER,
257: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
258: p_commit IN VARCHAR2 := FND_API.G_FALSE,
259: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
260: p_return_status OUT NOCOPY VARCHAR2,
261: p_msg_count OUT NOCOPY NUMBER,
254:
255: PROCEDURE UPDATE_ROW
256: ( p_api_version IN NUMBER,
257: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
258: p_commit IN VARCHAR2 := FND_API.G_FALSE,
259: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
260: p_return_status OUT NOCOPY VARCHAR2,
261: p_msg_count OUT NOCOPY NUMBER,
262: p_msg_data OUT NOCOPY VARCHAR2,
255: PROCEDURE UPDATE_ROW
256: ( p_api_version IN NUMBER,
257: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
258: p_commit IN VARCHAR2 := FND_API.G_FALSE,
259: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
260: p_return_status OUT NOCOPY VARCHAR2,
261: p_msg_count OUT NOCOPY NUMBER,
262: p_msg_data OUT NOCOPY VARCHAR2,
263: --
315: SAVEPOINT UPDATE_ROW_PVT;
316:
317: -- Standard call to check for call compatibility.
318:
319: if not FND_API.Compatible_API_Call (l_api_version,
320: p_api_version,
321: l_api_name,
322: G_PKG_NAME)
323: then
320: p_api_version,
321: l_api_name,
322: G_PKG_NAME)
323: then
324: raise FND_API.G_EXC_UNEXPECTED_ERROR;
325: end if;
326:
327: -- Initialize message list if p_init_msg_list is set to TRUE.
328:
325: end if;
326:
327: -- Initialize message list if p_init_msg_list is set to TRUE.
328:
329: if FND_API.to_Boolean (p_init_msg_list) then
330: FND_MSG_PUB.initialize;
331: end if;
332:
333: -- Initialize API return status to success
331: end if;
332:
333: -- Initialize API return status to success
334:
335: p_return_status := FND_API.G_RET_STS_SUCCESS;
336:
337: -- API body
338: UPDATE psb_pay_element_distributions SET
339: EFFECTIVE_START_DATE = P_EFFECTIVE_START_DATE,
386: -- End of API body.
387:
388: -- Standard check of p_commit.
389:
390: if FND_API.to_Boolean (p_commit) then
391: commit work;
392: end if;
393:
394: -- Standard call to get message count and if count is 1, get message info.
397: p_data => p_msg_data);
398:
399: EXCEPTION
400:
401: when FND_API.G_EXC_ERROR then
402:
403: rollback to UPDATE_ROW_PVT;
404:
405: p_return_status := FND_API.G_RET_STS_ERROR;
401: when FND_API.G_EXC_ERROR then
402:
403: rollback to UPDATE_ROW_PVT;
404:
405: p_return_status := FND_API.G_RET_STS_ERROR;
406:
407: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
408: p_data => p_msg_data);
409:
407: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
408: p_data => p_msg_data);
409:
410:
411: when FND_API.G_EXC_UNEXPECTED_ERROR then
412:
413: rollback to UPDATE_ROW_PVT;
414:
415: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: when FND_API.G_EXC_UNEXPECTED_ERROR then
412:
413: rollback to UPDATE_ROW_PVT;
414:
415: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
416:
417: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
418: p_data => p_msg_data);
419:
421: when OTHERS then
422:
423: rollback to UPDATE_ROW_PVT;
424:
425: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426:
427: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
428:
429: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
437:
438:
439: PROCEDURE DELETE_ROW
440: ( p_api_version IN NUMBER,
441: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
442: p_commit IN VARCHAR2 := FND_API.G_FALSE,
443: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
444: p_return_status OUT NOCOPY VARCHAR2,
445: p_msg_count OUT NOCOPY NUMBER,
438:
439: PROCEDURE DELETE_ROW
440: ( p_api_version IN NUMBER,
441: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
442: p_commit IN VARCHAR2 := FND_API.G_FALSE,
443: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
444: p_return_status OUT NOCOPY VARCHAR2,
445: p_msg_count OUT NOCOPY NUMBER,
446: p_msg_data OUT NOCOPY VARCHAR2,
439: PROCEDURE DELETE_ROW
440: ( p_api_version IN NUMBER,
441: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
442: p_commit IN VARCHAR2 := FND_API.G_FALSE,
443: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
444: p_return_status OUT NOCOPY VARCHAR2,
445: p_msg_count OUT NOCOPY NUMBER,
446: p_msg_data OUT NOCOPY VARCHAR2,
447: --
461: SAVEPOINT DELETE_ROW_PVT;
462:
463: -- Standard call to check for call compatibility.
464:
465: if not FND_API.Compatible_API_Call (l_api_version,
466: p_api_version,
467: l_api_name,
468: G_PKG_NAME)
469: then
466: p_api_version,
467: l_api_name,
468: G_PKG_NAME)
469: then
470: raise FND_API.G_EXC_UNEXPECTED_ERROR;
471: end if;
472:
473: -- Initialize message list if p_init_msg_list is set to TRUE.
474:
471: end if;
472:
473: -- Initialize message list if p_init_msg_list is set to TRUE.
474:
475: if FND_API.to_Boolean (p_init_msg_list) then
476: FND_MSG_PUB.initialize;
477: end if;
478:
479:
495: p_data => p_msg_data);
496:
497: -- Standard check of p_commit.
498:
499: if FND_API.to_Boolean (p_commit) then
500: commit work;
501: end if;
502:
503:
502:
503:
504: EXCEPTION
505:
506: when FND_API.G_EXC_ERROR then
507:
508: rollback to DELETE_ROW_PVT;
509:
510: p_return_status := FND_API.G_RET_STS_ERROR;
506: when FND_API.G_EXC_ERROR then
507:
508: rollback to DELETE_ROW_PVT;
509:
510: p_return_status := FND_API.G_RET_STS_ERROR;
511:
512: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
513: p_data => p_msg_data);
514:
512: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
513: p_data => p_msg_data);
514:
515:
516: when FND_API.G_EXC_UNEXPECTED_ERROR then
517:
518: rollback to DELETE_ROW_PVT;
519:
520: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: when FND_API.G_EXC_UNEXPECTED_ERROR then
517:
518: rollback to DELETE_ROW_PVT;
519:
520: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521:
522: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
523: p_data => p_msg_data);
524:
526: when OTHERS then
527:
528: rollback to DELETE_ROW_PVT;
529:
530: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
531:
532: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
533:
534: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
540: END DELETE_ROW;
541:
542: PROCEDURE LOCK_ROW(
543: p_api_version IN NUMBER,
544: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
545: p_commit IN VARCHAR2 := FND_API.G_FALSE,
546: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
547: p_return_status OUT NOCOPY VARCHAR2,
548: p_msg_count OUT NOCOPY NUMBER,
541:
542: PROCEDURE LOCK_ROW(
543: p_api_version IN NUMBER,
544: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
545: p_commit IN VARCHAR2 := FND_API.G_FALSE,
546: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
547: p_return_status OUT NOCOPY VARCHAR2,
548: p_msg_count OUT NOCOPY NUMBER,
549: p_msg_data OUT NOCOPY VARCHAR2,
542: PROCEDURE LOCK_ROW(
543: p_api_version IN NUMBER,
544: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
545: p_commit IN VARCHAR2 := FND_API.G_FALSE,
546: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
547: p_return_status OUT NOCOPY VARCHAR2,
548: p_msg_count OUT NOCOPY NUMBER,
549: p_msg_data OUT NOCOPY VARCHAR2,
550: --
604: BEGIN
605: --
606: SAVEPOINT Lock_Row_Pvt ;
607: --
608: IF NOT FND_API.Compatible_API_Call ( l_api_version,
609: p_api_version,
610: l_api_name,
611: G_PKG_NAME )
612: THEN
609: p_api_version,
610: l_api_name,
611: G_PKG_NAME )
612: THEN
613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
614: END IF;
615: --
616:
617: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
614: END IF;
615: --
616:
617: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
618: FND_MSG_PUB.initialize ;
619: END IF;
620:
621: --
618: FND_MSG_PUB.initialize ;
619: END IF;
620:
621: --
622: p_return_status := FND_API.G_RET_STS_SUCCESS ;
623: p_row_locked := FND_API.G_TRUE ;
624: --
625: OPEN C;
626: --
619: END IF;
620:
621: --
622: p_return_status := FND_API.G_RET_STS_SUCCESS ;
623: p_row_locked := FND_API.G_TRUE ;
624: --
625: OPEN C;
626: --
627: FETCH C INTO Recinfo;
628: IF (C%NOTFOUND) then
629: CLOSE C;
630: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
631: FND_MSG_PUB.Add;
632: RAISE FND_API.G_EXC_ERROR ;
633: END IF;
634:
635: IF
636: (
750: Null;
751: ELSE
752: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
753: FND_MSG_PUB.Add;
754: RAISE FND_API.G_EXC_ERROR ;
755: END IF;
756:
757: --
758: IF FND_API.To_Boolean ( p_commit ) THEN
754: RAISE FND_API.G_EXC_ERROR ;
755: END IF;
756:
757: --
758: IF FND_API.To_Boolean ( p_commit ) THEN
759: COMMIT WORK;
760: END iF;
761: --
762: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
766: --
767: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
768: --
769: ROLLBACK TO Lock_Row_Pvt ;
770: p_row_locked := FND_API.G_FALSE;
771: p_return_status := FND_API.G_RET_STS_ERROR;
772: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
773: p_data => p_msg_data );
774: --
767: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
768: --
769: ROLLBACK TO Lock_Row_Pvt ;
770: p_row_locked := FND_API.G_FALSE;
771: p_return_status := FND_API.G_RET_STS_ERROR;
772: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
773: p_data => p_msg_data );
774: --
775: WHEN FND_API.G_EXC_ERROR THEN
771: p_return_status := FND_API.G_RET_STS_ERROR;
772: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
773: p_data => p_msg_data );
774: --
775: WHEN FND_API.G_EXC_ERROR THEN
776: --
777: ROLLBACK TO Lock_Row_Pvt ;
778: p_return_status := FND_API.G_RET_STS_ERROR;
779: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
774: --
775: WHEN FND_API.G_EXC_ERROR THEN
776: --
777: ROLLBACK TO Lock_Row_Pvt ;
778: p_return_status := FND_API.G_RET_STS_ERROR;
779: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
780: p_data => p_msg_data );
781: --
782: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
778: p_return_status := FND_API.G_RET_STS_ERROR;
779: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
780: p_data => p_msg_data );
781: --
782: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
783: --
784: ROLLBACK TO Lock_Row_Pvt ;
785: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
786: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
781: --
782: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
783: --
784: ROLLBACK TO Lock_Row_Pvt ;
785: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
786: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
787: p_data => p_msg_data );
788: --
789: WHEN OTHERS THEN
788: --
789: WHEN OTHERS THEN
790: --
791: ROLLBACK TO Lock_Row_Pvt ;
792: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793: --
794: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
795: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
796: l_api_name);
803:
804: PROCEDURE Check_Unique
805: (
806: p_api_version IN NUMBER,
807: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
808: p_commit IN VARCHAR2 := FND_API.G_FALSE,
809: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
810: p_return_status OUT NOCOPY VARCHAR2,
811: p_msg_count OUT NOCOPY NUMBER,
804: PROCEDURE Check_Unique
805: (
806: p_api_version IN NUMBER,
807: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
808: p_commit IN VARCHAR2 := FND_API.G_FALSE,
809: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
810: p_return_status OUT NOCOPY VARCHAR2,
811: p_msg_count OUT NOCOPY NUMBER,
812: p_msg_data OUT NOCOPY VARCHAR2,
805: (
806: p_api_version IN NUMBER,
807: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
808: p_commit IN VARCHAR2 := FND_API.G_FALSE,
809: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
810: p_return_status OUT NOCOPY VARCHAR2,
811: p_msg_count OUT NOCOPY NUMBER,
812: p_msg_data OUT NOCOPY VARCHAR2,
813: --
849: BEGIN
850: --
851: SAVEPOINT Check_Unique_Pvt ;
852: --
853: IF NOT FND_API.Compatible_API_Call ( l_api_version,
854: p_api_version,
855: l_api_name,
856: G_PKG_NAME )
857: THEN
854: p_api_version,
855: l_api_name,
856: G_PKG_NAME )
857: THEN
858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
859: END IF;
860: --
861:
862: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
859: END IF;
860: --
861:
862: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
863: FND_MSG_PUB.initialize ;
864: END IF;
865: --
866: p_return_status := FND_API.G_RET_STS_SUCCESS ;
862: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
863: FND_MSG_PUB.initialize ;
864: END IF;
865: --
866: p_return_status := FND_API.G_RET_STS_SUCCESS ;
867: --
868:
869: -- Checking the Psb_element_pos_set_groups table for references.
870: OPEN c_date;
890: END IF;
891:
892: CLOSE c_ccid;
893: --
894: IF FND_API.To_Boolean ( p_commit ) THEN
895: COMMIT WORK;
896: END iF;
897: --
898: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
899: p_data => p_msg_data );
900: --
901: EXCEPTION
902: --
903: WHEN FND_API.G_EXC_ERROR THEN
904: --
905: ROLLBACK TO Check_Unique_Pvt ;
906: p_return_status := FND_API.G_RET_STS_ERROR;
907: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
902: --
903: WHEN FND_API.G_EXC_ERROR THEN
904: --
905: ROLLBACK TO Check_Unique_Pvt ;
906: p_return_status := FND_API.G_RET_STS_ERROR;
907: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
908: p_data => p_msg_data );
909: --
910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
906: p_return_status := FND_API.G_RET_STS_ERROR;
907: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
908: p_data => p_msg_data );
909: --
910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
911: --
912: ROLLBACK TO Check_Unique_Pvt ;
913: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
909: --
910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
911: --
912: ROLLBACK TO Check_Unique_Pvt ;
913: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
915: p_data => p_msg_data );
916: --
917: WHEN OTHERS THEN
916: --
917: WHEN OTHERS THEN
918: --
919: ROLLBACK TO Check_Unique_Pvt ;
920: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
921: --
922: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
923: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
924: l_api_name);