[Home] [Help]
PACKAGE BODY: APPS.IRC_JOB_BASKET_ITEMS_BE1
Source
1 package body irc_job_basket_items_be1 as
2 --Code generated on 06/11/2008 12:45:43
3 /* $Header: hrapiwfe.pkb 120.4 2008/02/15 06:27:49 viviswan ship $*/
4 procedure create_job_basket_item_a (
5 p_effective_date date,
6 p_object_version_number number,
7 p_job_basket_item_id number,
8 p_recruitment_activity_id number,
9 p_person_id 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):=' irc_job_basket_items_be1.create_job_basket_item_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.irc.api.job_basket_items.create_job_basket_item';
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:='<job_basket_items>';
41 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
42 --
43 l_text:='<effective_date>';
44 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
45 l_text:=l_text||'</effective_date>';
46 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
47 l_text:='<object_version_number>';
48 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
49 l_text:=l_text||'</object_version_number>';
50 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
51 l_text:='<job_basket_item_id>';
52 l_text:=l_text||fnd_number.number_to_canonical(p_job_basket_item_id);
53 l_text:=l_text||'</job_basket_item_id>';
54 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
55 l_text:='<recruitment_activity_id>';
56 l_text:=l_text||fnd_number.number_to_canonical(p_recruitment_activity_id);
57 l_text:=l_text||'</recruitment_activity_id>';
58 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
59 l_text:='<person_id>';
60 l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
61 l_text:=l_text||'</person_id>';
62 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
63 l_text:='</job_basket_items>';
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_job_basket_item_a;
90 end irc_job_basket_items_be1;