59: ,pv_accounting_year IN VARCHAR2
60: )
61: IS
62: lv_procedure_name VARCHAR2(40) := 'Add_Customer';
63: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
64: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
65: NO_DATA EXCEPTION;
66: ln_row_count NUMBER := 0;
67:
60: )
61: IS
62: lv_procedure_name VARCHAR2(40) := 'Add_Customer';
63: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
64: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
65: NO_DATA EXCEPTION;
66: ln_row_count NUMBER := 0;
67:
68: CURSOR customer_cur
134: BEGIN
135: --logging for debug
136: IF (ln_proc_level >= ln_dbg_level)
137: THEN
138: FND_LOG.STRING(ln_proc_level,
139: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
140: '.begin',
141: 'Enter procedure');
142: -- logging the parameters
139: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
140: '.begin',
141: 'Enter procedure');
142: -- logging the parameters
143: FND_LOG.STRING(ln_proc_level,
144: lv_procedure_name ||
145: '.parameters',
146: 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
147: 'pv_accounting_year=' || pv_accounting_year);
188:
189: --logging for debug
190: IF (ln_proc_level >= ln_dbg_level)
191: THEN
192: FND_LOG.STRING(ln_proc_level,
193: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
194: 'Exit procedure');
195: END IF; -- (ln_proc_level>=ln_dbg_level)
196:
196:
197: --To handle the No Data Found Exception
198: EXCEPTION
199: WHEN OTHERS THEN
200: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
201: THEN
202: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
203: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
204: '.Other_Exception ',
198: EXCEPTION
199: WHEN OTHERS THEN
200: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
201: THEN
202: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
203: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
204: '.Other_Exception ',
205: SQLCODE || SQLERRM);
206: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
202: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
203: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
204: '.Other_Exception ',
205: SQLCODE || SQLERRM);
206: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
207: FND_FILE.put_line(FND_FILE.log, lv_procedure_name || SQLCODE || SQLERRM);
208: RAISE;
209:
210: END Add_Customer;