[Home] [Help]
327: print_stat_and_submit_report();
328:
329: IF p_trans_import_failed = 'Y' THEN
330: write_log(LOG, 'p-trans-import-failed');
331: completion_status := fnd_concurrent.set_completion_status('ERROR', SQLERRM);
332: END IF;
333: COMMIT; /* Added commit: 3922679 removed intermediate commits*/
334:
335: EXCEPTION
347: /* Here the return value (TRUE/FALSE) is not being
348: checked, as the concurrent request calls this main procedure
349: and we are in the when others exception of this procedure. */
350:
351: completion_status := fnd_concurrent.set_completion_status('ERROR', SQLERRM);
352:
353:
354: END PAAPIMP;
355:
819: PROCEDURE cleanup IS
820:
821: CURSOR paapimp_cur IS
822: SELECT 'Y'
823: FROM fnd_concurrent_requests req,
824: fnd_concurrent_programs prog,
825: fnd_executables exe
826: WHERE req.program_application_id = prog.application_id
827: AND req.concurrent_program_id = prog.concurrent_program_id
820:
821: CURSOR paapimp_cur IS
822: SELECT 'Y'
823: FROM fnd_concurrent_requests req,
824: fnd_concurrent_programs prog,
825: fnd_executables exe
826: WHERE req.program_application_id = prog.application_id
827: AND req.concurrent_program_id = prog.concurrent_program_id
828: AND req.phase_code = 'R'
1130: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '----------------------------------------------------------------');
1131: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'For detail information of this interface, please review the following report.');
1132: END IF;
1133:
1134: result_print := FND_CONCURRENT.GET_REQUEST_PRINT_OPTIONS(G_REQUEST_ID,l_number_of_copies,l_print_style,l_printer,
1135: l_save_output_flag);
1136: IF l_save_output_flag = 'Y' THEN
1137: l_save_op_flag_bool := TRUE;
1138: ELSE l_save_op_flag_bool := FALSE;