[Home] [Help]
PACKAGE BODY: APPS.HR_DOCUMENT_EXTRA_INFO_BE1
Source
1 package body hr_document_extra_info_be1 as
2 --Code generated on 06/11/2008 01:29:17
3 /* $Header: hrapiwfe.pkb 120.4 2008/02/15 06:27:49 viviswan ship $*/
4 procedure create_doc_extra_info_a (
5 p_document_extra_info_id number,
6 p_person_id number,
7 p_document_type_id number,
8 p_date_from date,
9 p_date_to date,
10 p_document_number varchar2,
11 p_issued_by varchar2,
12 p_issued_at varchar2,
13 p_issued_date date,
14 p_issuing_authority varchar2,
15 p_verified_by number,
16 p_verified_date date,
17 p_related_object_name varchar2,
18 p_related_object_id_col varchar2,
19 p_related_object_id number,
20 p_dei_attribute_category varchar2,
21 p_dei_attribute1 varchar2,
22 p_dei_attribute2 varchar2,
23 p_dei_attribute3 varchar2,
24 p_dei_attribute4 varchar2,
25 p_dei_attribute5 varchar2,
26 p_dei_attribute6 varchar2,
27 p_dei_attribute7 varchar2,
28 p_dei_attribute8 varchar2,
29 p_dei_attribute9 varchar2,
30 p_dei_attribute10 varchar2,
31 p_dei_attribute11 varchar2,
32 p_dei_attribute12 varchar2,
33 p_dei_attribute13 varchar2,
34 p_dei_attribute14 varchar2,
35 p_dei_attribute15 varchar2,
36 p_dei_attribute16 varchar2,
37 p_dei_attribute17 varchar2,
38 p_dei_attribute18 varchar2,
39 p_dei_attribute19 varchar2,
40 p_dei_attribute20 varchar2,
41 p_dei_attribute21 varchar2,
42 p_dei_attribute22 varchar2,
43 p_dei_attribute23 varchar2,
44 p_dei_attribute24 varchar2,
45 p_dei_attribute25 varchar2,
46 p_dei_attribute26 varchar2,
47 p_dei_attribute27 varchar2,
48 p_dei_attribute28 varchar2,
49 p_dei_attribute29 varchar2,
50 p_dei_attribute30 varchar2,
51 p_dei_information_category varchar2,
52 p_dei_information1 varchar2,
53 p_dei_information2 varchar2,
54 p_dei_information3 varchar2,
55 p_dei_information4 varchar2,
56 p_dei_information5 varchar2,
57 p_dei_information6 varchar2,
58 p_dei_information7 varchar2,
59 p_dei_information8 varchar2,
60 p_dei_information9 varchar2,
61 p_dei_information10 varchar2,
62 p_dei_information11 varchar2,
63 p_dei_information12 varchar2,
64 p_dei_information13 varchar2,
65 p_dei_information14 varchar2,
66 p_dei_information15 varchar2,
67 p_dei_information16 varchar2,
68 p_dei_information17 varchar2,
69 p_dei_information18 varchar2,
70 p_dei_information19 varchar2,
71 p_dei_information20 varchar2,
72 p_dei_information21 varchar2,
73 p_dei_information22 varchar2,
74 p_dei_information23 varchar2,
75 p_dei_information24 varchar2,
76 p_dei_information25 varchar2,
77 p_dei_information26 varchar2,
78 p_dei_information27 varchar2,
79 p_dei_information28 varchar2,
80 p_dei_information29 varchar2,
81 p_dei_information30 varchar2,
82 p_request_id number,
83 p_program_application_id number,
84 p_program_id number,
85 p_program_update_date date,
86 p_object_version_number number) is
87 l_event_key number;
88 l_event_data clob;
89 l_event_name varchar2(250);
90 l_text varchar2(2000);
91 l_message varchar2(10);
92 --
93 cursor get_seq is
94 select per_wf_events_s.nextval from dual;
95 --
96 l_proc varchar2(72):=' hr_document_extra_info_be1.create_doc_extra_info_a';
97 begin
98 hr_utility.set_location('Entering: '||l_proc,10);
99 -- check the status of the business event
100 l_event_name:='oracle.apps.per.api.document_extra_info.create_doc_extra_info';
101 l_message:=wf_event.test(l_event_name);
102 --
103 if (l_message='MESSAGE') then
104 hr_utility.set_location(l_proc,20);
105 --
106 -- get a key for the event
107 --
108 open get_seq;
109 fetch get_seq into l_event_key;
110 close get_seq;
111 --
112 -- build the xml data for the event
113 --
114 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
115 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
116 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
117 l_text:='<document_extra_info>';
118 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
119 --
120 l_text:='<document_extra_info_id>';
121 l_text:=l_text||fnd_number.number_to_canonical(p_document_extra_info_id);
122 l_text:=l_text||'</document_extra_info_id>';
123 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
124 l_text:='<person_id>';
125 l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
126 l_text:=l_text||'</person_id>';
127 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
128 l_text:='<document_type_id>';
129 l_text:=l_text||fnd_number.number_to_canonical(p_document_type_id);
130 l_text:=l_text||'</document_type_id>';
131 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
132 l_text:='<date_from>';
133 l_text:=l_text||fnd_date.date_to_canonical(p_date_from);
134 l_text:=l_text||'</date_from>';
135 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
136 l_text:='<date_to>';
137 l_text:=l_text||fnd_date.date_to_canonical(p_date_to);
138 l_text:=l_text||'</date_to>';
139 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
140 l_text:='<document_number>';
141 l_text:=l_text||irc_utilities_pkg.removeTags(p_document_number);
142 l_text:=l_text||'</document_number>';
143 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
144 l_text:='<issued_by>';
145 l_text:=l_text||irc_utilities_pkg.removeTags(p_issued_by);
146 l_text:=l_text||'</issued_by>';
147 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
148 l_text:='<issued_at>';
149 l_text:=l_text||irc_utilities_pkg.removeTags(p_issued_at);
150 l_text:=l_text||'</issued_at>';
151 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
152 l_text:='<issued_date>';
153 l_text:=l_text||fnd_date.date_to_canonical(p_issued_date);
154 l_text:=l_text||'</issued_date>';
155 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
156 l_text:='<issuing_authority>';
157 l_text:=l_text||irc_utilities_pkg.removeTags(p_issuing_authority);
158 l_text:=l_text||'</issuing_authority>';
159 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
160 l_text:='<verified_by>';
161 l_text:=l_text||fnd_number.number_to_canonical(p_verified_by);
162 l_text:=l_text||'</verified_by>';
163 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
164 l_text:='<verified_date>';
165 l_text:=l_text||fnd_date.date_to_canonical(p_verified_date);
166 l_text:=l_text||'</verified_date>';
167 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
168 l_text:='<related_object_name>';
169 l_text:=l_text||irc_utilities_pkg.removeTags(p_related_object_name);
170 l_text:=l_text||'</related_object_name>';
171 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
172 l_text:='<related_object_id_col>';
173 l_text:=l_text||irc_utilities_pkg.removeTags(p_related_object_id_col);
174 l_text:=l_text||'</related_object_id_col>';
175 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
176 l_text:='<related_object_id>';
177 l_text:=l_text||fnd_number.number_to_canonical(p_related_object_id);
178 l_text:=l_text||'</related_object_id>';
179 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
180 l_text:='<dei_attribute_category>';
181 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute_category);
182 l_text:=l_text||'</dei_attribute_category>';
183 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
184 l_text:='<dei_attribute1>';
185 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute1);
186 l_text:=l_text||'</dei_attribute1>';
187 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
188 l_text:='<dei_attribute2>';
189 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute2);
190 l_text:=l_text||'</dei_attribute2>';
191 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
192 l_text:='<dei_attribute3>';
193 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute3);
194 l_text:=l_text||'</dei_attribute3>';
195 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
196 l_text:='<dei_attribute4>';
197 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute4);
198 l_text:=l_text||'</dei_attribute4>';
199 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
200 l_text:='<dei_attribute5>';
201 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute5);
202 l_text:=l_text||'</dei_attribute5>';
203 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
204 l_text:='<dei_attribute6>';
205 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute6);
206 l_text:=l_text||'</dei_attribute6>';
207 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
208 l_text:='<dei_attribute7>';
209 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute7);
210 l_text:=l_text||'</dei_attribute7>';
211 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
212 l_text:='<dei_attribute8>';
213 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute8);
214 l_text:=l_text||'</dei_attribute8>';
215 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
216 l_text:='<dei_attribute9>';
217 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute9);
218 l_text:=l_text||'</dei_attribute9>';
219 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
220 l_text:='<dei_attribute10>';
221 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute10);
222 l_text:=l_text||'</dei_attribute10>';
223 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
224 l_text:='<dei_attribute11>';
225 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute11);
226 l_text:=l_text||'</dei_attribute11>';
227 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
228 l_text:='<dei_attribute12>';
229 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute12);
230 l_text:=l_text||'</dei_attribute12>';
231 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
232 l_text:='<dei_attribute13>';
233 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute13);
234 l_text:=l_text||'</dei_attribute13>';
235 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
236 l_text:='<dei_attribute14>';
237 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute14);
238 l_text:=l_text||'</dei_attribute14>';
239 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
240 l_text:='<dei_attribute15>';
241 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute15);
242 l_text:=l_text||'</dei_attribute15>';
243 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
244 l_text:='<dei_attribute16>';
245 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute16);
246 l_text:=l_text||'</dei_attribute16>';
247 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
248 l_text:='<dei_attribute17>';
249 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute17);
250 l_text:=l_text||'</dei_attribute17>';
251 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
252 l_text:='<dei_attribute18>';
253 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute18);
254 l_text:=l_text||'</dei_attribute18>';
255 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
256 l_text:='<dei_attribute19>';
257 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute19);
258 l_text:=l_text||'</dei_attribute19>';
259 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
260 l_text:='<dei_attribute20>';
261 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute20);
262 l_text:=l_text||'</dei_attribute20>';
263 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
264 l_text:='<dei_attribute21>';
265 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute21);
266 l_text:=l_text||'</dei_attribute21>';
267 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
268 l_text:='<dei_attribute22>';
269 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute22);
270 l_text:=l_text||'</dei_attribute22>';
271 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
272 l_text:='<dei_attribute23>';
273 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute23);
274 l_text:=l_text||'</dei_attribute23>';
275 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
276 l_text:='<dei_attribute24>';
277 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute24);
278 l_text:=l_text||'</dei_attribute24>';
279 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
280 l_text:='<dei_attribute25>';
281 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute25);
282 l_text:=l_text||'</dei_attribute25>';
283 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
284 l_text:='<dei_attribute26>';
285 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute26);
286 l_text:=l_text||'</dei_attribute26>';
287 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
288 l_text:='<dei_attribute27>';
289 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute27);
290 l_text:=l_text||'</dei_attribute27>';
291 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
292 l_text:='<dei_attribute28>';
293 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute28);
294 l_text:=l_text||'</dei_attribute28>';
295 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
296 l_text:='<dei_attribute29>';
297 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute29);
298 l_text:=l_text||'</dei_attribute29>';
299 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
300 l_text:='<dei_attribute30>';
301 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_attribute30);
302 l_text:=l_text||'</dei_attribute30>';
303 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
304 l_text:='<dei_information_category>';
305 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information_category);
306 l_text:=l_text||'</dei_information_category>';
307 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
308 l_text:='<dei_information1>';
309 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information1);
310 l_text:=l_text||'</dei_information1>';
314 l_text:=l_text||'</dei_information2>';
311 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
312 l_text:='<dei_information2>';
313 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information2);
315 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
316 l_text:='<dei_information3>';
317 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information3);
318 l_text:=l_text||'</dei_information3>';
319 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
320 l_text:='<dei_information4>';
321 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information4);
322 l_text:=l_text||'</dei_information4>';
323 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
324 l_text:='<dei_information5>';
325 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information5);
326 l_text:=l_text||'</dei_information5>';
327 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
328 l_text:='<dei_information6>';
329 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information6);
330 l_text:=l_text||'</dei_information6>';
331 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
332 l_text:='<dei_information7>';
333 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information7);
334 l_text:=l_text||'</dei_information7>';
335 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
336 l_text:='<dei_information8>';
337 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information8);
338 l_text:=l_text||'</dei_information8>';
339 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
340 l_text:='<dei_information9>';
341 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information9);
342 l_text:=l_text||'</dei_information9>';
343 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
344 l_text:='<dei_information10>';
345 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information10);
346 l_text:=l_text||'</dei_information10>';
347 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
348 l_text:='<dei_information11>';
349 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information11);
350 l_text:=l_text||'</dei_information11>';
351 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
352 l_text:='<dei_information12>';
353 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information12);
354 l_text:=l_text||'</dei_information12>';
355 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
356 l_text:='<dei_information13>';
357 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information13);
358 l_text:=l_text||'</dei_information13>';
359 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
360 l_text:='<dei_information14>';
361 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information14);
362 l_text:=l_text||'</dei_information14>';
363 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
364 l_text:='<dei_information15>';
365 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information15);
366 l_text:=l_text||'</dei_information15>';
367 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
368 l_text:='<dei_information16>';
369 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information16);
370 l_text:=l_text||'</dei_information16>';
371 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
372 l_text:='<dei_information17>';
373 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information17);
374 l_text:=l_text||'</dei_information17>';
375 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
376 l_text:='<dei_information18>';
377 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information18);
378 l_text:=l_text||'</dei_information18>';
379 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
380 l_text:='<dei_information19>';
381 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information19);
382 l_text:=l_text||'</dei_information19>';
383 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
384 l_text:='<dei_information20>';
385 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information20);
386 l_text:=l_text||'</dei_information20>';
387 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
388 l_text:='<dei_information21>';
389 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information21);
390 l_text:=l_text||'</dei_information21>';
391 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
392 l_text:='<dei_information22>';
393 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information22);
394 l_text:=l_text||'</dei_information22>';
395 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
396 l_text:='<dei_information23>';
397 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information23);
398 l_text:=l_text||'</dei_information23>';
399 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
400 l_text:='<dei_information24>';
401 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information24);
402 l_text:=l_text||'</dei_information24>';
403 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
404 l_text:='<dei_information25>';
405 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information25);
406 l_text:=l_text||'</dei_information25>';
407 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
408 l_text:='<dei_information26>';
409 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information26);
410 l_text:=l_text||'</dei_information26>';
411 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
412 l_text:='<dei_information27>';
413 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information27);
414 l_text:=l_text||'</dei_information27>';
415 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
416 l_text:='<dei_information28>';
417 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information28);
418 l_text:=l_text||'</dei_information28>';
422 l_text:=l_text||'</dei_information29>';
419 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
420 l_text:='<dei_information29>';
421 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information29);
423 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
424 l_text:='<dei_information30>';
425 l_text:=l_text||irc_utilities_pkg.removeTags(p_dei_information30);
426 l_text:=l_text||'</dei_information30>';
427 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
428 l_text:='<request_id>';
429 l_text:=l_text||fnd_number.number_to_canonical(p_request_id);
430 l_text:=l_text||'</request_id>';
431 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
432 l_text:='<program_application_id>';
433 l_text:=l_text||fnd_number.number_to_canonical(p_program_application_id);
434 l_text:=l_text||'</program_application_id>';
435 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
436 l_text:='<program_id>';
437 l_text:=l_text||fnd_number.number_to_canonical(p_program_id);
438 l_text:=l_text||'</program_id>';
439 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
440 l_text:='<program_update_date>';
441 l_text:=l_text||fnd_date.date_to_canonical(p_program_update_date);
442 l_text:=l_text||'</program_update_date>';
443 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
444 l_text:='<object_version_number>';
445 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
446 l_text:=l_text||'</object_version_number>';
447 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
448 l_text:='</document_extra_info>';
449 --
450 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
451 --
452 -- raise the event with the event data
453 wf_event.raise(p_event_name=>l_event_name
454 ,p_event_key=>l_event_key
455 ,p_event_data=>l_event_data);
456 --
457 elsif (l_message='KEY') then
458 hr_utility.set_location(l_proc,30);
459 -- get a key for the event
460 open get_seq;
461 fetch get_seq into l_event_key;
462 close get_seq;
463 -- this is a key event, so just raise the event
464 -- without the event data
465 wf_event.raise(p_event_name=>l_event_name
466 ,p_event_key=>l_event_key);
467 --
468 elsif (l_message='NONE') then
469 hr_utility.set_location(l_proc,40);
470 -- no event is required, so do nothing
471 null;
472 end if;
473 hr_utility.set_location('Leaving: '||l_proc,50);
474 end create_doc_extra_info_a;
475 end hr_document_extra_info_be1;