[Home] [Help]
PACKAGE BODY: APPS.BEN_SERVICE_AREA_API
Source
1 Package Body ben_SERVICE_AREA_api as
2 /* $Header: besvaapi.pkb 120.0 2005/05/28 11:53:36 appldev noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' ben_SERVICE_AREA_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_SERVICE_AREA >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_SERVICE_AREA
13 (p_validate in boolean default false
14 ,p_svc_area_id out nocopy number
15 ,p_effective_start_date out nocopy date
16 ,p_effective_end_date out nocopy date
17 ,p_name in varchar2 default null
18 ,p_org_unit_prdct in varchar2 default null
19 ,p_business_group_id in number default null
20 ,p_sva_attribute_category in varchar2 default null
21 ,p_sva_attribute1 in varchar2 default null
22 ,p_sva_attribute2 in varchar2 default null
23 ,p_sva_attribute3 in varchar2 default null
24 ,p_sva_attribute4 in varchar2 default null
25 ,p_sva_attribute5 in varchar2 default null
26 ,p_sva_attribute6 in varchar2 default null
27 ,p_sva_attribute7 in varchar2 default null
28 ,p_sva_attribute8 in varchar2 default null
29 ,p_sva_attribute9 in varchar2 default null
30 ,p_sva_attribute10 in varchar2 default null
31 ,p_sva_attribute11 in varchar2 default null
32 ,p_sva_attribute12 in varchar2 default null
33 ,p_sva_attribute13 in varchar2 default null
34 ,p_sva_attribute14 in varchar2 default null
35 ,p_sva_attribute15 in varchar2 default null
36 ,p_sva_attribute16 in varchar2 default null
37 ,p_sva_attribute17 in varchar2 default null
38 ,p_sva_attribute18 in varchar2 default null
39 ,p_sva_attribute19 in varchar2 default null
40 ,p_sva_attribute20 in varchar2 default null
41 ,p_sva_attribute21 in varchar2 default null
42 ,p_sva_attribute22 in varchar2 default null
43 ,p_sva_attribute23 in varchar2 default null
44 ,p_sva_attribute24 in varchar2 default null
45 ,p_sva_attribute25 in varchar2 default null
46 ,p_sva_attribute26 in varchar2 default null
47 ,p_sva_attribute27 in varchar2 default null
48 ,p_sva_attribute28 in varchar2 default null
49 ,p_sva_attribute29 in varchar2 default null
50 ,p_sva_attribute30 in varchar2 default null
51 ,p_object_version_number out nocopy number
52 ,p_effective_date in date
53 ) is
54 --
55 -- Declare cursors and local variables
56 --
57 l_svc_area_id ben_svc_area_f.svc_area_id%TYPE;
58 l_effective_start_date ben_svc_area_f.effective_start_date%TYPE;
59 l_effective_end_date ben_svc_area_f.effective_end_date%TYPE;
60 l_proc varchar2(72) := g_package||'create_SERVICE_AREA';
61 l_object_version_number ben_svc_area_f.object_version_number%TYPE;
62 --
63 begin
64 --
65 hr_utility.set_location('Entering:'|| l_proc, 10);
66 --
67 -- Issue a savepoint if operating in validation only mode
68 --
69 savepoint create_SERVICE_AREA;
70 --
71 hr_utility.set_location(l_proc, 20);
72 --
73 -- Process Logic
74 --
75 begin
76 --
77 -- Start of API User Hook for the before hook of create_SERVICE_AREA
78 --
79 ben_SERVICE_AREA_bk1.create_SERVICE_AREA_b
80 (
81 p_name => p_name
82 ,p_org_unit_prdct => p_org_unit_prdct
83 ,p_business_group_id => p_business_group_id
84 ,p_sva_attribute_category => p_sva_attribute_category
85 ,p_sva_attribute1 => p_sva_attribute1
86 ,p_sva_attribute2 => p_sva_attribute2
87 ,p_sva_attribute3 => p_sva_attribute3
88 ,p_sva_attribute4 => p_sva_attribute4
89 ,p_sva_attribute5 => p_sva_attribute5
90 ,p_sva_attribute6 => p_sva_attribute6
91 ,p_sva_attribute7 => p_sva_attribute7
92 ,p_sva_attribute8 => p_sva_attribute8
93 ,p_sva_attribute9 => p_sva_attribute9
94 ,p_sva_attribute10 => p_sva_attribute10
95 ,p_sva_attribute11 => p_sva_attribute11
96 ,p_sva_attribute12 => p_sva_attribute12
97 ,p_sva_attribute13 => p_sva_attribute13
98 ,p_sva_attribute14 => p_sva_attribute14
99 ,p_sva_attribute15 => p_sva_attribute15
100 ,p_sva_attribute16 => p_sva_attribute16
101 ,p_sva_attribute17 => p_sva_attribute17
102 ,p_sva_attribute18 => p_sva_attribute18
103 ,p_sva_attribute19 => p_sva_attribute19
104 ,p_sva_attribute20 => p_sva_attribute20
105 ,p_sva_attribute21 => p_sva_attribute21
106 ,p_sva_attribute22 => p_sva_attribute22
107 ,p_sva_attribute23 => p_sva_attribute23
108 ,p_sva_attribute24 => p_sva_attribute24
109 ,p_sva_attribute25 => p_sva_attribute25
110 ,p_sva_attribute26 => p_sva_attribute26
111 ,p_sva_attribute27 => p_sva_attribute27
112 ,p_sva_attribute28 => p_sva_attribute28
113 ,p_sva_attribute29 => p_sva_attribute29
114 ,p_sva_attribute30 => p_sva_attribute30
115 ,p_effective_date => trunc(p_effective_date)
116 );
117 exception
118 when hr_api.cannot_find_prog_unit then
119 hr_api.cannot_find_prog_unit_error
120 (
121 p_module_name => 'CREATE_SERVICE_AREA'
122 ,p_hook_type => 'BP'
123 );
124 --
125 -- End of API User Hook for the before hook of create_SERVICE_AREA
126 --
127 end;
128 --
129 ben_sva_ins.ins
130 (
131 p_svc_area_id => l_svc_area_id
132 ,p_effective_start_date => l_effective_start_date
133 ,p_effective_end_date => l_effective_end_date
134 ,p_name => p_name
135 ,p_org_unit_prdct => p_org_unit_prdct
136 ,p_business_group_id => p_business_group_id
137 ,p_sva_attribute_category => p_sva_attribute_category
138 ,p_sva_attribute1 => p_sva_attribute1
139 ,p_sva_attribute2 => p_sva_attribute2
140 ,p_sva_attribute3 => p_sva_attribute3
141 ,p_sva_attribute4 => p_sva_attribute4
142 ,p_sva_attribute5 => p_sva_attribute5
143 ,p_sva_attribute6 => p_sva_attribute6
144 ,p_sva_attribute7 => p_sva_attribute7
145 ,p_sva_attribute8 => p_sva_attribute8
146 ,p_sva_attribute9 => p_sva_attribute9
147 ,p_sva_attribute10 => p_sva_attribute10
148 ,p_sva_attribute11 => p_sva_attribute11
149 ,p_sva_attribute12 => p_sva_attribute12
150 ,p_sva_attribute13 => p_sva_attribute13
151 ,p_sva_attribute14 => p_sva_attribute14
152 ,p_sva_attribute15 => p_sva_attribute15
153 ,p_sva_attribute16 => p_sva_attribute16
154 ,p_sva_attribute17 => p_sva_attribute17
155 ,p_sva_attribute18 => p_sva_attribute18
156 ,p_sva_attribute19 => p_sva_attribute19
157 ,p_sva_attribute20 => p_sva_attribute20
158 ,p_sva_attribute21 => p_sva_attribute21
159 ,p_sva_attribute22 => p_sva_attribute22
160 ,p_sva_attribute23 => p_sva_attribute23
161 ,p_sva_attribute24 => p_sva_attribute24
162 ,p_sva_attribute25 => p_sva_attribute25
163 ,p_sva_attribute26 => p_sva_attribute26
164 ,p_sva_attribute27 => p_sva_attribute27
165 ,p_sva_attribute28 => p_sva_attribute28
166 ,p_sva_attribute29 => p_sva_attribute29
167 ,p_sva_attribute30 => p_sva_attribute30
168 ,p_object_version_number => l_object_version_number
169 ,p_effective_date => trunc(p_effective_date)
170 );
171 --
172 begin
173 --
174 -- Start of API User Hook for the after hook of create_SERVICE_AREA
175 --
176 ben_SERVICE_AREA_bk1.create_SERVICE_AREA_a
177 (
178 p_svc_area_id => l_svc_area_id
179 ,p_effective_start_date => l_effective_start_date
180 ,p_effective_end_date => l_effective_end_date
181 ,p_name => p_name
182 ,p_org_unit_prdct => p_org_unit_prdct
183 ,p_business_group_id => p_business_group_id
184 ,p_sva_attribute_category => p_sva_attribute_category
185 ,p_sva_attribute1 => p_sva_attribute1
186 ,p_sva_attribute2 => p_sva_attribute2
187 ,p_sva_attribute3 => p_sva_attribute3
188 ,p_sva_attribute4 => p_sva_attribute4
189 ,p_sva_attribute5 => p_sva_attribute5
190 ,p_sva_attribute6 => p_sva_attribute6
191 ,p_sva_attribute7 => p_sva_attribute7
192 ,p_sva_attribute8 => p_sva_attribute8
193 ,p_sva_attribute9 => p_sva_attribute9
194 ,p_sva_attribute10 => p_sva_attribute10
195 ,p_sva_attribute11 => p_sva_attribute11
196 ,p_sva_attribute12 => p_sva_attribute12
197 ,p_sva_attribute13 => p_sva_attribute13
198 ,p_sva_attribute14 => p_sva_attribute14
199 ,p_sva_attribute15 => p_sva_attribute15
200 ,p_sva_attribute16 => p_sva_attribute16
201 ,p_sva_attribute17 => p_sva_attribute17
202 ,p_sva_attribute18 => p_sva_attribute18
203 ,p_sva_attribute19 => p_sva_attribute19
204 ,p_sva_attribute20 => p_sva_attribute20
205 ,p_sva_attribute21 => p_sva_attribute21
206 ,p_sva_attribute22 => p_sva_attribute22
207 ,p_sva_attribute23 => p_sva_attribute23
208 ,p_sva_attribute24 => p_sva_attribute24
209 ,p_sva_attribute25 => p_sva_attribute25
210 ,p_sva_attribute26 => p_sva_attribute26
211 ,p_sva_attribute27 => p_sva_attribute27
212 ,p_sva_attribute28 => p_sva_attribute28
213 ,p_sva_attribute29 => p_sva_attribute29
214 ,p_sva_attribute30 => p_sva_attribute30
215 ,p_object_version_number => l_object_version_number
216 ,p_effective_date => trunc(p_effective_date)
217 );
218 exception
219 when hr_api.cannot_find_prog_unit then
220 hr_api.cannot_find_prog_unit_error
221 (p_module_name => 'CREATE_SERVICE_AREA'
222 ,p_hook_type => 'AP'
223 );
224 --
225 -- End of API User Hook for the after hook of create_SERVICE_AREA
226 --
227 end;
228 --
229 hr_utility.set_location(l_proc, 60);
230 --
231 -- When in validation only mode raise the Validate_Enabled exception
232 --
233 if p_validate then
234 raise hr_api.validate_enabled;
235 end if;
236 --
237 -- Set all output arguments
238 --
239 p_svc_area_id := l_svc_area_id;
240 p_effective_start_date := l_effective_start_date;
241 p_effective_end_date := l_effective_end_date;
242 p_object_version_number := l_object_version_number;
243 --
244 hr_utility.set_location(' Leaving:'||l_proc, 70);
245 --
246 exception
247 --
248 when hr_api.validate_enabled then
249 --
250 -- As the Validate_Enabled exception has been raised
251 -- we must rollback to the savepoint
252 --
253 ROLLBACK TO create_SERVICE_AREA;
254 --
255 -- Only set output warning arguments
256 -- (Any key or derived arguments must be set to null
257 -- when validation only mode is being used.)
258 --
259 p_svc_area_id := null;
260 p_effective_start_date := null;
261 p_effective_end_date := null;
262 p_object_version_number := null;
263 hr_utility.set_location(' Leaving:'||l_proc, 80);
264 --
265 when others then
266 --
267 -- A validation or unexpected error has occured
268 --
269 ROLLBACK TO create_SERVICE_AREA;
270 --
271 p_svc_area_id := null;
272 p_effective_start_date := null;
273 p_effective_end_date := null;
274 p_object_version_number := null;
275 hr_utility.set_location(' Leaving:'||l_proc, 80);
276 --
277 raise;
278 --
279 end create_SERVICE_AREA;
280 -- ----------------------------------------------------------------------------
281 -- |------------------------< update_SERVICE_AREA >--- ------------------|
282 -- ----------------------------------------------------------------------------
283 --
284 procedure update_SERVICE_AREA
285 (p_validate in boolean default false
286 ,p_svc_area_id in number
287 ,p_effective_start_date out nocopy date
288 ,p_effective_end_date out nocopy date
289 ,p_name in varchar2 default hr_api.g_varchar2
290 ,p_org_unit_prdct in varchar2 default hr_api.g_varchar2
291 ,p_business_group_id in number default hr_api.g_number
292 ,p_sva_attribute_category in varchar2 default hr_api.g_varchar2
296 ,p_sva_attribute4 in varchar2 default hr_api.g_varchar2
293 ,p_sva_attribute1 in varchar2 default hr_api.g_varchar2
294 ,p_sva_attribute2 in varchar2 default hr_api.g_varchar2
295 ,p_sva_attribute3 in varchar2 default hr_api.g_varchar2
297 ,p_sva_attribute5 in varchar2 default hr_api.g_varchar2
298 ,p_sva_attribute6 in varchar2 default hr_api.g_varchar2
299 ,p_sva_attribute7 in varchar2 default hr_api.g_varchar2
300 ,p_sva_attribute8 in varchar2 default hr_api.g_varchar2
301 ,p_sva_attribute9 in varchar2 default hr_api.g_varchar2
302 ,p_sva_attribute10 in varchar2 default hr_api.g_varchar2
303 ,p_sva_attribute11 in varchar2 default hr_api.g_varchar2
304 ,p_sva_attribute12 in varchar2 default hr_api.g_varchar2
305 ,p_sva_attribute13 in varchar2 default hr_api.g_varchar2
306 ,p_sva_attribute14 in varchar2 default hr_api.g_varchar2
307 ,p_sva_attribute15 in varchar2 default hr_api.g_varchar2
308 ,p_sva_attribute16 in varchar2 default hr_api.g_varchar2
309 ,p_sva_attribute17 in varchar2 default hr_api.g_varchar2
310 ,p_sva_attribute18 in varchar2 default hr_api.g_varchar2
311 ,p_sva_attribute19 in varchar2 default hr_api.g_varchar2
312 ,p_sva_attribute20 in varchar2 default hr_api.g_varchar2
313 ,p_sva_attribute21 in varchar2 default hr_api.g_varchar2
314 ,p_sva_attribute22 in varchar2 default hr_api.g_varchar2
315 ,p_sva_attribute23 in varchar2 default hr_api.g_varchar2
316 ,p_sva_attribute24 in varchar2 default hr_api.g_varchar2
317 ,p_sva_attribute25 in varchar2 default hr_api.g_varchar2
318 ,p_sva_attribute26 in varchar2 default hr_api.g_varchar2
319 ,p_sva_attribute27 in varchar2 default hr_api.g_varchar2
320 ,p_sva_attribute28 in varchar2 default hr_api.g_varchar2
321 ,p_sva_attribute29 in varchar2 default hr_api.g_varchar2
322 ,p_sva_attribute30 in varchar2 default hr_api.g_varchar2
323 ,p_object_version_number in out nocopy number
324 ,p_effective_date in date
325 ,p_datetrack_mode in varchar2
326 ) is
327 --
328 -- Declare cursors and local variables
329 --
330 l_proc varchar2(72) := g_package||'update_SERVICE_AREA';
331 l_object_version_number ben_svc_area_f.object_version_number%TYPE;
332 l_effective_start_date ben_svc_area_f.effective_start_date%TYPE;
333 l_effective_end_date ben_svc_area_f.effective_end_date%TYPE;
334 --
335 begin
336 --
337 hr_utility.set_location('Entering:'|| l_proc, 10);
338 --
339 -- Issue a savepoint if operating in validation only mode
340 --
341 savepoint update_SERVICE_AREA;
342 --
343 hr_utility.set_location(l_proc, 20);
344 --
345 -- Process Logic
346 --
347 l_object_version_number := p_object_version_number;
348 --
349 begin
350 --
351 -- Start of API User Hook for the before hook of update_SERVICE_AREA
352 --
353 ben_SERVICE_AREA_bk2.update_SERVICE_AREA_b
354 (
355 p_svc_area_id => p_svc_area_id
356 ,p_name => p_name
357 ,p_org_unit_prdct => p_org_unit_prdct
358 ,p_business_group_id => p_business_group_id
359 ,p_sva_attribute_category => p_sva_attribute_category
360 ,p_sva_attribute1 => p_sva_attribute1
361 ,p_sva_attribute2 => p_sva_attribute2
362 ,p_sva_attribute3 => p_sva_attribute3
363 ,p_sva_attribute4 => p_sva_attribute4
364 ,p_sva_attribute5 => p_sva_attribute5
365 ,p_sva_attribute6 => p_sva_attribute6
366 ,p_sva_attribute7 => p_sva_attribute7
367 ,p_sva_attribute8 => p_sva_attribute8
368 ,p_sva_attribute9 => p_sva_attribute9
369 ,p_sva_attribute10 => p_sva_attribute10
370 ,p_sva_attribute11 => p_sva_attribute11
371 ,p_sva_attribute12 => p_sva_attribute12
372 ,p_sva_attribute13 => p_sva_attribute13
373 ,p_sva_attribute14 => p_sva_attribute14
374 ,p_sva_attribute15 => p_sva_attribute15
375 ,p_sva_attribute16 => p_sva_attribute16
376 ,p_sva_attribute17 => p_sva_attribute17
377 ,p_sva_attribute18 => p_sva_attribute18
378 ,p_sva_attribute19 => p_sva_attribute19
379 ,p_sva_attribute20 => p_sva_attribute20
380 ,p_sva_attribute21 => p_sva_attribute21
381 ,p_sva_attribute22 => p_sva_attribute22
382 ,p_sva_attribute23 => p_sva_attribute23
383 ,p_sva_attribute24 => p_sva_attribute24
384 ,p_sva_attribute25 => p_sva_attribute25
385 ,p_sva_attribute26 => p_sva_attribute26
386 ,p_sva_attribute27 => p_sva_attribute27
387 ,p_sva_attribute28 => p_sva_attribute28
388 ,p_sva_attribute29 => p_sva_attribute29
392 ,p_datetrack_mode => p_datetrack_mode
389 ,p_sva_attribute30 => p_sva_attribute30
390 ,p_object_version_number => p_object_version_number
391 ,p_effective_date => trunc(p_effective_date)
393 );
394 exception
395 when hr_api.cannot_find_prog_unit then
396 hr_api.cannot_find_prog_unit_error
397 (p_module_name => 'UPDATE_SERVICE_AREA'
398 ,p_hook_type => 'BP'
399 );
400 --
401 -- End of API User Hook for the before hook of update_SERVICE_AREA
402 --
403 end;
404 --
405 ben_sva_upd.upd
406 (
407 p_svc_area_id => p_svc_area_id
408 ,p_effective_start_date => l_effective_start_date
409 ,p_effective_end_date => l_effective_end_date
410 ,p_name => p_name
411 ,p_org_unit_prdct => p_org_unit_prdct
412 ,p_business_group_id => p_business_group_id
413 ,p_sva_attribute_category => p_sva_attribute_category
414 ,p_sva_attribute1 => p_sva_attribute1
415 ,p_sva_attribute2 => p_sva_attribute2
416 ,p_sva_attribute3 => p_sva_attribute3
417 ,p_sva_attribute4 => p_sva_attribute4
418 ,p_sva_attribute5 => p_sva_attribute5
419 ,p_sva_attribute6 => p_sva_attribute6
420 ,p_sva_attribute7 => p_sva_attribute7
421 ,p_sva_attribute8 => p_sva_attribute8
422 ,p_sva_attribute9 => p_sva_attribute9
423 ,p_sva_attribute10 => p_sva_attribute10
424 ,p_sva_attribute11 => p_sva_attribute11
425 ,p_sva_attribute12 => p_sva_attribute12
426 ,p_sva_attribute13 => p_sva_attribute13
427 ,p_sva_attribute14 => p_sva_attribute14
428 ,p_sva_attribute15 => p_sva_attribute15
429 ,p_sva_attribute16 => p_sva_attribute16
430 ,p_sva_attribute17 => p_sva_attribute17
431 ,p_sva_attribute18 => p_sva_attribute18
432 ,p_sva_attribute19 => p_sva_attribute19
433 ,p_sva_attribute20 => p_sva_attribute20
434 ,p_sva_attribute21 => p_sva_attribute21
435 ,p_sva_attribute22 => p_sva_attribute22
436 ,p_sva_attribute23 => p_sva_attribute23
437 ,p_sva_attribute24 => p_sva_attribute24
438 ,p_sva_attribute25 => p_sva_attribute25
439 ,p_sva_attribute26 => p_sva_attribute26
440 ,p_sva_attribute27 => p_sva_attribute27
441 ,p_sva_attribute28 => p_sva_attribute28
442 ,p_sva_attribute29 => p_sva_attribute29
443 ,p_sva_attribute30 => p_sva_attribute30
444 ,p_object_version_number => l_object_version_number
445 ,p_effective_date => trunc(p_effective_date)
446 ,p_datetrack_mode => p_datetrack_mode
447 );
448 --
449 begin
450 --
451 -- Start of API User Hook for the after hook of update_SERVICE_AREA
452 --
453 ben_SERVICE_AREA_bk2.update_SERVICE_AREA_a
454 (
455 p_svc_area_id => p_svc_area_id
456 ,p_effective_start_date => l_effective_start_date
457 ,p_effective_end_date => l_effective_end_date
458 ,p_name => p_name
459 ,p_org_unit_prdct => p_org_unit_prdct
460 ,p_business_group_id => p_business_group_id
461 ,p_sva_attribute_category => p_sva_attribute_category
462 ,p_sva_attribute1 => p_sva_attribute1
463 ,p_sva_attribute2 => p_sva_attribute2
464 ,p_sva_attribute3 => p_sva_attribute3
465 ,p_sva_attribute4 => p_sva_attribute4
466 ,p_sva_attribute5 => p_sva_attribute5
467 ,p_sva_attribute6 => p_sva_attribute6
468 ,p_sva_attribute7 => p_sva_attribute7
469 ,p_sva_attribute8 => p_sva_attribute8
470 ,p_sva_attribute9 => p_sva_attribute9
471 ,p_sva_attribute10 => p_sva_attribute10
472 ,p_sva_attribute11 => p_sva_attribute11
473 ,p_sva_attribute12 => p_sva_attribute12
474 ,p_sva_attribute13 => p_sva_attribute13
475 ,p_sva_attribute14 => p_sva_attribute14
476 ,p_sva_attribute15 => p_sva_attribute15
477 ,p_sva_attribute16 => p_sva_attribute16
478 ,p_sva_attribute17 => p_sva_attribute17
479 ,p_sva_attribute18 => p_sva_attribute18
480 ,p_sva_attribute19 => p_sva_attribute19
481 ,p_sva_attribute20 => p_sva_attribute20
482 ,p_sva_attribute21 => p_sva_attribute21
483 ,p_sva_attribute22 => p_sva_attribute22
484 ,p_sva_attribute23 => p_sva_attribute23
485 ,p_sva_attribute24 => p_sva_attribute24
486 ,p_sva_attribute25 => p_sva_attribute25
487 ,p_sva_attribute26 => p_sva_attribute26
488 ,p_sva_attribute27 => p_sva_attribute27
489 ,p_sva_attribute28 => p_sva_attribute28
490 ,p_sva_attribute29 => p_sva_attribute29
494 ,p_datetrack_mode => p_datetrack_mode
491 ,p_sva_attribute30 => p_sva_attribute30
492 ,p_object_version_number => l_object_version_number
493 ,p_effective_date => trunc(p_effective_date)
495 );
496 exception
497 when hr_api.cannot_find_prog_unit then
498 hr_api.cannot_find_prog_unit_error
499 (p_module_name => 'UPDATE_SERVICE_AREA'
500 ,p_hook_type => 'AP'
501 );
502 --
503 -- End of API User Hook for the after hook of update_SERVICE_AREA
504 --
505 end;
506 --
507 hr_utility.set_location(l_proc, 60);
508 --
509 -- When in validation only mode raise the Validate_Enabled exception
510 --
511 if p_validate then
512 raise hr_api.validate_enabled;
513 end if;
514 --
515 -- Set all output arguments
516 --
517 p_object_version_number := l_object_version_number;
518 p_effective_start_date := l_effective_start_date;
519 p_effective_end_date := l_effective_end_date;
520 --
521 hr_utility.set_location(' Leaving:'||l_proc, 70);
522 --
523 exception
524 --
525 when hr_api.validate_enabled then
526 --
527 -- As the Validate_Enabled exception has been raised
528 -- we must rollback to the savepoint
529 --
530 ROLLBACK TO update_SERVICE_AREA;
531 --
532 -- Only set output warning arguments
533 -- (Any key or derived arguments must be set to null
534 -- when validation only mode is being used.)
535 --
536 hr_utility.set_location(' Leaving:'||l_proc, 80);
537 --
538 when others then
539 --
540 -- A validation or unexpected error has occured
541 --
542 ROLLBACK TO update_SERVICE_AREA;
543 --
544 p_effective_start_date := null;
545 p_effective_end_date := null;
546 p_object_version_number := l_object_version_number;
547 hr_utility.set_location(' Leaving:'||l_proc, 80);
548 --
549 raise;
550 --
551 end update_SERVICE_AREA;
552 -- ----------------------------------------------------------------------------
553 -- |------------------------< delete_SERVICE_AREA >----------------------|
554 -- ----------------------------------------------------------------------------
555 --
556 procedure delete_SERVICE_AREA
557 (p_validate in boolean default false
558 ,p_svc_area_id in number
559 ,p_effective_start_date out nocopy date
560 ,p_effective_end_date out nocopy date
561 ,p_object_version_number in out nocopy number
562 ,p_effective_date in date
563 ,p_datetrack_mode in varchar2
564 ) is
565 --
566 -- Declare cursors and local variables
567 --
568 l_proc varchar2(72) := g_package||'update_SERVICE_AREA';
569 l_object_version_number ben_svc_area_f.object_version_number%TYPE;
570 l_effective_start_date ben_svc_area_f.effective_start_date%TYPE;
571 l_effective_end_date ben_svc_area_f.effective_end_date%TYPE;
572 --
573 begin
574 --
575 hr_utility.set_location('Entering:'|| l_proc, 10);
576 --
577 -- Issue a savepoint if operating in validation only mode
578 --
579 savepoint delete_SERVICE_AREA;
580 --
581 hr_utility.set_location(l_proc, 20);
582 --
583 -- Process Logic
584 --
585 l_object_version_number := p_object_version_number;
586 --
587 --
588 begin
589 --
590 -- Start of API User Hook for the before hook of delete_SERVICE_AREA
591 --
592 ben_SERVICE_AREA_bk3.delete_SERVICE_AREA_b
593 (
594 p_svc_area_id => p_svc_area_id
595 ,p_object_version_number => p_object_version_number
596 ,p_effective_date => trunc(p_effective_date)
597 ,p_datetrack_mode => p_datetrack_mode
598 );
599 exception
600 when hr_api.cannot_find_prog_unit then
601 hr_api.cannot_find_prog_unit_error
602 (p_module_name => 'DELETE_SERVICE_AREA'
603 ,p_hook_type => 'BP'
604 );
605 --
606 -- End of API User Hook for the before hook of delete_SERVICE_AREA
607 --
608 end;
609 --
610 ben_sva_del.del
611 (
612 p_svc_area_id => p_svc_area_id
613 ,p_effective_start_date => l_effective_start_date
614 ,p_effective_end_date => l_effective_end_date
615 ,p_object_version_number => l_object_version_number
616 ,p_effective_date => p_effective_date
617 ,p_datetrack_mode => p_datetrack_mode
618 );
619 --
620 begin
621 --
622 -- Start of API User Hook for the after hook of delete_SERVICE_AREA
623 --
624 ben_SERVICE_AREA_bk3.delete_SERVICE_AREA_a
625 (
626 p_svc_area_id => p_svc_area_id
627 ,p_effective_start_date => l_effective_start_date
628 ,p_effective_end_date => l_effective_end_date
629 ,p_object_version_number => l_object_version_number
630 ,p_effective_date => trunc(p_effective_date)
631 ,p_datetrack_mode => p_datetrack_mode
632 );
633 exception
634 when hr_api.cannot_find_prog_unit then
635 hr_api.cannot_find_prog_unit_error
636 (p_module_name => 'DELETE_SERVICE_AREA'
637 ,p_hook_type => 'AP'
638 );
639 --
640 -- End of API User Hook for the after hook of delete_SERVICE_AREA
641 --
642 end;
643 --
644 hr_utility.set_location(l_proc, 60);
645 --
646 -- When in validation only mode raise the Validate_Enabled exception
647 --
648 if p_validate then
649 raise hr_api.validate_enabled;
650 end if;
651 --
652 hr_utility.set_location(' Leaving:'||l_proc, 70);
653 --
654 exception
655 --
656 when hr_api.validate_enabled then
657 --
658 -- As the Validate_Enabled exception has been raised
659 -- we must rollback to the savepoint
660 --
661 ROLLBACK TO delete_SERVICE_AREA;
662 --
663 -- Only set output warning arguments
664 -- (Any key or derived arguments must be set to null
665 -- when validation only mode is being used.)
666 --
667 p_effective_start_date := null;
668 p_effective_end_date := null;
669 --
670 when others then
671 --
672 -- A validation or unexpected error has occured
673 --
674 ROLLBACK TO delete_SERVICE_AREA;
675 --
676 p_effective_start_date := null;
677 p_effective_end_date := null;
678 p_object_version_number := l_object_version_number;
679 hr_utility.set_location(' Leaving:'||l_proc, 80);
680 --
681 raise;
682 --
683 end delete_SERVICE_AREA;
684 --
685 -- ----------------------------------------------------------------------------
686 -- |-------------------------------< lck >------------------------------------|
687 -- ----------------------------------------------------------------------------
688 --
689 procedure lck
690 (
691 p_svc_area_id in number
692 ,p_object_version_number in number
693 ,p_effective_date in date
694 ,p_datetrack_mode in varchar2
695 ,p_validation_start_date out nocopy date
696 ,p_validation_end_date out nocopy date
697 ) is
698 --
699 --
700 -- Declare cursors and local variables
701 --
702 l_proc varchar2(72) := g_package||'lck';
703 l_validation_start_date date;
704 l_validation_end_date date;
705 --
706 begin
707 --
708 hr_utility.set_location('Entering:'|| l_proc, 10);
709 --
710 ben_sva_shd.lck
711 (
712 p_svc_area_id => p_svc_area_id
713 ,p_validation_start_date => l_validation_start_date
714 ,p_validation_end_date => l_validation_end_date
715 ,p_object_version_number => p_object_version_number
716 ,p_effective_date => p_effective_date
717 ,p_datetrack_mode => p_datetrack_mode
718 );
719 --
720 hr_utility.set_location(' Leaving:'||l_proc, 70);
721 --
722 end lck;
723 --
724 end ben_SERVICE_AREA_api;