[Home] [Help]
PACKAGE BODY: APPS.JA_CN_GL_EXPORT_REPORT_PROG
Source
1 PACKAGE BODY JA_CN_GL_EXPORT_REPORT_PROG AS
2 --$Header: JACNGLPB.pls 120.4 2010/06/04 05:26:02 wuwu noship $
3 --+=======================================================================+
4 --| Copyright (c) 1998 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| JACNGLPB.pls |
10 --| |
11 --| DESCRIPTION |
12 --| Use this package to export report for general ledger |
13 --| |
14 --| PROCEDURE LIST |
15 --| PROCEDURE Submit_Request |
16 --| |
17 --| |
18 --| HISTORY |
19 --| 01-Mar-2010 Chaoqun Wu Created |
20 --| 09-Apr-2010 Chaoqun Wu Fixing bug 9547791
21 --+======================================================================*/
22
23 GV_MODULE_PREFIX VARCHAR2(100) := 'JA_CN_GL_EXPORT_REPORT_PROG';
24
25 --==========================================================================
26 -- PROCEDURE NAME:
27 --
28 -- Submit_Request Public
29 --
30 -- DESCRIPTION:
31 --
32 -- This procedure is to export report for general ledger
33 --
34 -- PARAMETERS:
35 -- Out: pv_errbuf NOCOPY VARCHAR2
36 -- pv_retcode NOCOPY VARCHAR2
37 -- In: pn_legal_entity_id NUMBER identifier of legal entity
38 -- pn_chart_of_account_id NUMBER identifier of chart of account
39 -- pn_ledger_id NUMBER identifier of ledger
40 -- pv_adhoc_prefix VARCHAR2 adhoc prefix
41 -- pv_industry VARCHAR2 industry
42 -- pv_accounting_year VARCHAR2 accounting year
43 -- pv_period_from VARCHAR2 period from
44 -- pv_period_to VARCHAR2 period to
45 -- pn_cfs_report_id NUMBER identifier of cfs report
46 -- pn_ps_report_id NUMBER identifier of profit statment report
47 -- pn_oe_report_id NUMBER identifier of Statement of changes in owners' equity Report
48 -- pv_currency_unit VARCHAR2 currency unit
49 -- pv_source_char_set VARCHAR2 source character set
50 -- pv_dest_char_set VARCHAR2 destination character set
51 -- pv_source_separator VARCHAR2 source separator
52 -- pn_data_access_set_id NUMBER identifier of data access set
53 -- pv_flex_code VARCHAR2 flex code
54 -- pv_default_ledger_short_name VARCHAR2 defualt ledger short name
55 -- pv_output_option VARCHAR2 output option
56 -- pv_exceptions_flag VARCHAR2 exceptions flag
57 -- pn_page_length NUMBER page length
58 -- pn_subrequest_id NUMBER identifier of subrequest
59 -- pv_appl_deflt_name VARCHAR2 application default name
60 -- pv_balance_type VARCHAR2 balance type
61 -- pv_xml_template_language VARCHAR2 xml template language
62 -- pv_xml_template_territory VARCHAR2 xml template territory
63 -- pv_xml_output_format VARCHAR2 xml output format
64 -- pn_csf_report_num NUMBER cfs report number
65 -- pn_balance_sheet_num NUMBER balance sheet number
66 -- pn_profit_statement_num NUMBER profit statement number
67 -- pn_owners_equity_num NUMBER number of Statement of changes in owners' equity Report
68 -- pv_accounting_date VARCHAR2 accounting date
69 --
70 -- DESIGN REFERENCES:
71 -- GL_Chaoqun.doc
72 --
73 -- CHANGE HISTORY:
74 -- 01-Mar-2010 Chaoqun Wu created
75 -- 09-Apr-2010 Chaoqun Wu Fixing bug 9547791
76 --==========================================================================
77
78 PROCEDURE Submit_Request
79 (pv_errbuf OUT NOCOPY VARCHAR2
80 ,pv_retcode OUT NOCOPY VARCHAR2
81 ,pn_legal_entity_id IN NUMBER
82 ,pn_chart_of_account_id IN NUMBER
83 ,pn_ledger_id IN NUMBER
84 ,pv_adhoc_prefix IN VARCHAR2
85 ,pv_industry IN VARCHAR2
86 ,pv_accounting_year IN VARCHAR2
87 ,pv_period_from IN VARCHAR2
88 ,pv_period_to IN VARCHAR2
89 ,pn_cfs_report_id IN NUMBER
90 ,pn_bs_report_id IN NUMBER
91 ,pn_ps_report_id IN NUMBER
92 ,pn_oe_report_id IN NUMBER
93 ,pv_currency_unit IN VARCHAR2
94 ,pv_source_char_set IN VARCHAR2
95 ,pv_dest_char_set IN VARCHAR2
96 ,pv_source_separator IN VARCHAR2
97 ,pn_data_access_set_id IN NUMBER
98 ,pv_flex_code IN VARCHAR2
99 ,pv_default_ledger_short_name IN VARCHAR2
100 ,pv_output_option IN VARCHAR2
101 ,pv_exceptions_flag IN VARCHAR2
102 ,pn_page_length IN NUMBER
103 ,pn_subrequest_id IN NUMBER
104 ,pv_appl_deflt_name IN VARCHAR2
105 ,pv_balance_type IN VARCHAR2
106 ,pv_xml_template_language IN VARCHAR2
107 ,pv_xml_template_territory IN VARCHAR2
108 ,pv_xml_output_format IN VARCHAR2
109 ,pn_csf_report_num IN NUMBER
110 ,pn_balance_sheet_num IN NUMBER
111 ,pn_profit_statement_num IN NUMBER
112 ,pn_owners_equity_num IN NUMBER
113 ,pv_accounting_date IN VARCHAR2
114 )
115 IS
116 lv_procedure_name VARCHAR2(40) := 'Export_GL';
117 ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
118 ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
119 ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
120 lv_error_status BOOLEAN;
121
122 ln_reqid_gle NUMBER;
123 lv_gle_req_phase fnd_lookup_values.meaning%TYPE;
124 lv_gle_req_status fnd_lookup_values.meaning%TYPE;
125 lv_gle_req_status_code fnd_lookup_values.lookup_code%TYPE;
126
127 lv_error_flag VARCHAR2(1);
128 ln_waiting_interval NUMBER :=10;
129 lv_dev_phase VARCHAR2(100);
130 lv_dev_status VARCHAR2(100);
131 lv_message VARCHAR2(1000);
132
133 ln_reqid_cvt NUMBER;
134 lv_cvt_req_status VARCHAR2(100);
135
136 ln_reqid_chg NUMBER;
137 lv_chg_req_status VARCHAR2(100);
138
139 ln_convert_reqid NUMBER;
140 ln_reqid_comb NUMBER;
141 lv_comb_req_phase fnd_lookup_values.meaning%TYPE;
142 lv_comb_req_status fnd_lookup_values.meaning%TYPE;
143 lv_comb_req_status_code fnd_lookup_values.lookup_code%TYPE;
144 lv_output_file_name VARCHAR2(100);
145 lv_accounting_date VARCHAR2(30) := pv_accounting_date;
146 lv_period_from VARCHAR2(20):= pv_period_from;
147 lv_period_to VARCHAR2(20):= pv_period_to;
148
149 BEGIN
150 --logging for debug
151 IF (ln_proc_level >= ln_dbg_level)
152 THEN
153 FND_LOG.STRING(ln_proc_level,
154 GV_MODULE_PREFIX || '.' || lv_procedure_name ||
155 '.begin',
156 'Enter procedure');
157 -- logging the parameters
158 FND_LOG.STRING(ln_proc_level,
159 lv_procedure_name ||
160 '.parameters',
161 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
162 'pn_ledger_id=' || pn_ledger_id || ',' ||
163 'pv_adhoc_prefix=' || pv_adhoc_prefix || ',' ||
164 'pv_industry=' || pv_industry || ',' ||
165 'pv_accounting_year=' || pv_accounting_year || ',' ||
166 'pv_period_from=' || pv_period_from || ',' ||
167 'pv_period_to=' || pv_period_to || ',' ||
168 'pn_cfs_report_id=' || pn_cfs_report_id || ',' ||
169 'pn_bs_report_id=' || pn_bs_report_id || ',' ||
170 'pn_ps_report_id=' || pn_ps_report_id || ',' ||
171 'pn_oe_report_id=' || pn_oe_report_id || ',' ||
172 'pv_currency_unit=' || pv_currency_unit || ',' ||
173 'pv_source_char_set=' || pv_source_char_set || ',' ||
174 'pv_dest_char_set=' || pv_dest_char_set || ',' ||
175 'pv_source_separator=' || pv_source_separator || ',' ||
176 'pn_data_access_set_id=' || pn_data_access_set_id || ',' ||
177 'pv_default_ledger_short_name=' || pv_default_ledger_short_name || ',' ||
178 'pv_output_option=' || pv_output_option || ',' ||
179 'pv_exceptions_flag=' || pv_exceptions_flag || ',' ||
180 'pn_page_length=' || pn_page_length || ',' ||
181 'pn_subrequest_id=' || pn_subrequest_id || ',' ||
182 'pv_appl_deflt_name=' || pv_appl_deflt_name || ',' ||
183 'pv_balance_type=' || pv_balance_type || ',' ||
184 'pv_xml_template_language=' || pv_xml_template_language || ',' ||
185 'pv_xml_template_territory=' || pv_xml_template_territory || ',' ||
186 'pv_xml_output_format=' || pv_xml_output_format || ',' ||
187 'pn_csf_report_num=' || pn_csf_report_num || ',' ||
188 'pn_balance_sheet_num=' || pn_balance_sheet_num || ',' ||
189 'pn_profit_statement_num=' || pn_profit_statement_num || ',' ||
190 'pn_owners_equity_num=' || pn_owners_equity_num || ',' ||
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 || ',' ||
200 'pv_industry=' || pv_industry || ',' ||
201 'pv_accounting_year=' || pv_accounting_year || ',' ||
202 'pv_period_from=' || pv_period_from || ',' ||
203 'pv_period_to=' || pv_period_to || ',' ||
204 'pn_cfs_report_id=' || pn_cfs_report_id || ',' ||
205 'pn_bs_report_id=' || pn_bs_report_id || ',' ||
206 'pn_ps_report_id=' || pn_ps_report_id || ',' ||
207 'pn_oe_report_id=' || pn_oe_report_id || ',' ||
208 'pv_currency_unit=' || pv_currency_unit || ',' ||
209 'pv_source_char_set=' || pv_source_char_set || ',' ||
210 'pv_dest_char_set=' || pv_dest_char_set || ',' ||
211 'pv_source_separator=' || pv_source_separator || ',' ||
212 'pn_data_access_set_id=' || pn_data_access_set_id || ',' ||
213 'pv_default_ledger_short_name=' || pv_default_ledger_short_name || ',' ||
214 'pv_output_option=' || pv_output_option || ',' ||
215 'pv_exceptions_flag=' || pv_exceptions_flag || ',' ||
216 'pn_page_length=' || pn_page_length || ',' ||
217 'pn_subrequest_id=' || pn_subrequest_id || ',' ||
218 'pv_appl_deflt_name=' || pv_appl_deflt_name || ',' ||
219 'pv_balance_type=' || pv_balance_type || ',' ||
220 'pv_xml_template_language=' || pv_xml_template_language || ',' ||
221 'pv_xml_template_territory=' || pv_xml_template_territory || ',' ||
222 'pv_xml_output_format=' || pv_xml_output_format || ',' ||
223 'pn_csf_report_num=' || pn_csf_report_num || ',' ||
224 'pn_balance_sheet_num=' || pn_balance_sheet_num || ',' ||
225 'pn_profit_statement_num=' || pn_profit_statement_num || ',' ||
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 := '';
244 RETURN;
245 END IF;
246
247 --Handling period from and period to if any of them is null
248 IF lv_period_from IS NULL
249 THEN
250 BEGIN
251 SELECT PERIOD_NAME
252 INTO lv_period_from
253 FROM (SELECT PERIOD_NAME
254 FROM GL_PERIOD_STATUSES
255 WHERE APPLICATION_ID = 101
256 AND LEDGER_ID = pn_ledger_id
257 AND PERIOD_YEAR = pv_accounting_year
258 AND CLOSING_STATUS <> 'N'
259 AND CLOSING_STATUS <> 'F'
260 ORDER BY START_DATE ASC)
261 WHERE ROWNUM = 1;
262 EXCEPTION
263 WHEN OTHERS THEN
264 NULL;
265 END;
266 END IF;
267
268 IF lv_period_to IS NULL
269 THEN
270 BEGIN
271 SELECT PERIOD_NAME
272 INTO lv_period_to
273 FROM (SELECT PERIOD_NAME
274 FROM GL_PERIOD_STATUSES
275 WHERE APPLICATION_ID = 101
276 AND LEDGER_ID = pn_ledger_id
277 AND PERIOD_YEAR = pv_accounting_year
278 AND CLOSING_STATUS <> 'N'
279 AND CLOSING_STATUS <> 'F'
280 ORDER BY START_DATE DESC)
281 WHERE ROWNUM = 1;
282 SELECT TO_CHAR(END_DATE,
283 'YYYY/MM/DD HH:MM:SS')
284 INTO lv_accounting_date
285 FROM GL_PERIOD_STATUSES
286 WHERE APPLICATION_ID = 101
287 AND LEDGER_ID = pn_ledger_id
288 AND PERIOD_NAME = lv_period_to;
289 EXCEPTION
290 WHEN OTHERS THEN
291 NULL;
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
301 ,argument3 => pn_ledger_id
302 ,argument4 => pv_adhoc_prefix
303 ,argument5 => pv_industry
304 ,argument6 => pv_accounting_year
305 ,argument7 => lv_period_from
306 ,argument8 => lv_period_to
307 ,argument9 => pn_cfs_report_id
308 ,argument10 => pv_xml_template_language
309 ,argument11 => pv_xml_template_territory
310 ,argument12 => pv_xml_output_format
311 );
312 COMMIT;
313 --Waiting for the 'Export Non-FSG Report for General Ledger' completed
314 --get its status
315
316 IF ln_reqid_gle<>0
317 THEN
318
319 IF FND_CONCURRENT.Wait_For_Request(request_id => ln_reqid_gle
320 ,interval => ln_waiting_interval
321 ,phase => lv_gle_req_phase
322 ,status => lv_gle_req_status
323 ,dev_phase => lv_dev_phase
324 ,dev_status => lv_dev_status
325 ,message => lv_message
326 )
327 THEN
328
329 --To get lookup code for current status
330 SELECT
331 lookup_code
332 INTO
333 lv_gle_req_status_code
334 FROM
335 fnd_lookup_values
336 WHERE lookup_type = 'CP_STATUS_CODE'
337 AND view_application_id=0
338 AND security_group_id=0
339 AND meaning=lv_gle_req_status
340 AND enabled_flag='Y'
341 AND language = USERENV('LANG');
342
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
361 ja_cn_fsg_xml_submit_prog.Submit_FSG_Report(pn_data_access_set_id => pn_data_access_set_id
362 ,pn_coa_id => pn_chart_of_account_id
363 ,pv_adhoc_prefix => pv_adhoc_prefix
364 ,pv_industry => pv_industry
365 ,pv_flex_code => pv_flex_code
366 ,pv_default_ledger_short_name => pv_default_ledger_short_name
367 ,pv_period_name => lv_period_to
368 ,pv_output_option => pv_output_option
369 ,pv_exceptions_flag => pv_exceptions_flag
370 ,pv_accounting_date => lv_accounting_date
371 ,pn_page_length => pn_page_length
372 ,pn_subrequest_id => pn_subrequest_id
373 ,pv_appl_deflt_name => pv_appl_deflt_name
374 ,pn_csf_report_id => pn_cfs_report_id
375 ,pn_csf_report_num => pn_csf_report_num
376 ,pn_balance_sheet_id => pn_bs_report_id
377 ,pn_balance_sheet_num => pn_balance_sheet_num
378 ,pn_profit_statement_id => pn_ps_report_id
379 ,pn_profit_statement_num => pn_profit_statement_num
380 ,pn_owners_equity_id => pn_oe_report_id
381 ,pn_owners_equity_num => pn_owners_equity_num
382 ,pv_balance_type => pv_balance_type
383 ,pv_currency_unit => pv_currency_unit
384 ,pn_legal_entity_id => pn_legal_entity_id
385 ,pn_ledger_id => pn_ledger_id
386 ,pv_xml_template_language => pv_xml_template_language
387 ,pv_xml_template_territory => pv_xml_template_territory
388 ,pv_xml_output_format => pv_xml_output_format
389 ,pn_convert_reqid => ln_convert_reqid
390 );
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
400 );
401 COMMIT;
402 --Waiting for the 'combination program' completed
403 --get its status
404
405 IF ln_reqid_comb<>0
406 THEN
407
408 IF FND_CONCURRENT.Wait_For_Request(request_id => ln_reqid_comb
409 ,interval => ln_waiting_interval
410 ,phase => lv_comb_req_phase
411 ,status => lv_comb_req_status
412 ,dev_phase => lv_dev_phase
413 ,dev_status => lv_dev_status
414 ,message => lv_message
415 )
416 THEN
417
418 --To get lookup code for current status
419 SELECT
420 lookup_code
421 INTO
422 lv_comb_req_status_code
423 FROM
424 fnd_lookup_values
425 WHERE lookup_type = 'CP_STATUS_CODE'
426 AND view_application_id=0
427 AND security_group_id=0
428 AND meaning=lv_comb_req_status --Fixing bug 9547791
429 AND enabled_flag='Y'
430 AND language = USERENV('LANG');
431
432 --Completed with Normal
433 IF lv_comb_req_status_code='C'
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
443 ,x_charset_request_id => ln_reqid_cvt
444 ,x_result_flag => lv_cvt_req_status
445 );
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
455 ,pv_to_period => lv_period_to
456 );
457 --logging the variables
458 IF (ln_statement_level >= ln_dbg_level)
459 THEN
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
469 ,p_destination_charset => pv_dest_char_set
470 ,p_destination_filename => lv_output_file_name
471 ,x_filename_request_id => ln_reqid_chg
472 ,x_result_flag => lv_chg_req_status
473 );
474 IF lv_chg_req_status='Success'
475 THEN
476 NULL;
477 ELSIF lv_chg_req_status='Warning'
478 THEN
479 lv_error_flag:='W';
480 ELSIF lv_chg_req_status='Error'
481 THEN
482 lv_error_flag:='E';
483 END IF; --l_chg_req_status='Success'
484
485
486 ELSIF lv_cvt_req_status='Warning'
487 THEN
488 lv_error_flag:='W';
489 ELSIF lv_cvt_req_status='Error'
490 THEN
491 lv_error_flag:='E';
492 END IF; --l_cvt_req_status='Success'
493
494 --Completed with 'Warning'
495 ELSIF lv_comb_req_status_code='G'
496 THEN
497 lv_error_flag:='W';
498 --Completed with 'Error'
499 ELSIF lv_comb_req_status_code='E'
500 THEN
501 lv_error_flag:='E';
502 END IF; --lv_comb_req_status_code='C'
503 END IF; --FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_comb
504 ELSE
505 lv_error_flag:='E';
506 END IF; --ln_reqid_comb<>0
507
508 ELSE
509 lv_error_flag:='E';
510 END IF; --ln_convert_reqid<>0
511
512 --Completed with 'Warning'
513 ELSIF lv_gle_req_status_code='G'
514 THEN
515 lv_error_flag:='W';
516 --Completed with 'Error'
517 ELSIF lv_gle_req_status_code='E'
518 THEN
519 lv_error_flag:='E';
520 END IF; --lv_gle_req_status_code='C'
521 END IF; --FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_comb
522 ELSE
523 lv_error_flag:='E';
524 END IF; --ln_reqid_gle<>0
525
526 --If any of above concurrent porgrams is Warning/Failed, set current GL export
527 --program to status 'Warning'/'Error' accordingly.
528 IF lv_error_flag='W'
529 THEN
530 lv_error_status:=FND_CONCURRENT.Set_Completion_Status( status => 'WARNING'
531 , message => ''
532 );
533 ELSIF lv_error_flag='E'
534 THEN
535 lv_error_status:=FND_CONCURRENT.Set_Completion_Status( status => 'ERROR'
536 , message => ''
537 );
538 END IF; --lv_error_flag='W'
539
540 --logging for debug
541 IF (ln_proc_level >= ln_dbg_level)
542 THEN
543 FND_LOG.STRING(ln_proc_level,
544 GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
545 'Exit procedure');
546 END IF; -- (ln_proc_level>=ln_dbg_level)
547
548 EXCEPTION
549 WHEN OTHERS THEN
550 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
551 THEN
552 FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
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;