146:
147: return g_event_id;
148: exception
149: when dual_no_rows then
150: fnd_message.set_name ('FND', 'No Rows in Dual');
151: return(0);
152: when dual_too_many_rows then
153: fnd_message.set_name ('FND', 'Too many rows in Dual');
154: return(0);
149: when dual_no_rows then
150: fnd_message.set_name ('FND', 'No Rows in Dual');
151: return(0);
152: when dual_too_many_rows then
153: fnd_message.set_name ('FND', 'Too many rows in Dual');
154: return(0);
155: when others then
156: fnd_message.set_name ('FND', 'SQL-Generic error');
157: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
152: when dual_too_many_rows then
153: fnd_message.set_name ('FND', 'Too many rows in Dual');
154: return(0);
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);
153: fnd_message.set_name ('FND', 'Too many rows in Dual');
154: return(0);
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:
154: return(0);
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);
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;
346: when source_id_null then
347: rollback;
348: return FALSE;
349: when insert_error then
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);
347: rollback;
348: return FALSE;
349: when insert_error then
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;
348: return FALSE;
349: when insert_error then
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;
349: when insert_error then
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
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');
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:
355: rollback;
356: return 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;
356: return 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;
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;
470: g_total_events := nvl(g_total_events,0) + 1;
471: l_event_id := c_events.event_id;
472: l_message_name := c_events.message_name;
473: -- set the message in message stack
474: fnd_message.set_name('FND', l_message_name );
475:
476: if ( c_events.tokens = 'Y' ) then
477: -- get all tokens for this event
478: for c_tokens in c_conc_tokens( l_event_id ) loop
496: end;
497: end if;
498:
499: -- set this token in message stack
500: fnd_message.set_token(l_token, l_token_value, l_translate);
501: end loop;
502: end if; -- if there are any tokens
503:
504: -- get the translated message and store it in plsql tables
502: end if; -- if there are any tokens
503:
504: -- get the translated message and store it in plsql tables
505: g_events(g_total_events).event_id := l_event_id;
506: g_events(g_total_events).event := fnd_message.get;
507: g_remaining_events := g_total_events;
508: end loop;
509: end if;
510:
533: end if;
534:
535: exception
536: when others then
537: fnd_message.set_name ('FND', 'SQL-Generic error');
538: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
539: fnd_message.set_token ('REASON', sqlerrm, FALSE);
540: fnd_message.set_token ('ROUTINE', routine, FALSE);
541: message := fnd_message.get;
534:
535: exception
536: when others then
537: fnd_message.set_name ('FND', 'SQL-Generic error');
538: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
539: fnd_message.set_token ('REASON', sqlerrm, FALSE);
540: fnd_message.set_token ('ROUTINE', routine, FALSE);
541: message := fnd_message.get;
542: remaining := 0;
535: exception
536: when others then
537: fnd_message.set_name ('FND', 'SQL-Generic error');
538: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
539: fnd_message.set_token ('REASON', sqlerrm, FALSE);
540: fnd_message.set_token ('ROUTINE', routine, FALSE);
541: message := fnd_message.get;
542: remaining := 0;
543: g_total_events := NULL;
536: when others then
537: fnd_message.set_name ('FND', 'SQL-Generic error');
538: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
539: fnd_message.set_token ('REASON', sqlerrm, FALSE);
540: fnd_message.set_token ('ROUTINE', routine, FALSE);
541: message := fnd_message.get;
542: remaining := 0;
543: g_total_events := NULL;
544: rollback;
537: fnd_message.set_name ('FND', 'SQL-Generic error');
538: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
539: fnd_message.set_token ('REASON', sqlerrm, FALSE);
540: fnd_message.set_token ('ROUTINE', routine, FALSE);
541: message := fnd_message.get;
542: remaining := 0;
543: g_total_events := NULL;
544: rollback;
545: RETURN FALSE;
636: /* Nothing was picked up from the queue */
637: return 0;
638: end if;
639:
640: fnd_message.set_name(msg_appl_sn, msg_name);
641:
642: if (token_flag = 'Y') then
643: for c2rec in c2(inst_id) loop
644: if (c2rec.type = 'C') then
641:
642: if (token_flag = 'Y') then
643: for c2rec in c2(inst_id) loop
644: if (c2rec.type = 'C') then
645: fnd_message.set_token(c2rec.token, c2rec.value, FALSE);
646: elsif (c2rec.type = 'T') then
647: fnd_message.set_token(c2rec.token, c2rec.value, TRUE);
648: else /* Type S */
649: declare
643: for c2rec in c2(inst_id) loop
644: if (c2rec.type = 'C') then
645: fnd_message.set_token(c2rec.token, c2rec.value, FALSE);
646: elsif (c2rec.type = 'T') then
647: fnd_message.set_token(c2rec.token, c2rec.value, TRUE);
648: else /* Type S */
649: declare
650: token_text varchar2(2000);
651: begin
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;
662: end if;
660: end if;
661: end loop;
662: end if;
663:
664: event_text := fnd_message.get;
665: event_time := t;
666: event_severity := sev;
667:
668: return 1;
669:
670:
671: exception
672: when others then
673: fnd_message.set_name ('FND', 'SQL-Generic error');
674: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
675: fnd_message.set_token ('REASON', sqlerrm, FALSE);
676: fnd_message.set_token ('ROUTINE', routine, FALSE);
677: event_text := fnd_message.get;
670:
671: exception
672: when others then
673: fnd_message.set_name ('FND', 'SQL-Generic error');
674: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
675: fnd_message.set_token ('REASON', sqlerrm, FALSE);
676: fnd_message.set_token ('ROUTINE', routine, FALSE);
677: event_text := fnd_message.get;
678: rollback;
671: exception
672: when others then
673: fnd_message.set_name ('FND', 'SQL-Generic error');
674: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
675: fnd_message.set_token ('REASON', sqlerrm, FALSE);
676: fnd_message.set_token ('ROUTINE', routine, FALSE);
677: event_text := fnd_message.get;
678: rollback;
679: return 2;
672: when others then
673: fnd_message.set_name ('FND', 'SQL-Generic error');
674: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
675: fnd_message.set_token ('REASON', sqlerrm, FALSE);
676: fnd_message.set_token ('ROUTINE', routine, FALSE);
677: event_text := fnd_message.get;
678: rollback;
679: return 2;
680: end;
673: fnd_message.set_name ('FND', 'SQL-Generic error');
674: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
675: fnd_message.set_token ('REASON', sqlerrm, FALSE);
676: fnd_message.set_token ('ROUTINE', routine, FALSE);
677: event_text := fnd_message.get;
678: rollback;
679: return 2;
680: end;
681:
726: if (msg_name is null) then
727: return null;
728: end if;
729:
730: fnd_message.set_name(msg_appl_sn, msg_name);
731:
732: if (token_flag = 'Y') then
733: for c2rec in c(oem_get_text.event_id) loop
734: if (c2rec.type = 'C') then
731:
732: if (token_flag = 'Y') then
733: for c2rec in c(oem_get_text.event_id) loop
734: if (c2rec.type = 'C') then
735: fnd_message.set_token(c2rec.token, c2rec.value, FALSE);
736: elsif (c2rec.type = 'T') then
737: fnd_message.set_token(c2rec.token, c2rec.value, TRUE);
738: else /* Type S */
739: declare
733: for c2rec in c(oem_get_text.event_id) loop
734: if (c2rec.type = 'C') then
735: fnd_message.set_token(c2rec.token, c2rec.value, FALSE);
736: elsif (c2rec.type = 'T') then
737: fnd_message.set_token(c2rec.token, c2rec.value, TRUE);
738: else /* Type S */
739: declare
740: token_text varchar2(2000);
741: begin
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;
752: end if;
750: end if;
751: end loop;
752: end if;
753:
754: event_text := fnd_message.get;
755:
756: return event_text;
757:
758: exception
756: return event_text;
757:
758: exception
759: when others then
760: fnd_message.set_name ('FND', 'SQL-Generic error');
761: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
762: fnd_message.set_token ('REASON', sqlerrm, FALSE);
763: fnd_message.set_token ('ROUTINE', routine, FALSE);
764: event_text := fnd_message.get;
757:
758: exception
759: when others then
760: fnd_message.set_name ('FND', 'SQL-Generic error');
761: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
762: fnd_message.set_token ('REASON', sqlerrm, FALSE);
763: fnd_message.set_token ('ROUTINE', routine, FALSE);
764: event_text := fnd_message.get;
765: rollback;
758: exception
759: when others then
760: fnd_message.set_name ('FND', 'SQL-Generic error');
761: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
762: fnd_message.set_token ('REASON', sqlerrm, FALSE);
763: fnd_message.set_token ('ROUTINE', routine, FALSE);
764: event_text := fnd_message.get;
765: rollback;
766: return event_text;
759: when others then
760: fnd_message.set_name ('FND', 'SQL-Generic error');
761: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
762: fnd_message.set_token ('REASON', sqlerrm, FALSE);
763: fnd_message.set_token ('ROUTINE', routine, FALSE);
764: event_text := fnd_message.get;
765: rollback;
766: return event_text;
767: end;
760: fnd_message.set_name ('FND', 'SQL-Generic error');
761: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
762: fnd_message.set_token ('REASON', sqlerrm, FALSE);
763: fnd_message.set_token ('ROUTINE', routine, FALSE);
764: event_text := fnd_message.get;
765: rollback;
766: return event_text;
767: end;
768: