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