DBA Data[Home] [Help]

PACKAGE BODY: APPS.IRC_OFFER_STATUS_HISTORY_BE3

Source


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