394: END IF;
395:
396: -- initialize message list if p_init_msg_list is set to TRUE.
397: IF FND_API.to_Boolean(p_init_msg_list) THEN
398: FND_MSG_PUB.initialize;
399: END IF;
400:
401: -- initialize API return status to success.
402: x_return_status := FND_API.G_RET_STS_SUCCESS;
428: COMMIT;
429: END IF;
430:
431: -- standard call to get message count and if count is 1, get message info.
432: FND_MSG_PUB.Count_And_Get(
433: p_encoded => FND_API.G_FALSE,
434: p_count => x_msg_count,
435: p_data => x_msg_data);
436:
437: EXCEPTION
438: WHEN FND_API.G_EXC_ERROR THEN
439: ROLLBACK TO create_merge_party;
440: x_return_status := FND_API.G_RET_STS_ERROR;
441: FND_MSG_PUB.Count_And_Get(
442: p_encoded => FND_API.G_FALSE,
443: p_count => x_msg_count,
444: p_data => x_msg_data);
445:
445:
446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
447: ROLLBACK TO create_merge_party;
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449: FND_MSG_PUB.Count_And_Get(
450: p_encoded => FND_API.G_FALSE,
451: p_count => x_msg_count,
452: p_data => x_msg_data);
453:
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
457:
458: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
459: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
460: FND_MSG_PUB.ADD;
461:
462: FND_MSG_PUB.Count_And_Get(
463: p_encoded => FND_API.G_FALSE,
464: p_count => x_msg_count,
458: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
459: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
460: FND_MSG_PUB.ADD;
461:
462: FND_MSG_PUB.Count_And_Get(
463: p_encoded => FND_API.G_FALSE,
464: p_count => x_msg_count,
465: p_data => x_msg_data);
466: