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_PREVIOUS_EMPLOYMENT_BE5

Source


1 package body hr_previous_employment_be5 as 
2 --Code generated on 30/03/2009 04:46:40
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure update_previous_job_a (
5 p_effective_date               date,
6 p_previous_job_id              number,
7 p_start_date                   date,
8 p_end_date                     date,
9 p_period_years                 number,
10 p_period_months                number,
11 p_period_days                  number,
12 p_job_name                     varchar2,
13 p_employment_category          varchar2,
14 p_description                  varchar2,
15 p_all_assignments              varchar2,
16 p_pjo_attribute_category       varchar2,
17 p_pjo_attribute1               varchar2,
18 p_pjo_attribute2               varchar2,
19 p_pjo_attribute3               varchar2,
20 p_pjo_attribute4               varchar2,
21 p_pjo_attribute5               varchar2,
22 p_pjo_attribute6               varchar2,
23 p_pjo_attribute7               varchar2,
24 p_pjo_attribute8               varchar2,
25 p_pjo_attribute9               varchar2,
26 p_pjo_attribute10              varchar2,
27 p_pjo_attribute11              varchar2,
28 p_pjo_attribute12              varchar2,
29 p_pjo_attribute13              varchar2,
30 p_pjo_attribute14              varchar2,
31 p_pjo_attribute15              varchar2,
32 p_pjo_attribute16              varchar2,
33 p_pjo_attribute17              varchar2,
34 p_pjo_attribute18              varchar2,
35 p_pjo_attribute19              varchar2,
36 p_pjo_attribute20              varchar2,
37 p_pjo_attribute21              varchar2,
38 p_pjo_attribute22              varchar2,
39 p_pjo_attribute23              varchar2,
40 p_pjo_attribute24              varchar2,
41 p_pjo_attribute25              varchar2,
42 p_pjo_attribute26              varchar2,
43 p_pjo_attribute27              varchar2,
44 p_pjo_attribute28              varchar2,
45 p_pjo_attribute29              varchar2,
46 p_pjo_attribute30              varchar2,
47 p_pjo_information_category     varchar2,
48 p_pjo_information1             varchar2,
49 p_pjo_information2             varchar2,
50 p_pjo_information3             varchar2,
51 p_pjo_information4             varchar2,
52 p_pjo_information5             varchar2,
53 p_pjo_information6             varchar2,
54 p_pjo_information7             varchar2,
55 p_pjo_information8             varchar2,
56 p_pjo_information9             varchar2,
57 p_pjo_information10            varchar2,
58 p_pjo_information11            varchar2,
59 p_pjo_information12            varchar2,
60 p_pjo_information13            varchar2,
61 p_pjo_information14            varchar2,
62 p_pjo_information15            varchar2,
63 p_pjo_information16            varchar2,
64 p_pjo_information17            varchar2,
65 p_pjo_information18            varchar2,
66 p_pjo_information19            varchar2,
67 p_pjo_information20            varchar2,
68 p_pjo_information21            varchar2,
69 p_pjo_information22            varchar2,
70 p_pjo_information23            varchar2,
71 p_pjo_information24            varchar2,
72 p_pjo_information25            varchar2,
73 p_pjo_information26            varchar2,
74 p_pjo_information27            varchar2,
75 p_pjo_information28            varchar2,
76 p_pjo_information29            varchar2,
77 p_pjo_information30            varchar2,
78 p_object_version_number        number) is
79   l_event_key number;
80   l_event_data clob;
81   l_event_name varchar2(250);
82   l_text varchar2(2000);
83   l_message varchar2(10);
84   --
85   cursor get_seq is
86   select per_wf_events_s.nextval from dual;
87   --
88   l_proc varchar2(72):='  hr_previous_employment_be5.update_previous_job_a';
89 begin
90   hr_utility.set_location('Entering: '||l_proc,10);
91   -- check the status of the business event
92   l_event_name:='oracle.apps.per.api.previous_employment.update_previous_job';
93   l_message:=wf_event.test(l_event_name);
94   --
95   if (l_message='MESSAGE') then
96     hr_utility.set_location(l_proc,20);
97     --
98     -- get a key for the event
99     --
100     open get_seq;
101     fetch get_seq into l_event_key;
102     close get_seq;
103     --
104     -- build the xml data for the event
105     --
106     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
107     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
108     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
109     l_text:='<previous_employment>';
110     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
111     --
112     l_text:='<effective_date>';
113     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
114     l_text:=l_text||'</effective_date>';
115     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
116     l_text:='<previous_job_id>';
117     l_text:=l_text||fnd_number.number_to_canonical(p_previous_job_id);
118     l_text:=l_text||'</previous_job_id>';
119     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
120     l_text:='<start_date>';
121     l_text:=l_text||fnd_date.date_to_canonical(p_start_date);
122     l_text:=l_text||'</start_date>';
123     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
124     l_text:='<end_date>';
125     l_text:=l_text||fnd_date.date_to_canonical(p_end_date);
126     l_text:=l_text||'</end_date>';
127     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
128     l_text:='<period_years>';
129     l_text:=l_text||fnd_number.number_to_canonical(p_period_years);
130     l_text:=l_text||'</period_years>';
131     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
132     l_text:='<period_months>';
133     l_text:=l_text||fnd_number.number_to_canonical(p_period_months);
134     l_text:=l_text||'</period_months>';
135     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
136     l_text:='<period_days>';
137     l_text:=l_text||fnd_number.number_to_canonical(p_period_days);
138     l_text:=l_text||'</period_days>';
139     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
140     l_text:='<job_name>';
141     l_text:=l_text||irc_utilities_pkg.removeTags(p_job_name);
142     l_text:=l_text||'</job_name>';
143     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
144     l_text:='<employment_category>';
145     l_text:=l_text||irc_utilities_pkg.removeTags(p_employment_category);
146     l_text:=l_text||'</employment_category>';
147     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
148     l_text:='<description>';
149     l_text:=l_text||irc_utilities_pkg.removeTags(p_description);
150     l_text:=l_text||'</description>';
151     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
152     l_text:='<all_assignments>';
153     l_text:=l_text||irc_utilities_pkg.removeTags(p_all_assignments);
154     l_text:=l_text||'</all_assignments>';
155     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
156     l_text:='<pjo_attribute_category>';
157     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute_category);
158     l_text:=l_text||'</pjo_attribute_category>';
159     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
160     l_text:='<pjo_attribute1>';
161     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute1);
162     l_text:=l_text||'</pjo_attribute1>';
163     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
164     l_text:='<pjo_attribute2>';
165     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute2);
166     l_text:=l_text||'</pjo_attribute2>';
167     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
168     l_text:='<pjo_attribute3>';
169     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute3);
170     l_text:=l_text||'</pjo_attribute3>';
171     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
172     l_text:='<pjo_attribute4>';
173     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute4);
174     l_text:=l_text||'</pjo_attribute4>';
175     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
176     l_text:='<pjo_attribute5>';
177     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute5);
178     l_text:=l_text||'</pjo_attribute5>';
179     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
180     l_text:='<pjo_attribute6>';
181     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute6);
182     l_text:=l_text||'</pjo_attribute6>';
183     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
184     l_text:='<pjo_attribute7>';
185     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute7);
186     l_text:=l_text||'</pjo_attribute7>';
187     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
188     l_text:='<pjo_attribute8>';
189     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute8);
190     l_text:=l_text||'</pjo_attribute8>';
191     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
192     l_text:='<pjo_attribute9>';
193     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute9);
194     l_text:=l_text||'</pjo_attribute9>';
195     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
196     l_text:='<pjo_attribute10>';
197     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute10);
198     l_text:=l_text||'</pjo_attribute10>';
199     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
200     l_text:='<pjo_attribute11>';
201     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute11);
202     l_text:=l_text||'</pjo_attribute11>';
203     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
204     l_text:='<pjo_attribute12>';
205     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute12);
206     l_text:=l_text||'</pjo_attribute12>';
207     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
208     l_text:='<pjo_attribute13>';
209     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute13);
210     l_text:=l_text||'</pjo_attribute13>';
211     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
212     l_text:='<pjo_attribute14>';
213     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute14);
214     l_text:=l_text||'</pjo_attribute14>';
215     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
216     l_text:='<pjo_attribute15>';
217     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute15);
218     l_text:=l_text||'</pjo_attribute15>';
219     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
220     l_text:='<pjo_attribute16>';
221     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute16);
222     l_text:=l_text||'</pjo_attribute16>';
223     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
224     l_text:='<pjo_attribute17>';
225     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute17);
226     l_text:=l_text||'</pjo_attribute17>';
227     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
228     l_text:='<pjo_attribute18>';
229     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute18);
230     l_text:=l_text||'</pjo_attribute18>';
231     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
232     l_text:='<pjo_attribute19>';
233     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute19);
234     l_text:=l_text||'</pjo_attribute19>';
235     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
236     l_text:='<pjo_attribute20>';
237     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute20);
238     l_text:=l_text||'</pjo_attribute20>';
239     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
240     l_text:='<pjo_attribute21>';
241     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute21);
242     l_text:=l_text||'</pjo_attribute21>';
243     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
244     l_text:='<pjo_attribute22>';
245     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute22);
246     l_text:=l_text||'</pjo_attribute22>';
247     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
248     l_text:='<pjo_attribute23>';
249     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute23);
250     l_text:=l_text||'</pjo_attribute23>';
251     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
252     l_text:='<pjo_attribute24>';
253     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute24);
254     l_text:=l_text||'</pjo_attribute24>';
255     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
256     l_text:='<pjo_attribute25>';
257     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute25);
258     l_text:=l_text||'</pjo_attribute25>';
259     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
260     l_text:='<pjo_attribute26>';
261     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute26);
262     l_text:=l_text||'</pjo_attribute26>';
263     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
264     l_text:='<pjo_attribute27>';
265     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute27);
266     l_text:=l_text||'</pjo_attribute27>';
267     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
268     l_text:='<pjo_attribute28>';
269     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute28);
270     l_text:=l_text||'</pjo_attribute28>';
271     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
272     l_text:='<pjo_attribute29>';
273     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute29);
274     l_text:=l_text||'</pjo_attribute29>';
275     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
276     l_text:='<pjo_attribute30>';
277     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_attribute30);
278     l_text:=l_text||'</pjo_attribute30>';
279     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
280     l_text:='<pjo_information_category>';
281     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information_category);
282     l_text:=l_text||'</pjo_information_category>';
283     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
284     l_text:='<pjo_information1>';
285     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information1);
286     l_text:=l_text||'</pjo_information1>';
287     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
288     l_text:='<pjo_information2>';
289     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information2);
290     l_text:=l_text||'</pjo_information2>';
291     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
292     l_text:='<pjo_information3>';
293     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information3);
294     l_text:=l_text||'</pjo_information3>';
295     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
296     l_text:='<pjo_information4>';
297     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information4);
298     l_text:=l_text||'</pjo_information4>';
299     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
300     l_text:='<pjo_information5>';
301     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information5);
302     l_text:=l_text||'</pjo_information5>';
303     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
304     l_text:='<pjo_information6>';
305     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information6);
306     l_text:=l_text||'</pjo_information6>';
307     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
308     l_text:='<pjo_information7>';
309     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information7);
310     l_text:=l_text||'</pjo_information7>';
311     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
312     l_text:='<pjo_information8>';
313     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information8);
314     l_text:=l_text||'</pjo_information8>';
315     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
316     l_text:='<pjo_information9>';
317     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information9);
318     l_text:=l_text||'</pjo_information9>';
319     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
320     l_text:='<pjo_information10>';
321     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information10);
322     l_text:=l_text||'</pjo_information10>';
323     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
324     l_text:='<pjo_information11>';
325     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information11);
326     l_text:=l_text||'</pjo_information11>';
327     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
328     l_text:='<pjo_information12>';
329     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information12);
330     l_text:=l_text||'</pjo_information12>';
331     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
332     l_text:='<pjo_information13>';
333     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information13);
334     l_text:=l_text||'</pjo_information13>';
335     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
339     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
336     l_text:='<pjo_information14>';
337     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information14);
338     l_text:=l_text||'</pjo_information14>';
340     l_text:='<pjo_information15>';
341     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information15);
342     l_text:=l_text||'</pjo_information15>';
343     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
344     l_text:='<pjo_information16>';
345     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information16);
346     l_text:=l_text||'</pjo_information16>';
347     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
348     l_text:='<pjo_information17>';
349     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information17);
350     l_text:=l_text||'</pjo_information17>';
351     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
352     l_text:='<pjo_information18>';
353     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information18);
354     l_text:=l_text||'</pjo_information18>';
355     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
356     l_text:='<pjo_information19>';
357     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information19);
358     l_text:=l_text||'</pjo_information19>';
359     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
360     l_text:='<pjo_information20>';
361     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information20);
362     l_text:=l_text||'</pjo_information20>';
363     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
364     l_text:='<pjo_information21>';
365     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information21);
366     l_text:=l_text||'</pjo_information21>';
367     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
368     l_text:='<pjo_information22>';
369     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information22);
370     l_text:=l_text||'</pjo_information22>';
371     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
372     l_text:='<pjo_information23>';
373     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information23);
374     l_text:=l_text||'</pjo_information23>';
375     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
376     l_text:='<pjo_information24>';
377     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information24);
378     l_text:=l_text||'</pjo_information24>';
379     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
380     l_text:='<pjo_information25>';
381     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information25);
382     l_text:=l_text||'</pjo_information25>';
383     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
384     l_text:='<pjo_information26>';
385     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information26);
386     l_text:=l_text||'</pjo_information26>';
387     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
388     l_text:='<pjo_information27>';
389     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information27);
390     l_text:=l_text||'</pjo_information27>';
391     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
392     l_text:='<pjo_information28>';
393     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information28);
394     l_text:=l_text||'</pjo_information28>';
395     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
396     l_text:='<pjo_information29>';
397     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information29);
398     l_text:=l_text||'</pjo_information29>';
399     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
400     l_text:='<pjo_information30>';
401     l_text:=l_text||irc_utilities_pkg.removeTags(p_pjo_information30);
402     l_text:=l_text||'</pjo_information30>';
403     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
404     l_text:='<object_version_number>';
405     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
406     l_text:=l_text||'</object_version_number>';
407     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
408     l_text:='</previous_employment>';
409     --
410     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
411     --
412     -- raise the event with the event data
413     wf_event.raise(p_event_name=>l_event_name
414                   ,p_event_key=>l_event_key
415                   ,p_event_data=>l_event_data);
416   elsif (l_message='KEY') then
417     hr_utility.set_location(l_proc,30);
418     -- get a key for the event
419     open get_seq;
420     fetch get_seq into l_event_key;
421     close get_seq;
422     -- this is a key event, so just raise the event
423     -- without the event data
424     wf_event.raise(p_event_name=>l_event_name
425                   ,p_event_key=>l_event_key);
426   elsif (l_message='NONE') then
427     hr_utility.set_location(l_proc,40);
428     -- no event is required, so do nothing
429     null;
430   end if;
431     hr_utility.set_location('Leaving: '||l_proc,50);
432 end update_previous_job_a;
433 end hr_previous_employment_be5;