52: , pv_period_from IN VARCHAR2
53: , pv_period_to IN VARCHAR2
54: )
55: IS
56: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
57: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
58: lv_procedure_name VARCHAR2(40) := 'Add_FA_Usage_Info';
59: ld_start_date DATE;
60: ld_end_date DATE;
53: , pv_period_to IN VARCHAR2
54: )
55: IS
56: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
57: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
58: lv_procedure_name VARCHAR2(40) := 'Add_FA_Usage_Info';
59: ld_start_date DATE;
60: ld_end_date DATE;
61: ld_start_date_monthly DATE;
79: BEGIN
80: --logging for debug
81: IF (ln_proc_level>=ln_dbg_level)
82: THEN
83: FND_LOG.STRING( ln_proc_level
84: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
85: || '.begin'
86: , 'Enter procedure'
87: );
86: , 'Enter procedure'
87: );
88:
89: -- logging the parameters
90: FND_LOG.STRING( ln_proc_level
91: , lv_procedure_name || '.parameters'
92: , 'pn_legal_entity_id=' || pn_legal_entity_id|| ','
93: || 'pn_ledger_id=' || pn_ledger_id || ','
94: || 'pv_accounting_year=' || pv_accounting_year || ','
149:
150: --logging for debug
151: IF (ln_proc_level>=ln_dbg_level)
152: THEN
153: FND_LOG.STRING( ln_proc_level
154: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.end'
155: , 'Exit procedure');
156: END IF; -- (ln_proc_level>=ln_dbg_level)
157:
156: END IF; -- (ln_proc_level>=ln_dbg_level)
157:
158: EXCEPTION
159: WHEN OTHERS THEN
160: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
161: THEN
162: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
163: , GV_MODULE_PREFIX || '.' ||lv_procedure_name
164: || '.Other_Exception '
158: EXCEPTION
159: WHEN OTHERS THEN
160: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
161: THEN
162: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
163: , GV_MODULE_PREFIX || '.' ||lv_procedure_name
164: || '.Other_Exception '
165: , SQLCODE || SQLERRM);
166: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
162: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
163: , GV_MODULE_PREFIX || '.' ||lv_procedure_name
164: || '.Other_Exception '
165: , SQLCODE || SQLERRM);
166: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
167: FND_FILE.put_line( FND_FILE.log
168: , lv_procedure_name || SQLCODE || SQLERRM);
169: END Add_FA_Usage_Info;
170:
197: , pv_period_from IN VARCHAR2
198: , pv_period_to IN VARCHAR2
199: )
200: IS
201: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
202: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
203: ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
204: ln_full_retirement_count NUMBER := 0;
205: ln_transaction_header_id NUMBER := 0;
198: , pv_period_to IN VARCHAR2
199: )
200: IS
201: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
202: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
203: ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
204: ln_full_retirement_count NUMBER := 0;
205: ln_transaction_header_id NUMBER := 0;
206: ln_reinstate_count NUMBER := 0;
199: )
200: IS
201: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
202: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
203: ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
204: ln_full_retirement_count NUMBER := 0;
205: ln_transaction_header_id NUMBER := 0;
206: ln_reinstate_count NUMBER := 0;
207: ln_row_count NUMBER := 0;
409: BEGIN
410: --logging for debug
411: IF (ln_proc_level>=ln_dbg_level)
412: THEN
413: FND_LOG.STRING( ln_proc_level
414: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
415: || '.begin'
416: , 'Enter procedure');
417: -- logging the parameters
414: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
415: || '.begin'
416: , 'Enter procedure');
417: -- logging the parameters
418: FND_LOG.STRING( ln_proc_level
419: , lv_procedure_name || '.parameters'
420: , 'pn_legal_entity_id=' || pn_legal_entity_id|| ','
421: || 'pn_ledger_id=' || pn_ledger_id || ','
422: || 'pv_accounting_year=' || pv_accounting_year || ','
466: END IF; -- pv_period_to IS NOT NULL
467:
468: IF (ln_statement_level >= ln_dbg_level)
469: THEN
470: FND_LOG.STRING( ln_statement_level
471: , lv_procedure_name
472: , 'Fetched: start date='
473: || nvl(to_char(ld_start_date), 'null')
474: || ' end date=' || nvl(to_char(ld_end_date), 'null'));
481: || nvl(to_char(ld_end_date), 'null'));
482: --logging for debug
483: IF (ln_proc_level>=ln_dbg_level)
484: THEN
485: FND_LOG.STRING( ln_proc_level
486: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.start'
487: , 'Start procedure');
488: END IF; -- (ln_proc_level>=ln_dbg_level)
489:
744: );
745: END IF; --(ln_row_count = 0)
746: EXCEPTION
747: WHEN OTHERS THEN
748: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
749: THEN
750: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
751: , GV_MODULE_PREFIX || '.' || lv_procedure_name
752: || '.Other_Exception '
746: EXCEPTION
747: WHEN OTHERS THEN
748: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
749: THEN
750: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
751: , GV_MODULE_PREFIX || '.' || lv_procedure_name
752: || '.Other_Exception '
753: , SQLCODE || SQLERRM);
754: END IF; --(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
750: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
751: , GV_MODULE_PREFIX || '.' || lv_procedure_name
752: || '.Other_Exception '
753: , SQLCODE || SQLERRM);
754: END IF; --(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
755: FND_FILE.put_line( FND_FILE.log
756: , lv_procedure_name || SQLCODE || SQLERRM);
757: END Add_FA_Usage_Info_Monthly;
758: END JA_CN_PS_FA_ACUI_EXP_PKG;