364: l_ret_msg := fnd_concurrent.set_completion_status('NORMAL', 'NORMAL');
365: x_retcode := retcode_success;
366: x_errbuf := NULL;
367: EXCEPTION
368: WHEN fnd_api.g_exc_error THEN
369: error := SQLERRM;
370:
371: IF (l_debug = 1) THEN
372: inv_trx_util_pub.TRACE('The Error Is '|| error, 'INVMOPG', 9);
373: END IF;
374:
375: l_ret_msg := fnd_concurrent.set_completion_status('ERROR', 'ERROR');
376: x_retcode := retcode_error;
377: x_errbuf := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
378: WHEN fnd_api.g_exc_unexpected_error THEN
379: error := SQLERRM;
380:
381: IF (l_debug = 1) THEN
374:
375: l_ret_msg := fnd_concurrent.set_completion_status('ERROR', 'ERROR');
376: x_retcode := retcode_error;
377: x_errbuf := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
378: WHEN fnd_api.g_exc_unexpected_error THEN
379: error := SQLERRM;
380:
381: IF (l_debug = 1) THEN
382: inv_trx_util_pub.TRACE('The Error Is '|| error, 'INVMOPG', 9);
383: END IF;
384:
385: l_ret_msg := fnd_concurrent.set_completion_status('ERROR', 'ERROR');
386: x_retcode := retcode_error;
387: x_errbuf := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
388: WHEN OTHERS THEN
389: error := SQLERRM;
390:
391: IF (l_debug = 1) THEN
393: END IF;
394:
395: l_ret_msg := fnd_concurrent.set_completion_status('ERROR', 'ERROR');
396: x_retcode := retcode_error;
397: x_errbuf := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
398:
399: IF mo_lines%ISOPEN THEN
400: CLOSE mo_lines;
401: --return failure