[Home] [Help]
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_obj_bus.'; -- Global package name
9: g_debug boolean := hr_utility.debug_enabled;
10: --
11: -- ----------------------------------------------------------------------------
12: -- |----------------------< chk_non_updateable_args >-----------------------|
13: -- ----------------------------------------------------------------------------
18: l_error exception;
19: l_argument varchar2(30);
20: --
21: Begin
22: hr_utility.set_location('Entering:'||l_proc, 5);
23: --
24: -- Only proceed with validation if a row exists for
25: -- the current record in the HR Schema
26: --
27: if not per_obj_shd.api_updating
28: (p_objective_id => p_rec.objective_id
29: ,p_object_version_number => p_rec.object_version_number
30: ) then
31: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
32: hr_utility.set_message_token('PROCEDURE', l_proc);
33: hr_utility.set_message_token('STEP', '5');
34: end if;
35: --
28: (p_objective_id => p_rec.objective_id
29: ,p_object_version_number => p_rec.object_version_number
30: ) then
31: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
32: hr_utility.set_message_token('PROCEDURE', l_proc);
33: hr_utility.set_message_token('STEP', '5');
34: end if;
35: --
36: hr_utility.set_location(l_proc, 6);
29: ,p_object_version_number => p_rec.object_version_number
30: ) then
31: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
32: hr_utility.set_message_token('PROCEDURE', l_proc);
33: hr_utility.set_message_token('STEP', '5');
34: end if;
35: --
36: hr_utility.set_location(l_proc, 6);
37: --
32: hr_utility.set_message_token('PROCEDURE', l_proc);
33: hr_utility.set_message_token('STEP', '5');
34: end if;
35: --
36: hr_utility.set_location(l_proc, 6);
37: --
38: if p_rec.business_group_id <> per_obj_shd.g_old_rec.business_group_id then
39: l_argument := 'business_group_id';
40: raise l_error;
38: if p_rec.business_group_id <> per_obj_shd.g_old_rec.business_group_id then
39: l_argument := 'business_group_id';
40: raise l_error;
41: elsif p_rec.appraisal_id <> per_obj_shd.g_old_rec.appraisal_id then
42: hr_utility.set_location(l_proc, 7);
43: l_argument := 'appraisal_id';
44: raise l_error;
45: elsif p_rec.owning_person_id <> per_obj_shd.g_old_rec.owning_person_id then
46: hr_utility.set_location(l_proc, 8);
42: hr_utility.set_location(l_proc, 7);
43: l_argument := 'appraisal_id';
44: raise l_error;
45: elsif p_rec.owning_person_id <> per_obj_shd.g_old_rec.owning_person_id then
46: hr_utility.set_location(l_proc, 8);
47: l_argument := 'owning_person_id';
48: raise l_error;
49: end if;
50: hr_utility.set_location(l_proc, 11);
46: hr_utility.set_location(l_proc, 8);
47: l_argument := 'owning_person_id';
48: raise l_error;
49: end if;
50: hr_utility.set_location(l_proc, 11);
51: --
52: exception
53: when l_error then
54: hr_api.argument_changed_error
56: ,p_argument => l_argument
57: ,p_base_table => per_par_shd.g_tab_nam);
58: when others then
59: raise;
60: hr_utility.set_location(' Leaving:'||l_proc, 12);
61: end chk_non_updateable_args;
62: --
63: --
64: -----------------------------------------------------------------------------
109: from per_appraisals
110: where appraisal_id = p_appraisal_id;
111: --
112: begin
113: hr_utility.set_location('Entering:'|| l_proc, 1);
114: --
115: -- Check mandatory parameters have been set
116: --
117: hr_api.mandatory_arg_error
119: ,p_argument => 'business_group_id'
120: ,p_argument_value => p_business_group_id
121: );
122: --
123: hr_utility.set_location('Entering:'|| l_proc, 2);
124: --
125: if p_appraisal_id is not null then
126: open csr_appraisal_exists;
127: fetch csr_appraisal_exists into l_business_group_id;
126: open csr_appraisal_exists;
127: fetch csr_appraisal_exists into l_business_group_id;
128: if csr_appraisal_exists%notfound then
129: close csr_appraisal_exists;
130: hr_utility.set_message(801,'HR_52054_OBJ_APR_NOT_EXIST');
131: hr_utility.raise_error;
132: else
133: close csr_appraisal_exists;
134: end if;
127: fetch csr_appraisal_exists into l_business_group_id;
128: if csr_appraisal_exists%notfound then
129: close csr_appraisal_exists;
130: hr_utility.set_message(801,'HR_52054_OBJ_APR_NOT_EXIST');
131: hr_utility.raise_error;
132: else
133: close csr_appraisal_exists;
134: end if;
135: --
134: end if;
135: --
136: -- check if appraisal is in the same business group
137: --
138: hr_utility.set_location('Entering:'|| l_proc, 3);
139: if l_business_group_id <> p_business_group_id then
140: hr_utility.set_message(801,'HR_52055_OBJ_DIFF_BUS_GRP');
141: hr_utility.raise_error;
142: end if;
136: -- check if appraisal is in the same business group
137: --
138: hr_utility.set_location('Entering:'|| l_proc, 3);
139: if l_business_group_id <> p_business_group_id then
140: hr_utility.set_message(801,'HR_52055_OBJ_DIFF_BUS_GRP');
141: hr_utility.raise_error;
142: end if;
143: end if;
144: --
137: --
138: hr_utility.set_location('Entering:'|| l_proc, 3);
139: if l_business_group_id <> p_business_group_id then
140: hr_utility.set_message(801,'HR_52055_OBJ_DIFF_BUS_GRP');
141: hr_utility.raise_error;
142: end if;
143: end if;
144: --
145: hr_utility.set_location(l_proc, 4);
141: hr_utility.raise_error;
142: end if;
143: end if;
144: --
145: hr_utility.set_location(l_proc, 4);
146: --
147: hr_utility.set_location('Leaving: '|| l_proc, 10);
148: --
149: exception
143: end if;
144: --
145: hr_utility.set_location(l_proc, 4);
146: --
147: hr_utility.set_location('Leaving: '|| l_proc, 10);
148: --
149: exception
150: when app_exception.application_exception then
151: if hr_multi_message.exception_add
195: -- Cursor to check if appraisal exists
196: --
197: --
198: begin
199: hr_utility.set_location('Entering:'|| l_proc, 1);
200: --
201: -- Check mandatory parameters have been set
202: --
203: --
200: --
201: -- Check mandatory parameters have been set
202: --
203: --
204: hr_utility.set_location('Entering:'|| l_proc, 2);
205: --
206: if( p_appraisal_id <> per_obj_shd.g_old_rec.appraisal_id ) then
207: if per_obj_shd.g_old_rec.appraisal_id is not null then
208: hr_utility.set_message(801,'HR_52055_OBJ_APPR_ID');
204: hr_utility.set_location('Entering:'|| l_proc, 2);
205: --
206: if( p_appraisal_id <> per_obj_shd.g_old_rec.appraisal_id ) then
207: if per_obj_shd.g_old_rec.appraisal_id is not null then
208: hr_utility.set_message(801,'HR_52055_OBJ_APPR_ID');
209: hr_utility.raise_error;
210: end if;
211: end if;
212: --
205: --
206: if( p_appraisal_id <> per_obj_shd.g_old_rec.appraisal_id ) then
207: if per_obj_shd.g_old_rec.appraisal_id is not null then
208: hr_utility.set_message(801,'HR_52055_OBJ_APPR_ID');
209: hr_utility.raise_error;
210: end if;
211: end if;
212: --
213: hr_utility.set_location(l_proc, 4);
209: hr_utility.raise_error;
210: end if;
211: end if;
212: --
213: hr_utility.set_location(l_proc, 4);
214: --
215: hr_utility.set_location('Leaving: '|| l_proc, 10);
216: --
217: exception
211: end if;
212: --
213: hr_utility.set_location(l_proc, 4);
214: --
215: hr_utility.set_location('Leaving: '|| l_proc, 10);
216: --
217: exception
218: when app_exception.application_exception then
219: if hr_multi_message.exception_add
308: where appraisal_id = p_appraisal_id
309: and appraisee_person_id = p_owning_person_id;
310: --
311: begin
312: hr_utility.set_location('Entering:'|| l_proc, 1);
313: --
314: if (p_owning_person_id is NULL) then
315: hr_utility.set_message(801, 'HR_52056_OBJ_PERSON_NULL');
316: hr_utility.raise_error;
311: begin
312: hr_utility.set_location('Entering:'|| l_proc, 1);
313: --
314: if (p_owning_person_id is NULL) then
315: hr_utility.set_message(801, 'HR_52056_OBJ_PERSON_NULL');
316: hr_utility.raise_error;
317: end if;
318: --
319: -- Check mandatory parameters have been set
312: hr_utility.set_location('Entering:'|| l_proc, 1);
313: --
314: if (p_owning_person_id is NULL) then
315: hr_utility.set_message(801, 'HR_52056_OBJ_PERSON_NULL');
316: hr_utility.raise_error;
317: end if;
318: --
319: -- Check mandatory parameters have been set
320: --
333: ,p_argument_value => p_business_group_id
334: );
335: --
336: --
337: hr_utility.set_location('Entering:'|| l_proc, 2);
338: --
339: if p_owning_person_id is not null then
340: open csr_person_bg;
341: fetch csr_person_bg into l_business_group_id;
340: open csr_person_bg;
341: fetch csr_person_bg into l_business_group_id;
342: if csr_person_bg%notfound then
343: close csr_person_bg;
344: hr_utility.set_message(801,'HR_52057_OBJ_PERSON_NOT_EXIST');
345: hr_utility.raise_error;
346: else
347: close csr_person_bg;
348: end if;
341: fetch csr_person_bg into l_business_group_id;
342: if csr_person_bg%notfound then
343: close csr_person_bg;
344: hr_utility.set_message(801,'HR_52057_OBJ_PERSON_NOT_EXIST');
345: hr_utility.raise_error;
346: else
347: close csr_person_bg;
348: end if;
349:
346: else
347: close csr_person_bg;
348: end if;
349:
350: hr_utility.set_location(l_proc, 3);
351: -- check if business group match
352: /*
353: if p_business_group_id <> l_business_group_id then
354: hr_utility.set_message(801,'HR_52058_OBJ_PERSON_DIFF_BG');
350: hr_utility.set_location(l_proc, 3);
351: -- check if business group match
352: /*
353: if p_business_group_id <> l_business_group_id then
354: hr_utility.set_message(801,'HR_52058_OBJ_PERSON_DIFF_BG');
355: hr_utility.raise_error;
356: end if;
357: */
358: hr_utility.set_location(l_proc, 4);
351: -- check if business group match
352: /*
353: if p_business_group_id <> l_business_group_id then
354: hr_utility.set_message(801,'HR_52058_OBJ_PERSON_DIFF_BG');
355: hr_utility.raise_error;
356: end if;
357: */
358: hr_utility.set_location(l_proc, 4);
359: -- check if person is valid as of effective date
354: hr_utility.set_message(801,'HR_52058_OBJ_PERSON_DIFF_BG');
355: hr_utility.raise_error;
356: end if;
357: */
358: hr_utility.set_location(l_proc, 4);
359: -- check if person is valid as of effective date
360: open csr_person_valid_date;
361: fetch csr_person_valid_date into l_exists;
362: if csr_person_valid_date%notfound then
360: open csr_person_valid_date;
361: fetch csr_person_valid_date into l_exists;
362: if csr_person_valid_date%notfound then
363: close csr_person_valid_date;
364: hr_utility.set_message(801,'HR_52059_OBJ_PERSON_DATE_RANGE');
365: hr_utility.raise_error;
366: else
367: close csr_person_valid_date;
368: end if;
361: fetch csr_person_valid_date into l_exists;
362: if csr_person_valid_date%notfound then
363: close csr_person_valid_date;
364: hr_utility.set_message(801,'HR_52059_OBJ_PERSON_DATE_RANGE');
365: hr_utility.raise_error;
366: else
367: close csr_person_valid_date;
368: end if;
369:
366: else
367: close csr_person_valid_date;
368: end if;
369:
370: hr_utility.set_location(l_proc, 5);
371: /*
372: -- check if owning_person_id = appraisee_id in per_appraisals
373: -- Only perform the check if the appraisal_id is populated
374: if p_appraisal_id is not null then
375: open csr_owned_by_person;
376: fetch csr_owned_by_person into l_exists;
377: if csr_owned_by_person%notfound then
378: close csr_owned_by_person;
379: hr_utility.set_message(801,'HR_52060_OBJ_NOT_EQ_APPRAISEE');
380: hr_utility.raise_error;
381: else
382: close csr_owned_by_person;
383: end if;
376: fetch csr_owned_by_person into l_exists;
377: if csr_owned_by_person%notfound then
378: close csr_owned_by_person;
379: hr_utility.set_message(801,'HR_52060_OBJ_NOT_EQ_APPRAISEE');
380: hr_utility.raise_error;
381: else
382: close csr_owned_by_person;
383: end if;
384: end if;*/
383: end if;
384: end if;*/
385: end if;
386: --
387: hr_utility.set_location('Leaving: '|| l_proc, 10);
388: --
389: exception
390: when app_exception.application_exception then
391: if hr_multi_message.exception_add
434: l_proc varchar2(72) := g_package||'chk_next_review_date';
435: --
436: begin
437: --
438: hr_utility.set_location('Entering:'|| l_proc,5);
439: --
440: if p_next_review_date < p_start_date then
441: hr_utility.set_message(800,'HR_INV_NEXT_REV_DATE');
442: hr_utility.raise_error;
437: --
438: hr_utility.set_location('Entering:'|| l_proc,5);
439: --
440: if p_next_review_date < p_start_date then
441: hr_utility.set_message(800,'HR_INV_NEXT_REV_DATE');
442: hr_utility.raise_error;
443: end if;
444: --
445: hr_utility.set_location(' Leaving:'||l_proc, 10);
438: hr_utility.set_location('Entering:'|| l_proc,5);
439: --
440: if p_next_review_date < p_start_date then
441: hr_utility.set_message(800,'HR_INV_NEXT_REV_DATE');
442: hr_utility.raise_error;
443: end if;
444: --
445: hr_utility.set_location(' Leaving:'||l_proc, 10);
446: --
441: hr_utility.set_message(800,'HR_INV_NEXT_REV_DATE');
442: hr_utility.raise_error;
443: end if;
444: --
445: hr_utility.set_location(' Leaving:'||l_proc, 10);
446: --
447: exception
448: when app_exception.application_exception then
449: if hr_multi_message.exception_add
491: l_proc varchar2(72) := g_package||'chk_target_date';
492: --
493: begin
494: --
495: hr_utility.set_location('Entering:'|| l_proc,5);
496: --
497: if p_target_date < p_start_date then
498: hr_utility.set_message(800,'PER_52552_TARGET_DATE');
499: hr_utility.raise_error;
494: --
495: hr_utility.set_location('Entering:'|| l_proc,5);
496: --
497: if p_target_date < p_start_date then
498: hr_utility.set_message(800,'PER_52552_TARGET_DATE');
499: hr_utility.raise_error;
500: end if;
501: --
502: hr_utility.set_location(' Leaving:'||l_proc, 10);
495: hr_utility.set_location('Entering:'|| l_proc,5);
496: --
497: if p_target_date < p_start_date then
498: hr_utility.set_message(800,'PER_52552_TARGET_DATE');
499: hr_utility.raise_error;
500: end if;
501: --
502: hr_utility.set_location(' Leaving:'||l_proc, 10);
503: --
498: hr_utility.set_message(800,'PER_52552_TARGET_DATE');
499: hr_utility.raise_error;
500: end if;
501: --
502: hr_utility.set_location(' Leaving:'||l_proc, 10);
503: --
504: exception
505: when app_exception.application_exception then
506: if hr_multi_message.exception_add
568: --
569: --
570: begin
571: --
572: hr_utility.set_location('Entering:'|| l_proc,5);
573: --
574: if p_achievement_date < p_start_date then
575: hr_utility.set_message(800,'PER_52553_ACHIEV_DATE');
576: hr_utility.raise_error;
571: --
572: hr_utility.set_location('Entering:'|| l_proc,5);
573: --
574: if p_achievement_date < p_start_date then
575: hr_utility.set_message(800,'PER_52553_ACHIEV_DATE');
576: hr_utility.raise_error;
577: end if;
578: --
579: hr_utility.set_location(' Leaving:'||l_proc, 10);
572: hr_utility.set_location('Entering:'|| l_proc,5);
573: --
574: if p_achievement_date < p_start_date then
575: hr_utility.set_message(800,'PER_52553_ACHIEV_DATE');
576: hr_utility.raise_error;
577: end if;
578: --
579: hr_utility.set_location(' Leaving:'||l_proc, 10);
580: --
575: hr_utility.set_message(800,'PER_52553_ACHIEV_DATE');
576: hr_utility.raise_error;
577: end if;
578: --
579: hr_utility.set_location(' Leaving:'||l_proc, 10);
580: --
581: -- Following fix has raised a regression issue in 5201522
582: -- Removing this check
583: --
584: --fix for Bug 5186559
585:
586: ----change the p_appraisal_id IS NULL condition to p_scorecard_id IS NOT NULL for for fixing bug#5947176
587: if ( p_achievement_date > trunc(sysdate) and p_scorecard_id is not null ) then
588: hr_utility.set_message(800,'HR_WPM_INV_FUTURE_ACH_DATE');
589: hr_utility.raise_error;
590: end if;
591: -- end of fix for bug 5186559
592:
585:
586: ----change the p_appraisal_id IS NULL condition to p_scorecard_id IS NOT NULL for for fixing bug#5947176
587: if ( p_achievement_date > trunc(sysdate) and p_scorecard_id is not null ) then
588: hr_utility.set_message(800,'HR_WPM_INV_FUTURE_ACH_DATE');
589: hr_utility.raise_error;
590: end if;
591: -- end of fix for bug 5186559
592:
593: --
601: return;
602: end if;
603: end if;
604: --
605: hr_utility.set_location(' Leaving:'||l_proc, 12);
606: --
607: /* if ((p_achievement_date is not null)
608: and ((p_complete_percent is null) or (p_complete_percent <> 100))) then
609: hr_utility.set_message(800,'HR_INV_CMPL_PERC_ACHIEV_DATE');
605: hr_utility.set_location(' Leaving:'||l_proc, 12);
606: --
607: /* if ((p_achievement_date is not null)
608: and ((p_complete_percent is null) or (p_complete_percent <> 100))) then
609: hr_utility.set_message(800,'HR_INV_CMPL_PERC_ACHIEV_DATE');
610: hr_utility.raise_error;
611: end if;*/
612: --
613: hr_utility.set_location(' Leaving:'||l_proc, 15);
606: --
607: /* if ((p_achievement_date is not null)
608: and ((p_complete_percent is null) or (p_complete_percent <> 100))) then
609: hr_utility.set_message(800,'HR_INV_CMPL_PERC_ACHIEV_DATE');
610: hr_utility.raise_error;
611: end if;*/
612: --
613: hr_utility.set_location(' Leaving:'||l_proc, 15);
614: --
609: hr_utility.set_message(800,'HR_INV_CMPL_PERC_ACHIEV_DATE');
610: hr_utility.raise_error;
611: end if;*/
612: --
613: hr_utility.set_location(' Leaving:'||l_proc, 15);
614: --
615: exception
616: when app_exception.application_exception then
617: if hr_multi_message.exception_add
677: where aligned_with_objective_id = p_objective_id;
678: --
679: --
680: begin
681: hr_utility.set_location('Entering:'|| l_proc, 1);
682: --
683: -- Check mandatory parameters have been set
684: --
685: hr_api.mandatory_arg_error
687: ,p_argument => 'objective_id'
688: ,p_argument_value => p_objective_id
689: );
690: --
691: hr_utility.set_location(l_proc, 2);
692: --
693: open csr_apr_exits_in_perf_rat;
694: fetch csr_apr_exits_in_perf_rat into l_exists;
695: if csr_apr_exits_in_perf_rat%found then
693: open csr_apr_exits_in_perf_rat;
694: fetch csr_apr_exits_in_perf_rat into l_exists;
695: if csr_apr_exits_in_perf_rat%found then
696: close csr_apr_exits_in_perf_rat;
697: hr_utility.set_message(801,'HR_52061_OBJ_IN_PERF_RAT');
698: hr_utility.raise_error;
699: else
700: close csr_apr_exits_in_perf_rat;
701: open csr_is_obj_aligned;
694: fetch csr_apr_exits_in_perf_rat into l_exists;
695: if csr_apr_exits_in_perf_rat%found then
696: close csr_apr_exits_in_perf_rat;
697: hr_utility.set_message(801,'HR_52061_OBJ_IN_PERF_RAT');
698: hr_utility.raise_error;
699: else
700: close csr_apr_exits_in_perf_rat;
701: open csr_is_obj_aligned;
702: fetch csr_is_obj_aligned into l_exists;
701: open csr_is_obj_aligned;
702: fetch csr_is_obj_aligned into l_exists;
703: if csr_is_obj_aligned%found then
704: close csr_is_obj_aligned;
705: hr_utility.set_message(801,'HR_52061_OBJ_IN_PERF_RAT');
706: hr_utility.raise_error;
707: else
708: close csr_is_obj_aligned;
709: end if;
702: fetch csr_is_obj_aligned into l_exists;
703: if csr_is_obj_aligned%found then
704: close csr_is_obj_aligned;
705: hr_utility.set_message(801,'HR_52061_OBJ_IN_PERF_RAT');
706: hr_utility.raise_error;
707: else
708: close csr_is_obj_aligned;
709: end if;
710: --
709: end if;
710: --
711: end if;
712: --
713: hr_utility.set_location('Leaving: '|| l_proc, 10);
714: exception
715: when app_exception.application_exception then
716: if hr_multi_message.exception_add
717: (p_associated_column1 => 'PER_OBJECTIVES.OBJECTIVE_ID'
759: l_api_updating boolean;
760:
761: begin
762:
763: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 1); END IF;
764:
765: --
766: -- Only proceed with validation if :
767: -- a) The current g_old_rec is current and
777: THEN
778: RETURN;
779: END IF;
780:
781: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
782:
783: --
784: -- Checks that the group code is valid
785: --
794: fnd_message.raise_error;
795: end if;
796: end if;
797:
798: IF g_debug THEN hr_utility.set_location(' Leaving:'|| l_proc, 970); END IF;
799:
800: exception
801: when app_exception.application_exception then
802: if hr_multi_message.exception_add
801: when app_exception.application_exception then
802: if hr_multi_message.exception_add
803: (p_associated_column1 => 'PER_OBJECTIVES.GROUP_CODE'
804: ) then
805: hr_utility.set_location(' Leaving:'||l_proc, 980);
806: raise;
807: end if;
808: hr_utility.set_location(' Leaving:'||l_proc, 990);
809: --
804: ) then
805: hr_utility.set_location(' Leaving:'||l_proc, 980);
806: raise;
807: end if;
808: hr_utility.set_location(' Leaving:'||l_proc, 990);
809: --
810: end chk_group_code;
811: --
812: -- ----------------------------------------------------------------------------
847: l_api_updating boolean;
848:
849: begin
850:
851: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 1); END IF;
852:
853: --
854: -- Only proceed with validation if :
855: -- a) The current g_old_rec is current and
865: THEN
866: RETURN;
867: END IF;
868:
869: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
870:
871: --
872: -- Checks that the priority code is valid
873: --
882: fnd_message.raise_error;
883: end if;
884: end if;
885:
886: IF g_debug THEN hr_utility.set_location(' Leaving:'|| l_proc, 970); END IF;
887:
888: exception
889: when app_exception.application_exception then
890: if hr_multi_message.exception_add
889: when app_exception.application_exception then
890: if hr_multi_message.exception_add
891: (p_associated_column1 => 'PER_OBJECTIVES.PRIORITY_CODE'
892: ) then
893: hr_utility.set_location(' Leaving:'||l_proc, 980);
894: raise;
895: end if;
896: hr_utility.set_location(' Leaving:'||l_proc, 990);
897:
892: ) then
893: hr_utility.set_location(' Leaving:'||l_proc, 980);
894: raise;
895: end if;
896: hr_utility.set_location(' Leaving:'||l_proc, 990);
897:
898: end chk_priority_code;
899: --
900: -- ----------------------------------------------------------------------------
936: l_api_updating boolean;
937:
938: begin
939:
940: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 1); END IF;
941:
942: IF p_scorecard_id IS NOT null THEN
943: --
944: hr_api.mandatory_arg_error
962: THEN
963: RETURN;
964: END IF;
965:
966: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
967:
968: --
969: -- Checks that the appraise flag is valid
970: --
978: fnd_message.raise_error;
979: end if;
980: END IF;
981:
982: IF g_debug THEN hr_utility.set_location(' Leaving:'|| l_proc, 970); END IF;
983:
984: exception
985: when app_exception.application_exception then
986: if hr_multi_message.exception_add
985: when app_exception.application_exception then
986: if hr_multi_message.exception_add
987: (p_associated_column1 => 'PER_OBJECTIVES.APPRAISE_FLAG'
988: ) then
989: hr_utility.set_location(' Leaving:'||l_proc, 980);
990: raise;
991: end if;
992: hr_utility.set_location(' Leaving:'||l_proc, 990);
993:
988: ) then
989: hr_utility.set_location(' Leaving:'||l_proc, 980);
990: raise;
991: end if;
992: hr_utility.set_location(' Leaving:'||l_proc, 990);
993:
994: end chk_appraise_flag;
995: --
996: -- ----------------------------------------------------------------------------
1029: l_api_updating boolean;
1030:
1031: begin
1032:
1033: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 1); END IF;
1034:
1035: --
1036: -- Only proceed with validation if :
1037: -- a) The current g_old_rec is current and
1047: THEN
1048: RETURN;
1049: END IF;
1050:
1051: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1052:
1053: if p_complete_percent is not null then
1054:
1055: IF g_debug THEN hr_utility.set_location(l_proc, 30); END IF;
1051: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1052:
1053: if p_complete_percent is not null then
1054:
1055: IF g_debug THEN hr_utility.set_location(l_proc, 30); END IF;
1056: --
1057: -- Checks that the complete_percent is between 0 and 100
1058: -- and raises error if it is otherwise
1059: --
1061: fnd_message.set_name('PER','HR_INV_CMPL_PERC');
1062: fnd_message.raise_error;
1063: end if;
1064:
1065: IF g_debug THEN hr_utility.set_location(l_proc, 40); END IF;
1066:
1067: end if;
1068:
1069: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1065: IF g_debug THEN hr_utility.set_location(l_proc, 40); END IF;
1066:
1067: end if;
1068:
1069: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1070:
1071: exception
1072: when app_exception.application_exception then
1073: if hr_multi_message.exception_add
1072: when app_exception.application_exception then
1073: if hr_multi_message.exception_add
1074: (p_associated_column1 => 'PER_OBJECTIVES.COMPLETE_PERCENT'
1075: ) then
1076: hr_utility.set_location(' Leaving:'||l_proc, 980);
1077: raise;
1078: end if;
1079: hr_utility.set_location(' Leaving:'||l_proc, 990);
1080:
1075: ) then
1076: hr_utility.set_location(' Leaving:'||l_proc, 980);
1077: raise;
1078: end if;
1079: hr_utility.set_location(' Leaving:'||l_proc, 990);
1080:
1081: end chk_complete_percent;
1082: --
1083: -- ----------------------------------------------------------------------------
1125: l_api_updating boolean;
1126:
1127: begin
1128:
1129: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 1); END IF;
1130:
1131: --
1132: -- Only proceed with validation if :
1133: -- a) The current g_old_rec is current and
1145: THEN
1146: RETURN;
1147: END IF;
1148:
1149: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1150:
1151: if p_weighting_percent is not null then
1152:
1153: IF g_debug THEN hr_utility.set_location(l_proc, 30); END IF;
1149: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1150:
1151: if p_weighting_percent is not null then
1152:
1153: IF g_debug THEN hr_utility.set_location(l_proc, 30); END IF;
1154: --
1155: -- Warn if the objective is not marked for appraisal.
1156: --
1157: if hr_multi_message.no_exclusive_error
1160: ) then
1161: p_weighting_appraisal_warning := (p_appraise_flag = 'N');
1162: end if;
1163:
1164: IF g_debug THEN hr_utility.set_location(l_proc, 40); END IF;
1165: --
1166: -- Checks that the weighting_percent is a valid lookup value
1167: --
1168: if hr_api.not_exists_in_hrstanlookups
1174: fnd_message.set_name('PER', 'HR_50193_WPM_WEIGHT_VALUE');
1175: fnd_message.raise_error;
1176: end if;
1177:
1178: IF g_debug THEN hr_utility.set_location(l_proc, 50); END IF;
1179: --
1180: -- Warns that the weighting percent is greater than 100
1181: --
1182: p_weighting_over_100_warning := (p_weighting_percent > 100);
1182: p_weighting_over_100_warning := (p_weighting_percent > 100);
1183:
1184: end if;
1185:
1186: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1187:
1188: exception
1189: when app_exception.application_exception then
1190: if hr_multi_message.exception_add
1189: when app_exception.application_exception then
1190: if hr_multi_message.exception_add
1191: (p_associated_column1 => 'PER_OBJECTIVES.WEIGHTING_PERCENT'
1192: ) then
1193: hr_utility.set_location(' Leaving:'||l_proc, 980);
1194: raise;
1195: end if;
1196: hr_utility.set_location(' Leaving:'||l_proc, 990);
1197:
1192: ) then
1193: hr_utility.set_location(' Leaving:'||l_proc, 980);
1194: raise;
1195: end if;
1196: hr_utility.set_location(' Leaving:'||l_proc, 990);
1197:
1198: end chk_weighting_percent;
1199: --
1200: -- ----------------------------------------------------------------------------
1236: l_api_updating boolean;
1237:
1238: begin
1239:
1240: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 1); END IF;
1241:
1242: IF p_scorecard_id IS NOT null THEN
1243: --
1244: hr_api.mandatory_arg_error
1262: THEN
1263: RETURN;
1264: END IF;
1265:
1266: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1267:
1268: --
1269: -- Checks that the measurement_style_code is valid
1270: --
1279: end if;
1280:
1281: END IF;
1282:
1283: IF g_debug THEN hr_utility.set_location(' Leaving:'|| l_proc, 970); END IF;
1284:
1285: exception
1286: when app_exception.application_exception then
1287: if hr_multi_message.exception_add
1286: when app_exception.application_exception then
1287: if hr_multi_message.exception_add
1288: (p_associated_column1 => 'PER_OBJECTIVES.MEASUREMENT_STYLE_CODE'
1289: ) then
1290: hr_utility.set_location(' Leaving:'||l_proc, 980);
1291: raise;
1292: end if;
1293: hr_utility.set_location(' Leaving:'||l_proc, 990);
1294:
1289: ) then
1290: hr_utility.set_location(' Leaving:'||l_proc, 980);
1291: raise;
1292: end if;
1293: hr_utility.set_location(' Leaving:'||l_proc, 990);
1294:
1295: end chk_measurement_style_code;
1296: --
1297: -- ----------------------------------------------------------------------------
1334: l_api_updating boolean;
1335:
1336: begin
1337:
1338: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 1); END IF;
1339:
1340: --
1341: -- Only proceed with validation if :
1342: -- a) The current g_old_rec is current and
1354: THEN
1355: RETURN;
1356: END IF;
1357:
1358: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1359:
1360: if hr_multi_message.no_exclusive_error
1361: (p_check_column1 => 'PER_OBJECTIVES.MEASUREMENT_STYLE_CODE'
1362: ,p_associated_column1 => 'PER_OBJECTIVES.MEASUREMENT_STYLE_CODE'
1363: ) then
1364:
1365: if p_measurement_style_code <> 'N_M'
1366: then
1367: IF g_debug THEN hr_utility.set_location(l_proc, 30); END IF;
1368:
1369: hr_api.mandatory_arg_error
1370: (p_api_name => l_proc
1371: ,p_argument => 'p_measure_name'
1374: end if;
1375:
1376: end if;
1377:
1378: IF g_debug THEN hr_utility.set_location(' Leaving:'|| l_proc, 970); END IF;
1379:
1380: exception
1381: when app_exception.application_exception then
1382: if hr_multi_message.exception_add
1381: when app_exception.application_exception then
1382: if hr_multi_message.exception_add
1383: (p_associated_column1 => 'PER_OBJECTIVES.MEASURE_NAME'
1384: ) then
1385: hr_utility.set_location(' Leaving:'||l_proc, 980);
1386: raise;
1387: end if;
1388: hr_utility.set_location(' Leaving:'||l_proc, 990);
1389:
1384: ) then
1385: hr_utility.set_location(' Leaving:'||l_proc, 980);
1386: raise;
1387: end if;
1388: hr_utility.set_location(' Leaving:'||l_proc, 990);
1389:
1390: end chk_measure_name;
1391: --
1392: -- ----------------------------------------------------------------------------
1429: l_api_updating boolean;
1430:
1431: begin
1432:
1433: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 1); END IF;
1434:
1435: --
1436: -- Only proceed with validation if :
1437: -- a) The current g_old_rec is current and
1449: THEN
1450: RETURN;
1451: END IF;
1452:
1453: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1454:
1455: if hr_multi_message.no_exclusive_error
1456: (p_check_column1 => 'PER_OBJECTIVES.MEASUREMENT_STYLE_CODE'
1457: ,p_associated_column1 => 'PER_OBJECTIVES.MEASUREMENT_STYLE_CODE'
1458: ) then
1459:
1460: if p_measurement_style_code = 'QUANT_M'
1461: then
1462: IF g_debug THEN hr_utility.set_location(l_proc, 30); END IF;
1463:
1464: hr_api.mandatory_arg_error
1465: (p_api_name => l_proc
1466: ,p_argument => 'p_target_value'
1469: end if;
1470:
1471: end if;
1472:
1473: IF g_debug THEN hr_utility.set_location(' Leaving:'|| l_proc, 970); END IF;
1474:
1475: exception
1476: when app_exception.application_exception then
1477: if hr_multi_message.exception_add
1476: when app_exception.application_exception then
1477: if hr_multi_message.exception_add
1478: (p_associated_column1 => 'PER_OBJECTIVES.TARGET_VALUE'
1479: ) then
1480: hr_utility.set_location(' Leaving:'||l_proc, 980);
1481: raise;
1482: end if;
1483: hr_utility.set_location(' Leaving:'||l_proc, 990);
1484:
1479: ) then
1480: hr_utility.set_location(' Leaving:'||l_proc, 980);
1481: raise;
1482: end if;
1483: hr_utility.set_location(' Leaving:'||l_proc, 990);
1484:
1485: end chk_target_value;
1486: --
1487: -- ----------------------------------------------------------------------------
1523: l_api_updating boolean;
1524:
1525: begin
1526:
1527: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 1); END IF;
1528:
1529: --
1530: -- Only proceed with validation if :
1531: -- a) The current g_old_rec is current and
1543: THEN
1544: RETURN;
1545: END IF;
1546:
1547: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1548:
1549: if hr_multi_message.no_exclusive_error
1550: (p_check_column1 => 'PER_OBJECTIVES.MEASUREMENT_STYLE_CODE'
1551: ,p_associated_column1 => 'PER_OBJECTIVES.MEASUREMENT_STYLE_CODE'
1552: ) then
1553:
1554: if p_measurement_style_code = 'QUANT_M'
1555: then
1556: IF g_debug THEN hr_utility.set_location(l_proc, 30); END IF;
1557:
1558: hr_api.mandatory_arg_error
1559: (p_api_name => l_proc
1560: ,p_argument => 'p_uom_code'
1563: end if;
1564:
1565: end if;
1566:
1567: IF g_debug THEN hr_utility.set_location(l_proc, 40); END IF;
1568:
1569: --
1570: -- Checks that the UOM code is valid
1571: --
1580: fnd_message.raise_error;
1581: end if;
1582: end if;
1583:
1584: IF g_debug THEN hr_utility.set_location(' Leaving:'|| l_proc, 970); END IF;
1585:
1586: exception
1587: when app_exception.application_exception then
1588: if hr_multi_message.exception_add
1587: when app_exception.application_exception then
1588: if hr_multi_message.exception_add
1589: (p_associated_column1 => 'PER_OBJECTIVES.UOM_CODE'
1590: ) then
1591: hr_utility.set_location(' Leaving:'||l_proc, 980);
1592: raise;
1593: end if;
1594: hr_utility.set_location(' Leaving:'||l_proc, 990);
1595:
1590: ) then
1591: hr_utility.set_location(' Leaving:'||l_proc, 980);
1592: raise;
1593: end if;
1594: hr_utility.set_location(' Leaving:'||l_proc, 990);
1595:
1596: end chk_uom_code;
1597: --
1598: -- ----------------------------------------------------------------------------
1634: l_api_updating boolean;
1635:
1636: begin
1637:
1638: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 1); END IF;
1639:
1640: --
1641: -- Only proceed with validation if :
1642: -- a) The current g_old_rec is current and
1654: THEN
1655: RETURN;
1656: END IF;
1657:
1658: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1659:
1660: if hr_multi_message.no_exclusive_error
1661: (p_check_column1 => 'PER_OBJECTIVES.MEASUREMENT_STYLE_CODE'
1662: ,p_associated_column1 => 'PER_OBJECTIVES.MEASUREMENT_STYLE_CODE'
1663: ) then
1664:
1665: if p_measurement_style_code = 'QUANT_M'
1666: then
1667: IF g_debug THEN hr_utility.set_location(l_proc, 30); END IF;
1668:
1669: hr_api.mandatory_arg_error
1670: (p_api_name => l_proc
1671: ,p_argument => 'p_measure_type_code'
1674: end if;
1675:
1676: end if;
1677:
1678: IF g_debug THEN hr_utility.set_location(l_proc, 40); END IF;
1679:
1680: --
1681: -- Checks that the measure type code is valid
1682: --
1691: fnd_message.raise_error;
1692: end if;
1693: end if;
1694:
1695: IF g_debug THEN hr_utility.set_location(' Leaving:'|| l_proc, 970); END IF;
1696:
1697: exception
1698: when app_exception.application_exception then
1699: if hr_multi_message.exception_add
1698: when app_exception.application_exception then
1699: if hr_multi_message.exception_add
1700: (p_associated_column1 => 'PER_OBJECTIVES.MEASURE_TYPE_CODE'
1701: ) then
1702: hr_utility.set_location(' Leaving:'||l_proc, 980);
1703: raise;
1704: end if;
1705: hr_utility.set_location(' Leaving:'||l_proc, 990);
1706:
1701: ) then
1702: hr_utility.set_location(' Leaving:'||l_proc, 980);
1703: raise;
1704: end if;
1705: hr_utility.set_location(' Leaving:'||l_proc, 990);
1706:
1707: end chk_measure_type_code;
1708: --
1709: -- ----------------------------------------------------------------------------
1746: WHERE psc.scorecard_id = p_scorecard_id;
1747: --
1748: BEGIN
1749:
1750: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1751: -- Only proceed with validation if :
1752: -- a) The current g_old_rec is current and
1753: -- b) The scorecard value has changed
1754: --
1762: THEN
1763: RETURN;
1764: END IF;
1765: --
1766: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 11); END IF;
1767: --
1768: IF nvl(p_scorecard_id,hr_api.g_number) <> hr_api.g_number THEN
1769: --
1770: -- Check that scorecard exists.
1768: IF nvl(p_scorecard_id,hr_api.g_number) <> hr_api.g_number THEN
1769: --
1770: -- Check that scorecard exists.
1771: --
1772: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1773: OPEN csr_chk_scard_id;
1774: FETCH csr_chk_scard_id INTO l_scorecard_id;
1775: CLOSE csr_chk_scard_id;
1776:
1780: END IF;
1781:
1782: END IF;
1783:
1784: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1785:
1786: EXCEPTION
1787:
1788: WHEN app_exception.application_exception THEN
1788: WHEN app_exception.application_exception THEN
1789: IF hr_multi_message.exception_add
1790: (p_associated_column1 => 'PER_OBJECTIVES.SCORECARD_ID')
1791: THEN
1792: hr_utility.set_location(' Leaving:'|| l_proc, 980);
1793: RAISE;
1794: END IF;
1795: hr_utility.set_location(' Leaving:'|| l_proc, 990);
1796:
1791: THEN
1792: hr_utility.set_location(' Leaving:'|| l_proc, 980);
1793: RAISE;
1794: END IF;
1795: hr_utility.set_location(' Leaving:'|| l_proc, 990);
1796:
1797: END chk_scorecard_id;
1798: --
1799: --=======================================================================================
1845: where objective_id = p_copied_from_lib_id;
1846: --
1847: begin
1848: --
1849: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1850: -- Only proceed with validation if :
1851: -- a) The current g_old_rec is current and
1852: -- b) The copied_from_library_id value has changed
1853: --
1861: THEN
1862: RETURN;
1863: END IF;
1864: --
1865: IF g_debug THEN hr_utility.set_location(l_proc, 11); END IF;
1866: --
1867: if nvl(p_copied_from_lib_id,hr_api.g_number) <> hr_api.g_number then
1868: open csr_objlib_exists;
1869: fetch csr_objlib_exists into l_exists;
1868: open csr_objlib_exists;
1869: fetch csr_objlib_exists into l_exists;
1870: if csr_objlib_exists%notfound then
1871: close csr_objlib_exists;
1872: hr_utility.set_message(800,'HR_WPM_INV_COPY_FRM_LIB_ID');
1873: hr_utility.raise_error;
1874: else
1875: close csr_objlib_exists;
1876: end if;
1869: fetch csr_objlib_exists into l_exists;
1870: if csr_objlib_exists%notfound then
1871: close csr_objlib_exists;
1872: hr_utility.set_message(800,'HR_WPM_INV_COPY_FRM_LIB_ID');
1873: hr_utility.raise_error;
1874: else
1875: close csr_objlib_exists;
1876: end if;
1877: --
1876: end if;
1877: --
1878: end if;
1879: --
1880: hr_utility.set_location('Leaving: '|| l_proc, 10);
1881: --
1882: exception
1883: when app_exception.application_exception then
1884: if hr_multi_message.exception_add
1935: where objective_id = p_copied_from_obj_id;
1936: --
1937: begin
1938: --
1939: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1940: -- Only proceed with validation if :
1941: -- a) The current g_old_rec is current and
1942: -- b) The copied_from_objective_id value has changed
1943: --
1951: THEN
1952: RETURN;
1953: END IF;
1954: --
1955: IF g_debug THEN hr_utility.set_location(l_proc, 11); END IF;
1956: --
1957: if nvl(p_copied_from_obj_id,hr_api.g_number) <> hr_api.g_number then
1958: open csr_obj_exists;
1959: fetch csr_obj_exists into l_exists;
1958: open csr_obj_exists;
1959: fetch csr_obj_exists into l_exists;
1960: if csr_obj_exists%notfound then
1961: close csr_obj_exists;
1962: hr_utility.set_message(800,'HR_WPM_INV_COPY_FRM_OBJ_ID');
1963: hr_utility.raise_error;
1964: else
1965: close csr_obj_exists;
1966: end if;
1959: fetch csr_obj_exists into l_exists;
1960: if csr_obj_exists%notfound then
1961: close csr_obj_exists;
1962: hr_utility.set_message(800,'HR_WPM_INV_COPY_FRM_OBJ_ID');
1963: hr_utility.raise_error;
1964: else
1965: close csr_obj_exists;
1966: end if;
1967: --
1966: end if;
1967: --
1968: end if;
1969: --
1970: hr_utility.set_location('Leaving: '|| l_proc, 10);
1971: --
1972: exception
1973: when app_exception.application_exception then
1974: if hr_multi_message.exception_add
2103: --
2104: --
2105: BEGIN
2106: --
2107: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
2108: -- Only proceed with validation if :
2109: -- a) The current g_old_rec is current and
2110: -- b) The aligned_with_obj_id value has changed
2111: --
2119: THEN
2120: RETURN;
2121: END IF;
2122: --
2123: IF g_debug THEN hr_utility.set_location(l_proc, 11); END IF;
2124: --
2125: IF nvl(p_aligned_with_obj_id,-1) <> -1 THEN
2126: OPEN csr_obj_exists;
2127: FETCH csr_obj_exists INTO l_source_plan_id,l_source_scorecard_id,l_source_person_id;
2127: FETCH csr_obj_exists INTO l_source_plan_id,l_source_scorecard_id,l_source_person_id;
2128: IF csr_obj_exists%NOTFOUND THEN
2129: CLOSE csr_obj_exists;
2130: --The Objective that you are aligning with does not exist
2131: hr_utility.set_message(800,'HR_WPM_INV_ALIGNED_WITH_OBJ_ID');
2132: hr_utility.raise_error;
2133: ELSE
2134: CLOSE csr_obj_exists;
2135: END IF;
2128: IF csr_obj_exists%NOTFOUND THEN
2129: CLOSE csr_obj_exists;
2130: --The Objective that you are aligning with does not exist
2131: hr_utility.set_message(800,'HR_WPM_INV_ALIGNED_WITH_OBJ_ID');
2132: hr_utility.raise_error;
2133: ELSE
2134: CLOSE csr_obj_exists;
2135: END IF;
2136: --
2141: FETCH csr_target_plan INTO l_target_plan_id,l_target_person_id;
2142: IF (csr_target_plan%FOUND AND l_target_plan_id <> l_source_plan_id) THEN
2143: CLOSE csr_target_plan;
2144: -- You can not align this objective in a different performance management plan
2145: hr_utility.set_message(800,'HR_WPM_INV_ALIGN_DIFF_PLANS');
2146: hr_utility.raise_error;
2147: ELSE
2148: CLOSE csr_target_plan;
2149: END IF;
2142: IF (csr_target_plan%FOUND AND l_target_plan_id <> l_source_plan_id) THEN
2143: CLOSE csr_target_plan;
2144: -- You can not align this objective in a different performance management plan
2145: hr_utility.set_message(800,'HR_WPM_INV_ALIGN_DIFF_PLANS');
2146: hr_utility.raise_error;
2147: ELSE
2148: CLOSE csr_target_plan;
2149: END IF;
2150: --
2154: FETCH csr_chk_person INTO l_same_person;
2155: IF csr_chk_person%FOUND THEN
2156: CLOSE csr_chk_person;
2157: -- You can not align this objective to the same person who has this objective allocated.
2158: hr_utility.set_message(800,'HR_WPM_INV_ALIGN_SAME_PER');
2159: hr_utility.raise_error;
2160: ELSE
2161: CLOSE csr_chk_person;
2162: END IF;
2155: IF csr_chk_person%FOUND THEN
2156: CLOSE csr_chk_person;
2157: -- You can not align this objective to the same person who has this objective allocated.
2158: hr_utility.set_message(800,'HR_WPM_INV_ALIGN_SAME_PER');
2159: hr_utility.raise_error;
2160: ELSE
2161: CLOSE csr_chk_person;
2162: END IF;
2163: */
2162: END IF;
2163: */
2164: IF l_target_person_id = l_source_person_id THEN
2165: -- You can not align this objective to the same person who has this objective allocated.
2166: hr_utility.set_message(800,'HR_WPM_INV_ALIGN_SAME_PER');
2167: hr_utility.raise_error;
2168: END IF;
2169: --
2170: -- Check whether the objective to be aligned with is shared
2163: */
2164: IF l_target_person_id = l_source_person_id THEN
2165: -- You can not align this objective to the same person who has this objective allocated.
2166: hr_utility.set_message(800,'HR_WPM_INV_ALIGN_SAME_PER');
2167: hr_utility.raise_error;
2168: END IF;
2169: --
2170: -- Check whether the objective to be aligned with is shared
2171: --
2173: FETCH csr_chk_shared INTO l_shared;
2174: IF csr_chk_shared%NOTFOUND THEN
2175: CLOSE csr_chk_shared;
2176: -- You can not align this objective as this objective is not shared.
2177: hr_utility.set_message(800,'HR_WPM_INV_ALIGN_SHR_ACCESS');
2178: hr_utility.raise_error;
2179: ELSE
2180: CLOSE csr_chk_shared;
2181: END IF;
2174: IF csr_chk_shared%NOTFOUND THEN
2175: CLOSE csr_chk_shared;
2176: -- You can not align this objective as this objective is not shared.
2177: hr_utility.set_message(800,'HR_WPM_INV_ALIGN_SHR_ACCESS');
2178: hr_utility.raise_error;
2179: ELSE
2180: CLOSE csr_chk_shared;
2181: END IF;
2182: --
2181: END IF;
2182: --
2183: END IF;
2184: --
2185: hr_utility.set_location('Leaving: '|| l_proc, 10);
2186: --
2187: EXCEPTION
2188: WHEN app_exception.application_exception THEN
2189: IF hr_multi_message.exception_add
2231: l_exists varchar2(1);
2232: l_proc varchar2(72) := g_package||'chk_copied_from_sources';
2233: --
2234: begin
2235: hr_utility.set_location('Entering:'|| l_proc, 1);
2236: --
2237: if (nvl(p_copied_from_obj_id,-1) <> -1 AND nvl(p_copied_from_lib_id,-1) <> -1)
2238: then
2239: hr_utility.set_message(800,'HR_WPM_INV_COPY_SOURCES');
2235: hr_utility.set_location('Entering:'|| l_proc, 1);
2236: --
2237: if (nvl(p_copied_from_obj_id,-1) <> -1 AND nvl(p_copied_from_lib_id,-1) <> -1)
2238: then
2239: hr_utility.set_message(800,'HR_WPM_INV_COPY_SOURCES');
2240: hr_utility.raise_error;
2241: end if;
2242: --
2243: hr_utility.set_location('Leaving: '|| l_proc, 10);
2236: --
2237: if (nvl(p_copied_from_obj_id,-1) <> -1 AND nvl(p_copied_from_lib_id,-1) <> -1)
2238: then
2239: hr_utility.set_message(800,'HR_WPM_INV_COPY_SOURCES');
2240: hr_utility.raise_error;
2241: end if;
2242: --
2243: hr_utility.set_location('Leaving: '|| l_proc, 10);
2244: --
2239: hr_utility.set_message(800,'HR_WPM_INV_COPY_SOURCES');
2240: hr_utility.raise_error;
2241: end if;
2242: --
2243: hr_utility.set_location('Leaving: '|| l_proc, 10);
2244: --
2245: exception
2246: when app_exception.application_exception then
2247: if hr_multi_message.exception_add
2293: l_proc varchar2(72) := g_package||'chk_sharing_access_code';
2294: l_api_updating boolean;
2295: --
2296: begin
2297: hr_utility.set_location('Entering:'|| l_proc, 1);
2298: --
2299: -- Only proceed with validation if :
2300: -- a) The current g_old_rec is current and
2301: -- b) The sharing access code values have changed
2310: THEN
2311: RETURN;
2312: END IF;
2313:
2314: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
2315:
2316: --
2317: -- Checks that the group code is valid
2318: --
2326: fnd_message.set_name('PER', 'HR_WPM_INV_SHR_ACCESS_CDE');
2327: fnd_message.raise_error;
2328: end if;
2329: end if;
2330: hr_utility.set_location('Leaving: '|| l_proc, 10);
2331: --
2332: exception
2333: when app_exception.application_exception then
2334: if hr_multi_message.exception_add
2371: --
2372: l_proc varchar2(72) := g_package||'chk_df';
2373: --
2374: begin
2375: hr_utility.set_location('Entering:'||l_proc, 10);
2376: --
2377: if ((p_rec.objective_id is not null) and (
2378: nvl(per_obj_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
2379: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
2514: ,p_attribute30_value => p_rec.attribute30
2515: );
2516: end if;
2517: --
2518: hr_utility.set_location(' Leaving:'||l_proc, 20);
2519: end chk_df;
2520: --
2521: --
2522: -- ----------------------------------------------------------------------------
2530: --
2531: l_proc varchar2(72) := g_package||'insert_validate';
2532: --
2533: Begin
2534: hr_utility.set_location('Entering:'||l_proc, 5);
2535: --
2536: -- Call all supporting business operations
2537: --
2538: hr_api.validate_bus_grp_id(p_rec.business_group_id
2542: hr_multi_message.end_validation_set;
2543: --
2544: -- check if the name column has been entered
2545: if (p_rec.name is NULL) then
2546: hr_utility.set_message(801, 'HR_52062_OBJ_NAME_NULL');
2547: hr_utility.raise_error;
2548: end if;
2549: --
2550: -- check if the start date has been entered
2543: --
2544: -- check if the name column has been entered
2545: if (p_rec.name is NULL) then
2546: hr_utility.set_message(801, 'HR_52062_OBJ_NAME_NULL');
2547: hr_utility.raise_error;
2548: end if;
2549: --
2550: -- check if the start date has been entered
2551: if (p_rec.start_date is NULL) then
2548: end if;
2549: --
2550: -- check if the start date has been entered
2551: if (p_rec.start_date is NULL) then
2552: hr_utility.set_message(801, 'HR_52063_OBJ_START_DATE_NULL');
2553: hr_utility.raise_error;
2554: end if;
2555: --
2556: hr_utility.set_location('Leaving:'||l_proc, 4);
2549: --
2550: -- check if the start date has been entered
2551: if (p_rec.start_date is NULL) then
2552: hr_utility.set_message(801, 'HR_52063_OBJ_START_DATE_NULL');
2553: hr_utility.raise_error;
2554: end if;
2555: --
2556: hr_utility.set_location('Leaving:'||l_proc, 4);
2557: --
2552: hr_utility.set_message(801, 'HR_52063_OBJ_START_DATE_NULL');
2553: hr_utility.raise_error;
2554: end if;
2555: --
2556: hr_utility.set_location('Leaving:'||l_proc, 4);
2557: --
2558: -- check if target_date is not later that start_date
2559: --
2560: per_obj_bus.chk_target_date
2563: ,p_target_date => p_rec.target_date
2564: ,p_object_version_number => p_rec.object_version_number
2565: );
2566: --
2567: hr_utility.set_location('Leaving:'||l_proc, 5);
2568: --
2569: -- check if achievement_date is not later that start_date
2570: --
2571: per_obj_bus.chk_achiev_date
2577: ,p_object_version_number => p_rec.object_version_number
2578: ,p_scorecard_id => p_rec.scorecard_id -- added new parameter for fixing bug#5947176
2579: );
2580: --
2581: hr_utility.set_location('Leaving:'||l_proc, 6);
2582: -- check appraisal
2583: per_obj_bus.chk_appraisal
2584: (p_appraisal_id => p_rec.appraisal_id
2585: ,p_business_group_id => p_rec.business_group_id
2583: per_obj_bus.chk_appraisal
2584: (p_appraisal_id => p_rec.appraisal_id
2585: ,p_business_group_id => p_rec.business_group_id
2586: );
2587: hr_utility.set_location(l_proc, 7);
2588: -- check owned_by_person
2589: -- if owning_person_id = -3, then do not call business rule as
2590: -- business rule will fail, since this is coming from eligibility
2591: -- and publish plan process.
2609: ,p_object_version_number => p_rec.object_version_number
2610: ,p_effective_date => p_effective_date
2611: ,p_group_code => p_rec.group_code);
2612:
2613: hr_utility.set_location(l_proc, 20);
2614: --
2615: -- Check the priority.
2616: --
2617: chk_priority_code
2619: ,p_object_version_number => p_rec.object_version_number
2620: ,p_effective_date => p_effective_date
2621: ,p_priority_code => p_rec.priority_code);
2622:
2623: hr_utility.set_location(l_proc, 25);
2624: --
2625: -- Check the appraise flag.
2626: --
2627: chk_appraise_flag
2630: ,p_effective_date => p_effective_date
2631: ,p_appraise_flag => p_rec.appraise_flag
2632: ,p_scorecard_id => p_rec.scorecard_id);
2633:
2634: hr_utility.set_location(l_proc, 30);
2635: --
2636: -- Check the weighting percent.
2637: --
2638: chk_weighting_percent
2643: ,p_weighting_percent => p_rec.weighting_percent
2644: ,p_weighting_over_100_warning => p_weighting_over_100_warning
2645: ,p_weighting_appraisal_warning => p_weighting_appraisal_warning);
2646:
2647: hr_utility.set_location(l_proc, 35);
2648:
2649: --
2650: -- Check the measurement style code.
2651: --
2656: ,p_measurement_style_code => p_rec.measurement_style_code
2657: ,p_scorecard_id => p_rec.scorecard_id);
2658:
2659:
2660: hr_utility.set_location(l_proc, 40);
2661: --
2662: -- Check the measure name.
2663: --
2664: chk_measure_name
2666: ,p_object_version_number => p_rec.object_version_number
2667: ,p_measurement_style_code => p_rec.measurement_style_code
2668: ,p_measure_name => p_rec.measure_name);
2669:
2670: hr_utility.set_location(l_proc, 45);
2671: --
2672: -- Check the target value.
2673: --
2674: chk_target_value
2676: ,p_object_version_number => p_rec.object_version_number
2677: ,p_measurement_style_code => p_rec.measurement_style_code
2678: ,p_target_value => p_rec.target_value);
2679:
2680: hr_utility.set_location(l_proc, 50);
2681: --
2682: -- Check the UOM code.
2683: --
2684: chk_uom_code
2687: ,p_effective_date => p_effective_date
2688: ,p_measurement_style_code => p_rec.measurement_style_code
2689: ,p_uom_code => p_rec.uom_code);
2690:
2691: hr_utility.set_location(l_proc, 55);
2692: --
2693: -- Check the measure type code.
2694: --
2695: chk_measure_type_code
2698: ,p_effective_date => p_effective_date
2699: ,p_measurement_style_code => p_rec.measurement_style_code
2700: ,p_measure_type_code => p_rec.measure_type_code);
2701:
2702: hr_utility.set_location(l_proc, 60);
2703: --
2704: -- check if scorecard_id exists
2705: --
2706: IF p_rec.scorecard_id <> -1 THEN --- added for mass cascasde
2709: ,p_object_version_number => p_rec.object_version_number
2710: ,p_scorecard_id => p_rec.scorecard_id
2711: );
2712: END if;
2713: hr_utility.set_location(l_proc, 62);
2714: --
2715: -- check if complete percent is valid
2716: --
2717: hr_utility.set_location(l_proc, 66);
2713: hr_utility.set_location(l_proc, 62);
2714: --
2715: -- check if complete percent is valid
2716: --
2717: hr_utility.set_location(l_proc, 66);
2718: per_obj_bus.chk_complete_percent
2719: (p_objective_id => p_rec.objective_id
2720: ,p_object_version_number => p_rec.object_version_number
2721: ,p_complete_percent => p_rec.complete_percent);
2718: per_obj_bus.chk_complete_percent
2719: (p_objective_id => p_rec.objective_id
2720: ,p_object_version_number => p_rec.object_version_number
2721: ,p_complete_percent => p_rec.complete_percent);
2722: hr_utility.set_location(l_proc, 67);
2723: --
2724: -- check if next_review_date is later than start_date
2725: --
2726: per_obj_bus.chk_next_review_date
2728: ,p_start_date => p_rec.start_date
2729: ,p_next_review_date => p_rec.next_review_date
2730: ,p_object_version_number => p_rec.object_version_number
2731: );
2732: hr_utility.set_location(l_proc, 71);
2733: --
2734: chk_copied_from_lib_id
2735: (p_objective_id => p_rec.objective_id
2736: ,p_object_version_number => p_rec.object_version_number
2735: (p_objective_id => p_rec.objective_id
2736: ,p_object_version_number => p_rec.object_version_number
2737: ,p_copied_from_lib_id => p_rec.copied_from_library_id
2738: );
2739: hr_utility.set_location(l_proc, 72);
2740: --
2741: chk_copied_from_obj_id
2742: (p_objective_id => p_rec.objective_id
2743: ,p_object_version_number => p_rec.object_version_number
2742: (p_objective_id => p_rec.objective_id
2743: ,p_object_version_number => p_rec.object_version_number
2744: ,p_copied_from_obj_id => p_rec.copied_from_objective_id
2745: );
2746: hr_utility.set_location(l_proc, 73);
2747: --
2748: IF p_rec.scorecard_id <> -1 THEN --- added for mass cascasde
2749: chk_aligned_with_obj_id
2750: (p_objective_id => p_rec.objective_id
2752: ,p_aligned_with_obj_id => p_rec.aligned_with_objective_id
2753: ,p_scorecard_id => p_rec.scorecard_id
2754: );
2755: END if;
2756: hr_utility.set_location(l_proc, 74);
2757: --
2758: /* temporarily commented for functional justification
2759: chk_copied_from_sources
2760: (p_copied_from_obj_id => p_rec.copied_from_objective_id
2760: (p_copied_from_obj_id => p_rec.copied_from_objective_id
2761: ,p_copied_from_lib_id => p_rec.copied_from_library_id
2762: );
2763: */
2764: hr_utility.set_location(l_proc, 75);
2765: --
2766: chk_sharing_access_code
2767: (p_objective_id => p_rec.objective_id
2768: ,p_object_version_number => p_rec.object_version_number
2768: ,p_object_version_number => p_rec.object_version_number
2769: ,p_effective_date => p_effective_date
2770: ,p_sharing_access_code => p_rec.sharing_access_code
2771: );
2772: hr_utility.set_location(l_proc, 76);
2773: /*
2774: * End of changes added for WPM --===============================================
2775: */
2776:
2782: END IF;
2783: --
2784: per_obj_bus.chk_df(p_rec => p_rec);
2785: --
2786: hr_utility.set_location(' Leaving:'||l_proc, 10);
2787: End insert_validate;
2788: --
2789: -- ----------------------------------------------------------------------------
2790: -- |---------------------------< update_validate >----------------------------|
2797: --
2798: l_proc varchar2(72) := g_package||'update_validate';
2799: --
2800: Begin
2801: hr_utility.set_location('Entering:'||l_proc, 5);
2802: --
2803: -- Call all supporting business operations
2804: --
2805: --
2816: -- Rule Check non-updateable fields cannot be updated
2817: --
2818: chk_non_updateable_args(p_rec => p_rec);
2819: --
2820: hr_utility.set_location('Entering:'||l_proc, 6);
2821: -- check if the name column has been entered
2822: if (p_rec.name is NULL) then
2823: hr_utility.set_message(801, 'HR_52062_OBJ_NAME_NULL');
2824: hr_utility.raise_error;
2819: --
2820: hr_utility.set_location('Entering:'||l_proc, 6);
2821: -- check if the name column has been entered
2822: if (p_rec.name is NULL) then
2823: hr_utility.set_message(801, 'HR_52062_OBJ_NAME_NULL');
2824: hr_utility.raise_error;
2825: end if;
2826: --
2827: -- check if the start date has been entered
2820: hr_utility.set_location('Entering:'||l_proc, 6);
2821: -- check if the name column has been entered
2822: if (p_rec.name is NULL) then
2823: hr_utility.set_message(801, 'HR_52062_OBJ_NAME_NULL');
2824: hr_utility.raise_error;
2825: end if;
2826: --
2827: -- check if the start date has been entered
2828: if (p_rec.start_date is NULL) then
2825: end if;
2826: --
2827: -- check if the start date has been entered
2828: if (p_rec.start_date is NULL) then
2829: hr_utility.set_message(801, 'HR_52063_OBJ_START_DATE_NULL');
2830: hr_utility.raise_error;
2831: end if;
2832: --
2833: hr_utility.set_location('Leaving:'||l_proc, 4);
2826: --
2827: -- check if the start date has been entered
2828: if (p_rec.start_date is NULL) then
2829: hr_utility.set_message(801, 'HR_52063_OBJ_START_DATE_NULL');
2830: hr_utility.raise_error;
2831: end if;
2832: --
2833: hr_utility.set_location('Leaving:'||l_proc, 4);
2834: --
2829: hr_utility.set_message(801, 'HR_52063_OBJ_START_DATE_NULL');
2830: hr_utility.raise_error;
2831: end if;
2832: --
2833: hr_utility.set_location('Leaving:'||l_proc, 4);
2834: --
2835: -- check if target_date is not later that start_date
2836: --
2837: per_obj_bus.chk_target_date
2840: ,p_target_date => p_rec.target_date
2841: ,p_object_version_number => p_rec.object_version_number
2842: );
2843: --
2844: hr_utility.set_location('Leaving:'||l_proc, 5);
2845: --
2846: -- check if achievement_date is not later that start_date
2847: --
2848: per_obj_bus.chk_achiev_date
2854: ,p_object_version_number => p_rec.object_version_number
2855: ,p_scorecard_id => p_rec.scorecard_id -- added new parameter for fixing bug#5947176
2856: );
2857: --
2858: hr_utility.set_location('Leaving:'||l_proc, 6);
2859:
2860: /*
2861: * Added for WPM changes -- =========================================================
2862: *
2869: ,p_object_version_number => p_rec.object_version_number
2870: ,p_effective_date => p_effective_date
2871: ,p_group_code => p_rec.group_code);
2872:
2873: hr_utility.set_location(l_proc, 20);
2874: --
2875: -- Check the priority.
2876: --
2877: chk_priority_code
2879: ,p_object_version_number => p_rec.object_version_number
2880: ,p_effective_date => p_effective_date
2881: ,p_priority_code => p_rec.priority_code);
2882:
2883: hr_utility.set_location(l_proc, 25);
2884: --
2885: -- Check the appraise flag.
2886: --
2887: chk_appraise_flag
2890: ,p_effective_date => p_effective_date
2891: ,p_appraise_flag => p_rec.appraise_flag
2892: ,p_scorecard_id => p_rec.scorecard_id);
2893:
2894: hr_utility.set_location(l_proc, 30);
2895: --
2896: -- Check the weighting percent.
2897: --
2898: chk_weighting_percent
2903: ,p_weighting_percent => p_rec.weighting_percent
2904: ,p_weighting_over_100_warning => p_weighting_over_100_warning
2905: ,p_weighting_appraisal_warning => p_weighting_appraisal_warning);
2906:
2907: hr_utility.set_location(l_proc, 35);
2908: --
2909: -- Check the measurement style code.
2910: --
2911: chk_measurement_style_code
2914: ,p_effective_date => p_effective_date
2915: ,p_measurement_style_code => p_rec.measurement_style_code
2916: ,p_scorecard_id => p_rec.scorecard_id);
2917:
2918: hr_utility.set_location(l_proc, 40);
2919: --
2920: -- Check the measure name.
2921: --
2922: chk_measure_name
2924: ,p_object_version_number => p_rec.object_version_number
2925: ,p_measurement_style_code => p_rec.measurement_style_code
2926: ,p_measure_name => p_rec.measure_name);
2927:
2928: hr_utility.set_location(l_proc, 45);
2929: --
2930: -- Check the target value.
2931: --
2932: chk_target_value
2934: ,p_object_version_number => p_rec.object_version_number
2935: ,p_measurement_style_code => p_rec.measurement_style_code
2936: ,p_target_value => p_rec.target_value);
2937:
2938: hr_utility.set_location(l_proc, 50);
2939: --
2940: -- Check the UOM code.
2941: --
2942: chk_uom_code
2945: ,p_effective_date => p_effective_date
2946: ,p_measurement_style_code => p_rec.measurement_style_code
2947: ,p_uom_code => p_rec.uom_code);
2948:
2949: hr_utility.set_location(l_proc, 55);
2950: --
2951: -- Check the measure type code.
2952: --
2953: chk_measure_type_code
2956: ,p_effective_date => p_effective_date
2957: ,p_measurement_style_code => p_rec.measurement_style_code
2958: ,p_measure_type_code => p_rec.measure_type_code);
2959:
2960: hr_utility.set_location(l_proc, 60);
2961: --
2962: -- check if scorecard_id exists
2963: --
2964: IF p_rec.scorecard_id <> -1 THEN --- added for mass cascasde
2967: ,p_object_version_number => p_rec.object_version_number
2968: ,p_scorecard_id => p_rec.scorecard_id
2969: );
2970: END if;
2971: hr_utility.set_location(l_proc, 62);
2972: --
2973: -- check appraisal
2974: per_obj_bus.chk_appraisal
2975: (p_appraisal_id => p_rec.appraisal_id
2974: per_obj_bus.chk_appraisal
2975: (p_appraisal_id => p_rec.appraisal_id
2976: ,p_business_group_id => p_rec.business_group_id
2977: );
2978: hr_utility.set_location(l_proc, 63);
2979:
2980: per_obj_bus.chk_upd_appraisal(p_rec.appraisal_id);
2981: hr_utility.set_location(l_proc, 64);
2982: --
2977: );
2978: hr_utility.set_location(l_proc, 63);
2979:
2980: per_obj_bus.chk_upd_appraisal(p_rec.appraisal_id);
2981: hr_utility.set_location(l_proc, 64);
2982: --
2983: -- check if complete percent is valid
2984: --
2985: hr_utility.set_location(l_proc, 66);
2981: hr_utility.set_location(l_proc, 64);
2982: --
2983: -- check if complete percent is valid
2984: --
2985: hr_utility.set_location(l_proc, 66);
2986: per_obj_bus.chk_complete_percent
2987: (p_objective_id => p_rec.objective_id
2988: ,p_object_version_number => p_rec.object_version_number
2989: ,p_complete_percent => p_rec.complete_percent);
2986: per_obj_bus.chk_complete_percent
2987: (p_objective_id => p_rec.objective_id
2988: ,p_object_version_number => p_rec.object_version_number
2989: ,p_complete_percent => p_rec.complete_percent);
2990: hr_utility.set_location(l_proc, 67);
2991: --
2992: -- check if next_review_date is later that start_date
2993: --
2994: per_obj_bus.chk_next_review_date
2996: ,p_start_date => p_rec.start_date
2997: ,p_next_review_date => p_rec.next_review_date
2998: ,p_object_version_number => p_rec.object_version_number
2999: );
3000: hr_utility.set_location(l_proc, 70);
3001: --
3002: chk_copied_from_lib_id
3003: (p_objective_id => p_rec.objective_id
3004: ,p_object_version_number => p_rec.object_version_number
3003: (p_objective_id => p_rec.objective_id
3004: ,p_object_version_number => p_rec.object_version_number
3005: ,p_copied_from_lib_id => p_rec.copied_from_library_id
3006: );
3007: hr_utility.set_location(l_proc, 72);
3008: --
3009: chk_copied_from_obj_id
3010: (p_objective_id => p_rec.objective_id
3011: ,p_object_version_number => p_rec.object_version_number
3010: (p_objective_id => p_rec.objective_id
3011: ,p_object_version_number => p_rec.object_version_number
3012: ,p_copied_from_obj_id => p_rec.copied_from_objective_id
3013: );
3014: hr_utility.set_location(l_proc, 73);
3015: --
3016: IF p_rec.scorecard_id <> -1 THEN --- added for mass cascasde
3017: chk_aligned_with_obj_id
3018: (p_objective_id => p_rec.objective_id
3020: ,p_aligned_with_obj_id => p_rec.aligned_with_objective_id
3021: ,p_scorecard_id => p_rec.scorecard_id
3022: );
3023: END if;
3024: hr_utility.set_location(l_proc, 74);
3025: --
3026: /*
3027: chk_copied_from_sources
3028: (p_copied_from_obj_id => p_rec.copied_from_objective_id
3028: (p_copied_from_obj_id => p_rec.copied_from_objective_id
3029: ,p_copied_from_lib_id => p_rec.copied_from_library_id
3030: );
3031: */
3032: hr_utility.set_location(l_proc, 75);
3033: --
3034: chk_sharing_access_code
3035: (p_objective_id => p_rec.objective_id
3036: ,p_object_version_number => p_rec.object_version_number
3036: ,p_object_version_number => p_rec.object_version_number
3037: ,p_effective_date => p_effective_date
3038: ,p_sharing_access_code => p_rec.sharing_access_code
3039: );
3040: hr_utility.set_location(l_proc, 76);
3041: /*
3042: * End of changes added for WPM --===============================================
3043: */
3044:
3050: END IF;
3051: --
3052: per_obj_bus.chk_df(p_rec => p_rec);
3053: --
3054: hr_utility.set_location(' Leaving:'||l_proc, 10);
3055: End update_validate;
3056: --
3057: -- ----------------------------------------------------------------------------
3058: -- |---------------------------< delete_validate >----------------------------|
3061: --
3062: l_proc varchar2(72) := g_package||'delete_validate';
3063: --
3064: Begin
3065: hr_utility.set_location('Entering:'||l_proc, 5);
3066: --
3067: -- Call all supporting business operations
3068: --
3069: per_obj_bus.chk_objective_delete
3069: per_obj_bus.chk_objective_delete
3070: (p_objective_id => p_rec.objective_id
3071: ,p_object_version_number => p_rec.object_version_number
3072: );
3073: hr_utility.set_location(' Leaving:'||l_proc, 10);
3074: End delete_validate;
3075: --
3076: -- ----------------------------------------------------------------------------
3077: -- |-----------------------< return_legislation_code >-------------------------|
3094: l_proc varchar2(72) := 'return_legislation_code';
3095: l_legislation_code varchar2(150);
3096: --
3097: begin
3098: hr_utility.set_location('Entering:'||l_proc, 10);
3099: --
3100: -- Ensure that all the mandatory parameters are not null
3101: --
3102: hr_api.mandatory_arg_error (p_api_name => l_proc,
3108: -- call to this function. Just return the value in the global
3109: -- variable.
3110: --
3111: l_legislation_code := g_legislation_code;
3112: hr_utility.set_location(l_proc, 20);
3113: else
3114: --
3115: -- The ID is different to the last call to this function
3116: -- or this is the first call to this function.
3122: -- The primary key is invalid therefore we must error
3123: --
3124: close csr_leg_code;
3125: --
3126: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
3127: hr_utility.raise_error;
3128: end if;
3129: hr_utility.set_location(l_proc, 30);
3130: --
3123: --
3124: close csr_leg_code;
3125: --
3126: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
3127: hr_utility.raise_error;
3128: end if;
3129: hr_utility.set_location(l_proc, 30);
3130: --
3131: -- Set the global variables so the values are
3125: --
3126: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
3127: hr_utility.raise_error;
3128: end if;
3129: hr_utility.set_location(l_proc, 30);
3130: --
3131: -- Set the global variables so the values are
3132: -- available for the next call to this function
3133: --
3134: close csr_leg_code;
3135: g_objective_id := p_objective_id;
3136: g_legislation_code := l_legislation_code;
3137: end if;
3138: hr_utility.set_location(' Leaving:'||l_proc, 40);
3139: return l_legislation_code;
3140: --
3141: end return_legislation_code;
3142: --