[Home] [Help]
PACKAGE BODY: APPS.PAY_IN_ELE_EXTRA_INFO_LEG_HOOK
Source
1 PACKAGE BODY pay_in_ele_extra_info_leg_hook AS
2 /* $Header: pyinlhei.pkb 120.2 2006/05/27 18:28:46 statkar noship $ */
3
4 g_package CONSTANT VARCHAR2(100) := 'pay_in_ele_extra_info_leg_hook.';
5 g_debug BOOLEAN ;
6
7 --------------------------------------------------------------------------
8 -- --
9 -- Name : CHECK_TDS_FIELDS --
10 -- Type : PROCEDURE --
11 -- Access : Public --
12 -- Description : Checks that if the TDS type is not Fixed Percentage --
13 -- then TDS Percentage field must be null and if the --
14 -- TDS type is Fixed Percentage, then TDS Percentage --
15 -- field must be populated --
16 -- --
17 -- --
18 -- Parameters : --
19 -- IN : p_eei_information1 VARCHAR2 --
20 -- p_eei_information2 VARCHAR2 --
21 -- OUT : N/A --
22 -- RETURN : N/A --
23 -- --
24 -- Change History : --
25 --------------------------------------------------------------------------
26 -- Rev# Date Userid Description --
27 --------------------------------------------------------------------------
28 -- 1.0 10-Sep-04 abhjain Created this procedure --
29 --------------------------------------------------------------------------
30
31 PROCEDURE check_tds_fields(p_eei_information_category IN VARCHAR2
32 ,p_eei_information1 IN VARCHAR2
33 ,p_eei_information2 IN VARCHAR2
34 ) IS
35 l_message VARCHAR2(255);
36 l_procedure VARCHAR2(100);
37
38 BEGIN
39
40 IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'IN') THEN
41 hr_utility.trace ('IN Legislation not installed. Not performing the validations');
42 RETURN;
43 END IF;
44
45 g_debug := hr_utility.debug_enabled;
46 l_procedure := g_package ||'check_tds_fields';
47 pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
48
49 IF g_debug THEN
50 pay_in_utils.trace('**************************************************','********************');
51 pay_in_utils.trace('EEI Information Category ',p_eei_information_category);
52 pay_in_utils.trace('EEI Information1 ',p_eei_information1);
53 pay_in_utils.trace('EEI Information2 ',p_eei_information2);
54 pay_in_utils.trace('**************************************************','********************');
55 END IF;
56
57 IF p_eei_information_category = 'PAY_IN_BONUS_INFO_DFF' THEN
58
59 IF p_eei_information1 <> 'P' AND p_eei_information2 IS NOT NULL THEN
60 hr_utility.set_message(800, 'PER_IN_CANT_ENTER_PERCENTAGE');
61 hr_utility.raise_error;
62 END IF;
63
64 IF p_eei_information1 = 'P' AND p_eei_information2 IS NULL THEN
65 hr_utility.set_message(800, 'PER_IN_ENTER_PERCENTAGE');
66 hr_utility.raise_error;
67 END IF;
68 END IF;
69
70 pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
71
72 EXCEPTION
73 WHEN OTHERS THEN
74 hr_utility.set_message(800,'PER_IN_ORACLE_GENERIC_ERROR');
75 hr_utility.set_message_token('FUNCTION',l_procedure);
76 hr_utility.set_message_token('SQLERRMC',SQLERRM);
77 hr_utility.raise_error;
78 END check_tds_fields ;
79
80
81 END pay_in_ele_extra_info_leg_hook ;