DBA Data[Home] [Help]

APPS.AME_RULES_API2 dependencies on AME_RULES

Line 1: PACKAGE BODY AME_RULES_API2 AS

1: PACKAGE BODY AME_RULES_API2 AS
2: /* $Header: amereapi.pkb 120.4 2006/07/07 10:14:05 pvelugul noship $ */
3: duplicateRuleKeyException exception;
4: X_AME_INSTALLATION_LEVEL varchar2(255);
5: procedure OWNER_TO_WHO (

Line 38: from AME_RULES

34: (
35: X_RULE_KEY in VARCHAR2
36: ) is
37: select RULE_ID, CREATED_BY
38: from AME_RULES
39: where RULE_KEY = X_RULE_KEY;
40: X_CREATED_BY number;
41: X_RULE_ID_2 number;
42: begin

Line 128: from AME_RULES

124: (
125: X_RULE_KEY in VARCHAR2
126: ) is
127: select RULE_ID
128: from AME_RULES
129: where RULE_KEY = X_RULE_KEY;
130: cursor CSR_RULE_KEY
131: (
132: X_RULE_ID in NUMBER

Line 135: from AME_RULES

131: (
132: X_RULE_ID in NUMBER
133: ) is
134: select RULE_KEY
135: from AME_RULES
136: where RULE_ID = X_RULE_ID;
137: cursor CSR_GET_ITEM_CLASS_ID
138: (
139: X_ITEM_CLASS_NAME in VARCHAR2

Line 151: from AME_RULES

147: (
148: X_RULE_ID in NUMBER
149: ) is
150: select COUNT(*)
151: from AME_RULES
152: where RULE_ID = X_RULE_ID;
153: cursor CSR_GET_ACTION_ID is
154: select action_id
155: from ame_actions aa,

Line 214: ame_util.runtimeException(packageNameIn => 'ame_rules_api2',

210: exception
211: when duplicateRuleKeyException then
212: errorCode := -20001;
213: errorMessage := 'OAM is attempting to upload a duplicate rule key. ';
214: ame_util.runtimeException(packageNameIn => 'ame_rules_api2',
215: routineNameIn => 'key_to_ids_2',
216: exceptionNumberIn => errorCode,
217: exceptionStringIn => errorMessage);
218: raise;

Line 220: ame_util.runtimeException('ame_rules_api2',

216: exceptionNumberIn => errorCode,
217: exceptionStringIn => errorMessage);
218: raise;
219: when others then
220: ame_util.runtimeException('ame_rules_api2',
221: 'key_to_ids_2',
222: sqlcode,
223: sqlerrm);
224: raise;

Line 257: ame_util.runtimeException(packageNameIn => 'ame_rules_api2',

253: exception
254: when invalidRuleTypeException then
255: errorCode := -20001;
256: errorMessage := 'OAM is attempting to upload an invalid rule type. ';
257: ame_util.runtimeException(packageNameIn => 'ame_rules_api2',
258: routineNameIn => 'validate_rule_type',
259: exceptionNumberIn => errorCode,
260: exceptionStringIn => errorMessage);
261: raise_application_error(errorCode,

Line 264: ame_util.runtimeException('ame_rules_api2',

260: exceptionStringIn => errorMessage);
261: raise_application_error(errorCode,
262: errorMessage);
263: when others then
264: ame_util.runtimeException('ame_rules_api2',
265: 'validate_rule_type',
266: sqlcode,
267: sqlerrm);
268: raise;

Line 290: DBMS_LOCK.ALLOCATE_UNIQUE (lockname =>'AME_RULES.'||X_RULE_KEY,lockhandle => lockHandle);

286: returnValue integer;
287: X_RULE_ID number;
288: begin
289:
290: DBMS_LOCK.ALLOCATE_UNIQUE (lockname =>'AME_RULES.'||X_RULE_KEY,lockhandle => lockHandle);
291: returnValue := DBMS_LOCK.REQUEST(lockhandle => lockHandle,timeout => 0, release_on_commit=>true);
292: if returnValue = 0 then
293: select ame_rules_s.nextval into X_RULE_ID from dual;
294: insert into AME_RULES

Line 293: select ame_rules_s.nextval into X_RULE_ID from dual;

289:
290: DBMS_LOCK.ALLOCATE_UNIQUE (lockname =>'AME_RULES.'||X_RULE_KEY,lockhandle => lockHandle);
291: returnValue := DBMS_LOCK.REQUEST(lockhandle => lockHandle,timeout => 0, release_on_commit=>true);
292: if returnValue = 0 then
293: select ame_rules_s.nextval into X_RULE_ID from dual;
294: insert into AME_RULES
295: (
296: RULE_ID,
297: RULE_KEY,

Line 294: insert into AME_RULES

290: DBMS_LOCK.ALLOCATE_UNIQUE (lockname =>'AME_RULES.'||X_RULE_KEY,lockhandle => lockHandle);
291: returnValue := DBMS_LOCK.REQUEST(lockhandle => lockHandle,timeout => 0, release_on_commit=>true);
292: if returnValue = 0 then
293: select ame_rules_s.nextval into X_RULE_ID from dual;
294: insert into AME_RULES
295: (
296: RULE_ID,
297: RULE_KEY,
298: RULE_TYPE,

Line 327: from AME_RULES

323: X_ITEM_CLASS_ID,
324: X_OBJECT_VERSION_NUMBER
325: from sys.dual
326: where not exists (select NULL
327: from AME_RULES
328: where RULE_KEY = X_RULE_KEY
329: and sysdate between START_DATE
330: and nvl(END_DATE - (1/86400), sysdate));
331: if sql%found then

Line 335: insert into AME_RULES_TL

331: if sql%found then
332: if not AME_SEED_UTILITY.MLS_ENABLED then
333: return;
334: end if;
335: insert into AME_RULES_TL
336: (RULE_ID
337: ,DESCRIPTION
338: ,CREATED_BY
339: ,CREATION_DATE

Line 357: from AME_RULES_TL T

353: userenv('LANG')
354: from FND_LANGUAGES L
355: where L.INSTALLED_FLAG in ('I', 'B')
356: and not exists (select null
357: from AME_RULES_TL T
358: where T.RULE_ID = X_RULE_ID
359: and T.LANGUAGE = L.LANGUAGE_CODE);
360: end if;
361: end if;

Line 382: DBMS_LOCK.ALLOCATE_UNIQUE (lockname =>'AME_RULES.'||X_RULE_ID,lockhandle => lockHandle);

378: is
379: lockHandle varchar2(500);
380: returnValue integer;
381: begin
382: DBMS_LOCK.ALLOCATE_UNIQUE (lockname =>'AME_RULES.'||X_RULE_ID,lockhandle => lockHandle);
383: returnValue := DBMS_LOCK.REQUEST(lockhandle => lockHandle,timeout => 0, release_on_commit=>true);
384: if returnValue = 0 then
385: insert into AME_RULES
386: (

Line 385: insert into AME_RULES

381: begin
382: DBMS_LOCK.ALLOCATE_UNIQUE (lockname =>'AME_RULES.'||X_RULE_ID,lockhandle => lockHandle);
383: returnValue := DBMS_LOCK.REQUEST(lockhandle => lockHandle,timeout => 0, release_on_commit=>true);
384: if returnValue = 0 then
385: insert into AME_RULES
386: (
387: RULE_ID,
388: RULE_KEY,
389: RULE_TYPE,

Line 418: from AME_RULES

414: X_ITEM_CLASS_ID,
415: X_OBJECT_VERSION_NUMBER
416: from sys.dual
417: where not exists (select NULL
418: from AME_RULES
419: where RULE_ID = X_RULE_ID
420: and ((START_DATE - (1/86400)) <= sysdate)
421: and (((END_DATE - (1/86400)) >= sysdate)
422: or (END_DATE is null)));

Line 428: insert into AME_RULES_TL

424: if sql%found then
425: if not AME_SEED_UTILITY.MLS_ENABLED then
426: return;
427: end if;
428: insert into AME_RULES_TL
429: (RULE_ID
430: ,DESCRIPTION
431: ,CREATED_BY
432: ,CREATION_DATE

Line 450: from AME_RULES_TL T

446: userenv('LANG')
447: from FND_LANGUAGES L
448: where L.INSTALLED_FLAG in ('I', 'B')
449: and not exists (select null
450: from AME_RULES_TL T
451: where T.RULE_ID = X_RULE_ID
452: and T.LANGUAGE = L.LANGUAGE_CODE);
453: end if;
454: end if;

Line 462: delete from AME_RULES_TL

458: X_RULE_KEY in VARCHAR2
459: ) is
460: begin
461: if AME_SEED_UTILITY.MLS_ENABLED then
462: delete from AME_RULES_TL
463: where RULE_ID in (select RULE_ID
464: from AME_RULES
465: where RULE_KEY = X_RULE_KEY);
466: end if;

Line 464: from AME_RULES

460: begin
461: if AME_SEED_UTILITY.MLS_ENABLED then
462: delete from AME_RULES_TL
463: where RULE_ID in (select RULE_ID
464: from AME_RULES
465: where RULE_KEY = X_RULE_KEY);
466: end if;
467: delete from AME_RULES
468: where RULE_KEY = X_RULE_KEY;

Line 467: delete from AME_RULES

463: where RULE_ID in (select RULE_ID
464: from AME_RULES
465: where RULE_KEY = X_RULE_KEY);
466: end if;
467: delete from AME_RULES
468: where RULE_KEY = X_RULE_KEY;
469: if (sql%notfound) then
470: raise no_data_found;
471: end if;

Line 490: X_EXISTING_RULE_KEY ame_rules.rule_key%type:=null;

486: is
487: X_ACTION_ID NUMBER :=null;
488: X_CREATED_BY NUMBER;
489: X_CUSTOM_DETECT BOOLEAN := false;
490: X_EXISTING_RULE_KEY ame_rules.rule_key%type:=null;
491: X_ITEM_CLASS_ID NUMBER;
492: X_LAST_UPDATED_BY NUMBER;
493: X_LAST_UPDATE_LOGIN NUMBER;
494: X_RULE_ID_LOAD NUMBER;

Line 543: update AME_RULES

539: --the following insert does not occur for prior versions of AME 11510
540: if AME_SEED_UTILITY.IS_SEED_USER(X_OWNER) and
541: (X_RULE_ID_LOAD is not null) and
542: X_CUSTOM_DETECT then
543: update AME_RULES
544: set RULE_KEY = '@' || X_RULE_KEY
545: where RULE_KEY = X_RULE_KEY;
546: INSERT_ROW (
547: X_RULE_KEY,

Line 617: update AME_RULES

613: -- must be synchronized with the newer ldt extract from SEED
614: if (X_RULE_COUNT > 0) and
615: (X_EXISTING_RULE_KEY is not null) and
616: (X_EXISTING_RULE_KEY <> X_RULE_KEY) then
617: update AME_RULES
618: set RULE_KEY = X_RULE_KEY
619: where RULE_KEY = X_EXISTING_RULE_KEY
620: and RULE_ID = X_RULE_ID;
621: end if;

Line 627: ame_util.runtimeException('ame_rules_api2',

623: exception
624: when duplicateRuleKeyException then
625: null;
626: when others then
627: ame_util.runtimeException('ame_rules_api2',
628: 'load_row',
629: sqlcode,
630: sqlerrm);
631: raise;

Line 658: from AME_RULES ARU,

654: into X_CURRENT_OWNER,
655: X_CURRENT_LAST_UPDATE_DATE,
656: X_CREATED_BY,
657: X_RULE_ID
658: from AME_RULES ARU,
659: AME_RULES_TL ARUTL
660: where ARU.RULE_KEY = X_RULE_KEY
661: and sysdate between ARU.START_DATE and nvl(ARU.END_DATE - (1/86400),sysdate)
662: and ARUTL.RULE_ID = ARU.RULE_ID

Line 659: AME_RULES_TL ARUTL

655: X_CURRENT_LAST_UPDATE_DATE,
656: X_CREATED_BY,
657: X_RULE_ID
658: from AME_RULES ARU,
659: AME_RULES_TL ARUTL
660: where ARU.RULE_KEY = X_RULE_KEY
661: and sysdate between ARU.START_DATE and nvl(ARU.END_DATE - (1/86400),sysdate)
662: and ARUTL.RULE_ID = ARU.RULE_ID
663: and ARUTL.LANGUAGE = userenv('LANG');

Line 671: update AME_RULES_TL ARUTL

667: X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
668: X_CURRENT_LAST_UPDATE_DATE => X_CURRENT_LAST_UPDATE_DATE,
669: X_CREATED_BY => X_CREATED_BY,
670: X_CUSTOM_MODE => X_CUSTOM_MODE) then
671: update AME_RULES_TL ARUTL
672: set DESCRIPTION = nvl(X_DESCRIPTION,DESCRIPTION),
673: SOURCE_LANG = userenv('LANG'),
674: LAST_UPDATE_DATE = AME_SEED_UTILITY.DATE_AS_DATE(X_LAST_UPDATE_DATE),
675: LAST_UPDATED_BY = AME_SEED_UTILITY.OWNER_AS_INTEGER(X_OWNER),

Line 686: END AME_RULES_API2;

682: null;
683: end;
684: end TRANSLATE_ROW;
685:
686: END AME_RULES_API2;