54: PROCEDURE Add_User_Defined_Records(pn_coa_id NUMBER,
55: pn_le_id NUMBER,
56: pn_ledger_id NUMBER,
57: pv_accounting_year VARCHAR2) IS
58: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
59: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
60: ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
61: lv_procedure_name VARCHAR2(40) := 'Add_User_Defined_Records';
62: ln_journal_number NUMBER;
55: pn_le_id NUMBER,
56: pn_ledger_id NUMBER,
57: pv_accounting_year VARCHAR2) IS
58: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
59: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
60: ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
61: lv_procedure_name VARCHAR2(40) := 'Add_User_Defined_Records';
62: ln_journal_number NUMBER;
63: lv_sub_segment_code VARCHAR2(20);
56: pn_ledger_id NUMBER,
57: pv_accounting_year VARCHAR2) IS
58: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
59: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
60: ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
61: lv_procedure_name VARCHAR2(40) := 'Add_User_Defined_Records';
62: ln_journal_number NUMBER;
63: lv_sub_segment_code VARCHAR2(20);
64: lv_source_code VARCHAR2(30);
80:
81: BEGIN
82: --logging for debug
83: IF (ln_proc_level >= ln_dbg_level) THEN
84: FND_LOG.STRING(ln_proc_level,
85: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
86: '.begin',
87: 'Enter procedure');
88:
86: '.begin',
87: 'Enter procedure');
88:
89: -- logging the parameters
90: FND_LOG.STRING(ln_proc_level,
91: lv_procedure_name || '.parameters',
92: 'pn_legal_entity_id=' || pn_le_id || ',' ||
93: 'pn_ledger_id=' || pn_ledger_id || ',' ||
94: 'pv_accounting_year=' || pv_accounting_year || ',' ||
131: AND jcvn.legal_entity_id = pn_le_id);
132:
133: --logging the variables
134: IF (ln_statement_level >= ln_dbg_level) THEN
135: FND_LOG.STRING(ln_statement_level,
136: lv_procedure_name,
137: 'Journal number is:' || ln_journal_number);
138: END IF; --(ln_statement_level >= ln_dbg_level)
139: FND_FILE.put_line(FND_FILE.log,
258: END IF;
259:
260: --logging for debug
261: IF (ln_proc_level >= ln_dbg_level) THEN
262: FND_LOG.STRING(ln_proc_level,
263: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
264: 'Exit procedure');
265: END IF; -- (ln_proc_level>=ln_dbg_level)
266: