[Home] [Help]
PACKAGE BODY: APPS.PER_PL_CREATE_APPLICANT
Source
1 package body PER_PL_CREATE_APPLICANT as
2 /* $Header: peplappp.pkb 120.2 2006/09/13 10:44:06 mseshadr noship $ */
3
4 PROCEDURE CREATE_PL_APPLICANT(p_last_name VARCHAR2
5 ,p_first_name VARCHAR2
6 ,p_national_identifier VARCHAR2
7 ,p_business_group_id NUMBER
8 ,p_nationality VARCHAR2
9 ,p_per_information1 VARCHAR2
10 ,p_per_information2 VARCHAR2
11 ,p_per_information3 VARCHAR2
12 ,p_per_information4 VARCHAR2
13 ,p_per_information5 VARCHAR2
14 ,p_per_information6 VARCHAR2
15 ,p_per_information7 VARCHAR2
16 ,p_per_information8 VARCHAR2
17
18 ) is
19 l_proc VARCHAR2(72);
20 BEGIN
21 g_package := 'PER_PL_CREATE_APPLICANT.';
22 l_proc := g_package||'CREATE_PL_APPLICANT';
23 /* Added for GSI Bug 5472781 */
24 IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'PL') THEN
25 hr_utility.set_location('Leaving : '||l_proc,10);
26 return;
27 END IF;
28 hr_api.mandatory_arg_error
29 (p_api_name => l_proc,
30 p_argument => hr_general.decode_lookup('PL_FORM_LABELS','LAST'),
31 p_argument_value => p_last_name
32 );
33
34 hr_api.mandatory_arg_error
35 (p_api_name => l_proc,
36 p_argument => hr_general.decode_lookup('PL_FORM_LABELS','FIRST'),
37 p_argument_value => p_first_name
38 );
39
40
41 if p_national_identifier is not null then
42 hr_pl_utility.per_pl_validate(p_national_identifier);
43 if p_per_information7 is not null then
44 hr_pl_utility.per_pl_check_ni_unique(p_national_identifier,0,p_business_group_id,
45 p_per_information7);
46 end if;
47 end if;
48
49 if p_per_information1 is not null then
50 hr_pl_utility.per_pl_nip_validate(p_per_information1,0,p_business_group_id, p_per_information7,p_nationality,p_per_information8
51 );
52 end if;
53
54 END create_pl_applicant;
55
56 END PER_PL_CREATE_APPLICANT;