[Home] [Help]
PACKAGE BODY: APPS.PAY_EVENT_GROUPS_API
Source
4 --
1 Package body pay_event_groups_api as
2 /* $Header: pyevgapi.pkb 120.2 2005/10/04 00:23:34 adkumar noship $ */
3 --
5 -- Package Variables
6 --
7 g_package varchar2(33) := ' pay_event_groups_api.';
8 --
9 -- ----------------------------------------------------------------------------
10 -- |------------------------< create_event_group >------------------------|
11 -- ----------------------------------------------------------------------------
12 -- {Start Of Comments}
13 --
14 -- Description:
15 --
16 -- Prerequisites:
17 --
18 --
19 -- In Parameters:
20 -- Name Reqd Type Description
21 --
22 -- Post Success:
23 --
24 -- Out Parameters:
25 -- Name Type Description
26 --
27 -- Post Failure:
28 --
29 -- Access Status:
30 -- Public.
31 --
32 -- {End Of Comments}
33 --
34 procedure create_event_group
35 (
36 p_validate in boolean default false
37 ,p_effective_date in date
38 ,p_event_group_name in varchar2
39 ,p_event_group_type in varchar2
40 ,p_proration_type in varchar2 default null
41 ,p_business_group_id in number default null
42 ,p_legislation_code in varchar2 default null
43 ,p_event_group_id out nocopy number
44 ,p_object_version_number out nocopy number
45 ,p_time_definition_id in number default null
46 ) is
47 --
48 l_proc varchar2(72) := g_package||'create_event_group';
49 l_object_version_number pay_event_groups.object_version_number%TYPE;
50 l_event_group_id pay_event_groups.event_group_id%TYPE;
51 --
52 begin
53 --
54 hr_utility.set_location('Entering:'|| l_proc, 10);
55 --
56 savepoint create_event_group;
57 --
58 --
59 hr_utility.set_location(l_proc, 20);
60 --
61 -- Process Logic
62 --
63 --
64 -- Start of API User Hook for the before hook of create_EVENT_GROUP.
65 --
66 begin
67 pay_event_groups_bk1.create_event_group_b
68 (
69 p_effective_date => p_effective_date
70 ,p_event_group_name => p_event_group_name
71 ,p_event_group_type => p_event_group_type
72 ,p_proration_type => p_proration_type
73 ,p_business_group_id => p_business_group_id
74 ,p_legislation_code => p_legislation_code
75 ,p_time_definition_id => p_time_definition_id
76 );
77 exception
78 when hr_api.cannot_find_prog_unit then
79 hr_api.cannot_find_prog_unit_error
80 (p_module_name => 'CREATE_EVENT_GROUP',
81 p_hook_type => 'BP'
82 );
83 end;
84 --
85 pay_evg_ins.ins
86 (
87 p_effective_date => p_effective_date
88 ,p_event_group_name => p_event_group_name
89 ,p_event_group_type => p_event_group_type
90 ,p_proration_type => p_proration_type
91 ,p_business_group_id => p_business_group_id
92 ,p_legislation_code => p_legislation_code
93 ,p_event_group_id => l_event_group_id
94 ,p_object_version_number => l_object_version_number
95 ,p_time_definition_id => p_time_definition_id
96 );
97 --
98 --
99 -- Start of API User Hook for the after hook of create_EVENT_GROUP.
100 --
101 begin
102 pay_event_groups_bk1.create_event_group_a
103 (
104 p_effective_date => p_effective_date
105 ,p_event_group_name => p_event_group_name
106 ,p_event_group_type => p_event_group_type
107 ,p_proration_type => p_proration_type
108 ,p_business_group_id => p_business_group_id
109 ,p_legislation_code => p_legislation_code
110 ,p_event_group_id => l_event_group_id
111 ,p_object_version_number => l_object_version_number
112 ,p_time_definition_id => p_time_definition_id
113 );
114 exception
115 when hr_api.cannot_find_prog_unit then
116 hr_api.cannot_find_prog_unit_error
117 (p_module_name => 'CREATE_EVENT_GROUP',
118 p_hook_type => 'AP'
119 );
120 end;
121 --
122 If p_validate then
123 Raise HR_Api.Validate_Enabled;
124 End If;
125 --
126 p_event_group_id := l_event_group_id;
127 p_object_version_number := l_object_version_number;
128 --
129 exception
130 --
131 when HR_Api.Validate_Enabled then
132 --
133 -- A validation or unexpected error has occured
134 --
135 ROLLBACK TO create_event_group;
136 p_event_group_id := l_event_group_id;
137 p_object_version_number := l_object_version_number;
138 hr_utility.set_location('Leaving:'|| l_proc, 80);
139 when others then
140 ROLLBACK TO create_event_group;
141 p_event_group_id := null;
142 p_object_version_number := null;
143 hr_utility.set_location('Leaving:'|| l_proc, 90);
144 raise;
145 --
146 end create_event_group;
147 --
148 -- ----------------------------------------------------------------------------
149 -- |------------------------< update_event_group >------------------------|
153 -- Description:
150 -- ----------------------------------------------------------------------------
151 -- {Start Of Comments}
152 --
154 --
155 -- Prerequisites:
156 --
157 --
158 -- In Parameters:
159 -- Name Reqd Type Description
160 --
161 -- Post Success:
162 --
163 -- Out Parameters:
164 -- Name Type Description
165 --
166 -- Post Failure:
167 --
168 -- Access Status:
169 -- Public.
170 --
171 -- {End Of Comments}
172 --
173 procedure update_event_group
174 (
175 p_validate in boolean default false
176 ,p_effective_date in date
177 ,p_event_group_id in number
178 ,p_object_version_number in out nocopy number
179 ,p_event_group_name in varchar2 default hr_api.g_varchar2
180 ,p_event_group_type in varchar2 default hr_api.g_varchar2
181 ,p_proration_type in varchar2 default hr_api.g_varchar2
182 ,p_business_group_id in number default hr_api.g_number
183 ,p_legislation_code in varchar2 default hr_api.g_varchar2
184 ,p_time_definition_id in number default hr_api.g_number
185 ) is
186 --
187 -- Declare cursors and local variables
188 --
189 l_proc varchar2(72) := g_package||'update_event_group';
190 l_object_version_number pay_event_groups.object_version_number%TYPE;
191 --
192 begin
193 --
194 hr_utility.set_location('Entering:'|| l_proc, 10);
195 --
196 savepoint update_event_group;
197 --
198 l_object_version_number := p_object_version_number;
199 --
200 --
201 -- Start of API User Hook for the before hook of update_EVENT_GROUP.
202 --
203 begin
204 pay_event_groups_bk2.update_event_group_b
205 (p_effective_date => p_effective_date
206 ,p_event_group_id => p_event_group_id
207 ,p_object_version_number => l_object_version_number
208 ,p_event_group_name => p_event_group_name
209 ,p_event_group_type => p_event_group_type
210 ,p_proration_type => p_proration_type
211 ,p_business_group_id => p_business_group_id
212 ,p_legislation_code => p_legislation_code
213 ,p_time_definition_id => p_time_definition_id
214 );
215 exception
216 when hr_api.cannot_find_prog_unit then
217 hr_api.cannot_find_prog_unit_error
218 (p_module_name => 'UPDATE_EVENT_GROUP',
219 p_hook_type => 'BP'
220 );
221 end;
222 --
223 pay_evg_upd.upd
224 (
225 p_effective_date => p_effective_date
226 ,p_event_group_id => p_event_group_id
227 ,p_object_version_number => l_object_version_number
228 ,p_event_group_name => p_event_group_name
229 ,p_event_group_type => p_event_group_type
230 ,p_proration_type => p_proration_type
231 ,p_business_group_id => p_business_group_id
232 ,p_legislation_code => p_legislation_code
233 ,p_time_definition_id => p_time_definition_id
234 );
235 hr_utility.set_location('Entering:'|| l_proc, 20);
236 --
237 --
238 -- Start of API User Hook for the after hook of update_EVENT_GROUP.
239 --
240 begin
241 pay_event_groups_bk2.update_event_group_a
242 (p_effective_date => p_effective_date
243 ,p_event_group_id => p_event_group_id
244 ,p_object_version_number => l_object_version_number
245 ,p_event_group_name => p_event_group_name
246 ,p_event_group_type => p_event_group_type
247 ,p_proration_type => p_proration_type
248 ,p_business_group_id => p_business_group_id
249 ,p_legislation_code => p_legislation_code
250 ,p_time_definition_id => p_time_definition_id
251 );
252 exception
253 when hr_api.cannot_find_prog_unit then
254 hr_api.cannot_find_prog_unit_error
255 (p_module_name => 'UPDATE_EVENT_GROUP',
256 p_hook_type => 'AP'
257 );
258 end;
259 --
260 If p_validate then
261 Raise HR_Api.Validate_Enabled;
262 End If;
263 --
264 p_object_version_number := l_object_version_number;
265 --
266 exception
267 --
268 when HR_Api.Validate_Enabled then
269 --
270 -- A validation or unexpected error has occured
271 --
272 ROLLBACK TO update_event_group;
273 p_object_version_number := l_object_version_number;
274 hr_utility.set_location('Leaving:'|| l_proc, 80);
275 when others then
276 ROLLBACK TO update_event_group;
277 p_object_version_number := l_object_version_number;
278 hr_utility.set_location('Leaving:'|| l_proc, 90);
279 raise;
280 --
281 end update_event_group;
282 --
283 --
284 -- ----------------------------------------------------------------------------
285 -- |------------------------< delete_event_group >------------------------|
286 -- ----------------------------------------------------------------------------
287 -- {Start Of Comments}
288 --
289 -- Description:
290 --
291 -- Prerequisites:
292 --
293 --
294 -- In Parameters:
295 -- Name Reqd Type Description
296 --
297 -- Post Success:
298 --
299 -- Out Parameters:
300 -- Name Type Description
301 --
302 -- Post Failure:
303 --
304 -- Access Status:
305 -- Public.
306 --
307 -- {End Of Comments}
308 --
309 procedure delete_event_group
310 (
311 p_validate in boolean default false
312 ,p_event_group_id in number
313 ,p_object_version_number in number
314 ) is
315 --
316 -- Declare cursors and local variables
317 --
318 l_proc varchar2(72) := g_package||'delete_event_group';
319 l_object_version_number pay_event_groups.object_version_number%TYPE;
320 --
321 begin
322 --
323 hr_utility.set_location('Entering:'|| l_proc, 10);
324 --
325 savepoint delete_event_group;
326 --
327 --
328 l_object_version_number:= p_object_version_number;
329 --
330 -- Start of API User Hook for the before hook of delete_EVENT_GROUP.
331 --
332 begin
333 pay_event_groups_bk3.delete_event_group_b
334 (
335 p_event_group_id => p_event_group_id
336 ,p_object_version_number => l_object_version_number
337 );
338 exception
339 when hr_api.cannot_find_prog_unit then
340 hr_api.cannot_find_prog_unit_error
341 (p_module_name => 'DELETE_EVENT_GROUP',
342 p_hook_type => 'BP'
343 );
344 end;
345 --
346 pay_evg_del.del
347 (
348 p_event_group_id => p_event_group_id
349 ,p_object_version_number => l_object_version_number
350 );
351 hr_utility.set_location(' Leaving:'||l_proc, 70);
352 --
353 --
354 -- Start of API User Hook for the after hook of create_EVENT_GROUP.
355 --
356 begin
357 pay_event_groups_bk3.delete_event_group_a
358 (
359 p_event_group_id => p_event_group_id
360 ,p_object_version_number => l_object_version_number
361 );
362 exception
363 when hr_api.cannot_find_prog_unit then
364 hr_api.cannot_find_prog_unit_error
365 (p_module_name => 'DELETE_EVENT_GROUP',
366 p_hook_type => 'AP'
367 );
368 end;
369 --
370 If p_validate then
371 Raise HR_Api.Validate_Enabled;
372 End If;
373 --
374 exception
375 when HR_Api.Validate_Enabled then
376 --
377 -- A validation or unexpected error has occured
378 --
379 ROLLBACK TO delete_event_group;
380 hr_utility.set_location('Leaving:'|| l_proc, 80);
381 when others then
382 ROLLBACK TO delete_event_group;
383 hr_utility.set_location('Leaving:'|| l_proc, 90);
384 raise;
385 --
386 end delete_event_group ;
387 --
388 --
389 /*
390 -- ----------------------------------------------------------------------------
391 -- |------------------------< lck_event_group >------------------------|
392 -- ----------------------------------------------------------------------------
393 -- {Start Of Comments}
394 --
395 -- Description:
396 --
397 -- Prerequisites:
398 --
399 --
400 -- In Parameters:
401 -- Name Reqd Type Description
402 --
403 -- Post Success:
404 --
405 -- Out Parameters:
406 -- Name Type Description
407 --
408 -- Post Failure:
409 --
410 -- Access Status:
411 -- Public.
412 --
413 -- {End Of Comments}
414 --
415 procedure lck_event_group
416 (
417 p_event_group_id in number
418 ,p_object_version_number in number
419 ) is
420 --
421 --
422 -- Declare cursors and local variables
423 l_proc varchar2(72) := g_package||'lck_event_group.';
424 --
425 begin
426 --
427 hr_utility.set_location('Entering:'|| l_proc, 10);
428 --
429 pay_evg_shd.lck
430 (
431 p_event_group_id => p_event_group_id
432 ,p_object_version_number => p_object_version_number
433 );
434 --
435 hr_utility.set_location(' Leaving:'||l_proc, 70);
436 --
437 end lck_event_group;
438 */
439 --
440 --
441 end pay_event_groups_api;