[Home] [Help]
41: X_LAST_UPDATED_BY in NUMBER,
42: X_LAST_UPDATE_LOGIN in NUMBER
43: ) is
44:
45: cursor C is select ROWID from AMS_OBJECT_RULES_B
46: where OBJECT_RULE_ID = X_OBJECT_RULE_ID
47: ;
48: begin
49: insert into AMS_OBJECT_RULES_B (
45: cursor C is select ROWID from AMS_OBJECT_RULES_B
46: where OBJECT_RULE_ID = X_OBJECT_RULE_ID
47: ;
48: begin
49: insert into AMS_OBJECT_RULES_B (
50: OBJECT_RULE_ID,
51: PARAM15,
52: OBJECT_VERSION_NUMBER,
53: --SECURITY_GROUP_ID,
227: PARAM12,
228: PARAM13,
229: PARAM14,
230: APPLICATION_ID
231: from AMS_OBJECT_RULES_B
232: where OBJECT_RULE_ID = X_OBJECT_RULE_ID
233: for update of OBJECT_RULE_ID nowait;
234: recinfo c%rowtype;
235:
368: X_LAST_UPDATED_BY in NUMBER,
369: X_LAST_UPDATE_LOGIN in NUMBER
370: ) is
371: begin
372: update AMS_OBJECT_RULES_B set
373: PARAM15 = X_PARAM15,
374: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
375: --SECURITY_GROUP_ID = X_SECURITY_GROUP_ID,
376: APPROVAL_TYPE = X_APPROVAL_TYPE,
435: if (sql%notfound) then
436: raise no_data_found;
437: end if;
438:
439: delete from AMS_OBJECT_RULES_B
440: where OBJECT_RULE_ID = X_OBJECT_RULE_ID;
441:
442: if (sql%notfound) then
443: raise no_data_found;
505: l_row_id varchar2(100);
506:
507: cursor c_obj_verno is
508: select object_version_number
509: from AMS_OBJECT_RULES_B
510: where OBJECT_RULE_ID = X_OBJECT_RULE_ID;
511:
512: cursor c_chk_objrule_exists is
513: select 'x'
510: where OBJECT_RULE_ID = X_OBJECT_RULE_ID;
511:
512: cursor c_chk_objrule_exists is
513: select 'x'
514: from AMS_OBJECT_RULES_B
515: where OBJECT_RULE_ID = X_OBJECT_RULE_ID;
516:
517: cursor c_get_objrule_id is
518: select AMS_OBJECT_RULES_B_S.nextval
514: from AMS_OBJECT_RULES_B
515: where OBJECT_RULE_ID = X_OBJECT_RULE_ID;
516:
517: cursor c_get_objrule_id is
518: select AMS_OBJECT_RULES_B_S.nextval
519: from dual;
520:
521: BEGIN
522: if X_OWNER = 'SEED' then
633: begin
634: delete from AMS_OBJECT_RULES_TL T
635: where not exists
636: (select NULL
637: from AMS_OBJECT_RULES_B B
638: where B.OBJECT_RULE_ID = T.OBJECT_RULE_ID
639: );
640:
641: update AMS_OBJECT_RULES_TL T set (