1: PACKAGE BODY gl_storage_parameters_pkg AS
2: /* $Header: glistpab.pls 120.8 2005/05/05 01:23:50 kvora ship $ */
3:
4: --
5: -- PUBLIC FUNCTIONS
8: PROCEDURE check_unique(X_object_name VARCHAR2,
9: X_row_id VARCHAR2) IS
10: CURSOR chk_duplicates is
11: SELECT 'Duplicate'
12: FROM GL_STORAGE_PARAMETERS s
13: WHERE s.object_name = X_object_name
14: AND ( X_row_id is null
15: OR s.rowid <> chartorowid(X_row_id));
16: dummy VARCHAR2(100);
30: WHEN app_exceptions.application_exception THEN
31: RAISE;
32: WHEN OTHERS THEN
33: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
34: fnd_message.set_token('PROCEDURE', 'gl_storage_parameters_pkg.check_unique');
35: RAISE;
36: END check_unique;
37:
38:
50: X_max_extents NUMBER,
51: X_pct_increase NUMBER,
52: X_pct_free NUMBER,
53: X_description VARCHAR2) IS
54: CURSOR C IS SELECT rowid FROM GL_STORAGE_PARAMETERS
55: WHERE object_name = X_object_name;
56: BEGIN
57:
58: INSERT INTO GL_STORAGE_PARAMETERS( OBJECT_NAME,
54: CURSOR C IS SELECT rowid FROM GL_STORAGE_PARAMETERS
55: WHERE object_name = X_object_name;
56: BEGIN
57:
58: INSERT INTO GL_STORAGE_PARAMETERS( OBJECT_NAME,
59: LAST_UPDATE_DATE,
60: LAST_UPDATED_BY,
61: CREATION_DATE,
62: CREATED_BY,
103: X_pct_increase NUMBER,
104: X_pct_free NUMBER,
105: X_description VARCHAR2) IS
106: CURSOR C IS
107: SELECT * FROM GL_STORAGE_PARAMETERS
108: WHERE rowid = X_rowid
109: FOR UPDATE OF object_name NOWAIT;
110: Recinfo C%ROWTYPE;
111: BEGIN
175: X_pct_increase NUMBER,
176: X_pct_free NUMBER,
177: X_description VARCHAR2) IS
178: BEGIN
179: UPDATE GL_STORAGE_PARAMETERS
180: SET
181: object_name = x_object_name,
182: last_update_date = x_last_update_date,
183: last_updated_by = x_last_updated_by,
201: END Update_Row;
202:
203: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
204: BEGIN
205: DELETE FROM GL_STORAGE_PARAMETERS
206: WHERE rowid = X_Rowid;
207:
208: if (SQL%NOTFOUND) then
209: RAISE NO_DATA_FOUND;
250: the creation date for update_row. */
251:
252: select creation_date,rowid
253: into v_creation_date, v_rowid
254: from gl_storage_parameters
255: where object_name = x_object_name;
256:
257: gl_storage_parameters_pkg.update_row (
258: x_rowid => v_rowid,
253: into v_creation_date, v_rowid
254: from gl_storage_parameters
255: where object_name = x_object_name;
256:
257: gl_storage_parameters_pkg.update_row (
258: x_rowid => v_rowid,
259: x_object_name => x_object_name,
260: x_last_update_date => sysdate,
261: x_last_updated_by => user_id,
273: );
274:
275: exception
276: when NO_DATA_FOUND then
277: gl_storage_parameters_pkg.insert_row (
278: x_rowid => v_rowid ,
279: x_object_name => x_object_name,
280: x_last_update_date => sysdate,
281: x_last_updated_by => user_id,
311: end if;
312:
313: /* Update only if force_edits is 'Y' or if user id is 1 or 2 */
314: if ( user_id IN (1,2) OR x_force_edits = 'Y' ) then
315: UPDATE gl_storage_parameters
316: SET
317: description = x_description,
318: last_update_date = sysdate,
319: last_updated_by = user_id,
333: */
334:
335: end translate_row ;
336:
337: END gl_storage_parameters_pkg;