[Home] [Help]
PACKAGE BODY: APPS.PER_HU_CREATE_CWK
Source
1 package body PER_HU_CREATE_CWK as
2 /* $Header: pehucwkp.pkb 120.2 2006/09/21 08:29:08 mgettins noship $ */
3 g_package VARCHAR2(30) := 'PER_HU_CREATE_CWK.';
4
5 PROCEDURE create_hu_cwk (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 VARCHAR2(72) := g_package||'CREATE_HU_CWK';
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 hr_api.mandatory_arg_error
27 (p_api_name => l_proc,
28 p_argument => 'Mothers Maiden Name',
29 p_argument_value => p_per_information1
30 );*/
31 --
32 -- Added for GSI Bug 5472781
33 --
34 IF hr_utility.chk_product_install('Oracle Human Resources', 'HU') THEN
35 --
36 IF length(p_last_name)>40 THEN
37 hr_utility.set_message(800, 'HR_289712_UTF8_LENGTH_EXCEEDED');
38 hr_utility.set_message_token('COLUMN_NAME',hr_general.decode_lookup('HU_FORM_LABELS','LAST_NAME'));
39 hr_utility.set_message_token('COLUMN_VALUE',p_last_name);
40 hr_utility.set_message_token('MAX_LENGTH','40');
41 hr_utility.raise_error;
42 END IF;
43
44 IF length(p_first_name)>40 THEN
45 hr_utility.set_message(800, 'HR_289712_UTF8_LENGTH_EXCEEDED');
46 hr_utility.set_message_token('COLUMN_NAME',hr_general.decode_lookup('HU_FORM_LABELS','FIRST_NAME'));
47 hr_utility.set_message_token('COLUMN_VALUE',p_first_name);
48 hr_utility.set_message_token('MAX_LENGTH','40');
49 hr_utility.raise_error;
50 END IF;
51 END IF;
52 END create_hu_cwk;
53
54 END PER_HU_CREATE_CWK;