43: PROCEDURE Add_GL_Basic_Info
44: (pn_coa_id NUMBER)
45: IS
46: lv_procedure_name VARCHAR2(40) := 'Add_GL_Basic_Info';
47: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
48: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
49: ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
50: NO_DATA EXCEPTION;
51: lv_separator VARCHAR2(1);
44: (pn_coa_id NUMBER)
45: IS
46: lv_procedure_name VARCHAR2(40) := 'Add_GL_Basic_Info';
47: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
48: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
49: ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
50: NO_DATA EXCEPTION;
51: lv_separator VARCHAR2(1);
52: lv_account_structure VARCHAR2(200);
45: IS
46: lv_procedure_name VARCHAR2(40) := 'Add_GL_Basic_Info';
47: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
48: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
49: ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
50: NO_DATA EXCEPTION;
51: lv_separator VARCHAR2(1);
52: lv_account_structure VARCHAR2(200);
53: lv_cash_flow_item_rule VARCHAR2(10);
71: BEGIN
72: --logging for debug
73: IF (ln_proc_level >= ln_dbg_level)
74: THEN
75: FND_LOG.STRING(ln_proc_level,
76: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
77: '.begin',
78: 'Enter procedure');
79: -- logging the parameters
76: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
77: '.begin',
78: 'Enter procedure');
79: -- logging the parameters
80: FND_LOG.STRING(ln_proc_level,
81: lv_procedure_name ||
82: '.parameters',
83: 'pn_coa_id=' || pn_coa_id);
84: END IF; --(ln_proc_level >= ln_dbg_level)
94:
95: --logging the variables
96: IF (ln_statement_level >= ln_dbg_level)
97: THEN
98: FND_LOG.STRING(ln_statement_level,
99: lv_procedure_name,
100: 'lv_separator=' || lv_separator || ',' ||
101: 'lv_account_structure=' || lv_account_structure);
102: END IF; --(ln_statement_level >= ln_dbg_level)
137:
138: --logging for debug
139: IF (ln_proc_level >= ln_dbg_level)
140: THEN
141: FND_LOG.STRING(ln_proc_level,
142: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
143: 'Exit procedure');
144: END IF; -- (ln_proc_level>=ln_dbg_level)
145: EXCEPTION
143: 'Exit procedure');
144: END IF; -- (ln_proc_level>=ln_dbg_level)
145: EXCEPTION
146: WHEN OTHERS THEN
147: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
148: THEN
149: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
150: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
151: '.Other_Exception ',
145: EXCEPTION
146: WHEN OTHERS THEN
147: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
148: THEN
149: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
150: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
151: '.Other_Exception ',
152: SQLCODE || SQLERRM);
153: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
149: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
150: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
151: '.Other_Exception ',
152: SQLCODE || SQLERRM);
153: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
154: FND_FILE.put_line(FND_FILE.log, lv_procedure_name || SQLCODE || SQLERRM);
155: RAISE;
156: END Add_GL_Basic_Info;
157: