[Home] [Help]
1: package body FND_OBJECT_DEFINITIONS_PKG as
2: /* $Header: AFOBDEFB.pls 120.1.12010000.1 2008/11/11 07:02:04 appldev noship $*/
3:
4: procedure INSERT_ROW (
5: X_OBJECT_DEFINITION_ID in NUMBER,
21: X_OBJECT_REFERENCE in XMLTYPE
22: ) is
23: begin
24:
25: insert into FND_OBJECT_DEFINITIONS (
26: OBJECT_DEFINITION_ID,
27: APPLICATION_ID,
28: OBJECT_ID,
29: OBJECT_DEFINITION_TYPE,
81: X_OBJECT_REFERENCE in XMLTYPE
82: ) is
83: begin
84:
85: update FND_OBJECT_DEFINITIONS set
86: APPLICATION_ID = X_APPLICATION_ID,
87: OBJECT_DEFINITION_TYPE = X_OBJECT_DEFINITION_TYPE,
88: OBJECT_VERSION = X_OBJECT_VERSION,
89: OBJECT_EXTENSION_VERSION = X_OBJECT_EXTENSION_VERSION,
137: into obj_id, db_luby, db_ludate
138: from fnd_objects
139: where obj_name = X_OBJ_NAME;
140:
141: fnd_object_definitions_pkg.UPDATE_ROW (
142: X_APPLICATION_ID => X_APPLICATION_ID,
143: X_OBJECT_ID => obj_id,
144: X_OBJECT_DEFINITION_TYPE => X_OBJECT_DEFINITION_TYPE,
145: X_OBJECT_VERSION => '12.0',
158:
159: exception
160: when NO_DATA_FOUND then
161:
162: select fnd_object_definitions_s.nextval into obj_def_id from dual;
163:
164: fnd_object_definitions_pkg.INSERT_ROW (
165: X_OBJECT_DEFINITION_ID => obj_def_id,
166: X_APPLICATION_ID => X_APPLICATION_ID,
160: when NO_DATA_FOUND then
161:
162: select fnd_object_definitions_s.nextval into obj_def_id from dual;
163:
164: fnd_object_definitions_pkg.INSERT_ROW (
165: X_OBJECT_DEFINITION_ID => obj_def_id,
166: X_APPLICATION_ID => X_APPLICATION_ID,
167: X_OBJECT_ID => obj_id,
168: X_OBJECT_DEFINITION_TYPE => X_OBJECT_DEFINITION_TYPE,
181: X_OBJECT_REFERENCE => X_OBJECT_REFERENCE);
182:
183: end LOAD_ROW;
184:
185: end FND_OBJECT_DEFINITIONS_PKG;