[Home] [Help]
33: begin
34:
35: --
36: --Always derive the RULE_OBJECT_ID here else in INSERT_ROW proc for
37: --FUN_RULE_OBJ_ATTRIBUTES table, it will be hard to derive the RULE_OBJECT_ID
38: --For the current Rule Object from RULE_OBJECT_NAME. Because, Rule Object Instances
39: --will share the same Rule Object Name as of the Parent Rule Object Id.
40:
41: IF X_RULE_OBJECT_ID IS NULL THEN
239: X_LAST_UPDATED_BY IN NUMBER DEFAULT NULL,
240: X_LAST_UPDATE_LOGIN IN NUMBER DEFAULT NULL
241: ) IS
242:
243: cursor C(id number) is select ROWID from FUN_RULE_OBJ_ATTRIBUTES
244: where RULE_OBJECT_ID = id
245: ;
246:
247:
246:
247:
248: BEGIN
249:
250: insert into FUN_RULE_OBJ_ATTRIBUTES (
251: RULE_OBJECT_ID,
252: DEFAULT_APPLICATION_ID,
253: DEFAULT_VALUE,
254: CREATED_BY,
441: X_LAST_UPDATED_BY IN NUMBER DEFAULT NULL,
442: X_LAST_UPDATE_LOGIN IN NUMBER DEFAULT NULL
443: ) is
444: begin
445: update FUN_RULE_OBJ_ATTRIBUTES set
446: DEFAULT_APPLICATION_ID = X_DEFAULT_APPLICATION_ID,
447: DEFAULT_VALUE = X_DEFAULT_VALUE,
448: LAST_UPDATE_DATE = NVL(X_LAST_UPDATE_DATE,FUN_RULE_UTILITY_PKG.LAST_UPDATE_DATE),
449: LAST_UPDATED_BY = NVL(X_LAST_UPDATED_BY,FUN_RULE_UTILITY_PKG.LAST_UPDATED_BY),
461:
462: ) IS
463: begin
464:
465: delete from FUN_RULE_OBJ_ATTRIBUTES
466: where RULE_OBJECT_ID in (select RULE_OBJECT_ID
467: from FUN_RULE_OBJECTS_B
468: where RULE_OBJECT_NAME = X_RULE_OBJECT_NAME
469: AND APPLICATION_ID = X_APPLICATION_ID
539: if (sql%notfound) then
540: raise no_data_found;
541: end if;
542:
543: delete from FUN_RULE_OBJ_ATTRIBUTES
544: where RULE_OBJECT_ID = X_RULE_OBJECT_ID;
545:
546: if (sql%notfound) then
547: raise no_data_found;
1238:
1239: BEGIN
1240: select LAST_UPDATED_BY, LAST_UPDATE_DATE
1241: into db_luby, db_ludate
1242: from FUN_RULE_OBJ_ATTRIBUTES
1243: where RULE_OBJECT_ID = roid;
1244:
1245: if (fnd_load_util.UPLOAD_TEST(
1246: p_file_id => f_luby,