2: -- $Header: igibudbb.pls 120.5.12000000.2 2007/08/01 09:11:12 pshivara ship $
3:
4: --Bug 3199481
5:
6: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
7:
8: l_state_level number := FND_LOG.LEVEL_STATEMENT ;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE ;
10: l_event_level number := FND_LOG.LEVEL_EVENT ;
4: --Bug 3199481
5:
6: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
7:
8: l_state_level number := FND_LOG.LEVEL_STATEMENT ;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE ;
10: l_event_level number := FND_LOG.LEVEL_EVENT ;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION ;
12: l_error_level number := FND_LOG.LEVEL_ERROR ;
5:
6: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
7:
8: l_state_level number := FND_LOG.LEVEL_STATEMENT ;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE ;
10: l_event_level number := FND_LOG.LEVEL_EVENT ;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION ;
12: l_error_level number := FND_LOG.LEVEL_ERROR ;
13: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED ;
6: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
7:
8: l_state_level number := FND_LOG.LEVEL_STATEMENT ;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE ;
10: l_event_level number := FND_LOG.LEVEL_EVENT ;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION ;
12: l_error_level number := FND_LOG.LEVEL_ERROR ;
13: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED ;
14:
7:
8: l_state_level number := FND_LOG.LEVEL_STATEMENT ;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE ;
10: l_event_level number := FND_LOG.LEVEL_EVENT ;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION ;
12: l_error_level number := FND_LOG.LEVEL_ERROR ;
13: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED ;
14:
15: --Bug 3199481
8: l_state_level number := FND_LOG.LEVEL_STATEMENT ;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE ;
10: l_event_level number := FND_LOG.LEVEL_EVENT ;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION ;
12: l_error_level number := FND_LOG.LEVEL_ERROR ;
13: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED ;
14:
15: --Bug 3199481
16:
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE ;
10: l_event_level number := FND_LOG.LEVEL_EVENT ;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION ;
12: l_error_level number := FND_LOG.LEVEL_ERROR ;
13: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED ;
14:
15: --Bug 3199481
16:
17: --
40: If (l_unexp_level >= l_debug_level) then
41: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_UNEXP_ERROR');
42: FND_MESSAGE.SET_TOKEN('CODE', sqlcode);
43: FND_MESSAGE.SET_TOKEN('MSG', sqlerrm);
44: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud.bud_profile_default.Msg1',TRUE);
45: End if;
46: --Bug 3199481 (end)
47: Raise;
48: END select_row;
82: If (l_unexp_level >= l_debug_level) then
83: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_UNEXP_ERROR');
84: FND_MESSAGE.SET_TOKEN('CODE', sqlcode);
85: FND_MESSAGE.SET_TOKEN('MSG', sqlerrm);
86: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud.bud_profile_default.Msg1',TRUE);
87: End if;
88: --Bug 3199481 (end)
89: Raise;
90:
111: CLOSE c_dup;
112: fnd_message.set_name( 'SQLGL', 'GL_DUPLICATE_CCID' );
113: --Bug 3199481 (start)
114: If (l_unexp_level >= l_debug_level) then
115: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud_gl_code_ccid_pkg.check_unique.Msg1',FALSE);
116: End if;
117: --Bug 3199481 (end)
118: app_exception.raise_exception;
119: END IF;
123: EXCEPTION
124: WHEN app_exceptions.application_exception THEN
125: --Bug 3199481 (start)
126: If (l_unexp_level >= l_debug_level) then
127: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud_gl_code_ccid_pkg.check_unique.Msg2',FALSE);
128: End if;
129: --Bug 3199481 (end)
130: RAISE;
131:
134: If (l_unexp_level >= l_debug_level) then
135: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_UNEXP_ERROR');
136: FND_MESSAGE.SET_TOKEN('CODE', sqlcode);
137: FND_MESSAGE.SET_TOKEN('MSG', sqlerrm);
138: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud.bud_profile_default.Msg1',TRUE);
139: End if;
140: --Bug 3199481 (end)
141: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
142: fnd_message.set_token('PROCEDURE',
174: IF (new_sob_id <> x_sobid) THEN
175: fnd_message.set_name( 'SQLGL', 'GL_INVALID_SUMMARY_ACCOUNT' );
176: --Bug 3199481 (start)
177: If (l_unexp_level >= l_debug_level) then
178: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud_gl_code_ccid_pkg.get_valid_sob_summary.Msg1',FALSE);
179: End if;
180: --Bug 3199481 (End)
181: app_exception.raise_exception;
182: END IF;
186: -- reassigning the old value becoz of NOCOPY. rgopalan
187: x_template_id := l_template_id;
188: --Bug 3199481 (start)
189: If (l_unexp_level >= l_debug_level) then
190: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud_gl_code_ccid_pkg.get_valid_sob_summary.Msg2',FALSE);
191: End if;
192: --Bug 3199481 (End)
193: RAISE;
194:
199: If (l_unexp_level >= l_debug_level) then
200: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_UNEXP_ERROR');
201: FND_MESSAGE.SET_TOKEN('CODE', sqlcode);
202: FND_MESSAGE.SET_TOKEN('MSG', sqlerrm);
203: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud.bud_profile_default.Msg3',TRUE);
204: End if;
205: --Bug 3199481 (end)
206: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
207: fnd_message.set_token('PROCEDURE',
1001: -- Record has been changed.
1002: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1003: --Bug 3199481 (start)
1004: If (l_unexp_level >= l_debug_level) then
1005: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud_gl_code_ccid_pkg.lock_row.Msg1',FALSE);
1006: End if;
1007: --Bug 3199481 (End)
1008: APP_EXCEPTION.RAISE_EXCEPTION;
1009: