27: FETCH to_ledger_selection INTO counts;
28: IF (counts = 2) THEN
29: -- target and offset ledgers are both not null and are different
30: CLOSE to_ledger_selection;
31: fnd_message.set_name('SQLGL', 'GL_ALLOC_INTER_LEDGER');
32: app_exception.raise_exception;
33: END IF;
34: CLOSE to_ledger_selection;
35: EXCEPTION
56: FETCH chk_duplicates INTO dummy;
57:
58: IF chk_duplicates%FOUND THEN
59: CLOSE chk_duplicates;
60: fnd_message.set_name('SQLGL', 'GL_DUPLICATE_ALLOC_FORMULA_NAM');
61: app_exception.raise_exception;
62: END IF;
63:
64: CLOSE chk_duplicates;
66: EXCEPTION
67: WHEN app_exceptions.application_exception THEN
68: RAISE;
69: WHEN OTHERS THEN
70: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
71: fnd_message.set_token('PROCEDURE', 'gl_alloc_formulas_pkg.check_unique');
72: RAISE;
73: END check_unique;
74:
67: WHEN app_exceptions.application_exception THEN
68: RAISE;
69: WHEN OTHERS THEN
70: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
71: fnd_message.set_token('PROCEDURE', 'gl_alloc_formulas_pkg.check_unique');
72: RAISE;
73: END check_unique;
74:
75:
86: CLOSE get_new_id;
87: return(new_id);
88: ELSE
89: CLOSE get_new_id;
90: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
91: fnd_message.set_token('SEQUENCE', 'GL_ALLOC_FORMULAS_S');
92: app_exception.raise_exception;
93: END IF;
94:
87: return(new_id);
88: ELSE
89: CLOSE get_new_id;
90: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
91: fnd_message.set_token('SEQUENCE', 'GL_ALLOC_FORMULAS_S');
92: app_exception.raise_exception;
93: END IF;
94:
95: EXCEPTION
95: EXCEPTION
96: WHEN app_exceptions.application_exception THEN
97: RAISE;
98: WHEN OTHERS THEN
99: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
100: fnd_message.set_token('PROCEDURE',
101: 'gl_alloc_formulas_pkg.get_unique_id');
102: RAISE;
103: END get_unique_id;
96: WHEN app_exceptions.application_exception THEN
97: RAISE;
98: WHEN OTHERS THEN
99: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
100: fnd_message.set_token('PROCEDURE',
101: 'gl_alloc_formulas_pkg.get_unique_id');
102: RAISE;
103: END get_unique_id;
104:
150: IF (NOT gl_alloc_form_lines_pkg.complete_formula(
151: X_allocation_formula_id,
152: X_actual_flag)) THEN
153: IF (X_actual_flag = 'B') THEN
154: fnd_message.set_name('SQLGL', 'GL_COMPLETE_FOUR_FORMULA_LINES');
155: app_exception.raise_exception;
156: ELSE
157: fnd_message.set_name('SQLGL', 'GL_COMPLETE_ALL_FORMULA_LINES');
158: app_exception.raise_exception;
153: IF (X_actual_flag = 'B') THEN
154: fnd_message.set_name('SQLGL', 'GL_COMPLETE_FOUR_FORMULA_LINES');
155: app_exception.raise_exception;
156: ELSE
157: fnd_message.set_name('SQLGL', 'GL_COMPLETE_ALL_FORMULA_LINES');
158: app_exception.raise_exception;
159: END IF;
160: END IF;
161:
229: OPEN C;
230: FETCH C INTO Recinfo;
231: if (C%NOTFOUND) then
232: CLOSE C;
233: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
234: APP_EXCEPTION.RAISE_EXCEPTION;
235: end if;
236: CLOSE C;
237: if (
264: AND (X_Description IS NULL)))
265: ) then
266: return;
267: else
268: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
269: APP_EXCEPTION.RAISE_EXCEPTION;
270: end if;
271: END Lock_Row;
272:
293: IF (NOT gl_alloc_form_lines_pkg.complete_formula(
294: X_allocation_formula_id,
295: X_actual_flag)) THEN
296: IF (X_actual_flag = 'B') THEN
297: fnd_message.set_name('SQLGL', 'GL_COMPLETE_FOUR_FORMULA_LINES');
298: app_exception.raise_exception;
299: ELSE
300: fnd_message.set_name('SQLGL', 'GL_COMPLETE_ALL_FORMULA_LINES');
301: app_exception.raise_exception;
296: IF (X_actual_flag = 'B') THEN
297: fnd_message.set_name('SQLGL', 'GL_COMPLETE_FOUR_FORMULA_LINES');
298: app_exception.raise_exception;
299: ELSE
300: fnd_message.set_name('SQLGL', 'GL_COMPLETE_ALL_FORMULA_LINES');
301: app_exception.raise_exception;
302: END IF;
303: END IF;
304: