[Home] [Help]
PACKAGE BODY: APPS.BEN_ELIG_OBJ_API
Source
1 Package Body ben_ELIG_OBJ_api as
2 /* $Header: bebeoapi.pkb 120.0 2005/05/28 00:38:26 appldev noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' ben_ELIG_OBJ_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_ELIG_OBJ >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_ELIG_OBJ
13 (p_validate in boolean default false
14 ,p_elig_obj_id out nocopy number
15 ,p_effective_start_date out nocopy date
16 ,p_effective_end_date out nocopy date
17 ,p_business_group_id in number
18 ,p_table_name in varchar2
19 ,p_column_name in varchar2
20 ,p_column_value in varchar2
21 ,p_object_version_number out nocopy number
22 ,p_effective_date in date
23 ) is
24 --
25 -- Declare cursors and local variables
26 --
27 l_elig_obj_id ben_elig_obj_f.elig_obj_id%TYPE;
28 l_effective_start_date ben_elig_obj_f.effective_start_date%TYPE;
29 l_effective_end_date ben_elig_obj_f.effective_end_date%TYPE;
30 l_proc varchar2(72) := g_package||'create_ELIG_OBJ';
31 l_object_version_number ben_elig_obj_f.object_version_number%TYPE;
32 --
33 begin
34 --
35 hr_utility.set_location('Entering:'|| l_proc, 10);
36 --
37 -- Issue a savepoint if operating in validation only mode
38 --
39 savepoint create_ELIG_OBJ;
40 --
41 hr_utility.set_location(l_proc, 20);
42 --
43 -- Process Logic
44 --
45 begin
46 --
47 -- Start of API User Hook for the before hook of create_ELIG_OBJ
48 --
49 ben_ELIG_OBJ_bk1.create_ELIG_OBJ_b
50 (
51 p_business_group_id => p_business_group_id
52 ,p_table_name => p_table_name
53 ,p_column_name => p_column_name
54 ,p_column_value => p_column_value
55 ,p_effective_date => trunc(p_effective_date)
56 );
57 exception
58 when hr_api.cannot_find_prog_unit then
59 hr_api.cannot_find_prog_unit_error
60 (
61 p_module_name => 'CREATE_ELIG_OBJ'
62 ,p_hook_type => 'BP'
63 );
64 --
65 -- End of API User Hook for the before hook of create_ELIG_OBJ
66 --
67 end;
68 --
69 ben_beo_ins.ins
70 (
71 p_elig_obj_id => l_elig_obj_id
72 ,p_effective_start_date => l_effective_start_date
73 ,p_effective_end_date => l_effective_end_date
74 ,p_business_group_id => p_business_group_id
75 ,p_table_name => p_table_name
76 ,p_column_name => p_column_name
77 ,p_column_value => p_column_value
78 ,p_object_version_number => l_object_version_number
79 ,p_effective_date => trunc(p_effective_date)
80 );
81 --
82 begin
83 --
84 -- Start of API User Hook for the after hook of create_ELIG_OBJ
85 --
86 ben_ELIG_OBJ_bk1.create_ELIG_OBJ_a
87 (
88 p_elig_obj_id => l_elig_obj_id
89 ,p_effective_start_date => l_effective_start_date
90 ,p_effective_end_date => l_effective_end_date
91 ,p_business_group_id => p_business_group_id
92 ,p_table_name => p_table_name
93 ,p_column_name => p_column_name
94 ,p_column_value => p_column_value
95 ,p_object_version_number => l_object_version_number
96 ,p_effective_date => trunc(p_effective_date)
97 );
98 exception
99 when hr_api.cannot_find_prog_unit then
100 hr_api.cannot_find_prog_unit_error
101 (p_module_name => 'CREATE_ELIG_OBJ'
102 ,p_hook_type => 'AP'
103 );
104 --
105 -- End of API User Hook for the after hook of create_ELIG_OBJ
106 --
107 end;
108 --
109 hr_utility.set_location(l_proc, 60);
110 --
111 -- When in validation only mode raise the Validate_Enabled exception
112 --
113 if p_validate then
114 raise hr_api.validate_enabled;
115 end if;
116 --
117 -- Set all output arguments
118 --
119 p_elig_obj_id := l_elig_obj_id;
120 p_effective_start_date := l_effective_start_date;
121 p_effective_end_date := l_effective_end_date;
122 p_object_version_number := l_object_version_number;
123 --
124 hr_utility.set_location(' Leaving:'||l_proc, 70);
125 --
126 exception
127 --
128 when hr_api.validate_enabled then
129 --
130 -- As the Validate_Enabled exception has been raised
131 -- we must rollback to the savepoint
132 --
133 ROLLBACK TO create_ELIG_OBJ;
134 --
135 -- Only set output warning arguments
136 -- (Any key or derived arguments must be set to null
137 -- when validation only mode is being used.)
138 --
139 p_elig_obj_id := null;
140 p_effective_start_date := null;
141 p_effective_end_date := null;
142 p_object_version_number := null;
143 hr_utility.set_location(' Leaving:'||l_proc, 80);
144 --
145 when others then
146 --
147 -- A validation or unexpected error has occured
148 --
149 ROLLBACK TO create_ELIG_OBJ;
150 raise;
151 --
152 end create_ELIG_OBJ;
153 -- ----------------------------------------------------------------------------
154 -- |------------------------< update_ELIG_OBJ >--- ------------------|
155 -- ----------------------------------------------------------------------------
156 --
157 procedure update_ELIG_OBJ
158 (p_validate in boolean default false
159 ,p_elig_obj_id in number
160 ,p_effective_start_date out nocopy date
161 ,p_effective_end_date out nocopy date
162 ,p_business_group_id in number default hr_api.g_number
163 ,p_table_name in varchar2 default hr_api.g_varchar2
164 ,p_column_name in varchar2 default hr_api.g_varchar2
165 ,p_column_value in varchar2 default hr_api.g_varchar2
166 ,p_object_version_number in out nocopy number
167 ,p_effective_date in date
168 ,p_datetrack_mode in varchar2
169 ) is
170 --
171 -- Declare cursors and local variables
172 --
173 l_proc varchar2(72) := g_package||'update_ELIG_OBJ';
174 l_object_version_number ben_elig_obj_f.object_version_number%TYPE;
175 l_effective_start_date ben_elig_obj_f.effective_start_date%TYPE;
176 l_effective_end_date ben_elig_obj_f.effective_end_date%TYPE;
177 --
178 begin
179 --
180 hr_utility.set_location('Entering:'|| l_proc, 10);
181 --
182 -- Issue a savepoint if operating in validation only mode
183 --
184 savepoint update_ELIG_OBJ;
185 --
186 hr_utility.set_location(l_proc, 20);
187 --
188 -- Process Logic
189 --
190 l_object_version_number := p_object_version_number;
191 --
192 begin
193 --
194 -- Start of API User Hook for the before hook of update_ELIG_OBJ
195 --
196 ben_ELIG_OBJ_bk2.update_ELIG_OBJ_b
197 (
198 p_elig_obj_id => p_elig_obj_id
199 ,p_business_group_id => p_business_group_id
200 ,p_table_name => p_table_name
201 ,p_column_name => p_column_name
202 ,p_column_value => p_column_value
203 ,p_object_version_number => p_object_version_number
204 ,p_effective_date => trunc(p_effective_date)
205 ,p_datetrack_mode => p_datetrack_mode
206 );
207 exception
208 when hr_api.cannot_find_prog_unit then
209 hr_api.cannot_find_prog_unit_error
210 (p_module_name => 'UPDATE_ELIG_OBJ'
211 ,p_hook_type => 'BP'
212 );
213 --
214 -- End of API User Hook for the before hook of update_ELIG_OBJ
215 --
216 end;
217 --
218 ben_beo_upd.upd
219 (
220 p_elig_obj_id => p_elig_obj_id
221 ,p_effective_start_date => l_effective_start_date
222 ,p_effective_end_date => l_effective_end_date
223 ,p_business_group_id => p_business_group_id
224 ,p_table_name => p_table_name
225 ,p_column_name => p_column_name
226 ,p_column_value => p_column_value
227 ,p_object_version_number => l_object_version_number
228 ,p_effective_date => trunc(p_effective_date)
229 ,p_datetrack_mode => p_datetrack_mode
230 );
231 --
232 begin
233 --
234 -- Start of API User Hook for the after hook of update_ELIG_OBJ
235 --
236 ben_ELIG_OBJ_bk2.update_ELIG_OBJ_a
237 (
238 p_elig_obj_id => p_elig_obj_id
239 ,p_effective_start_date => l_effective_start_date
240 ,p_effective_end_date => l_effective_end_date
241 ,p_business_group_id => p_business_group_id
242 ,p_table_name => p_table_name
243 ,p_column_name => p_column_name
244 ,p_column_value => p_column_value
245 ,p_object_version_number => l_object_version_number
246 ,p_effective_date => trunc(p_effective_date)
247 ,p_datetrack_mode => p_datetrack_mode
248 );
249 exception
250 when hr_api.cannot_find_prog_unit then
251 hr_api.cannot_find_prog_unit_error
252 (p_module_name => 'UPDATE_ELIG_OBJ'
253 ,p_hook_type => 'AP'
254 );
255 --
256 -- End of API User Hook for the after hook of update_ELIG_OBJ
257 --
258 end;
259 --
260 hr_utility.set_location(l_proc, 60);
261 --
262 -- When in validation only mode raise the Validate_Enabled exception
263 --
264 if p_validate then
265 raise hr_api.validate_enabled;
266 end if;
267 --
268 -- Set all output arguments
269 --
270 p_object_version_number := l_object_version_number;
271 p_effective_start_date := l_effective_start_date;
272 p_effective_end_date := l_effective_end_date;
273 --
274 hr_utility.set_location(' Leaving:'||l_proc, 70);
275 --
276 exception
277 --
278 when hr_api.validate_enabled then
279 --
280 -- As the Validate_Enabled exception has been raised
281 -- we must rollback to the savepoint
282 --
283 ROLLBACK TO update_ELIG_OBJ;
284 --
285 -- Only set output warning arguments
286 -- (Any key or derived arguments must be set to null
287 -- when validation only mode is being used.)
288 --
289 hr_utility.set_location(' Leaving:'||l_proc, 80);
290 --
291 when others then
292 --
293 -- A validation or unexpected error has occured
294 --
295 ROLLBACK TO update_ELIG_OBJ;
296 raise;
297 --
298 end update_ELIG_OBJ;
299 -- ----------------------------------------------------------------------------
300 -- |------------------------< delete_ELIG_OBJ >----------------------|
301 -- ----------------------------------------------------------------------------
302 --
303 procedure delete_ELIG_OBJ
304 (p_validate in boolean default false
305 ,p_elig_obj_id in number
306 ,p_effective_start_date out nocopy date
307 ,p_effective_end_date out nocopy date
308 ,p_object_version_number in out nocopy number
309 ,p_effective_date in date
310 ,p_datetrack_mode in varchar2
311 ) is
312 --
313 -- Declare cursors and local variables
314 --
315 l_proc varchar2(72) := g_package||'update_ELIG_OBJ';
316 l_object_version_number ben_elig_obj_f.object_version_number%TYPE;
317 l_effective_start_date ben_elig_obj_f.effective_start_date%TYPE;
318 l_effective_end_date ben_elig_obj_f.effective_end_date%TYPE;
319 --
320 begin
321 --
322 hr_utility.set_location('Entering:'|| l_proc, 10);
323 --
324 -- Issue a savepoint if operating in validation only mode
325 --
326 savepoint delete_ELIG_OBJ;
327 --
328 hr_utility.set_location(l_proc, 20);
329 --
330 -- Process Logic
331 --
332 l_object_version_number := p_object_version_number;
333 --
334 --
335 begin
336 --
337 -- Start of API User Hook for the before hook of delete_ELIG_OBJ
338 --
339 ben_ELIG_OBJ_bk3.delete_ELIG_OBJ_b
340 (
341 p_elig_obj_id => p_elig_obj_id
342 ,p_object_version_number => p_object_version_number
343 ,p_effective_date => trunc(p_effective_date)
344 ,p_datetrack_mode => p_datetrack_mode
345 );
346 exception
347 when hr_api.cannot_find_prog_unit then
348 hr_api.cannot_find_prog_unit_error
349 (p_module_name => 'DELETE_ELIG_OBJ'
350 ,p_hook_type => 'BP'
351 );
352 --
353 -- End of API User Hook for the before hook of delete_ELIG_OBJ
354 --
355 end;
356 --
357 ben_beo_del.del
358 (
359 p_elig_obj_id => p_elig_obj_id
360 ,p_effective_start_date => l_effective_start_date
361 ,p_effective_end_date => l_effective_end_date
365 );
362 ,p_object_version_number => l_object_version_number
363 ,p_effective_date => p_effective_date
364 ,p_datetrack_mode => p_datetrack_mode
366 --
367 begin
368 --
369 -- Start of API User Hook for the after hook of delete_ELIG_OBJ
370 --
371 ben_ELIG_OBJ_bk3.delete_ELIG_OBJ_a
372 (
373 p_elig_obj_id => p_elig_obj_id
374 ,p_effective_start_date => l_effective_start_date
375 ,p_effective_end_date => l_effective_end_date
376 ,p_object_version_number => l_object_version_number
377 ,p_effective_date => trunc(p_effective_date)
378 ,p_datetrack_mode => p_datetrack_mode
379 );
380 exception
381 when hr_api.cannot_find_prog_unit then
382 hr_api.cannot_find_prog_unit_error
383 (p_module_name => 'DELETE_ELIG_OBJ'
384 ,p_hook_type => 'AP'
385 );
386 --
387 -- End of API User Hook for the after hook of delete_ELIG_OBJ
388 --
389 end;
390 --
391 hr_utility.set_location(l_proc, 60);
392 --
393 -- When in validation only mode raise the Validate_Enabled exception
394 --
395 if p_validate then
396 raise hr_api.validate_enabled;
397 end if;
398 --
399 hr_utility.set_location(' Leaving:'||l_proc, 70);
400 --
401 exception
402 --
403 when hr_api.validate_enabled then
404 --
405 -- As the Validate_Enabled exception has been raised
406 -- we must rollback to the savepoint
407 --
408 ROLLBACK TO delete_ELIG_OBJ;
409 --
410 -- Only set output warning arguments
411 -- (Any key or derived arguments must be set to null
412 -- when validation only mode is being used.)
413 --
414 p_effective_start_date := null;
415 p_effective_end_date := null;
416 --
417 when others then
418 --
419 -- A validation or unexpected error has occured
420 --
421 ROLLBACK TO delete_ELIG_OBJ;
422 raise;
423 --
424 end delete_ELIG_OBJ;
425 --
426 -- ----------------------------------------------------------------------------
427 -- |-------------------------------< lck >------------------------------------|
428 -- ----------------------------------------------------------------------------
429 --
430 procedure lck
431 (
432 p_elig_obj_id in number
433 ,p_object_version_number in number
434 ,p_effective_date in date
435 ,p_datetrack_mode in varchar2
436 ,p_validation_start_date out nocopy date
437 ,p_validation_end_date out nocopy date
438 ) is
439 --
440 --
441 -- Declare cursors and local variables
442 --
443 l_proc varchar2(72) := g_package||'lck';
444 l_validation_start_date date;
445 l_validation_end_date date;
446 --
447 begin
448 --
449 hr_utility.set_location('Entering:'|| l_proc, 10);
450 --
451 ben_beo_shd.lck
452 (
453 p_elig_obj_id => p_elig_obj_id
454 ,p_validation_start_date => l_validation_start_date
455 ,p_validation_end_date => l_validation_end_date
456 ,p_object_version_number => p_object_version_number
457 ,p_effective_date => p_effective_date
458 ,p_datetrack_mode => p_datetrack_mode
459 );
460 --
461 hr_utility.set_location(' Leaving:'||l_proc, 70);
462 --
463 end lck;
464 --
465 end ben_ELIG_OBJ_api;