[Home] [Help]
PACKAGE BODY: APPS.HR_PL_CONTACT_API
Source
1 Package Body hr_pl_contact_api as
2 /* $Header: peconpli.pkb 120.2 2005/09/22 03:57:56 mseshadr noship $ */
3 --
4 -- Package Variables
5 --
6 g_package CONSTANT varchar2(33) := 'hr_pl_contact_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-------------------------< create_pl_person > --------------------------|
10 -- ----------------------------------------------------------------------------
11
12 procedure create_pl_person
13 (p_validate in boolean default false
14 ,p_start_date in date
15 ,p_business_group_id in number
16 ,p_last_name in varchar2
17 ,p_sex in varchar2
18 ,p_person_type_id in number default null
19 ,p_comments in varchar2 default null
20 ,p_date_employee_data_verified in date default null
21 ,p_date_of_birth in date default null
22 ,p_email_address in varchar2 default null
23 ,p_expense_check_send_to_addres in varchar2 default null
24 ,p_first_name in varchar2 default null
25 ,p_known_as in varchar2 default null
26 ,p_marital_status in varchar2 default null
27 ,p_middle_names in varchar2 default null
28 ,p_nationality in varchar2 default null
29 ,p_inn in varchar2 default null
30 ,p_previous_last_name in varchar2 default null
31 ,p_registered_disabled_flag in varchar2 default null
32 ,p_title in varchar2 default null
33 ,p_vendor_id in number default null
34 ,p_work_telephone in varchar2 default null
35 ,p_attribute_category in varchar2 default null
36 ,p_attribute1 in varchar2 default null
37 ,p_attribute2 in varchar2 default null
38 ,p_attribute3 in varchar2 default null
39 ,p_attribute4 in varchar2 default null
40 ,p_attribute5 in varchar2 default null
41 ,p_attribute6 in varchar2 default null
42 ,p_attribute7 in varchar2 default null
43 ,p_attribute8 in varchar2 default null
44 ,p_attribute9 in varchar2 default null
45 ,p_attribute10 in varchar2 default null
46 ,p_attribute11 in varchar2 default null
47 ,p_attribute12 in varchar2 default null
48 ,p_attribute13 in varchar2 default null
49 ,p_attribute14 in varchar2 default null
50 ,p_attribute15 in varchar2 default null
51 ,p_attribute16 in varchar2 default null
52 ,p_attribute17 in varchar2 default null
53 ,p_attribute18 in varchar2 default null
54 ,p_attribute19 in varchar2 default null
55 ,p_attribute20 in varchar2 default null
56 ,p_attribute21 in varchar2 default null
57 ,p_attribute22 in varchar2 default null
58 ,p_attribute23 in varchar2 default null
59 ,p_attribute24 in varchar2 default null
60 ,p_attribute25 in varchar2 default null
61 ,p_attribute26 in varchar2 default null
62 ,p_attribute27 in varchar2 default null
63 ,p_attribute28 in varchar2 default null
64 ,p_attribute29 in varchar2 default null
65 ,p_attribute30 in varchar2 default null
66 ,p_per_information_category in varchar2 default null
67 ,NIP in varchar2 default null
68 ,Insured_by_Employee in varchar2 default null
69 ,Inheritor in varchar2 default null
70 ,p_per_information4 in varchar2 default null
71 ,p_per_information5 in varchar2 default null
72 ,p_per_information6 in varchar2 default null
73 ,p_per_information7 in varchar2 default null
74 ,p_per_information8 in varchar2 default null
75 ,p_per_information9 in varchar2 default null
76 ,p_per_information10 in varchar2 default null
77 ,p_per_information11 in varchar2 default null
78 ,p_per_information12 in varchar2 default null
79 ,p_per_information13 in varchar2 default null
80 ,p_per_information14 in varchar2 default null
81 ,p_per_information15 in varchar2 default null
82 ,p_per_information16 in varchar2 default null
83 ,p_per_information17 in varchar2 default null
84 ,p_per_information18 in varchar2 default null
85 ,p_per_information19 in varchar2 default null
86 ,p_per_information20 in varchar2 default null
87 ,p_per_information21 in varchar2 default null
88 ,p_per_information22 in varchar2 default null
89 ,p_per_information23 in varchar2 default null
90 ,p_per_information24 in varchar2 default null
91 ,p_per_information25 in varchar2 default null
92 ,p_per_information26 in varchar2 default null
93 ,p_per_information27 in varchar2 default null
94 ,p_per_information28 in varchar2 default null
95 ,p_per_information29 in varchar2 default null
96 ,p_per_information30 in varchar2 default null
97 ,p_correspondence_language in varchar2 default null
98 ,p_honors in varchar2 default null
99 ,p_benefit_group_id in number default null
100 ,p_on_military_service in varchar2 default null
101 ,p_student_status in varchar2 default null
102 ,p_uses_tobacco_flag in varchar2 default null
103 ,p_coord_ben_no_cvg_flag in varchar2 default null
104 ,p_pre_name_adjunct in varchar2 default null
105 ,p_suffix in varchar2 default null
106 ,p_town_of_birth in varchar2 default null
107 ,p_region_of_birth in varchar2 default null
108 ,p_country_of_birth in varchar2 default null
109 ,p_global_person_id in varchar2 default null
110 ,p_person_id out nocopy number
111 ,p_object_version_number out nocopy number
112 ,p_effective_start_date out nocopy date
113 ,p_effective_end_date out nocopy date
114 ,p_full_name out nocopy varchar2
115 ,p_comment_id out nocopy number
116 ,p_name_combination_warning out nocopy boolean
117 ,p_orig_hire_warning out nocopy boolean
118 ) IS
119 --
120 -- Declare cursors and local variables
121 --
122 l_proc varchar2(72) ;
123
124 --
125 begin
126 l_proc := g_package||'create_pl_person OLD';
127 hr_utility.set_location('Entering:'|| l_proc, 45);
128 --
129 -- Validation in addition to Table Handlers
130 --
131 -- Check that the specified business group is valid.
132 --
133 /*Bug 4340576 Polish HRMS Phase 2.Code replaced with call to new
134 overloaded procedure.
135
136 open csr_bg;
137 fetch csr_bg
138 into l_legislation_code;
139 if csr_bg%notfound then
140 close csr_bg;
141 hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
142 hr_utility.raise_error;
143 end if;
144 close csr_bg;
145 --
146 -- Check that the legislation of the specified business group is 'RU'.
147 --
148 if l_legislation_code <> 'PL' then
149 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
150 hr_utility.set_message_token('LEG_CODE','PL');
151 hr_utility.raise_error;
152 end if;
153
154 hr_utility.set_location(l_proc, 50);
155 --
156 -- Call the person business process
157 --
158 hr_utility.set_location (l_proc, 50);
159 --
160 -- Call the person business process
161 --
162 hr_contact_api.create_person
163 */ hr_pl_contact_api.create_pl_person
164 (p_validate => p_validate
165 ,p_start_date => p_start_date
166 ,p_business_group_id => p_business_group_id
167 ,p_last_name => p_last_name
168 ,p_sex => p_sex
169 ,p_person_type_id => p_person_type_id
170 ,p_comments => p_comments
171 ,p_date_employee_data_verified => p_date_employee_data_verified
172 ,p_date_of_birth => p_date_of_birth
173 ,p_email_address => p_email_address
174 ,p_expense_check_send_to_addres => p_expense_check_send_to_addres
175 ,p_first_name => p_first_name
176 ,p_known_as => p_known_as
177 ,p_marital_status => p_marital_status
178 ,p_middle_names => p_middle_names
179 ,p_nationality => p_nationality
180 ,p_pesel => p_inn
181 ,p_previous_last_name => p_previous_last_name
182 ,p_registered_disabled_flag => p_registered_disabled_flag
183 ,p_title => p_title
184 ,p_vendor_id => p_vendor_id
185 ,p_work_telephone => p_work_telephone
186 ,p_attribute_category => p_attribute_category
187 ,p_attribute1 => p_attribute1
188 ,p_attribute2 => p_attribute2
189 ,p_attribute3 => p_attribute3
190 ,p_attribute4 => p_attribute4
191 ,p_attribute5 => p_attribute5
192 ,p_attribute6 => p_attribute6
193 ,p_attribute7 => p_attribute7
194 ,p_attribute8 => p_attribute8
195 ,p_attribute9 => p_attribute9
196 ,p_attribute10 => p_attribute10
197 ,p_attribute11 => p_attribute11
198 ,p_attribute12 => p_attribute12
199 ,p_attribute13 => p_attribute13
200 ,p_attribute14 => p_attribute14
201 ,p_attribute15 => p_attribute15
202 ,p_attribute16 => p_attribute16
203 ,p_attribute17 => p_attribute17
204 ,p_attribute18 => p_attribute18
205 ,p_attribute19 => p_attribute19
206 ,p_attribute20 => p_attribute20
207 ,p_attribute21 => p_attribute21
208 ,p_attribute22 => p_attribute22
209 ,p_attribute23 => p_attribute23
210 ,p_attribute24 => p_attribute24
211 ,p_attribute25 => p_attribute25
212 ,p_attribute26 => p_attribute26
213 ,p_attribute27 => p_attribute27
214 ,p_attribute28 => p_attribute28
215 ,p_attribute29 => p_attribute29
216 ,p_attribute30 => p_attribute30
217 ,p_per_information_category => 'PL'
218 ,p_nip => NIP
219 ,p_insured_by_employee => Insured_by_Employee
220 ,p_inheritor => Inheritor
221 ,p_oldage_pension_rights => p_per_information4
222 ,p_national_fund_of_health => p_per_information5
223 ,p_tax_office => p_per_information6
224 ,p_legal_employer => p_per_information7
225 ,p_citizenship => p_per_information8
226 ,p_correspondence_language => p_correspondence_language
227 ,p_honors => p_honors
228 ,p_benefit_group_id => p_benefit_group_id
229 ,p_on_military_service => p_on_military_service
230 ,p_student_status => p_student_status
231 ,p_uses_tobacco_flag => p_uses_tobacco_flag
232 ,p_coord_ben_no_cvg_flag => p_coord_ben_no_cvg_flag
233 ,p_pre_name_adjunct => p_pre_name_adjunct
234 ,p_suffix => p_suffix
235 ,p_town_of_birth => p_town_of_birth
236 ,p_region_of_birth => p_region_of_birth
237 ,p_country_of_birth => p_country_of_birth
238 ,p_global_person_id => p_global_person_id
239 ,p_person_id => p_person_id
240 ,p_object_version_number => p_object_version_number
241 ,p_effective_start_date => p_effective_start_date
242 ,p_effective_end_date => p_effective_end_date
243 ,p_full_name => p_full_name
244 ,p_comment_id => p_comment_id
245 ,p_name_combination_warning => p_name_combination_warning
246 ,p_orig_hire_warning => p_orig_hire_warning
247 );
248
249 --
250 hr_utility.set_location(' Leaving:'||l_proc, 55);
251 end create_pl_person;
252
253 procedure create_pl_person
254 (p_validate in boolean default false
255 ,p_start_date in date
256 ,p_business_group_id in number
257 ,p_last_name in varchar2
258 ,p_sex in varchar2
259 ,p_person_type_id in number default null
260 ,p_comments in varchar2 default null
261 ,p_date_employee_data_verified in date default null
262 ,p_date_of_birth in date default null
263 ,p_email_address in varchar2 default null
264 ,p_expense_check_send_to_addres in varchar2 default null
265 ,p_first_name in varchar2 default null
266 ,p_known_as in varchar2 default null
267 ,p_marital_status in varchar2 default null
268 ,p_middle_names in varchar2 default null
269 ,p_nationality in varchar2 default null
270 ,p_pesel in varchar2 default null
271 ,p_previous_last_name in varchar2 default null
272 ,p_registered_disabled_flag in varchar2 default null
273 ,p_title in varchar2 default null
274 ,p_vendor_id in number default null
275 ,p_work_telephone in varchar2 default null
276 ,p_attribute_category in varchar2 default null
277 ,p_attribute1 in varchar2 default null
278 ,p_attribute2 in varchar2 default null
279 ,p_attribute3 in varchar2 default null
280 ,p_attribute4 in varchar2 default null
281 ,p_attribute5 in varchar2 default null
282 ,p_attribute6 in varchar2 default null
283 ,p_attribute7 in varchar2 default null
284 ,p_attribute8 in varchar2 default null
285 ,p_attribute9 in varchar2 default null
286 ,p_attribute10 in varchar2 default null
287 ,p_attribute11 in varchar2 default null
288 ,p_attribute12 in varchar2 default null
289 ,p_attribute13 in varchar2 default null
290 ,p_attribute14 in varchar2 default null
291 ,p_attribute15 in varchar2 default null
292 ,p_attribute16 in varchar2 default null
293 ,p_attribute17 in varchar2 default null
294 ,p_attribute18 in varchar2 default null
295 ,p_attribute19 in varchar2 default null
296 ,p_attribute20 in varchar2 default null
297 ,p_attribute21 in varchar2 default null
298 ,p_attribute22 in varchar2 default null
299 ,p_attribute23 in varchar2 default null
300 ,p_attribute24 in varchar2 default null
301 ,p_attribute25 in varchar2 default null
302 ,p_attribute26 in varchar2 default null
303 ,p_attribute27 in varchar2 default null
304 ,p_attribute28 in varchar2 default null
305 ,p_attribute29 in varchar2 default null
306 ,p_attribute30 in varchar2 default null
307 ,p_per_information_category in varchar2 default null
308 ,p_nip in varchar2 default null
309 ,p_insured_by_employee in varchar2 default null
310 ,p_inheritor in varchar2 default null
311 ,p_oldage_pension_rights in varchar2 default null
312 ,p_national_fund_of_health in varchar2 default null
313 ,p_tax_office in varchar2 default null
314 ,p_legal_employer in varchar2 default null
315 ,p_citizenship in varchar2 default null
316 ,p_correspondence_language in varchar2 default null
317 ,p_honors in varchar2 default null
318 ,p_benefit_group_id in number default null
319 ,p_on_military_service in varchar2 default null
320 ,p_student_status in varchar2 default null
321 ,p_uses_tobacco_flag in varchar2 default null
322 ,p_coord_ben_no_cvg_flag in varchar2 default null
323 ,p_pre_name_adjunct in varchar2 default null
324 ,p_suffix in varchar2 default null
325 ,p_town_of_birth in varchar2 default null
326 ,p_region_of_birth in varchar2 default null
327 ,p_country_of_birth in varchar2 default null
328 ,p_global_person_id in varchar2 default null
329 ,p_person_id out nocopy number
330 ,p_object_version_number out nocopy number
331 ,p_effective_start_date out nocopy date
332 ,p_effective_end_date out nocopy date
333 ,p_full_name out nocopy varchar2
334 ,p_comment_id out nocopy number
335 ,p_name_combination_warning out nocopy boolean
336 ,p_orig_hire_warning out nocopy boolean
337 )is
338 -- Declare cursors and local variables
339 --
340 l_proc varchar2(72) ;
341 l_legislation_code varchar2(2);
342
343 --
344 cursor csr_bg is
345 select legislation_code
346 from per_business_groups pbg
347 where pbg.business_group_id = p_business_group_id;
348 Begin
349 l_proc := g_package||'create_pl_person';
350 hr_utility.set_location('Entering:'|| l_proc, 45);
351 open csr_bg;
352 fetch csr_bg
353 into l_legislation_code;
354 if csr_bg%notfound then
355 close csr_bg;
356 hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
357 hr_utility.raise_error;
358 end if;
359 close csr_bg;
360 --
361 -- Check that the legislation of the specified business group is 'PL'.
362 --
363 if l_legislation_code <> 'PL' then
364 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
365 hr_utility.set_message_token('LEG_CODE','PL');
366 hr_utility.raise_error;
367 end if;
368
369 hr_utility.set_location(l_proc, 50);
370 --
371 -- Call the person business process
372 --
373 hr_utility.set_location (l_proc, 50);
374 --
375 -- Call the person business process
376 --
377 hr_contact_api.create_person
378 (p_validate => p_validate
379 ,p_start_date => p_start_date
380 ,p_business_group_id => p_business_group_id
381 ,p_last_name => p_last_name
382 ,p_sex => p_sex
383 ,p_person_type_id => p_person_type_id
384 ,p_comments => p_comments
385 ,p_date_employee_data_verified => p_date_employee_data_verified
386 ,p_date_of_birth => p_date_of_birth
387 ,p_email_address => p_email_address
388 ,p_expense_check_send_to_addres => p_expense_check_send_to_addres
389 ,p_first_name => p_first_name
390 ,p_known_as => p_known_as
391 ,p_marital_status => p_marital_status
392 ,p_middle_names => p_middle_names
393 ,p_nationality => p_nationality
394 ,p_national_identifier => p_pesel
395 ,p_previous_last_name => p_previous_last_name
396 ,p_registered_disabled_flag => p_registered_disabled_flag
397 ,p_title => p_title
398 ,p_vendor_id => p_vendor_id
399 ,p_work_telephone => p_work_telephone
400 ,p_attribute_category => p_attribute_category
401 ,p_attribute1 => p_attribute1
402 ,p_attribute2 => p_attribute2
403 ,p_attribute3 => p_attribute3
404 ,p_attribute4 => p_attribute4
405 ,p_attribute5 => p_attribute5
406 ,p_attribute6 => p_attribute6
407 ,p_attribute7 => p_attribute7
408 ,p_attribute8 => p_attribute8
409 ,p_attribute9 => p_attribute9
410 ,p_attribute10 => p_attribute10
411 ,p_attribute11 => p_attribute11
412 ,p_attribute12 => p_attribute12
413 ,p_attribute13 => p_attribute13
414 ,p_attribute14 => p_attribute14
415 ,p_attribute15 => p_attribute15
416 ,p_attribute16 => p_attribute16
417 ,p_attribute17 => p_attribute17
418 ,p_attribute18 => p_attribute18
419 ,p_attribute19 => p_attribute19
420 ,p_attribute20 => p_attribute20
421 ,p_attribute21 => p_attribute21
422 ,p_attribute22 => p_attribute22
423 ,p_attribute23 => p_attribute23
424 ,p_attribute24 => p_attribute24
425 ,p_attribute25 => p_attribute25
426 ,p_attribute26 => p_attribute26
427 ,p_attribute27 => p_attribute27
428 ,p_attribute28 => p_attribute28
429 ,p_attribute29 => p_attribute29
430 ,p_attribute30 => p_attribute30
431 ,p_per_information_category => 'PL'
432 ,p_per_information1 => p_nip
433 ,p_per_information2 => p_insured_by_employee
434 ,p_per_information3 => p_inheritor
435 ,p_per_information4 => p_oldage_pension_rights
436 ,p_per_information5 => p_national_fund_of_health
437 ,p_per_information6 => p_tax_office
438 ,p_per_information7 => p_legal_employer
439 ,p_per_information8 => p_citizenship
440 ,p_correspondence_language => p_correspondence_language
441 ,p_honors => p_honors
442 ,p_benefit_group_id => p_benefit_group_id
443 ,p_on_military_service => p_on_military_service
444 ,p_student_status => p_student_status
445 ,p_uses_tobacco_flag => p_uses_tobacco_flag
446 ,p_coord_ben_no_cvg_flag => p_coord_ben_no_cvg_flag
447 ,p_pre_name_adjunct => p_pre_name_adjunct
448 ,p_suffix => p_suffix
449 ,p_town_of_birth => p_town_of_birth
450 ,p_region_of_birth => p_region_of_birth
451 ,p_country_of_birth => p_country_of_birth
452 ,p_global_person_id => p_global_person_id
453 ,p_person_id => p_person_id
454 ,p_object_version_number => p_object_version_number
455 ,p_effective_start_date => p_effective_start_date
456 ,p_effective_end_date => p_effective_end_date
457 ,p_full_name => p_full_name
458 ,p_comment_id => p_comment_id
459 ,p_name_combination_warning => p_name_combination_warning
460 ,p_orig_hire_warning => p_orig_hire_warning
461 );
462 --
463 hr_utility.set_location(' Leaving:'||l_proc, 55);
464 end create_pl_person;
465 end hr_pl_contact_api;