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