[Home] [Help]
PACKAGE BODY: APPS.PER_HU_CREATE_PERSON
Source
1 package body PER_HU_CREATE_PERSON as
2 /* $Header: pehuconp.pkb 120.3 2006/09/21 08:29:02 mgettins noship $ */
3 g_package constant VARCHAR2(30) := 'PER_HU_CREATE_PERSON.';
4
5 PROCEDURE create_hu_person (p_last_name VARCHAR2
6 ,p_first_name VARCHAR2
7 ,p_per_information1 VARCHAR2
8 ,p_per_information2 VARCHAR2
9 ) is
10
11 l_proc constant VARCHAR2(72) := g_package||'CREATE_HU_PERSON';
12
13 BEGIN
14
15 /*hr_api.mandatory_arg_error
16 (p_api_name => l_proc,
17 p_argument => hr_general.decode_lookup('HU_FORM_LABELS','FIRST_NAME'),
18 p_argument_value => p_first_name
19 );*/
20 /* hr_api.mandatory_arg_error
21 (p_api_name => l_proc,
22 p_argument => 'Tax Identification Number',
23 p_argument_value => p_per_information2
24 );*/
25
26 /*IF p_last_name <> 'RegistrationDummy' THEN
27 hr_api.mandatory_arg_error
28 (p_api_name => l_proc,
29 p_argument => hr_general.decode_lookup('HU_FORM_LABELS','MOTHERS_MAIDEN_NAME'),
30 p_argument_value => p_per_information1
31 );
32 END IF;*/
33 --
34 -- Added for GSI Bug 5472781
35 --
36 IF hr_utility.chk_product_install('Oracle Human Resources', 'HU') THEN
37 --
38 IF length(p_last_name)>40 THEN
39 hr_utility.set_message(800, 'HR_289712_UTF8_LENGTH_EXCEEDED');
40 hr_utility.set_message_token('COLUMN_NAME',hr_general.decode_lookup('HU_FORM_LABELS','LAST_NAME'));
41 hr_utility.set_message_token('COLUMN_VALUE',p_last_name);
42 hr_utility.set_message_token('MAX_LENGTH','40');
43 hr_utility.raise_error;
44 END IF;
45
46 IF length(p_first_name)>40 THEN
47 hr_utility.set_message(800, 'HR_289712_UTF8_LENGTH_EXCEEDED');
48 hr_utility.set_message_token('COLUMN_NAME',hr_general.decode_lookup('HU_FORM_LABELS','FIRST_NAME'));
49 hr_utility.set_message_token('COLUMN_VALUE',p_first_name);
50 hr_utility.set_message_token('MAX_LENGTH','40');
51 hr_utility.raise_error;
52 END IF;
53 END IF;
54 END create_hu_person;
55 --
56 END PER_HU_CREATE_PERSON;