[Home] [Help]
PACKAGE BODY: APPS.HR_DELIVERY_METHODS_API
Source
1 Package Body hr_delivery_methods_api as
2 /* $Header: pepdmapi.pkb 115.5 2002/12/11 12:28:40 pkakar ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' hr_delivery_methods_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_delivery_method >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_delivery_method
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_person_id in number
16 ,p_comm_dlvry_method in varchar2
17 ,p_date_start in date
18 ,p_date_end in date default hr_api.g_eot
19 ,p_preferred_flag in varchar2 default 'N'
20 ,p_request_id in number default null
21 ,p_program_update_date in date default null
22 ,p_program_application_id in number default null
23 ,p_program_id in number default null
24 ,p_attribute_category in varchar2 default null
25 ,p_attribute1 in varchar2 default null
26 ,p_attribute2 in varchar2 default null
27 ,p_attribute3 in varchar2 default null
28 ,p_attribute4 in varchar2 default null
29 ,p_attribute5 in varchar2 default null
30 ,p_attribute6 in varchar2 default null
31 ,p_attribute7 in varchar2 default null
32 ,p_attribute8 in varchar2 default null
33 ,p_attribute9 in varchar2 default null
34 ,p_attribute10 in varchar2 default null
35 ,p_attribute11 in varchar2 default null
36 ,p_attribute12 in varchar2 default null
37 ,p_attribute13 in varchar2 default null
38 ,p_attribute14 in varchar2 default null
39 ,p_attribute15 in varchar2 default null
40 ,p_attribute16 in varchar2 default null
41 ,p_attribute17 in varchar2 default null
42 ,p_attribute18 in varchar2 default null
43 ,p_attribute19 in varchar2 default null
44 ,p_attribute20 in varchar2 default null
45 ,p_delivery_method_id out nocopy number
46 ,p_object_version_number out nocopy number
47 ) is
48 --
49 -- Declare cursors and local variables
50 --
51 l_delivery_method_id per_person_dlvry_methods.delivery_method_id%TYPE;
52 l_proc varchar2(72) := g_package||'create_delivery_method';
53 l_object_version_number per_person_dlvry_methods.object_version_number%TYPE;
54 l_effective_date date;
55 --
56 begin
57 --
58 hr_utility.set_location('Entering:'|| l_proc, 10);
59 --
60 -- Issue a savepoint
61 --
62 savepoint create_delivery_method;
63 --
64 hr_utility.set_location(l_proc, 20);
65 --
66 -- Process Logic
67 --
68 l_effective_date := trunc(p_effective_date);
69 --
70 begin
71 --
72 -- Start of API User Hook for the before hook of create_delivery_methods
73 --
74 hr_delivery_methods_bk1.create_delivery_method_b
75 (
76 p_effective_date => l_effective_date
77 ,p_date_start => p_date_start
78 ,p_date_end => p_date_end
79 ,p_person_id => p_person_id
80 ,p_comm_dlvry_method => p_comm_dlvry_method
81 ,p_preferred_flag => p_preferred_flag
82 ,p_request_id => p_request_id
83 ,p_program_update_date => p_program_update_date
84 ,p_program_application_id => p_program_application_id
85 ,p_program_id => p_program_id
86 ,p_attribute_category => p_attribute_category
87 ,p_attribute1 => p_attribute1
88 ,p_attribute2 => p_attribute2
89 ,p_attribute3 => p_attribute3
90 ,p_attribute4 => p_attribute4
91 ,p_attribute5 => p_attribute5
92 ,p_attribute6 => p_attribute6
93 ,p_attribute7 => p_attribute7
94 ,p_attribute8 => p_attribute8
95 ,p_attribute9 => p_attribute9
96 ,p_attribute10 => p_attribute10
97 ,p_attribute11 => p_attribute11
98 ,p_attribute12 => p_attribute12
99 ,p_attribute13 => p_attribute13
100 ,p_attribute14 => p_attribute14
101 ,p_attribute15 => p_attribute15
102 ,p_attribute16 => p_attribute16
103 ,p_attribute17 => p_attribute17
104 ,p_attribute18 => p_attribute18
105 ,p_attribute19 => p_attribute19
106 ,p_attribute20 => p_attribute20
107 );
108 exception
109 when hr_api.cannot_find_prog_unit then
110 hr_api.cannot_find_prog_unit_error
111 (
112 p_module_name => 'CREATE_DELIVERY_METHOD'
113 ,p_hook_type => 'BP'
114 );
115 --
116 -- End of API User Hook for the before hook of create_delivery_method
117 --
118 end;
119 --
120 per_pdm_ins.ins
121 (
122 p_delivery_method_id => l_delivery_method_id
123 ,p_date_start => p_date_start
124 ,p_date_end => p_date_end
125 ,p_person_id => p_person_id
126 ,p_comm_dlvry_method => p_comm_dlvry_method
127 ,p_preferred_flag => p_preferred_flag
128 ,p_object_version_number => l_object_version_number
129 ,p_request_id => p_request_id
130 ,p_program_update_date => p_program_update_date
131 ,p_program_application_id => p_program_application_id
132 ,p_program_id => p_program_id
133 ,p_attribute_category => p_attribute_category
134 ,p_attribute1 => p_attribute1
135 ,p_attribute2 => p_attribute2
136 ,p_attribute3 => p_attribute3
137 ,p_attribute4 => p_attribute4
138 ,p_attribute5 => p_attribute5
139 ,p_attribute6 => p_attribute6
140 ,p_attribute7 => p_attribute7
141 ,p_attribute8 => p_attribute8
142 ,p_attribute9 => p_attribute9
143 ,p_attribute10 => p_attribute10
144 ,p_attribute11 => p_attribute11
145 ,p_attribute12 => p_attribute12
146 ,p_attribute13 => p_attribute13
147 ,p_attribute14 => p_attribute14
148 ,p_attribute15 => p_attribute15
149 ,p_attribute16 => p_attribute16
150 ,p_attribute17 => p_attribute17
151 ,p_attribute18 => p_attribute18
152 ,p_attribute19 => p_attribute19
153 ,p_attribute20 => p_attribute20
154 ,p_effective_date => l_effective_date
155 );
156 --
157 begin
158 --
159 -- Start of API User Hook for the after hook of create_delivery_methods
160 --
161 hr_delivery_methods_bk1.create_delivery_method_a
162 (
163 p_delivery_method_id => l_delivery_method_id
164 ,p_date_start => p_date_start
165 ,p_date_end => p_date_end
166 ,p_person_id => p_person_id
167 ,p_comm_dlvry_method => p_comm_dlvry_method
168 ,p_preferred_flag => p_preferred_flag
169 ,p_object_version_number => l_object_version_number
170 ,p_request_id => p_request_id
171 ,p_program_update_date => p_program_update_date
172 ,p_program_application_id => p_program_application_id
173 ,p_program_id => p_program_id
174 ,p_attribute_category => p_attribute_category
175 ,p_attribute1 => p_attribute1
176 ,p_attribute2 => p_attribute2
177 ,p_attribute3 => p_attribute3
178 ,p_attribute4 => p_attribute4
179 ,p_attribute5 => p_attribute5
180 ,p_attribute6 => p_attribute6
181 ,p_attribute7 => p_attribute7
182 ,p_attribute8 => p_attribute8
183 ,p_attribute9 => p_attribute9
184 ,p_attribute10 => p_attribute10
185 ,p_attribute11 => p_attribute11
186 ,p_attribute12 => p_attribute12
187 ,p_attribute13 => p_attribute13
188 ,p_attribute14 => p_attribute14
189 ,p_attribute15 => p_attribute15
190 ,p_attribute16 => p_attribute16
191 ,p_attribute17 => p_attribute17
192 ,p_attribute18 => p_attribute18
193 ,p_attribute19 => p_attribute19
194 ,p_attribute20 => p_attribute20
195 ,p_effective_date => l_effective_date
196 );
197 exception
198 when hr_api.cannot_find_prog_unit then
199 hr_api.cannot_find_prog_unit_error
200 (p_module_name => 'CREATE_DELIVERY_METHOD'
201 ,p_hook_type => 'AP'
202 );
203 --
204 -- End of API User Hook for the after hook of create_delivery_method
205 --
206 end;
207 --
208 hr_utility.set_location(l_proc, 60);
209 --
210 -- When in validation only mode raise the Validate_Enabled exception
211 --
212 if p_validate then
213 raise hr_api.validate_enabled;
214 end if;
215 --
216 -- Set all output arguments
217 --
218 p_delivery_method_id := l_delivery_method_id;
219 p_object_version_number := l_object_version_number;
220 --
221 hr_utility.set_location(' Leaving:'||l_proc, 70);
222 --
223 exception
224 --
225 when hr_api.validate_enabled then
226 --
227 -- As the Validate_Enabled exception has been raised
228 -- we must rollback to the savepoint
229 --
230 ROLLBACK TO create_delivery_method;
231 --
232 -- Only set output warning arguments
233 -- (Any key or derived arguments must be set to null
234 -- when validation only mode is being used.)
235 --
236 p_delivery_method_id := null;
237 p_object_version_number := null;
238 --
239 hr_utility.set_location(' Leaving:'||l_proc, 80);
240 --
241 when others then
242 --
243 -- A validation or unexpected error has occurred
244 --
245 ROLLBACK TO create_delivery_method;
246 --
247 -- set in out parameters and set out parameters
248 --
249 p_delivery_method_id := null;
250 p_object_version_number := null;
251 --
252 raise;
253 --
254 end create_delivery_method;
255 --
256 -- ----------------------------------------------------------------------------
257 -- |------------------------< update_delivery_method >----------------------|
258 -- ----------------------------------------------------------------------------
259 --
260 procedure update_delivery_method
261 (p_validate in boolean default false
262 ,p_effective_date in date
263 ,p_delivery_method_id in number
264 ,p_object_version_number in out nocopy number
265 ,p_date_start in date default hr_api.g_date
266 ,p_date_end in date default hr_api.g_date
267 ,p_comm_dlvry_method in varchar2 default hr_api.g_varchar2
268 ,p_preferred_flag in varchar2 default hr_api.g_varchar2
269 ,p_request_id in number default hr_api.g_number
270 ,p_program_update_date in date default hr_api.g_date
271 ,p_program_application_id in number default hr_api.g_number
272 ,p_program_id in number default hr_api.g_number
273 ,p_attribute_category in varchar2 default hr_api.g_varchar2
274 ,p_attribute1 in varchar2 default hr_api.g_varchar2
275 ,p_attribute2 in varchar2 default hr_api.g_varchar2
276 ,p_attribute3 in varchar2 default hr_api.g_varchar2
277 ,p_attribute4 in varchar2 default hr_api.g_varchar2
278 ,p_attribute5 in varchar2 default hr_api.g_varchar2
279 ,p_attribute6 in varchar2 default hr_api.g_varchar2
280 ,p_attribute7 in varchar2 default hr_api.g_varchar2
281 ,p_attribute8 in varchar2 default hr_api.g_varchar2
282 ,p_attribute9 in varchar2 default hr_api.g_varchar2
283 ,p_attribute10 in varchar2 default hr_api.g_varchar2
284 ,p_attribute11 in varchar2 default hr_api.g_varchar2
285 ,p_attribute12 in varchar2 default hr_api.g_varchar2
286 ,p_attribute13 in varchar2 default hr_api.g_varchar2
287 ,p_attribute14 in varchar2 default hr_api.g_varchar2
288 ,p_attribute15 in varchar2 default hr_api.g_varchar2
289 ,p_attribute16 in varchar2 default hr_api.g_varchar2
290 ,p_attribute17 in varchar2 default hr_api.g_varchar2
291 ,p_attribute18 in varchar2 default hr_api.g_varchar2
292 ,p_attribute19 in varchar2 default hr_api.g_varchar2
293 ,p_attribute20 in varchar2 default hr_api.g_varchar2
294 ) is
295 --
296 -- Declare cursors and local variables
297 --
298 l_proc varchar2(72) := g_package||'update_delivery_method';
299 l_object_version_number per_person_dlvry_methods.object_version_number%TYPE;
300 l_ovn per_person_dlvry_methods.object_version_number%TYPE := p_object_version_number;
301 l_effective_date date;
302 --
303 begin
304 --
305 hr_utility.set_location('Entering:'|| l_proc, 10);
306 --
307 -- Issue a savepoint
308 --
309 savepoint update_delivery_method;
310 --
311 hr_utility.set_location(l_proc, 20);
312 --
313 -- Process Logic
314 --
315 l_object_version_number := p_object_version_number;
316 l_effective_date := trunc(p_effective_date);
317 --
318 begin
319 --
320 -- Start of API User Hook for the before hook of update_delivery_method
321 --
322 hr_delivery_methods_bk2.update_delivery_method_b
323 (
324 p_delivery_method_id => p_delivery_method_id
325 ,p_effective_date => l_effective_date
326 ,p_date_start => p_date_start
327 ,p_date_end => p_date_end
328 ,p_comm_dlvry_method => p_comm_dlvry_method
329 ,p_preferred_flag => p_preferred_flag
330 ,p_object_version_number => p_object_version_number
331 ,p_request_id => p_request_id
332 ,p_program_update_date => p_program_update_date
333 ,p_program_application_id => p_program_application_id
334 ,p_program_id => p_program_id
335 ,p_attribute_category => p_attribute_category
336 ,p_attribute1 => p_attribute1
337 ,p_attribute2 => p_attribute2
338 ,p_attribute3 => p_attribute3
339 ,p_attribute4 => p_attribute4
340 ,p_attribute5 => p_attribute5
341 ,p_attribute6 => p_attribute6
342 ,p_attribute7 => p_attribute7
343 ,p_attribute8 => p_attribute8
344 ,p_attribute9 => p_attribute9
345 ,p_attribute10 => p_attribute10
346 ,p_attribute11 => p_attribute11
347 ,p_attribute12 => p_attribute12
348 ,p_attribute13 => p_attribute13
349 ,p_attribute14 => p_attribute14
350 ,p_attribute15 => p_attribute15
351 ,p_attribute16 => p_attribute16
352 ,p_attribute17 => p_attribute17
353 ,p_attribute18 => p_attribute18
354 ,p_attribute19 => p_attribute19
355 ,p_attribute20 => p_attribute20
356 );
357 exception
358 when hr_api.cannot_find_prog_unit then
359 hr_api.cannot_find_prog_unit_error
360 (p_module_name => 'UPDATE_DELIVERY_METHOD'
361 ,p_hook_type => 'BP'
362 );
363 --
364 -- End of API User Hook for the before hook of update_delivery_method
365 --
366 end;
367 --
368 per_pdm_upd.upd
369 (
370 p_delivery_method_id => p_delivery_method_id
371 ,p_date_start => p_date_start
372 ,p_date_end => p_date_end
373 ,p_comm_dlvry_method => p_comm_dlvry_method
374 ,p_preferred_flag => p_preferred_flag
375 ,p_object_version_number => l_object_version_number
376 ,p_request_id => p_request_id
377 ,p_program_update_date => p_program_update_date
378 ,p_program_application_id => p_program_application_id
379 ,p_program_id => p_program_id
380 ,p_attribute_category => p_attribute_category
381 ,p_attribute1 => p_attribute1
382 ,p_attribute2 => p_attribute2
383 ,p_attribute3 => p_attribute3
384 ,p_attribute4 => p_attribute4
385 ,p_attribute5 => p_attribute5
386 ,p_attribute6 => p_attribute6
387 ,p_attribute7 => p_attribute7
388 ,p_attribute8 => p_attribute8
389 ,p_attribute9 => p_attribute9
390 ,p_attribute10 => p_attribute10
391 ,p_attribute11 => p_attribute11
392 ,p_attribute12 => p_attribute12
393 ,p_attribute13 => p_attribute13
394 ,p_attribute14 => p_attribute14
395 ,p_attribute15 => p_attribute15
396 ,p_attribute16 => p_attribute16
397 ,p_attribute17 => p_attribute17
398 ,p_attribute18 => p_attribute18
399 ,p_attribute19 => p_attribute19
400 ,p_attribute20 => p_attribute20
401 ,p_effective_date => l_effective_date
402 );
403 --
404 begin
405 --
406 -- Start of API User Hook for the after hook of update_delivery_method
407 --
408 hr_delivery_methods_bk2.update_delivery_method_a
409 (
410 p_effective_date => l_effective_date
411 ,p_delivery_method_id => p_delivery_method_id
412 ,p_date_start => p_date_start
413 ,p_date_end => p_date_end
414 ,p_comm_dlvry_method => p_comm_dlvry_method
415 ,p_preferred_flag => p_preferred_flag
416 ,p_object_version_number => l_object_version_number
417 ,p_request_id => p_request_id
418 ,p_program_update_date => p_program_update_date
419 ,p_program_application_id => p_program_application_id
420 ,p_program_id => p_program_id
421 ,p_attribute_category => p_attribute_category
422 ,p_attribute1 => p_attribute1
423 ,p_attribute2 => p_attribute2
424 ,p_attribute3 => p_attribute3
425 ,p_attribute4 => p_attribute4
426 ,p_attribute5 => p_attribute5
427 ,p_attribute6 => p_attribute6
428 ,p_attribute7 => p_attribute7
429 ,p_attribute8 => p_attribute8
430 ,p_attribute9 => p_attribute9
431 ,p_attribute10 => p_attribute10
432 ,p_attribute11 => p_attribute11
433 ,p_attribute12 => p_attribute12
434 ,p_attribute13 => p_attribute13
435 ,p_attribute14 => p_attribute14
436 ,p_attribute15 => p_attribute15
437 ,p_attribute16 => p_attribute16
438 ,p_attribute17 => p_attribute17
439 ,p_attribute18 => p_attribute18
440 ,p_attribute19 => p_attribute19
441 ,p_attribute20 => p_attribute20
442 );
443 exception
444 when hr_api.cannot_find_prog_unit then
445 hr_api.cannot_find_prog_unit_error
446 (p_module_name => 'UPDATE_DELIVERY_METHOD'
447 ,p_hook_type => 'AP'
448 );
449 --
450 -- End of API User Hook for the after hook of update_delivery_method
451 --
452 end;
453 --
454 hr_utility.set_location(l_proc, 60);
455 --
456 -- When in validation only mode raise the Validate_Enabled exception
457 --
458 if p_validate then
459 raise hr_api.validate_enabled;
460 end if;
461 --
462 -- Set all output arguments
463 --
464 p_object_version_number := l_object_version_number;
465 --
466 hr_utility.set_location(' Leaving:'||l_proc, 70);
467 --
468 exception
469 --
470 when hr_api.validate_enabled then
471 --
472 -- As the Validate_Enabled exception has been raised
473 -- we must rollback to the savepoint
474 --
475 ROLLBACK TO update_delivery_method;
476 --
477 hr_utility.set_location(' Leaving:'||l_proc, 80);
478 --
479 when others then
480 --
481 -- A validation or unexpected error has occurred
482 --
483 ROLLBACK TO update_delivery_method;
484 --
485 -- set in out parameters and set out parameters
486 --
487 p_object_version_number := l_ovn;
488 raise;
489 --
490 end update_delivery_method;
491 -- ----------------------------------------------------------------------------
492 -- |------------------------< delete_delivery_method >-----------------------|
493 -- ----------------------------------------------------------------------------
494 --
495 procedure delete_delivery_method
496 (p_validate in boolean default false
497 ,p_delivery_method_id in number
498 ,p_object_version_number in number
499 ) is
500 --
501 -- Declare cursors and local variables
502 --
503 l_proc varchar2(72) := g_package||'delete_delivery_method';
504 l_object_version_number per_person_dlvry_methods.object_version_number%TYPE;
505 --
506 begin
507 --
508 hr_utility.set_location('Entering:'|| l_proc, 10);
509 --
510 -- Issue a savepoint
511 --
512 savepoint delete_delivery_method;
513 --
514 hr_utility.set_location(l_proc, 20);
515 --
516 -- Process Logic
517 --
518 begin
519 --
520 -- Start of API User Hook for the before hook of delete_delivery_method
521 --
522 hr_delivery_methods_bk3.delete_delivery_method_b
523 (
524 p_delivery_method_id => p_delivery_method_id
525 ,p_object_version_number => p_object_version_number
526 );
527 exception
528 when hr_api.cannot_find_prog_unit then
529 hr_api.cannot_find_prog_unit_error
530 (p_module_name => 'DELETE_DELIVERY_METHOD'
531 ,p_hook_type => 'BP'
532 );
533 --
534 -- End of API User Hook for the before hook of delete_delivery_method
535 --
536 end;
537 --
538 per_pdm_del.del
539 (
540 p_delivery_method_id => p_delivery_method_id
541 ,p_object_version_number => p_object_version_number
542 );
543 --
544 begin
545 --
546 -- Start of API User Hook for the after hook of delete_delivery_method
547 --
548 hr_delivery_methods_bk3.delete_delivery_method_a
549 (
550 p_delivery_method_id => p_delivery_method_id
551 ,p_object_version_number => p_object_version_number
552 );
553 exception
554 when hr_api.cannot_find_prog_unit then
555 hr_api.cannot_find_prog_unit_error
556 (p_module_name => 'DELETE_DELIVERY_METHOD'
557 ,p_hook_type => 'AP'
558 );
559 --
560 -- End of API User Hook for the after hook of delete_delivery_method
561 --
562 end;
563 --
564 hr_utility.set_location(l_proc, 60);
565 --
566 -- When in validation only mode raise the Validate_Enabled exception
567 --
568 if p_validate then
569 raise hr_api.validate_enabled;
570 end if;
571 --
572 hr_utility.set_location(' Leaving:'||l_proc, 70);
573 --
574 exception
575 --
576 when hr_api.validate_enabled then
577 --
578 -- As the Validate_Enabled exception has been raised
579 -- we must rollback to the savepoint
580 --
581 ROLLBACK TO delete_delivery_method;
582 --
583 --
584 when others then
585 --
586 -- A validation or unexpected error has occurred
587 --
588 ROLLBACK TO delete_delivery_method;
589 raise;
590 --
591 end delete_delivery_method;
592 --
593 end hr_delivery_methods_api;