52: ,pv_period_to IN VARCHAR2
53: )
54: IS
55: lv_procedure_name VARCHAR2(40) := 'Add_Asset_Category';
56: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
57: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
58: ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
59: ld_start_date DATE;
60: ld_end_date DATE;
53: )
54: IS
55: lv_procedure_name VARCHAR2(40) := 'Add_Asset_Category';
56: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
57: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
58: ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
59: ld_start_date DATE;
60: ld_end_date DATE;
61: ln_row_count NUMBER;
54: IS
55: lv_procedure_name VARCHAR2(40) := 'Add_Asset_Category';
56: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
57: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
58: ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
59: ld_start_date DATE;
60: ld_end_date DATE;
61: ln_row_count NUMBER;
62: lv_code_convention VARCHAR2(100);
182: BEGIN
183: --logging for debug
184: IF (ln_proc_level >= ln_dbg_level)
185: THEN
186: FND_LOG.STRING(ln_proc_level,
187: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
188: '.begin',
189: 'Enter procedure');
190: -- logging the parameters
187: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
188: '.begin',
189: 'Enter procedure');
190: -- logging the parameters
191: FND_LOG.STRING(ln_proc_level,
192: lv_procedure_name ||
193: '.parameters',
194: 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
195: 'pn_ledger_id=' || pn_ledger_id || ',' ||
235:
236: --logging the variables
237: IF (ln_statement_level >= ln_dbg_level)
238: THEN
239: FND_LOG.STRING(ln_statement_level,
240: lv_procedure_name,
241: 'ld_start_date' || ld_start_date || ',' ||
242: 'ld_end_date=' || ld_end_date);
243: END IF; --(ln_statement_level >= ln_dbg_level)
414:
415: --logging for debug
416: IF (ln_proc_level >= ln_dbg_level)
417: THEN
418: FND_LOG.STRING(ln_proc_level,
419: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
420: 'Exit procedure');
421: END IF; -- (ln_proc_level>=ln_dbg_level)
422: EXCEPTION
420: 'Exit procedure');
421: END IF; -- (ln_proc_level>=ln_dbg_level)
422: EXCEPTION
423: WHEN OTHERS THEN
424: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
425: THEN
426: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
427: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
428: '.Other_Exception ',
422: EXCEPTION
423: WHEN OTHERS THEN
424: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
425: THEN
426: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
427: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
428: '.Other_Exception ',
429: SQLCODE || SQLERRM);
430: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
426: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
427: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
428: '.Other_Exception ',
429: SQLCODE || SQLERRM);
430: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
431: FND_FILE.put_line(FND_FILE.log, lv_procedure_name || SQLCODE || SQLERRM);
432: RAISE;
433: END Add_Asset_Category;
434: