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