DBA Data[Home] [Help]

PACKAGE BODY: APPS.HR_EMPLOYEE_BE1

Source


1 package body hr_employee_be1 as 
2 --Code generated on 27/11/2012 03:58:31
3 /* $Header: hrapiwfe.pkb 120.11 2011/12/24 13:28:35 vboggava ship $*/
4 procedure create_employee_a (
5 p_hire_date                    date,
6 p_business_group_id            number,
7 p_last_name                    varchar2,
8 p_sex                          varchar2,
9 p_person_type_id               number,
10 p_per_comments                 varchar2,
11 p_date_employee_data_verified  date,
12 p_date_of_birth                date,
13 p_email_address                varchar2,
14 p_employee_number              varchar2,
15 p_expense_check_send_to_addres varchar2,
16 p_first_name                   varchar2,
17 p_known_as                     varchar2,
18 p_marital_status               varchar2,
19 p_middle_names                 varchar2,
20 p_nationality                  varchar2,
21 p_national_identifier          varchar2,
22 p_previous_last_name           varchar2,
23 p_registered_disabled_flag     varchar2,
24 p_title                        varchar2,
25 p_vendor_id                    number,
26 p_work_telephone               varchar2,
27 p_attribute_category           varchar2,
28 p_attribute1                   varchar2,
29 p_attribute2                   varchar2,
30 p_attribute3                   varchar2,
31 p_attribute4                   varchar2,
32 p_attribute5                   varchar2,
33 p_attribute6                   varchar2,
34 p_attribute7                   varchar2,
35 p_attribute8                   varchar2,
36 p_attribute9                   varchar2,
37 p_attribute10                  varchar2,
38 p_attribute11                  varchar2,
39 p_attribute12                  varchar2,
40 p_attribute13                  varchar2,
41 p_attribute14                  varchar2,
42 p_attribute15                  varchar2,
43 p_attribute16                  varchar2,
44 p_attribute17                  varchar2,
45 p_attribute18                  varchar2,
46 p_attribute19                  varchar2,
47 p_attribute20                  varchar2,
48 p_attribute21                  varchar2,
49 p_attribute22                  varchar2,
50 p_attribute23                  varchar2,
51 p_attribute24                  varchar2,
52 p_attribute25                  varchar2,
53 p_attribute26                  varchar2,
54 p_attribute27                  varchar2,
55 p_attribute28                  varchar2,
56 p_attribute29                  varchar2,
57 p_attribute30                  varchar2,
58 p_per_information_category     varchar2,
59 p_per_information1             varchar2,
60 p_per_information2             varchar2,
61 p_per_information3             varchar2,
62 p_per_information4             varchar2,
63 p_per_information5             varchar2,
64 p_per_information6             varchar2,
65 p_per_information7             varchar2,
66 p_per_information8             varchar2,
67 p_per_information9             varchar2,
68 p_per_information10            varchar2,
69 p_per_information11            varchar2,
70 p_per_information12            varchar2,
71 p_per_information13            varchar2,
72 p_per_information14            varchar2,
73 p_per_information15            varchar2,
74 p_per_information16            varchar2,
75 p_per_information17            varchar2,
76 p_per_information18            varchar2,
77 p_per_information19            varchar2,
78 p_per_information20            varchar2,
79 p_per_information21            varchar2,
80 p_per_information22            varchar2,
81 p_per_information23            varchar2,
82 p_per_information24            varchar2,
83 p_per_information25            varchar2,
84 p_per_information26            varchar2,
85 p_per_information27            varchar2,
86 p_per_information28            varchar2,
87 p_per_information29            varchar2,
88 p_per_information30            varchar2,
89 p_date_of_death                date,
90 p_background_check_status      varchar2,
91 p_background_date_check        date,
92 p_blood_type                   varchar2,
93 p_correspondence_language      varchar2,
94 p_fast_path_employee           varchar2,
95 p_fte_capacity                 number,
96 p_honors                       varchar2,
97 p_internal_location            varchar2,
98 p_last_medical_test_by         varchar2,
99 p_last_medical_test_date       date,
100 p_mailstop                     varchar2,
101 p_office_number                varchar2,
102 p_on_military_service          varchar2,
103 p_pre_name_adjunct             varchar2,
104 p_rehire_recommendation        varchar2,
105 p_projected_start_date         date,
106 p_resume_exists                varchar2,
107 p_resume_last_updated          date,
108 p_second_passport_exists       varchar2,
109 p_student_status               varchar2,
110 p_work_schedule                varchar2,
111 p_suffix                       varchar2,
112 p_benefit_group_id             number,
113 p_receipt_of_death_cert_date   date,
114 p_coord_ben_med_pln_no         varchar2,
115 p_coord_ben_no_cvg_flag        varchar2,
116 p_coord_ben_med_ext_er         varchar2,
117 p_coord_ben_med_pl_name        varchar2,
118 p_coord_ben_med_insr_crr_name  varchar2,
119 p_coord_ben_med_insr_crr_ident varchar2,
120 p_coord_ben_med_cvg_strt_dt    date,
121 p_coord_ben_med_cvg_end_dt     date,
122 p_uses_tobacco_flag            varchar2,
123 p_dpdnt_adoption_date          date,
124 p_dpdnt_vlntry_svce_flag       varchar2,
125 p_original_date_of_hire        date,
126 p_adjusted_svc_date            date,
127 p_person_id                    number,
128 p_assignment_id                number,
129 p_per_object_version_number    number,
130 p_asg_object_version_number    number,
131 p_per_effective_start_date     date,
132 p_per_effective_end_date       date,
133 p_full_name                    varchar2,
134 p_per_comment_id               number,
135 p_assignment_sequence          number,
136 p_assignment_number            varchar2,
137 p_town_of_birth                varchar2,
138 p_region_of_birth              varchar2,
139 p_country_of_birth             varchar2,
140 p_global_person_id             varchar2,
141 p_party_id                     number,
142 p_name_combination_warning     boolean,
143 p_assign_payroll_warning       boolean,
144 p_orig_hire_warning            boolean) is
145   l_event_key number;
146   l_event_data clob;
147   l_event_name varchar2(250);
148   l_text varchar2(2000);
149   l_message varchar2(10);
150   --
151   cursor get_seq is
152   select per_wf_events_s.nextval from dual;
153   --
154   l_proc varchar2(72):='  hr_employee_be1.create_employee_a';
155 begin
156   hr_utility.set_location('Entering: '||l_proc,10);
157   -- check the status of the business event
158   l_event_name:='oracle.apps.per.api.employee.create_employee';
159   l_message:=wf_event.test(l_event_name);
160   --
161   if (l_message='MESSAGE') then
162     hr_utility.set_location(l_proc,20);
163     --
164     -- get a key for the event
165     --
166     open get_seq;
167     fetch get_seq into l_event_key;
168     close get_seq;
169     --
170     -- build the xml data for the event
171     --
172     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
173     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
174     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
175     l_text:='<employee>';
176     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
177     --
178     l_text:='<hire_date>';
179     l_text:=l_text||fnd_date.date_to_canonical(p_hire_date);
180     l_text:=l_text||'</hire_date>';
181     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
182     l_text:='<business_group_id>';
183     l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
184     l_text:=l_text||'</business_group_id>';
185     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
186     l_text:='<last_name>';
187     l_text:=l_text||irc_utilities_pkg.removeTags(p_last_name);
188     l_text:=l_text||'</last_name>';
189     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
190     l_text:='<sex>';
191     l_text:=l_text||irc_utilities_pkg.removeTags(p_sex);
192     l_text:=l_text||'</sex>';
193     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
194     l_text:='<person_type_id>';
195     l_text:=l_text||fnd_number.number_to_canonical(p_person_type_id);
196     l_text:=l_text||'</person_type_id>';
197     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
198     l_text:='<per_comments>';
199     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_comments);
200     l_text:=l_text||'</per_comments>';
201     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
202     l_text:='<date_employee_data_verified>';
203     l_text:=l_text||fnd_date.date_to_canonical(p_date_employee_data_verified);
204     l_text:=l_text||'</date_employee_data_verified>';
205     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
206     l_text:='<date_of_birth>';
207     l_text:=l_text||fnd_date.date_to_canonical(p_date_of_birth);
208     l_text:=l_text||'</date_of_birth>';
209     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
210     l_text:='<email_address>';
211     l_text:=l_text||irc_utilities_pkg.removeTags(p_email_address);
212     l_text:=l_text||'</email_address>';
213     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
214     l_text:='<employee_number>';
215     l_text:=l_text||irc_utilities_pkg.removeTags(p_employee_number);
216     l_text:=l_text||'</employee_number>';
217     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
218     l_text:='<expense_check_send_to_addres>';
219     l_text:=l_text||irc_utilities_pkg.removeTags(p_expense_check_send_to_addres);
220     l_text:=l_text||'</expense_check_send_to_addres>';
221     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
222     l_text:='<first_name>';
223     l_text:=l_text||irc_utilities_pkg.removeTags(p_first_name);
224     l_text:=l_text||'</first_name>';
225     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
226     l_text:='<known_as>';
227     l_text:=l_text||irc_utilities_pkg.removeTags(p_known_as);
228     l_text:=l_text||'</known_as>';
229     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
230     l_text:='<marital_status>';
231     l_text:=l_text||irc_utilities_pkg.removeTags(p_marital_status);
232     l_text:=l_text||'</marital_status>';
233     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
234     l_text:='<middle_names>';
235     l_text:=l_text||irc_utilities_pkg.removeTags(p_middle_names);
236     l_text:=l_text||'</middle_names>';
237     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
238     l_text:='<nationality>';
239     l_text:=l_text||irc_utilities_pkg.removeTags(p_nationality);
240     l_text:=l_text||'</nationality>';
241     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
242     l_text:='<national_identifier>';
243     l_text:=l_text||irc_utilities_pkg.removeTags(p_national_identifier);
244     l_text:=l_text||'</national_identifier>';
245     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
246     l_text:='<previous_last_name>';
247     l_text:=l_text||irc_utilities_pkg.removeTags(p_previous_last_name);
248     l_text:=l_text||'</previous_last_name>';
249     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
250     l_text:='<registered_disabled_flag>';
251     l_text:=l_text||irc_utilities_pkg.removeTags(p_registered_disabled_flag);
252     l_text:=l_text||'</registered_disabled_flag>';
253     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
254     l_text:='<title>';
255     l_text:=l_text||irc_utilities_pkg.removeTags(p_title);
256     l_text:=l_text||'</title>';
257     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
258     l_text:='<vendor_id>';
259     l_text:=l_text||fnd_number.number_to_canonical(p_vendor_id);
260     l_text:=l_text||'</vendor_id>';
261     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
262     l_text:='<work_telephone>';
263     l_text:=l_text||irc_utilities_pkg.removeTags(p_work_telephone);
264     l_text:=l_text||'</work_telephone>';
265     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
266     l_text:='<attribute_category>';
267     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
268     l_text:=l_text||'</attribute_category>';
269     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
270     l_text:='<attribute1>';
271     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
272     l_text:=l_text||'</attribute1>';
273     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
274     l_text:='<attribute2>';
275     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
276     l_text:=l_text||'</attribute2>';
277     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
278     l_text:='<attribute3>';
279     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
280     l_text:=l_text||'</attribute3>';
281     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
282     l_text:='<attribute4>';
283     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
284     l_text:=l_text||'</attribute4>';
285     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
286     l_text:='<attribute5>';
287     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
288     l_text:=l_text||'</attribute5>';
289     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
290     l_text:='<attribute6>';
291     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
292     l_text:=l_text||'</attribute6>';
293     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
294     l_text:='<attribute7>';
295     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
296     l_text:=l_text||'</attribute7>';
297     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
298     l_text:='<attribute8>';
299     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
300     l_text:=l_text||'</attribute8>';
301     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
302     l_text:='<attribute9>';
303     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
304     l_text:=l_text||'</attribute9>';
305     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
306     l_text:='<attribute10>';
307     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
308     l_text:=l_text||'</attribute10>';
309     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
310     l_text:='<attribute11>';
311     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
312     l_text:=l_text||'</attribute11>';
313     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
314     l_text:='<attribute12>';
315     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
316     l_text:=l_text||'</attribute12>';
317     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
318     l_text:='<attribute13>';
319     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
320     l_text:=l_text||'</attribute13>';
321     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
322     l_text:='<attribute14>';
323     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
324     l_text:=l_text||'</attribute14>';
325     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
326     l_text:='<attribute15>';
327     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
328     l_text:=l_text||'</attribute15>';
329     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
330     l_text:='<attribute16>';
331     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
332     l_text:=l_text||'</attribute16>';
333     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
334     l_text:='<attribute17>';
335     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
336     l_text:=l_text||'</attribute17>';
337     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
338     l_text:='<attribute18>';
339     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
340     l_text:=l_text||'</attribute18>';
341     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
342     l_text:='<attribute19>';
343     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
344     l_text:=l_text||'</attribute19>';
345     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
346     l_text:='<attribute20>';
347     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
348     l_text:=l_text||'</attribute20>';
349     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
350     l_text:='<attribute21>';
351     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute21);
352     l_text:=l_text||'</attribute21>';
353     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
354     l_text:='<attribute22>';
355     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute22);
356     l_text:=l_text||'</attribute22>';
357     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
358     l_text:='<attribute23>';
359     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute23);
360     l_text:=l_text||'</attribute23>';
361     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
362     l_text:='<attribute24>';
363     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute24);
364     l_text:=l_text||'</attribute24>';
365     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
366     l_text:='<attribute25>';
367     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute25);
368     l_text:=l_text||'</attribute25>';
369     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
370     l_text:='<attribute26>';
371     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute26);
372     l_text:=l_text||'</attribute26>';
373     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
374     l_text:='<attribute27>';
375     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute27);
376     l_text:=l_text||'</attribute27>';
377     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
378     l_text:='<attribute28>';
379     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute28);
380     l_text:=l_text||'</attribute28>';
381     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
382     l_text:='<attribute29>';
383     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute29);
384     l_text:=l_text||'</attribute29>';
385     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
386     l_text:='<attribute30>';
387     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute30);
388     l_text:=l_text||'</attribute30>';
389     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
390     l_text:='<per_information_category>';
391     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information_category);
392     l_text:=l_text||'</per_information_category>';
393     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
394     l_text:='<per_information1>';
395     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information1);
396     l_text:=l_text||'</per_information1>';
397     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
398     l_text:='<per_information2>';
399     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information2);
400     l_text:=l_text||'</per_information2>';
401     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
402     l_text:='<per_information3>';
403     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information3);
404     l_text:=l_text||'</per_information3>';
405     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
406     l_text:='<per_information4>';
407     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information4);
408     l_text:=l_text||'</per_information4>';
409     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
410     l_text:='<per_information5>';
411     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information5);
412     l_text:=l_text||'</per_information5>';
413     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
414     l_text:='<per_information6>';
415     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information6);
416     l_text:=l_text||'</per_information6>';
417     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
418     l_text:='<per_information7>';
419     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information7);
420     l_text:=l_text||'</per_information7>';
421     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
422     l_text:='<per_information8>';
423     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information8);
424     l_text:=l_text||'</per_information8>';
425     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
426     l_text:='<per_information9>';
427     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information9);
428     l_text:=l_text||'</per_information9>';
429     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
430     l_text:='<per_information10>';
431     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information10);
432     l_text:=l_text||'</per_information10>';
433     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
434     l_text:='<per_information11>';
435     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information11);
436     l_text:=l_text||'</per_information11>';
437     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
438     l_text:='<per_information12>';
439     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information12);
440     l_text:=l_text||'</per_information12>';
441     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
442     l_text:='<per_information13>';
443     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information13);
444     l_text:=l_text||'</per_information13>';
445     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
446     l_text:='<per_information14>';
447     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information14);
448     l_text:=l_text||'</per_information14>';
449     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
450     l_text:='<per_information15>';
451     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information15);
452     l_text:=l_text||'</per_information15>';
453     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
454     l_text:='<per_information16>';
455     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information16);
456     l_text:=l_text||'</per_information16>';
457     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
458     l_text:='<per_information17>';
459     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information17);
460     l_text:=l_text||'</per_information17>';
461     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
462     l_text:='<per_information18>';
463     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information18);
464     l_text:=l_text||'</per_information18>';
465     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
466     l_text:='<per_information19>';
467     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information19);
468     l_text:=l_text||'</per_information19>';
469     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
470     l_text:='<per_information20>';
471     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information20);
472     l_text:=l_text||'</per_information20>';
473     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
474     l_text:='<per_information21>';
475     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information21);
476     l_text:=l_text||'</per_information21>';
477     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
478     l_text:='<per_information22>';
479     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information22);
480     l_text:=l_text||'</per_information22>';
481     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
482     l_text:='<per_information23>';
483     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information23);
484     l_text:=l_text||'</per_information23>';
485     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
486     l_text:='<per_information24>';
487     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information24);
488     l_text:=l_text||'</per_information24>';
489     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
490     l_text:='<per_information25>';
491     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information25);
492     l_text:=l_text||'</per_information25>';
493     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
494     l_text:='<per_information26>';
495     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information26);
496     l_text:=l_text||'</per_information26>';
497     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
498     l_text:='<per_information27>';
499     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information27);
500     l_text:=l_text||'</per_information27>';
501     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
502     l_text:='<per_information28>';
503     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information28);
504     l_text:=l_text||'</per_information28>';
505     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
506     l_text:='<per_information29>';
507     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information29);
508     l_text:=l_text||'</per_information29>';
509     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
510     l_text:='<per_information30>';
511     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information30);
512     l_text:=l_text||'</per_information30>';
513     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
514     l_text:='<date_of_death>';
515     l_text:=l_text||fnd_date.date_to_canonical(p_date_of_death);
516     l_text:=l_text||'</date_of_death>';
517     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
518     l_text:='<background_check_status>';
519     l_text:=l_text||irc_utilities_pkg.removeTags(p_background_check_status);
520     l_text:=l_text||'</background_check_status>';
521     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
522     l_text:='<background_date_check>';
523     l_text:=l_text||fnd_date.date_to_canonical(p_background_date_check);
524     l_text:=l_text||'</background_date_check>';
525     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
526     l_text:='<blood_type>';
527     l_text:=l_text||irc_utilities_pkg.removeTags(p_blood_type);
528     l_text:=l_text||'</blood_type>';
529     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
530     l_text:='<correspondence_language>';
531     l_text:=l_text||irc_utilities_pkg.removeTags(p_correspondence_language);
532     l_text:=l_text||'</correspondence_language>';
533     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
534     l_text:='<fast_path_employee>';
535     l_text:=l_text||irc_utilities_pkg.removeTags(p_fast_path_employee);
536     l_text:=l_text||'</fast_path_employee>';
537     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
538     l_text:='<fte_capacity>';
539     l_text:=l_text||fnd_number.number_to_canonical(p_fte_capacity);
540     l_text:=l_text||'</fte_capacity>';
541     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
542     l_text:='<honors>';
543     l_text:=l_text||irc_utilities_pkg.removeTags(p_honors);
544     l_text:=l_text||'</honors>';
545     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
546     l_text:='<internal_location>';
547     l_text:=l_text||irc_utilities_pkg.removeTags(p_internal_location);
548     l_text:=l_text||'</internal_location>';
549     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
550     l_text:='<last_medical_test_by>';
551     l_text:=l_text||irc_utilities_pkg.removeTags(p_last_medical_test_by);
552     l_text:=l_text||'</last_medical_test_by>';
553     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
554     l_text:='<last_medical_test_date>';
555     l_text:=l_text||fnd_date.date_to_canonical(p_last_medical_test_date);
556     l_text:=l_text||'</last_medical_test_date>';
557     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
558     l_text:='<mailstop>';
559     l_text:=l_text||irc_utilities_pkg.removeTags(p_mailstop);
560     l_text:=l_text||'</mailstop>';
561     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
562     l_text:='<office_number>';
563     l_text:=l_text||irc_utilities_pkg.removeTags(p_office_number);
564     l_text:=l_text||'</office_number>';
565     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
566     l_text:='<on_military_service>';
567     l_text:=l_text||irc_utilities_pkg.removeTags(p_on_military_service);
568     l_text:=l_text||'</on_military_service>';
569     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
570     l_text:='<pre_name_adjunct>';
571     l_text:=l_text||irc_utilities_pkg.removeTags(p_pre_name_adjunct);
572     l_text:=l_text||'</pre_name_adjunct>';
573     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
574     l_text:='<rehire_recommendation>';
575     l_text:=l_text||irc_utilities_pkg.removeTags(p_rehire_recommendation);
576     l_text:=l_text||'</rehire_recommendation>';
577     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
578     l_text:='<projected_start_date>';
579     l_text:=l_text||fnd_date.date_to_canonical(p_projected_start_date);
580     l_text:=l_text||'</projected_start_date>';
581     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
582     l_text:='<resume_exists>';
583     l_text:=l_text||irc_utilities_pkg.removeTags(p_resume_exists);
584     l_text:=l_text||'</resume_exists>';
585     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
586     l_text:='<resume_last_updated>';
587     l_text:=l_text||fnd_date.date_to_canonical(p_resume_last_updated);
588     l_text:=l_text||'</resume_last_updated>';
589     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
590     l_text:='<second_passport_exists>';
591     l_text:=l_text||irc_utilities_pkg.removeTags(p_second_passport_exists);
592     l_text:=l_text||'</second_passport_exists>';
593     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
594     l_text:='<student_status>';
595     l_text:=l_text||irc_utilities_pkg.removeTags(p_student_status);
596     l_text:=l_text||'</student_status>';
597     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
598     l_text:='<work_schedule>';
599     l_text:=l_text||irc_utilities_pkg.removeTags(p_work_schedule);
600     l_text:=l_text||'</work_schedule>';
601     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
602     l_text:='<suffix>';
603     l_text:=l_text||irc_utilities_pkg.removeTags(p_suffix);
604     l_text:=l_text||'</suffix>';
605     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
606     l_text:='<benefit_group_id>';
607     l_text:=l_text||fnd_number.number_to_canonical(p_benefit_group_id);
608     l_text:=l_text||'</benefit_group_id>';
609     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
610     l_text:='<receipt_of_death_cert_date>';
611     l_text:=l_text||fnd_date.date_to_canonical(p_receipt_of_death_cert_date);
612     l_text:=l_text||'</receipt_of_death_cert_date>';
613     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
614     l_text:='<coord_ben_med_pln_no>';
615     l_text:=l_text||irc_utilities_pkg.removeTags(p_coord_ben_med_pln_no);
616     l_text:=l_text||'</coord_ben_med_pln_no>';
617     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
618     l_text:='<coord_ben_no_cvg_flag>';
619     l_text:=l_text||irc_utilities_pkg.removeTags(p_coord_ben_no_cvg_flag);
620     l_text:=l_text||'</coord_ben_no_cvg_flag>';
621     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
622     l_text:='<coord_ben_med_ext_er>';
623     l_text:=l_text||irc_utilities_pkg.removeTags(p_coord_ben_med_ext_er);
624     l_text:=l_text||'</coord_ben_med_ext_er>';
625     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
626     l_text:='<coord_ben_med_pl_name>';
627     l_text:=l_text||irc_utilities_pkg.removeTags(p_coord_ben_med_pl_name);
628     l_text:=l_text||'</coord_ben_med_pl_name>';
629     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
630     l_text:='<coord_ben_med_insr_crr_name>';
631     l_text:=l_text||irc_utilities_pkg.removeTags(p_coord_ben_med_insr_crr_name);
632     l_text:=l_text||'</coord_ben_med_insr_crr_name>';
633     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
634     l_text:='<coord_ben_med_insr_crr_ident>';
635     l_text:=l_text||irc_utilities_pkg.removeTags(p_coord_ben_med_insr_crr_ident);
636     l_text:=l_text||'</coord_ben_med_insr_crr_ident>';
637     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
638     l_text:='<coord_ben_med_cvg_strt_dt>';
639     l_text:=l_text||fnd_date.date_to_canonical(p_coord_ben_med_cvg_strt_dt);
640     l_text:=l_text||'</coord_ben_med_cvg_strt_dt>';
641     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
642     l_text:='<coord_ben_med_cvg_end_dt>';
643     l_text:=l_text||fnd_date.date_to_canonical(p_coord_ben_med_cvg_end_dt);
644     l_text:=l_text||'</coord_ben_med_cvg_end_dt>';
645     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
646     l_text:='<uses_tobacco_flag>';
647     l_text:=l_text||irc_utilities_pkg.removeTags(p_uses_tobacco_flag);
648     l_text:=l_text||'</uses_tobacco_flag>';
649     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
650     l_text:='<dpdnt_adoption_date>';
651     l_text:=l_text||fnd_date.date_to_canonical(p_dpdnt_adoption_date);
652     l_text:=l_text||'</dpdnt_adoption_date>';
653     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
654     l_text:='<dpdnt_vlntry_svce_flag>';
655     l_text:=l_text||irc_utilities_pkg.removeTags(p_dpdnt_vlntry_svce_flag);
656     l_text:=l_text||'</dpdnt_vlntry_svce_flag>';
657     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
658     l_text:='<original_date_of_hire>';
659     l_text:=l_text||fnd_date.date_to_canonical(p_original_date_of_hire);
660     l_text:=l_text||'</original_date_of_hire>';
661     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
662     l_text:='<adjusted_svc_date>';
663     l_text:=l_text||fnd_date.date_to_canonical(p_adjusted_svc_date);
664     l_text:=l_text||'</adjusted_svc_date>';
665     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
666     l_text:='<person_id>';
667     l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
668     l_text:=l_text||'</person_id>';
669     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
670     l_text:='<assignment_id>';
671     l_text:=l_text||fnd_number.number_to_canonical(p_assignment_id);
672     l_text:=l_text||'</assignment_id>';
673     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
674     l_text:='<per_object_version_number>';
675     l_text:=l_text||fnd_number.number_to_canonical(p_per_object_version_number);
676     l_text:=l_text||'</per_object_version_number>';
677     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
678     l_text:='<asg_object_version_number>';
679     l_text:=l_text||fnd_number.number_to_canonical(p_asg_object_version_number);
680     l_text:=l_text||'</asg_object_version_number>';
681     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
682     l_text:='<per_effective_start_date>';
683     l_text:=l_text||fnd_date.date_to_canonical(p_per_effective_start_date);
684     l_text:=l_text||'</per_effective_start_date>';
685     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
686     l_text:='<per_effective_end_date>';
687     l_text:=l_text||fnd_date.date_to_canonical(p_per_effective_end_date);
688     l_text:=l_text||'</per_effective_end_date>';
689     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
690     l_text:='<full_name>';
691     l_text:=l_text||irc_utilities_pkg.removeTags(p_full_name);
692     l_text:=l_text||'</full_name>';
693     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
694     l_text:='<per_comment_id>';
695     l_text:=l_text||fnd_number.number_to_canonical(p_per_comment_id);
696     l_text:=l_text||'</per_comment_id>';
697     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
698     l_text:='<assignment_sequence>';
699     l_text:=l_text||fnd_number.number_to_canonical(p_assignment_sequence);
700     l_text:=l_text||'</assignment_sequence>';
701     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
702     l_text:='<assignment_number>';
703     l_text:=l_text||irc_utilities_pkg.removeTags(p_assignment_number);
704     l_text:=l_text||'</assignment_number>';
705     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
706     l_text:='<town_of_birth>';
707     l_text:=l_text||irc_utilities_pkg.removeTags(p_town_of_birth);
708     l_text:=l_text||'</town_of_birth>';
709     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
710     l_text:='<region_of_birth>';
711     l_text:=l_text||irc_utilities_pkg.removeTags(p_region_of_birth);
712     l_text:=l_text||'</region_of_birth>';
713     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
714     l_text:='<country_of_birth>';
715     l_text:=l_text||irc_utilities_pkg.removeTags(p_country_of_birth);
716     l_text:=l_text||'</country_of_birth>';
717     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
718     l_text:='<global_person_id>';
719     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_person_id);
720     l_text:=l_text||'</global_person_id>';
721     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
722     l_text:='<party_id>';
723     l_text:=l_text||fnd_number.number_to_canonical(p_party_id);
724     l_text:=l_text||'</party_id>';
725     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
726     l_text:='<name_combination_warning>';
727 if(P_NAME_COMBINATION_WARNING) then
728 l_text:=l_text||'TRUE';
729 else
730 l_text:=l_text||'FALSE';
731 end if;
732     l_text:=l_text||'</name_combination_warning>';
733     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
734     l_text:='<assign_payroll_warning>';
735 if(P_ASSIGN_PAYROLL_WARNING) then
736 l_text:=l_text||'TRUE';
737 else
738 l_text:=l_text||'FALSE';
739 end if;
740     l_text:=l_text||'</assign_payroll_warning>';
741     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
742     l_text:='<orig_hire_warning>';
743 if(P_ORIG_HIRE_WARNING) then
744 l_text:=l_text||'TRUE';
745 else
746 l_text:=l_text||'FALSE';
747 end if;
748     l_text:=l_text||'</orig_hire_warning>';
749     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
750     l_text:='</employee>';
751     --
752     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
753     --
754     if p_per_effective_start_date is not NULL and
755        p_per_effective_start_date > trunc(SYSDATE) and
756         fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then 
757        -- raise the event with the event data, with send date set to effective date
758        wf_event.raise(p_event_name=>l_event_name
759                      ,p_event_key=>l_event_key
760                      ,p_event_data=>l_event_data
761                      ,p_send_date => p_per_effective_start_date);
762         --
763     else 
764        -- raise the event with the event data
765        wf_event.raise(p_event_name=>l_event_name
766                      ,p_event_key=>l_event_key
767                      ,p_event_data=>l_event_data);
768     end if;
769   elsif (l_message='KEY') then
770     hr_utility.set_location(l_proc,30);
771     -- get a key for the event
772     open get_seq;
773     fetch get_seq into l_event_key;
774     close get_seq;
775     if p_per_effective_start_date is not NULL and
776        p_per_effective_start_date > trunc(SYSDATE) and
777         fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then 
778        -- this is a key event, so just raise the event
779        -- without the event data, with send date set to effective date
780        wf_event.raise(p_event_name=>l_event_name
781                      ,p_event_key=>l_event_key
782                      ,p_send_date => p_per_effective_start_date);
783        --
784     else
785        -- this is a key event, so just raise the event
786        -- without the event data
787        wf_event.raise(p_event_name=>l_event_name
788                      ,p_event_key=>l_event_key);
789     end if;
790   elsif (l_message='NONE') then
791     hr_utility.set_location(l_proc,40);
792     -- no event is required, so do nothing
793     null;
794   end if;
795     hr_utility.set_location('Leaving: '||l_proc,50);
796 end create_employee_a;
797 end hr_employee_be1;