315:
316: l_progress := '100';
317:
318: x_return_status := fnd_api.G_RET_STS_SUCCESS;
319: FND_MSG_PUB.get(
320: p_msg_index => FND_MSG_PUB.G_LAST,
321: p_encoded => 'F',
322: p_msg_index_out => x_msg_count,
323: p_data => x_msg_data );
316: l_progress := '100';
317:
318: x_return_status := fnd_api.G_RET_STS_SUCCESS;
319: FND_MSG_PUB.get(
320: p_msg_index => FND_MSG_PUB.G_LAST,
321: p_encoded => 'F',
322: p_msg_index_out => x_msg_count,
323: p_data => x_msg_data );
324:
324:
325: EXCEPTION
326: WHEN invoice_exception THEN
327: x_return_status := fnd_api.g_ret_sts_error;
328: FND_MSG_PUB.add;
329: FND_MSG_PUB.get(
330: p_msg_index => FND_MSG_PUB.G_LAST,
331: p_encoded => 'F',
332: p_msg_index_out => x_msg_count,
325: EXCEPTION
326: WHEN invoice_exception THEN
327: x_return_status := fnd_api.g_ret_sts_error;
328: FND_MSG_PUB.add;
329: FND_MSG_PUB.get(
330: p_msg_index => FND_MSG_PUB.G_LAST,
331: p_encoded => 'F',
332: p_msg_index_out => x_msg_count,
333: p_data => x_msg_data );
326: WHEN invoice_exception THEN
327: x_return_status := fnd_api.g_ret_sts_error;
328: FND_MSG_PUB.add;
329: FND_MSG_PUB.get(
330: p_msg_index => FND_MSG_PUB.G_LAST,
331: p_encoded => 'F',
332: p_msg_index_out => x_msg_count,
333: p_data => x_msg_data );
334: WHEN fnd_api.g_exc_unexpected_error THEN
333: p_data => x_msg_data );
334: WHEN fnd_api.g_exc_unexpected_error THEN
335: x_return_status := fnd_api.g_ret_sts_unexp_error;
336: FND_MESSAGE.set_name('PO','RCV_SYSTEM_ERROR');
337: FND_MSG_PUB.add;
338: FND_MSG_PUB.get(
339: p_msg_index => FND_MSG_PUB.G_LAST,
340: p_encoded => 'F',
341: p_msg_index_out => x_msg_count,
334: WHEN fnd_api.g_exc_unexpected_error THEN
335: x_return_status := fnd_api.g_ret_sts_unexp_error;
336: FND_MESSAGE.set_name('PO','RCV_SYSTEM_ERROR');
337: FND_MSG_PUB.add;
338: FND_MSG_PUB.get(
339: p_msg_index => FND_MSG_PUB.G_LAST,
340: p_encoded => 'F',
341: p_msg_index_out => x_msg_count,
342: p_data => x_msg_data );
335: x_return_status := fnd_api.g_ret_sts_unexp_error;
336: FND_MESSAGE.set_name('PO','RCV_SYSTEM_ERROR');
337: FND_MSG_PUB.add;
338: FND_MSG_PUB.get(
339: p_msg_index => FND_MSG_PUB.G_LAST,
340: p_encoded => 'F',
341: p_msg_index_out => x_msg_count,
342: p_data => x_msg_data );
343: WHEN OTHERS THEN
342: p_data => x_msg_data );
343: WHEN OTHERS THEN
344: x_return_status := fnd_api.g_ret_sts_unexp_error;
345: FND_MESSAGE.set_name('PO','RCV_SYSTEM_ERROR');
346: FND_MSG_PUB.add;
347:
348: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
349: fnd_msg_pub.add_exc_msg (p_pkg_name => g_pkg_name,
350: p_procedure_name => l_api_name,
344: x_return_status := fnd_api.g_ret_sts_unexp_error;
345: FND_MESSAGE.set_name('PO','RCV_SYSTEM_ERROR');
346: FND_MSG_PUB.add;
347:
348: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
349: fnd_msg_pub.add_exc_msg (p_pkg_name => g_pkg_name,
350: p_procedure_name => l_api_name,
351: p_error_text => SUBSTRB (SQLERRM,
352: 1,
345: FND_MESSAGE.set_name('PO','RCV_SYSTEM_ERROR');
346: FND_MSG_PUB.add;
347:
348: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
349: fnd_msg_pub.add_exc_msg (p_pkg_name => g_pkg_name,
350: p_procedure_name => l_api_name,
351: p_error_text => SUBSTRB (SQLERRM,
352: 1,
353: 200
356: || l_progress
357: );
358: END IF;
359:
360: FND_MSG_PUB.get(
361: p_msg_index => FND_MSG_PUB.G_LAST,
362: p_encoded => 'F',
363: p_msg_index_out => x_msg_count,
364: p_data => x_msg_data );
357: );
358: END IF;
359:
360: FND_MSG_PUB.get(
361: p_msg_index => FND_MSG_PUB.G_LAST,
362: p_encoded => 'F',
363: p_msg_index_out => x_msg_count,
364: p_data => x_msg_data );
365: