1 package body hr_job_api_be3 as
2 --Code generated on 30/03/2009 04:46:36
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure delete_job_a (
5 p_validate boolean,
6 p_job_id number,
7 p_object_version_number number) is
8 l_event_key number;
9 l_event_data clob;
10 l_event_name varchar2(250);
11 l_text varchar2(2000);
12 l_message varchar2(10);
13 --
14 cursor get_seq is
15 select per_wf_events_s.nextval from dual;
16 --
17 l_proc varchar2(72):=' hr_job_api_be3.delete_job_a';
18 begin
19 hr_utility.set_location('Entering: '||l_proc,10);
20 -- check the status of the business event
21 l_event_name:='oracle.apps.per.api.job_api.delete_job';
22 l_message:=wf_event.test(l_event_name);
23 --
24 if (l_message='MESSAGE') then
25 hr_utility.set_location(l_proc,20);
26 --
27 -- get a key for the event
28 --
29 open get_seq;
30 fetch get_seq into l_event_key;
31 close get_seq;
32 --
33 -- build the xml data for the event
34 --
35 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
36 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
37 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
38 l_text:='<job_api>';
39 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
40 --
41 l_text:='<validate>';
42 if(P_VALIDATE) then
43 l_text:=l_text||'TRUE';
44 else
45 l_text:=l_text||'FALSE';
46 end if;
47 l_text:=l_text||'</validate>';
48 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
49 l_text:='<job_id>';
50 l_text:=l_text||fnd_number.number_to_canonical(p_job_id);
51 l_text:=l_text||'</job_id>';
52 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
53 l_text:='<object_version_number>';
54 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
55 l_text:=l_text||'</object_version_number>';
56 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
57 l_text:='</job_api>';
58 --
59 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
60 --
61 -- raise the event with the event data
62 wf_event.raise(p_event_name=>l_event_name
63 ,p_event_key=>l_event_key
64 ,p_event_data=>l_event_data);
65 elsif (l_message='KEY') then
66 hr_utility.set_location(l_proc,30);
67 -- get a key for the event
68 open get_seq;
69 fetch get_seq into l_event_key;
70 close get_seq;
71 -- this is a key event, so just raise the event
72 -- without the event data
73 wf_event.raise(p_event_name=>l_event_name
74 ,p_event_key=>l_event_key);
75 elsif (l_message='NONE') then
76 hr_utility.set_location(l_proc,40);
77 -- no event is required, so do nothing
78 null;
79 end if;
80 hr_utility.set_location('Leaving: '||l_proc,50);
81 end delete_job_a;
82 end hr_job_api_be3;