[Home] [Help]
PACKAGE BODY: APPS.GHR_PSN_PSN_GRP2_PKG
Source
1 package body ghr_psn_psn_grp2_pkg as
2 /* $Header: ghposrul.pkb 115.8 2003/07/03 08:31:57 ajose ship $ */
3 procedure ghr_psn_psn_grp2_pkg_drv
4 (
5 p_pay_plan in VARCHAR2
6 ,p_pos_grp2_type in ghr_api.pos_grp2_type
7 )
8 is
9 begin
10 psn_posn_occupd_id_2
11 (
12 p_pay_plan => p_pay_plan
13 ,p_pos_grp2_type => p_pos_grp2_type
14 );
15 psn_posn_occupd_id_3
16 (
17 p_pay_plan => p_pay_plan
18 ,p_pos_grp2_type => p_pos_grp2_type
19 );
20 psn_posn_occupd_id_8
21 (
22 p_pos_grp2_type => p_pos_grp2_type
23 );
24 end ghr_psn_psn_grp2_pkg_drv;
25 --
26 procedure psn_posn_occupd_id_2
27 (
28 p_pay_plan in VARCHAR2
29 ,p_pos_grp2_type in ghr_api.pos_grp2_type
30 )
31 is
32 begin
33 IF ( p_pay_plan = 'WT'
34 AND p_pos_grp2_type.position_occupied NOT IN ('1', '2'))
35 THEN
36 hr_utility.set_message(8301, 'GHR_38450_POSN_RULES');
37 hr_utility.raise_error;
38 END IF;
39 end psn_posn_occupd_id_2;
40 --
41 procedure psn_posn_occupd_id_3
42 (
43 p_pay_plan in VARCHAR2
44 ,p_pos_grp2_type in ghr_api.pos_grp2_type
45 )
46 is
47 begin
48 IF ( p_pay_plan = 'ES'
49 AND p_pos_grp2_type.position_occupied NOT IN ('3', '4') )
50 THEN
51 hr_utility.set_message(8301, 'GHR_38451_POSN_RULES');
52 hr_utility.raise_error;
53 END IF;
54 end psn_posn_occupd_id_3;
55 --
56 procedure psn_posn_occupd_id_8
57 (
58 p_pos_grp2_type in ghr_api.pos_grp2_type
59 )
60 is
61 begin
62 IF ( p_pos_grp2_type.intelligence_position_ind = '2'
63 AND p_pos_grp2_type.position_occupied = 1 )
64 THEN
65 hr_utility.set_message(8301, 'GHR_38453_POSN_RULES');
66 hr_utility.raise_error;
67 END IF;
68 end psn_posn_occupd_id_8;
69 --
70 end ghr_psn_psn_grp2_pkg;