43:
44: PROCEDURE Add_Document_Type
45: IS
46: lv_procedure_name VARCHAR2(40) := 'Add_Document_Type';
47: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
48: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
49: NO_DATA EXCEPTION;
50:
51: --Cursor for getting document type
44: PROCEDURE Add_Document_Type
45: IS
46: lv_procedure_name VARCHAR2(40) := 'Add_Document_Type';
47: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
48: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
49: NO_DATA EXCEPTION;
50:
51: --Cursor for getting document type
52: --
61: BEGIN
62: --logging for debug
63: IF (ln_proc_level >= ln_dbg_level)
64: THEN
65: FND_LOG.STRING(ln_proc_level,
66: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
67: '.begin',
68: 'Enter procedure');
69: END IF; --ln_proc_level>=ln_dbg_level
94:
95: --logging for debug
96: IF (ln_proc_level >= ln_dbg_level)
97: THEN
98: FND_LOG.STRING(ln_proc_level,
99: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
100: 'Exit procedure');
101: END IF; -- (ln_proc_level>=ln_dbg_level)
102:
101: END IF; -- (ln_proc_level>=ln_dbg_level)
102:
103: EXCEPTION
104: WHEN OTHERS THEN
105: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
106: THEN
107: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
108: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
109: '.Other_Exception ',
103: EXCEPTION
104: WHEN OTHERS THEN
105: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
106: THEN
107: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
108: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
109: '.Other_Exception ',
110: SQLCODE || SQLERRM);
111: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
107: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
108: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
109: '.Other_Exception ',
110: SQLCODE || SQLERRM);
111: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
112: FND_FILE.put_line(FND_FILE.log, lv_procedure_name || SQLCODE || SQLERRM);
113: RAISE;
114: END Add_Document_Type;
115:
140: ,pv_accounting_year IN VARCHAR2
141: )
142: IS
143: lv_procedure_name VARCHAR2(40) := 'Add_Transaction_Type';
144: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
145: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
146:
147: --Cursor for getting document type
148: --
141: )
142: IS
143: lv_procedure_name VARCHAR2(40) := 'Add_Transaction_Type';
144: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
145: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
146:
147: --Cursor for getting document type
148: --
149: CURSOR tran_type_cur
208: BEGIN
209: --logging for debug
210: IF (ln_proc_level >= ln_dbg_level)
211: THEN
212: FND_LOG.STRING(ln_proc_level,
213: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
214: '.begin',
215: 'Enter procedure');
216: -- logging the parameters
213: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
214: '.begin',
215: 'Enter procedure');
216: -- logging the parameters
217: FND_LOG.STRING(ln_proc_level,
218: lv_procedure_name ||
219: '.parameters',
220: 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
221: 'pn_ledger_id=' || pn_ledger_id || ',' ||
248:
249: --logging for debug
250: IF (ln_proc_level >= ln_dbg_level)
251: THEN
252: FND_LOG.STRING(ln_proc_level,
253: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
254: 'Exit procedure');
255: END IF; -- (ln_proc_level>=ln_dbg_level)
256:
255: END IF; -- (ln_proc_level>=ln_dbg_level)
256:
257: EXCEPTION
258: WHEN OTHERS THEN
259: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
260: THEN
261: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
262: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
263: '.Other_Exception ',
257: EXCEPTION
258: WHEN OTHERS THEN
259: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
260: THEN
261: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
262: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
263: '.Other_Exception ',
264: SQLCODE || SQLERRM);
265: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
261: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
262: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
263: '.Other_Exception ',
264: SQLCODE || SQLERRM);
265: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
266: FND_FILE.put_line(FND_FILE.log, lv_procedure_name || SQLCODE || SQLERRM);
267: RAISE;
268: END Add_Transaction_Type;
269: