[Home] [Help]
PACKAGE BODY: APPS.PAY_PPE_BE1
Source
1 package body pay_ppe_be1 as
2 --Code generated on 30/03/2009 04:45:04
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure create_process_event_a (
5 p_assignment_id number,
6 p_effective_date date,
7 p_change_type varchar2,
8 p_status varchar2,
9 p_description varchar2,
10 p_process_event_id number,
11 p_object_version_number number,
12 p_event_update_id number,
13 p_org_process_event_group_id number,
14 p_business_group_id number,
15 p_surrogate_key varchar2,
16 p_calculation_date date,
17 p_retroactive_status varchar2,
18 p_noted_value varchar2) is
19 l_event_key number;
20 l_event_data clob;
21 l_event_name varchar2(250);
22 l_text varchar2(2000);
23 l_message varchar2(10);
24 --
25 cursor get_seq is
26 select per_wf_events_s.nextval from dual;
27 --
28 l_proc varchar2(72):=' pay_ppe_be1.create_process_event_a';
29 begin
30 hr_utility.set_location('Entering: '||l_proc,10);
31 -- check the status of the business event
32 l_event_name:='oracle.apps.pay.api.ppe.create_process_event';
33 l_message:=wf_event.test(l_event_name);
34 --
35 if (l_message='MESSAGE') then
36 hr_utility.set_location(l_proc,20);
37 --
38 -- get a key for the event
39 --
40 open get_seq;
41 fetch get_seq into l_event_key;
42 close get_seq;
43 --
44 -- build the xml data for the event
45 --
46 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
47 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
48 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
49 l_text:='<ppe>';
50 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
51 --
52 l_text:='<assignment_id>';
53 l_text:=l_text||fnd_number.number_to_canonical(p_assignment_id);
54 l_text:=l_text||'</assignment_id>';
55 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
56 l_text:='<effective_date>';
57 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
58 l_text:=l_text||'</effective_date>';
59 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
60 l_text:='<change_type>';
61 l_text:=l_text||irc_utilities_pkg.removeTags(p_change_type);
62 l_text:=l_text||'</change_type>';
63 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
64 l_text:='<status>';
65 l_text:=l_text||irc_utilities_pkg.removeTags(p_status);
66 l_text:=l_text||'</status>';
67 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
68 l_text:='<description>';
69 l_text:=l_text||irc_utilities_pkg.removeTags(p_description);
70 l_text:=l_text||'</description>';
71 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
72 l_text:='<process_event_id>';
73 l_text:=l_text||fnd_number.number_to_canonical(p_process_event_id);
74 l_text:=l_text||'</process_event_id>';
75 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
76 l_text:='<object_version_number>';
77 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
78 l_text:=l_text||'</object_version_number>';
79 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
80 l_text:='<event_update_id>';
81 l_text:=l_text||fnd_number.number_to_canonical(p_event_update_id);
82 l_text:=l_text||'</event_update_id>';
83 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
84 l_text:='<org_process_event_group_id>';
85 l_text:=l_text||fnd_number.number_to_canonical(p_org_process_event_group_id);
86 l_text:=l_text||'</org_process_event_group_id>';
87 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
88 l_text:='<business_group_id>';
89 l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
90 l_text:=l_text||'</business_group_id>';
91 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
92 l_text:='<surrogate_key>';
93 l_text:=l_text||irc_utilities_pkg.removeTags(p_surrogate_key);
94 l_text:=l_text||'</surrogate_key>';
95 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
96 l_text:='<calculation_date>';
97 l_text:=l_text||fnd_date.date_to_canonical(p_calculation_date);
98 l_text:=l_text||'</calculation_date>';
99 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
100 l_text:='<retroactive_status>';
101 l_text:=l_text||irc_utilities_pkg.removeTags(p_retroactive_status);
102 l_text:=l_text||'</retroactive_status>';
103 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
104 l_text:='<noted_value>';
105 l_text:=l_text||irc_utilities_pkg.removeTags(p_noted_value);
106 l_text:=l_text||'</noted_value>';
107 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
108 l_text:='</ppe>';
109 --
110 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
111 --
112 -- raise the event with the event data
113 wf_event.raise(p_event_name=>l_event_name
114 ,p_event_key=>l_event_key
115 ,p_event_data=>l_event_data);
116 elsif (l_message='KEY') then
117 hr_utility.set_location(l_proc,30);
118 -- get a key for the event
119 open get_seq;
120 fetch get_seq into l_event_key;
121 close get_seq;
122 -- this is a key event, so just raise the event
123 -- without the event data
124 wf_event.raise(p_event_name=>l_event_name
125 ,p_event_key=>l_event_key);
126 elsif (l_message='NONE') then
127 hr_utility.set_location(l_proc,40);
128 -- no event is required, so do nothing
129 null;
130 end if;
131 hr_utility.set_location('Leaving: '||l_proc,50);
132 end create_process_event_a;
133 end pay_ppe_be1;