20: --+======================================================================*/
21:
22: --==== Golbal Variables ============
23: GV_MODULE_PREFIX VARCHAR2(30) := 'JA_CN_UPDATE_BANK_SEQ_PKG';
24: g_dbg_level NUMBER := FND_LOG.G_Current_Runtime_Level;
25: g_proc_level NUMBER := FND_LOG.Level_Procedure;
26: g_stmt_level NUMBER := FND_LOG.Level_Statement;
27:
28: --==========================================================================
21:
22: --==== Golbal Variables ============
23: GV_MODULE_PREFIX VARCHAR2(30) := 'JA_CN_UPDATE_BANK_SEQ_PKG';
24: g_dbg_level NUMBER := FND_LOG.G_Current_Runtime_Level;
25: g_proc_level NUMBER := FND_LOG.Level_Procedure;
26: g_stmt_level NUMBER := FND_LOG.Level_Statement;
27:
28: --==========================================================================
29: -- PROCEDURE NAME:
22: --==== Golbal Variables ============
23: GV_MODULE_PREFIX VARCHAR2(30) := 'JA_CN_UPDATE_BANK_SEQ_PKG';
24: g_dbg_level NUMBER := FND_LOG.G_Current_Runtime_Level;
25: g_proc_level NUMBER := FND_LOG.Level_Procedure;
26: g_stmt_level NUMBER := FND_LOG.Level_Statement;
27:
28: --==========================================================================
29: -- PROCEDURE NAME:
30: -- Create_JL_Seq Private
50: p_ledger_id in number,
51: p_period_name IN VARCHAR2) IS
52:
53: lv_procedure_name VARCHAR2(40) := 'Create_JL_Seq';
54: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
55: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
56:
57: BEGIN
58: --log for debug
51: p_period_name IN VARCHAR2) IS
52:
53: lv_procedure_name VARCHAR2(40) := 'Create_JL_Seq';
54: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
55: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
56:
57: BEGIN
58: --log for debug
59: IF (g_proc_level >= g_dbg_level) THEN
56:
57: BEGIN
58: --log for debug
59: IF (g_proc_level >= g_dbg_level) THEN
60: FND_LOG.STRING(g_proc_level,
61: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.begin',
62: 'begin procedure');
63: END IF; --( g_proc_level >= g_dbg_level)
64:
87: fnd_global.LOGIN_ID);
88:
89: --log for debug
90: IF (g_proc_level >= g_dbg_level) THEN
91: FND_LOG.STRING(g_proc_level,
92: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
93: 'end procedure');
94: END IF; --( g_proc_level >= g_dbg_level)
95:
96: EXCEPTION
97: WHEN OTHERS THEN
98: IF (ln_proc_level >= ln_dbg_level)
99: THEN
100: FND_LOG.STRING(ln_proc_level
101: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'EXCEPTION'
102: ,SQLCODE||':'||SQLERRM
103: );
104: END IF;
131: p_period_name IN VARCHAR2,
132: p_next_number IN NUMBER) IS
133:
134: lv_procedure_name VARCHAR2(40) := 'Update_JL_Seq';
135: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
136: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
137: BEGIN
138: --log for debug
139: IF (g_proc_level >= g_dbg_level) THEN
132: p_next_number IN NUMBER) IS
133:
134: lv_procedure_name VARCHAR2(40) := 'Update_JL_Seq';
135: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
136: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
137: BEGIN
138: --log for debug
139: IF (g_proc_level >= g_dbg_level) THEN
140: FND_LOG.STRING(g_proc_level,
136: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
137: BEGIN
138: --log for debug
139: IF (g_proc_level >= g_dbg_level) THEN
140: FND_LOG.STRING(g_proc_level,
141: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.begin',
142: 'begin procedure');
143: END IF; --( g_proc_level >= g_dbg_level)
144:
154: AND jcjn.period_name = p_period_name;
155:
156: --log for debug
157: IF (g_proc_level >= g_dbg_level) THEN
158: FND_LOG.STRING(g_proc_level,
159: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
160: 'end procedure');
161: END IF; --( g_proc_level >= g_dbg_level)
162:
161: END IF; --( g_proc_level >= g_dbg_level)
162:
163: EXCEPTION
164: WHEN OTHERS THEN
165: IF (FND_LOG.LEVEL_UNEXPECTED >= g_dbg_level) THEN
166: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
167: GV_MODULE_PREFIX || ',' || lv_procedure_name ||
168: '.OTHER_EXCEPTION',
169: SQLCODE || ':' || SQLERRM);
162:
163: EXCEPTION
164: WHEN OTHERS THEN
165: IF (FND_LOG.LEVEL_UNEXPECTED >= g_dbg_level) THEN
166: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
167: GV_MODULE_PREFIX || ',' || lv_procedure_name ||
168: '.OTHER_EXCEPTION',
169: SQLCODE || ':' || SQLERRM);
170: END IF;
197: p_ledger_id in number,
198: p_period_name IN VARCHAR2) RETURN NUMBER IS
199:
200: lv_procedure_name VARCHAR2(40) := 'Fetch_JL_Seq';
201: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
202: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
203: l_next_number NUMBER;
204:
205: l_exc_invalid_argument EXCEPTION;
198: p_period_name IN VARCHAR2) RETURN NUMBER IS
199:
200: lv_procedure_name VARCHAR2(40) := 'Fetch_JL_Seq';
201: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
202: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
203: l_next_number NUMBER;
204:
205: l_exc_invalid_argument EXCEPTION;
206:
215: BEGIN
216:
217: --log for debug
218: IF (g_proc_level >= g_dbg_level) THEN
219: FND_LOG.STRING(g_proc_level,
220: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.begin',
221: 'begin procedure');
222: END IF; --( g_proc_level >= g_dbg_level)
223:
245: END IF; --c_sequence%NOTFOUND
246:
247: --log for debug
248: IF (g_proc_level >= g_dbg_level) THEN
249: FND_LOG.STRING(g_proc_level,
250: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
251: 'end procedure');
252: END IF; --( g_proc_level >= g_dbg_level)
253:
252: END IF; --( g_proc_level >= g_dbg_level)
253:
254: EXCEPTION
255: WHEN OTHERS THEN
256: IF (FND_LOG.LEVEL_UNEXPECTED >= g_dbg_level) THEN
257: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
258: GV_MODULE_PREFIX || ',' || lv_procedure_name ||
259: '.OTHER_EXCEPTION',
260: SQLCODE || ':' || SQLERRM);
253:
254: EXCEPTION
255: WHEN OTHERS THEN
256: IF (FND_LOG.LEVEL_UNEXPECTED >= g_dbg_level) THEN
257: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
258: GV_MODULE_PREFIX || ',' || lv_procedure_name ||
259: '.OTHER_EXCEPTION',
260: SQLCODE || ':' || SQLERRM);
261: END IF;