APPS.GL_ALLOC_FORMULAS_PKG dependencies on GL_ALLOC_FORMULAS

Line 1: PACKAGE BODY gl_alloc_formulas_pkg AS

1: PACKAGE BODY gl_alloc_formulas_pkg AS
2: /* $Header: glimafmb.pls 120.6 2005/05/05 01:16:56 kvora ship $ */
3:
4: --
5: -- PRIVATE FUNCTIONS

Line 48: FROM GL_ALLOC_FORMULAS gaf

44: PROCEDURE check_unique(batch_id NUMBER, formula_name VARCHAR2,
45: row_id VARCHAR2) IS
46: CURSOR chk_duplicates is
47: SELECT 'Duplicate'
48: FROM GL_ALLOC_FORMULAS gaf
49: WHERE gaf.allocation_batch_id = batch_id
50: AND gaf.name = formula_name
51: AND ( row_id is null
52: OR gaf.rowid <> row_id);

Line 71: fnd_message.set_token('PROCEDURE', 'gl_alloc_formulas_pkg.check_unique');

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:

Line 78: SELECT gl_alloc_formulas_s.NEXTVAL

74:
75:
76: FUNCTION get_unique_id RETURN NUMBER IS
77: CURSOR get_new_id IS
78: SELECT gl_alloc_formulas_s.NEXTVAL
79: FROM dual;
80: new_id number;
81: BEGIN
82: OPEN get_new_id;

Line 91: fnd_message.set_token('SEQUENCE', 'GL_ALLOC_FORMULAS_S');

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

Line 101: 'gl_alloc_formulas_pkg.get_unique_id');

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:
105: PROCEDURE delete_rows(batch_id NUMBER) IS

Line 109: DELETE gl_alloc_formulas

105: PROCEDURE delete_rows(batch_id NUMBER) IS
106: BEGIN
107: gl_alloc_form_lines_pkg.delete_batch(batch_id);
108:
109: DELETE gl_alloc_formulas
110: WHERE allocation_batch_id = batch_id;
111: EXCEPTION
112: WHEN NO_DATA_FOUND THEN
113: null;

Line 133: CURSOR C IS SELECT rowid FROM GL_ALLOC_FORMULAS

129: X_Last_Update_Login NUMBER,
130: X_Description VARCHAR2,
131: X_Actual_Flag VARCHAR2
132: ) IS
133: CURSOR C IS SELECT rowid FROM GL_ALLOC_FORMULAS
134: WHERE allocation_formula_id = X_Allocation_Formula_Id;
135:
136: BEGIN
137:

Line 145: x_allocation_formula_id := gl_alloc_formulas_pkg.get_unique_id;

141: END IF;
142:
143: -- Get formula id if it was not provided
144: IF (x_allocation_formula_id IS NULL) THEN
145: x_allocation_formula_id := gl_alloc_formulas_pkg.get_unique_id;
146: END IF;
147:
148: -- Make sure the user has completed all of the formula
149: -- lines.

Line 168: INSERT INTO GL_ALLOC_FORMULAS(

164:
165: -- Make sure there isn't a currency conflict
166: gl_alloc_form_lines_pkg.check_target_ledger(X_Allocation_Formula_Id);
167:
168: INSERT INTO GL_ALLOC_FORMULAS(
169: allocation_formula_id,
170: allocation_batch_id,
171: name,
172: run_sequence,

Line 224: FROM GL_ALLOC_FORMULAS

220: X_Description VARCHAR2
221: ) IS
222: CURSOR C IS
223: SELECT *
224: FROM GL_ALLOC_FORMULAS
225: WHERE rowid = X_Rowid
226: FOR UPDATE of Allocation_Formula_Id NOWAIT;
227: Recinfo C%ROWTYPE;
228: BEGIN

Line 327: UPDATE GL_ALLOC_FORMULAS

323: -- Make sure there isn't a currency conflict
324: gl_alloc_form_lines_pkg.check_target_ledger(X_Allocation_Formula_Id);
325: END IF;
326:
327: UPDATE GL_ALLOC_FORMULAS
328: SET
329: allocation_formula_id = X_Allocation_Formula_Id,
330: allocation_batch_id = X_Allocation_Batch_Id,
331: name = X_Name,

Line 357: DELETE FROM GL_ALLOC_FORMULAS

353: gl_alloc_form_lines_pkg.delete_rows(
354: allocation_formula_id);
355:
356: -- Delete the formula
357: DELETE FROM GL_ALLOC_FORMULAS
358: WHERE rowid = X_Rowid;
359:
360: if (SQL%NOTFOUND) then
361: RAISE NO_DATA_FOUND;

Line 365: END gl_alloc_formulas_pkg;

361: RAISE NO_DATA_FOUND;
362: end if;
363: END Delete_Row;
364:
365: END gl_alloc_formulas_pkg;