33: BEGIN
34: l_module_name := g_module_name || 'generate_output_report';
35: p_error_code := g_SUCCESS;
36:
37: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
38: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
39: END IF;
40:
41: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
34: l_module_name := g_module_name || 'generate_output_report';
35: p_error_code := g_SUCCESS;
36:
37: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
38: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
39: END IF;
40:
41: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
42: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
37: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
38: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
39: END IF;
40:
41: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
42: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
43: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
44: END IF;
45:
38: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
39: END IF;
40:
41: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
42: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
43: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
44: END IF;
45:
46: report (' FACTS II Ending Balances');
39: END IF;
40:
41: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
42: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
43: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
44: END IF;
45:
46: report (' FACTS II Ending Balances');
47: report ('Ledger Id: '||p_ledger_id);
71:
72: END LOOP;
73: report ('+-------+----------+-------+---------+--------------+-----------------+-----------------+');
74:
75: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
76: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
77: END IF;
78:
79: EXCEPTION
72: END LOOP;
73: report ('+-------+----------+-------+---------+--------------+-----------------+-----------------+');
74:
75: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
76: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
77: END IF;
78:
79: EXCEPTION
80: WHEN OTHERS THEN
80: WHEN OTHERS THEN
81: p_error_code := g_FAILURE;
82: p_error_desc := SQLERRM;
83: l_location := l_module_name||'.final_exception';
84: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
85: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
86: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
87: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
88: END IF;
81: p_error_code := g_FAILURE;
82: p_error_desc := SQLERRM;
83: l_location := l_module_name||'.final_exception';
84: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
85: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
86: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
87: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
88: END IF;
89: END;
82: p_error_desc := SQLERRM;
83: l_location := l_module_name||'.final_exception';
84: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
85: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
86: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
87: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
88: END IF;
89: END;
90:
83: l_location := l_module_name||'.final_exception';
84: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
85: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
86: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
87: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
88: END IF;
89: END;
90:
91:
122: --* Parameters : p_ledger_id Set Of Books Id *--
123: --* : p_acct_value_set_id Account Value Set Id *--
124: --* : p_error_code Return Error Code *--
125: --* : p_error_desc Return Error Description *--
126: --* Global Vars : fnd_log.g_current_runtime_level *--
127: --* : fnd_log.level_procedure *--
128: --* : fnd_log.level_statement *--
129: --* : fnd_log.level_unexpected *--
130: --* : g_module_name *--
123: --* : p_acct_value_set_id Account Value Set Id *--
124: --* : p_error_code Return Error Code *--
125: --* : p_error_desc Return Error Description *--
126: --* Global Vars : fnd_log.g_current_runtime_level *--
127: --* : fnd_log.level_procedure *--
128: --* : fnd_log.level_statement *--
129: --* : fnd_log.level_unexpected *--
130: --* : g_module_name *--
131: --* : g_SUCCESS *--
124: --* : p_error_code Return Error Code *--
125: --* : p_error_desc Return Error Description *--
126: --* Global Vars : fnd_log.g_current_runtime_level *--
127: --* : fnd_log.level_procedure *--
128: --* : fnd_log.level_statement *--
129: --* : fnd_log.level_unexpected *--
130: --* : g_module_name *--
131: --* : g_SUCCESS *--
132: --* Called from : derive_balances *--
125: --* : p_error_desc Return Error Description *--
126: --* Global Vars : fnd_log.g_current_runtime_level *--
127: --* : fnd_log.level_procedure *--
128: --* : fnd_log.level_statement *--
129: --* : fnd_log.level_unexpected *--
130: --* : g_module_name *--
131: --* : g_SUCCESS *--
132: --* Called from : derive_balances *--
133: --* Calls : fv_utility.debug_mesg *--
187: BEGIN
188: l_module_name := g_module_name || 'explode_accounts';
189: p_error_code := g_SUCCESS;
190:
191: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
192: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
193: END IF;
194:
195: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
188: l_module_name := g_module_name || 'explode_accounts';
189: p_error_code := g_SUCCESS;
190:
191: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
192: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
193: END IF;
194:
195: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
196: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
191: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
192: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
193: END IF;
194:
195: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
196: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
197: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_value_set_id = '||p_acct_value_set_id);
198: END IF;
199:
192: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
193: END IF;
194:
195: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
196: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
197: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_value_set_id = '||p_acct_value_set_id);
198: END IF;
199:
200: FOR account_rec IN (SELECT fsgl.ussgl_account,
193: END IF;
194:
195: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
196: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
197: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_value_set_id = '||p_acct_value_set_id);
198: END IF;
199:
200: FOR account_rec IN (SELECT fsgl.ussgl_account,
201: fa.public_law_code,
230: WHEN OTHERS THEN
231: p_error_code := g_FAILURE;
232: p_error_desc := SQLERRM;
233: l_location := l_module_name||'insert_fv_factsii_accounts_gt';
234: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
235: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
236: END;
237:
238: IF (p_error_code = g_SUCCESS) THEN
231: p_error_code := g_FAILURE;
232: p_error_desc := SQLERRM;
233: l_location := l_module_name||'insert_fv_factsii_accounts_gt';
234: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
235: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
236: END;
237:
238: IF (p_error_code = g_SUCCESS) THEN
239: FOR get_hierarchies_rec IN get_hierarchies_cursor(account_rec.ussgl_account,
262: WHEN OTHERS THEN
263: p_error_code := g_FAILURE;
264: p_error_desc := SQLERRM;
265: l_location := l_module_name||'insert_fv_factsii_accounts_gt2';
266: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
267: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
268: END;
269: IF (p_error_code <> g_SUCCESS) THEN
270: EXIT;
263: p_error_code := g_FAILURE;
264: p_error_desc := SQLERRM;
265: l_location := l_module_name||'insert_fv_factsii_accounts_gt2';
266: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
267: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
268: END;
269: IF (p_error_code <> g_SUCCESS) THEN
270: EXIT;
271: END IF;
281: EXIT;
282: END IF;
283: END LOOP;
284:
285: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
286: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
287: END IF;
288: EXCEPTION
289: WHEN OTHERS THEN
282: END IF;
283: END LOOP;
284:
285: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
286: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
287: END IF;
288: EXCEPTION
289: WHEN OTHERS THEN
290: p_error_code := g_FAILURE;
289: WHEN OTHERS THEN
290: p_error_code := g_FAILURE;
291: p_error_desc := SQLERRM;
292: l_location := l_module_name||'.final_exception';
293: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
294: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
295: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
296: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
297: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
290: p_error_code := g_FAILURE;
291: p_error_desc := SQLERRM;
292: l_location := l_module_name||'.final_exception';
293: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
294: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
295: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
296: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
297: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
298: END IF;
291: p_error_desc := SQLERRM;
292: l_location := l_module_name||'.final_exception';
293: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
294: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
295: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
296: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
297: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
298: END IF;
299: END;
292: l_location := l_module_name||'.final_exception';
293: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
294: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
295: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
296: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
297: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
298: END IF;
299: END;
300:
293: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
294: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
295: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
296: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
297: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
298: END IF;
299: END;
300:
301: --****************************************************************************************--
320: --* : p_tr_main_acct_col OUT Returns the Main Account attribute col *--
321: --* : p_tr_dept_id_col OUT Returns the Department Id attribute col *--
322: --* : p_error_code OUT Return Error Code *--
323: --* : p_error_desc OUT Return Error Description *--
324: --* Global Vars : fnd_log.g_current_runtime_level *--
325: --* : fnd_log.level_procedure *--
326: --* : fnd_log.level_statement *--
327: --* : fnd_log.level_unexpected *--
328: --* : g_module_name *--
321: --* : p_tr_dept_id_col OUT Returns the Department Id attribute col *--
322: --* : p_error_code OUT Return Error Code *--
323: --* : p_error_desc OUT Return Error Description *--
324: --* Global Vars : fnd_log.g_current_runtime_level *--
325: --* : fnd_log.level_procedure *--
326: --* : fnd_log.level_statement *--
327: --* : fnd_log.level_unexpected *--
328: --* : g_module_name *--
329: --* : g_SUCCESS *--
322: --* : p_error_code OUT Return Error Code *--
323: --* : p_error_desc OUT Return Error Description *--
324: --* Global Vars : fnd_log.g_current_runtime_level *--
325: --* : fnd_log.level_procedure *--
326: --* : fnd_log.level_statement *--
327: --* : fnd_log.level_unexpected *--
328: --* : g_module_name *--
329: --* : g_SUCCESS *--
330: --* Called from : derive_balances *--
323: --* : p_error_desc OUT Return Error Description *--
324: --* Global Vars : fnd_log.g_current_runtime_level *--
325: --* : fnd_log.level_procedure *--
326: --* : fnd_log.level_statement *--
327: --* : fnd_log.level_unexpected *--
328: --* : g_module_name *--
329: --* : g_SUCCESS *--
330: --* Called from : derive_balances *--
331: --* Calls : fv_utility.debug_mesg *--
380: p_chart_of_accounts_id := NULL;
381: p_acct_segment := NULL;
382: p_acct_value_set_id := NULL;
383:
384: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
385: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
386: END IF;
387:
388: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
381: p_acct_segment := NULL;
382: p_acct_value_set_id := NULL;
383:
384: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
385: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
386: END IF;
387:
388: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
389: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
384: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
385: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
386: END IF;
387:
388: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
389: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
390: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
391: END IF;
392:
385: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
386: END IF;
387:
388: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
389: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
390: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
391: END IF;
392:
393: IF (p_error_code = g_SUCCESS) THEN
386: END IF;
387:
388: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
389: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
390: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
391: END IF;
392:
393: IF (p_error_code = g_SUCCESS) THEN
394: BEGIN
397: INTO p_chart_of_accounts_id
398: FROM gl_ledgers_public_v glp
399: WHERE glp.ledger_id = p_ledger_id;
400:
401: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
402: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id='||p_chart_of_accounts_id);
403: END IF;
404: EXCEPTION
405: WHEN OTHERS THEN
398: FROM gl_ledgers_public_v glp
399: WHERE glp.ledger_id = p_ledger_id;
400:
401: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
402: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id='||p_chart_of_accounts_id);
403: END IF;
404: EXCEPTION
405: WHEN OTHERS THEN
406: p_error_code := g_FAILURE;
405: WHEN OTHERS THEN
406: p_error_code := g_FAILURE;
407: p_error_desc := SQLERRM;
408: l_location := l_module_name||'select chart_of_accounts_id';
409: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
410: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
411: END;
412: END IF;
413:
406: p_error_code := g_FAILURE;
407: p_error_desc := SQLERRM;
408: l_location := l_module_name||'select chart_of_accounts_id';
409: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
410: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
411: END;
412: END IF;
413:
414: IF (p_error_code = g_SUCCESS) THEN
411: END;
412: END IF;
413:
414: IF (p_error_code = g_SUCCESS) THEN
415: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
416: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
417: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
418: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
412: END IF;
413:
414: IF (p_error_code = g_SUCCESS) THEN
415: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
416: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
417: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
418: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_acct_seg_attr_type);
413:
414: IF (p_error_code = g_SUCCESS) THEN
415: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
416: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
417: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
418: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_acct_seg_attr_type);
421: END IF;
414: IF (p_error_code = g_SUCCESS) THEN
415: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
416: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
417: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
418: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_acct_seg_attr_type);
421: END IF;
422: l_retval := fnd_flex_apis.get_segment_column
415: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
416: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
417: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
418: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_acct_seg_attr_type);
421: END IF;
422: l_retval := fnd_flex_apis.get_segment_column
423: (
416: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
417: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
418: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_acct_seg_attr_type);
421: END IF;
422: l_retval := fnd_flex_apis.get_segment_column
423: (
424: x_application_id => l_application_id,
426: x_id_flex_num => p_chart_of_accounts_id,
427: x_seg_attr_type => l_acct_seg_attr_type,
428: x_app_column_name => p_acct_segment
429: );
430: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
431: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment ='||p_acct_segment);
432: END IF;
433: IF (NOT l_retval) THEN
434: p_error_code := g_FAILURE;
427: x_seg_attr_type => l_acct_seg_attr_type,
428: x_app_column_name => p_acct_segment
429: );
430: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
431: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment ='||p_acct_segment);
432: END IF;
433: IF (NOT l_retval) THEN
434: p_error_code := g_FAILURE;
435: p_error_desc := fnd_message.get;
433: IF (NOT l_retval) THEN
434: p_error_code := g_FAILURE;
435: p_error_desc := fnd_message.get;
436: l_location := l_module_name||'call_fnd_flex_apis.get_segment_column';
437: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
438: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
439: END IF;
440: END IF;
441:
434: p_error_code := g_FAILURE;
435: p_error_desc := fnd_message.get;
436: l_location := l_module_name||'call_fnd_flex_apis.get_segment_column';
437: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
438: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
439: END IF;
440: END IF;
441:
442: IF (p_error_code = g_SUCCESS) THEN
439: END IF;
440: END IF;
441:
442: IF (p_error_code = g_SUCCESS) THEN
443: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
444: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
445: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
446: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
447: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
440: END IF;
441:
442: IF (p_error_code = g_SUCCESS) THEN
443: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
444: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
445: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
446: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
447: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
448: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_bal_seg_attr_type);
441:
442: IF (p_error_code = g_SUCCESS) THEN
443: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
444: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
445: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
446: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
447: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
448: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_bal_seg_attr_type);
449: END IF;
442: IF (p_error_code = g_SUCCESS) THEN
443: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
444: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
445: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
446: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
447: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
448: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_bal_seg_attr_type);
449: END IF;
450: l_retval := fnd_flex_apis.get_segment_column
443: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
444: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
445: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
446: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
447: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
448: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_bal_seg_attr_type);
449: END IF;
450: l_retval := fnd_flex_apis.get_segment_column
451: (
444: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
445: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
446: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
447: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
448: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_bal_seg_attr_type);
449: END IF;
450: l_retval := fnd_flex_apis.get_segment_column
451: (
452: x_application_id => l_application_id,
454: x_id_flex_num => p_chart_of_accounts_id,
455: x_seg_attr_type => l_bal_seg_attr_type,
456: x_app_column_name => p_bal_segment
457: );
458: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
459: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment ='||p_acct_segment);
460: END IF;
461: IF (NOT l_retval) THEN
462: p_error_code := g_FAILURE;
455: x_seg_attr_type => l_bal_seg_attr_type,
456: x_app_column_name => p_bal_segment
457: );
458: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
459: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment ='||p_acct_segment);
460: END IF;
461: IF (NOT l_retval) THEN
462: p_error_code := g_FAILURE;
463: p_error_desc := fnd_message.get;
461: IF (NOT l_retval) THEN
462: p_error_code := g_FAILURE;
463: p_error_desc := fnd_message.get;
464: l_location := l_module_name||'call_fnd_flex_apis.get_segment_column';
465: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
466: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
467: END IF;
468: END IF;
469:
462: p_error_code := g_FAILURE;
463: p_error_desc := fnd_message.get;
464: l_location := l_module_name||'call_fnd_flex_apis.get_segment_column';
465: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
466: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
467: END IF;
468: END IF;
469:
470: IF (p_error_code = g_SUCCESS) THEN
481: WHEN OTHERS THEN
482: p_error_code := g_FAILURE;
483: p_error_desc := SQLERRM;
484: l_location := l_module_name||'select_fnd_id_flex_segments';
485: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
486: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
487: END;
488: END IF;
489:
482: p_error_code := g_FAILURE;
483: p_error_desc := SQLERRM;
484: l_location := l_module_name||'select_fnd_id_flex_segments';
485: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
486: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
487: END;
488: END IF;
489:
490: IF (p_error_code = g_SUCCESS) THEN
499: WHEN OTHERS THEN
500: p_error_code := g_FAILURE;
501: p_error_desc := SQLERRM;
502: l_location := l_module_name||'select_gl_period_statuses';
503: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
504: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
505: END;
506: END IF;
507:
500: p_error_code := g_FAILURE;
501: p_error_desc := SQLERRM;
502: l_location := l_module_name||'select_gl_period_statuses';
503: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
504: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
505: END;
506: END IF;
507:
508: IF (p_error_code = g_SUCCESS) THEN
520: WHEN OTHERS THEN
521: p_error_code := g_FAILURE;
522: p_error_desc := SQLERRM;
523: l_location := l_module_name||'select_gl_period_statuses';
524: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
525: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
526: END;
527: END IF;
528:
521: p_error_code := g_FAILURE;
522: p_error_desc := SQLERRM;
523: l_location := l_module_name||'select_gl_period_statuses';
524: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
525: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
526: END;
527: END IF;
528:
529: IF (p_error_code = g_SUCCESS) THEN
536: WHEN OTHERS THEN
537: p_error_code := g_FAILURE;
538: p_error_desc := SQLERRM;
539: l_location := l_module_name||'select_fv_pya_fiscalyear_segment';
540: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
541: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
542: END;
543: END IF;
544:
537: p_error_code := g_FAILURE;
538: p_error_desc := SQLERRM;
539: l_location := l_module_name||'select_fv_pya_fiscalyear_segment';
540: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
541: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
542: END;
543: END IF;
544:
545: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
541: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
542: END;
543: END IF;
544:
545: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
546: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
547: END IF;
548: EXCEPTION
549: WHEN OTHERS THEN
542: END;
543: END IF;
544:
545: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
546: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
547: END IF;
548: EXCEPTION
549: WHEN OTHERS THEN
550: p_error_code := g_FAILURE;
549: WHEN OTHERS THEN
550: p_error_code := g_FAILURE;
551: p_error_desc := SQLERRM;
552: l_location := l_module_name||'.final_exception';
553: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
554: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
555: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
556: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
557: END IF;
550: p_error_code := g_FAILURE;
551: p_error_desc := SQLERRM;
552: l_location := l_module_name||'.final_exception';
553: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
554: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
555: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
556: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
557: END IF;
558: END;
551: p_error_desc := SQLERRM;
552: l_location := l_module_name||'.final_exception';
553: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
554: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
555: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
556: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
557: END IF;
558: END;
559:
552: l_location := l_module_name||'.final_exception';
553: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
554: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
555: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
556: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
557: END IF;
558: END;
559:
560: --****************************************************************************************--
565: --* Parameters : p_ledger_id IN Set Of Books Id *--
566: --* : p_fiscal_year IN Fiscal Year *--
567: --* : p_error_code OUT Return Error Code *--
568: --* : p_error_desc OUT Return Error Descion *--
569: --* Global Vars : fnd_log.g_current_runtime_level *--
570: --* : fnd_log.level_procedure *--
571: --* : fnd_log.level_statement *--
572: --* : fnd_log.level_unexpected *--
573: --* : g_module_name *--
566: --* : p_fiscal_year IN Fiscal Year *--
567: --* : p_error_code OUT Return Error Code *--
568: --* : p_error_desc OUT Return Error Descion *--
569: --* Global Vars : fnd_log.g_current_runtime_level *--
570: --* : fnd_log.level_procedure *--
571: --* : fnd_log.level_statement *--
572: --* : fnd_log.level_unexpected *--
573: --* : g_module_name *--
574: --* : g_SUCCESS *--
567: --* : p_error_code OUT Return Error Code *--
568: --* : p_error_desc OUT Return Error Descion *--
569: --* Global Vars : fnd_log.g_current_runtime_level *--
570: --* : fnd_log.level_procedure *--
571: --* : fnd_log.level_statement *--
572: --* : fnd_log.level_unexpected *--
573: --* : g_module_name *--
574: --* : g_SUCCESS *--
575: --* Called from : derive_balances *--
568: --* : p_error_desc OUT Return Error Descion *--
569: --* Global Vars : fnd_log.g_current_runtime_level *--
570: --* : fnd_log.level_procedure *--
571: --* : fnd_log.level_statement *--
572: --* : fnd_log.level_unexpected *--
573: --* : g_module_name *--
574: --* : g_SUCCESS *--
575: --* Called from : derive_balances *--
576: --* Calls : fv_utility.debug_mesg *--
592: BEGIN
593: l_module_name := g_module_name || 'purge_balances';
594: p_error_code := g_SUCCESS;
595:
596: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
597: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
598: END IF;
599:
600: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
593: l_module_name := g_module_name || 'purge_balances';
594: p_error_code := g_SUCCESS;
595:
596: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
597: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
598: END IF;
599:
600: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
601: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
596: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
597: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
598: END IF;
599:
600: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
601: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
602: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
603: END IF;
604:
597: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
598: END IF;
599:
600: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
601: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
602: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
603: END IF;
604:
605: BEGIN
598: END IF;
599:
600: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
601: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
602: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
603: END IF;
604:
605: BEGIN
606: DELETE fv_factsii_ending_balances
610: WHEN OTHERS THEN
611: p_error_code := g_FAILURE;
612: p_error_desc := SQLERRM;
613: l_location := l_module_name||'delete_fv_factsii_ending_balances';
614: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
615: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
616: END;
617:
618: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
611: p_error_code := g_FAILURE;
612: p_error_desc := SQLERRM;
613: l_location := l_module_name||'delete_fv_factsii_ending_balances';
614: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
615: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
616: END;
617:
618: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
619: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
614: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
615: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
616: END;
617:
618: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
619: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
620: END IF;
621:
622: EXCEPTION
615: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
616: END;
617:
618: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
619: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
620: END IF;
621:
622: EXCEPTION
623: WHEN OTHERS THEN
623: WHEN OTHERS THEN
624: p_error_code := g_FAILURE;
625: p_error_desc := SQLERRM;
626: l_location := l_module_name||'.final_exception';
627: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
628: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
629: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
630: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
631: END IF;
624: p_error_code := g_FAILURE;
625: p_error_desc := SQLERRM;
626: l_location := l_module_name||'.final_exception';
627: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
628: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
629: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
630: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
631: END IF;
632: END;
625: p_error_desc := SQLERRM;
626: l_location := l_module_name||'.final_exception';
627: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
628: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
629: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
630: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
631: END IF;
632: END;
633:
626: l_location := l_module_name||'.final_exception';
627: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
628: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
629: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
630: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
631: END IF;
632: END;
633:
634:
638: --* Purpose :
639: --* Parameters :
640: --* : p_error_code OUT Return Error Code *--
641: --* : p_error_desc OUT Return Error Descion *--
642: --* Global Vars : fnd_log.g_current_runtime_level *--
643: --* : fnd_log.level_procedure *--
644: --* : fnd_log.level_statement *--
645: --* : fnd_log.level_unexpected *--
646: --* : g_module_name *--
639: --* Parameters :
640: --* : p_error_code OUT Return Error Code *--
641: --* : p_error_desc OUT Return Error Descion *--
642: --* Global Vars : fnd_log.g_current_runtime_level *--
643: --* : fnd_log.level_procedure *--
644: --* : fnd_log.level_statement *--
645: --* : fnd_log.level_unexpected *--
646: --* : g_module_name *--
647: --* : g_SUCCESS *--
640: --* : p_error_code OUT Return Error Code *--
641: --* : p_error_desc OUT Return Error Descion *--
642: --* Global Vars : fnd_log.g_current_runtime_level *--
643: --* : fnd_log.level_procedure *--
644: --* : fnd_log.level_statement *--
645: --* : fnd_log.level_unexpected *--
646: --* : g_module_name *--
647: --* : g_SUCCESS *--
648: --* Called from : start_processing *--
641: --* : p_error_desc OUT Return Error Descion *--
642: --* Global Vars : fnd_log.g_current_runtime_level *--
643: --* : fnd_log.level_procedure *--
644: --* : fnd_log.level_statement *--
645: --* : fnd_log.level_unexpected *--
646: --* : g_module_name *--
647: --* : g_SUCCESS *--
648: --* Called from : start_processing *--
649: --* Calls : fv_utility.debug_mesg *--
666: BEGIN
667: l_module_name := g_module_name || 'get_treasury_info';
668: p_error_code := g_SUCCESS;
669:
670: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
671: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
672: END IF;
673:
674: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
667: l_module_name := g_module_name || 'get_treasury_info';
668: p_error_code := g_SUCCESS;
669:
670: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
671: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
672: END IF;
673:
674: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
675: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
670: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
671: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
672: END IF;
673:
674: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
675: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
676: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fund_value = '||p_fund_value);
677: END IF;
678:
671: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
672: END IF;
673:
674: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
675: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
676: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fund_value = '||p_fund_value);
677: END IF;
678:
679: BEGIN
672: END IF;
673:
674: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
675: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
676: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fund_value = '||p_fund_value);
677: END IF;
678:
679: BEGIN
680: SELECT fp.treasury_symbol_id,
694: WHEN OTHERS THEN
695: p_error_code := g_FAILURE;
696: p_error_desc := SQLERRM;
697: l_location := l_module_name||'select_fv_fund_parameters';
698: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
699: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
700: END;
701:
702: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
695: p_error_code := g_FAILURE;
696: p_error_desc := SQLERRM;
697: l_location := l_module_name||'select_fv_fund_parameters';
698: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
699: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
700: END;
701:
702: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
703: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
698: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
699: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
700: END;
701:
702: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
703: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
704: END IF;
705:
706: EXCEPTION
699: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
700: END;
701:
702: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
703: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
704: END IF;
705:
706: EXCEPTION
707: WHEN OTHERS THEN
707: WHEN OTHERS THEN
708: p_error_code := g_FAILURE;
709: p_error_desc := SQLERRM;
710: l_location := l_module_name||'.final_exception';
711: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
712: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
713: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
714: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
715: END IF;
708: p_error_code := g_FAILURE;
709: p_error_desc := SQLERRM;
710: l_location := l_module_name||'.final_exception';
711: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
712: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
713: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
714: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
715: END IF;
716: END;
709: p_error_desc := SQLERRM;
710: l_location := l_module_name||'.final_exception';
711: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
712: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
713: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
714: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
715: END IF;
716: END;
717:
710: l_location := l_module_name||'.final_exception';
711: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
712: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
713: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
714: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
715: END IF;
716: END;
717:
718: --****************************************************************************************--
731: --* : p_tr_main_acct_col IN Transfer Main Account Attribute column *--
732: --* : p_tr_dept_id_col IN Department Id Attribute column *--
733: --* : p_error_code OUT Return Error Code *--
734: --* : p_error_desc OUT Return Error Descion *--
735: --* Global Vars : fnd_log.g_current_runtime_level *--
736: --* : fnd_log.level_procedure *--
737: --* : fnd_log.level_statement *--
738: --* : fnd_log.level_unexpected *--
739: --* : g_module_name *--
732: --* : p_tr_dept_id_col IN Department Id Attribute column *--
733: --* : p_error_code OUT Return Error Code *--
734: --* : p_error_desc OUT Return Error Descion *--
735: --* Global Vars : fnd_log.g_current_runtime_level *--
736: --* : fnd_log.level_procedure *--
737: --* : fnd_log.level_statement *--
738: --* : fnd_log.level_unexpected *--
739: --* : g_module_name *--
740: --* : g_SUCCESS *--
733: --* : p_error_code OUT Return Error Code *--
734: --* : p_error_desc OUT Return Error Descion *--
735: --* Global Vars : fnd_log.g_current_runtime_level *--
736: --* : fnd_log.level_procedure *--
737: --* : fnd_log.level_statement *--
738: --* : fnd_log.level_unexpected *--
739: --* : g_module_name *--
740: --* : g_SUCCESS *--
741: --* Called from : derive_balances *--
734: --* : p_error_desc OUT Return Error Descion *--
735: --* Global Vars : fnd_log.g_current_runtime_level *--
736: --* : fnd_log.level_procedure *--
737: --* : fnd_log.level_statement *--
738: --* : fnd_log.level_unexpected *--
739: --* : g_module_name *--
740: --* : g_SUCCESS *--
741: --* Called from : derive_balances *--
742: --* Calls : fv_utility.debug_mesg *--
802: BEGIN
803: l_module_name := g_module_name || 'start_processing';
804: p_error_code := g_SUCCESS;
805:
806: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
807: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
808: END IF;
809:
810: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
803: l_module_name := g_module_name || 'start_processing';
804: p_error_code := g_SUCCESS;
805:
806: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
807: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
808: END IF;
809:
810: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
811: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
806: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
807: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
808: END IF;
809:
810: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
811: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
812: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment = '||p_acct_segment);
813: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment = '||p_bal_segment);
814: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fyr_segment = '||p_fyr_segment);
807: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
808: END IF;
809:
810: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
811: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
812: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment = '||p_acct_segment);
813: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment = '||p_bal_segment);
814: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fyr_segment = '||p_fyr_segment);
815: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
808: END IF;
809:
810: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
811: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
812: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment = '||p_acct_segment);
813: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment = '||p_bal_segment);
814: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fyr_segment = '||p_fyr_segment);
815: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
816: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_last_period_num = '||p_last_period_num);
809:
810: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
811: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
812: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment = '||p_acct_segment);
813: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment = '||p_bal_segment);
814: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fyr_segment = '||p_fyr_segment);
815: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
816: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_last_period_num = '||p_last_period_num);
817: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_pub_law_code_col = '||p_pub_law_code_col);
810: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
811: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
812: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment = '||p_acct_segment);
813: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment = '||p_bal_segment);
814: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fyr_segment = '||p_fyr_segment);
815: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
816: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_last_period_num = '||p_last_period_num);
817: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_pub_law_code_col = '||p_pub_law_code_col);
818: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_advance_type_col = '||p_advance_type_col);
811: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
812: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment = '||p_acct_segment);
813: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment = '||p_bal_segment);
814: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fyr_segment = '||p_fyr_segment);
815: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
816: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_last_period_num = '||p_last_period_num);
817: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_pub_law_code_col = '||p_pub_law_code_col);
818: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_advance_type_col = '||p_advance_type_col);
819: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_tr_main_acct_col = '||p_tr_main_acct_col);
812: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment = '||p_acct_segment);
813: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment = '||p_bal_segment);
814: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fyr_segment = '||p_fyr_segment);
815: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
816: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_last_period_num = '||p_last_period_num);
817: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_pub_law_code_col = '||p_pub_law_code_col);
818: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_advance_type_col = '||p_advance_type_col);
819: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_tr_main_acct_col = '||p_tr_main_acct_col);
820: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_tr_dept_id_col = '||p_tr_dept_id_col);
813: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment = '||p_bal_segment);
814: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fyr_segment = '||p_fyr_segment);
815: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
816: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_last_period_num = '||p_last_period_num);
817: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_pub_law_code_col = '||p_pub_law_code_col);
818: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_advance_type_col = '||p_advance_type_col);
819: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_tr_main_acct_col = '||p_tr_main_acct_col);
820: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_tr_dept_id_col = '||p_tr_dept_id_col);
821: END IF;
814: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fyr_segment = '||p_fyr_segment);
815: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
816: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_last_period_num = '||p_last_period_num);
817: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_pub_law_code_col = '||p_pub_law_code_col);
818: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_advance_type_col = '||p_advance_type_col);
819: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_tr_main_acct_col = '||p_tr_main_acct_col);
820: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_tr_dept_id_col = '||p_tr_dept_id_col);
821: END IF;
822:
815: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
816: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_last_period_num = '||p_last_period_num);
817: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_pub_law_code_col = '||p_pub_law_code_col);
818: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_advance_type_col = '||p_advance_type_col);
819: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_tr_main_acct_col = '||p_tr_main_acct_col);
820: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_tr_dept_id_col = '||p_tr_dept_id_col);
821: END IF;
822:
823:
816: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_last_period_num = '||p_last_period_num);
817: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_pub_law_code_col = '||p_pub_law_code_col);
818: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_advance_type_col = '||p_advance_type_col);
819: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_tr_main_acct_col = '||p_tr_main_acct_col);
820: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_tr_dept_id_col = '||p_tr_dept_id_col);
821: END IF;
822:
823:
824: l_attribute_columns := NULL;
1043: WHEN OTHERS THEN
1044: p_error_code := g_FAILURE;
1045: p_error_desc := SQLERRM;
1046: l_location := l_module_name||'open_balances_cur';
1047: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1048: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1049: END;
1050:
1051: IF (p_error_code = g_SUCCESS) THEN
1044: p_error_code := g_FAILURE;
1045: p_error_desc := SQLERRM;
1046: l_location := l_module_name||'open_balances_cur';
1047: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1048: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1049: END;
1050:
1051: IF (p_error_code = g_SUCCESS) THEN
1052: LOOP
1096: WHEN OTHERS THEN
1097: p_error_code := g_FAILURE;
1098: p_error_desc := SQLERRM;
1099: l_location := l_module_name||'open_balances_cur';
1100: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1101: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1102: END;
1103:
1104: IF (p_error_code = g_SUCCESS) THEN
1097: p_error_code := g_FAILURE;
1098: p_error_desc := SQLERRM;
1099: l_location := l_module_name||'open_balances_cur';
1100: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1101: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1102: END;
1103:
1104: IF (p_error_code = g_SUCCESS) THEN
1105: IF balances_cur%NOTFOUND THEN
1135: WHEN OTHERS THEN
1136: p_error_code := g_FAILURE;
1137: p_error_desc := SQLERRM;
1138: l_location := l_module_name||'open_gl_cur';
1139: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1140: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1141: END;
1142: END IF;
1143:
1136: p_error_code := g_FAILURE;
1137: p_error_desc := SQLERRM;
1138: l_location := l_module_name||'open_gl_cur';
1139: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1140: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1141: END;
1142: END IF;
1143:
1144: IF (p_error_code = g_SUCCESS) THEN
1148: WHEN OTHERS THEN
1149: p_error_code := g_FAILURE;
1150: p_error_desc := SQLERRM;
1151: l_location := l_module_name||'parse_gl_cur';
1152: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1153: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1154: END;
1155: END IF;
1156:
1149: p_error_code := g_FAILURE;
1150: p_error_desc := SQLERRM;
1151: l_location := l_module_name||'parse_gl_cur';
1152: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1153: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1154: END;
1155: END IF;
1156:
1157: IF (p_error_code = g_SUCCESS) THEN
1175: WHEN OTHERS THEN
1176: p_error_code := g_FAILURE;
1177: p_error_desc := SQLERRM;
1178: l_location := l_module_name||'bind_gl_cur';
1179: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1180: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1181: END;
1182: END IF;
1183:
1176: p_error_code := g_FAILURE;
1177: p_error_desc := SQLERRM;
1178: l_location := l_module_name||'bind_gl_cur';
1179: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1180: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1181: END;
1182: END IF;
1183:
1184: IF (p_error_code = g_SUCCESS) THEN
1188: WHEN OTHERS THEN
1189: p_error_code := g_FAILURE;
1190: p_error_desc := SQLERRM;
1191: l_location := l_module_name||'execute_gl_cur';
1192: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1193: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1194: END;
1195: END IF;
1196:
1189: p_error_code := g_FAILURE;
1190: p_error_desc := SQLERRM;
1191: l_location := l_module_name||'execute_gl_cur';
1192: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1193: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1194: END;
1195: END IF;
1196:
1197: IF (p_error_code = g_SUCCESS) THEN
1201: WHEN OTHERS THEN
1202: p_error_code := g_FAILURE;
1203: p_error_desc := SQLERRM;
1204: l_location := l_module_name||'close_gl_cur';
1205: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1206: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1207: END;
1208: END IF;
1209: IF (p_error_code = g_SUCCESS) THEN
1202: p_error_code := g_FAILURE;
1203: p_error_desc := SQLERRM;
1204: l_location := l_module_name||'close_gl_cur';
1205: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1206: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1207: END;
1208: END IF;
1209: IF (p_error_code = g_SUCCESS) THEN
1210: FOR previous_year_rec IN (SELECT *
1231: WHEN OTHERS THEN
1232: p_error_code := g_FAILURE;
1233: p_error_desc := SQLERRM;
1234: l_location := l_module_name||'update_fv_factsii_ending_balances';
1235: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1236: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1237: END;
1238:
1239: IF (p_error_code = g_SUCCESS) THEN
1232: p_error_code := g_FAILURE;
1233: p_error_desc := SQLERRM;
1234: l_location := l_module_name||'update_fv_factsii_ending_balances';
1235: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1236: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1237: END;
1238:
1239: IF (p_error_code = g_SUCCESS) THEN
1240: IF (l_insert_required) THEN
1291: WHEN OTHERS THEN
1292: p_error_code := g_FAILURE;
1293: p_error_desc := SQLERRM;
1294: l_location := l_module_name||'insert_fv_factsii_ending_balances1';
1295: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1296: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1297: END;
1298: END IF;
1299: END IF;
1292: p_error_code := g_FAILURE;
1293: p_error_desc := SQLERRM;
1294: l_location := l_module_name||'insert_fv_factsii_ending_balances1';
1295: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1296: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1297: END;
1298: END IF;
1299: END IF;
1300:
1316: WHEN OTHERS THEN
1317: p_error_code := g_FAILURE;
1318: p_error_desc := SQLERRM;
1319: l_location := l_module_name||'select_fv_factsii_ending_balances';
1320: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1321: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1322: END;
1323: END IF;
1324:
1317: p_error_code := g_FAILURE;
1318: p_error_desc := SQLERRM;
1319: l_location := l_module_name||'select_fv_factsii_ending_balances';
1320: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1321: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1322: END;
1323: END IF;
1324:
1325: IF (p_error_code = g_SUCCESS) THEN
1382: WHEN OTHERS THEN
1383: p_error_code := g_FAILURE;
1384: p_error_desc := SQLERRM;
1385: l_location := l_module_name||'INSERT INTO fv_factsii_ending_balances';
1386: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1387: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1388: END;
1389: END IF;
1390: END IF;
1383: p_error_code := g_FAILURE;
1384: p_error_desc := SQLERRM;
1385: l_location := l_module_name||'INSERT INTO fv_factsii_ending_balances';
1386: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1387: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1388: END;
1389: END IF;
1390: END IF;
1391:
1423: WHEN OTHERS THEN
1424: p_error_code := g_FAILURE;
1425: p_error_desc := SQLERRM;
1426: l_location := l_module_name||'DELETE FROM fv_factsii_ending_balances1';
1427: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1428: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1429: END;
1430: END IF;
1431:
1424: p_error_code := g_FAILURE;
1425: p_error_desc := SQLERRM;
1426: l_location := l_module_name||'DELETE FROM fv_factsii_ending_balances1';
1427: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1428: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1429: END;
1430: END IF;
1431:
1432:
1429: END;
1430: END IF;
1431:
1432:
1433: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1434: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
1435: END IF;
1436:
1437: EXCEPTION
1430: END IF;
1431:
1432:
1433: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1434: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
1435: END IF;
1436:
1437: EXCEPTION
1438: WHEN OTHERS THEN
1438: WHEN OTHERS THEN
1439: p_error_code := g_FAILURE;
1440: p_error_desc := SQLERRM;
1441: l_location := l_module_name||'.final_exception';
1442: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1443: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1444: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1445: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
1446: END IF;
1439: p_error_code := g_FAILURE;
1440: p_error_desc := SQLERRM;
1441: l_location := l_module_name||'.final_exception';
1442: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1443: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1444: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1445: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
1446: END IF;
1447: END;
1440: p_error_desc := SQLERRM;
1441: l_location := l_module_name||'.final_exception';
1442: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1443: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1444: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1445: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
1446: END IF;
1447: END;
1448:
1441: l_location := l_module_name||'.final_exception';
1442: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1443: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1444: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1445: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_error_code||')');
1446: END IF;
1447: END;
1448:
1449:
1456: --* Parameters : p_ledger_id IN Set Of Books Id *--
1457: --* : p_fiscal_year IN Fiscal Year *--
1458: --* : p_error_code OUT Return Error Code *--
1459: --* : p_error_desc OUT Return Error Descion *--
1460: --* Global Vars : fnd_log.g_current_runtime_level *--
1461: --* : fnd_log.level_procedure *--
1462: --* : fnd_log.level_statement *--
1463: --* : fnd_log.level_unexpected *--
1464: --* : g_module_name *--
1457: --* : p_fiscal_year IN Fiscal Year *--
1458: --* : p_error_code OUT Return Error Code *--
1459: --* : p_error_desc OUT Return Error Descion *--
1460: --* Global Vars : fnd_log.g_current_runtime_level *--
1461: --* : fnd_log.level_procedure *--
1462: --* : fnd_log.level_statement *--
1463: --* : fnd_log.level_unexpected *--
1464: --* : g_module_name *--
1465: --* : g_SUCCESS *--
1458: --* : p_error_code OUT Return Error Code *--
1459: --* : p_error_desc OUT Return Error Descion *--
1460: --* Global Vars : fnd_log.g_current_runtime_level *--
1461: --* : fnd_log.level_procedure *--
1462: --* : fnd_log.level_statement *--
1463: --* : fnd_log.level_unexpected *--
1464: --* : g_module_name *--
1465: --* : g_SUCCESS *--
1466: --* Called from : derive_balances *--
1459: --* : p_error_desc OUT Return Error Descion *--
1460: --* Global Vars : fnd_log.g_current_runtime_level *--
1461: --* : fnd_log.level_procedure *--
1462: --* : fnd_log.level_statement *--
1463: --* : fnd_log.level_unexpected *--
1464: --* : g_module_name *--
1465: --* : g_SUCCESS *--
1466: --* Called from : derive_balances *--
1467: --* Calls : fv_utility.debug_mesg *--
1496: BEGIN
1497: l_module_name := g_module_name || 'derive_balances';
1498: p_retcode := g_SUCCESS;
1499:
1500: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1501: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
1502: END IF;
1503:
1504: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1497: l_module_name := g_module_name || 'derive_balances';
1498: p_retcode := g_SUCCESS;
1499:
1500: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1501: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
1502: END IF;
1503:
1504: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1505: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
1500: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1501: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
1502: END IF;
1503:
1504: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1505: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
1506: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
1507: END IF;
1508:
1501: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
1502: END IF;
1503:
1504: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1505: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
1506: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
1507: END IF;
1508:
1509: IF (p_retcode = g_SUCCESS) THEN
1502: END IF;
1503:
1504: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1505: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_ledger_id = '||p_ledger_id);
1506: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
1507: END IF;
1508:
1509: IF (p_retcode = g_SUCCESS) THEN
1510: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1506: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_fiscal_year = '||p_fiscal_year);
1507: END IF;
1508:
1509: IF (p_retcode = g_SUCCESS) THEN
1510: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1511: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling initialize_program_variables');
1512: END IF;
1513: initialize_program_variables
1514: (
1507: END IF;
1508:
1509: IF (p_retcode = g_SUCCESS) THEN
1510: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1511: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling initialize_program_variables');
1512: END IF;
1513: initialize_program_variables
1514: (
1515: p_ledger_id => p_ledger_id,
1526: p_tr_dept_id_col => l_tr_dept_id_col,
1527: p_error_code => p_retcode,
1528: p_error_desc => p_errbuff
1529: );
1530: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1531: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'initialize_program_variables returned '||p_retcode);
1532: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id='||l_chart_of_accounts_id);
1533: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment='||l_acct_segment);
1534: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_value_set_id='||l_acct_value_set_id);
1527: p_error_code => p_retcode,
1528: p_error_desc => p_errbuff
1529: );
1530: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1531: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'initialize_program_variables returned '||p_retcode);
1532: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id='||l_chart_of_accounts_id);
1533: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment='||l_acct_segment);
1534: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_value_set_id='||l_acct_value_set_id);
1535: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment='||l_bal_segment);
1528: p_error_desc => p_errbuff
1529: );
1530: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1531: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'initialize_program_variables returned '||p_retcode);
1532: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id='||l_chart_of_accounts_id);
1533: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment='||l_acct_segment);
1534: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_value_set_id='||l_acct_value_set_id);
1535: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment='||l_bal_segment);
1536: END IF;
1529: );
1530: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1531: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'initialize_program_variables returned '||p_retcode);
1532: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id='||l_chart_of_accounts_id);
1533: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment='||l_acct_segment);
1534: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_value_set_id='||l_acct_value_set_id);
1535: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment='||l_bal_segment);
1536: END IF;
1537: END IF;
1530: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1531: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'initialize_program_variables returned '||p_retcode);
1532: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id='||l_chart_of_accounts_id);
1533: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment='||l_acct_segment);
1534: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_value_set_id='||l_acct_value_set_id);
1535: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment='||l_bal_segment);
1536: END IF;
1537: END IF;
1538:
1531: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'initialize_program_variables returned '||p_retcode);
1532: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id='||l_chart_of_accounts_id);
1533: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment='||l_acct_segment);
1534: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_value_set_id='||l_acct_value_set_id);
1535: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_bal_segment='||l_bal_segment);
1536: END IF;
1537: END IF;
1538:
1539: IF (p_retcode = g_SUCCESS) THEN
1536: END IF;
1537: END IF;
1538:
1539: IF (p_retcode = g_SUCCESS) THEN
1540: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1541: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling purge_balances');
1542: END IF;
1543: purge_balances
1544: (
1537: END IF;
1538:
1539: IF (p_retcode = g_SUCCESS) THEN
1540: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1541: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling purge_balances');
1542: END IF;
1543: purge_balances
1544: (
1545: p_ledger_id => p_ledger_id,
1546: p_fiscal_year => p_fiscal_year,
1547: p_error_code => p_retcode,
1548: p_error_desc => p_errbuff
1549: );
1550: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1551: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'purge_balances returned '||p_retcode);
1552: END IF;
1553: END IF;
1554:
1547: p_error_code => p_retcode,
1548: p_error_desc => p_errbuff
1549: );
1550: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1551: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'purge_balances returned '||p_retcode);
1552: END IF;
1553: END IF;
1554:
1555: IF (p_retcode = g_SUCCESS) THEN
1552: END IF;
1553: END IF;
1554:
1555: IF (p_retcode = g_SUCCESS) THEN
1556: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1557: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling purge_balances');
1558: END IF;
1559: explode_accounts
1560: (
1553: END IF;
1554:
1555: IF (p_retcode = g_SUCCESS) THEN
1556: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1557: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling purge_balances');
1558: END IF;
1559: explode_accounts
1560: (
1561: p_ledger_id => p_ledger_id,
1562: p_acct_value_set_id => l_acct_value_set_id,
1563: p_error_code => p_retcode,
1564: p_error_desc => p_errbuff
1565: );
1566: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1567: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'purge_balances returned '||p_retcode);
1568: END IF;
1569: END IF;
1570:
1563: p_error_code => p_retcode,
1564: p_error_desc => p_errbuff
1565: );
1566: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1567: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'purge_balances returned '||p_retcode);
1568: END IF;
1569: END IF;
1570:
1571: IF (p_retcode = g_SUCCESS) THEN
1568: END IF;
1569: END IF;
1570:
1571: IF (p_retcode = g_SUCCESS) THEN
1572: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1573: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling start_processing');
1574: END IF;
1575: start_processing
1576: (
1569: END IF;
1570:
1571: IF (p_retcode = g_SUCCESS) THEN
1572: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1573: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling start_processing');
1574: END IF;
1575: start_processing
1576: (
1577: p_ledger_id => p_ledger_id,
1586: p_tr_dept_id_col => l_tr_dept_id_col,
1587: p_error_code => p_retcode,
1588: p_error_desc => p_errbuff
1589: );
1590: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1591: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'start_processing returned '||p_retcode);
1592: END IF;
1593: END IF;
1594:
1587: p_error_code => p_retcode,
1588: p_error_desc => p_errbuff
1589: );
1590: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1591: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'start_processing returned '||p_retcode);
1592: END IF;
1593: END IF;
1594:
1595: IF (p_retcode = g_SUCCESS OR p_retcode = g_WARNING) THEN
1605: p_error_code => p_retcode,
1606: p_error_desc => p_errbuff
1607: );
1608:
1609: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1610: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
1611: END IF;
1612:
1613: EXCEPTION
1606: p_error_desc => p_errbuff
1607: );
1608:
1609: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1610: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
1611: END IF;
1612:
1613: EXCEPTION
1614: WHEN OTHERS THEN
1614: WHEN OTHERS THEN
1615: p_retcode := g_FAILURE;
1616: p_errbuff := SQLERRM;
1617: l_location := l_module_name||'.final_exception';
1618: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1619: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuff) ;
1620: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1621: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
1622: END IF;
1615: p_retcode := g_FAILURE;
1616: p_errbuff := SQLERRM;
1617: l_location := l_module_name||'.final_exception';
1618: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1619: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuff) ;
1620: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1621: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
1622: END IF;
1623: ROLLBACK;
1616: p_errbuff := SQLERRM;
1617: l_location := l_module_name||'.final_exception';
1618: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1619: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuff) ;
1620: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1621: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
1622: END IF;
1623: ROLLBACK;
1624: END;
1617: l_location := l_module_name||'.final_exception';
1618: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1619: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuff) ;
1620: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1621: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
1622: END IF;
1623: ROLLBACK;
1624: END;
1625: BEGIN