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
36: WHEN app_exceptions.application_exception THEN
32: app_exception.raise_exception;
33: END IF;
34: CLOSE to_ledger_selection;
35: EXCEPTION
36: WHEN app_exceptions.application_exception THEN
37: RAISE;
38: END check_ledger_selection;
39:
40: --
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;
65:
63:
64: CLOSE chk_duplicates;
65:
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');
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
96: WHEN app_exceptions.application_exception THEN
92: app_exception.raise_exception;
93: END IF;
94:
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',
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;
159: END IF;
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:
162: -- Make sure the ledger segment of target and offset lines are the same
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 (
238: ( (Recinfo.allocation_formula_id = X_Allocation_Formula_Id)
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:
273: PROCEDURE Update_Row(X_Rowid VARCHAR2,
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;
302: END IF;
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:
305: -- If the user has changed the currency, then update the lines