[Home] [Help]
PACKAGE BODY: APPS.JA_CN_GL_BANK_EXP_REPORT_PKG
Source
1 PACKAGE BODY JA_CN_GL_BANK_EXP_REPORT_PKG AS
2 --$Header: JACNGBRB.pls 120.0.12020000.2 2013/02/06 09:00:06 chongwan noship $
3 --+=======================================================================+
4 --| Copyright (c) 1998 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| JACNGBRB.pls |
10 --| |
11 --| DESCRIPTION |
12 --| Use this package to export report for general ledger |
13 --| |
14 --| PROCEDURE LIST |
15 --| PROCEDURE Submit_Request |
16 --| |
17 --| HISTORY |
18 --| 19-Oct-2012 Jar Wang Created |
19 --+======================================================================*/
20
21 GV_MODULE_PREFIX VARCHAR2(100) := 'JA_CN_GL_BANK_EXP_REPORT_PKG';
22
23
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_bsv VARCHAR2 balance segment
41 -- pv_adhoc_prefix VARCHAR2 adhoc prefix
42 -- pv_industry VARCHAR2 industry
43 -- pv_accounting_year VARCHAR2 accounting year
44 -- pv_period_from VARCHAR2 period from
45 -- pv_period_to VARCHAR2 period to
46 -- pn_cfs_report_id NUMBER identifier of cfs report
47 -- pn_ps_report_id NUMBER identifier of profit statment report
48 -- pn_oe_report_id NUMBER identifier of Statement of changes in owners' equity Report
49 -- pv_currency_unit VARCHAR2 currency unit
50 -- pv_source_char_set VARCHAR2 source character set
51 -- pv_dest_char_set VARCHAR2 destination character set
52 -- pv_source_separator VARCHAR2 source separator
53 -- pn_data_access_set_id NUMBER identifier of data access set
54 -- pv_flex_code VARCHAR2 flex code
55 -- pv_default_ledger_short_name VARCHAR2 defualt ledger short name
56 -- pv_output_option VARCHAR2 output option
57 -- pv_exceptions_flag VARCHAR2 exceptions flag
58 -- pn_page_length NUMBER page length
59 -- pn_subrequest_id NUMBER identifier of subrequest
60 -- pv_appl_deflt_name VARCHAR2 application default name
61 -- pv_balance_type VARCHAR2 balance type
62 -- pv_xml_template_language VARCHAR2 xml template language
63 -- pv_xml_template_territory VARCHAR2 xml template territory
64 -- pv_xml_output_format VARCHAR2 xml output format
65 -- pn_csf_report_num NUMBER cfs report number
66 -- pn_balance_sheet_num NUMBER balance sheet number
67 -- pn_profit_statement_num NUMBER profit statement number
68 -- pn_owners_equity_num NUMBER number of Statement of changes in owners' equity Report
69 -- pv_accounting_date VARCHAR2 accounting date
70 --
71 --
72 -- CHANGE HISTORY:
73 -- 19-Oct-2012 Jar Wang created
74 --==========================================================================
75
76 PROCEDURE Submit_Request(pv_errbuf OUT NOCOPY VARCHAR2,
77 pv_retcode OUT NOCOPY VARCHAR2,
78 pn_chart_of_account_id IN NUMBER,
79 pn_ledger_id IN NUMBER,
80 pn_legal_entity_id IN NUMBER,
81 pv_bsv IN VARCHAR2,
82 pv_adhoc_prefix IN VARCHAR2,
83 pv_industry IN VARCHAR2,
84 pv_accounting_year IN VARCHAR2,
85 pv_period_from IN VARCHAR2,
86 pv_period_to IN VARCHAR2,
87 pn_bs_report_id IN NUMBER,
88 pn_ps_report_id IN NUMBER,
89 pn_cfs_report_id IN NUMBER,
90 pn_oe_report_id IN NUMBER,
91 pv_currency_unit IN VARCHAR2,
92 pv_source_char_set IN VARCHAR2,
93 pv_dest_char_set IN VARCHAR2,
94 pv_source_separator IN VARCHAR2,
95 pn_data_access_set_id IN NUMBER,
96 pv_flex_code IN VARCHAR2,
97 pv_default_ledger_short_name IN VARCHAR2,
98 pv_output_option IN VARCHAR2,
99 pv_exceptions_flag IN VARCHAR2,
100 pn_page_length IN NUMBER,
101 pn_subrequest_id IN NUMBER,
102 pv_appl_deflt_name IN VARCHAR2,
103 pv_balance_type IN VARCHAR2,
104 pv_xml_template_language IN VARCHAR2,
105 pv_xml_template_territory IN VARCHAR2,
106 pv_xml_output_format IN VARCHAR2,
107 pn_csf_report_num IN NUMBER,
108 pn_balance_sheet_num IN NUMBER,
109 pn_profit_statement_num IN NUMBER,
110 pn_owners_equity_num IN NUMBER,
111 pv_accounting_date IN VARCHAR2) IS
112 lv_procedure_name VARCHAR2(40) := 'Export_GL';
113 ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
114 ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
115 ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
116 lv_error_status BOOLEAN;
117
118 ln_reqid_gle NUMBER;
119 lv_gle_req_phase fnd_lookup_values.meaning%TYPE;
120 lv_gle_req_status fnd_lookup_values.meaning%TYPE;
121 lv_gle_req_status_code fnd_lookup_values.lookup_code%TYPE;
122
123 lv_error_flag VARCHAR2(1);
124 ln_waiting_interval NUMBER := 10;
125 lv_dev_phase VARCHAR2(100);
126 lv_dev_status VARCHAR2(100);
127 lv_message VARCHAR2(1000);
128
129 ln_reqid_cvt NUMBER;
130 lv_cvt_req_status VARCHAR2(100);
131
132 ln_reqid_chg NUMBER;
133 lv_chg_req_status VARCHAR2(100);
134
135 ln_convert_reqid NUMBER;
136 ln_reqid_comb NUMBER;
137 lv_comb_req_phase fnd_lookup_values.meaning%TYPE;
138 lv_comb_req_status fnd_lookup_values.meaning%TYPE;
139 lv_comb_req_status_code fnd_lookup_values.lookup_code%TYPE;
140 lv_output_file_name VARCHAR2(100);
141 lv_accounting_date VARCHAR2(30) := pv_accounting_date;
142 lv_period_from VARCHAR2(20) := pv_period_from;
143 lv_period_to VARCHAR2(20) := pv_period_to;
144 l_bsv_le BOOLEAN;
145 l_das_bsv PLS_INTEGER;
146 l_access_set PLS_INTEGER:=FND_PROFILE.VALUE('GL_ACCESS_SET_ID');
147 l_mes VARCHAR2(2000);
148 BEGIN
149 --logging for debug
150 IF (ln_proc_level >= ln_dbg_level) THEN
151 FND_LOG.STRING(ln_proc_level,
152 GV_MODULE_PREFIX || '.' || lv_procedure_name ||
153 '.begin',
154 'Enter procedure');
155 -- logging the parameters
156 FND_LOG.STRING(ln_proc_level,
157 lv_procedure_name || '.parameters',
158 'pn_ledger_id=' || pn_ledger_id || ',' ||
159 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
160 'pv_bsv' || pv_bsv || ',' ||
161 'pv_adhoc_prefix=' || pv_adhoc_prefix || ',' ||
162 'pv_industry=' || pv_industry || ',' ||
163 'pv_accounting_year=' || pv_accounting_year || ',' ||
164 'pv_period_from=' || pv_period_from || ',' ||
165 'pv_period_to=' || pv_period_to || ',' ||
166 'pn_cfs_report_id=' || pn_cfs_report_id || ',' ||
167 'pn_bs_report_id=' || pn_bs_report_id || ',' ||
168 'pn_ps_report_id=' || pn_ps_report_id || ',' ||
169 'pn_oe_report_id=' || pn_oe_report_id || ',' ||
170 'pv_currency_unit=' || pv_currency_unit || ',' ||
171 'pv_source_char_set=' || pv_source_char_set || ',' ||
172 'pv_dest_char_set=' || pv_dest_char_set || ',' ||
173 'pv_source_separator=' || pv_source_separator || ',' ||
174 'pn_data_access_set_id=' || pn_data_access_set_id || ',' ||
175 'pv_default_ledger_short_name=' ||pv_default_ledger_short_name || ',' ||
176 'pv_output_option=' || pv_output_option || ',' ||
177 'pv_exceptions_flag=' || pv_exceptions_flag || ',' ||
178 'pn_page_length=' || pn_page_length || ',' ||
179 'pn_subrequest_id=' || pn_subrequest_id || ',' ||
180 'pv_appl_deflt_name=' || pv_appl_deflt_name || ',' ||
181 'pv_balance_type=' || pv_balance_type || ',' ||
182 'pv_xml_template_language=' ||
183 pv_xml_template_language || ',' ||
184 'pv_xml_template_territory=' ||
185 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,
196 lv_procedure_name || '.parameters:' ||
197 'pn_ledger_id=' || pn_ledger_id || ',' ||
198 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
199 'pv_bsv=' || pv_bsv || ',' ||
200 'pv_adhoc_prefix=' || pv_adhoc_prefix || ',' ||
201 'pv_industry=' || pv_industry || ',' ||
202 'pv_accounting_year=' || pv_accounting_year || ',' ||
203 'pv_period_from=' || pv_period_from || ',' ||
204 'pv_period_to=' || pv_period_to || ',' ||
205 'pn_cfs_report_id=' || pn_cfs_report_id || ',' ||
206 'pn_bs_report_id=' || pn_bs_report_id || ',' ||
207 'pn_ps_report_id=' || pn_ps_report_id || ',' ||
208 'pn_oe_report_id=' || pn_oe_report_id || ',' ||
209 'pv_currency_unit=' || pv_currency_unit || ',' ||
210 'pv_source_char_set=' || pv_source_char_set || ',' ||
211 'pv_dest_char_set=' || pv_dest_char_set || ',' ||
212 'pv_source_separator=' || pv_source_separator || ',' ||
213 'pn_data_access_set_id=' || pn_data_access_set_id || ',' ||
214 'pv_default_ledger_short_name=' ||
215 pv_default_ledger_short_name || ',' ||
216 'pv_output_option=' || pv_output_option || ',' ||
217 'pv_exceptions_flag=' || pv_exceptions_flag || ',' ||
218 'pn_page_length=' || pn_page_length || ',' ||
219 'pn_subrequest_id=' || pn_subrequest_id || ',' ||
220 'pv_appl_deflt_name=' || pv_appl_deflt_name || ',' ||
221 'pv_balance_type=' || pv_balance_type || ',' ||
222 'pv_xml_template_language=' ||
223 pv_xml_template_language || ',' ||
224 'pv_xml_template_territory=' ||
225 pv_xml_template_territory || ',' ||
226 'pv_xml_output_format=' || pv_xml_output_format || ',' ||
227 'pn_csf_report_num=' || pn_csf_report_num || ',' ||
228 'pn_balance_sheet_num=' || pn_balance_sheet_num || ',' ||
229 'pn_profit_statement_num=' || pn_profit_statement_num || ',' ||
230 'pn_owners_equity_num=' || pn_owners_equity_num || ',' ||
231 'pv_accounting_date=' || pv_accounting_date);
232
233 --Step0: Validate the bsv whether is assigned to the legal entity
234 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Step 0,l_access_set='||l_access_set);
235 l_bsv_le := ja_cn_sysops_bank_pkg.check_le_bsv(p_ledger => pn_ledger_id,
236 p_legal_entity => pn_legal_entity_id,
237 p_bsv => pv_bsv);
238 IF l_bsv_le <> true THEN
239 FND_MESSAGE.SET_NAME('JA','JA_CN_BSV_VALIDATION') ;
240 l_mes := FND_MESSAGE.GET;
241 FND_FILE.PUT_LINE(FND_FILE.LOG,l_mes);
242 pv_retcode :=1;
243 RETURN;
244 ELSE
245 l_das_bsv :=ja_cn_sysops_bank_pkg.Check_DAS_BSV(p_ledger => pn_ledger_id,
246 p_das => l_access_set,
247 p_bsv => pv_bsv);
248
249 IF l_das_bsv =-2 THEN
250 FND_MESSAGE.SET_NAME('FND','FLEX-EXCLUDED BY SEC. RULE') ;
251 FND_MESSAGE.SET_TOKEN ('MESSAGE',pv_bsv);
252 l_mes := FND_MESSAGE.GET;
253 FND_FILE.PUT_LINE(FND_FILE.LOG,'Waring:'||l_mes);
254 pv_retcode :=1;
255 RETURN;
256 ELSIF l_das_bsv =-1 THEN
257 FND_MESSAGE.SET_NAME('SQLGL','GLCORE_NO_ACCESS') ;
258 l_mes := FND_MESSAGE.GET;
259 FND_FILE.PUT_LINE(FND_FILE.LOG,'Waring:'||l_mes);
260 pv_retcode :=1;
261 RETURN;
262 END IF;
263 END IF;
264
265
266
267 --Step 1: Validate the period from and the period to
268 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Step 1: Validate the period from and the period to');
269 --Handling period from and period to if any of them is null
270 IF lv_period_from IS NULL THEN
271 BEGIN
272 SELECT PERIOD_NAME
273 INTO lv_period_from
274 FROM (SELECT PERIOD_NAME
275 FROM GL_PERIOD_STATUSES
276 WHERE APPLICATION_ID = 101
277 AND LEDGER_ID = pn_ledger_id
278 AND PERIOD_YEAR = pv_accounting_year
279 AND CLOSING_STATUS <> 'N'
280 AND CLOSING_STATUS <> 'F'
281 ORDER BY START_DATE ASC)
282 WHERE ROWNUM = 1;
283 EXCEPTION
284 WHEN OTHERS THEN
285 NULL;
286 END;
287 END IF;
288
289 IF lv_period_to IS NULL THEN
290 BEGIN
291 SELECT PERIOD_NAME
292 INTO lv_period_to
293 FROM (SELECT PERIOD_NAME
294 FROM GL_PERIOD_STATUSES
295 WHERE APPLICATION_ID = 101
296 AND LEDGER_ID = pn_ledger_id
297 AND PERIOD_YEAR = pv_accounting_year
298 AND CLOSING_STATUS <> 'N'
299 AND CLOSING_STATUS <> 'F'
300 ORDER BY START_DATE DESC)
301 WHERE ROWNUM = 1;
302 SELECT TO_CHAR(END_DATE, 'YYYY/MM/DD HH:MM:SS')
303 INTO lv_accounting_date
304 FROM GL_PERIOD_STATUSES
305 WHERE APPLICATION_ID = 101
306 AND LEDGER_ID = pn_ledger_id
307 AND PERIOD_NAME = lv_period_to;
308 EXCEPTION
309 WHEN OTHERS THEN
310 NULL;
311 END;
312 END IF;
313
314 --Step2: Submit GL Non-FSG Export program
315 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Step 2: Submit GL Non-FSG Export program');
316 ln_reqid_gle := FND_REQUEST.Submit_Request(application => 'JA',
317 program => 'JACNGLBER',
318 argument1 => pn_chart_of_account_id,
319 argument2 => pn_ledger_id,
320 argument3 => pn_legal_entity_id,
321 argument4 => pv_bsv,
322 argument5 => pv_adhoc_prefix,
323 argument6 => pv_industry,
324 argument7 => pv_accounting_year,
325 argument8 => lv_period_from,
326 argument9 => lv_period_to,
327 argument10 => pn_cfs_report_id,
328 argument11 => pv_xml_template_language,
329 argument12 => pv_xml_template_territory,
330 argument13 => pv_xml_output_format);
331 COMMIT;
332 --Waiting for the 'Export Non-FSG Report for General Ledger' completed
333 --get its status
334
335 IF ln_reqid_gle <> 0 THEN
336
337 IF FND_CONCURRENT.Wait_For_Request(request_id => ln_reqid_gle,
338 interval => ln_waiting_interval,
339 phase => lv_gle_req_phase,
340 status => lv_gle_req_status,
341 dev_phase => lv_dev_phase,
342 dev_status => lv_dev_status,
343 message => lv_message) THEN
344
345 --To get lookup code for current status
346 SELECT lookup_code
347 INTO lv_gle_req_status_code
348 FROM fnd_lookup_values
349 WHERE lookup_type = 'CP_STATUS_CODE'
350 AND view_application_id = 0
351 AND security_group_id = 0
352 AND meaning = lv_gle_req_status
353 AND enabled_flag = 'Y'
354 AND language = USERENV('LANG');
355
356 --Completed with Normal
357 IF lv_gle_req_status_code = 'C' THEN
358 --Step3: submit FSG report
359 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Step 3: Submit FSG report');
360 --logging the variables
361 IF (ln_statement_level >= ln_dbg_level) THEN
362 FND_LOG.STRING(ln_statement_level,
363 lv_procedure_name,
364 'lv_period_to:' || lv_period_to || ',' ||
365 'lv_accounting_date:' || lv_accounting_date);
366 END IF; --(ln_statement_level >= ln_dbg_level)
367 FND_FILE.put_line(FND_FILE.log,
368 lv_procedure_name || '.variable:' ||
369 'lv_period_to=' || lv_period_to || ',' ||
370 'lv_accounting_date=' || lv_accounting_date);
371
372 ja_cn_fsg_xml_bank_pkg.submit_FSG_Report(pn_data_access_set_id => pn_data_access_set_id,
373 pn_coa_id => pn_chart_of_account_id,
374 pv_adhoc_prefix => pv_adhoc_prefix,
375 pv_industry => pv_industry,
376 pv_flex_code => pv_flex_code,
377 pv_default_ledger_short_name => pv_default_ledger_short_name,
378 pv_period_name => lv_period_to,
379 pv_output_option => pv_output_option,--,'R',
380 pv_exceptions_flag => pv_exceptions_flag,
381 pv_accounting_date => lv_accounting_date,
382 pn_page_length => pn_page_length,
383 pn_subrequest_id => pn_subrequest_id,
384 pv_appl_deflt_name => pv_appl_deflt_name,
385 pn_csf_report_id => pn_cfs_report_id,
386 pn_csf_report_num => pn_csf_report_num,
387 pn_balance_sheet_id => pn_bs_report_id,
388 pn_balance_sheet_num => pn_balance_sheet_num,
389 pn_profit_statement_id => pn_ps_report_id,
390 pn_profit_statement_num => pn_profit_statement_num,
391 pn_owners_equity_id => pn_oe_report_id,
392 pn_owners_equity_num => pn_owners_equity_num,
393 pv_balance_type => pv_balance_type,
394 pv_currency_unit => pv_currency_unit,
395 pv_bsv => pv_bsv,
396 pn_legal_entity_id => pn_legal_entity_id,
397 pn_ledger_id => pn_ledger_id,
398 pv_xml_template_language => pv_xml_template_language,
399 pv_xml_template_territory => pv_xml_template_territory,
400 pv_xml_output_format => pv_xml_output_format,
401 pn_convert_reqid => ln_convert_reqid);
402 IF ln_convert_reqid <> 0 THEN
403
404 --Step4: Submit combination program
405 FND_FILE.PUT_LINE(FND_FILE.LOG,
406 'Step 4: Submit Combination program');
407 ln_reqid_comb := FND_REQUEST.Submit_Request(application => 'JA',
408 program => 'JACNBFCP',
409 argument1 => ln_reqid_gle,
410 argument2 => ln_convert_reqid);
411 COMMIT;
412 --Waiting for the 'combination program' completed
413 --get its status
414
415 IF ln_reqid_comb <> 0 THEN
416
417 IF FND_CONCURRENT.Wait_For_Request(request_id => ln_reqid_comb,
418 interval => ln_waiting_interval,
419 phase => lv_comb_req_phase,
420 status => lv_comb_req_status,
421 dev_phase => lv_dev_phase,
422 dev_status => lv_dev_status,
423 message => lv_message) THEN
424
425 --To get lookup code for current status
426 SELECT lookup_code
427 INTO lv_comb_req_status_code
428 FROM fnd_lookup_values
429 WHERE lookup_type = 'CP_STATUS_CODE'
430 AND view_application_id = 0
431 AND security_group_id = 0
432 AND meaning = lv_comb_req_status --Fixing bug 9547791
433 AND enabled_flag = 'Y'
434 AND language = USERENV('LANG');
435
436 --Completed with Normal
437 IF lv_comb_req_status_code = 'C' THEN
438
439 --Step5: Submit characrter set conversion program
440 --to convert charaterset of output file
441 FND_FILE.PUT_LINE(FND_FILE.LOG,
442 'Step 5: Submit Characrter Set Conversion program');
443 JA_CN_SYSOPS_BANK_PKG.Submit_XML_Charset_Conversion(p_xml_request_id => ln_reqid_comb,
444 p_source_charset => JA_CN_UTILITY.Get_XML_Encoding,
445 p_destination_charset => pv_dest_char_set,
446 p_source_separator => NULL,
447 x_charset_request_id => ln_reqid_cvt,
448 x_result_flag => lv_cvt_req_status);
449 IF lv_cvt_req_status = 'Success' THEN
450 --Step6: Submit "Change File Name" concurrent program
451 --to change name of output file
452 FND_FILE.PUT_LINE(FND_FILE.LOG,
453 'Step 6: Submit File Name Renaming program');
454 lv_output_file_name := Ja_Cn_Utility.Generate_File_name(pv_module_name => 'GL',
455 pv_accounting_year => pv_accounting_year,
456 pv_ledger_id => pn_ledger_id,
457 pv_from_period => lv_period_from,
458 pv_to_period => lv_period_to);
459 --logging the variables
460 IF (ln_statement_level >= ln_dbg_level) THEN
461 FND_LOG.STRING(ln_statement_level,
462 lv_procedure_name,
463 'lv_output_file_name:' ||
464 lv_output_file_name);
465 END IF; --(ln_statement_level >= ln_dbg_level)
466 FND_FILE.put_line(FND_FILE.log,
467 lv_procedure_name || '.variable:' ||
468 'lv_output_file_name=' ||
469 lv_output_file_name);
470
471 JA_CN_UTILITY.Change_Output_Filename(p_xml_request_id => ln_reqid_comb,
472 p_destination_charset => pv_dest_char_set,
473 p_destination_filename => lv_output_file_name,
474 x_filename_request_id => ln_reqid_chg,
475 x_result_flag => lv_chg_req_status);
476 IF lv_chg_req_status = 'Success' THEN
477 NULL;
478 ELSIF lv_chg_req_status = 'Warning' THEN
479 lv_error_flag := 'W';
480 ELSIF lv_chg_req_status = 'Error' THEN
481 lv_error_flag := 'E';
482 END IF; --l_chg_req_status='Success'
483
484 ELSIF lv_cvt_req_status = 'Warning' THEN
485 lv_error_flag := 'W';
486 ELSIF lv_cvt_req_status = 'Error' THEN
487 lv_error_flag := 'E';
488 END IF; --l_cvt_req_status='Success'
489
490 --Completed with 'Warning'
491 ELSIF lv_comb_req_status_code = 'G' THEN
492 lv_error_flag := 'W';
493 --Completed with 'Error'
494 ELSIF lv_comb_req_status_code = 'E' THEN
495 lv_error_flag := 'E';
496 END IF; --lv_comb_req_status_code='C'
497 END IF; --FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_comb
498 ELSE
499 lv_error_flag := 'E';
500 END IF; --ln_reqid_comb<>0
501
502 ELSE
503 lv_error_flag := 'E';
504 END IF; --ln_convert_reqid<>0
505
506 --Completed with 'Warning'
507 ELSIF lv_gle_req_status_code = 'G' THEN
508 lv_error_flag := 'W';
509 --Completed with 'Error'
510 ELSIF lv_gle_req_status_code = 'E' THEN
511 lv_error_flag := 'E';
512 END IF; --lv_gle_req_status_code='C'
513 END IF; --FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_comb
514 ELSE
515 lv_error_flag := 'E';
516 END IF; --ln_reqid_gle<>0
517
518 --If any of above concurrent porgrams is Warning/Failed, set current GL export
519 --program to status 'Warning'/'Error' accordingly.
520 IF lv_error_flag = 'W' THEN
521 lv_error_status := FND_CONCURRENT.Set_Completion_Status(status => 'WARNING',
522 message => '');
523 ELSIF lv_error_flag = 'E' THEN
524 lv_error_status := FND_CONCURRENT.Set_Completion_Status(status => 'ERROR',
525 message => '');
526 END IF; --lv_error_flag='W'
527
528 --logging for debug
529 IF (ln_proc_level >= ln_dbg_level) THEN
530 FND_LOG.STRING(ln_proc_level,
531 GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
532 'Exit procedure');
533 END IF; -- (ln_proc_level>=ln_dbg_level)
534
535 EXCEPTION
536 WHEN OTHERS THEN
537 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
538 FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
539 GV_MODULE_PREFIX || '.' || lv_procedure_name ||
540 '.Other_Exception ',
541 SQLCODE || SQLERRM);
542 END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
543 FND_FILE.put_line(FND_FILE.log,
544 lv_procedure_name || SQLCODE || SQLERRM);
545 pv_retcode := 2;
546 RAISE;
547 END Submit_Request;
548
549 END JA_CN_GL_BANK_EXP_REPORT_PKG;
550
551
552
553