[Home] [Help]
637: Bug 6891668. Modified Logic for Checking Concurrency */
638:
639: select count(1)
640: into l_pgm_count
641: from fnd_concurrent_requests
642: where program_application_id = g_program_appl_id
643: and concurrent_program_id = g_program_id
644: and upper(phase_code) = 'R'
645: and argument1 = to_char(p_organization_id);
650: x_error_msg := fnd_message.get;
651: wip_ws_util.trace_log('Error in '||l_proc_name||'( stmt_num: '||l_stmt_num||') '||x_error_msg);
652: wip_ws_util.trace_log('Unable to run calculation program for this organization. Please try after some time.');
653: retcode := 2;
654: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
655: 'Errors encountered in calculation program, please check the log file.');
656: return;
657: end if;
658:
1462: else
1463: retcode := 1;
1464: errbuf := 'Calculation program encountered invalid records. Invalid records will be ignored during calculation.';
1465: fnd_file.put_line(fnd_file.log,errbuf);
1466: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
1467: end if;
1468:
1469: exception
1470: when e_null_org_id then
1470: when e_null_org_id then
1471: retcode := 2;
1472: errbuf := 'Organization parameter cannot be null';
1473: fnd_file.put_line(fnd_file.log,errbuf);
1474: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',errbuf);
1475: when others then
1476: fnd_message.set_name('WIP','WIP_LAB_UNEXPECTED_ERROR');
1477: x_error_msg := fnd_message.get;
1478: wip_ws_util.trace_log('Error in '||l_proc_name||'( stmt_num: '||l_stmt_num||') '||x_error_msg);
1480: wip_ws_util.trace_log('Error in '||l_proc_name||'( stmt_num: '||l_stmt_num||') '||x_error_msg);
1481: rollback;
1482: retcode := 2;
1483: errbuf := 'Errors encountered in calculation program, please check the log file.';
1484: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',errbuf);
1485:
1486: end calculate_metrics;
1487:
1488: /* To obtain Client Date for a given Server Date (Used in Charts only) */