eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.HR_EX_EMPLOYEE_BE1

Source


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