91: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92: END IF;
93: -- initialize message list if p_init_msg_list is set to TRUE.
94: IF FND_API.to_boolean(p_init_msg_list) THEN
95: FND_MSG_PUB.initialize;
96: END IF;
97: -- Initialize API return status to success
98: x_return_status := FND_API.G_RET_STS_SUCCESS;
99:
462: commit;
463: END IF;
464:
465: -- standard call to get message count and if count is 1, get message info
466: FND_MSG_PUB.count_and_get(
467: p_encoded => FND_API.G_FALSE,
468: p_count => x_msg_count,
469: p_data => x_msg_data );
470:
477: IBE_UTIL.debug('G_EXC_ERROR exception');
478: END IF;
479:
480: x_return_status := FND_API.G_RET_STS_ERROR;
481: FND_MSG_PUB.Add;
482: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
483: p_data => x_msg_data,
484: p_encoded => 'F');
485:
478: END IF;
479:
480: x_return_status := FND_API.G_RET_STS_ERROR;
481: FND_MSG_PUB.Add;
482: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
483: p_data => x_msg_data,
484: p_encoded => 'F');
485:
486: for k in 1..x_msg_count loop
483: p_data => x_msg_data,
484: p_encoded => 'F');
485:
486: for k in 1..x_msg_count loop
487: lx_msg_data := fnd_msg_pub.get( p_msg_index => k,
488: p_encoded => 'F');
489: IF (l_debugon = l_true) THEN
490: IBE_UTIL.debug('Error msg: '||substr(lx_msg_data,1,240));
491: END IF;
506: IF (l_debugon = l_true) THEN
507: IBE_UTIL.debug('G_UNEXC_ERROR exception');
508: END IF;
509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510: FND_MSG_PUB.Add;
511: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
512: p_data => x_msg_data,
513: p_encoded => 'F');
514: IF (l_debugon = l_true) THEN
507: IBE_UTIL.debug('G_UNEXC_ERROR exception');
508: END IF;
509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510: FND_MSG_PUB.Add;
511: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
512: p_data => x_msg_data,
513: p_encoded => 'F');
514: IF (l_debugon = l_true) THEN
515: IBE_UTIL.debug('G_EXC_UNEXPECTED_ERROR exception');
529: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
530: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
531: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
532: FND_MESSAGE.Set_Token('REASON', SQLERRM);
533: FND_MSG_PUB.Add;
534: FND_MSG_PUB.ADD;
535: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
536: p_data => x_msg_data,
537: p_encoded => 'F');
530: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
531: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
532: FND_MESSAGE.Set_Token('REASON', SQLERRM);
533: FND_MSG_PUB.Add;
534: FND_MSG_PUB.ADD;
535: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
536: p_data => x_msg_data,
537: p_encoded => 'F');
538: --bug 2617273
531: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
532: FND_MESSAGE.Set_Token('REASON', SQLERRM);
533: FND_MSG_PUB.Add;
534: FND_MSG_PUB.ADD;
535: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
536: p_data => x_msg_data,
537: p_encoded => 'F');
538: --bug 2617273
539: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;