216: END IF;
217:
218: -- initialize message list if p_init_msg_list is set to TRUE.
219: IF FND_API.to_Boolean(p_init_msg_list) THEN
220: FND_MSG_PUB.initialize;
221: END IF;
222:
223: -- initialize API return status to success.
224: x_return_status := FND_API.G_RET_STS_SUCCESS;
237: COMMIT;
238: END IF;
239:
240: -- standard call to get message count and if count is 1, get message info.
241: FND_MSG_PUB.Count_And_Get(
242: p_encoded => FND_API.G_FALSE,
243: p_count => x_msg_count,
244: p_data => x_msg_data);
245:
246: EXCEPTION
247: WHEN FND_API.G_EXC_ERROR THEN
248: ROLLBACK TO create_merge_batch;
249: x_return_status := FND_API.G_RET_STS_ERROR;
250: FND_MSG_PUB.Count_And_Get(
251: p_encoded => FND_API.G_FALSE,
252: p_count => x_msg_count,
253: p_data => x_msg_data);
254:
254:
255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
256: ROLLBACK TO create_merge_batch;
257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
258: FND_MSG_PUB.Count_And_Get(
259: p_encoded => FND_API.G_FALSE,
260: p_count => x_msg_count,
261: p_data => x_msg_data);
262:
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267:
268: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
269: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
270: FND_MSG_PUB.ADD;
271:
272: FND_MSG_PUB.Count_And_Get(
273: p_encoded => FND_API.G_FALSE,
274: p_count => x_msg_count,
268: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
269: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
270: FND_MSG_PUB.ADD;
271:
272: FND_MSG_PUB.Count_And_Get(
273: p_encoded => FND_API.G_FALSE,
274: p_count => x_msg_count,
275: p_data => x_msg_data);
276: