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