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:
464: commit;
465: END IF;
466:
467: -- standard call to get message count and if count is 1, get message info
468: FND_MSG_PUB.count_and_get(
469: p_encoded => FND_API.G_FALSE,
470: p_count => x_msg_count,
471: p_data => x_msg_data );
472:
479: IBE_UTIL.debug('G_EXC_ERROR exception');
480: END IF;
481:
482: x_return_status := FND_API.G_RET_STS_ERROR;
483: FND_MSG_PUB.Add;
484: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
485: p_data => x_msg_data,
486: p_encoded => 'F');
487:
480: END IF;
481:
482: x_return_status := FND_API.G_RET_STS_ERROR;
483: FND_MSG_PUB.Add;
484: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
485: p_data => x_msg_data,
486: p_encoded => 'F');
487:
488: for k in 1..x_msg_count loop
485: p_data => x_msg_data,
486: p_encoded => 'F');
487:
488: for k in 1..x_msg_count loop
489: lx_msg_data := fnd_msg_pub.get( p_msg_index => k,
490: p_encoded => 'F');
491: IF (l_debugon = l_true) THEN
492: IBE_UTIL.debug('Error msg: '||substr(lx_msg_data,1,240));
493: END IF;
508: IF (l_debugon = l_true) THEN
509: IBE_UTIL.debug('G_UNEXC_ERROR exception');
510: END IF;
511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
512: FND_MSG_PUB.Add;
513: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
514: p_data => x_msg_data,
515: p_encoded => 'F');
516: IF (l_debugon = l_true) THEN
509: IBE_UTIL.debug('G_UNEXC_ERROR exception');
510: END IF;
511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
512: FND_MSG_PUB.Add;
513: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
514: p_data => x_msg_data,
515: p_encoded => 'F');
516: IF (l_debugon = l_true) THEN
517: IBE_UTIL.debug('G_EXC_UNEXPECTED_ERROR exception');
531: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
532: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
533: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
534: FND_MESSAGE.Set_Token('REASON', SQLERRM);
535: FND_MSG_PUB.Add;
536: FND_MSG_PUB.ADD;
537: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
538: p_data => x_msg_data,
539: p_encoded => 'F');
532: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
533: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
534: FND_MESSAGE.Set_Token('REASON', SQLERRM);
535: FND_MSG_PUB.Add;
536: FND_MSG_PUB.ADD;
537: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
538: p_data => x_msg_data,
539: p_encoded => 'F');
540: --bug 2617273
533: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
534: FND_MESSAGE.Set_Token('REASON', SQLERRM);
535: FND_MSG_PUB.Add;
536: FND_MSG_PUB.ADD;
537: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
538: p_data => x_msg_data,
539: p_encoded => 'F');
540: --bug 2617273
541: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;