DBA Data[Home] [Help]

PACKAGE BODY: APPS.IRC_PARTY_BE5

Source


1 package body irc_party_be5 as 
2 --Code generated on 30/03/2009 04:31:31
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure create_candidate_internal_a (
5 p_business_group_id            number,
6 p_last_name                    varchar2,
7 p_first_name                   varchar2,
8 p_date_of_birth                date,
9 p_email_address                varchar2,
10 p_title                        varchar2,
11 p_gender                       varchar2,
12 p_marital_status               varchar2,
13 p_previous_last_name           varchar2,
14 p_middle_name                  varchar2,
15 p_name_suffix                  varchar2,
16 p_known_as                     varchar2,
17 p_first_name_phonetic          varchar2,
18 p_last_name_phonetic           varchar2,
19 p_attribute_category           varchar2,
20 p_attribute1                   varchar2,
21 p_attribute2                   varchar2,
22 p_attribute3                   varchar2,
23 p_attribute4                   varchar2,
24 p_attribute5                   varchar2,
25 p_attribute6                   varchar2,
26 p_attribute7                   varchar2,
27 p_attribute8                   varchar2,
28 p_attribute9                   varchar2,
29 p_attribute10                  varchar2,
30 p_attribute11                  varchar2,
31 p_attribute12                  varchar2,
32 p_attribute13                  varchar2,
33 p_attribute14                  varchar2,
34 p_attribute15                  varchar2,
35 p_attribute16                  varchar2,
36 p_attribute17                  varchar2,
37 p_attribute18                  varchar2,
38 p_attribute19                  varchar2,
39 p_attribute20                  varchar2,
40 p_attribute21                  varchar2,
41 p_attribute22                  varchar2,
42 p_attribute23                  varchar2,
43 p_attribute24                  varchar2,
44 p_attribute25                  varchar2,
45 p_attribute26                  varchar2,
46 p_attribute27                  varchar2,
47 p_attribute28                  varchar2,
48 p_attribute29                  varchar2,
49 p_attribute30                  varchar2,
50 p_per_information_category     varchar2,
51 p_per_information1             varchar2,
52 p_per_information2             varchar2,
53 p_per_information3             varchar2,
54 p_per_information4             varchar2,
55 p_per_information5             varchar2,
56 p_per_information6             varchar2,
57 p_per_information7             varchar2,
58 p_per_information8             varchar2,
59 p_per_information9             varchar2,
60 p_per_information10            varchar2,
61 p_per_information11            varchar2,
62 p_per_information12            varchar2,
63 p_per_information13            varchar2,
64 p_per_information14            varchar2,
65 p_per_information15            varchar2,
66 p_per_information16            varchar2,
67 p_per_information17            varchar2,
68 p_per_information18            varchar2,
69 p_per_information19            varchar2,
70 p_per_information20            varchar2,
71 p_per_information21            varchar2,
72 p_per_information22            varchar2,
73 p_per_information23            varchar2,
74 p_per_information24            varchar2,
75 p_per_information25            varchar2,
76 p_per_information26            varchar2,
77 p_per_information27            varchar2,
78 p_per_information28            varchar2,
79 p_per_information29            varchar2,
80 p_per_information30            varchar2,
81 p_person_id                    number,
82 p_effective_start_date         date,
83 p_effective_end_date           date,
84 p_allow_access                 varchar2,
85 p_start_date                   date,
86 p_party_id                     varchar2) 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):='  irc_party_be5.create_candidate_internal_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.irc.api.party.create_candidate_internal';
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:='<party>';
118     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
119     --
120     l_text:='<business_group_id>';
121     l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
122     l_text:=l_text||'</business_group_id>';
123     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
124     l_text:='<last_name>';
125     l_text:=l_text||irc_utilities_pkg.removeTags(p_last_name);
126     l_text:=l_text||'</last_name>';
127     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
128     l_text:='<first_name>';
129     l_text:=l_text||irc_utilities_pkg.removeTags(p_first_name);
130     l_text:=l_text||'</first_name>';
131     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
132     l_text:='<date_of_birth>';
133     l_text:=l_text||fnd_date.date_to_canonical(p_date_of_birth);
134     l_text:=l_text||'</date_of_birth>';
135     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
136     l_text:='<email_address>';
137     l_text:=l_text||irc_utilities_pkg.removeTags(p_email_address);
138     l_text:=l_text||'</email_address>';
139     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
140     l_text:='<title>';
141     l_text:=l_text||irc_utilities_pkg.removeTags(p_title);
142     l_text:=l_text||'</title>';
143     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
144     l_text:='<gender>';
145     l_text:=l_text||irc_utilities_pkg.removeTags(p_gender);
146     l_text:=l_text||'</gender>';
147     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
148     l_text:='<marital_status>';
149     l_text:=l_text||irc_utilities_pkg.removeTags(p_marital_status);
150     l_text:=l_text||'</marital_status>';
151     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
152     l_text:='<previous_last_name>';
153     l_text:=l_text||irc_utilities_pkg.removeTags(p_previous_last_name);
154     l_text:=l_text||'</previous_last_name>';
155     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
156     l_text:='<middle_name>';
157     l_text:=l_text||irc_utilities_pkg.removeTags(p_middle_name);
158     l_text:=l_text||'</middle_name>';
159     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
160     l_text:='<name_suffix>';
161     l_text:=l_text||irc_utilities_pkg.removeTags(p_name_suffix);
162     l_text:=l_text||'</name_suffix>';
163     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
164     l_text:='<known_as>';
165     l_text:=l_text||irc_utilities_pkg.removeTags(p_known_as);
166     l_text:=l_text||'</known_as>';
167     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
168     l_text:='<first_name_phonetic>';
169     l_text:=l_text||irc_utilities_pkg.removeTags(p_first_name_phonetic);
170     l_text:=l_text||'</first_name_phonetic>';
171     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
172     l_text:='<last_name_phonetic>';
173     l_text:=l_text||irc_utilities_pkg.removeTags(p_last_name_phonetic);
174     l_text:=l_text||'</last_name_phonetic>';
175     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
176     l_text:='<attribute_category>';
177     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
178     l_text:=l_text||'</attribute_category>';
179     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
180     l_text:='<attribute1>';
181     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
182     l_text:=l_text||'</attribute1>';
183     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
184     l_text:='<attribute2>';
185     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
186     l_text:=l_text||'</attribute2>';
187     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
188     l_text:='<attribute3>';
189     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
190     l_text:=l_text||'</attribute3>';
191     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
192     l_text:='<attribute4>';
193     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
194     l_text:=l_text||'</attribute4>';
195     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
196     l_text:='<attribute5>';
197     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
198     l_text:=l_text||'</attribute5>';
199     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
200     l_text:='<attribute6>';
201     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
202     l_text:=l_text||'</attribute6>';
203     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
204     l_text:='<attribute7>';
205     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
206     l_text:=l_text||'</attribute7>';
207     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
208     l_text:='<attribute8>';
209     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
210     l_text:=l_text||'</attribute8>';
211     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
212     l_text:='<attribute9>';
213     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
214     l_text:=l_text||'</attribute9>';
215     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
216     l_text:='<attribute10>';
217     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
218     l_text:=l_text||'</attribute10>';
219     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
220     l_text:='<attribute11>';
221     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
222     l_text:=l_text||'</attribute11>';
223     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
224     l_text:='<attribute12>';
225     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
226     l_text:=l_text||'</attribute12>';
227     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
228     l_text:='<attribute13>';
229     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
230     l_text:=l_text||'</attribute13>';
231     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
232     l_text:='<attribute14>';
233     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
234     l_text:=l_text||'</attribute14>';
235     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
236     l_text:='<attribute15>';
237     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
238     l_text:=l_text||'</attribute15>';
239     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
240     l_text:='<attribute16>';
241     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
242     l_text:=l_text||'</attribute16>';
243     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
244     l_text:='<attribute17>';
245     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
246     l_text:=l_text||'</attribute17>';
247     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
248     l_text:='<attribute18>';
249     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
250     l_text:=l_text||'</attribute18>';
251     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
252     l_text:='<attribute19>';
253     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
254     l_text:=l_text||'</attribute19>';
255     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
256     l_text:='<attribute20>';
257     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
258     l_text:=l_text||'</attribute20>';
259     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
260     l_text:='<attribute21>';
261     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute21);
262     l_text:=l_text||'</attribute21>';
263     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
264     l_text:='<attribute22>';
265     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute22);
266     l_text:=l_text||'</attribute22>';
267     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
268     l_text:='<attribute23>';
269     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute23);
270     l_text:=l_text||'</attribute23>';
271     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
272     l_text:='<attribute24>';
273     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute24);
274     l_text:=l_text||'</attribute24>';
275     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
276     l_text:='<attribute25>';
277     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute25);
278     l_text:=l_text||'</attribute25>';
279     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
280     l_text:='<attribute26>';
281     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute26);
282     l_text:=l_text||'</attribute26>';
283     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
284     l_text:='<attribute27>';
285     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute27);
286     l_text:=l_text||'</attribute27>';
287     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
288     l_text:='<attribute28>';
289     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute28);
290     l_text:=l_text||'</attribute28>';
291     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
292     l_text:='<attribute29>';
293     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute29);
294     l_text:=l_text||'</attribute29>';
295     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
296     l_text:='<attribute30>';
297     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute30);
298     l_text:=l_text||'</attribute30>';
299     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
300     l_text:='<per_information_category>';
301     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information_category);
302     l_text:=l_text||'</per_information_category>';
303     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
304     l_text:='<per_information1>';
305     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information1);
306     l_text:=l_text||'</per_information1>';
307     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
308     l_text:='<per_information2>';
309     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information2);
310     l_text:=l_text||'</per_information2>';
311     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
312     l_text:='<per_information3>';
313     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information3);
314     l_text:=l_text||'</per_information3>';
315     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
316     l_text:='<per_information4>';
317     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information4);
318     l_text:=l_text||'</per_information4>';
319     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
320     l_text:='<per_information5>';
321     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information5);
322     l_text:=l_text||'</per_information5>';
323     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
324     l_text:='<per_information6>';
325     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information6);
326     l_text:=l_text||'</per_information6>';
327     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
328     l_text:='<per_information7>';
329     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information7);
330     l_text:=l_text||'</per_information7>';
331     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
332     l_text:='<per_information8>';
333     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information8);
334     l_text:=l_text||'</per_information8>';
335     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
336     l_text:='<per_information9>';
337     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information9);
338     l_text:=l_text||'</per_information9>';
339     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
340     l_text:='<per_information10>';
341     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information10);
342     l_text:=l_text||'</per_information10>';
343     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
344     l_text:='<per_information11>';
345     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information11);
346     l_text:=l_text||'</per_information11>';
347     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
348     l_text:='<per_information12>';
349     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information12);
350     l_text:=l_text||'</per_information12>';
351     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
352     l_text:='<per_information13>';
353     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information13);
354     l_text:=l_text||'</per_information13>';
355     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
356     l_text:='<per_information14>';
357     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information14);
358     l_text:=l_text||'</per_information14>';
359     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
360     l_text:='<per_information15>';
361     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information15);
362     l_text:=l_text||'</per_information15>';
363     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
364     l_text:='<per_information16>';
365     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information16);
366     l_text:=l_text||'</per_information16>';
367     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
368     l_text:='<per_information17>';
369     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information17);
370     l_text:=l_text||'</per_information17>';
371     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
372     l_text:='<per_information18>';
373     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information18);
374     l_text:=l_text||'</per_information18>';
375     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
376     l_text:='<per_information19>';
377     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information19);
378     l_text:=l_text||'</per_information19>';
379     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
380     l_text:='<per_information20>';
381     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information20);
382     l_text:=l_text||'</per_information20>';
383     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
384     l_text:='<per_information21>';
385     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information21);
386     l_text:=l_text||'</per_information21>';
387     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
388     l_text:='<per_information22>';
389     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information22);
390     l_text:=l_text||'</per_information22>';
391     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
392     l_text:='<per_information23>';
393     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information23);
394     l_text:=l_text||'</per_information23>';
395     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
396     l_text:='<per_information24>';
397     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information24);
398     l_text:=l_text||'</per_information24>';
399     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
400     l_text:='<per_information25>';
401     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information25);
402     l_text:=l_text||'</per_information25>';
403     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
404     l_text:='<per_information26>';
405     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information26);
406     l_text:=l_text||'</per_information26>';
407     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
408     l_text:='<per_information27>';
409     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information27);
410     l_text:=l_text||'</per_information27>';
411     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
412     l_text:='<per_information28>';
413     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information28);
414     l_text:=l_text||'</per_information28>';
415     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
416     l_text:='<per_information29>';
417     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information29);
418     l_text:=l_text||'</per_information29>';
419     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
420     l_text:='<per_information30>';
421     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information30);
422     l_text:=l_text||'</per_information30>';
423     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
424     l_text:='<person_id>';
425     l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
426     l_text:=l_text||'</person_id>';
427     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
428     l_text:='<effective_start_date>';
429     l_text:=l_text||fnd_date.date_to_canonical(p_effective_start_date);
430     l_text:=l_text||'</effective_start_date>';
431     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
432     l_text:='<effective_end_date>';
433     l_text:=l_text||fnd_date.date_to_canonical(p_effective_end_date);
434     l_text:=l_text||'</effective_end_date>';
435     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
436     l_text:='<allow_access>';
437     l_text:=l_text||irc_utilities_pkg.removeTags(p_allow_access);
438     l_text:=l_text||'</allow_access>';
439     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
440     l_text:='<start_date>';
441     l_text:=l_text||fnd_date.date_to_canonical(p_start_date);
442     l_text:=l_text||'</start_date>';
443     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
444     l_text:='<party_id>';
445     l_text:=l_text||irc_utilities_pkg.removeTags(p_party_id);
446     l_text:=l_text||'</party_id>';
447     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
448     l_text:='</party>';
449     --
450     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
451     --
452     if p_effective_start_date is not NULL and
453        p_effective_start_date > trunc(SYSDATE) and
454         fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then 
455        -- raise the event with the event data, with send date set to effective date
456        wf_event.raise(p_event_name=>l_event_name
457                      ,p_event_key=>l_event_key
458                      ,p_event_data=>l_event_data
459                      ,p_send_date => p_effective_start_date);
460         --
461     else 
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     end if;
467   elsif (l_message='KEY') then
468     hr_utility.set_location(l_proc,30);
469     -- get a key for the event
470     open get_seq;
471     fetch get_seq into l_event_key;
472     close get_seq;
473     if p_effective_start_date is not NULL and
474        p_effective_start_date > trunc(SYSDATE) and
475         fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then 
476        -- this is a key event, so just raise the event
477        -- without the event data, with send date set to effective date
478        wf_event.raise(p_event_name=>l_event_name
479                      ,p_event_key=>l_event_key
480                      ,p_send_date => p_effective_start_date);
481        --
482     else
483        -- this is a key event, so just raise the event
484        -- without the event data
485        wf_event.raise(p_event_name=>l_event_name
486                      ,p_event_key=>l_event_key);
487     end if;
488   elsif (l_message='NONE') then
489     hr_utility.set_location(l_proc,40);
490     -- no event is required, so do nothing
491     null;
492   end if;
493     hr_utility.set_location('Leaving: '||l_proc,50);
494 end create_candidate_internal_a;
495 end irc_party_be5;