[Home] [Help]
611: Bug 6891668. Modified Logic for Checking Concurrency */
612:
613: select count(1)
614: into l_pgm_count
615: from fnd_concurrent_requests
616: where program_application_id = g_program_appl_id
617: and concurrent_program_id = g_program_id
618: and upper(phase_code) = 'R'
619: and argument1 = to_char(p_organization_id);
624: x_error_msg := fnd_message.get;
625: wip_ws_util.trace_log('Error in '||l_proc_name||'( stmt_num: '||l_stmt_num||') '||x_error_msg);
626: wip_ws_util.trace_log('Unable to run calculation program for this organization. Please try after some time.');
627: retcode := 2;
628: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
629: 'Errors encountered in calculation program, please check the log file.');
630: return;
631: end if;
632:
1364: else
1365: retcode := 1;
1366: errbuf := 'Calculation program encountered invalid records. Invalid records will be ignored during calculation.';
1367: fnd_file.put_line(fnd_file.log,errbuf);
1368: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
1369: end if;
1370:
1371: exception
1372: when e_null_org_id then
1372: when e_null_org_id then
1373: retcode := 2;
1374: errbuf := 'Organization parameter cannot be null';
1375: fnd_file.put_line(fnd_file.log,errbuf);
1376: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',errbuf);
1377: when others then
1378: fnd_message.set_name('WIP','WIP_LAB_UNEXPECTED_ERROR');
1379: x_error_msg := fnd_message.get;
1380: wip_ws_util.trace_log('Error in '||l_proc_name||'( stmt_num: '||l_stmt_num||') '||x_error_msg);
1382: wip_ws_util.trace_log('Error in '||l_proc_name||'( stmt_num: '||l_stmt_num||') '||x_error_msg);
1383: rollback;
1384: retcode := 2;
1385: errbuf := 'Errors encountered in calculation program, please check the log file.';
1386: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',errbuf);
1387:
1388: end calculate_metrics;
1389:
1390: /* To obtain Client Date for a given Server Date (Used in Charts only) */