1 Package Body ghr_custom_pay_cap as
2 /* $Header: ghcupcap.pkb 115.1 99/10/18 00:26:42 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := 'ghr_custom_pay_cap.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |-------------------------------< custom_hook >-----------------------------|
12 -- ----------------------------------------------------------------------------
13 --
14 procedure custom_hook
15 (p_pay_cap_in_data IN ghr_pay_caps.pay_cap_in_rec_type
16 ,p_pay_cap_out_data IN OUT ghr_pay_caps.pay_cap_out_rec_type
17 ) IS
18 --
19 l_proc varchar2(72) := g_package||'custom_pay_calc';
20 --
21 Begin
22 hr_utility.set_location('Entering:'||l_proc, 5);
23 --
24 /*************** Add custom code here **************/
25
26 -- /**************** EXAMPLE *********************************
27 -- below is an example of what you may code if pay cap for total
28 -- salary of all people in pay_plan 'XX' was 1 million!
29 --
30 -- DO NOT do raise_error here as that will be handled by setting
31 -- messsage_set to TRUE
32 --
33 -- IF p_pay_cap_in_data.pay_plan = 'XX'
34 -- AND p_pay_cap_in_data.total_salary > 1000000 THEN
35 -- p_pay_cap_out_data.open_fields := TRUE;
36 -- p_pay_cap_out_data.message_set := TRUE;
37 -- hr_utility.set_message(8301,'GHR_38999_PAY_CAP5');
38 -- END IF;
39 --END IF;
40 -- ***********************************************************/
41 --
42 --
43 hr_utility.set_location('Leaving:'||l_proc, 10);
44 end custom_hook;
45 --
46 end ghr_custom_pay_cap;