[Home] [Help]
20: l_error exception;
21: l_argument varchar2(30);
22: --
23: Begin
24: hr_utility.set_location('Entering:'||l_proc, 5);
25: --
26: -- Only proceed with validation if a row exists for
27: -- the current record in the HR Schema
28: --
29: if not per_pyp_shd.api_updating
30: (p_pay_proposal_id => p_rec.pay_proposal_id
31: ,p_object_version_number => p_rec.object_version_number
32: ) then
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP', '5');
36: end if;
37: --
30: (p_pay_proposal_id => p_rec.pay_proposal_id
31: ,p_object_version_number => p_rec.object_version_number
32: ) then
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP', '5');
36: end if;
37: --
38: hr_utility.set_location(l_proc, 6);
31: ,p_object_version_number => p_rec.object_version_number
32: ) then
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP', '5');
36: end if;
37: --
38: hr_utility.set_location(l_proc, 6);
39: --
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP', '5');
36: end if;
37: --
38: hr_utility.set_location(l_proc, 6);
39: --
40: if p_rec.business_group_id <> per_pyp_shd.g_old_rec.business_group_id then
41: l_argument := 'business_group_id';
42: raise l_error;
40: if p_rec.business_group_id <> per_pyp_shd.g_old_rec.business_group_id then
41: l_argument := 'business_group_id';
42: raise l_error;
43: end if;
44: hr_utility.set_location(l_proc, 7);
45: --
46: if p_rec.assignment_id <> per_pyp_shd.g_old_rec.assignment_id then
47: l_argument := 'assignment_id';
48: raise l_error;
46: if p_rec.assignment_id <> per_pyp_shd.g_old_rec.assignment_id then
47: l_argument := 'assignment_id';
48: raise l_error;
49: end if;
50: hr_utility.set_location(l_proc, 8);
51: --
52: if p_rec.pay_proposal_id <> per_pyp_shd.g_old_rec.pay_proposal_id then
53: l_argument := 'pay_proposal_id';
54: raise l_error;
52: if p_rec.pay_proposal_id <> per_pyp_shd.g_old_rec.pay_proposal_id then
53: l_argument := 'pay_proposal_id';
54: raise l_error;
55: end if;
56: hr_utility.set_location(l_proc, 9);
57: --
58: /* change_date can be updated provided that the proposal has not already
59: been approved.
60:
61: if p_rec.change_date <> per_pyp_shd.g_old_rec.change_date then
62: l_argument := 'change_date';
63: raise l_error;
64: end if;
65: hr_utility.set_location(l_proc, 10);*/
66: --
67: if p_rec.last_change_date <> per_pyp_shd.g_old_rec.last_change_date then
68: l_argument := 'last_change_date';
69: raise l_error;
67: if p_rec.last_change_date <> per_pyp_shd.g_old_rec.last_change_date then
68: l_argument := 'last_change_date';
69: raise l_error;
70: end if;
71: hr_utility.set_location(l_proc, 11);
72: exception
73: when l_error then
74: hr_api.argument_changed_error
75: (p_api_name => l_proc
75: (p_api_name => l_proc
76: ,p_argument => l_argument);
77: when others then
78: raise;
79: hr_utility.set_location(' Leaving:'||l_proc, 12);
80: end check_non_updateable_args;
81: --
82: /* procedure changed to incorporate changes for Bug#7386307 by schowdhu*/
83:
114: l_next_proposed_date date;
115: l_next_approved_date date;
116:
117: begin
118: hr_utility.set_location('Entering:'|| l_proc, 10);
119: if p_date_to is not null then
120:
121: OPEN csr_next_proposed_date;
122: fetch csr_next_proposed_date into l_next_proposed_date;
127: CLOSE csr_next_approved_date;
128:
129: if p_approved = 'N' and l_next_proposed_date is not null then
130: if p_date_to >= l_next_proposed_date then
131: hr_utility.set_message(800, 'PER_SAL_DATES_OVERLAP');
132: hr_utility.raise_error;
133: end if;
134: end if;
135: if p_approved = 'Y' and l_next_approved_date is not null then
128:
129: if p_approved = 'N' and l_next_proposed_date is not null then
130: if p_date_to >= l_next_proposed_date then
131: hr_utility.set_message(800, 'PER_SAL_DATES_OVERLAP');
132: hr_utility.raise_error;
133: end if;
134: end if;
135: if p_approved = 'Y' and l_next_approved_date is not null then
136: if p_date_to >= l_next_approved_date then
133: end if;
134: end if;
135: if p_approved = 'Y' and l_next_approved_date is not null then
136: if p_date_to >= l_next_approved_date then
137: hr_utility.set_message(800, 'PER_SAL_DATES_OVERLAP');
138: hr_utility.raise_error;
139:
140: end if;
141:
134: end if;
135: if p_approved = 'Y' and l_next_approved_date is not null then
136: if p_date_to >= l_next_approved_date then
137: hr_utility.set_message(800, 'PER_SAL_DATES_OVERLAP');
138: hr_utility.raise_error;
139:
140: end if;
141:
142:
145:
146:
147: end if;
148: --
149: hr_utility.set_location('Leaving :'|| l_proc, 90);
150: end validate_date_to;
151: --
152: procedure gen_last_change_date
153: (p_rec in out nocopy per_pyp_shd.g_rec_type) is
164: and pro.change_date
166: --
167: Begin
168: hr_utility.set_location('Entering:' || l_proc, 1);
169: --
170: -- set the last_change_date
171: --
172: open csr_last_change_date;
171: --
172: open csr_last_change_date;
173: fetch csr_last_change_date into l_last_change_date;
174: if csr_last_change_date%notfound then
175: hr_utility.set_location(l_proc, 2);
176: p_rec.last_change_date := null;
177: else
178: p_rec.last_change_date := l_last_change_date;
179: end if;
178: p_rec.last_change_date := l_last_change_date;
179: end if;
180: close csr_last_change_date;
181: --
182: hr_utility.set_location('Leaving: ' || l_proc, 3);
183: --
184: end gen_last_change_date;
185: --
186: --
346: l_proc varchar2(72) := g_package||'chk_pay_basis_change_date';
347: --
348: begin
349: --
350: hr_utility.set_location('Entering: ' || l_proc,1);
351: --
352: -- check that whether this is the first salary record or not
353: -- i.e. At least one approved salary exists.
354: --
355: open csr_first_proposal;
356: fetch csr_first_proposal into l_exists;
357: if csr_first_proposal%found then
358: close csr_first_proposal;
359: hr_utility.set_location(l_proc,5);
360: --
361: -- Now check whether there has been a pay_basis change in the assignment.
362: -- If there is no salary element going to the end of time this means
363: -- that the pay_basis has changed.
367: open csr_element_effective_end_date;
368: fetch csr_element_effective_end_date into l_effective_end_date;
369: if csr_element_effective_end_date%notfound then
370: close csr_element_effective_end_date;
371: hr_utility.set_location(l_proc,10);
372: hr_utility.set_message(801,'HR_51716_PYP_ELEMNT_ID_INVL');
373: hr_utility.raise_error;
374: else
375: close csr_element_effective_end_date;
368: fetch csr_element_effective_end_date into l_effective_end_date;
369: if csr_element_effective_end_date%notfound then
370: close csr_element_effective_end_date;
371: hr_utility.set_location(l_proc,10);
372: hr_utility.set_message(801,'HR_51716_PYP_ELEMNT_ID_INVL');
373: hr_utility.raise_error;
374: else
375: close csr_element_effective_end_date;
376: if l_effective_end_date = hr_general.end_of_time then
369: if csr_element_effective_end_date%notfound then
370: close csr_element_effective_end_date;
371: hr_utility.set_location(l_proc,10);
372: hr_utility.set_message(801,'HR_51716_PYP_ELEMNT_ID_INVL');
373: hr_utility.raise_error;
374: else
375: close csr_element_effective_end_date;
376: if l_effective_end_date = hr_general.end_of_time then
377: hr_utility.set_location(l_proc,15);
373: hr_utility.raise_error;
374: else
375: close csr_element_effective_end_date;
376: if l_effective_end_date = hr_general.end_of_time then
377: hr_utility.set_location(l_proc,15);
378: else
379: --
380: -- element has ended for some reason. Check
381: -- to see if the new proposal is the day after the element has ended
380: -- element has ended for some reason. Check
381: -- to see if the new proposal is the day after the element has ended
382: -- which is correct for a pay basis change
383: --
384: hr_utility.set_location(l_proc,20);
385: if (l_effective_end_date+1 <> p_change_date) then
386: --
387: -- new proposal is not 1 day after element end so check to see if
388: -- element ends on the day the assignment ends, so changes are OK.
386: --
387: -- new proposal is not 1 day after element end so check to see if
388: -- element ends on the day the assignment ends, so changes are OK.
389: --
390: hr_utility.set_location(l_proc,25);
391: open csr_asg_effective_end_date;
392: fetch csr_asg_effective_end_date into l_asg_effective_end_date;
393: close csr_asg_effective_end_date;
394: if (l_asg_effective_end_date <>l_effective_end_date) then
407: --
408: -- element does not end on the day that the assignment ends, but
409: -- could end on the final process date
410: --
411: hr_utility.set_location(l_proc,26);
412: --4073821
413: -- open csr_pds_final_process_date;
414: -- fetch csr_pds_final_process_date into l_pds_final_process_date;
415: -- close csr_pds_final_process_date;
414: -- fetch csr_pds_final_process_date into l_pds_final_process_date;
415: -- close csr_pds_final_process_date;
416: if (l_pds_final_process_date <> l_effective_end_date) or
417: (l_pds_final_process_date is null) then
418: hr_utility.set_location(l_proc,27);
419: hr_utility.set_message(801,'HR_51717_PYP_CHG_DATE_INVL');
420: hr_utility.raise_error;
421: end if;
422: ELSIF NVL(l_ele_term_rule,'F') = 'L' THEN
415: -- close csr_pds_final_process_date;
416: if (l_pds_final_process_date <> l_effective_end_date) or
417: (l_pds_final_process_date is null) then
418: hr_utility.set_location(l_proc,27);
419: hr_utility.set_message(801,'HR_51717_PYP_CHG_DATE_INVL');
420: hr_utility.raise_error;
421: end if;
422: ELSIF NVL(l_ele_term_rule,'F') = 'L' THEN
423: --
416: if (l_pds_final_process_date <> l_effective_end_date) or
417: (l_pds_final_process_date is null) then
418: hr_utility.set_location(l_proc,27);
419: hr_utility.set_message(801,'HR_51717_PYP_CHG_DATE_INVL');
420: hr_utility.raise_error;
421: end if;
422: ELSIF NVL(l_ele_term_rule,'F') = 'L' THEN
423: --
424: -- Element does not end on the day that the assignment ends, but
423: --
424: -- Element does not end on the day that the assignment ends, but
425: -- could end on the last standard process date
426: --
427: hr_utility.set_location(l_proc,26);
428: if (l_pds_last_std_proc_date <> l_effective_end_date) or
429: (l_pds_last_std_proc_date is null) then
430: hr_utility.set_location(l_proc,27);
431: hr_utility.set_message(801,'HR_51717_PYP_CHG_DATE_INVL');
426: --
427: hr_utility.set_location(l_proc,26);
428: if (l_pds_last_std_proc_date <> l_effective_end_date) or
429: (l_pds_last_std_proc_date is null) then
430: hr_utility.set_location(l_proc,27);
431: hr_utility.set_message(801,'HR_51717_PYP_CHG_DATE_INVL');
432: hr_utility.raise_error;
433: end if;
434: END IF; -- End of Termination Rule condition added for Bug 4073821
427: hr_utility.set_location(l_proc,26);
428: if (l_pds_last_std_proc_date <> l_effective_end_date) or
429: (l_pds_last_std_proc_date is null) then
430: hr_utility.set_location(l_proc,27);
431: hr_utility.set_message(801,'HR_51717_PYP_CHG_DATE_INVL');
432: hr_utility.raise_error;
433: end if;
434: END IF; -- End of Termination Rule condition added for Bug 4073821
435: end if;
428: if (l_pds_last_std_proc_date <> l_effective_end_date) or
429: (l_pds_last_std_proc_date is null) then
430: hr_utility.set_location(l_proc,27);
431: hr_utility.set_message(801,'HR_51717_PYP_CHG_DATE_INVL');
432: hr_utility.raise_error;
433: end if;
434: END IF; -- End of Termination Rule condition added for Bug 4073821
435: end if;
436: end if;
440: end if;
441: --
442: else
443: close csr_first_proposal;
444: hr_utility.set_location(l_proc,28);
445: end if;
446: --
447: -- Now do a further check to see whether there is future pay_basis changes
448: -- The following validation is removed by ggnanagu
455: --
456: -- raise an error if there future pay_basis change in the assignment.
457: --
458: close csr_asg_pay_bases;
459: hr_utility.set_location(l_proc,30);
460: hr_utility.set_message(801,'HR_51718_PYP_FUTU_PAY_BAS_CHG');
461: hr_utility.raise_error;
462: else
463: close csr_asg_pay_bases;
456: -- raise an error if there future pay_basis change in the assignment.
457: --
458: close csr_asg_pay_bases;
459: hr_utility.set_location(l_proc,30);
460: hr_utility.set_message(801,'HR_51718_PYP_FUTU_PAY_BAS_CHG');
461: hr_utility.raise_error;
462: else
463: close csr_asg_pay_bases;
464: hr_utility.set_location(l_proc,31);
457: --
458: close csr_asg_pay_bases;
459: hr_utility.set_location(l_proc,30);
460: hr_utility.set_message(801,'HR_51718_PYP_FUTU_PAY_BAS_CHG');
461: hr_utility.raise_error;
462: else
463: close csr_asg_pay_bases;
464: hr_utility.set_location(l_proc,31);
465: end if;
460: hr_utility.set_message(801,'HR_51718_PYP_FUTU_PAY_BAS_CHG');
461: hr_utility.raise_error;
462: else
463: close csr_asg_pay_bases;
464: hr_utility.set_location(l_proc,31);
465: end if;
466: */
467:
468: hr_utility.set_location('Leaving: ' ||l_proc,35);
464: hr_utility.set_location(l_proc,31);
465: end if;
466: */
467:
468: hr_utility.set_location('Leaving: ' ||l_proc,35);
469: --
470: end chk_pay_basis_change_date;
471: --
472: --
523: where asg.assignment_id = p_assignment_id
524: and p_change_date between asg.effective_start_date
525: and asg.effective_end_date;
526: begin
527: hr_utility.set_location('Entering:'|| l_proc, 10);
528:
529: --get the assignment_type
530: --bug#8566773 vkodedal 03-Jun-2009 relax the validation for offer assignment
531: open csr_asg_type;
546: end if;
547: close csr_asg_sec;
548:
549: end if;
550: hr_utility.set_location(' Leaving:'|| l_proc, 30);
551: end chk_access;
552: --
553: --
554: -------------------------------------------------------------------------------
676: and ptp.end_date(+)); --bug 2694178, 2801228
677: --
678: --
679: begin
680: hr_utility.set_location('Entering:'|| l_proc, 1);
681: --
682: -- Check mandatory parameters have been set
683: --
684: hr_api.mandatory_arg_error
716: -- if we are updating but it was already approved then error.
717: --
718: if ((l_api_updating and per_pyp_shd.g_old_rec.approved='Y') and
719: (nvl(g_validate_ss_change_pay,'N') = 'N'))then
720: hr_utility.set_message(800,'HR_51349_PYP_CNT_UPD_CHG_DATE');
721: hr_utility.raise_error;
722: else
723: hr_utility.set_location(l_proc, 2);
724: --
717: --
718: if ((l_api_updating and per_pyp_shd.g_old_rec.approved='Y') and
719: (nvl(g_validate_ss_change_pay,'N') = 'N'))then
720: hr_utility.set_message(800,'HR_51349_PYP_CNT_UPD_CHG_DATE');
721: hr_utility.raise_error;
722: else
723: hr_utility.set_location(l_proc, 2);
724: --
725: -- Check the assignment details as of change_date
719: (nvl(g_validate_ss_change_pay,'N') = 'N'))then
720: hr_utility.set_message(800,'HR_51349_PYP_CNT_UPD_CHG_DATE');
721: hr_utility.raise_error;
722: else
723: hr_utility.set_location(l_proc, 2);
724: --
725: -- Check the assignment details as of change_date
726: --
727: open csr_chk_assig_details;
727: open csr_chk_assig_details;
728: fetch csr_chk_assig_details into l_system_status, l_business_group_id,
729: l_assignment_type, l_payroll_status, l_pay_basis_id,l_payroll_id;
730: if csr_chk_assig_details%notfound then
731: hr_utility.set_location(l_proc, 5);
732: -- The assignment_id is incorrect
733: close csr_chk_assig_details;
734: /**
735: * Bug Fix: 3144666
737: **/
738: p_payroll_warning := true;
739: /*Change date does not fall within any payroll period.
740: Message changed for Bug 3077957 */
741: -- hr_utility.set_message(800,'PER_289483_CHG_DT_NO_PAY_PRD');
742: -- hr_utility.raise_error;
743: --
744: else close csr_chk_assig_details;
745: --
738: p_payroll_warning := true;
739: /*Change date does not fall within any payroll period.
740: Message changed for Bug 3077957 */
741: -- hr_utility.set_message(800,'PER_289483_CHG_DT_NO_PAY_PRD');
742: -- hr_utility.raise_error;
743: --
744: else close csr_chk_assig_details;
745: --
746: -- Check that the business group id is the same.
745: --
746: -- Check that the business group id is the same.
747: --
748: if l_business_group_id <> p_business_group_id then
749: hr_utility.set_location(l_proc, 10);
750: -- The business_group_id is incorrect
751: hr_utility.set_message(801,'HR_51255_PYP_INVLID_BUS_GROUP');
752: hr_utility.raise_error;
753: --
747: --
748: if l_business_group_id <> p_business_group_id then
749: hr_utility.set_location(l_proc, 10);
750: -- The business_group_id is incorrect
751: hr_utility.set_message(801,'HR_51255_PYP_INVLID_BUS_GROUP');
752: hr_utility.raise_error;
753: --
754: -- Check that the system_status is not 'TERM_ASSIGN'
755: --
748: if l_business_group_id <> p_business_group_id then
749: hr_utility.set_location(l_proc, 10);
750: -- The business_group_id is incorrect
751: hr_utility.set_message(801,'HR_51255_PYP_INVLID_BUS_GROUP');
752: hr_utility.raise_error;
753: --
754: -- Check that the system_status is not 'TERM_ASSIGN'
755: --
756: elsif l_system_status = 'TERM_ASSIGN' then
753: --
754: -- Check that the system_status is not 'TERM_ASSIGN'
755: --
756: elsif l_system_status = 'TERM_ASSIGN' then
757: hr_utility.set_location(l_proc, 15);
758: hr_utility.set_message(801,'HR_7340_SAL_ASS_TERMINATED');
759: hr_utility.raise_error;
760: --
761: -- Check that the payroll_status is not closed
754: -- Check that the system_status is not 'TERM_ASSIGN'
755: --
756: elsif l_system_status = 'TERM_ASSIGN' then
757: hr_utility.set_location(l_proc, 15);
758: hr_utility.set_message(801,'HR_7340_SAL_ASS_TERMINATED');
759: hr_utility.raise_error;
760: --
761: -- Check that the payroll_status is not closed
762: -- If the payroll is null then there is no need check payroll status
755: --
756: elsif l_system_status = 'TERM_ASSIGN' then
757: hr_utility.set_location(l_proc, 15);
758: hr_utility.set_message(801,'HR_7340_SAL_ASS_TERMINATED');
759: hr_utility.raise_error;
760: --
761: -- Check that the payroll_status is not closed
762: -- If the payroll is null then there is no need check payroll status
763: -- bug# 2801228
762: -- If the payroll is null then there is no need check payroll status
763: -- bug# 2801228
764: elsif (nvl(l_payroll_status,'C') <> 'O' and
765: l_payroll_id is not null) then
766: hr_utility.set_location(l_proc, 25);
767: /**
768: * Bug Fix: 3144666
769: * Description: To change the error to warning
770: **/
768: * Bug Fix: 3144666
769: * Description: To change the error to warning
770: **/
771: p_payroll_warning := true;
772: --hr_utility.set_message(800,'HR_SAL_PAYROLL_PERIOD_CLOSED');
773: --hr_utility.raise_error; -- Error will raised instead of warning.
774: -- bug# 2694178
775: --
776: -- Check that the assignment has a vaild pay_basis
769: * Description: To change the error to warning
770: **/
771: p_payroll_warning := true;
772: --hr_utility.set_message(800,'HR_SAL_PAYROLL_PERIOD_CLOSED');
773: --hr_utility.raise_error; -- Error will raised instead of warning.
774: -- bug# 2694178
775: --
776: -- Check that the assignment has a vaild pay_basis
777: --
775: --
776: -- Check that the assignment has a vaild pay_basis
777: --
778: elsif (l_pay_basis_id IS NULL) then
779: hr_utility.set_location(l_proc, 30);
780: hr_utility.set_message(801, 'HR_289855_SAL_ASS_NOT_SAL_ELIG');
781: hr_utility.raise_error;
782: elsif (l_api_updating = false) then
783: --
776: -- Check that the assignment has a vaild pay_basis
777: --
778: elsif (l_pay_basis_id IS NULL) then
779: hr_utility.set_location(l_proc, 30);
780: hr_utility.set_message(801, 'HR_289855_SAL_ASS_NOT_SAL_ELIG');
781: hr_utility.raise_error;
782: elsif (l_api_updating = false) then
783: --
784: -- check that the p_change_date is greater than the last proposal
777: --
778: elsif (l_pay_basis_id IS NULL) then
779: hr_utility.set_location(l_proc, 30);
780: hr_utility.set_message(801, 'HR_289855_SAL_ASS_NOT_SAL_ELIG');
781: hr_utility.raise_error;
782: elsif (l_api_updating = false) then
783: --
784: -- check that the p_change_date is greater than the last proposal
785: -- change_date.
790: /*
791: open csr_last_change_date;
792: fetch csr_last_change_date into l_change_date;
793: if csr_last_change_date%notfound then
794: hr_utility.set_location(l_proc, 35);
795: --
796: elsif
797: l_change_date > p_change_date then
798: hr_utility.set_location(l_proc, 40);
794: hr_utility.set_location(l_proc, 35);
795: --
796: elsif
797: l_change_date > p_change_date then
798: hr_utility.set_location(l_proc, 40);
799: close csr_last_change_date;
800: hr_utility.set_message(801,'HR_7293_SAL_FUTURE_APPS_EXIST');
801: hr_utility.raise_error;
802: --
796: elsif
797: l_change_date > p_change_date then
798: hr_utility.set_location(l_proc, 40);
799: close csr_last_change_date;
800: hr_utility.set_message(801,'HR_7293_SAL_FUTURE_APPS_EXIST');
801: hr_utility.raise_error;
802: --
803: end if;
804: close csr_last_change_date;
797: l_change_date > p_change_date then
798: hr_utility.set_location(l_proc, 40);
799: close csr_last_change_date;
800: hr_utility.set_message(801,'HR_7293_SAL_FUTURE_APPS_EXIST');
801: hr_utility.raise_error;
802: --
803: end if;
804: close csr_last_change_date;
805: */
810: /*
811: open csr_other_proposals_exist;
812: fetch csr_other_proposals_exist into l_exists;
813: if csr_other_proposals_exist%notfound then
814: hr_utility.set_location(l_proc, 45);
815: close csr_other_proposals_exist;
816: --
817: else
818: close csr_other_proposals_exist;
815: close csr_other_proposals_exist;
816: --
817: else
818: close csr_other_proposals_exist;
819: hr_utility.set_location(l_proc, 50);
820: hr_utility.set_message(801, 'HR_7294_SAL_ONLY_ONE_PROPOSAL');
821: hr_utility.raise_error;
822: end if;
823: */
816: --
817: else
818: close csr_other_proposals_exist;
819: hr_utility.set_location(l_proc, 50);
820: hr_utility.set_message(801, 'HR_7294_SAL_ONLY_ONE_PROPOSAL');
821: hr_utility.raise_error;
822: end if;
823: */
824:
817: else
818: close csr_other_proposals_exist;
819: hr_utility.set_location(l_proc, 50);
820: hr_utility.set_message(801, 'HR_7294_SAL_ONLY_ONE_PROPOSAL');
821: hr_utility.raise_error;
822: end if;
823: */
824:
825: --
827: --
828: open csr_dup_change_date;
829: fetch csr_dup_change_date into l_exists;
830: if csr_dup_change_date%notfound then
831: hr_utility.set_location(l_proc, 55);
832: close csr_dup_change_date;
833: else
834: hr_utility.set_location(l_proc, 60);
835: close csr_dup_change_date;
830: if csr_dup_change_date%notfound then
831: hr_utility.set_location(l_proc, 55);
832: close csr_dup_change_date;
833: else
834: hr_utility.set_location(l_proc, 60);
835: close csr_dup_change_date;
836: hr_utility.set_message(801,'HR_13000_SAL_DATE_NOT_UNIQUE');
837: hr_utility.raise_error;
838: end if;
832: close csr_dup_change_date;
833: else
834: hr_utility.set_location(l_proc, 60);
835: close csr_dup_change_date;
836: hr_utility.set_message(801,'HR_13000_SAL_DATE_NOT_UNIQUE');
837: hr_utility.raise_error;
838: end if;
839: --
840: -- This code was added at version 70.4 to fix bug 411671.
833: else
834: hr_utility.set_location(l_proc, 60);
835: close csr_dup_change_date;
836: hr_utility.set_message(801,'HR_13000_SAL_DATE_NOT_UNIQUE');
837: hr_utility.raise_error;
838: end if;
839: --
840: -- This code was added at version 70.4 to fix bug 411671.
841: -- this checks that the change_date of the salary proposal is valid if
849: -- Salary Basis change date
850: /*
851:
852: chk_pay_basis_change_date (p_assignment_id,p_change_date);
853: hr_utility.set_location(l_proc, 61);
854:
855: */
856: end if;
857: --
857: --
858: end if;
859: end if;
860: end if;
861: hr_utility.set_location('Leaving: ' || l_proc, 65);
862: end chk_assignment_id_change_date;
863: --
864: --
865: --
902: l_num_months number(15) := 0;
903: l_num_days number(15) := 0;
904: --
905: begin
906: hr_utility.set_location('Entering:'|| l_proc, 1);
907: --
908: -- Check if the frequency is year
909: --
910: if (p_frequency = 'Y')then
907: --
908: -- Check if the frequency is year
909: --
910: if (p_frequency = 'Y')then
911: hr_utility.set_location(l_proc, 2);
912: l_num_months := 12 * p_period;
913: elsif
914: (p_frequency = 'M') then
915: hr_utility.set_location(l_proc, 3);
911: hr_utility.set_location(l_proc, 2);
912: l_num_months := 12 * p_period;
913: elsif
914: (p_frequency = 'M') then
915: hr_utility.set_location(l_proc, 3);
916: l_num_months := p_period;
917: --
918: elsif (p_frequency = 'W' ) then
919: hr_utility.set_location(l_proc, 4);
915: hr_utility.set_location(l_proc, 3);
916: l_num_months := p_period;
917: --
918: elsif (p_frequency = 'W' ) then
919: hr_utility.set_location(l_proc, 4);
920: l_num_days := 7 * p_period;
921: --
922: elsif
923: (p_frequency = 'D') then
920: l_num_days := 7 * p_period;
921: --
922: elsif
923: (p_frequency = 'D') then
924: hr_utility.set_location(l_proc, 5);
925: l_num_days := p_period;
926: --
927: else
928: hr_utility.set_location(l_proc, 6);
924: hr_utility.set_location(l_proc, 5);
925: l_num_days := p_period;
926: --
927: else
928: hr_utility.set_location(l_proc, 6);
929: hr_utility.set_message(801,'HR_51258_PYP_INVAL_FREQ_PERIOD');
930: hr_utility.raise_error;
931: end if;
932: --
925: l_num_days := p_period;
926: --
927: else
928: hr_utility.set_location(l_proc, 6);
929: hr_utility.set_message(801,'HR_51258_PYP_INVAL_FREQ_PERIOD');
930: hr_utility.raise_error;
931: end if;
932: --
933: -- Now return the derived date
926: --
927: else
928: hr_utility.set_location(l_proc, 6);
929: hr_utility.set_message(801,'HR_51258_PYP_INVAL_FREQ_PERIOD');
930: hr_utility.raise_error;
931: end if;
932: --
933: -- Now return the derived date
934: --
932: --
933: -- Now return the derived date
934: --
935: if (l_num_months <> 0) then
936: hr_utility.set_location(l_proc, 7);
937: --start of changes for bug # 12884599
938: l_derived_date :=least ( ADD_MONTHS (p_change_date, l_num_months),
939: TRUNC(ADD_MONTHS (p_change_date, l_num_months),'MONTH') +
940: (EXTRACT(DAY FROM TO_DATE(p_change_date)) - 1) );
941: --end of changes for bug # 12884599
942:
943: --
944: elsif (l_num_days <> 0 ) then
945: hr_utility.set_location(l_proc, 8);
946: l_derived_date := p_change_date + l_num_days;
947: --
948: end if;
949: hr_utility.set_location('Leaving: ' ||l_proc, 9);
945: hr_utility.set_location(l_proc, 8);
946: l_derived_date := p_change_date + l_num_days;
947: --
948: end if;
949: hr_utility.set_location('Leaving: ' ||l_proc, 9);
950: --
951: return l_derived_date;
952: --
953: end derive_next_sal_perf_date;
1025: and nvl(assg.effective_end_date, hr_api.g_eot)
1026: and ast.per_system_status = 'TERM_ASSIGN';
1027: --
1028: begin
1029: hr_utility.set_location('Entering:'|| l_proc, 1);
1030: p_inv_next_sal_date_warning := false;
1031: --
1032: -- Check mandatory parameters have being set.
1033: --
1062: --
1063: -- If the next_sal_review is not null do the following checks
1064: --
1065: if (p_next_sal_review_date IS NOT NULL) then
1066: hr_utility.set_location(l_proc, 2);
1067: --
1068: -- Check that the next_sal_review date is not before the change_date
1069: --
1070: -- Bug 740286
1069: --
1070: -- Bug 740286
1071: -- if (p_change_date > p_next_sal_review_date) then
1072: --
1073: -- hr_utility.set_location(l_proc, 3);
1074: -- hr_utility.set_message(801, 'HR_13007_SAL_DATE_NEXT_DATE');
1075: -- hr_utility.raise_error;
1076: -- end if;
1077: --
1070: -- Bug 740286
1071: -- if (p_change_date > p_next_sal_review_date) then
1072: --
1073: -- hr_utility.set_location(l_proc, 3);
1074: -- hr_utility.set_message(801, 'HR_13007_SAL_DATE_NEXT_DATE');
1075: -- hr_utility.raise_error;
1076: -- end if;
1077: --
1078: -- check the assignment_status as the next_sal_review_date.
1071: -- if (p_change_date > p_next_sal_review_date) then
1072: --
1073: -- hr_utility.set_location(l_proc, 3);
1074: -- hr_utility.set_message(801, 'HR_13007_SAL_DATE_NEXT_DATE');
1075: -- hr_utility.raise_error;
1076: -- end if;
1077: --
1078: -- check the assignment_status as the next_sal_review_date.
1079: -- if the assignment status is TERM_ASSIGN then issue a warning
1086: end if;
1087: --
1088: close csr_valid_assg_status;
1089: --
1090: hr_utility.set_location('LEAVING ' ||l_proc, 4);
1091: end if;
1092: --
1093: end if;
1094: --
1091: end if;
1092: --
1093: end if;
1094: --
1095: hr_utility.set_location('Leaving: ' ||l_proc, 5);
1096: --
1097: end chk_next_sal_review_date;
1098: --
1099: --
1184: and nvl(assg.effective_end_date, hr_api.g_eot)
1185: and ast.per_system_status = 'TERM_ASSIGN';
1186: --
1187: begin
1188: hr_utility.set_location('Entering:'|| l_proc, 1);
1189: p_inv_next_sal_date_warning := false;
1190: --
1191: -- Check mandatory parameters have being set.
1192: --
1230: fetch csr_sal_review_details into l_sal_review_period,
1231: l_sal_review_period_frequency;
1232: if csr_sal_review_details%found then
1233: if (l_sal_review_period is not null) then
1234: hr_utility.set_location(l_proc, 6);
1235: p_next_sal_review_date :=
1236: derive_next_sal_perf_date
1237: (p_change_date => p_change_date
1238: ,p_period => l_sal_review_period
1241: open csr_valid_assg_status;
1242: fetch csr_valid_assg_status into l_exists;
1243: --
1244: if csr_valid_assg_status%found then
1245: hr_utility.set_location(l_proc, 7);
1246: p_inv_next_sal_date_warning := true;
1247: end if;
1248: --
1249: close csr_valid_assg_status;
1250: --
1251: end if;
1252: end if;
1253: close csr_sal_review_details;
1254: hr_utility.set_location(l_proc, 10);
1255: --
1256: end if;
1257: --
1258: end if;
1256: end if;
1257: --
1258: end if;
1259: --
1260: hr_utility.set_location('Leaving: ' ||l_proc, 11);
1261: end chk_chg_next_sal_review_date;
1262: --
1263: --
1264: -- ----------------------------------------------------------------------------
1317: and p_change_date between ass.effective_start_date
1318: AND ass.effective_end_date;
1319: --
1320: begin
1321: hr_utility.set_location('Entering:'|| l_proc, 1);
1322: --
1323: -- Check mandatory parameters have being set.
1324: --
1325: hr_api.mandatory_arg_error
1349: ,p_object_version_number => p_object_version_number);
1350: --
1351: if (l_api_updating AND(per_pyp_shd.g_old_rec.multiple_components <>
1352: p_multiple_components) OR not l_api_updating) then
1353: hr_utility.set_location(l_proc, 4);
1354: --
1355: -- check that the value of the multiple_components is either 'Y' or 'N'
1356: --
1357: if (p_multiple_components <> 'Y' AND p_multiple_components <> 'N') then
1354: --
1355: -- check that the value of the multiple_components is either 'Y' or 'N'
1356: --
1357: if (p_multiple_components <> 'Y' AND p_multiple_components <> 'N') then
1358: hr_utility.set_location(l_proc, 5);
1359: hr_utility.set_message (801, 'HR_51261_PYP_INVAL_MULTI_COMP');
1360: hr_utility.raise_error;
1361: end if;
1362: --
1355: -- check that the value of the multiple_components is either 'Y' or 'N'
1356: --
1357: if (p_multiple_components <> 'Y' AND p_multiple_components <> 'N') then
1358: hr_utility.set_location(l_proc, 5);
1359: hr_utility.set_message (801, 'HR_51261_PYP_INVAL_MULTI_COMP');
1360: hr_utility.raise_error;
1361: end if;
1362: --
1363: -- Check that the multiple_components is not set to 'Y' for the first
1356: --
1357: if (p_multiple_components <> 'Y' AND p_multiple_components <> 'N') then
1358: hr_utility.set_location(l_proc, 5);
1359: hr_utility.set_message (801, 'HR_51261_PYP_INVAL_MULTI_COMP');
1360: hr_utility.raise_error;
1361: end if;
1362: --
1363: -- Check that the multiple_components is not set to 'Y' for the first
1364: -- proposal
1368: /*
1369: open csr_is_first_proposal;
1370: fetch csr_is_first_proposal into l_exists;
1371: if csr_is_first_proposal%notfound then
1372: hr_utility.set_location(l_proc, 10);
1373: if (p_multiple_components = 'Y') then
1374: close csr_is_first_proposal;
1375: hr_utility.set_location(l_proc, 15);
1376: hr_utility.set_message (801, 'HR_51262_PYP_FIRST_SAL_COMP');
1371: if csr_is_first_proposal%notfound then
1372: hr_utility.set_location(l_proc, 10);
1373: if (p_multiple_components = 'Y') then
1374: close csr_is_first_proposal;
1375: hr_utility.set_location(l_proc, 15);
1376: hr_utility.set_message (801, 'HR_51262_PYP_FIRST_SAL_COMP');
1377: hr_utility.raise_error;
1378: end if;
1379: --
1372: hr_utility.set_location(l_proc, 10);
1373: if (p_multiple_components = 'Y') then
1374: close csr_is_first_proposal;
1375: hr_utility.set_location(l_proc, 15);
1376: hr_utility.set_message (801, 'HR_51262_PYP_FIRST_SAL_COMP');
1377: hr_utility.raise_error;
1378: end if;
1379: --
1380: end if;
1373: if (p_multiple_components = 'Y') then
1374: close csr_is_first_proposal;
1375: hr_utility.set_location(l_proc, 15);
1376: hr_utility.set_message (801, 'HR_51262_PYP_FIRST_SAL_COMP');
1377: hr_utility.raise_error;
1378: end if;
1379: --
1380: end if;
1381: --
1378: end if;
1379: --
1380: end if;
1381: --
1382: hr_utility.set_location(l_proc, 20);
1383: --
1384: close csr_is_first_proposal; */
1385:
1386: end if;
1383: --
1384: close csr_is_first_proposal; */
1385:
1386: end if;
1387: hr_utility.set_location('Leaving: '||l_proc, 25);
1388:
1389: end chk_multiple_components;
1390: --
1391: --
1429: l_api_updating boolean;
1430: --
1431:
1432: begin
1433: hr_utility.set_location('Entering:'|| l_proc, 1);
1434: --
1435: -- Check mandatory parameters have being set.
1436: --
1437: hr_api.mandatory_arg_error
1450: --
1451: if (l_api_updating AND (nvl(per_pyp_shd.g_old_rec.proposal_reason,hr_api.g_varchar2) <>
1452: nvl(p_proposal_reason,hr_api.g_varchar2))
1453: OR not l_api_updating ) then
1454: hr_utility.set_location(l_proc, 6);
1455: --
1456: -- check that the p_proposal_reason exists in hr_lookups.
1457: --
1458: if (p_proposal_reason IS NOT NULL ) then
1461: ,p_lookup_type => 'PROPOSAL_REASON'
1462: ,p_lookup_code => p_proposal_reason
1463: ) then
1464: -- Error: Invalid proposal_reason
1465: hr_utility.set_location(l_proc, 10);
1466: hr_utility.set_message(801,'HR_51265_INVAL_PRO_REASON');
1467: hr_utility.raise_error;
1468: end if;
1469: --
1462: ,p_lookup_code => p_proposal_reason
1463: ) then
1464: -- Error: Invalid proposal_reason
1465: hr_utility.set_location(l_proc, 10);
1466: hr_utility.set_message(801,'HR_51265_INVAL_PRO_REASON');
1467: hr_utility.raise_error;
1468: end if;
1469: --
1470: end if;
1463: ) then
1464: -- Error: Invalid proposal_reason
1465: hr_utility.set_location(l_proc, 10);
1466: hr_utility.set_message(801,'HR_51265_INVAL_PRO_REASON');
1467: hr_utility.raise_error;
1468: end if;
1469: --
1470: end if;
1471: end if;
1469: --
1470: end if;
1471: end if;
1472: --
1473: hr_utility.set_location(' Leaving:'|| l_proc, 15);
1474: end chk_proposal_reason;
1475: --
1476: -- ----------------------------------------------------------------------------
1477: -- |---------------------< is_salary_in_range >--------------------------------|
1533: and p_change_date between effective_start_date and effective_end_date;
1534: --
1535: --
1536: begin
1537: hr_utility.set_location('Entering:'|| l_proc, 10);
1538: open csr_asg;
1539: fetch csr_asg into
1540: l_organization_id
1541: ,l_pay_basis_id
1544: ,l_normal_hours
1545: ,l_frequency;
1546: close csr_asg;
1547: --
1548: hr_utility.set_location(l_proc, 20);
1549: is_salary_in_range_int
1550: (p_organization_id =>l_organization_id
1551: ,p_pay_basis_id =>l_pay_basis_id
1552: ,p_position_id =>l_position_id
1562: --added by vkodedal bug#8452388
1563: ,p_assignment_id =>p_assignment_id
1564: );
1565: --
1566: hr_utility.set_location(l_proc, 30);
1567: --
1568: p_proposed_salary_warning :=l_prop_salary_link_warning
1569: OR l_prop_salary_ele_warning
1570: OR l_prop_salary_grade_warning;
1567: --
1568: p_proposed_salary_warning :=l_prop_salary_link_warning
1569: OR l_prop_salary_ele_warning
1570: OR l_prop_salary_grade_warning;
1571: hr_utility.set_location('Leaving:'|| l_proc, 10);
1572: end is_salary_in_range;
1573: --
1574: -- ----------------------------------------------------------------------------
1575: -- |---------------------< is_salary_in_range_int >---------------------------|
1628: l_proc varchar2(70):= g_package || 'is_salary_in_range_int';
1629:
1630: begin
1631: --
1632: hr_utility.set_location(l_proc, 20);
1633:
1634: is_salary_in_range_int
1635: (p_organization_id =>p_organization_id
1636: ,p_pay_basis_id =>p_pay_basis_id
1647: --added by vkodedal bug#8452388
1648: ,p_assignment_id =>null
1649: );
1650: --
1651: hr_utility.set_location(l_proc, 30);
1652:
1653: end is_salary_in_range_int;
1654: --
1655: -- ----------------------------------------------------------------------------
1841: --
1842: --
1843: --
1844: begin
1845: hr_utility.set_location('Entering:'|| l_proc, 1);
1846: -- Get the pay_basis details for validating
1847: -- the proposed salary.
1848: open currency;
1849: fetch currency into
1856: ,l_uom;
1857:
1858: if currency%notfound is null then
1859: close currency;
1860: hr_utility.set_location(l_proc, 5);
1861: hr_utility.set_message(801, 'HR_289855_SAL_ASS_NOT_SAL_ELIG');
1862: hr_utility.raise_error;
1863: --
1864: elsif (l_element_type_id IS NULL) then
1857:
1858: if currency%notfound is null then
1859: close currency;
1860: hr_utility.set_location(l_proc, 5);
1861: hr_utility.set_message(801, 'HR_289855_SAL_ASS_NOT_SAL_ELIG');
1862: hr_utility.raise_error;
1863: --
1864: elsif (l_element_type_id IS NULL) then
1865: --
1858: if currency%notfound is null then
1859: close currency;
1860: hr_utility.set_location(l_proc, 5);
1861: hr_utility.set_message(801, 'HR_289855_SAL_ASS_NOT_SAL_ELIG');
1862: hr_utility.raise_error;
1863: --
1864: elsif (l_element_type_id IS NULL) then
1865: --
1866: -- issue an error message if the l_element_type_id is null
1865: --
1866: -- issue an error message if the l_element_type_id is null
1867: --
1868: close currency;
1869: hr_utility.set_location(l_proc, 6);
1870: hr_utility.set_message(801, 'HR_289855_SAL_ASS_NOT_SAL_ELIG');
1871: hr_utility.raise_error;
1872: else
1873: close currency;
1866: -- issue an error message if the l_element_type_id is null
1867: --
1868: close currency;
1869: hr_utility.set_location(l_proc, 6);
1870: hr_utility.set_message(801, 'HR_289855_SAL_ASS_NOT_SAL_ELIG');
1871: hr_utility.raise_error;
1872: else
1873: close currency;
1874: end if;
1867: --
1868: close currency;
1869: hr_utility.set_location(l_proc, 6);
1870: hr_utility.set_message(801, 'HR_289855_SAL_ASS_NOT_SAL_ELIG');
1871: hr_utility.raise_error;
1872: else
1873: close currency;
1874: end if;
1875: --
1874: end if;
1875: --
1876: -- Now check the proporsed salary to be in appropriate range
1877: --
1878: hr_utility.set_location(l_proc, 7);
1879: open csr_get_min_max_values;
1880: fetch csr_get_min_max_values into
1881: l_normal_hours,
1882: l_normal_hours_frequency,
1884: l_org_working_hours_frequency,
1885: l_bus_working_hours,
1886: l_bus_working_hours_frequency,
1887: l_minimum,l_maximum;
1888: hr_utility.set_location(l_proc, 10);
1889: if csr_get_min_max_values%notfound then
1890: hr_utility.set_location(l_proc, 11);
1891: close csr_get_min_max_values;
1892: else
1886: l_bus_working_hours_frequency,
1887: l_minimum,l_maximum;
1888: hr_utility.set_location(l_proc, 10);
1889: if csr_get_min_max_values%notfound then
1890: hr_utility.set_location(l_proc, 11);
1891: close csr_get_min_max_values;
1892: else
1893: open csr_get_pos_min_max_values;
1894: fetch csr_get_pos_min_max_values into
1900: fetch csr_get_ele_values into l_ele_w_or_e, l_ele_min_value,
1901: l_ele_max_value, l_link_w_or_e, l_link_min_value,
1902: l_link_max_value;
1903: if csr_get_ele_values%notfound then
1904: hr_utility.set_location(l_proc, 12);
1905: end if;
1906: close csr_get_ele_values;
1907: --
1908: hr_utility.set_location(l_proc, 15);
1904: hr_utility.set_location(l_proc, 12);
1905: end if;
1906: close csr_get_ele_values;
1907: --
1908: hr_utility.set_location(l_proc, 15);
1909: --
1910: if l_pyp_working_hours is null then
1911: if l_org_working_hours is null then
1912: l_working_hours := l_bus_working_hours;
1910: if l_pyp_working_hours is null then
1911: if l_org_working_hours is null then
1912: l_working_hours := l_bus_working_hours;
1913: l_working_hours_frequency := l_bus_working_hours_frequency;
1914: hr_utility.set_location(l_proc, 17);
1915: else
1916: l_working_hours := l_org_working_hours;
1917: l_working_hours_frequency := l_org_working_hours_frequency;
1918: hr_utility.set_location(l_proc, 18);
1914: hr_utility.set_location(l_proc, 17);
1915: else
1916: l_working_hours := l_org_working_hours;
1917: l_working_hours_frequency := l_org_working_hours_frequency;
1918: hr_utility.set_location(l_proc, 18);
1919: end if;
1920: else
1921: l_working_hours := l_pyp_working_hours;
1922: l_working_hours_frequency := l_pyp_working_hours_frequency;
1919: end if;
1920: else
1921: l_working_hours := l_pyp_working_hours;
1922: l_working_hours_frequency := l_pyp_working_hours_frequency;
1923: hr_utility.set_location(l_proc, 19);
1924: end if;
1925: --
1926:
1927: --
1929: --
1930: if((p_proposed_salary_n < NVL(l_link_min_value,p_proposed_salary_n-1))
1931: or(p_proposed_salary_n > NVL(l_link_max_value,p_proposed_salary_n+1)))
1932: then
1933: hr_utility.set_location(l_proc, 20);
1934: p_prop_salary_link_warning := true;
1935: end if;
1936: --
1937: -- check ele min/max
1938: --
1939: if((p_proposed_salary_n < NVL(l_ele_min_value,p_proposed_salary_n-1))
1940: or (p_proposed_salary_n > NVL(l_ele_max_value,p_proposed_salary_n+1)))
1941: then
1942: hr_utility.set_location(l_proc, 30);
1943: p_prop_salary_ele_warning := true;
1944: end if;
1945: --
1946: -- Now check if the assignment has a grade then the proposed
1950: if (l_minimum IS NOT NULL and l_maximum IS NOT NULL) then
1951: --
1952: -- checks grade rates and pro rates if necessary
1953: --
1954: hr_utility.set_location(l_proc, 40);
1955:
1956: --8452388 vkodedal introduced profile option 03-Jun-2009
1957: --8587143 handle null assignment id
1958: if ( p_assignment_id is not null ) then
1960: else
1961: if (l_fte_profile_value = 'NHBGWH') then
1962: if (l_working_hours = 0) then
1963: -- if working hours are set to zero then ignore it.
1964: hr_utility.set_location(l_proc, 45);
1965: l_fte_factor:=1;
1966: elsif
1967: (l_working_hours IS NOT NULL)
1968: AND (l_normal_hours IS NOT NULL)
1970: AND (l_grade_basis = 'HOURLY'))
1971: AND (l_normal_hours_frequency=l_working_hours_frequency) then
1972: -- if both assignment hours and normal hours are defined then do a comparison
1973: --
1974: hr_utility.set_location(l_proc, 50);
1975: l_fte_factor := l_normal_hours/l_working_hours;
1976: end if;
1977: else
1978: l_fte_factor := 1;
1998: if l_pay_basis = 'HOURLY' and l_grade_basis = 'HOURLY'
1999: then
2000: if( (p_proposed_salary_n < l_minimum) or
2001: (p_proposed_salary_n > l_maximum) ) then
2002: hr_utility.set_location(l_proc, 55);
2003: p_prop_salary_grade_warning := true;
2004: end if;
2005: else
2006: if( (l_annual_salary < l_ann_minimum) or
2004: end if;
2005: else
2006: if( (l_annual_salary < l_ann_minimum) or
2007: (l_annual_salary > l_ann_maximum) ) then
2008: hr_utility.set_location(l_proc, 60);
2009: p_prop_salary_grade_warning := true;
2010: end if;
2011: end if;
2012: --
2015: end if;
2016: if csr_get_min_max_values%ISOPEN then
2017: close csr_get_min_max_values;
2018: end if;
2019: hr_utility.set_location('Leaving: ' ||l_proc, 65);
2020: end is_salary_in_range_int;
2021: --
2022: ----------------------------------------------------------------------------
2023: -- |--------------------------< chk_proposed_salary >-----------------------
2085: l_proposed_salary_warning boolean;
2086:
2087: --
2088: begin
2089: hr_utility.set_location('Entering:'|| l_proc, 1);
2090: --
2091: -- Check mandatory parameters have being set.
2092: --
2093: hr_api.mandatory_arg_error
2115: ,p_argument_value => p_proposed_salary_n
2116: ); */
2117: --smadhuna Bug 7704348 08-jan-2009 User defined error message is to be thrown when proposed_salary_n is null
2118: IF p_proposed_salary_n IS NULL THEN
2119: hr_utility.set_location(l_proc, 2);
2120: hr_utility.set_message(800,'PER_33483_SALARY_NULL');
2121: hr_utility.raise_error;
2122: END IF;
2123: end if;
2116: ); */
2117: --smadhuna Bug 7704348 08-jan-2009 User defined error message is to be thrown when proposed_salary_n is null
2118: IF p_proposed_salary_n IS NULL THEN
2119: hr_utility.set_location(l_proc, 2);
2120: hr_utility.set_message(800,'PER_33483_SALARY_NULL');
2121: hr_utility.raise_error;
2122: END IF;
2123: end if;
2124: --
2117: --smadhuna Bug 7704348 08-jan-2009 User defined error message is to be thrown when proposed_salary_n is null
2118: IF p_proposed_salary_n IS NULL THEN
2119: hr_utility.set_location(l_proc, 2);
2120: hr_utility.set_message(800,'PER_33483_SALARY_NULL');
2121: hr_utility.raise_error;
2122: END IF;
2123: end if;
2124: --
2125: --
2140: -- Change made by ggnanagu
2141: --
2142:
2143: /* if (l_api_updating)AND(per_pyp_shd.g_old_rec.approved = 'Y' ) then
2144: hr_utility.set_location(l_proc||' proposed = '||to_char(p_proposed_salary_n)||' old = '||to_char(per_pyp_shd.g_old_rec.proposed_salary_n), 2);
2145: hr_utility.set_message(801,'HR_51268_PYP_CANT_UPD_RECORD');
2146: hr_utility.raise_error;
2147: end if; */
2148:
2141: --
2142:
2143: /* if (l_api_updating)AND(per_pyp_shd.g_old_rec.approved = 'Y' ) then
2144: hr_utility.set_location(l_proc||' proposed = '||to_char(p_proposed_salary_n)||' old = '||to_char(per_pyp_shd.g_old_rec.proposed_salary_n), 2);
2145: hr_utility.set_message(801,'HR_51268_PYP_CANT_UPD_RECORD');
2146: hr_utility.raise_error;
2147: end if; */
2148:
2149: is_salary_in_range
2142:
2143: /* if (l_api_updating)AND(per_pyp_shd.g_old_rec.approved = 'Y' ) then
2144: hr_utility.set_location(l_proc||' proposed = '||to_char(p_proposed_salary_n)||' old = '||to_char(per_pyp_shd.g_old_rec.proposed_salary_n), 2);
2145: hr_utility.set_message(801,'HR_51268_PYP_CANT_UPD_RECORD');
2146: hr_utility.raise_error;
2147: end if; */
2148:
2149: is_salary_in_range
2150: (p_assignment_id => p_assignment_id
2154: ,p_proposed_salary_warning => l_proposed_salary_warning);
2155: p_proposed_salary_warning := l_proposed_salary_warning;
2156: end if;
2157: end if;
2158: hr_utility.set_location('Leaving: ' ||l_proc, 3);
2159: end chk_proposed_salary;
2160: --
2161: --
2162: ------------------------------------------------------------------------
2262: and change_date > p_change_date;
2263: --
2264: --
2265: begin
2266: hr_utility.set_location('Entering:'|| l_proc, 5);
2267: --
2268: -- Check mandatory parameters have being set.
2269: --
2270: --
2311: --
2312: -- check that the value of the approved is either 'Y' or 'N'
2313: --
2314: if (p_approved <> 'Y' AND p_approved <> 'N') then
2315: hr_utility.set_location(l_proc, 10);
2316: hr_utility.set_message (801, 'HR_51278_PYP_INVL_APPR_VAL');
2317: hr_utility.raise_error;
2318: end if;
2319: --
2312: -- check that the value of the approved is either 'Y' or 'N'
2313: --
2314: if (p_approved <> 'Y' AND p_approved <> 'N') then
2315: hr_utility.set_location(l_proc, 10);
2316: hr_utility.set_message (801, 'HR_51278_PYP_INVL_APPR_VAL');
2317: hr_utility.raise_error;
2318: end if;
2319: --
2320: --
2313: --
2314: if (p_approved <> 'Y' AND p_approved <> 'N') then
2315: hr_utility.set_location(l_proc, 10);
2316: hr_utility.set_message (801, 'HR_51278_PYP_INVL_APPR_VAL');
2317: hr_utility.raise_error;
2318: end if;
2319: --
2320: --
2321: -- Check that the approved flag cannot be set to 'Y' if the
2322: -- proposed salary is null.
2323: --
2324: if
2325: (p_proposed_salary_n IS NULL AND p_approved = 'Y') then
2326: hr_utility.set_location(l_proc, 20);
2327: hr_utility.set_message(801,'HR_51269_PYP_CANT_APPR_SAL');
2328: hr_utility.raise_error;
2329: end if;
2330:
2323: --
2324: if
2325: (p_proposed_salary_n IS NULL AND p_approved = 'Y') then
2326: hr_utility.set_location(l_proc, 20);
2327: hr_utility.set_message(801,'HR_51269_PYP_CANT_APPR_SAL');
2328: hr_utility.raise_error;
2329: end if;
2330:
2331: -- Validation Added by ggnanagu
2324: if
2325: (p_proposed_salary_n IS NULL AND p_approved = 'Y') then
2326: hr_utility.set_location(l_proc, 20);
2327: hr_utility.set_message(801,'HR_51269_PYP_CANT_APPR_SAL');
2328: hr_utility.raise_error;
2329: end if;
2330:
2331: -- Validation Added by ggnanagu
2332: -- If there are approved proposals in the future then this proposal
2336: if (p_approved = 'N' and NVL(BEN_CWB_POST_PROCESS.g_is_cwb_component_plan,'N') = 'N') THEN
2337: open csr_future_approved_proposals;
2338: fetch csr_future_approved_proposals into l_exists;
2339: if csr_future_approved_proposals%notfound then
2340: hr_utility.set_location(l_proc, 55);
2341: close csr_future_approved_proposals;
2342: else
2343: hr_utility.set_location(l_proc, 60);
2344: close csr_future_approved_proposals;
2339: if csr_future_approved_proposals%notfound then
2340: hr_utility.set_location(l_proc, 55);
2341: close csr_future_approved_proposals;
2342: else
2343: hr_utility.set_location(l_proc, 60);
2344: close csr_future_approved_proposals;
2345: hr_utility.set_message(801,'HR_FUTURE_APPROVED_PROPOSALS');
2346: hr_utility.raise_error;
2347: end if;
2341: close csr_future_approved_proposals;
2342: else
2343: hr_utility.set_location(l_proc, 60);
2344: close csr_future_approved_proposals;
2345: hr_utility.set_message(801,'HR_FUTURE_APPROVED_PROPOSALS');
2346: hr_utility.raise_error;
2347: end if;
2348: end if;
2349: --
2342: else
2343: hr_utility.set_location(l_proc, 60);
2344: close csr_future_approved_proposals;
2345: hr_utility.set_message(801,'HR_FUTURE_APPROVED_PROPOSALS');
2346: hr_utility.raise_error;
2347: end if;
2348: end if;
2349: --
2350: -- Check that the approve flag is correct for the first proposal.
2352: if ( p_proposed_salary_n IS NOT NULL) then
2353: open csr_is_first_proposal;
2354: fetch csr_is_first_proposal into l_exists;
2355: if csr_is_first_proposal%notfound then
2356: hr_utility.set_location(l_proc, 30);
2357: close csr_is_first_proposal;
2358: open asg_type;
2359: fetch asg_type into l_assignment_type;
2360: if (asg_type%notfound) then
2358: open asg_type;
2359: fetch asg_type into l_assignment_type;
2360: if (asg_type%notfound) then
2361: close asg_type;
2362: hr_utility.set_location(l_proc, 40);
2363: hr_utility.set_message(801,'HR_289855_SAL_ASS_NOT_SAL_ELIG');
2364: hr_utility.raise_error;
2365: else
2366: hr_utility.set_location(l_proc, 50);
2359: fetch asg_type into l_assignment_type;
2360: if (asg_type%notfound) then
2361: close asg_type;
2362: hr_utility.set_location(l_proc, 40);
2363: hr_utility.set_message(801,'HR_289855_SAL_ASS_NOT_SAL_ELIG');
2364: hr_utility.raise_error;
2365: else
2366: hr_utility.set_location(l_proc, 50);
2367: close asg_type;
2360: if (asg_type%notfound) then
2361: close asg_type;
2362: hr_utility.set_location(l_proc, 40);
2363: hr_utility.set_message(801,'HR_289855_SAL_ASS_NOT_SAL_ELIG');
2364: hr_utility.raise_error;
2365: else
2366: hr_utility.set_location(l_proc, 50);
2367: close asg_type;
2368: if (l_assignment_type='E' or l_assignment_type='C') then -- a workers 1st proposal must be approved
2362: hr_utility.set_location(l_proc, 40);
2363: hr_utility.set_message(801,'HR_289855_SAL_ASS_NOT_SAL_ELIG');
2364: hr_utility.raise_error;
2365: else
2366: hr_utility.set_location(l_proc, 50);
2367: close asg_type;
2368: if (l_assignment_type='E' or l_assignment_type='C') then -- a workers 1st proposal must be approved
2369: hr_utility.set_location(l_proc, 55);
2370: if p_approved = 'N' then
2365: else
2366: hr_utility.set_location(l_proc, 50);
2367: close asg_type;
2368: if (l_assignment_type='E' or l_assignment_type='C') then -- a workers 1st proposal must be approved
2369: hr_utility.set_location(l_proc, 55);
2370: if p_approved = 'N' then
2371: --vkodedal 05-Oct-2007 ER to satisfy satutory requirement
2372: --Retain auto approve first proposal functionality if profile is null or set to Yes
2373: l_autoApprove:=fnd_profile.value('HR_AUTO_APPROVE_FIRST_PROPOSAL');
2371: --vkodedal 05-Oct-2007 ER to satisfy satutory requirement
2372: --Retain auto approve first proposal functionality if profile is null or set to Yes
2373: l_autoApprove:=fnd_profile.value('HR_AUTO_APPROVE_FIRST_PROPOSAL');
2374: if(l_autoApprove is null or l_autoApprove ='Y') then
2375: hr_utility.set_location(l_proc, 60);
2376: hr_utility.set_message (800,'HR_52513_PYP_FIRST_EMP_NOT_APR');
2377: hr_utility.raise_error;
2378: end if;
2379: end if;
2372: --Retain auto approve first proposal functionality if profile is null or set to Yes
2373: l_autoApprove:=fnd_profile.value('HR_AUTO_APPROVE_FIRST_PROPOSAL');
2374: if(l_autoApprove is null or l_autoApprove ='Y') then
2375: hr_utility.set_location(l_proc, 60);
2376: hr_utility.set_message (800,'HR_52513_PYP_FIRST_EMP_NOT_APR');
2377: hr_utility.raise_error;
2378: end if;
2379: end if;
2380: else
2373: l_autoApprove:=fnd_profile.value('HR_AUTO_APPROVE_FIRST_PROPOSAL');
2374: if(l_autoApprove is null or l_autoApprove ='Y') then
2375: hr_utility.set_location(l_proc, 60);
2376: hr_utility.set_message (800,'HR_52513_PYP_FIRST_EMP_NOT_APR');
2377: hr_utility.raise_error;
2378: end if;
2379: end if;
2380: else
2381: if p_approved = 'Y' then -- an applicants first proposal must be unapproved
2378: end if;
2379: end if;
2380: else
2381: if p_approved = 'Y' then -- an applicants first proposal must be unapproved
2382: hr_utility.set_location(l_proc, 70);
2383: hr_utility.set_message (800,'HR_52514_PYP_FIRST_APPL_APR');
2384: hr_utility.raise_error;
2385: end if;
2386: end if;
2379: end if;
2380: else
2381: if p_approved = 'Y' then -- an applicants first proposal must be unapproved
2382: hr_utility.set_location(l_proc, 70);
2383: hr_utility.set_message (800,'HR_52514_PYP_FIRST_APPL_APR');
2384: hr_utility.raise_error;
2385: end if;
2386: end if;
2387: end if;
2380: else
2381: if p_approved = 'Y' then -- an applicants first proposal must be unapproved
2382: hr_utility.set_location(l_proc, 70);
2383: hr_utility.set_message (800,'HR_52514_PYP_FIRST_APPL_APR');
2384: hr_utility.raise_error;
2385: end if;
2386: end if;
2387: end if;
2388: else
2387: end if;
2388: else
2389: close csr_is_first_proposal;
2390: end if;
2391: hr_utility.set_location(l_proc, 80);
2392: end if;
2393: --
2394: -- Check that if the approved set to 'Y' and one or more
2395: -- unapproved components exists.
2395: -- unapproved components exists.
2396: --
2397: open csr_unapproved_components;
2398: fetch csr_unapproved_components into l_exists;
2399: hr_utility.set_location(l_proc,90);
2400: if csr_unapproved_components%found then
2401: hr_utility.set_location(l_proc,100);
2402: p_approved_warning := true;
2403: end if;
2397: open csr_unapproved_components;
2398: fetch csr_unapproved_components into l_exists;
2399: hr_utility.set_location(l_proc,90);
2400: if csr_unapproved_components%found then
2401: hr_utility.set_location(l_proc,100);
2402: p_approved_warning := true;
2403: end if;
2404: close csr_unapproved_components;
2405: --
2405: --
2406: -- Check that an approved proposal cannot be unapproved.
2407: --
2408: if (l_api_updating AND per_pyp_shd.g_old_rec.approved = 'Y' AND p_approved = 'N') then
2409: hr_utility.set_location(l_proc,110);
2410: hr_utility.set_message(801,'HR_51270_PYP_CANT_UNAPPRO_PRO');
2411: hr_utility.raise_error;
2412: end if;
2413: hr_utility.set_location(l_proc,120);
2406: -- Check that an approved proposal cannot be unapproved.
2407: --
2408: if (l_api_updating AND per_pyp_shd.g_old_rec.approved = 'Y' AND p_approved = 'N') then
2409: hr_utility.set_location(l_proc,110);
2410: hr_utility.set_message(801,'HR_51270_PYP_CANT_UNAPPRO_PRO');
2411: hr_utility.raise_error;
2412: end if;
2413: hr_utility.set_location(l_proc,120);
2414: -- end if;
2407: --
2408: if (l_api_updating AND per_pyp_shd.g_old_rec.approved = 'Y' AND p_approved = 'N') then
2409: hr_utility.set_location(l_proc,110);
2410: hr_utility.set_message(801,'HR_51270_PYP_CANT_UNAPPRO_PRO');
2411: hr_utility.raise_error;
2412: end if;
2413: hr_utility.set_location(l_proc,120);
2414: -- end if;
2415: --
2409: hr_utility.set_location(l_proc,110);
2410: hr_utility.set_message(801,'HR_51270_PYP_CANT_UNAPPRO_PRO');
2411: hr_utility.raise_error;
2412: end if;
2413: hr_utility.set_location(l_proc,120);
2414: -- end if;
2415: --
2416: hr_utility.set_location('Leaving: '||l_proc,130);
2417: --
2412: end if;
2413: hr_utility.set_location(l_proc,120);
2414: -- end if;
2415: --
2416: hr_utility.set_location('Leaving: '||l_proc,130);
2417: --
2418: end chk_approved;
2419: --
2420: --
2510: where pay_proposal_id = p_pay_proposal_id;
2511:
2512: --
2513: begin
2514: hr_utility.set_location('Entering:'|| l_proc, 1);
2515: -- get the proposal details first.
2516: --
2517: open csr_get_pro_detail;
2518: fetch csr_get_pro_detail into l_assignment_id,l_business_group_id,
2518: fetch csr_get_pro_detail into l_assignment_id,l_business_group_id,
2519: l_change_date,l_multiple_components, l_approved;
2520: if csr_get_pro_detail%notfound then
2521: close csr_get_pro_detail;
2522: hr_utility.set_location(l_proc, 2);
2523: per_pyp_shd.constraint_error('PER_PAY_PROPOSALS_PK');
2524: end if;
2525: close csr_get_pro_detail;
2526: --
2563: open csr_component_exists;
2564: fetch csr_component_exists into l_exists;
2565: if csr_component_exists%found then
2566: close csr_component_exists;
2567: hr_utility.set_location (l_proc,2);
2568: hr_utility.set_message(801, 'HR_51326_PYP_CANT_DEL_MULT_PRO');
2569: hr_utility.raise_error;
2570: end if;
2571: close csr_component_exists;
2564: fetch csr_component_exists into l_exists;
2565: if csr_component_exists%found then
2566: close csr_component_exists;
2567: hr_utility.set_location (l_proc,2);
2568: hr_utility.set_message(801, 'HR_51326_PYP_CANT_DEL_MULT_PRO');
2569: hr_utility.raise_error;
2570: end if;
2571: close csr_component_exists;
2572: end if;
2565: if csr_component_exists%found then
2566: close csr_component_exists;
2567: hr_utility.set_location (l_proc,2);
2568: hr_utility.set_message(801, 'HR_51326_PYP_CANT_DEL_MULT_PRO');
2569: hr_utility.raise_error;
2570: end if;
2571: close csr_component_exists;
2572: end if;
2573: --
2576: --
2577: open csr_is_latest_proposal;
2578: fetch csr_is_latest_proposal into l_last_change_date;
2579: if csr_is_latest_proposal%notfound then
2580: hr_utility.set_location(l_proc,5);
2581: close csr_is_latest_proposal;
2582: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
2583: hr_utility.raise_error;
2584: --
2578: fetch csr_is_latest_proposal into l_last_change_date;
2579: if csr_is_latest_proposal%notfound then
2580: hr_utility.set_location(l_proc,5);
2581: close csr_is_latest_proposal;
2582: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
2583: hr_utility.raise_error;
2584: --
2585: --
2586: -- The following code is commented out by ggnanagu
2579: if csr_is_latest_proposal%notfound then
2580: hr_utility.set_location(l_proc,5);
2581: close csr_is_latest_proposal;
2582: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
2583: hr_utility.raise_error;
2584: --
2585: --
2586: -- The following code is commented out by ggnanagu
2587: -- Now its possible to delete any salary proposal
2589: /* elsif (l_change_date < l_last_change_date) then
2590: --
2591: -- raise an error. You can only delete the latest proposal
2592: --
2593: hr_utility.set_location(l_proc,10);
2594: close csr_is_latest_proposal;
2595: hr_utility.set_message(801, 'HR_7292_SAL_NOT_LATEST_SAL_REC');
2596: hr_utility.raise_error;*/
2597: --
2591: -- raise an error. You can only delete the latest proposal
2592: --
2593: hr_utility.set_location(l_proc,10);
2594: close csr_is_latest_proposal;
2595: hr_utility.set_message(801, 'HR_7292_SAL_NOT_LATEST_SAL_REC');
2596: hr_utility.raise_error;*/
2597: --
2598: elsif l_approved = 'Y' then
2599: --
2592: --
2593: hr_utility.set_location(l_proc,10);
2594: close csr_is_latest_proposal;
2595: hr_utility.set_message(801, 'HR_7292_SAL_NOT_LATEST_SAL_REC');
2596: hr_utility.raise_error;*/
2597: --
2598: elsif l_approved = 'Y' then
2599: --
2600: -- Only do the salary range validation check, if we are
2605: if (csr_get_latest_salary%notfound) then
2606: --
2607: -- This means that there is no other proposals
2608: --
2609: hr_utility.set_location(l_proc, 20);
2610: close csr_get_latest_salary;
2611: --
2612: --
2613: else
2620: ,p_change_date => l_change_date
2621: ,p_proposed_salary_n => l_proposed_salary
2622: ,p_proposed_salary_warning => p_salary_warning);
2623: --
2624: hr_utility.set_location(l_proc, 40);
2625: --
2626: end if;
2627: --
2628: /**** This check should be done at BP level ***/
2632: --
2633: open csr_unapproved_components;
2634: fetch csr_unapproved_components into l_exists;
2635: if csr_unapproved_components%notfound then
2636: hr_utility.set_location(l_proc, 45);
2637: --
2638: -- There is no unapproved components
2639: --
2640: p_components_warning := false;
2638: -- There is no unapproved components
2639: --
2640: p_components_warning := false;
2641: else
2642: hr_utility.set_location(l_proc, 50);
2643: p_components_warning := true;
2644: end if;
2645: close csr_unapproved_components;
2646: ***/
2647: end if;
2648: if csr_is_latest_proposal%ISOPEN then
2649: close csr_is_latest_proposal;
2650: end if;
2651: hr_utility.set_location('Leaving: ' ||l_proc, 55);
2652: end chk_del_pay_proposal;
2653:
2654: -- -----------------------------------------------------------------------
2655: -- |---------------------< chk_date_overlapping >--------------------------|
2679: --
2680: l_proc varchar2(72):= g_package||'chk_date_overlapping';
2681: --
2682: begin
2683: hr_utility.set_location('Entering:'|| l_proc, 5);
2684: --
2685: --
2686: if(p_change_date > p_date_to ) then
2687: hr_utility.set_location(l_proc, 10);
2683: hr_utility.set_location('Entering:'|| l_proc, 5);
2684: --
2685: --
2686: if(p_change_date > p_date_to ) then
2687: hr_utility.set_location(l_proc, 10);
2688: hr_utility.set_message(800,'PER_PROPOSAL_DATE_OVERLAP');
2689: hr_utility.raise_error;
2690: end if;
2691: hr_utility.set_location(' Leaving:'||l_proc, 20);
2684: --
2685: --
2686: if(p_change_date > p_date_to ) then
2687: hr_utility.set_location(l_proc, 10);
2688: hr_utility.set_message(800,'PER_PROPOSAL_DATE_OVERLAP');
2689: hr_utility.raise_error;
2690: end if;
2691: hr_utility.set_location(' Leaving:'||l_proc, 20);
2692: end chk_date_overlapping;
2685: --
2686: if(p_change_date > p_date_to ) then
2687: hr_utility.set_location(l_proc, 10);
2688: hr_utility.set_message(800,'PER_PROPOSAL_DATE_OVERLAP');
2689: hr_utility.raise_error;
2690: end if;
2691: hr_utility.set_location(' Leaving:'||l_proc, 20);
2692: end chk_date_overlapping;
2693: --
2687: hr_utility.set_location(l_proc, 10);
2688: hr_utility.set_message(800,'PER_PROPOSAL_DATE_OVERLAP');
2689: hr_utility.raise_error;
2690: end if;
2691: hr_utility.set_location(' Leaving:'||l_proc, 20);
2692: end chk_date_overlapping;
2693: --
2694: --
2695: --
2720: --
2721: l_proc varchar2(72):= g_package||'chk_forced_ranking';
2722: --
2723: begin
2724: hr_utility.set_location('Entering:'|| l_proc, 5);
2725: --
2726: --
2727: if(p_forced_ranking <= 0) then
2728: hr_utility.set_location(l_proc, 10);
2724: hr_utility.set_location('Entering:'|| l_proc, 5);
2725: --
2726: --
2727: if(p_forced_ranking <= 0) then
2728: hr_utility.set_location(l_proc, 10);
2729: hr_utility.set_message(800,'HR_52400_PYP_INVALID_RANKING');
2730: hr_utility.raise_error;
2731: end if;
2732: hr_utility.set_location(' Leaving:'||l_proc, 20);
2725: --
2726: --
2727: if(p_forced_ranking <= 0) then
2728: hr_utility.set_location(l_proc, 10);
2729: hr_utility.set_message(800,'HR_52400_PYP_INVALID_RANKING');
2730: hr_utility.raise_error;
2731: end if;
2732: hr_utility.set_location(' Leaving:'||l_proc, 20);
2733: end chk_forced_ranking;
2726: --
2727: if(p_forced_ranking <= 0) then
2728: hr_utility.set_location(l_proc, 10);
2729: hr_utility.set_message(800,'HR_52400_PYP_INVALID_RANKING');
2730: hr_utility.raise_error;
2731: end if;
2732: hr_utility.set_location(' Leaving:'||l_proc, 20);
2733: end chk_forced_ranking;
2734: --
2728: hr_utility.set_location(l_proc, 10);
2729: hr_utility.set_message(800,'HR_52400_PYP_INVALID_RANKING');
2730: hr_utility.raise_error;
2731: end if;
2732: hr_utility.set_location(' Leaving:'||l_proc, 20);
2733: end chk_forced_ranking;
2734: --
2735: --
2736: -- ----------------------------------------------------------------------------
2785: and prv.performance_review_id = p_performance_review_id;
2786: --
2787:
2788: begin
2789: hr_utility.set_location('Entering:'|| l_proc, 5);
2790: --
2791: -- Check mandatory parameters have being set.
2792: --
2793: hr_api.mandatory_arg_error
2806: --
2807: if (l_api_updating AND (nvl(per_pyp_shd.g_old_rec.performance_review_id,hr_api.g_number)
2808: <> nvl(p_performance_review_id,hr_api.g_number))
2809: or not l_api_updating) then
2810: hr_utility.set_location(l_proc, 10);
2811: --
2812: --
2813: if (p_performance_review_id IS NOT NULL) then
2814: --
2814: --
2815: open csr_chk_performance_review_id;
2816: fetch csr_chk_performance_review_id into l_exists;
2817: if csr_chk_performance_review_id%notfound then
2818: hr_utility.set_location(l_proc, 15);
2819: close csr_chk_performance_review_id;
2820: per_pyp_shd.constraint_error('PER_PAY_PROPOSALS_FK4');
2821: end if;
2822: --
2824: end if;
2825: --
2826: end if;
2827: --
2828: hr_utility.set_location(' Leaving:'|| l_proc, 20);
2829: end chk_performance_review_id;
2830: --
2831: -- -----------------------------------------------------------------------
2832: -- |------------------------------< chk_df >-----------------------------|
2860: --
2861: l_proc varchar2(72) := g_package||'chk_df';
2862: --
2863: begin
2864: hr_utility.set_location('Entering:'||l_proc, 10);
2865: --
2866: if ((p_rec.pay_proposal_id is not null) and (
2867: nvl(per_pyp_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
2868: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
2963: );
2964: end if;
2965: end if;
2966: --
2967: hr_utility.set_location(' Leaving:'||l_proc, 20);
2968: end chk_df;
2969: --
2970: -- ----------------------------------------------------------------------------
2971: -- |---------------------------< insert_validate >----------------------------|
2985: l_proposed_salary_warning boolean := false;
2986: l_approved_warning boolean := false;
2987: --
2988: Begin
2989: hr_utility.set_location('Entering:'||l_proc, 5);
2990: --
2991: -- Call all supporting business operations. Mapping to the
2992: -- appropriate Business Rules in perpyp.bru is provided (where
2993: -- relevant)
2999: -- Rule CHK_BUSINESS_GROUP_ID a,c
3000: --
3001: hr_api.validate_bus_grp_id(p_rec.business_group_id);
3002: --
3003: hr_utility.set_location(l_proc, 10);
3004: --
3005: --
3006: -- Validate assignment id and change_date
3007: --
3022: ,p_payroll_warning => p_payroll_warning
3023: ,p_object_version_number => p_rec.object_version_number
3024: );
3025: --
3026: hr_utility.set_location(l_proc, 15);
3027:
3028: --
3029: --
3030: -- Validate that date_to is not earlier than the start_date
3058: ,p_change_date => p_rec.change_date
3059: ,p_object_version_number => p_rec.object_version_number
3060: );
3061: --
3062: hr_utility.set_location(l_proc, 20);
3063: --
3064: --
3065: -- Validate multiple_components
3066: --
3075: ,p_multiple_components => p_rec.multiple_components
3076: ,p_object_version_number => p_rec.object_version_number
3077: );
3078: --
3079: hr_utility.set_location(l_proc, 35);
3080: --
3081: --
3082: -- Validate next_sal_review_date and change_date
3083: --
3094: ,p_object_version_number => p_rec.object_version_number
3095: ,p_inv_next_sal_date_warning => p_inv_next_sal_date_warning
3096: );
3097: --
3098: hr_utility.set_location(l_proc, 50);
3099: --
3100: -- Validate next_sal_review_date
3101: --
3102: -- Business Rule Mapping
3112: ,p_object_version_number => p_rec.object_version_number
3113: ,p_inv_next_sal_date_warning => p_inv_next_sal_date_warning
3114: );
3115: --
3116: hr_utility.set_location(l_proc, 55);
3117: --
3118: --
3119: -- Validate proposed_salary
3120: --
3133: -- vkodedal 19-feb-2008
3134: ,p_multiple_components => p_rec.multiple_components
3135: );
3136: --
3137: hr_utility.set_location(l_proc, 70);
3138: --
3139: -- Validate approved
3140: --
3141: -- Business Rule Mapping
3151: ,p_proposed_salary_n => p_rec.proposed_salary_n
3152: ,p_object_version_number => p_rec.object_version_number
3153: ,p_approved_warning => p_approved_warning
3154: );
3155: hr_utility.set_location(l_proc, 75);
3156: --
3157: -- Validate performance_review_id
3158: --
3159: -- Business Rule Mapping
3166: ,p_performance_review_id => p_rec.performance_review_id
3167: ,p_object_version_number => p_rec.object_version_number
3168: );
3169: --
3170: hr_utility.set_location(l_proc, 80);
3171: --
3172: -- Validate forced_ranking
3173: --
3174: -- Business Rule Mapping
3178: per_pyp_bus.chk_forced_ranking
3179: (p_forced_ranking => p_rec.forced_ranking);
3180: --
3181: --
3182: hr_utility.set_location(l_proc, 85);
3183: --
3184: --
3185: -- Call descriptive flexfield validation routines
3186: --
3185: -- Call descriptive flexfield validation routines
3186: --
3187: chk_df(p_rec => p_rec);
3188: --
3189: hr_utility.set_location(' Leaving:'||l_proc, 90);
3190: End insert_validate;
3191: --
3192: -- ----------------------------------------------------------------------------
3193: -- |---------------------------< update_validate >----------------------------|
3203: --
3204: l_proc varchar2(72) := g_package||'update_validate';
3205: --
3206: Begin
3207: hr_utility.set_location('Entering:'||l_proc, 5);
3208: --
3209: -- Call all supporting business operations. Mapping to the
3210: -- appropriate Business Rules in perpyp.bru is provided (where
3211: -- relevant)
3213: -- Validate business_group id
3214: --
3215: hr_api.validate_bus_grp_id(p_rec.business_group_id);
3216: --
3217: hr_utility.set_location(l_proc, 12);
3218: --
3219: -- Check those columns which cannot be updated
3220: -- have not changed
3221: --
3228: --
3229: per_pyp_bus.check_non_updateable_args
3230: (p_rec =>p_rec);
3231: --
3232: hr_utility.set_location (l_proc,10);
3233: --
3234: -- Validate assignment id and change_date
3235: --
3236: -- Business Rule Mapping
3250: ,p_payroll_warning => p_payroll_warning
3251: ,p_object_version_number => p_rec.object_version_number
3252: );
3253: --
3254: hr_utility.set_location (l_proc,12);
3255: --
3256: --
3257: -- Validate that date_to is not earlier than the start_date
3258: --
3286: ,p_change_date => p_rec.change_date
3287: ,p_object_version_number => p_rec.object_version_number
3288: );
3289: --
3290: hr_utility.set_location(l_proc, 15);
3291: --
3292: -- Validate multiple_components
3293: --
3294: -- Business Rule Mapping
3302: ,p_multiple_components => p_rec.multiple_components
3303: ,p_object_version_number => p_rec.object_version_number
3304: );
3305: --
3306: hr_utility.set_location(l_proc, 20);
3307: --
3308: -- Validate next_sal_review_date and change_date
3309: --
3310: -- Business Rule Mapping
3320: ,p_object_version_number => p_rec.object_version_number
3321: ,p_inv_next_sal_date_warning => p_inv_next_sal_date_warning
3322: );
3323: --
3324: hr_utility.set_location(l_proc, 40);
3325: --
3326: -- Validate next_sal_review_date
3327: --
3328: -- Business Rule Mapping
3338: ,p_object_version_number => p_rec.object_version_number
3339: ,p_inv_next_sal_date_warning => p_inv_next_sal_date_warning
3340: );
3341: --
3342: hr_utility.set_location(l_proc, 45);
3343: --
3344: --
3345: -- Validate proposed_salary
3346: --
3359: -- vkodedal 19-feb-2008
3360: ,p_multiple_components => p_rec.multiple_components
3361: );
3362: --
3363: hr_utility.set_location(l_proc, 60);
3364: --
3365: -- Validate approved
3366: --
3367: -- Business Rule Mapping
3378: ,p_object_version_number => p_rec.object_version_number
3379: ,p_approved_warning => p_approved_warning
3380: );
3381: --
3382: hr_utility.set_location(l_proc, 65);
3383: --
3384: -- Validate performance_review_id
3385: --
3386: -- Business Rule Mapping
3393: ,p_performance_review_id => p_rec.performance_review_id
3394: ,p_object_version_number => p_rec.object_version_number
3395: );
3396: --
3397: hr_utility.set_location(l_proc, 70);
3398: --
3399: -- Validate forced_ranking
3400: --
3401: -- Business Rule Mapping
3404: --
3405: per_pyp_bus.chk_forced_ranking
3406: (p_forced_ranking => p_rec.forced_ranking);
3407: --
3408: hr_utility.set_location(l_proc, 75);
3409: --
3410: --
3411: -- Call descriptive flexfield validation routines
3412: --
3412: --
3413: chk_df(p_rec => p_rec);
3414: --
3415: --
3416: hr_utility.set_location(' Leaving:'||l_proc, 85);
3417: End update_validate;
3418: --
3419: -- ----------------------------------------------------------------------------
3420: -- |---------------------------< delete_validate >----------------------------|
3427: --
3428: l_proc varchar2(72) := g_package||'delete_validate';
3429: --
3430: Begin
3431: hr_utility.set_location('Entering:'||l_proc, 5);
3432: --
3433: -- Call all supporting business operations
3434: --
3435: -- Validate delete
3447: ,p_object_version_number => p_rec.object_version_number
3448: ,p_salary_warning => p_salary_warning
3449: );
3450:
3451: hr_utility.set_location(' Leaving:'||l_proc, 10);
3452: End delete_validate;
3453: --
3454: -- ---------------------------------------------------------------------------
3455: -- |---------------------< return_legislation_code >-------------------------|
3472: --
3473: l_legislation_code varchar2(150);
3474: l_proc varchar2(72) := 'return_legislation_code';
3475: begin
3476: hr_utility.set_location('Entering:'|| l_proc, 10);
3477: --
3478: -- Ensure that all the mandatory parameter are not null
3479: --
3480: hr_api.mandatory_arg_error(p_api_name => l_proc,
3487: -- call to this function. Just return the value in the global
3488: -- variable.
3489: --
3490: l_legislation_code := g_legislation_code;
3491: hr_utility.set_location(l_proc, 20);
3492: else
3493: --
3494: -- The ID is different to the last call to this function
3495: -- or this is the first call to this function.
3500: --
3501: -- The primary key is invalid therefore we must error
3502: --
3503: close csr_leg_code;
3504: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
3505: hr_utility.raise_error;
3506: end if;
3507: hr_utility.set_location(l_proc, 30);
3508: --
3501: -- The primary key is invalid therefore we must error
3502: --
3503: close csr_leg_code;
3504: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
3505: hr_utility.raise_error;
3506: end if;
3507: hr_utility.set_location(l_proc, 30);
3508: --
3509: -- Set the global variables so the values are
3503: close csr_leg_code;
3504: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
3505: hr_utility.raise_error;
3506: end if;
3507: hr_utility.set_location(l_proc, 30);
3508: --
3509: -- Set the global variables so the values are
3510: -- available for the next call to this function
3511: --
3512: close csr_leg_code;
3513: g_pay_proposal_id := p_pay_proposal_id;
3514: g_legislation_code := l_legislation_code;
3515: end if;
3516: hr_utility.set_location(' Leaving:'|| l_proc, 40);
3517: --
3518: return l_legislation_code;
3519: end return_legislation_code;
3520: --