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