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