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