386: x_xml_request_id OUT NOCOPY NUMBER,
387: x_result_flag OUT NOCOPY VARCHAR2) IS
388:
389: l_procedure_name VARCHAR2(30) := 'Submit_xml_Publisher';
390: l_runtime_level NUMBER := fnd_log.g_current_runtime_level;
391: l_procedure_level NUMBER := fnd_log.level_procedure;
392: --l_statement_level NUMBER := fnd_log.level_statement;
393: --l_exception_level NUMBER := fnd_log.level_exception;
394: l_complete_flag BOOLEAN;
387: x_result_flag OUT NOCOPY VARCHAR2) IS
388:
389: l_procedure_name VARCHAR2(30) := 'Submit_xml_Publisher';
390: l_runtime_level NUMBER := fnd_log.g_current_runtime_level;
391: l_procedure_level NUMBER := fnd_log.level_procedure;
392: --l_statement_level NUMBER := fnd_log.level_statement;
393: --l_exception_level NUMBER := fnd_log.level_exception;
394: l_complete_flag BOOLEAN;
395: l_phase VARCHAR2(100);
388:
389: l_procedure_name VARCHAR2(30) := 'Submit_xml_Publisher';
390: l_runtime_level NUMBER := fnd_log.g_current_runtime_level;
391: l_procedure_level NUMBER := fnd_log.level_procedure;
392: --l_statement_level NUMBER := fnd_log.level_statement;
393: --l_exception_level NUMBER := fnd_log.level_exception;
394: l_complete_flag BOOLEAN;
395: l_phase VARCHAR2(100);
396: l_status VARCHAR2(100);
389: l_procedure_name VARCHAR2(30) := 'Submit_xml_Publisher';
390: l_runtime_level NUMBER := fnd_log.g_current_runtime_level;
391: l_procedure_level NUMBER := fnd_log.level_procedure;
392: --l_statement_level NUMBER := fnd_log.level_statement;
393: --l_exception_level NUMBER := fnd_log.level_exception;
394: l_complete_flag BOOLEAN;
395: l_phase VARCHAR2(100);
396: l_status VARCHAR2(100);
397: l_del_phase VARCHAR2(100);
400:
401: BEGIN
402: --log for debug
403: IF (l_procedure_level >= l_runtime_level) THEN
404: fnd_log.STRING(l_procedure_level,
405: g_module_name || '.' || l_procedure_name || '.begin',
406: 'begin procedure');
407: END IF; --l_procedure_level >= l_runtime_level
408: -- submit xml publisher concurrent program
443: END IF; -- (x_xml_request_id <= 0 OR x_xml_request_id IS NULL)
444:
445: --log for debug
446: IF (l_procedure_level >= l_runtime_level) THEN
447: fnd_log.STRING(l_procedure_level,
448: g_module_name || '.' || l_procedure_name || '.end',
449: 'end procedure');
450: END IF; --l_procedure_level >= l_runtime_level
451: EXCEPTION
450: END IF; --l_procedure_level >= l_runtime_level
451: EXCEPTION
452: WHEN OTHERS THEN
453: --log for debug
454: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
455: fnd_log.STRING(fnd_log.level_unexpected,
456: g_module_name || l_procedure_name ||
457: '. OTHER_EXCEPTION ',
458: SQLCODE || SQLERRM);
451: EXCEPTION
452: WHEN OTHERS THEN
453: --log for debug
454: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
455: fnd_log.STRING(fnd_log.level_unexpected,
456: g_module_name || l_procedure_name ||
457: '. OTHER_EXCEPTION ',
458: SQLCODE || SQLERRM);
459: END IF; -- fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
455: fnd_log.STRING(fnd_log.level_unexpected,
456: g_module_name || l_procedure_name ||
457: '. OTHER_EXCEPTION ',
458: SQLCODE || SQLERRM);
459: END IF; -- fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
460: RAISE;
461: END Submit_xml_Publisher;
462: --==========================================================================
463: -- PROCEDURE NAME:
554: p_destination_filename IN VARCHAR2,
555: p_source_separator IN VARCHAR2) IS
556:
557: l_procedure_name VARCHAR2(30) := 'Submit_FSG_XML_Report';
558: l_dbg_level NUMBER := FND_LOG.G_Current_Runtime_Level;
559: l_proc_level NUMBER := FND_LOG.Level_Procedure;
560: --l_stmt_level NUMBER := FND_LOG.Level_Statement;
561: l_fsg_request_id NUMBER;
562: l_xml_request_id NUMBER;
555: p_source_separator IN VARCHAR2) IS
556:
557: l_procedure_name VARCHAR2(30) := 'Submit_FSG_XML_Report';
558: l_dbg_level NUMBER := FND_LOG.G_Current_Runtime_Level;
559: l_proc_level NUMBER := FND_LOG.Level_Procedure;
560: --l_stmt_level NUMBER := FND_LOG.Level_Statement;
561: l_fsg_request_id NUMBER;
562: l_xml_request_id NUMBER;
563: l_program VARCHAR2(10);
556:
557: l_procedure_name VARCHAR2(30) := 'Submit_FSG_XML_Report';
558: l_dbg_level NUMBER := FND_LOG.G_Current_Runtime_Level;
559: l_proc_level NUMBER := FND_LOG.Level_Procedure;
560: --l_stmt_level NUMBER := FND_LOG.Level_Statement;
561: l_fsg_request_id NUMBER;
562: l_xml_request_id NUMBER;
563: l_program VARCHAR2(10);
564: l_submit_request_exp EXCEPTION;
574: BEGIN
575:
576: --log for debug
577: IF (l_proc_level >= l_dbg_level) THEN
578: FND_LOG.STRING(l_proc_level,
579: g_module_name || '.' || l_procedure_name || '.begin',
580: 'begin procedure');
581: END IF; --( g_proc_level >= g_dbg_level)
582:
582:
583: --call JA_CN_UTILITY.Check_Profile, if it doesn't return true, exit
584: /*IF JA_CN_UTILITY.Check_Profile() <> TRUE THEN
585: IF (l_proc_level >= l_dbg_level) THEN
586: FND_LOG.STRING(l_proc_level,
587: l_procedure_name,
588: 'Check profile failed!');
589: END IF; --l_exception_level >= l_runtime_level
590: retcode := 1;
678: END IF; --l_xml_error_flag = 'Error'
679: END IF;
680:
681: IF (l_proc_level >= l_dbg_level) THEN
682: FND_LOG.STRING(l_proc_level,
683: g_module_name || '.' || l_procedure_name || '.end',
684: 'end procedure');
685: END IF; --( g_proc_level >= g_dbg_level)
686: EXCEPTION
690: message => SQLCODE || ':' ||
691: SQLERRM);
692: --log for debug
693: IF (l_proc_level >= l_dbg_level) THEN
694: fnd_log.STRING(l_proc_level,
695: g_module_name || '.' || l_procedure_name ||
696: '. Submit_Request_Exception ',
697: SQLCODE || ':' || SQLERRM);
698: END IF; --(l_proc_level >= l_dbg_level)
701: l_conc_succ := fnd_concurrent.set_completion_status(status => 'ERROR',
702: message => SQLCODE || ':' ||
703: SQLERRM);
704: --log for debug
705: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
706: fnd_log.STRING(fnd_log.level_unexpected,
707: g_module_name || l_procedure_name ||
708: '. OTHER_EXCEPTION ',
709: SQLCODE || SQLERRM);
702: message => SQLCODE || ':' ||
703: SQLERRM);
704: --log for debug
705: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
706: fnd_log.STRING(fnd_log.level_unexpected,
707: g_module_name || l_procedure_name ||
708: '. OTHER_EXCEPTION ',
709: SQLCODE || SQLERRM);
710: END IF;
903: pv_xml_output_format IN VARCHAR2,
904: pn_convert_reqid OUT NOCOPY NUMBER) IS
905:
906: lv_procedure_name VARCHAR2(30) := 'Submit_FSG_Report';
907: ln_dbg_level NUMBER := FND_LOG.G_Current_Runtime_Level;
908: ln_proc_level NUMBER := FND_LOG.Level_Procedure;
909:
910: lv_program VARCHAR2(10);
911: le_submit_request_exp EXCEPTION;
904: pn_convert_reqid OUT NOCOPY NUMBER) IS
905:
906: lv_procedure_name VARCHAR2(30) := 'Submit_FSG_Report';
907: ln_dbg_level NUMBER := FND_LOG.G_Current_Runtime_Level;
908: ln_proc_level NUMBER := FND_LOG.Level_Procedure;
909:
910: lv_program VARCHAR2(10);
911: le_submit_request_exp EXCEPTION;
912:
946: BEGIN
947: FND_FILE.PUT_LINE(FND_FILE.LOG, 'FSG Begin:');
948: --log for debug
949: IF (ln_proc_level >= ln_dbg_level) THEN
950: FND_LOG.STRING(ln_proc_level,
951: g_module_name || '.' || lv_procedure_name || '.begin',
952: 'begin procedure');
953: END IF; --( g_proc_level >= g_dbg_level)
954:
1634:
1635: FND_FILE.PUT_LINE(FND_FILE.LOG, 'FSG:End');
1636: --log for debug
1637: IF (ln_proc_level >= ln_dbg_level) THEN
1638: FND_LOG.STRING(ln_proc_level,
1639: g_module_name || '.' || lv_procedure_name,
1640: lv_error_flag);
1641: FND_LOG.STRING(ln_proc_level,
1642: g_module_name || '.' || lv_procedure_name || '.end',
1637: IF (ln_proc_level >= ln_dbg_level) THEN
1638: FND_LOG.STRING(ln_proc_level,
1639: g_module_name || '.' || lv_procedure_name,
1640: lv_error_flag);
1641: FND_LOG.STRING(ln_proc_level,
1642: g_module_name || '.' || lv_procedure_name || '.end',
1643: 'end procedure');
1644: END IF;
1645:
1645:
1646: EXCEPTION
1647: WHEN OTHERS THEN
1648: IF (ln_proc_level >= ln_dbg_level) THEN
1649: FND_LOG.STRING(ln_proc_level,
1650: g_module_name || '.' || lv_procedure_name ||
1651: 'EXCEPTION',
1652: lv_error_flag);
1653: FND_LOG.String(ln_proc_level,
1649: FND_LOG.STRING(ln_proc_level,
1650: g_module_name || '.' || lv_procedure_name ||
1651: 'EXCEPTION',
1652: lv_error_flag);
1653: FND_LOG.String(ln_proc_level,
1654: g_module_name || '.' || lv_procedure_name ||
1655: '. Other_Exception ',
1656: SQLCODE || ':' || SQLERRM);
1657: END IF;