DBA Data[Home] [Help]

PACKAGE BODY: APPS.HR_PERSON_BE1

Source


1 package body hr_person_be1 as 
2 --Code generated on 27/11/2012 03:58:34
3 /* $Header: hrapiwfe.pkb 120.11 2011/12/24 13:28:35 vboggava ship $*/
4 procedure update_person_a (
5 p_effective_date               date,
6 p_datetrack_update_mode        varchar2,
7 p_person_id                    number,
8 p_object_version_number        number,
9 p_person_type_id               number,
10 p_last_name                    varchar2,
11 p_applicant_number             varchar2,
12 p_comments                     varchar2,
13 p_date_employee_data_verified  date,
14 p_date_of_birth                date,
15 p_email_address                varchar2,
16 p_employee_number              varchar2,
17 p_expense_check_send_to_addres varchar2,
18 p_first_name                   varchar2,
19 p_known_as                     varchar2,
20 p_marital_status               varchar2,
21 p_middle_names                 varchar2,
22 p_nationality                  varchar2,
23 p_national_identifier          varchar2,
24 p_previous_last_name           varchar2,
25 p_registered_disabled_flag     varchar2,
26 p_sex                          varchar2,
27 p_title                        varchar2,
28 p_vendor_id                    number,
29 p_attribute_category           varchar2,
30 p_attribute1                   varchar2,
31 p_attribute2                   varchar2,
32 p_attribute3                   varchar2,
33 p_attribute4                   varchar2,
34 p_attribute5                   varchar2,
35 p_attribute6                   varchar2,
36 p_attribute7                   varchar2,
37 p_attribute8                   varchar2,
38 p_attribute9                   varchar2,
39 p_attribute10                  varchar2,
40 p_attribute11                  varchar2,
41 p_attribute12                  varchar2,
42 p_attribute13                  varchar2,
43 p_attribute14                  varchar2,
44 p_attribute15                  varchar2,
45 p_attribute16                  varchar2,
46 p_attribute17                  varchar2,
47 p_attribute18                  varchar2,
48 p_attribute19                  varchar2,
49 p_attribute20                  varchar2,
50 p_attribute21                  varchar2,
51 p_attribute22                  varchar2,
52 p_attribute23                  varchar2,
53 p_attribute24                  varchar2,
54 p_attribute25                  varchar2,
55 p_attribute26                  varchar2,
56 p_attribute27                  varchar2,
57 p_attribute28                  varchar2,
58 p_attribute29                  varchar2,
59 p_attribute30                  varchar2,
60 p_per_information_category     varchar2,
61 p_per_information1             varchar2,
62 p_per_information2             varchar2,
63 p_per_information3             varchar2,
64 p_per_information4             varchar2,
65 p_per_information5             varchar2,
66 p_per_information6             varchar2,
67 p_per_information7             varchar2,
68 p_per_information8             varchar2,
69 p_per_information9             varchar2,
70 p_per_information10            varchar2,
71 p_per_information11            varchar2,
72 p_per_information12            varchar2,
73 p_per_information13            varchar2,
74 p_per_information14            varchar2,
75 p_per_information15            varchar2,
76 p_per_information16            varchar2,
77 p_per_information17            varchar2,
78 p_per_information18            varchar2,
79 p_per_information19            varchar2,
80 p_per_information20            varchar2,
81 p_per_information21            varchar2,
82 p_per_information22            varchar2,
83 p_per_information23            varchar2,
84 p_per_information24            varchar2,
85 p_per_information25            varchar2,
86 p_per_information26            varchar2,
87 p_per_information27            varchar2,
88 p_per_information28            varchar2,
89 p_per_information29            varchar2,
90 p_per_information30            varchar2,
91 p_date_of_death                date,
92 p_background_check_status      varchar2,
93 p_background_date_check        date,
94 p_blood_type                   varchar2,
95 p_correspondence_language      varchar2,
96 p_fast_path_employee           varchar2,
97 p_fte_capacity                 number,
98 p_hold_applicant_date_until    date,
99 p_honors                       varchar2,
100 p_internal_location            varchar2,
101 p_last_medical_test_by         varchar2,
102 p_last_medical_test_date       date,
103 p_mailstop                     varchar2,
104 p_office_number                varchar2,
105 p_on_military_service          varchar2,
106 p_pre_name_adjunct             varchar2,
107 p_projected_start_date         date,
108 p_rehire_authorizor            varchar2,
109 p_rehire_recommendation        varchar2,
110 p_resume_exists                varchar2,
111 p_resume_last_updated          date,
112 p_second_passport_exists       varchar2,
113 p_student_status               varchar2,
114 p_work_schedule                varchar2,
115 p_rehire_reason                varchar2,
116 p_suffix                       varchar2,
117 p_benefit_group_id             number,
118 p_receipt_of_death_cert_date   date,
119 p_coord_ben_med_pln_no         varchar2,
120 p_coord_ben_no_cvg_flag        varchar2,
121 p_coord_ben_med_ext_er         varchar2,
122 p_coord_ben_med_pl_name        varchar2,
123 p_coord_ben_med_insr_crr_name  varchar2,
124 p_coord_ben_med_insr_crr_ident varchar2,
125 p_coord_ben_med_cvg_strt_dt    date,
126 p_coord_ben_med_cvg_end_dt     date,
127 p_uses_tobacco_flag            varchar2,
128 p_dpdnt_adoption_date          date,
129 p_dpdnt_vlntry_svce_flag       varchar2,
130 p_original_date_of_hire        date,
131 p_adjusted_svc_date            date,
132 p_effective_start_date         date,
133 p_effective_end_date           date,
134 p_full_name                    varchar2,
135 p_comment_id                   number,
136 p_town_of_birth                varchar2,
137 p_region_of_birth              varchar2,
138 p_country_of_birth             varchar2,
139 p_global_person_id             varchar2,
140 p_party_id                     number,
141 p_npw_number                   varchar2,
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_person_be1.update_person_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.person.update_person';
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:='<person>';
176     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
177     --
178     l_text:='<effective_date>';
179     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
180     l_text:=l_text||'</effective_date>';
181     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
182     l_text:='<datetrack_update_mode>';
183     l_text:=l_text||irc_utilities_pkg.removeTags(p_datetrack_update_mode);
184     l_text:=l_text||'</datetrack_update_mode>';
185     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
186     l_text:='<person_id>';
187     l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
188     l_text:=l_text||'</person_id>';
189     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
190     l_text:='<object_version_number>';
191     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
192     l_text:=l_text||'</object_version_number>';
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:='<last_name>';
199     l_text:=l_text||irc_utilities_pkg.removeTags(p_last_name);
200     l_text:=l_text||'</last_name>';
201     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
202     l_text:='<applicant_number>';
203     l_text:=l_text||irc_utilities_pkg.removeTags(p_applicant_number);
204     l_text:=l_text||'</applicant_number>';
205     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
206     l_text:='<comments>';
207     l_text:=l_text||irc_utilities_pkg.removeTags(p_comments);
208     l_text:=l_text||'</comments>';
209     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
210     l_text:='<date_employee_data_verified>';
211     l_text:=l_text||fnd_date.date_to_canonical(p_date_employee_data_verified);
212     l_text:=l_text||'</date_employee_data_verified>';
213     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
214     l_text:='<date_of_birth>';
215     l_text:=l_text||fnd_date.date_to_canonical(p_date_of_birth);
216     l_text:=l_text||'</date_of_birth>';
217     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
218     l_text:='<email_address>';
219     l_text:=l_text||irc_utilities_pkg.removeTags(p_email_address);
220     l_text:=l_text||'</email_address>';
221     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
222     l_text:='<employee_number>';
223     l_text:=l_text||irc_utilities_pkg.removeTags(p_employee_number);
224     l_text:=l_text||'</employee_number>';
225     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
226     l_text:='<expense_check_send_to_addres>';
227     l_text:=l_text||irc_utilities_pkg.removeTags(p_expense_check_send_to_addres);
228     l_text:=l_text||'</expense_check_send_to_addres>';
229     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
230     l_text:='<first_name>';
231     l_text:=l_text||irc_utilities_pkg.removeTags(p_first_name);
232     l_text:=l_text||'</first_name>';
233     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
234     l_text:='<known_as>';
235     l_text:=l_text||irc_utilities_pkg.removeTags(p_known_as);
236     l_text:=l_text||'</known_as>';
237     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
238     l_text:='<marital_status>';
239     l_text:=l_text||irc_utilities_pkg.removeTags(p_marital_status);
240     l_text:=l_text||'</marital_status>';
241     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
242     l_text:='<middle_names>';
243     l_text:=l_text||irc_utilities_pkg.removeTags(p_middle_names);
244     l_text:=l_text||'</middle_names>';
245     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
246     l_text:='<nationality>';
247     l_text:=l_text||irc_utilities_pkg.removeTags(p_nationality);
248     l_text:=l_text||'</nationality>';
249     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
250     l_text:='<national_identifier>';
251     l_text:=l_text||irc_utilities_pkg.removeTags(p_national_identifier);
252     l_text:=l_text||'</national_identifier>';
253     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
254     l_text:='<previous_last_name>';
255     l_text:=l_text||irc_utilities_pkg.removeTags(p_previous_last_name);
256     l_text:=l_text||'</previous_last_name>';
257     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
258     l_text:='<registered_disabled_flag>';
259     l_text:=l_text||irc_utilities_pkg.removeTags(p_registered_disabled_flag);
260     l_text:=l_text||'</registered_disabled_flag>';
261     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
262     l_text:='<sex>';
263     l_text:=l_text||irc_utilities_pkg.removeTags(p_sex);
264     l_text:=l_text||'</sex>';
265     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
266     l_text:='<title>';
267     l_text:=l_text||irc_utilities_pkg.removeTags(p_title);
268     l_text:=l_text||'</title>';
269     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
270     l_text:='<vendor_id>';
271     l_text:=l_text||fnd_number.number_to_canonical(p_vendor_id);
272     l_text:=l_text||'</vendor_id>';
273     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
274     l_text:='<attribute_category>';
275     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
276     l_text:=l_text||'</attribute_category>';
277     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
278     l_text:='<attribute1>';
279     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
280     l_text:=l_text||'</attribute1>';
281     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
282     l_text:='<attribute2>';
283     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
284     l_text:=l_text||'</attribute2>';
285     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
286     l_text:='<attribute3>';
287     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
288     l_text:=l_text||'</attribute3>';
289     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
290     l_text:='<attribute4>';
291     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
292     l_text:=l_text||'</attribute4>';
293     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
294     l_text:='<attribute5>';
295     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
296     l_text:=l_text||'</attribute5>';
297     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
298     l_text:='<attribute6>';
299     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
300     l_text:=l_text||'</attribute6>';
301     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
302     l_text:='<attribute7>';
303     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
304     l_text:=l_text||'</attribute7>';
308     l_text:=l_text||'</attribute8>';
305     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
306     l_text:='<attribute8>';
307     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
309     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
310     l_text:='<attribute9>';
311     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
312     l_text:=l_text||'</attribute9>';
313     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
314     l_text:='<attribute10>';
315     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
316     l_text:=l_text||'</attribute10>';
317     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
318     l_text:='<attribute11>';
319     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
320     l_text:=l_text||'</attribute11>';
321     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
322     l_text:='<attribute12>';
323     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
324     l_text:=l_text||'</attribute12>';
325     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
326     l_text:='<attribute13>';
327     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
328     l_text:=l_text||'</attribute13>';
329     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
330     l_text:='<attribute14>';
331     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
332     l_text:=l_text||'</attribute14>';
333     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
334     l_text:='<attribute15>';
335     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
336     l_text:=l_text||'</attribute15>';
337     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
338     l_text:='<attribute16>';
339     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
340     l_text:=l_text||'</attribute16>';
341     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
342     l_text:='<attribute17>';
343     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
344     l_text:=l_text||'</attribute17>';
345     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
346     l_text:='<attribute18>';
347     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
348     l_text:=l_text||'</attribute18>';
349     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
350     l_text:='<attribute19>';
351     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
352     l_text:=l_text||'</attribute19>';
353     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
354     l_text:='<attribute20>';
355     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
356     l_text:=l_text||'</attribute20>';
357     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
358     l_text:='<attribute21>';
359     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute21);
360     l_text:=l_text||'</attribute21>';
361     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
362     l_text:='<attribute22>';
363     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute22);
364     l_text:=l_text||'</attribute22>';
365     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
366     l_text:='<attribute23>';
367     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute23);
368     l_text:=l_text||'</attribute23>';
369     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
370     l_text:='<attribute24>';
371     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute24);
372     l_text:=l_text||'</attribute24>';
373     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
374     l_text:='<attribute25>';
375     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute25);
376     l_text:=l_text||'</attribute25>';
377     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
378     l_text:='<attribute26>';
379     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute26);
380     l_text:=l_text||'</attribute26>';
381     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
382     l_text:='<attribute27>';
383     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute27);
384     l_text:=l_text||'</attribute27>';
385     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
386     l_text:='<attribute28>';
387     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute28);
388     l_text:=l_text||'</attribute28>';
389     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
390     l_text:='<attribute29>';
391     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute29);
392     l_text:=l_text||'</attribute29>';
393     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
394     l_text:='<attribute30>';
395     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute30);
396     l_text:=l_text||'</attribute30>';
397     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
398     l_text:='<per_information_category>';
399     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information_category);
400     l_text:=l_text||'</per_information_category>';
401     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
402     l_text:='<per_information1>';
403     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information1);
404     l_text:=l_text||'</per_information1>';
405     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
406     l_text:='<per_information2>';
407     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information2);
408     l_text:=l_text||'</per_information2>';
409     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
410     l_text:='<per_information3>';
411     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information3);
412     l_text:=l_text||'</per_information3>';
413     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
414     l_text:='<per_information4>';
415     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information4);
416     l_text:=l_text||'</per_information4>';
417     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
421     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
418     l_text:='<per_information5>';
419     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information5);
420     l_text:=l_text||'</per_information5>';
422     l_text:='<per_information6>';
423     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information6);
424     l_text:=l_text||'</per_information6>';
425     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
426     l_text:='<per_information7>';
427     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information7);
428     l_text:=l_text||'</per_information7>';
429     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
430     l_text:='<per_information8>';
431     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information8);
432     l_text:=l_text||'</per_information8>';
433     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
434     l_text:='<per_information9>';
435     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information9);
436     l_text:=l_text||'</per_information9>';
437     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
438     l_text:='<per_information10>';
439     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information10);
440     l_text:=l_text||'</per_information10>';
441     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
442     l_text:='<per_information11>';
443     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information11);
444     l_text:=l_text||'</per_information11>';
445     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
446     l_text:='<per_information12>';
447     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information12);
448     l_text:=l_text||'</per_information12>';
449     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
450     l_text:='<per_information13>';
451     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information13);
452     l_text:=l_text||'</per_information13>';
453     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
454     l_text:='<per_information14>';
455     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information14);
456     l_text:=l_text||'</per_information14>';
457     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
458     l_text:='<per_information15>';
459     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information15);
460     l_text:=l_text||'</per_information15>';
461     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
462     l_text:='<per_information16>';
463     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information16);
464     l_text:=l_text||'</per_information16>';
465     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
466     l_text:='<per_information17>';
467     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information17);
468     l_text:=l_text||'</per_information17>';
469     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
470     l_text:='<per_information18>';
471     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information18);
472     l_text:=l_text||'</per_information18>';
473     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
474     l_text:='<per_information19>';
475     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information19);
476     l_text:=l_text||'</per_information19>';
477     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
478     l_text:='<per_information20>';
479     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information20);
480     l_text:=l_text||'</per_information20>';
481     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
482     l_text:='<per_information21>';
483     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information21);
484     l_text:=l_text||'</per_information21>';
485     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
486     l_text:='<per_information22>';
487     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information22);
488     l_text:=l_text||'</per_information22>';
489     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
490     l_text:='<per_information23>';
491     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information23);
492     l_text:=l_text||'</per_information23>';
493     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
494     l_text:='<per_information24>';
495     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information24);
496     l_text:=l_text||'</per_information24>';
497     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
498     l_text:='<per_information25>';
499     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information25);
500     l_text:=l_text||'</per_information25>';
501     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
502     l_text:='<per_information26>';
503     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information26);
504     l_text:=l_text||'</per_information26>';
505     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
506     l_text:='<per_information27>';
507     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information27);
508     l_text:=l_text||'</per_information27>';
509     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
510     l_text:='<per_information28>';
511     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information28);
512     l_text:=l_text||'</per_information28>';
513     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
514     l_text:='<per_information29>';
515     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information29);
516     l_text:=l_text||'</per_information29>';
517     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
518     l_text:='<per_information30>';
519     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information30);
520     l_text:=l_text||'</per_information30>';
521     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
522     l_text:='<date_of_death>';
523     l_text:=l_text||fnd_date.date_to_canonical(p_date_of_death);
524     l_text:=l_text||'</date_of_death>';
528     l_text:=l_text||'</background_check_status>';
525     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
526     l_text:='<background_check_status>';
527     l_text:=l_text||irc_utilities_pkg.removeTags(p_background_check_status);
529     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
530     l_text:='<background_date_check>';
531     l_text:=l_text||fnd_date.date_to_canonical(p_background_date_check);
532     l_text:=l_text||'</background_date_check>';
533     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
534     l_text:='<blood_type>';
535     l_text:=l_text||irc_utilities_pkg.removeTags(p_blood_type);
536     l_text:=l_text||'</blood_type>';
537     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
538     l_text:='<correspondence_language>';
539     l_text:=l_text||irc_utilities_pkg.removeTags(p_correspondence_language);
540     l_text:=l_text||'</correspondence_language>';
541     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
542     l_text:='<fast_path_employee>';
543     l_text:=l_text||irc_utilities_pkg.removeTags(p_fast_path_employee);
544     l_text:=l_text||'</fast_path_employee>';
545     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
546     l_text:='<fte_capacity>';
547     l_text:=l_text||fnd_number.number_to_canonical(p_fte_capacity);
548     l_text:=l_text||'</fte_capacity>';
549     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
550     l_text:='<hold_applicant_date_until>';
551     l_text:=l_text||fnd_date.date_to_canonical(p_hold_applicant_date_until);
552     l_text:=l_text||'</hold_applicant_date_until>';
553     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
554     l_text:='<honors>';
555     l_text:=l_text||irc_utilities_pkg.removeTags(p_honors);
556     l_text:=l_text||'</honors>';
557     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
558     l_text:='<internal_location>';
559     l_text:=l_text||irc_utilities_pkg.removeTags(p_internal_location);
560     l_text:=l_text||'</internal_location>';
561     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
562     l_text:='<last_medical_test_by>';
563     l_text:=l_text||irc_utilities_pkg.removeTags(p_last_medical_test_by);
564     l_text:=l_text||'</last_medical_test_by>';
565     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
566     l_text:='<last_medical_test_date>';
567     l_text:=l_text||fnd_date.date_to_canonical(p_last_medical_test_date);
568     l_text:=l_text||'</last_medical_test_date>';
569     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
570     l_text:='<mailstop>';
571     l_text:=l_text||irc_utilities_pkg.removeTags(p_mailstop);
572     l_text:=l_text||'</mailstop>';
573     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
574     l_text:='<office_number>';
575     l_text:=l_text||irc_utilities_pkg.removeTags(p_office_number);
576     l_text:=l_text||'</office_number>';
577     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
578     l_text:='<on_military_service>';
579     l_text:=l_text||irc_utilities_pkg.removeTags(p_on_military_service);
580     l_text:=l_text||'</on_military_service>';
581     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
582     l_text:='<pre_name_adjunct>';
583     l_text:=l_text||irc_utilities_pkg.removeTags(p_pre_name_adjunct);
584     l_text:=l_text||'</pre_name_adjunct>';
585     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
586     l_text:='<projected_start_date>';
587     l_text:=l_text||fnd_date.date_to_canonical(p_projected_start_date);
588     l_text:=l_text||'</projected_start_date>';
589     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
590     l_text:='<rehire_authorizor>';
591     l_text:=l_text||irc_utilities_pkg.removeTags(p_rehire_authorizor);
592     l_text:=l_text||'</rehire_authorizor>';
593     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
594     l_text:='<rehire_recommendation>';
595     l_text:=l_text||irc_utilities_pkg.removeTags(p_rehire_recommendation);
596     l_text:=l_text||'</rehire_recommendation>';
597     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
598     l_text:='<resume_exists>';
599     l_text:=l_text||irc_utilities_pkg.removeTags(p_resume_exists);
600     l_text:=l_text||'</resume_exists>';
601     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
602     l_text:='<resume_last_updated>';
603     l_text:=l_text||fnd_date.date_to_canonical(p_resume_last_updated);
604     l_text:=l_text||'</resume_last_updated>';
605     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
606     l_text:='<second_passport_exists>';
607     l_text:=l_text||irc_utilities_pkg.removeTags(p_second_passport_exists);
608     l_text:=l_text||'</second_passport_exists>';
609     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
610     l_text:='<student_status>';
611     l_text:=l_text||irc_utilities_pkg.removeTags(p_student_status);
612     l_text:=l_text||'</student_status>';
613     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
614     l_text:='<work_schedule>';
615     l_text:=l_text||irc_utilities_pkg.removeTags(p_work_schedule);
616     l_text:=l_text||'</work_schedule>';
617     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
618     l_text:='<rehire_reason>';
619     l_text:=l_text||irc_utilities_pkg.removeTags(p_rehire_reason);
620     l_text:=l_text||'</rehire_reason>';
621     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
622     l_text:='<suffix>';
623     l_text:=l_text||irc_utilities_pkg.removeTags(p_suffix);
624     l_text:=l_text||'</suffix>';
625     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
626     l_text:='<benefit_group_id>';
627     l_text:=l_text||fnd_number.number_to_canonical(p_benefit_group_id);
628     l_text:=l_text||'</benefit_group_id>';
629     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
630     l_text:='<receipt_of_death_cert_date>';
631     l_text:=l_text||fnd_date.date_to_canonical(p_receipt_of_death_cert_date);
635     l_text:=l_text||irc_utilities_pkg.removeTags(p_coord_ben_med_pln_no);
632     l_text:=l_text||'</receipt_of_death_cert_date>';
633     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
634     l_text:='<coord_ben_med_pln_no>';
636     l_text:=l_text||'</coord_ben_med_pln_no>';
637     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
638     l_text:='<coord_ben_no_cvg_flag>';
639     l_text:=l_text||irc_utilities_pkg.removeTags(p_coord_ben_no_cvg_flag);
640     l_text:=l_text||'</coord_ben_no_cvg_flag>';
641     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
642     l_text:='<coord_ben_med_ext_er>';
643     l_text:=l_text||irc_utilities_pkg.removeTags(p_coord_ben_med_ext_er);
644     l_text:=l_text||'</coord_ben_med_ext_er>';
645     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
646     l_text:='<coord_ben_med_pl_name>';
647     l_text:=l_text||irc_utilities_pkg.removeTags(p_coord_ben_med_pl_name);
648     l_text:=l_text||'</coord_ben_med_pl_name>';
649     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
650     l_text:='<coord_ben_med_insr_crr_name>';
651     l_text:=l_text||irc_utilities_pkg.removeTags(p_coord_ben_med_insr_crr_name);
652     l_text:=l_text||'</coord_ben_med_insr_crr_name>';
653     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
654     l_text:='<coord_ben_med_insr_crr_ident>';
655     l_text:=l_text||irc_utilities_pkg.removeTags(p_coord_ben_med_insr_crr_ident);
656     l_text:=l_text||'</coord_ben_med_insr_crr_ident>';
657     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
658     l_text:='<coord_ben_med_cvg_strt_dt>';
659     l_text:=l_text||fnd_date.date_to_canonical(p_coord_ben_med_cvg_strt_dt);
660     l_text:=l_text||'</coord_ben_med_cvg_strt_dt>';
661     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
662     l_text:='<coord_ben_med_cvg_end_dt>';
663     l_text:=l_text||fnd_date.date_to_canonical(p_coord_ben_med_cvg_end_dt);
664     l_text:=l_text||'</coord_ben_med_cvg_end_dt>';
665     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
666     l_text:='<uses_tobacco_flag>';
667     l_text:=l_text||irc_utilities_pkg.removeTags(p_uses_tobacco_flag);
668     l_text:=l_text||'</uses_tobacco_flag>';
669     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
670     l_text:='<dpdnt_adoption_date>';
671     l_text:=l_text||fnd_date.date_to_canonical(p_dpdnt_adoption_date);
672     l_text:=l_text||'</dpdnt_adoption_date>';
673     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
674     l_text:='<dpdnt_vlntry_svce_flag>';
675     l_text:=l_text||irc_utilities_pkg.removeTags(p_dpdnt_vlntry_svce_flag);
676     l_text:=l_text||'</dpdnt_vlntry_svce_flag>';
677     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
678     l_text:='<original_date_of_hire>';
679     l_text:=l_text||fnd_date.date_to_canonical(p_original_date_of_hire);
680     l_text:=l_text||'</original_date_of_hire>';
681     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
682     l_text:='<adjusted_svc_date>';
683     l_text:=l_text||fnd_date.date_to_canonical(p_adjusted_svc_date);
684     l_text:=l_text||'</adjusted_svc_date>';
685     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
686     l_text:='<effective_start_date>';
687     l_text:=l_text||fnd_date.date_to_canonical(p_effective_start_date);
688     l_text:=l_text||'</effective_start_date>';
689     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
690     l_text:='<effective_end_date>';
691     l_text:=l_text||fnd_date.date_to_canonical(p_effective_end_date);
692     l_text:=l_text||'</effective_end_date>';
693     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
694     l_text:='<full_name>';
695     l_text:=l_text||irc_utilities_pkg.removeTags(p_full_name);
696     l_text:=l_text||'</full_name>';
697     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
698     l_text:='<comment_id>';
699     l_text:=l_text||fnd_number.number_to_canonical(p_comment_id);
700     l_text:=l_text||'</comment_id>';
701     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
702     l_text:='<town_of_birth>';
703     l_text:=l_text||irc_utilities_pkg.removeTags(p_town_of_birth);
704     l_text:=l_text||'</town_of_birth>';
705     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
706     l_text:='<region_of_birth>';
707     l_text:=l_text||irc_utilities_pkg.removeTags(p_region_of_birth);
708     l_text:=l_text||'</region_of_birth>';
709     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
710     l_text:='<country_of_birth>';
711     l_text:=l_text||irc_utilities_pkg.removeTags(p_country_of_birth);
712     l_text:=l_text||'</country_of_birth>';
713     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
714     l_text:='<global_person_id>';
715     l_text:=l_text||irc_utilities_pkg.removeTags(p_global_person_id);
716     l_text:=l_text||'</global_person_id>';
717     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
718     l_text:='<party_id>';
719     l_text:=l_text||fnd_number.number_to_canonical(p_party_id);
720     l_text:=l_text||'</party_id>';
721     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
722     l_text:='<npw_number>';
723     l_text:=l_text||irc_utilities_pkg.removeTags(p_npw_number);
724     l_text:=l_text||'</npw_number>';
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:='</person>';
751     --
752     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
753     --
754     if p_effective_start_date is not NULL and
755        p_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_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_effective_start_date is not NULL and
776        p_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_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 update_person_a;
797 end hr_person_be1;