1: Package Body hr_api_wf_events as
2: /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $ */
3: g_package varchar2(33) := ' hr_api_wf_events.';
4: --
5: function get_entity(p_package_name varchar2)
1: Package Body hr_api_wf_events as
2: /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $ */
3: g_package varchar2(33) := ' hr_api_wf_events.';
4: --
5: function get_entity(p_package_name varchar2)
6: return varchar2 is
7: l_entity varchar2(80);
192: add_body_line(' l_text varchar2(2000);'); --2753722
193: add_body_line(' l_message varchar2(10);');
194: add_body_line(' --');
195: add_body_line(' cursor get_seq is');
196: add_body_line(' select per_wf_events_s.nextval from dual;');
197: add_body_line(' --');
198: add_body_line(' l_proc varchar2(72):='' '||l_package_name||'.'
199: ||l_proc_name||''';');
200: add_body_line('begin');
390: and ahk.api_hook_type='AP';
391: --
392: cursor event_exists(p_event_name varchar2) is
393: select GUID,STATUS
394: from wf_events
395: where name=p_event_name;
396: --
397: cursor appl_name(p_application_short_name varchar2) is
398: select application_name
408: l_guid varchar2(250);
409: l_name varchar2(250);
410: l_product_code varchar2(30);
411: l_application_name fnd_application_tl.application_name%type;
412: l_status wf_events.status%type;
413: --
414: begin
415: --
416: l_package_name:=get_package_name(p_package_name=>p_hook_package);
438: if event_exists%found then
439: close event_exists;
440: l_xml:=
441: '
442:
444:
445: l_xml:=l_xml||'
446:
456: l_xml:=l_xml||'
457:
458: ||' API
459: l_xml:=l_xml||'
460:
461: ';
462: else
463: close event_exists;
464: l_xml:=
462: else
463: close event_exists;
464: l_xml:=
465: '
466:
468:
469: l_xml:=l_xml||'
470:
480: l_xml:=l_xml||'
481:
482: ||' API
483: l_xml:=l_xml||'
484:
485: ';
486: end if;
487: wf_events_pkg.receive(l_xml);
488: end loop;
483: l_xml:=l_xml||'
484:
485: ';
486: end if;
487: wf_events_pkg.receive(l_xml);
488: end loop;
489: end register_business_event;
490: --
491: procedure add_event(p_hook_package varchar2
522: p_event in out nocopy wf_event_t)
523: return varchar2
524: is
525: begin
526: select per_wf_events_s.nextval into p_event.Correlation_ID from dual;
527: return WF_RULE.DEFAULT_RULE(p_subscription_guid, p_event);
528: end;
529: --
530: end hr_api_wf_events;
526: select per_wf_events_s.nextval into p_event.Correlation_ID from dual;
527: return WF_RULE.DEFAULT_RULE(p_subscription_guid, p_event);
528: end;
529: --
530: end hr_api_wf_events;