299: x_xml_request_id OUT NOCOPY NUMBER,
300: x_result_flag OUT NOCOPY VARCHAR2) IS
301:
302: l_procedure_name VARCHAR2(30) := 'Submit_xml_Publisher';
303: l_runtime_level NUMBER := fnd_log.g_current_runtime_level;
304: l_procedure_level NUMBER := fnd_log.level_procedure;
305: --l_statement_level NUMBER := fnd_log.level_statement;
306: --l_exception_level NUMBER := fnd_log.level_exception;
307: l_complete_flag BOOLEAN;
300: x_result_flag OUT NOCOPY VARCHAR2) IS
301:
302: l_procedure_name VARCHAR2(30) := 'Submit_xml_Publisher';
303: l_runtime_level NUMBER := fnd_log.g_current_runtime_level;
304: l_procedure_level NUMBER := fnd_log.level_procedure;
305: --l_statement_level NUMBER := fnd_log.level_statement;
306: --l_exception_level NUMBER := fnd_log.level_exception;
307: l_complete_flag BOOLEAN;
308: l_phase VARCHAR2(100);
301:
302: l_procedure_name VARCHAR2(30) := 'Submit_xml_Publisher';
303: l_runtime_level NUMBER := fnd_log.g_current_runtime_level;
304: l_procedure_level NUMBER := fnd_log.level_procedure;
305: --l_statement_level NUMBER := fnd_log.level_statement;
306: --l_exception_level NUMBER := fnd_log.level_exception;
307: l_complete_flag BOOLEAN;
308: l_phase VARCHAR2(100);
309: l_status VARCHAR2(100);
302: l_procedure_name VARCHAR2(30) := 'Submit_xml_Publisher';
303: l_runtime_level NUMBER := fnd_log.g_current_runtime_level;
304: l_procedure_level NUMBER := fnd_log.level_procedure;
305: --l_statement_level NUMBER := fnd_log.level_statement;
306: --l_exception_level NUMBER := fnd_log.level_exception;
307: l_complete_flag BOOLEAN;
308: l_phase VARCHAR2(100);
309: l_status VARCHAR2(100);
310: l_del_phase VARCHAR2(100);
313:
314: BEGIN
315: --log for debug
316: IF (l_procedure_level >= l_runtime_level) THEN
317: fnd_log.STRING(l_procedure_level,
318: g_module_name || '.' || l_procedure_name || '.begin',
319: 'begin procedure');
320: END IF; --l_procedure_level >= l_runtime_level
321: -- submit xml publisher concurrent program
358:
359: --log for debug
360: IF (l_procedure_level >= l_runtime_level)
361: THEN
362: fnd_log.STRING(l_procedure_level,
363: g_module_name || '.' || l_procedure_name || '.end',
364: 'end procedure');
365: END IF; --l_procedure_level >= l_runtime_level
366: EXCEPTION
365: END IF; --l_procedure_level >= l_runtime_level
366: EXCEPTION
367: WHEN OTHERS THEN
368: --log for debug
369: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
370: THEN
371: fnd_log.STRING(fnd_log.level_unexpected,
372: g_module_name || l_procedure_name ||
373: '. OTHER_EXCEPTION ',
367: WHEN OTHERS THEN
368: --log for debug
369: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
370: THEN
371: fnd_log.STRING(fnd_log.level_unexpected,
372: g_module_name || l_procedure_name ||
373: '. OTHER_EXCEPTION ',
374: SQLCODE || SQLERRM);
375: END IF; -- fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
371: fnd_log.STRING(fnd_log.level_unexpected,
372: g_module_name || l_procedure_name ||
373: '. OTHER_EXCEPTION ',
374: SQLCODE || SQLERRM);
375: END IF; -- fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
376: RAISE;
377: END Submit_xml_Publisher;
378: --==========================================================================
379: -- PROCEDURE NAME:
471: p_source_separator IN VARCHAR2
472: ) IS
473:
474: l_procedure_name VARCHAR2(30) := 'Submit_FSG_XML_Report';
475: l_dbg_level NUMBER := FND_LOG.G_Current_Runtime_Level;
476: l_proc_level NUMBER := FND_LOG.Level_Procedure;
477: --l_stmt_level NUMBER := FND_LOG.Level_Statement;
478: l_fsg_request_id NUMBER;
479: l_xml_request_id NUMBER;
472: ) IS
473:
474: l_procedure_name VARCHAR2(30) := 'Submit_FSG_XML_Report';
475: l_dbg_level NUMBER := FND_LOG.G_Current_Runtime_Level;
476: l_proc_level NUMBER := FND_LOG.Level_Procedure;
477: --l_stmt_level NUMBER := FND_LOG.Level_Statement;
478: l_fsg_request_id NUMBER;
479: l_xml_request_id NUMBER;
480: l_program VARCHAR2(10);
473:
474: l_procedure_name VARCHAR2(30) := 'Submit_FSG_XML_Report';
475: l_dbg_level NUMBER := FND_LOG.G_Current_Runtime_Level;
476: l_proc_level NUMBER := FND_LOG.Level_Procedure;
477: --l_stmt_level NUMBER := FND_LOG.Level_Statement;
478: l_fsg_request_id NUMBER;
479: l_xml_request_id NUMBER;
480: l_program VARCHAR2(10);
481: l_submit_request_exp EXCEPTION;
491: BEGIN
492:
493: --log for debug
494: IF (l_proc_level >= l_dbg_level) THEN
495: FND_LOG.STRING(l_proc_level,
496: g_module_name || '.' || l_procedure_name || '.begin',
497: 'begin procedure');
498: END IF; --( g_proc_level >= g_dbg_level)
499: --call JA_CN_UTILITY.Check_Profile, if it doesn't return true, exit
498: END IF; --( g_proc_level >= g_dbg_level)
499: --call JA_CN_UTILITY.Check_Profile, if it doesn't return true, exit
500: IF JA_CN_UTILITY.Check_Profile() <> TRUE THEN
501: IF (l_proc_level >= l_dbg_level) THEN
502: FND_LOG.STRING(l_proc_level,
503: l_procedure_name,
504: 'Check profile failed!');
505: END IF; --l_exception_level >= l_runtime_level
506: retcode := 1;
600:
601:
602: IF (l_proc_level >= l_dbg_level)
603: THEN
604: FND_LOG.STRING(l_proc_level,
605: g_module_name || '.' || l_procedure_name || '.end',
606: 'end procedure');
607: END IF; --( g_proc_level >= g_dbg_level)
608: EXCEPTION
614: SQLERRM);
615: --log for debug
616: IF (l_proc_level >= l_dbg_level)
617: THEN
618: fnd_log.STRING(l_proc_level,
619: g_module_name || '.' || l_procedure_name ||
620: '. Submit_Request_Exception ',
621: SQLCODE || ':' || SQLERRM);
622: END IF; --(l_proc_level >= l_dbg_level)
625: l_conc_succ := fnd_concurrent.set_completion_status(status => 'ERROR',
626: message => SQLCODE || ':' ||
627: SQLERRM);
628: --log for debug
629: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
630: THEN
631: fnd_log.STRING(fnd_log.level_unexpected,
632: g_module_name || l_procedure_name ||
633: '. OTHER_EXCEPTION ',
627: SQLERRM);
628: --log for debug
629: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
630: THEN
631: fnd_log.STRING(fnd_log.level_unexpected,
632: g_module_name || l_procedure_name ||
633: '. OTHER_EXCEPTION ',
634: SQLCODE || SQLERRM);
635: END IF;