PACKAGE BODY: APPS.GHR_PSN_PSN_GRP2_PKG

Source

1 package body ghr_psn_psn_grp2_pkg as
2 /* $Header: ghposrul.pkb 120.1 2010/09/01 09:49:55 utokachi 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;