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