37: WHEN OTHERS THEN
38: recinfo := recinfo_old;
39: --Bug 3199481 (start)
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;
38: recinfo := recinfo_old;
39: --Bug 3199481 (start)
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)
39: --Bug 3199481 (start)
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;
79: X_account_type := l_account_type;
80: X_template_id := l_template_id;
81: --Bug 3199481 (start)
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;
80: X_template_id := l_template_id;
81: --Bug 3199481 (start)
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)
81: --Bug 3199481 (start)
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;
108: FETCH c_dup INTO dummy;
109:
110: IF c_dup%FOUND THEN
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;
131:
132: WHEN OTHERS THEN
133: --Bug 3199481 (start)
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;
132: WHEN OTHERS THEN
133: --Bug 3199481 (start)
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)
133: --Bug 3199481 (start)
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');
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',
143: 'GL_CODE_COMBINATIONS_PKG.check_unique');
144: RAISE;
145:
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',
143: 'GL_CODE_COMBINATIONS_PKG.check_unique');
144: RAISE;
145:
146: END check_unique;
171: WHERE cc.code_combination_id = x_ccid
172: AND st.template_id(+) = cc.template_id;
173:
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;
196: -- reassigning the old value becoz of NOCOPY. rgopalan
197: x_template_id := l_template_id;
198: --Bug 3199481 (start)
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;
197: x_template_id := l_template_id;
198: --Bug 3199481 (start)
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)
198: --Bug 3199481 (start)
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');
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',
208: 'GL_CODE_COMBINATIONS_PKG.get_valid_sob_summary');
209: RAISE;
210:
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',
208: 'GL_CODE_COMBINATIONS_PKG.get_valid_sob_summary');
209: RAISE;
210:
211: END get_valid_sob_summary;
998: end if;
999: end if;
1000:
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;