45: )
46: RETURN NUMBER
47: IS
48: lv_procedure_name VARCHAR2(40) := 'Get_Budget_Expenditure_Amount';
49: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
50: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
51:
52: lv_bea_cursor_sql VARCHAR2(4000);
53: TYPE ref_cursor IS REF CURSOR;
46: RETURN NUMBER
47: IS
48: lv_procedure_name VARCHAR2(40) := 'Get_Budget_Expenditure_Amount';
49: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
50: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
51:
52: lv_bea_cursor_sql VARCHAR2(4000);
53: TYPE ref_cursor IS REF CURSOR;
54: lc_budget_exp_amount ref_cursor;
57: BEGIN
58: --logging for debug
59: IF (ln_proc_level >= ln_dbg_level)
60: THEN
61: FND_LOG.STRING(ln_proc_level,
62: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
63: '.begin',
64: 'Enter procedure');
65: -- logging the parameters
62: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
63: '.begin',
64: 'Enter procedure');
65: -- logging the parameters
66: FND_LOG.STRING(ln_proc_level,
67: lv_procedure_name ||
68: '.parameters',
69: 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
70: 'pn_ledger_id=' || pn_ledger_id || ',' ||
141:
142: --logging for debug
143: IF (ln_proc_level >= ln_dbg_level)
144: THEN
145: FND_LOG.STRING(ln_proc_level,
146: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
147: 'Exit procedure');
148: END IF; -- (ln_proc_level>=ln_dbg_level)
149:
150: RETURN ln_budget_exp_amount;
151:
152: EXCEPTION
153: WHEN OTHERS THEN
154: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
155: THEN
156: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
157: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
158: '.Other_Exception ',
152: EXCEPTION
153: WHEN OTHERS THEN
154: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
155: THEN
156: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
157: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
158: '.Other_Exception ',
159: SQLCODE || SQLERRM);
160: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
156: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
157: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
158: '.Other_Exception ',
159: SQLCODE || SQLERRM);
160: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
161: FND_FILE.put_line(FND_FILE.log, lv_procedure_name || SQLCODE || SQLERRM);
162:
163: END Get_Budget_Expenditure_Amount;
164: --==========================================================================
200: ,pv_period_to IN VARCHAR2
201: )
202: IS
203: lv_procedure_name VARCHAR2(40) := 'Add_Current_Year_Budget';
204: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
205: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
206:
207: lv_bi_cursor_sql VARCHAR2(4000);
208: lv_pi_cursor_sql VARCHAR2(3000);
201: )
202: IS
203: lv_procedure_name VARCHAR2(40) := 'Add_Current_Year_Budget';
204: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
205: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
206:
207: lv_bi_cursor_sql VARCHAR2(4000);
208: lv_pi_cursor_sql VARCHAR2(3000);
209: TYPE ref_cursor IS REF CURSOR;
234: BEGIN
235: --logging for debug
236: IF (ln_proc_level >= ln_dbg_level)
237: THEN
238: FND_LOG.STRING(ln_proc_level,
239: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
240: '.begin',
241: 'Enter procedure');
242: -- logging the parameters
239: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
240: '.begin',
241: 'Enter procedure');
242: -- logging the parameters
243: FND_LOG.STRING(ln_proc_level,
244: lv_procedure_name ||
245: '.parameters',
246: 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
247: 'pn_ledger_id=' || pn_ledger_id || ',' ||
614:
615: --logging for debug
616: IF (ln_proc_level >= ln_dbg_level)
617: THEN
618: FND_LOG.STRING(ln_proc_level,
619: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
620: 'Exit procedure');
621: END IF; -- (ln_proc_level>=ln_dbg_level)
622:
621: END IF; -- (ln_proc_level>=ln_dbg_level)
622:
623: EXCEPTION
624: WHEN OTHERS THEN
625: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
626: THEN
627: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
628: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
629: '.Other_Exception ',
623: EXCEPTION
624: WHEN OTHERS THEN
625: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
626: THEN
627: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
628: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
629: '.Other_Exception ',
630: SQLCODE || SQLERRM);
631: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
627: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
628: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
629: '.Other_Exception ',
630: SQLCODE || SQLERRM);
631: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
632: FND_FILE.put_line(FND_FILE.log, lv_procedure_name || SQLCODE || SQLERRM);
633:
634: END Add_Current_Year_Budget;
635: