[Home] [Help]
PACKAGE BODY: APPS.GHR_PSN_POS_GRP1_PK
Source
1 package body ghr_psn_pos_grp1_pk as
2 /* $Header: ghposrul.pkb 120.1 2010/09/01 09:49:55 utokachi ship $ */
3 procedure ghr_psn_pos_grp1_pk_drv
4 (
5 p_grade in VARCHAR2
6 ,p_pay_plan in VARCHAR2
7 ,p_pos_grp1_type in ghr_api.pos_grp1_type
8 ,p_pos_grp2_type in ghr_api.pos_grp2_type
9 )
10 is
11 begin
12 psn_flsa_cat
13 (
14 p_pos_grp1_type => p_pos_grp1_type
15 );
16 psn_flsa_cat_3
17 (
18 p_pay_plan => p_pay_plan
19 ,p_pos_grp1_type => p_pos_grp1_type
20 );
21 psn_funct_class_id_3
22 (
23 p_pos_grp1_type => p_pos_grp1_type
24 ,p_pos_grp2_type => p_pos_grp2_type
25 );
26 psn_pos_scty_acs_1
27 (
28 p_pos_grp1_type => p_pos_grp1_type
29 );
30 /* Commented as per Aug 2001 10.7 Patch
31 psn_supv_status_11
32 (
33 p_pay_plan => p_pay_plan
34 ,p_pos_grp1_type => p_pos_grp1_type
35 );
36 */
37 psn_supv_status_19
38 (
39 p_pay_plan => p_pay_plan
40 ,p_pos_grp1_type => p_pos_grp1_type
41 );
42 psn_supv_status_2
43 (
44 p_pay_plan => p_pay_plan
45 ,p_pos_grp1_type => p_pos_grp1_type
46 );
47 psn_supv_status_3
48 (
49 p_grade => p_grade
50 ,p_pay_plan => p_pay_plan
51 ,p_pos_grp1_type => p_pos_grp1_type
52 );
53 psn_supv_status_4
54 (
55 p_pay_plan => p_pay_plan
56 ,p_pos_grp1_type => p_pos_grp1_type
57 );
58 --Bug 10030595 commenting this procedure since the pay plans are no longer exists
59 /*psn_supv_status_5
60 (
61 p_pay_plan => p_pay_plan
62 ,p_pos_grp1_type => p_pos_grp1_type
63 );*/
64 psn_supv_status_6
65 (
66 p_pay_plan => p_pay_plan
67 ,p_pos_grp1_type => p_pos_grp1_type
68 );
69 psn_supv_status_8
70 (
71 p_pay_plan => p_pay_plan
72 ,p_pos_grp1_type => p_pos_grp1_type
73 );
74 psn_supv_status_9
75 (
76 p_pay_plan => p_pay_plan
77 ,p_pos_grp1_type => p_pos_grp1_type
78 );
79 end ghr_psn_pos_grp1_pk_drv;
80 --
81 --
82 procedure psn_flsa_cat
83 (
84 p_pos_grp1_type in ghr_api.pos_grp1_type
85 )
86 is
87 begin
88 IF ( p_pos_grp1_type.flsa_category IS NULL)
89 THEN
90 hr_utility.set_message(8301, 'GHR_38420_POSN_RULES');
91 hr_utility.raise_error;
92 END IF;
93 end psn_flsa_cat;
94 --
95 procedure psn_flsa_cat_3
96 (
97 p_pay_plan in VARCHAR2
98 ,p_pos_grp1_type in ghr_api.pos_grp1_type
99 )
100 is
101 begin
102 IF ( p_pay_plan IN ('AL', 'CA', 'ES', 'EX', 'SL', 'ST')
103 AND p_pos_grp1_type.flsa_category <> 'E')
104 THEN
105 hr_utility.set_message(8301, 'GHR_38421_POSN_RULES');
106 hr_utility.raise_error;
107 END IF;
108 end psn_flsa_cat_3;
109 --
110 procedure psn_funct_class_id_3
111 (
112 p_pos_grp1_type in ghr_api.pos_grp1_type
113 ,p_pos_grp2_type in ghr_api.pos_grp2_type
114 )
115 is
116 begin
117 IF ( p_pos_grp2_type.training_program_id = '53'
118 AND p_pos_grp1_type.functional_class IS NULL)
119 THEN
120 hr_utility.set_message(8301, 'GHR_38424_POSN_RULES');
121 hr_utility.raise_error;
122 END IF;
123 end psn_funct_class_id_3;
124 --
125 procedure psn_pos_scty_acs_1
126 (
127 p_pos_grp1_type in ghr_api.pos_grp1_type
128 )
129 is
130 begin
131 IF ( p_pos_grp1_type.position_sensitivity <> '1'
132 AND p_pos_grp1_type.position_sensitivity IS NOT NULL
133 AND p_pos_grp1_type.security_access IS NULL)
134 THEN
135 hr_utility.set_message(8301, 'GHR_38425_POSN_RULES');
136 hr_utility.raise_error;
137 END IF;
138 end psn_pos_scty_acs_1;
139 --
140 /* Removed as per Aug 2001 10.7 Patch and patched in April 2002 Patch for 11i
141 procedure psn_supv_status_11
142 (
143 p_pay_plan in VARCHAR2
144 ,p_pos_grp1_type in ghr_api.pos_grp1_type
145 )
146 is
147 begin
148 IF ( p_pos_grp1_type.supervisory_status = '5'
149 AND p_pay_plan NOT IN ('AL','CA','GM','GS','SL','GG','GH','FT','FM','FG') )
150 THEN
151 hr_utility.set_message(8301, 'GHR_38429_POSN_RULES');
152 hr_utility.raise_error;
153 END IF;
154 end psn_supv_status_11;
155 */
156 --
157 procedure psn_supv_status_19
158 (
159 p_pay_plan in VARCHAR2
160 ,p_pos_grp1_type in ghr_api.pos_grp1_type
161 )
162 is
163 begin
164 IF ( p_pay_plan IN ('ES', 'EX', 'FE')
165 AND p_pos_grp1_type.supervisory_status NOT IN ('1','2', '3', '8'))
166 THEN
167 hr_utility.set_message(8301, 'GHR_38433_POSN_RULES');
168 hr_utility.raise_error;
169 END IF;
170 end psn_supv_status_19;
171 --
172 procedure psn_supv_status_2
173 (
174 p_pay_plan in VARCHAR2
175 ,p_pos_grp1_type in ghr_api.pos_grp1_type
176 )
177 is
178 begin
179 IF ( p_pay_plan IN ('WN', 'WS')
180 AND p_pos_grp1_type.supervisory_status NOT IN ('1','2','3'))
181 THEN
182 hr_utility.set_message(8301, 'GHR_38434_POSN_RULES');
183 hr_utility.raise_error;
184 END IF;
185 IF ( p_pay_plan = 'WG'
186 AND p_pos_grp1_type.supervisory_status NOT IN ('4','7','8'))
187 THEN
188 hr_utility.set_message(8301, 'GHR_38435_POSN_RULES');
189 hr_utility.raise_error;
190 END IF;
191 end psn_supv_status_2;
192 --
193 procedure psn_supv_status_3
194 (
195 p_grade in VARCHAR2
196 ,p_pay_plan in VARCHAR2
197 ,p_pos_grp1_type in ghr_api.pos_grp1_type
198 )
199 is
200 begin
201 IF ( p_pay_plan = 'GS'
202 AND p_grade IN ('01', '02', '03', '04')
203 AND p_pos_grp1_type.supervisory_status NOT IN ('4','6','8'))
204 THEN
205 hr_utility.set_message(8301, 'GHR_38436_POSN_RULES');
206 hr_utility.raise_error;
207 END IF;
208 end psn_supv_status_3;
209 --
210 procedure psn_supv_status_4
211 (
212 p_pay_plan in VARCHAR2
213 ,p_pos_grp1_type in ghr_api.pos_grp1_type
214 )
215 is
216 begin
217 -- Bug 2681833 -- Added code '7'
218 IF ( p_pay_plan <> 'GS'
219 AND p_pay_plan = 'GM'
220 AND p_pos_grp1_type.supervisory_status NOT IN ('1','2','3','4','5','7'))
221 THEN
222 hr_utility.set_message(8301, 'GHR_38437_POSN_RULES');
223 hr_utility.raise_error;
224 END IF;
225 end psn_supv_status_4;
226 --
227 --Bug 10030595 commenting this procedure since the pay plans are no longer exists
228 /*procedure psn_supv_status_5
229 (
230 p_pay_plan in VARCHAR2
231 ,p_pos_grp1_type in ghr_api.pos_grp1_type
232 )
233 is
234 begin
235 IF ( p_pay_plan IN ('GW', 'WW', 'YW', 'YV', 'IP', 'DW')
236 AND p_pos_grp1_type.supervisory_status <> '8')
237 THEN
238 hr_utility.set_message(8301, 'GHR_38439_POSN_RULES');
239 hr_utility.raise_error;
240 END IF;
241 end psn_supv_status_5;*/
242 --
243 procedure psn_supv_status_6
244 (
245 p_pay_plan in VARCHAR2
246 ,p_pos_grp1_type in ghr_api.pos_grp1_type
247 )
248 is
249 begin
250 IF ( p_pos_grp1_type.supervisory_status NOT IN ('1','2')
251 AND p_pay_plan IN ('WA','WN', 'WS', 'WQ', 'XN', 'XS'))
252 THEN
253 hr_utility.set_message(8301, 'GHR_38438_POSN_RULES');
254 hr_utility.raise_error;
255 END IF;
256 end psn_supv_status_6;
257 --
258 procedure psn_supv_status_8
259 (
260 p_pay_plan in VARCHAR2
261 ,p_pos_grp1_type in ghr_api.pos_grp1_type
262 )
263 is
264 begin
265 IF ( p_pay_plan = 'WB'
266 AND p_pos_grp1_type.supervisory_status NOT IN ('1','2','6','8'))
267 THEN
268 hr_utility.set_message(8301, 'GHR_38440_POSN_RULES');
269 hr_utility.raise_error;
270 END IF;
271 end psn_supv_status_8;
272 --
273 procedure psn_supv_status_9
274 (
275 p_pay_plan in VARCHAR2
276 ,p_pos_grp1_type in ghr_api.pos_grp1_type
277 )
278 is
279 begin
280 IF ( p_pos_grp1_type.supervisory_status <> '6'
281 AND p_pay_plan IN ( 'LL', 'LX', 'ML', 'RL', 'WL', 'XL' ))
282 THEN
283 hr_utility.set_message(8301, 'GHR_38441_POSN_RULES');
284 hr_utility.raise_error;
285 END IF;
286 end psn_supv_status_9;
287 --
288 end ghr_psn_pos_grp1_pk;