[Home] [Help]
PACKAGE BODY: APPS.PER_REC_ACTIVITY_FOR_BE1
Source
1 package body per_rec_activity_for_be1 as
2 --Code generated on 03/01/2007 10:50:09
3 /* $Header: hrapiwfe.pkb 120.3 2006/06/20 10:26:28 sayyampe noship $*/
4 procedure create_rec_activity_for_a (
5 p_rec_activity_for_id number,
6 p_business_group_id number,
7 p_vacancy_id number,
8 p_rec_activity_id number,
9 p_object_version_number number) is
10 l_event_key number;
11 l_event_data clob;
12 l_event_name varchar2(250);
13 l_text varchar2(2000);
14 l_message varchar2(10);
15 --
16 cursor get_seq is
17 select per_wf_events_s.nextval from dual;
18 --
19 l_proc varchar2(72):=' per_rec_activity_for_be1.create_rec_activity_for_a';
20 begin
21 hr_utility.set_location('Entering: '||l_proc,10);
22 -- check the status of the business event
23 l_event_name:='oracle.apps.per.api.rec_activity_for.create_rec_activity_for';
24 l_message:=wf_event.test(l_event_name);
25 --
26 if (l_message='MESSAGE') then
27 hr_utility.set_location(l_proc,20);
28 --
29 -- get a key for the event
30 --
31 open get_seq;
32 fetch get_seq into l_event_key;
33 close get_seq;
34 --
35 -- build the xml data for the event
36 --
37 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
38 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
39 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
40 l_text:='<rec_activity_for>';
41 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
42 --
43 l_text:='<rec_activity_for_id>';
44 l_text:=l_text||fnd_number.number_to_canonical(p_rec_activity_for_id);
45 l_text:=l_text||'</rec_activity_for_id>';
46 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
47 l_text:='<business_group_id>';
48 l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
49 l_text:=l_text||'</business_group_id>';
50 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
51 l_text:='<vacancy_id>';
52 l_text:=l_text||fnd_number.number_to_canonical(p_vacancy_id);
53 l_text:=l_text||'</vacancy_id>';
54 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
55 l_text:='<rec_activity_id>';
56 l_text:=l_text||fnd_number.number_to_canonical(p_rec_activity_id);
57 l_text:=l_text||'</rec_activity_id>';
58 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
59 l_text:='<object_version_number>';
60 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
61 l_text:=l_text||'</object_version_number>';
62 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
63 l_text:='</rec_activity_for>';
64 --
65 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
66 --
67 -- raise the event with the event data
68 wf_event.raise(p_event_name=>l_event_name
69 ,p_event_key=>l_event_key
70 ,p_event_data=>l_event_data);
71 --
72 elsif (l_message='KEY') then
73 hr_utility.set_location(l_proc,30);
74 -- get a key for the event
75 open get_seq;
76 fetch get_seq into l_event_key;
77 close get_seq;
78 -- this is a key event, so just raise the event
79 -- without the event data
80 wf_event.raise(p_event_name=>l_event_name
81 ,p_event_key=>l_event_key);
82 --
83 elsif (l_message='NONE') then
84 hr_utility.set_location(l_proc,40);
85 -- no event is required, so do nothing
86 null;
87 end if;
88 hr_utility.set_location('Leaving: '||l_proc,50);
89 end create_rec_activity_for_a;
90 end per_rec_activity_for_be1;