APPS.GL_DEFAS_ACCESS_SETS_PKG dependencies on GL_DEFAS_ACCESS_SETS

Line 1: PACKAGE BODY gl_defas_access_sets_pkg AS

1: PACKAGE BODY gl_defas_access_sets_pkg AS
2: /* $Header: glistdab.pls 120.5 2006/03/13 19:56:21 cma ship $ */
3:
4: --
5: -- PUBLIC FUNCTIONS

Line 10: SELECT GL_DEFAS_ACCESS_SETS_S.NEXTVAL

6: --
7:
8: FUNCTION get_unique_id RETURN NUMBER IS
9: CURSOR get_new_id IS
10: SELECT GL_DEFAS_ACCESS_SETS_S.NEXTVAL
11: FROM dual;
12: new_id NUMBER;
13: BEGIN
14: OPEN get_new_id;

Line 23: fnd_message.set_token('SEQUENCE', 'GL_DEFAS_ACCESS_SETS_S');

19: RETURN (new_id);
20: ELSE
21: CLOSE get_new_id;
22: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
23: fnd_message.set_token('SEQUENCE', 'GL_DEFAS_ACCESS_SETS_S');
24: app_exception.raise_exception;
25: END IF;
26:
27: EXCEPTION

Line 32: fnd_message.set_token('PROCEDURE', 'gl_defas_access_sets_pkg.get_unique_id');

28: WHEN app_exceptions.application_exception THEN
29: RAISE;
30: WHEN OTHERS THEN
31: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
32: fnd_message.set_token('PROCEDURE', 'gl_defas_access_sets_pkg.get_unique_id');
33: RAISE;
34: END get_unique_id;
35:
36:

Line 61: fnd_message.set_token('PROCEDURE', 'gl_defas_access_sets_pkg.get_dbname_id');

57: WHEN app_exceptions.application_exception THEN
58: RAISE;
59: WHEN OTHERS THEN
60: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
61: fnd_message.set_token('PROCEDURE', 'gl_defas_access_sets_pkg.get_dbname_id');
62: RAISE;
63: END get_dbname_id;
64:
65: --

Line 72: FROM GL_DEFAS_ACCESS_SETS a

68: PROCEDURE check_unique_name(x_name IN VARCHAR2 ) IS
69:
70: CURSOR c_dup IS
71: SELECT 'Duplicate'
72: FROM GL_DEFAS_ACCESS_SETS a
73: WHERE a.user_definition_access_set = x_name;
74:
75: dummy VARCHAR2(100);
76:

Line 95: 'GL_DEFAS_ACCESS_SETS_PKG.check_unique_name');

91: RAISE;
92: WHEN OTHERS THEN
93: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
94: fnd_message.set_token('PROCEDURE',
95: 'GL_DEFAS_ACCESS_SETS_PKG.check_unique_name');
96: RAISE;
97: END check_unique_name;
98:
99: PROCEDURE check_assign (X_Definition_Access_Set_Id IN NUMBER,

Line 120: 'GL_DEFAS_ACCESS_SETS_PKG.check_assign');

116: RAISE;
117: WHEN OTHERS THEN
118: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
119: fnd_message.set_token('PROCEDURE',
120: 'GL_DEFAS_ACCESS_SETS_PKG.check_assign');
121: RAISE;
122:
123: END check_assign;
124:

Line 138: UPDATE GL_DEFAS_ACCESS_SETS

134: end if;
135:
136: /* Update only if force_edits is 'Y' or if user_id = 1 */
137: if ( user_id = 1 or X_Force_Edits = 'Y' ) then
138: UPDATE GL_DEFAS_ACCESS_SETS
139: SET
140: user_definition_access_set = X_User_Definition_Access_Set,
141: description = X_Description,
142: last_update_date = sysdate,

Line 198: from gl_defas_access_sets

194: /* Check if the row exists in the database. If it does, retrieves
195: the creation date for update_row. */
196: select creation_date
197: into v_creation_date
198: from gl_defas_access_sets
199: where definition_access_set = X_Definition_Access_Set;
200:
201: if (SQL%NOTFOUND) then
202: RAISE NO_DATA_FOUND;

Line 207: UPDATE GL_DEFAS_ACCESS_SETS

203: end if;
204:
205: /* Update only if force_edits is 'Y' or if user_id = 1 */
206: if ( user_id = 1 or X_Force_Edits = 'Y' ) then
207: UPDATE GL_DEFAS_ACCESS_SETS
208: SET
209: user_definition_access_set = X_Definition_Access_Set,
210: last_update_date = sysdate,
211: last_updated_by = user_id,

Line 238: INSERT INTO GL_DEFAS_ACCESS_SETS

234: end if;
235: end if;
236: EXCEPTION
237: when NO_DATA_FOUND then
238: INSERT INTO GL_DEFAS_ACCESS_SETS
239: (definition_access_set_id,
240: definition_access_set,
241: user_definition_access_set,
242: description,

Line 265: (gl_defas_access_sets_pkg.get_unique_id,

261: attribute13,
262: attribute14,
263: attribute15)
264: VALUES
265: (gl_defas_access_sets_pkg.get_unique_id,
266: X_Definition_Access_Set,
267: X_User_Definition_Access_Set,
268: X_Description,
269: sysdate,

Line 294: END gl_defas_access_sets_pkg;

290:
291: END load_row;
292:
293:
294: END gl_defas_access_sets_pkg;