[Home] [Help]
1: PACKAGE BODY WMS_DB_OBJECTS_PKG AS
2: /* $Header: WMSPDOBB.pls 120.1 2005/06/20 04:52:09 appldev ship $ */
3: --
4: PROCEDURE INSERT_ROW (
5: x_rowid IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2
31: ,x_attribute13 IN VARCHAR2
32: ,x_attribute14 IN VARCHAR2
33: ,x_attribute15 IN VARCHAR2
34: )IS
35: CURSOR C IS SELECT ROWID FROM WMS_DB_OBJECTS
36: WHERE db_object_id = x_db_object_id;
37: BEGIN
38:
39: INSERT INTO WMS_DB_OBJECTS (
35: CURSOR C IS SELECT ROWID FROM WMS_DB_OBJECTS
36: WHERE db_object_id = x_db_object_id;
37: BEGIN
38:
39: INSERT INTO WMS_DB_OBJECTS (
40: db_object_id
41: ,last_updated_by
42: ,last_update_date
43: ,created_by
154: ,attribute12
155: ,attribute13
156: ,attribute14
157: ,attribute15
158: FROM WMS_DB_OBJECTS
159: WHERE rowid = x_rowid
160: FOR UPDATE OF db_object_id NOWAIT;
161:
162: recinfo c%ROWTYPE;
264: ,x_attribute14 IN VARCHAR2
265: ,x_attribute15 IN VARCHAR2
266: )IS
267: BEGIN
268: UPDATE WMS_DB_OBJECTS SET
269: last_updated_by = x_last_updated_by
270: ,last_update_date = x_last_update_date
271: ,last_update_login = x_last_update_login
272: ,table_name = x_table_name
302: x_rowid IN VARCHAR2
303: )IS
304: BEGIN
305:
306: DELETE FROM WMS_DB_OBJECTS
307: WHERE rowid = x_rowid;
308:
309: IF (SQL%NOTFOUND) THEN
310: RAISE NO_DATA_FOUND;
355: l_parent_db_object_id :=
356: fnd_number.canonical_to_number(x_parent_db_object_id);
357: l_context_parameter_id :=
358: fnd_number.canonical_to_number(x_context_parameter_id);
359: wms_db_objects_pkg.update_row
360: (
361: x_db_object_id => l_db_object_id
362: ,x_last_updated_by => l_user_id
363: ,x_last_update_date => l_sysdate
386: ,x_attribute15 => x_attribute15
387: );
388: EXCEPTION
389: WHEN no_data_found THEN
390: wms_db_objects_pkg.insert_row
391: (
392: x_rowid => l_row_id
393: ,x_db_object_id => l_db_object_id
394: ,x_last_updated_by => l_user_id
420: ,x_attribute15 => x_attribute15
421: );
422: END;
423: END load_row;
424: END WMS_DB_OBJECTS_PKG;