APPS.AME_RULES_API dependencies on AME_RULES

Line 1: PACKAGE BODY AME_RULES_API AS

1: PACKAGE BODY AME_RULES_API AS
2: /* $Header: amerlapi.pkb 120.1 2005/10/14 04:13 ubhat noship $ */
3: X_AME_INSTALLATION_LEVEL varchar2(255);
4: procedure OWNER_TO_WHO (
5: X_OWNER in VARCHAR2,

Line 66: from AME_RULES

62: (
63: X_RULE_ID in NUMBER
64: ) is
65: select COUNT(*)
66: from AME_RULES
67: where RULE_ID = X_RULE_ID;
68:
69: begin
70: X_CURRENT_USAGE_OVN := 1;

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

121: exception
122: when invalidRuleTypeException then
123: errorCode := -20001;
124: errorMessage := 'OAM is attempting to upload an invalid rule type. ';
125: ame_util.runtimeException(packageNameIn => 'ame_rules_api2',
126: routineNameIn => 'validate_rule_type',
127: exceptionNumberIn => errorCode,
128: exceptionStringIn => errorMessage);
129: raise_application_error(errorCode,

Line 132: ame_util.runtimeException('ame_rules_api2',

128: exceptionStringIn => errorMessage);
129: raise_application_error(errorCode,
130: errorMessage);
131: when others then
132: ame_util.runtimeException('ame_rules_api2',
133: 'validate_rule_type',
134: sqlcode,
135: sqlerrm);
136: raise;

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

153: is
154: lockHandle varchar2(500);
155: returnValue integer;
156: begin
157: DBMS_LOCK.ALLOCATE_UNIQUE (lockname =>'AME_RULES.'||X_RULE_ID,lockhandle => lockHandle);
158: returnValue := DBMS_LOCK.REQUEST(lockhandle => lockHandle,timeout => 0
159: ,release_on_commit => true);
160: if returnValue = 0 then
161: insert into AME_RULES

Line 161: insert into AME_RULES

157: DBMS_LOCK.ALLOCATE_UNIQUE (lockname =>'AME_RULES.'||X_RULE_ID,lockhandle => lockHandle);
158: returnValue := DBMS_LOCK.REQUEST(lockhandle => lockHandle,timeout => 0
159: ,release_on_commit => true);
160: if returnValue = 0 then
161: insert into AME_RULES
162: (
163: RULE_ID,
164: RULE_KEY,
165: RULE_TYPE,

Line 194: from AME_RULES

190: X_ITEM_CLASS_ID,
191: X_OBJECT_VERSION_NUMBER
192: from sys.dual
193: where not exists (select NULL
194: from AME_RULES
195: where ((RULE_ID = X_RULE_ID
196: and sysdate < nvl(END_DATE - (1/86400), sysdate + (1/86400)))
197: or (X_AME_INSTALLATION_LEVEL is not null and RULE_KEY = X_RULE_KEY))
198: );

Line 200: insert into AME_RULES_TL

196: and sysdate < nvl(END_DATE - (1/86400), sysdate + (1/86400)))
197: or (X_AME_INSTALLATION_LEVEL is not null and RULE_KEY = X_RULE_KEY))
198: );
199: if sql%found then
200: insert into AME_RULES_TL
201: (RULE_ID
202: ,DESCRIPTION
203: ,CREATED_BY
204: ,CREATION_DATE

Line 222: from AME_RULES_TL T

218: userenv('LANG')
219: from FND_LANGUAGES L
220: where L.INSTALLED_FLAG in ('I', 'B')
221: and not exists (select null
222: from AME_RULES_TL T
223: where T.RULE_ID = X_RULE_ID
224: and T.LANGUAGE = L.LANGUAGE_CODE);
225: end if;
226: end if;

Line 300: delete from AME_RULES

296: procedure DELETE_ROW (
297: X_RULE_ID in VARCHAR2
298: ) is
299: begin
300: delete from AME_RULES
301: where RULE_ID = X_RULE_ID;
302: if (sql%notfound) then
303: raise no_data_found;
304: end if;

Line 323: X_NEW_RULE_KEY AME_RULES.RULE_KEY%TYPE;

319: select to_char(DB.DBID)
320: from V$DATABASE DB, V$INSTANCE INSTANCE
321: where upper(DB.NAME) = upper(INSTANCE.INSTANCE_NAME);
322: X_DATABASE_ID VARCHAR2(50);
323: X_NEW_RULE_KEY AME_RULES.RULE_KEY%TYPE;
324: X_RULE_COUNT NUMBER;
325: X_RULE_KEY_ID NUMBER;
326: begin
327: open GET_DBID_CURSOR;

Line 341: from AME_RULES

337: select AME_RULE_KEYS_S.NEXTVAL into X_RULE_KEY_ID from dual;
338: X_NEW_RULE_KEY := X_DATABASE_ID ||':'|| X_RULE_KEY_ID;
339: select count(*)
340: into X_RULE_COUNT
341: from AME_RULES
342: where upper(RULE_KEY) = upper(X_NEW_RULE_KEY)
343: and rownum < 2;
344: if X_RULE_COUNT = 0 then
345: exit;

Line 351: ame_util.runtimeException('ame_rules_api',

347: end loop;
348: return(X_NEW_RULE_KEY);
349: exception
350: when others then
351: ame_util.runtimeException('ame_rules_api',
352: 'create_rule_key',
353: sqlcode,
354: sqlerrm);
355: raise;

Line 380: X_RULE_KEY ame_rules.rule_key%type;

376: X_ITEM_CLASS_ID NUMBER;
377: X_LAST_UPDATED_BY NUMBER;
378: X_LAST_UPDATE_LOGIN NUMBER;
379: X_RULE_COUNT NUMBER:= 0;
380: X_RULE_KEY ame_rules.rule_key%type;
381: X_USAGE_ROWID ROWID;
382: begin
383: X_AME_INSTALLATION_LEVEL := fnd_profile.value('AME_INSTALLATION_LEVEL');
384: KEY_TO_IDS (

Line 476: ame_util.runtimeException('ame_rules_api',

472: end if;
473: end;
474: exception
475: when others then
476: ame_util.runtimeException('ame_rules_api',
477: 'load_row',
478: sqlcode,
479: sqlerrm);
480: raise;

Line 484: END AME_RULES_API;

480: raise;
481: end LOAD_ROW;
482: --
483:
484: END AME_RULES_API;