104: dstatus,
105: message);
106:
107: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
108: dbg_msg := fnd_message.get;
109: fnd_file.put_line(1, 'dbg_msg : '||dbg_msg);
110: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'dbg_msg : '||dbg_msg);
111: END IF;
112:
324: dstatus,
325: message);
326:
327: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
328: dbg_msg := fnd_message.get;
329: fnd_file.put_line(1, 'dbg_msg : '||dbg_msg);
330: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'dbg_msg : '||dbg_msg);
331: END IF;
332:
399: dstatus,
400: message);
401:
402: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
403: dbg_msg := fnd_message.get;
404: fnd_file.put_line(1, 'dbg_msg : '||dbg_msg);
405: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'dbg_msg : '||dbg_msg);
406: END IF;
407:
450: EXCEPTION
451:
452: WHEN LOAD_ERROR THEN
453:
454: fnd_message.set_name('JL', 'JL_CO_FA_LOAD_ERROR');
455: err_msg := fnd_message.get;
456: fnd_file.put_line(fnd_file.log, err_msg);
457: call_status := fnd_concurrent.set_completion_status('ERROR','');
458: /* fnd_message.raise_error;
451:
452: WHEN LOAD_ERROR THEN
453:
454: fnd_message.set_name('JL', 'JL_CO_FA_LOAD_ERROR');
455: err_msg := fnd_message.get;
456: fnd_file.put_line(fnd_file.log, err_msg);
457: call_status := fnd_concurrent.set_completion_status('ERROR','');
458: /* fnd_message.raise_error;
459: */
454: fnd_message.set_name('JL', 'JL_CO_FA_LOAD_ERROR');
455: err_msg := fnd_message.get;
456: fnd_file.put_line(fnd_file.log, err_msg);
457: call_status := fnd_concurrent.set_completion_status('ERROR','');
458: /* fnd_message.raise_error;
459: */
460:
461: WHEN REPORT_ERROR THEN
462:
459: */
460:
461: WHEN REPORT_ERROR THEN
462:
463: fnd_message.set_name('JL', 'JL_CO_FA_TA_ADD_REPORT_ERROR');
464: err_msg := fnd_message.get;
465: fnd_file.put_line(fnd_file.log, err_msg);
466: call_status := fnd_concurrent.set_completion_status('ERROR','');
467: /* fnd_message.raise_error;
460:
461: WHEN REPORT_ERROR THEN
462:
463: fnd_message.set_name('JL', 'JL_CO_FA_TA_ADD_REPORT_ERROR');
464: err_msg := fnd_message.get;
465: fnd_file.put_line(fnd_file.log, err_msg);
466: call_status := fnd_concurrent.set_completion_status('ERROR','');
467: /* fnd_message.raise_error;
468: */
463: fnd_message.set_name('JL', 'JL_CO_FA_TA_ADD_REPORT_ERROR');
464: err_msg := fnd_message.get;
465: fnd_file.put_line(fnd_file.log, err_msg);
466: call_status := fnd_concurrent.set_completion_status('ERROR','');
467: /* fnd_message.raise_error;
468: */
469:
470: WHEN OTHERS THEN
471: ROLLBACK;
469:
470: WHEN OTHERS THEN
471: ROLLBACK;
472: ROLLBACK_PROCESS(-1);
473: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
474: fnd_file.put_line( 1, fnd_message.get);
475: err_num := SQLCODE;
476: err_msg := substr(SQLERRM, 1, 200);
477: RAISE_APPLICATION_ERROR( err_num, err_msg);
470: WHEN OTHERS THEN
471: ROLLBACK;
472: ROLLBACK_PROCESS(-1);
473: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
474: fnd_file.put_line( 1, fnd_message.get);
475: err_num := SQLCODE;
476: err_msg := substr(SQLERRM, 1, 200);
477: RAISE_APPLICATION_ERROR( err_num, err_msg);
478: END;