DBA Data[Home] [Help]

PACKAGE BODY: APPS.HR_LOCATION_BE2

Source


1 package body hr_location_be2 as 
2 --Code generated on 27/11/2012 03:58:18
3 /* $Header: hrapiwfe.pkb 120.11 2011/12/24 13:28:35 vboggava ship $*/
4 procedure update_location_a (
5 p_effective_date               date,
6 p_language_code                varchar2,
7 p_location_id                  number,
8 p_location_code                varchar2,
9 p_description                  varchar2,
10 p_timezone_code                varchar2,
11 p_tp_header_id                 number,
12 p_ece_tp_location_code         varchar2,
13 p_address_line_1               varchar2,
14 p_address_line_2               varchar2,
15 p_address_line_3               varchar2,
16 p_bill_to_site_flag            varchar2,
17 p_country                      varchar2,
18 p_designated_receiver_id       number,
19 p_in_organization_flag         varchar2,
20 p_inactive_date                date,
21 p_operating_unit_id            number,
22 p_inventory_organization_id    number,
23 p_office_site_flag             varchar2,
24 p_postal_code                  varchar2,
25 p_receiving_site_flag          varchar2,
26 p_region_1                     varchar2,
27 p_region_2                     varchar2,
28 p_region_3                     varchar2,
29 p_ship_to_location_id          number,
30 p_ship_to_site_flag            varchar2,
31 p_style                        varchar2,
32 p_tax_name                     varchar2,
33 p_telephone_number_1           varchar2,
34 p_telephone_number_2           varchar2,
35 p_telephone_number_3           varchar2,
36 p_town_or_city                 varchar2,
37 p_loc_information13            varchar2,
38 p_loc_information14            varchar2,
39 p_loc_information15            varchar2,
40 p_loc_information16            varchar2,
41 p_loc_information17            varchar2,
42 p_loc_information18            varchar2,
43 p_loc_information19            varchar2,
44 p_loc_information20            varchar2,
45 p_attribute_category           varchar2,
46 p_attribute1                   varchar2,
47 p_attribute2                   varchar2,
48 p_attribute3                   varchar2,
49 p_attribute4                   varchar2,
50 p_attribute5                   varchar2,
51 p_attribute6                   varchar2,
52 p_attribute7                   varchar2,
53 p_attribute8                   varchar2,
54 p_attribute9                   varchar2,
55 p_attribute10                  varchar2,
56 p_attribute11                  varchar2,
57 p_attribute12                  varchar2,
58 p_attribute13                  varchar2,
59 p_attribute14                  varchar2,
60 p_attribute15                  varchar2,
61 p_attribute16                  varchar2,
62 p_attribute17                  varchar2,
63 p_attribute18                  varchar2,
64 p_attribute19                  varchar2,
65 p_attribute20                  varchar2,
66 p_global_attribute_category    varchar2,
67 p_global_attribute1            varchar2,
68 p_global_attribute2            varchar2,
69 p_global_attribute3            varchar2,
70 p_global_attribute4            varchar2,
71 p_global_attribute5            varchar2,
72 p_global_attribute6            varchar2,
73 p_global_attribute7            varchar2,
74 p_global_attribute8            varchar2,
75 p_global_attribute9            varchar2,
76 p_global_attribute10           varchar2,
77 p_global_attribute11           varchar2,
78 p_global_attribute12           varchar2,
79 p_global_attribute13           varchar2,
80 p_global_attribute14           varchar2,
81 p_global_attribute15           varchar2,
82 p_global_attribute16           varchar2,
83 p_global_attribute17           varchar2,
84 p_global_attribute18           varchar2,
85 p_global_attribute19           varchar2,
86 p_global_attribute20           varchar2,
87 p_object_version_number        number) is
88   l_event_key number;
89   l_event_data clob;
90   l_event_name varchar2(250);
91   l_text varchar2(2000);
92   l_message varchar2(10);
93   --
94   cursor get_seq is
95   select per_wf_events_s.nextval from dual;
96   --
97   l_proc varchar2(72):='  hr_location_be2.update_location_a';
98 begin
99   hr_utility.set_location('Entering: '||l_proc,10);
100   -- check the status of the business event
101   l_event_name:='oracle.apps.per.api.location.update_location';
102   l_message:=wf_event.test(l_event_name);
103   --
104   if (l_message='MESSAGE') then
105     hr_utility.set_location(l_proc,20);
106     --
107     -- get a key for the event
108     --
109     open get_seq;
110     fetch get_seq into l_event_key;
111     close get_seq;
112     --
113     -- build the xml data for the event
114     --
115     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
116     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
117     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
118     l_text:='<location>';
119     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
120     --
121     l_text:='<effective_date>';
122     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
123     l_text:=l_text||'</effective_date>';
124     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
125     l_text:='<language_code>';
126     l_text:=l_text||irc_utilities_pkg.removeTags(p_language_code);
127     l_text:=l_text||'</language_code>';
128     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
129     l_text:='<location_id>';
130     l_text:=l_text||fnd_number.number_to_canonical(p_location_id);
131     l_text:=l_text||'</location_id>';
132     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
133     l_text:='<location_code>';
134     l_text:=l_text||irc_utilities_pkg.removeTags(p_location_code);
135     l_text:=l_text||'</location_code>';
136     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
137     l_text:='<description>';
138     l_text:=l_text||irc_utilities_pkg.removeTags(p_description);
139     l_text:=l_text||'</description>';
140     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
141     l_text:='<timezone_code>';
142     l_text:=l_text||irc_utilities_pkg.removeTags(p_timezone_code);
143     l_text:=l_text||'</timezone_code>';
144     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
145     l_text:='<tp_header_id>';
146     l_text:=l_text||fnd_number.number_to_canonical(p_tp_header_id);
147     l_text:=l_text||'</tp_header_id>';
148     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
149     l_text:='<ece_tp_location_code>';
150     l_text:=l_text||irc_utilities_pkg.removeTags(p_ece_tp_location_code);
151     l_text:=l_text||'</ece_tp_location_code>';
152     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
153     l_text:='<address_line_1>';
154     l_text:=l_text||irc_utilities_pkg.removeTags(p_address_line_1);
155     l_text:=l_text||'</address_line_1>';
156     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
157     l_text:='<address_line_2>';
158     l_text:=l_text||irc_utilities_pkg.removeTags(p_address_line_2);
159     l_text:=l_text||'</address_line_2>';
160     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
161     l_text:='<address_line_3>';
162     l_text:=l_text||irc_utilities_pkg.removeTags(p_address_line_3);
163     l_text:=l_text||'</address_line_3>';
164     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
165     l_text:='<bill_to_site_flag>';
166     l_text:=l_text||irc_utilities_pkg.removeTags(p_bill_to_site_flag);
167     l_text:=l_text||'</bill_to_site_flag>';
168     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
169     l_text:='<country>';
170     l_text:=l_text||irc_utilities_pkg.removeTags(p_country);
171     l_text:=l_text||'</country>';
172     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
173     l_text:='<designated_receiver_id>';
174     l_text:=l_text||fnd_number.number_to_canonical(p_designated_receiver_id);
175     l_text:=l_text||'</designated_receiver_id>';
176     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
177     l_text:='<in_organization_flag>';
178     l_text:=l_text||irc_utilities_pkg.removeTags(p_in_organization_flag);
179     l_text:=l_text||'</in_organization_flag>';
180     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
181     l_text:='<inactive_date>';
182     l_text:=l_text||fnd_date.date_to_canonical(p_inactive_date);
183     l_text:=l_text||'</inactive_date>';
184     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
185     l_text:='<operating_unit_id>';
186     l_text:=l_text||fnd_number.number_to_canonical(p_operating_unit_id);
187     l_text:=l_text||'</operating_unit_id>';
188     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
189     l_text:='<inventory_organization_id>';
190     l_text:=l_text||fnd_number.number_to_canonical(p_inventory_organization_id);
191     l_text:=l_text||'</inventory_organization_id>';
192     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
193     l_text:='<office_site_flag>';
194     l_text:=l_text||irc_utilities_pkg.removeTags(p_office_site_flag);
195     l_text:=l_text||'</office_site_flag>';
196     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
197     l_text:='<postal_code>';
198     l_text:=l_text||irc_utilities_pkg.removeTags(p_postal_code);
199     l_text:=l_text||'</postal_code>';
200     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
201     l_text:='<receiving_site_flag>';
202     l_text:=l_text||irc_utilities_pkg.removeTags(p_receiving_site_flag);
203     l_text:=l_text||'</receiving_site_flag>';
204     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
205     l_text:='<region_1>';
206     l_text:=l_text||irc_utilities_pkg.removeTags(p_region_1);
207     l_text:=l_text||'</region_1>';
208     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
209     l_text:='<region_2>';
210     l_text:=l_text||irc_utilities_pkg.removeTags(p_region_2);
211     l_text:=l_text||'</region_2>';
212     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
213     l_text:='<region_3>';
214     l_text:=l_text||irc_utilities_pkg.removeTags(p_region_3);
215     l_text:=l_text||'</region_3>';
216     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
217     l_text:='<ship_to_location_id>';
218     l_text:=l_text||fnd_number.number_to_canonical(p_ship_to_location_id);
219     l_text:=l_text||'</ship_to_location_id>';
220     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
221     l_text:='<ship_to_site_flag>';
222     l_text:=l_text||irc_utilities_pkg.removeTags(p_ship_to_site_flag);
223     l_text:=l_text||'</ship_to_site_flag>';
224     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
225     l_text:='<style>';
226     l_text:=l_text||irc_utilities_pkg.removeTags(p_style);
227     l_text:=l_text||'</style>';
228     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
229     l_text:='<tax_name>';
230     l_text:=l_text||irc_utilities_pkg.removeTags(p_tax_name);
231     l_text:=l_text||'</tax_name>';
232     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
233     l_text:='<telephone_number_1>';
234     l_text:=l_text||irc_utilities_pkg.removeTags(p_telephone_number_1);
235     l_text:=l_text||'</telephone_number_1>';
236     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
237     l_text:='<telephone_number_2>';
238     l_text:=l_text||irc_utilities_pkg.removeTags(p_telephone_number_2);
239     l_text:=l_text||'</telephone_number_2>';
240     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
241     l_text:='<telephone_number_3>';
242     l_text:=l_text||irc_utilities_pkg.removeTags(p_telephone_number_3);
243     l_text:=l_text||'</telephone_number_3>';
244     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
245     l_text:='<town_or_city>';
246     l_text:=l_text||irc_utilities_pkg.removeTags(p_town_or_city);
247     l_text:=l_text||'</town_or_city>';
248     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
249     l_text:='<loc_information13>';
250     l_text:=l_text||irc_utilities_pkg.removeTags(p_loc_information13);
251     l_text:=l_text||'</loc_information13>';
252     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
253     l_text:='<loc_information14>';
254     l_text:=l_text||irc_utilities_pkg.removeTags(p_loc_information14);
255     l_text:=l_text||'</loc_information14>';
256     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
257     l_text:='<loc_information15>';
258     l_text:=l_text||irc_utilities_pkg.removeTags(p_loc_information15);
259     l_text:=l_text||'</loc_information15>';
260     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
261     l_text:='<loc_information16>';
262     l_text:=l_text||irc_utilities_pkg.removeTags(p_loc_information16);
263     l_text:=l_text||'</loc_information16>';
264     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
265     l_text:='<loc_information17>';
266     l_text:=l_text||irc_utilities_pkg.removeTags(p_loc_information17);
267     l_text:=l_text||'</loc_information17>';
268     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
269     l_text:='<loc_information18>';
270     l_text:=l_text||irc_utilities_pkg.removeTags(p_loc_information18);
271     l_text:=l_text||'</loc_information18>';
272     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
273     l_text:='<loc_information19>';
274     l_text:=l_text||irc_utilities_pkg.removeTags(p_loc_information19);
275     l_text:=l_text||'</loc_information19>';
276     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
277     l_text:='<loc_information20>';
278     l_text:=l_text||irc_utilities_pkg.removeTags(p_loc_information20);
279     l_text:=l_text||'</loc_information20>';
280     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
281     l_text:='<attribute_category>';
282     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
283     l_text:=l_text||'</attribute_category>';
284     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
285     l_text:='<attribute1>';
286     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
287     l_text:=l_text||'</attribute1>';
288     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
289     l_text:='<attribute2>';
290     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
291     l_text:=l_text||'</attribute2>';
292     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
293     l_text:='<attribute3>';
294     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
295     l_text:=l_text||'</attribute3>';
296     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
297     l_text:='<attribute4>';
298     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
299     l_text:=l_text||'</attribute4>';
300     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
301     l_text:='<attribute5>';
302     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
303     l_text:=l_text||'</attribute5>';
304     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
305     l_text:='<attribute6>';
306     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
307     l_text:=l_text||'</attribute6>';
308     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
309     l_text:='<attribute7>';
310     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
311     l_text:=l_text||'</attribute7>';
312     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
313     l_text:='<attribute8>';
314     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
315     l_text:=l_text||'</attribute8>';
316     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
317     l_text:='<attribute9>';
318     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
319     l_text:=l_text||'</attribute9>';
320     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
321     l_text:='<attribute10>';
322     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
323     l_text:=l_text||'</attribute10>';
324     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
325     l_text:='<attribute11>';
326     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
327     l_text:=l_text||'</attribute11>';
328     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
329     l_text:='<attribute12>';
330     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
331     l_text:=l_text||'</attribute12>';
332     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
333     l_text:='<attribute13>';
334     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
335     l_text:=l_text||'</attribute13>';
336     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
337     l_text:='<attribute14>';
338     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
339     l_text:=l_text||'</attribute14>';
340     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
341     l_text:='<attribute15>';
342     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
343     l_text:=l_text||'</attribute15>';
344     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
345     l_text:='<attribute16>';
346     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
347     l_text:=l_text||'</attribute16>';
348     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
349     l_text:='<attribute17>';
350     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
351     l_text:=l_text||'</attribute17>';
352     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
353     l_text:='<attribute18>';
354     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
355     l_text:=l_text||'</attribute18>';
356     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
357     l_text:='<attribute19>';
358     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
359     l_text:=l_text||'</attribute19>';
360     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
361     l_text:='<attribute20>';
362     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
363     l_text:=l_text||'</attribute20>';
364     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
365     l_text:='<global_attribute_category>';
366     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute_category);
367     l_text:=l_text||'</global_attribute_category>';
368     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
369     l_text:='<global_attribute1>';
370     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute1);
371     l_text:=l_text||'</global_attribute1>';
372     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
373     l_text:='<global_attribute2>';
374     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute2);
375     l_text:=l_text||'</global_attribute2>';
376     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
377     l_text:='<global_attribute3>';
378     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute3);
379     l_text:=l_text||'</global_attribute3>';
380     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
381     l_text:='<global_attribute4>';
382     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute4);
383     l_text:=l_text||'</global_attribute4>';
384     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
385     l_text:='<global_attribute5>';
386     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute5);
387     l_text:=l_text||'</global_attribute5>';
388     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
389     l_text:='<global_attribute6>';
390     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute6);
391     l_text:=l_text||'</global_attribute6>';
392     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
393     l_text:='<global_attribute7>';
394     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute7);
395     l_text:=l_text||'</global_attribute7>';
396     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
397     l_text:='<global_attribute8>';
398     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute8);
399     l_text:=l_text||'</global_attribute8>';
400     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
401     l_text:='<global_attribute9>';
402     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute9);
403     l_text:=l_text||'</global_attribute9>';
404     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
405     l_text:='<global_attribute10>';
406     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute10);
407     l_text:=l_text||'</global_attribute10>';
408     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
409     l_text:='<global_attribute11>';
410     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute11);
411     l_text:=l_text||'</global_attribute11>';
412     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
413     l_text:='<global_attribute12>';
414     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute12);
415     l_text:=l_text||'</global_attribute12>';
416     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
417     l_text:='<global_attribute13>';
418     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute13);
419     l_text:=l_text||'</global_attribute13>';
420     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
421     l_text:='<global_attribute14>';
422     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute14);
423     l_text:=l_text||'</global_attribute14>';
424     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
425     l_text:='<global_attribute15>';
426     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute15);
427     l_text:=l_text||'</global_attribute15>';
428     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
429     l_text:='<global_attribute16>';
430     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute16);
431     l_text:=l_text||'</global_attribute16>';
432     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
433     l_text:='<global_attribute17>';
434     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute17);
435     l_text:=l_text||'</global_attribute17>';
436     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
437     l_text:='<global_attribute18>';
438     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute18);
439     l_text:=l_text||'</global_attribute18>';
440     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
441     l_text:='<global_attribute19>';
442     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute19);
443     l_text:=l_text||'</global_attribute19>';
444     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
445     l_text:='<global_attribute20>';
446     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_attribute20);
447     l_text:=l_text||'</global_attribute20>';
448     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
449     l_text:='<object_version_number>';
450     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
451     l_text:=l_text||'</object_version_number>';
452     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
453     l_text:='</location>';
454     --
455     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
456     --
457     -- raise the event with the event data
458     wf_event.raise(p_event_name=>l_event_name
459                   ,p_event_key=>l_event_key
460                   ,p_event_data=>l_event_data);
461   elsif (l_message='KEY') then
462     hr_utility.set_location(l_proc,30);
463     -- get a key for the event
464     open get_seq;
465     fetch get_seq into l_event_key;
466     close get_seq;
467     -- this is a key event, so just raise the event
468     -- without the event data
469     wf_event.raise(p_event_name=>l_event_name
470                   ,p_event_key=>l_event_key);
471   elsif (l_message='NONE') then
472     hr_utility.set_location(l_proc,40);
473     -- no event is required, so do nothing
474     null;
475   end if;
476     hr_utility.set_location('Leaving: '||l_proc,50);
477 end update_location_a;
478 end hr_location_be2;