[Home] [Help]
PACKAGE BODY: APPS.HR_EX_EMPLOYEE_BE1
Source
1 package body hr_ex_employee_be1 as
2 --Code generated on 22/10/2007 07:17:19
3 /* $Header: hrapiwfe.pkb 120.3 2006/06/20 10:26:28 sayyampe noship $*/
4 procedure actual_termination_emp_a (
5 p_effective_date date,
6 p_period_of_service_id number,
7 p_object_version_number number,
8 p_actual_termination_date date,
9 p_last_standard_process_date date,
10 p_person_type_id number,
11 p_assignment_status_type_id number,
12 p_attribute_category varchar2,
13 p_attribute1 varchar2,
14 p_attribute2 varchar2,
15 p_attribute3 varchar2,
16 p_attribute4 varchar2,
17 p_attribute5 varchar2,
18 p_attribute6 varchar2,
19 p_attribute7 varchar2,
20 p_attribute8 varchar2,
21 p_attribute9 varchar2,
22 p_attribute10 varchar2,
23 p_attribute11 varchar2,
24 p_attribute12 varchar2,
25 p_attribute13 varchar2,
26 p_attribute14 varchar2,
27 p_attribute15 varchar2,
28 p_attribute16 varchar2,
29 p_attribute17 varchar2,
30 p_attribute18 varchar2,
31 p_attribute19 varchar2,
32 p_attribute20 varchar2,
33 p_pds_information_category varchar2,
34 p_pds_information1 varchar2,
35 p_pds_information2 varchar2,
36 p_pds_information3 varchar2,
37 p_pds_information4 varchar2,
38 p_pds_information5 varchar2,
39 p_pds_information6 varchar2,
40 p_pds_information7 varchar2,
41 p_pds_information8 varchar2,
42 p_pds_information9 varchar2,
43 p_pds_information10 varchar2,
44 p_pds_information11 varchar2,
45 p_pds_information12 varchar2,
46 p_pds_information13 varchar2,
47 p_pds_information14 varchar2,
48 p_pds_information15 varchar2,
49 p_pds_information16 varchar2,
50 p_pds_information17 varchar2,
51 p_pds_information18 varchar2,
52 p_pds_information19 varchar2,
53 p_pds_information20 varchar2,
54 p_pds_information21 varchar2,
55 p_pds_information22 varchar2,
56 p_pds_information23 varchar2,
57 p_pds_information24 varchar2,
58 p_pds_information25 varchar2,
59 p_pds_information26 varchar2,
60 p_pds_information27 varchar2,
61 p_pds_information28 varchar2,
62 p_pds_information29 varchar2,
63 p_pds_information30 varchar2,
64 p_last_std_process_date_out date,
65 p_supervisor_warning boolean,
66 p_event_warning boolean,
67 p_interview_warning boolean,
68 p_review_warning boolean,
69 p_recruiter_warning boolean,
70 p_asg_future_changes_warning boolean,
71 p_entries_changed_warning varchar2,
72 p_pay_proposal_warning boolean,
73 p_dod_warning boolean,
74 p_business_group_id number) is
75 l_event_key number;
76 l_event_data clob;
77 l_event_name varchar2(250);
78 l_text varchar2(2000);
79 l_message varchar2(10);
80 --
81 cursor get_seq is
82 select per_wf_events_s.nextval from dual;
83 --
84 l_proc varchar2(72):=' hr_ex_employee_be1.actual_termination_emp_a';
85 begin
86 hr_utility.set_location('Entering: '||l_proc,10);
87 -- check the status of the business event
88 l_event_name:='oracle.apps.per.api.ex_employee.actual_termination_emp';
89 l_message:=wf_event.test(l_event_name);
90 --
91 if (l_message='MESSAGE') then
92 hr_utility.set_location(l_proc,20);
93 --
94 -- get a key for the event
95 --
96 open get_seq;
97 fetch get_seq into l_event_key;
98 close get_seq;
99 --
100 -- build the xml data for the event
101 --
102 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
103 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
104 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
105 l_text:='<ex_employee>';
106 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
107 --
108 l_text:='<effective_date>';
109 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
110 l_text:=l_text||'</effective_date>';
111 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
112 l_text:='<period_of_service_id>';
113 l_text:=l_text||fnd_number.number_to_canonical(p_period_of_service_id);
114 l_text:=l_text||'</period_of_service_id>';
115 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
116 l_text:='<object_version_number>';
117 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
118 l_text:=l_text||'</object_version_number>';
119 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
120 l_text:='<actual_termination_date>';
121 l_text:=l_text||fnd_date.date_to_canonical(p_actual_termination_date);
122 l_text:=l_text||'</actual_termination_date>';
123 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
124 l_text:='<last_standard_process_date>';
125 l_text:=l_text||fnd_date.date_to_canonical(p_last_standard_process_date);
126 l_text:=l_text||'</last_standard_process_date>';
127 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
128 l_text:='<person_type_id>';
129 l_text:=l_text||fnd_number.number_to_canonical(p_person_type_id);
130 l_text:=l_text||'</person_type_id>';
131 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
132 l_text:='<assignment_status_type_id>';
133 l_text:=l_text||fnd_number.number_to_canonical(p_assignment_status_type_id);
134 l_text:=l_text||'</assignment_status_type_id>';
135 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
136 l_text:='<attribute_category>';
137 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
138 l_text:=l_text||'</attribute_category>';
139 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
140 l_text:='<attribute1>';
141 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
142 l_text:=l_text||'</attribute1>';
143 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
144 l_text:='<attribute2>';
145 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
146 l_text:=l_text||'</attribute2>';
147 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
148 l_text:='<attribute3>';
149 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
150 l_text:=l_text||'</attribute3>';
151 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
152 l_text:='<attribute4>';
153 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
154 l_text:=l_text||'</attribute4>';
155 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
156 l_text:='<attribute5>';
157 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
158 l_text:=l_text||'</attribute5>';
159 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
160 l_text:='<attribute6>';
161 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
162 l_text:=l_text||'</attribute6>';
163 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
164 l_text:='<attribute7>';
165 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
166 l_text:=l_text||'</attribute7>';
167 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
168 l_text:='<attribute8>';
169 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
170 l_text:=l_text||'</attribute8>';
171 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
172 l_text:='<attribute9>';
173 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
174 l_text:=l_text||'</attribute9>';
175 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
176 l_text:='<attribute10>';
177 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
178 l_text:=l_text||'</attribute10>';
179 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
180 l_text:='<attribute11>';
181 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
182 l_text:=l_text||'</attribute11>';
183 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
184 l_text:='<attribute12>';
185 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
186 l_text:=l_text||'</attribute12>';
187 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
188 l_text:='<attribute13>';
189 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
190 l_text:=l_text||'</attribute13>';
191 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
192 l_text:='<attribute14>';
193 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
194 l_text:=l_text||'</attribute14>';
195 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
196 l_text:='<attribute15>';
197 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
198 l_text:=l_text||'</attribute15>';
199 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
200 l_text:='<attribute16>';
201 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
202 l_text:=l_text||'</attribute16>';
203 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
204 l_text:='<attribute17>';
205 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
206 l_text:=l_text||'</attribute17>';
207 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
208 l_text:='<attribute18>';
209 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
210 l_text:=l_text||'</attribute18>';
211 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
212 l_text:='<attribute19>';
213 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
214 l_text:=l_text||'</attribute19>';
215 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
216 l_text:='<attribute20>';
217 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
218 l_text:=l_text||'</attribute20>';
219 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
220 l_text:='<pds_information_category>';
221 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information_category);
222 l_text:=l_text||'</pds_information_category>';
223 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
224 l_text:='<pds_information1>';
225 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information1);
226 l_text:=l_text||'</pds_information1>';
227 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
228 l_text:='<pds_information2>';
229 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information2);
230 l_text:=l_text||'</pds_information2>';
231 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
232 l_text:='<pds_information3>';
233 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information3);
234 l_text:=l_text||'</pds_information3>';
235 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
236 l_text:='<pds_information4>';
237 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information4);
238 l_text:=l_text||'</pds_information4>';
239 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
240 l_text:='<pds_information5>';
241 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information5);
242 l_text:=l_text||'</pds_information5>';
243 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
244 l_text:='<pds_information6>';
245 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information6);
246 l_text:=l_text||'</pds_information6>';
247 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
248 l_text:='<pds_information7>';
249 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information7);
250 l_text:=l_text||'</pds_information7>';
251 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
252 l_text:='<pds_information8>';
253 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information8);
254 l_text:=l_text||'</pds_information8>';
255 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
256 l_text:='<pds_information9>';
257 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information9);
258 l_text:=l_text||'</pds_information9>';
259 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
260 l_text:='<pds_information10>';
261 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information10);
262 l_text:=l_text||'</pds_information10>';
263 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
264 l_text:='<pds_information11>';
265 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information11);
266 l_text:=l_text||'</pds_information11>';
267 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
268 l_text:='<pds_information12>';
269 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information12);
270 l_text:=l_text||'</pds_information12>';
271 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
272 l_text:='<pds_information13>';
273 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information13);
274 l_text:=l_text||'</pds_information13>';
275 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
276 l_text:='<pds_information14>';
277 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information14);
278 l_text:=l_text||'</pds_information14>';
279 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
280 l_text:='<pds_information15>';
281 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information15);
282 l_text:=l_text||'</pds_information15>';
283 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
284 l_text:='<pds_information16>';
285 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information16);
286 l_text:=l_text||'</pds_information16>';
287 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
288 l_text:='<pds_information17>';
289 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information17);
290 l_text:=l_text||'</pds_information17>';
291 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
292 l_text:='<pds_information18>';
293 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information18);
294 l_text:=l_text||'</pds_information18>';
295 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
296 l_text:='<pds_information19>';
297 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information19);
298 l_text:=l_text||'</pds_information19>';
299 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
300 l_text:='<pds_information20>';
301 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information20);
302 l_text:=l_text||'</pds_information20>';
303 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
304 l_text:='<pds_information21>';
305 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information21);
306 l_text:=l_text||'</pds_information21>';
307 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
308 l_text:='<pds_information22>';
309 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information22);
310 l_text:=l_text||'</pds_information22>';
311 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
312 l_text:='<pds_information23>';
313 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information23);
314 l_text:=l_text||'</pds_information23>';
315 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
316 l_text:='<pds_information24>';
317 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information24);
318 l_text:=l_text||'</pds_information24>';
319 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
320 l_text:='<pds_information25>';
321 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information25);
322 l_text:=l_text||'</pds_information25>';
323 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
324 l_text:='<pds_information26>';
325 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information26);
326 l_text:=l_text||'</pds_information26>';
327 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
328 l_text:='<pds_information27>';
329 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information27);
330 l_text:=l_text||'</pds_information27>';
331 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
332 l_text:='<pds_information28>';
333 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information28);
334 l_text:=l_text||'</pds_information28>';
335 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
336 l_text:='<pds_information29>';
337 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information29);
338 l_text:=l_text||'</pds_information29>';
339 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
340 l_text:='<pds_information30>';
341 l_text:=l_text||irc_utilities_pkg.removeTags(p_pds_information30);
342 l_text:=l_text||'</pds_information30>';
343 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
344 l_text:='<last_std_process_date_out>';
345 l_text:=l_text||fnd_date.date_to_canonical(p_last_std_process_date_out);
346 l_text:=l_text||'</last_std_process_date_out>';
347 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
348 l_text:='<supervisor_warning>';
349 if(P_SUPERVISOR_WARNING) then
350 l_text:=l_text||'TRUE';
351 else
352 l_text:=l_text||'FALSE';
353 end if;
354 l_text:=l_text||'</supervisor_warning>';
355 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
356 l_text:='<event_warning>';
357 if(P_EVENT_WARNING) then
358 l_text:=l_text||'TRUE';
359 else
360 l_text:=l_text||'FALSE';
361 end if;
362 l_text:=l_text||'</event_warning>';
363 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
364 l_text:='<interview_warning>';
365 if(P_INTERVIEW_WARNING) then
366 l_text:=l_text||'TRUE';
367 else
368 l_text:=l_text||'FALSE';
369 end if;
370 l_text:=l_text||'</interview_warning>';
371 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
372 l_text:='<review_warning>';
373 if(P_REVIEW_WARNING) then
374 l_text:=l_text||'TRUE';
375 else
376 l_text:=l_text||'FALSE';
377 end if;
378 l_text:=l_text||'</review_warning>';
379 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
380 l_text:='<recruiter_warning>';
381 if(P_RECRUITER_WARNING) then
382 l_text:=l_text||'TRUE';
383 else
384 l_text:=l_text||'FALSE';
385 end if;
386 l_text:=l_text||'</recruiter_warning>';
387 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
388 l_text:='<asg_future_changes_warning>';
389 if(P_ASG_FUTURE_CHANGES_WARNING) then
390 l_text:=l_text||'TRUE';
391 else
392 l_text:=l_text||'FALSE';
393 end if;
394 l_text:=l_text||'</asg_future_changes_warning>';
395 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
396 l_text:='<entries_changed_warning>';
397 l_text:=l_text||irc_utilities_pkg.removeTags(p_entries_changed_warning);
398 l_text:=l_text||'</entries_changed_warning>';
399 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
400 l_text:='<pay_proposal_warning>';
401 if(P_PAY_PROPOSAL_WARNING) then
402 l_text:=l_text||'TRUE';
403 else
404 l_text:=l_text||'FALSE';
405 end if;
406 l_text:=l_text||'</pay_proposal_warning>';
407 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
408 l_text:='<dod_warning>';
409 if(P_DOD_WARNING) then
410 l_text:=l_text||'TRUE';
411 else
412 l_text:=l_text||'FALSE';
413 end if;
414 l_text:=l_text||'</dod_warning>';
415 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
416 l_text:='<business_group_id>';
417 l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
418 l_text:=l_text||'</business_group_id>';
419 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
420 l_text:='</ex_employee>';
421 --
422 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
423 --
424 -- raise the event with the event data
425 wf_event.raise(p_event_name=>l_event_name
426 ,p_event_key=>l_event_key
427 ,p_event_data=>l_event_data);
428 --
429 elsif (l_message='KEY') then
430 hr_utility.set_location(l_proc,30);
431 -- get a key for the event
432 open get_seq;
436 -- without the event data
433 fetch get_seq into l_event_key;
434 close get_seq;
435 -- this is a key event, so just raise the event
437 wf_event.raise(p_event_name=>l_event_name
438 ,p_event_key=>l_event_key);
439 --
440 elsif (l_message='NONE') then
441 hr_utility.set_location(l_proc,40);
442 -- no event is required, so do nothing
443 null;
444 end if;
445 hr_utility.set_location('Leaving: '||l_proc,50);
446 end actual_termination_emp_a;
447 end hr_ex_employee_be1;