[Home] [Help]
191: 'pv_accounting_date=' || pv_accounting_date);
192:
193: END IF; --l_proc_level>=l_dbg_level
194:
195: FND_FILE.put_line(FND_FILE.log, lv_procedure_name ||
196: '.parameters:' ||
197: 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
198: 'pn_ledger_id=' || pn_ledger_id || ',' ||
199: 'pv_adhoc_prefix=' || pv_adhoc_prefix || ',' ||
226: 'pn_owners_equity_num=' || pn_owners_equity_num || ',' ||
227: 'pv_accounting_date=' || pv_accounting_date);
228:
229: --Step0: Check system option
230: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Step 0: Check System Option');
231: IF NOT(Ja_Cn_Utility.Check_System_Option(pn_legal_entity_id))
232: THEN
233: pv_retcode := 1;
234: pv_errbuf := '';
235: RETURN;
236: END IF; --(Ja_Cn_Utility.Check_System_Option(pn_legal_entity_id))
237:
238: --Step1: Check profile
239: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Step 1: Check Profile');
240: IF NOT(JA_CN_UTILITY.Check_Profile)
241: THEN
242: pv_retcode := 1;
243: pv_errbuf := '';
292: END;
293: END IF;
294:
295: --Step2: Submit GL Non-FSG Export program
296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Step 2: Submit GL Non-FSG Export program');
297: ln_reqid_gle:=FND_REQUEST.Submit_Request(application => 'JA'
298: ,program => 'JACNGLER'
299: ,argument1 => pn_legal_entity_id
300: ,argument2 => pn_chart_of_account_id
343: --Completed with Normal
344: IF lv_gle_req_status_code='C'
345: THEN
346: --Step3: submit FSG report
347: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Step 3: Submit FSG report');
348: --logging the variables
349: IF (ln_statement_level >= ln_dbg_level)
350: THEN
351: FND_LOG.STRING(ln_statement_level,
352: lv_procedure_name,
353: 'lv_period_to:' || lv_period_to || ',' ||
354: 'lv_accounting_date:' || lv_accounting_date);
355: END IF; --(ln_statement_level >= ln_dbg_level)
356: FND_FILE.put_line(FND_FILE.log, lv_procedure_name ||
357: '.variable:' ||
358: 'lv_period_to=' || lv_period_to || ',' ||
359: 'lv_accounting_date=' || lv_accounting_date);
360:
391: IF ln_convert_reqid<>0
392: THEN
393:
394: --Step4: Submit combination program
395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Step 4: Submit Combination program');
396: ln_reqid_comb:=FND_REQUEST.Submit_Request(application => 'JA'
397: ,program => 'JACNCFCP'
398: ,argument1 => ln_reqid_gle
399: ,argument2 => ln_convert_reqid
434: THEN
435:
436: --Step5: Submit characrter set conversion program
437: --to convert charaterset of output file
438: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Step 5: Submit Characrter Set Conversion program');
439: JA_CN_UTILITY.Submit_XML_Charset_Conversion(p_xml_request_id => ln_reqid_comb
440: ,p_source_charset => JA_CN_UTILITY.Get_XML_Encoding
441: ,p_destination_charset => pv_dest_char_set
442: ,p_source_separator => NULL
446: IF lv_cvt_req_status='Success'
447: THEN
448: --Step6: Submit "Change File Name" concurrent program
449: --to change name of output file
450: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Step 6: Submit File Name Renaming program');
451: lv_output_file_name := Ja_Cn_Utility.Generate_File_name(pv_module_name => 'GL'
452: ,pv_accounting_year => pv_accounting_year
453: ,pv_ledger_id => pn_ledger_id
454: ,pv_from_period => lv_period_from
460: FND_LOG.STRING(ln_statement_level,
461: lv_procedure_name,
462: 'lv_output_file_name:' || lv_output_file_name);
463: END IF; --(ln_statement_level >= ln_dbg_level)
464: FND_FILE.put_line(FND_FILE.log, lv_procedure_name ||
465: '.variable:' ||
466: 'lv_output_file_name=' || lv_output_file_name);
467:
468: JA_CN_UTILITY.Change_Output_Filename(p_xml_request_id => ln_reqid_comb
553: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
554: '.Other_Exception ',
555: SQLCODE || SQLERRM);
556: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
557: FND_FILE.put_line(FND_FILE.log, lv_procedure_name || SQLCODE || SQLERRM);
558:
559: END Submit_Request;
560:
561: END JA_CN_GL_EXPORT_REPORT_PROG;