DBA Data[Home] [Help]

APPS.FND_EVENT dependencies on FND_EVENT

Line 1: package body FND_EVENT as

1: package body FND_EVENT as
2: /* $Header: AFAMEVTB.pls 120.2 2005/08/19 18:23:08 tkamiya ship $ */
3:
4:
5: -- Used to set the context for the event

Line 90: -- One has to call initialize before calling fnd_event.post.

86:
87: -- Name : initialize
88: -- Description:
89: -- initialize sets the context for the event.
90: -- One has to call initialize before calling fnd_event.post.
91: -- Returns event_id if successfull otherwise 0.
92: -- Arguments:
93: -- source_application_id -
94: -- source_type - 'M'(manager)/'R'(Request)

Line 134: select fnd_events_s.nextval

130: g_tokens := empty_token;
131:
132: -- get next event_id from sequence
133: begin
134: select fnd_events_s.nextval
135: into g_event_id
136: from sys.dual;
137:
138: exception

Line 159: fnd_message.set_token ('ROUTINE', 'FND_EVENT.initialize:others',

155: when others then
156: fnd_message.set_name ('FND', 'SQL-Generic error');
157: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
158: fnd_message.set_token ('REASON', sqlerrm, FALSE);
159: fnd_message.set_token ('ROUTINE', 'FND_EVENT.initialize:others',
160: FALSE);
161:
162: return(0);
163: END;

Line 213: -- It inserts the cp_event into fnd_events table, fnd_event_tokens

209: END;
210:
211: -- Name : post
212: -- Description:
213: -- It inserts the cp_event into fnd_events table, fnd_event_tokens
214: -- Call this function after calling initialize and optionally set_token.
215: -- If successfull it returns TRUE else returns FALSE.
216: -- Arguments: event_id - event_id for which you want to post events.
217:

Line 295: -- insert into fnd_events table

291: g_source_type := 'O'; -- use source_type as Others
292: end if;
293:
294:
295: -- insert into fnd_events table
296: begin
297: insert into fnd_events
298: (event_id, source_application_id, source_id,
299: source_type, dest_type, message_appl_short_name,

Line 297: insert into fnd_events

293:
294:
295: -- insert into fnd_events table
296: begin
297: insert into fnd_events
298: (event_id, source_application_id, source_id,
299: source_type, dest_type, message_appl_short_name,
300: message_name, module, user_id, resp_appl_id,
301: responsibility_id, security_group_id, session_id, node,

Line 317: -- insert into fnd_event_tokens table

313: raise insert_error;
314: end if;
315: end;
316:
317: -- insert into fnd_event_tokens table
318: begin
319: for i in 1..g_token_count loop
320: p_token_name := g_tokens(i).token;
321: p_token_value := g_tokens(i).value;

Line 324: insert into fnd_event_tokens

320: p_token_name := g_tokens(i).token;
321: p_token_value := g_tokens(i).value;
322: p_token_translate := g_tokens(i).type;
323:
324: insert into fnd_event_tokens
325: (event_id, token,
326: type, value)
327: values
328: ( post.event_id, p_token_name,

Line 354: 'ROUTINE', 'FND_EVENT.post: insert_error', FALSE);

350: fnd_message.set_name ('FND', 'SQL-Generic error');
351: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
352: fnd_message.set_token ('REASON', sqlerrm, FALSE);
353: fnd_message.set_token (
354: 'ROUTINE', 'FND_EVENT.post: insert_error', FALSE);
355: rollback;
356: return FALSE;
357: when others then
358: fnd_message.set_name ('FND', 'SQL-Generic error');

Line 361: fnd_message.set_token ('ROUTINE', 'FND_EVENT.post: others', FALSE);

357: when others then
358: fnd_message.set_name ('FND', 'SQL-Generic error');
359: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
360: fnd_message.set_token ('REASON', sqlerrm, FALSE);
361: fnd_message.set_token ('ROUTINE', 'FND_EVENT.post: others', FALSE);
362:
363: rollback;
364: return FALSE;
365: end;

Line 384: update fnd_events

380: if ( upper(flag) not in ('Y','N') ) then
381: raise invalid_flag;
382: end if;
383:
384: update fnd_events
385: set processed = upper(flag)
386: where event_id = set_processed.event_id;
387:
388: commit;

Line 423: select /*+ index(FND_EVENTS) */ event_id, message_name, tokens

419: message IN OUT NOCOPY varchar2,
420: remaining IN OUT NOCOPY number) return boolean is
421:
422: cursor c_conc_events(p_source_id number, p_source_type varchar2) is
423: select /*+ index(FND_EVENTS) */ event_id, message_name, tokens
424: from fnd_events
425: where source_id = p_source_id
426: and source_type = p_source_type
427: order by event_id;

Line 424: from fnd_events

420: remaining IN OUT NOCOPY number) return boolean is
421:
422: cursor c_conc_events(p_source_id number, p_source_type varchar2) is
423: select /*+ index(FND_EVENTS) */ event_id, message_name, tokens
424: from fnd_events
425: where source_id = p_source_id
426: and source_type = p_source_type
427: order by event_id;
428:

Line 431: from fnd_event_tokens

427: order by event_id;
428:
429: cursor c_conc_tokens( p_event_id number) is
430: select token, type, value
431: from fnd_event_tokens
432: where event_id = p_event_id;
433:
434: l_event_id number;
435: l_message_name varchar2(30);

Line 444: routine varchar2(50) default 'FND_EVENT.GET';

440: l_source_type varchar2(1);
441: i number;
442: empty_events events_tab_type;
443:
444: routine varchar2(50) default 'FND_EVENT.GET';
445: begin
446:
447: -- if the conc prog is running from OS then source_id will be either 0 or -1
448: -- if source_id is 0 or -1 then use the session id

Line 491: routine := 'FND_EVENT.GET (Token SQL)';

487: token_text varchar2(2000);
488: begin
489: /* Set the routine name reported in exceptions, *
490: * so that the API isn't blamed for bad token SQL.*/
491: routine := 'FND_EVENT.GET (Token SQL)';
492: execute immediate c_tokens.value
493: into l_token_value;
494: routine := 'FND_EVENT.GET';
495: l_translate := FALSE;

Line 494: routine := 'FND_EVENT.GET';

490: * so that the API isn't blamed for bad token SQL.*/
491: routine := 'FND_EVENT.GET (Token SQL)';
492: execute immediate c_tokens.value
493: into l_token_value;
494: routine := 'FND_EVENT.GET';
495: l_translate := FALSE;
496: end;
497: end if;
498:

Line 556: -- of 'O' from the fnd_events table. The retrieved event is marked

552: -- OEM_GET
553: --
554: -- Purpose
555: -- Retrieves the next unprocessed event with a destination type
556: -- of 'O' from the fnd_events table. The retrieved event is marked
557: -- as processed.
558: --
559: -- Arguments
560: -- event_text - Text of the event. (out)

Line 583: from fnd_events

579: pragma exception_init(row_locked, -54);
580:
581: cursor c1 is
582: select event_id
583: from fnd_events
584: where processed = 'N';
585:
586: cursor c2 (instance_id number) is
587: select token, type, value

Line 588: from fnd_event_tokens

584: where processed = 'N';
585:
586: cursor c2 (instance_id number) is
587: select token, type, value
588: from fnd_event_tokens
589: where event_id = instance_id;
590:
591: inst_id number;
592: msg_appl_sn varchar2(50);

Line 597: routine varchar2(50) default 'FND_EVENT.OEM_GET';

593: msg_name varchar2(30) default null;
594: sev varchar2(30);
595: t date;
596: token_flag varchar2(1);
597: routine varchar2(50) default 'FND_EVENT.OEM_GET';
598: begin
599: /* Clear parameters */
600: event_text := null;
601: event_time := null;

Line 612: from fnd_events

608: begin
609: select message_appl_short_name, message_name,
610: time, severity, tokens
611: into msg_appl_sn, msg_name, t, sev, token_flag
612: from fnd_events
613: where event_id = inst_id
614: and processed = 'N'
615: for update of processed nowait;
616: exception

Line 624: update fnd_events

620: goto loop_end;
621: end;
622:
623: /* We've got the lock. Mark the event has processed. */
624: update fnd_events
625: set processed = 'Y'
626: where event_id = inst_id;
627:
628: commit;

Line 654: routine := 'FND_EVENT.OEM_GET (Token SQL)';

650: token_text varchar2(2000);
651: begin
652: /* Set the routine name reported in exceptions, *
653: * so that the API isn't blamed for bad token SQL.*/
654: routine := 'FND_EVENT.OEM_GET (Token SQL)';
655: execute immediate c2rec.value
656: into token_text;
657: routine := 'FND_EVENT.OEM_GET';
658: fnd_message.set_token(c2rec.token, token_text, FALSE);

Line 657: routine := 'FND_EVENT.OEM_GET';

653: * so that the API isn't blamed for bad token SQL.*/
654: routine := 'FND_EVENT.OEM_GET (Token SQL)';
655: execute immediate c2rec.value
656: into token_text;
657: routine := 'FND_EVENT.OEM_GET';
658: fnd_message.set_token(c2rec.token, token_text, FALSE);
659: end;
660: end if;
661: end loop;

Line 711: from fnd_event_tokens

707: FUNCTION oem_get_text ( event_id number ) return varchar2 is
708:
709: cursor c (instance_id number) is
710: select token, type, value
711: from fnd_event_tokens
712: where event_id = instance_id;
713:
714: msg_appl_sn varchar2(50);
715: msg_name varchar2(30) default null;

Line 717: routine varchar2(50) default 'FND_EVENT.OEM_GET_TEXT';

713:
714: msg_appl_sn varchar2(50);
715: msg_name varchar2(30) default null;
716: token_flag varchar2(1);
717: routine varchar2(50) default 'FND_EVENT.OEM_GET_TEXT';
718: event_text varchar2(2000);
719: begin
720:
721: select message_appl_short_name, message_name, tokens

Line 723: from fnd_events

719: begin
720:
721: select message_appl_short_name, message_name, tokens
722: into msg_appl_sn, msg_name, token_flag
723: from fnd_events
724: where event_id = oem_get_text.event_id;
725:
726: if (msg_name is null) then
727: return null;

Line 744: routine := 'FND_EVENT.OEM_GET_TEXT (Token SQL)';

740: token_text varchar2(2000);
741: begin
742: /* Set the routine name reported in exceptions, *
743: * so that the API isn't blamed for bad token SQL.*/
744: routine := 'FND_EVENT.OEM_GET_TEXT (Token SQL)';
745: execute immediate c2rec.value
746: into token_text;
747: routine := 'FND_EVENT.OEM_GET_TEXT';
748: fnd_message.set_token(c2rec.token, token_text, FALSE);

Line 747: routine := 'FND_EVENT.OEM_GET_TEXT';

743: * so that the API isn't blamed for bad token SQL.*/
744: routine := 'FND_EVENT.OEM_GET_TEXT (Token SQL)';
745: execute immediate c2rec.value
746: into token_text;
747: routine := 'FND_EVENT.OEM_GET_TEXT';
748: fnd_message.set_token(c2rec.token, token_text, FALSE);
749: end;
750: end if;
751: end loop;

Line 769: end FND_EVENT;

765: rollback;
766: return event_text;
767: end;
768:
769: end FND_EVENT;