1 Package Body ghr_custom_pay_calc as
2 /* $Header: ghcustpc.pkb 115.1 99/10/18 00:34:21 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := 'ghr_custom_pay_calc.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |-------------------------------< custom_pay_calc >-------------------------|
12 -- ----------------------------------------------------------------------------
13 --
14 procedure custom_pay_calc
15 (p_pay_data_rec IN ghr_pay_calc.pay_calc_in_rec_type
16 ,p_pay_data_out_rec IN OUT ghr_pay_calc.pay_calc_out_rec_type
17 ,p_message_set IN OUT BOOLEAN
18 ,p_calculated IN OUT BOOLEAN
19 ) IS
20 --
21 l_proc varchar2(72) := g_package||'custom_pay_calc';
22 --
23 Begin
24 hr_utility.set_location('Entering:'||l_proc, 5);
25 --
26 /*************** Add custom code here **************/
27
28 -- /**************** EXAMPLE *********************************
29 -- below is an example of what you may code if you knew how
30 -- to calculate for example a pay basis of 'PW' . Hopefully it would be a bit more
31 -- complicated than this otherwise we could have done it!!!!
32 -- NOTE: You need to set ALL out parameters
33 --IF NOT p_calculated THEN
34 -- IF p_pay_data_rec.pay_basis = 'PW' THEN
35 -- p_pay_data_out_rec.basic_pay := 4444;
36 -- p_pay_data_out_rec.locality_adj := 10;
37 -- p_pay_data_out_rec.adj_basic_pay := 4454;
38 -- p_pay_data_out_rec.total_salary := 4454;
39 -- p_pay_data_out_rec.other_pay_amount := 0;
40 -- p_pay_data_out_rec.au_overtime := 0;
41 -- p_pay_data_out_rec.availability_pay := 0;
42 --
43 -- p_calculated := TRUE;
44 -- p_message_set := FALSE;
45 -- END IF;
46 --END IF;
47 -- ***********************************************************/
48 --
49 --
50 hr_utility.set_location('Leaving:'||l_proc, 10);
51 end custom_pay_calc;
52 --
53 end ghr_custom_pay_calc;