[Home] [Help]
492: ghr_validate_perwsdpo.validate_perwsdpo(p_pa_request_rec.to_position_id,p_pa_request_rec.effective_date);
493: ghr_validate_perwsdpo.update_posn_status(p_pa_request_rec.to_position_id,p_pa_request_rec.effective_date);
494: exception
495: when others then
496: hr_utility.set_message(8301,'GHR_38288_POSITION_INVALID');
497: hr_utility.raise_error;
498: end;
499: End If;
500: l_psi := ghr_pa_requests_pkg.get_personnel_system_indicator(p_pa_request_rec.to_position_id,
493: ghr_validate_perwsdpo.update_posn_status(p_pa_request_rec.to_position_id,p_pa_request_rec.effective_date);
494: exception
495: when others then
496: hr_utility.set_message(8301,'GHR_38288_POSITION_INVALID');
497: hr_utility.raise_error;
498: end;
499: End If;
500: l_psi := ghr_pa_requests_pkg.get_personnel_system_indicator(p_pa_request_rec.to_position_id,
501: p_pa_request_rec.effective_date);
510: l_person_usr_type := v_get_person_types.user_person_type;
511: END LOOP;
512: -- Bug 4377361 included EMP_APL for person type condition
513: If l_person_sys_type IN ('EMP','EMP_APL') and l_person_usr_type = 'Invalid Employee' then
514: hr_utility.set_message(8301,'GHR_38289_PERSON_INVALID');
515: --hr_utility.show_error;
516: End If;
517:
518: FOR c_noa_family_code_rec in c_noa_family_code(p_pa_request_rec.effective_date) LOOP
511: END LOOP;
512: -- Bug 4377361 included EMP_APL for person type condition
513: If l_person_sys_type IN ('EMP','EMP_APL') and l_person_usr_type = 'Invalid Employee' then
514: hr_utility.set_message(8301,'GHR_38289_PERSON_INVALID');
515: --hr_utility.show_error;
516: End If;
517:
518: FOR c_noa_family_code_rec in c_noa_family_code(p_pa_request_rec.effective_date) LOOP
519: l_noa_family_code := c_noa_family_code_rec.noa_family_code;
525: IF p_pa_request_rec.first_action_la_code1 = 'QUM' AND
526: p_pa_request_rec.first_action_la_code2 = 'QUA' AND
527: p_pa_request_rec.first_noa_code = '890' AND
528: p_pa_request_rec.from_pay_plan <> 'GM' THEN
529: hr_utility.set_message(8301, 'GHR_38553_GM_QUM_QUA');
530: hr_utility.raise_error;
531: END IF;
532:
533: /* Do not allow creation of assignment if Position is Primary Assignment of another Person */
526: p_pa_request_rec.first_action_la_code2 = 'QUA' AND
527: p_pa_request_rec.first_noa_code = '890' AND
528: p_pa_request_rec.from_pay_plan <> 'GM' THEN
529: hr_utility.set_message(8301, 'GHR_38553_GM_QUM_QUA');
530: hr_utility.raise_error;
531: END IF;
532:
533: /* Do not allow creation of assignment if Position is Primary Assignment of another Person */
534: /* Cursor includes check to exclude from Position. */
553: l_assignment_found := TRUE;
554: END LOOP;
555:
556: IF l_assignment_found THEN
557: hr_utility.set_message(8301,'GHR_38290_POSITION_ENCUMBERED');
558: hr_utility.raise_error;
559: END IF;
560:
561: -- For other than Appt. we need to check whether any assignment is existing as on that date.
554: END LOOP;
555:
556: IF l_assignment_found THEN
557: hr_utility.set_message(8301,'GHR_38290_POSITION_ENCUMBERED');
558: hr_utility.raise_error;
559: END IF;
560:
561: -- For other than Appt. we need to check whether any assignment is existing as on that date.
562:
568: l_assignment_found := TRUE;
569: END LOOP;
570:
571: IF l_assignment_found THEN
572: hr_utility.set_message(8301,'GHR_38290_POSITION_ENCUMBERED');
573: hr_utility.raise_error;
574: END IF;
575: END IF;
576: END IF;
569: END LOOP;
570:
571: IF l_assignment_found THEN
572: hr_utility.set_message(8301,'GHR_38290_POSITION_ENCUMBERED');
573: hr_utility.raise_error;
574: END IF;
575: END IF;
576: END IF;
577: --End of Bug 3751864
588: ,'ACCEPTED') loop
589: l_assignment_found := TRUE;
590: end loop;
591: if not l_assignment_found then
592: hr_utility.set_message(8301, 'GHR_38291_NOT_ACCEPTED');
593: hr_utility.raise_error;
594: end if;
595: -- Bug 4377361 included EMP_APL for person type condition
596: Elsif l_person_sys_type IN ('EMP','EMP_APL') then
589: l_assignment_found := TRUE;
590: end loop;
591: if not l_assignment_found then
592: hr_utility.set_message(8301, 'GHR_38291_NOT_ACCEPTED');
593: hr_utility.raise_error;
594: end if;
595: -- Bug 4377361 included EMP_APL for person type condition
596: Elsif l_person_sys_type IN ('EMP','EMP_APL') then
597: -- If employees are added to APP family then may need to change this!!
596: Elsif l_person_sys_type IN ('EMP','EMP_APL') then
597: -- If employees are added to APP family then may need to change this!!
598: -- Bug# 1145963 -- Fetching noa_family_code based on current first_noa_id since
599: -- p_pa_request_rec.noa_family_code always point to family code of original first_noa_id
600: hr_utility.set_location('GHRVALID-passed family code'||p_pa_request_rec.noa_family_code,1);
601: hr_utility.set_location('GHRVALID-current family code'||l_noa_family_code,2);
602: hr_utility.set_location('GHRVALID-noa code'||p_pa_request_rec.first_noa_code,3);
603:
604: IF l_noa_family_code = 'RETURN_TO_DUTY' and l_session.noa_id_correct is null THEN
597: -- If employees are added to APP family then may need to change this!!
598: -- Bug# 1145963 -- Fetching noa_family_code based on current first_noa_id since
599: -- p_pa_request_rec.noa_family_code always point to family code of original first_noa_id
600: hr_utility.set_location('GHRVALID-passed family code'||p_pa_request_rec.noa_family_code,1);
601: hr_utility.set_location('GHRVALID-current family code'||l_noa_family_code,2);
602: hr_utility.set_location('GHRVALID-noa code'||p_pa_request_rec.first_noa_code,3);
603:
604: IF l_noa_family_code = 'RETURN_TO_DUTY' and l_session.noa_id_correct is null THEN
605: for c_asg_stat_type_rec in c_asg_stat_type (p_pa_request_rec.employee_assignment_id
598: -- Bug# 1145963 -- Fetching noa_family_code based on current first_noa_id since
599: -- p_pa_request_rec.noa_family_code always point to family code of original first_noa_id
600: hr_utility.set_location('GHRVALID-passed family code'||p_pa_request_rec.noa_family_code,1);
601: hr_utility.set_location('GHRVALID-current family code'||l_noa_family_code,2);
602: hr_utility.set_location('GHRVALID-noa code'||p_pa_request_rec.first_noa_code,3);
603:
604: IF l_noa_family_code = 'RETURN_TO_DUTY' and l_session.noa_id_correct is null THEN
605: for c_asg_stat_type_rec in c_asg_stat_type (p_pa_request_rec.employee_assignment_id
606: ,p_pa_request_rec.effective_date
607: ,'SUSP_ASSIGN') LOOP
608: l_assignment_found := TRUE;
609: END LOOP;
610: IF not l_assignment_found THEN
611: hr_utility.set_message(8301, 'GHR_38292_NOT_SUSP_ASSIGN');
612: hr_utility.raise_error;
613: END IF;
614: /*
615: -- Note : Commenting the following 'Else part' as a temporary fix to bug 637083
608: l_assignment_found := TRUE;
609: END LOOP;
610: IF not l_assignment_found THEN
611: hr_utility.set_message(8301, 'GHR_38292_NOT_SUSP_ASSIGN');
612: hr_utility.raise_error;
613: END IF;
614: /*
615: -- Note : Commenting the following 'Else part' as a temporary fix to bug 637083
616: -- Should be revisiting this code when we have the NOA specific Bus. rules in place
620: ,'ACTIVE_ASSIGN') loop
621: l_assignment_found := TRUE;
622: end loop;
623: if not l_assignment_found then
624: hr_utility.set_message(8301, 'GHR_38293_NOT_ACTIVE_ASSIGN');
625: hr_utility.raise_error;
626: end if;
627: */
628: End If;
621: l_assignment_found := TRUE;
622: end loop;
623: if not l_assignment_found then
624: hr_utility.set_message(8301, 'GHR_38293_NOT_ACTIVE_ASSIGN');
625: hr_utility.raise_error;
626: end if;
627: */
628: End If;
629: End If;
635: l_futr_actions := v_future_actions.futr_rpa;
636: EXIT;
637: END LOOP;
638: IF (l_futr_actions IS NOT NULL) THEN
639: hr_utility.set_message(8301,'GHR_38847_NO_SEP_WITH_FUTR');
640: hr_utility.raise_error;
641: END IF;
642: END IF;
643: -- End Sundar Bug 3263109/3263096
636: EXIT;
637: END LOOP;
638: IF (l_futr_actions IS NOT NULL) THEN
639: hr_utility.set_message(8301,'GHR_38847_NO_SEP_WITH_FUTR');
640: hr_utility.raise_error;
641: END IF;
642: END IF;
643: -- End Sundar Bug 3263109/3263096
644:
647: IF ( p_pa_request_rec.effective_date >= to_date('2004/01/11','YYYY/MM/DD') ) THEN
648: IF ( p_pa_request_rec.to_pay_plan in ('ES','EP','IE','FE') ) THEN
649:
650: If p_pa_request_rec.first_noa_code ='893' THEN
651: hr_utility.set_message(8301, 'GHR_38889_SES_WGI_NO');
652: hr_utility.raise_error;
653: END IF;
654:
655: l_user_tab_id := ghr_pay_calc.get_user_table_id(
648: IF ( p_pa_request_rec.to_pay_plan in ('ES','EP','IE','FE') ) THEN
649:
650: If p_pa_request_rec.first_noa_code ='893' THEN
651: hr_utility.set_message(8301, 'GHR_38889_SES_WGI_NO');
652: hr_utility.raise_error;
653: END IF;
654:
655: l_user_tab_id := ghr_pay_calc.get_user_table_id(
656: p_position_id => p_pa_request_rec.to_position_id
663: l_essl_table := TRUE;
664: END LOOP;
665:
666: IF ( l_essl_table and p_pa_request_rec.to_step_or_rate <>'00' ) THEN
667: hr_utility.set_message(8301, 'GHR_38849_SES_TO_STEP_OR_RATE');
668: hr_utility.raise_error;
669: END IF;
670: END IF;
671: END IF;
664: END LOOP;
665:
666: IF ( l_essl_table and p_pa_request_rec.to_step_or_rate <>'00' ) THEN
667: hr_utility.set_message(8301, 'GHR_38849_SES_TO_STEP_OR_RATE');
668: hr_utility.raise_error;
669: END IF;
670: END IF;
671: END IF;
672: --- End fix code 3417859
674: IF ( p_pa_request_rec.effective_date >= to_date('2004/01/11','YYYY/MM/DD') ) THEN
675: IF ( p_pa_request_rec.to_pay_plan in ('EE') ) THEN
676:
677: IF p_pa_request_rec.first_noa_code ='893' THEN
678: hr_utility.set_message(8301, 'GHR_38897_EE_WGI_NO');
679: hr_utility.raise_error;
680: END IF;
681:
682: l_user_tab_id := ghr_pay_calc.get_user_table_id(
675: IF ( p_pa_request_rec.to_pay_plan in ('EE') ) THEN
676:
677: IF p_pa_request_rec.first_noa_code ='893' THEN
678: hr_utility.set_message(8301, 'GHR_38897_EE_WGI_NO');
679: hr_utility.raise_error;
680: END IF;
681:
682: l_user_tab_id := ghr_pay_calc.get_user_table_id(
683: p_position_id => p_pa_request_rec.to_position_id
690: l_essl_table := TRUE;
691: END LOOP;
692:
693: IF ( l_essl_table and p_pa_request_rec.to_step_or_rate <>'00' ) THEN
694: hr_utility.set_message(8301, 'GHR_38895_EE_TO_STEP_OR_RATE');
695: hr_utility.raise_error;
696: END IF;
697: END IF;
698: END IF;
691: END LOOP;
692:
693: IF ( l_essl_table and p_pa_request_rec.to_step_or_rate <>'00' ) THEN
694: hr_utility.set_message(8301, 'GHR_38895_EE_TO_STEP_OR_RATE');
695: hr_utility.raise_error;
696: END IF;
697: END IF;
698: END IF;
699: --End of Bug#3604377
701: /* Check whether agency code transferred to entered or not in case of 352 separation actions */
702: l_to_agency_code := p_per_sep_retire.agency_code_transfer_to;
703: If p_pa_request_rec.first_noa_code = '352' and
704: l_to_agency_code is NULL THEN
705: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
706: fnd_message.set_token('REQUIRED_LIST','Agency Code Transferred to');
707: hr_utility.raise_error;
708: End If;
709: -- Bug# 1893483
703: If p_pa_request_rec.first_noa_code = '352' and
704: l_to_agency_code is NULL THEN
705: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
706: fnd_message.set_token('REQUIRED_LIST','Agency Code Transferred to');
707: hr_utility.raise_error;
708: End If;
709: -- Bug# 1893483
710:
711: /* check part hours if work schedule is not F,G,B */
712: l_work_schedule_code:=p_pa_request_rec.WORK_SCHEDULE;
713: l_part_time_hr :=p_pa_request_rec.part_time_hours;
714: If l_work_schedule_code not in ('F','G','B','I','J') and
715: l_part_time_hr is null then
716: hr_utility.set_message(8301, 'GHR_38333_PART_TIME_HR_REQ');
717: hr_utility.raise_error;
718: end if;
719:
720: -- Bug#5036370 RRR Changes
713: l_part_time_hr :=p_pa_request_rec.part_time_hours;
714: If l_work_schedule_code not in ('F','G','B','I','J') and
715: l_part_time_hr is null then
716: hr_utility.set_message(8301, 'GHR_38333_PART_TIME_HR_REQ');
717: hr_utility.raise_error;
718: end if;
719:
720: -- Bug#5036370 RRR Changes
721: /* Check whether Service Obligation Information is entered for GHR_INCENTIVE Family or Not */
719:
720: -- Bug#5036370 RRR Changes
721: /* Check whether Service Obligation Information is entered for GHR_INCENTIVE Family or Not */
722: l_serv_oblig_code := p_per_service_oblig.service_oblig_type_code;
723: hr_utility.set_location('RRR 0'||p_per_service_oblig.service_oblig_start_date,10);
724: hr_utility.set_location('RRR 0'||p_per_service_oblig.service_oblig_end_date,10);
725: l_serv_oblig_stdt := fnd_date.canonical_to_date(p_per_service_oblig.service_oblig_start_date);
726: l_serv_oblig_enddt := fnd_date.canonical_to_date(p_per_service_oblig.service_oblig_end_date);
727:
720: -- Bug#5036370 RRR Changes
721: /* Check whether Service Obligation Information is entered for GHR_INCENTIVE Family or Not */
722: l_serv_oblig_code := p_per_service_oblig.service_oblig_type_code;
723: hr_utility.set_location('RRR 0'||p_per_service_oblig.service_oblig_start_date,10);
724: hr_utility.set_location('RRR 0'||p_per_service_oblig.service_oblig_end_date,10);
725: l_serv_oblig_stdt := fnd_date.canonical_to_date(p_per_service_oblig.service_oblig_start_date);
726: l_serv_oblig_enddt := fnd_date.canonical_to_date(p_per_service_oblig.service_oblig_end_date);
727:
728: IF (l_noa_family_code = 'GHR_INCENTIVE' OR
734: LOOP
735: l_cnt := incentive_rec.cnt;
736: END LOOP;
737: IF l_cnt <= 0 THEN
738: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
739: fnd_message.set_token('REQUIRED_LIST','Incentive Category Details');
740: hr_utility.raise_error;
741: END IF;
742: IF NOT (p_pa_request_rec.first_noa_code <> '825' OR p_pa_request_rec.second_noa_code <> '825') THEN
736: END LOOP;
737: IF l_cnt <= 0 THEN
738: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
739: fnd_message.set_token('REQUIRED_LIST','Incentive Category Details');
740: hr_utility.raise_error;
741: END IF;
742: IF NOT (p_pa_request_rec.first_noa_code <> '825' OR p_pa_request_rec.second_noa_code <> '825') THEN
743: IF NOT (p_pa_request_rec.first_noa_code = '827' AND p_pa_request_rec.pa_incentive_payment_option = 'B') THEN
744: hr_utility.set_location('first noa code '||p_pa_request_rec.first_noa_code,10);
740: hr_utility.raise_error;
741: END IF;
742: IF NOT (p_pa_request_rec.first_noa_code <> '825' OR p_pa_request_rec.second_noa_code <> '825') THEN
743: IF NOT (p_pa_request_rec.first_noa_code = '827' AND p_pa_request_rec.pa_incentive_payment_option = 'B') THEN
744: hr_utility.set_location('first noa code '||p_pa_request_rec.first_noa_code,10);
745: IF ((l_serv_oblig_code IS NULL OR l_serv_oblig_stdt IS NULL) AND l_session.noa_id_correct IS NULL ) THEN
746: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
747: fnd_message.set_token('REQUIRED_LIST','Service Obligation Code, Service Obligation Start Date');
748: hr_utility.raise_error;
742: IF NOT (p_pa_request_rec.first_noa_code <> '825' OR p_pa_request_rec.second_noa_code <> '825') THEN
743: IF NOT (p_pa_request_rec.first_noa_code = '827' AND p_pa_request_rec.pa_incentive_payment_option = 'B') THEN
744: hr_utility.set_location('first noa code '||p_pa_request_rec.first_noa_code,10);
745: IF ((l_serv_oblig_code IS NULL OR l_serv_oblig_stdt IS NULL) AND l_session.noa_id_correct IS NULL ) THEN
746: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
747: fnd_message.set_token('REQUIRED_LIST','Service Obligation Code, Service Obligation Start Date');
748: hr_utility.raise_error;
749: End If;
750: END IF;
744: hr_utility.set_location('first noa code '||p_pa_request_rec.first_noa_code,10);
745: IF ((l_serv_oblig_code IS NULL OR l_serv_oblig_stdt IS NULL) AND l_session.noa_id_correct IS NULL ) THEN
746: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
747: fnd_message.set_token('REQUIRED_LIST','Service Obligation Code, Service Obligation Start Date');
748: hr_utility.raise_error;
749: End If;
750: END IF;
751: IF l_serv_oblig_code IS NOT NULL AND l_serv_oblig_stdt IS NOT NULL THEN
752: /* Check the Service Obligation Period.*/
752: /* Check the Service Obligation Period.*/
753: /*Bug # 6738306 "=" added in the below if condition and Token is set for the
754: error message*/
755: IF l_serv_oblig_stdt >= NVL(l_serv_oblig_enddt,to_date('4712/12/31','YYYY/MM/DD')) THEN
756: hr_utility.set_message(8301,'GHR_38999_STDT_GRTR_ENDDT');
757: FND_MESSAGE.SET_TOKEN('MESSAGE','Service Obligation End Date must be
758: greater than Service Obligation Start Date');
759: hr_utility.raise_error;
760: END IF;
755: IF l_serv_oblig_stdt >= NVL(l_serv_oblig_enddt,to_date('4712/12/31','YYYY/MM/DD')) THEN
756: hr_utility.set_message(8301,'GHR_38999_STDT_GRTR_ENDDT');
757: FND_MESSAGE.SET_TOKEN('MESSAGE','Service Obligation End Date must be
758: greater than Service Obligation Start Date');
759: hr_utility.raise_error;
760: END IF;
761: IF p_pa_request_rec.first_noa_code = '815' THEN
762: l_min_months := 6;
763: l_max_months := 48;
768:
769: l_min_date := ADD_MONTHS(l_serv_oblig_stdt,l_min_months);
770: l_max_date := ADD_MONTHS(l_serv_oblig_stdt,l_max_months);
771: IF NOT (NVL(l_serv_oblig_enddt,to_date('4712/12/31','YYYY/MM/DD')) BETWEEN l_min_date AND l_max_date) THEN
772: hr_utility.set_message(8301,'GHR_38998_INV_SERVOBL_PERIOD');
773: fnd_message.set_token('NOAC',p_pa_request_rec.first_noa_code);
774: fnd_message.set_token('MIN_PERIOD', to_char(l_min_months)||' Months');
775: fnd_message.set_token('MAX_PERIOD', ' 4 Years');
776: hr_utility.raise_error;
772: hr_utility.set_message(8301,'GHR_38998_INV_SERVOBL_PERIOD');
773: fnd_message.set_token('NOAC',p_pa_request_rec.first_noa_code);
774: fnd_message.set_token('MIN_PERIOD', to_char(l_min_months)||' Months');
775: fnd_message.set_token('MAX_PERIOD', ' 4 Years');
776: hr_utility.raise_error;
777: END IF;
778: END IF;
779: END IF;
780: END IF;
793: IF l_inct_ctgy_pcnt <> 0 THEN
794: -- End Bug# 5039100
795: IF l_cnt = 1 AND l_biweekly_end_date IS NULL THEN
796: IF p_per_group1.retention_inc_review_date IS NULL THEN
797: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
798: fnd_message.set_token('REQUIRED_LIST','Retention Incentive Review Date');
799: hr_utility.raise_error;
800: END IF;
801: END IF;
795: IF l_cnt = 1 AND l_biweekly_end_date IS NULL THEN
796: IF p_per_group1.retention_inc_review_date IS NULL THEN
797: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
798: fnd_message.set_token('REQUIRED_LIST','Retention Incentive Review Date');
799: hr_utility.raise_error;
800: END IF;
801: END IF;
802: END IF;
803: END IF;
810: l_futr_incentive_cnt := v_future_incentives.cnt;
811: EXIT;
812: END LOOP;
813: IF (l_futr_incentive_cnt > 0) THEN
814: hr_utility.set_message(8301,'GHR_38120_NO_SEP_FUTR_INCN_ELT');
815: hr_utility.raise_error;
816: END IF;
817: END IF;
818: /* Bug#5039691 Verify whether the NOA Code is Valid or not as on the effective date.
811: EXIT;
812: END LOOP;
813: IF (l_futr_incentive_cnt > 0) THEN
814: hr_utility.set_message(8301,'GHR_38120_NO_SEP_FUTR_INCN_ELT');
815: hr_utility.raise_error;
816: END IF;
817: END IF;
818: /* Bug#5039691 Verify whether the NOA Code is Valid or not as on the effective date.
819: Verify this for all actions EXCEPT correction, cancellation. */
827: exit;
828: END LOOP;
829: -- to include logic to check if not valid as of the effective date
830: IF NOT l_exists THEN
831: hr_utility.set_message(8301, 'GHR_38167_INV_NAT_OF_ACT_FAM');
832: hr_utility.raise_error;
833: END IF;
834: END IF;
835: -- Bug#5036370 RRR Changes
828: END LOOP;
829: -- to include logic to check if not valid as of the effective date
830: IF NOT l_exists THEN
831: hr_utility.set_message(8301, 'GHR_38167_INV_NAT_OF_ACT_FAM');
832: hr_utility.raise_error;
833: END IF;
834: END IF;
835: -- Bug#5036370 RRR Changes
836:
844: l_to_supervisor_diff := p_pa_request_rec.TO_SUPERVISORY_DIFFERENTIAL ;
845:
846: if l_To_Pay_Basis ='PA' and
847: nvl(l_To_adj_basic_pay,0) <> nvl(l_To_Basic_Pay,0) + nvl(l_To_Locality_Adj,0) then
848: hr_utility.set_message(8301, 'GHR_38334_ADJ_BASIC_PAY');
849: hr_utility.raise_error;
850: end if;
851: --bug 3584511
852: IF (p_pa_request_rec.noa_family_code <> 'GHR_STUDENT_LOAN' and ghr_process_sf52.g_total_pay_check = 'Y') THEN
845:
846: if l_To_Pay_Basis ='PA' and
847: nvl(l_To_adj_basic_pay,0) <> nvl(l_To_Basic_Pay,0) + nvl(l_To_Locality_Adj,0) then
848: hr_utility.set_message(8301, 'GHR_38334_ADJ_BASIC_PAY');
849: hr_utility.raise_error;
850: end if;
851: --bug 3584511
852: IF (p_pa_request_rec.noa_family_code <> 'GHR_STUDENT_LOAN' and ghr_process_sf52.g_total_pay_check = 'Y') THEN
853: if l_To_Pay_Basis ='PA' and
851: --bug 3584511
852: IF (p_pa_request_rec.noa_family_code <> 'GHR_STUDENT_LOAN' and ghr_process_sf52.g_total_pay_check = 'Y') THEN
853: if l_To_Pay_Basis ='PA' and
854: nvl(l_To_total_pay,0) <> nvl(l_To_adj_basic_pay,0) + nvl(l_To_other_pay,0) then
855: hr_utility.set_message(8301, 'GHR_38335_TOTAL_PAY');
856: hr_utility.raise_error;
857: end if;
858: END IF;
859: /* check staffing diff. */
852: IF (p_pa_request_rec.noa_family_code <> 'GHR_STUDENT_LOAN' and ghr_process_sf52.g_total_pay_check = 'Y') THEN
853: if l_To_Pay_Basis ='PA' and
854: nvl(l_To_total_pay,0) <> nvl(l_To_adj_basic_pay,0) + nvl(l_To_other_pay,0) then
855: hr_utility.set_message(8301, 'GHR_38335_TOTAL_PAY');
856: hr_utility.raise_error;
857: end if;
858: END IF;
859: /* check staffing diff. */
860: l_staffing_differential:=p_pa_request_rec.TO_STAFFING_DIFFERENTIAL;
863: l_staffing_differential,
864: 'PA',
865: p_pa_request_rec.to_pay_basis)
866: > round((nvl(l_To_Basic_Pay,0) * 0.05)) then
867: hr_utility.set_message(8301, 'GHR_38344_INVALID_STAFF_DIFF');
868: hr_utility.raise_error;
869: end if;
870:
871: /* check retention allowance */
864: 'PA',
865: p_pa_request_rec.to_pay_basis)
866: > round((nvl(l_To_Basic_Pay,0) * 0.05)) then
867: hr_utility.set_message(8301, 'GHR_38344_INVALID_STAFF_DIFF');
868: hr_utility.raise_error;
869: end if;
870:
871: /* check retention allowance */
872: l_Retention_Allowance:=p_pa_request_rec.TO_RETENTION_ALLOWANCE;
873: -- Code added for Student Loan
874: IF p_pa_request_rec.noa_family_code <> 'GHR_STUDENT_LOAN' then
875: if l_Retention_Allowance is not null and
876: l_Retention_Allowance > (nvl(l_To_Basic_Pay,0) * 0.25) then -- Bug 3067420 Removed 'ROUND'
877: hr_utility.set_message(8301, 'GHR_38345_INVALID_RET_ALLOW');
878: hr_utility.raise_error;
879: end if;
880: END IF;
881:
874: IF p_pa_request_rec.noa_family_code <> 'GHR_STUDENT_LOAN' then
875: if l_Retention_Allowance is not null and
876: l_Retention_Allowance > (nvl(l_To_Basic_Pay,0) * 0.25) then -- Bug 3067420 Removed 'ROUND'
877: hr_utility.set_message(8301, 'GHR_38345_INVALID_RET_ALLOW');
878: hr_utility.raise_error;
879: end if;
880: END IF;
881:
882: -- Modified for FWS
882: -- Modified for FWS
883:
884: IF p_pa_request_rec.to_pay_basis ='PH' AND
885: (p_pa_request_rec.first_noa_code IN ('818','819') or NVL(l_to_supervisor_diff,0) > 0) THEN
886: hr_utility.set_message(8301, 'GHR_38844_NOT_ENTITLED_OTH_PAY');
887: hr_utility.raise_error;
888: END IF;
889:
890: IF p_pa_request_rec.from_pay_basis ='PA' and p_pa_request_rec.to_pay_basis ='PH' THEN
883:
884: IF p_pa_request_rec.to_pay_basis ='PH' AND
885: (p_pa_request_rec.first_noa_code IN ('818','819') or NVL(l_to_supervisor_diff,0) > 0) THEN
886: hr_utility.set_message(8301, 'GHR_38844_NOT_ENTITLED_OTH_PAY');
887: hr_utility.raise_error;
888: END IF;
889:
890: IF p_pa_request_rec.from_pay_basis ='PA' and p_pa_request_rec.to_pay_basis ='PH' THEN
891: FOR chk_for_sup_rec IN check_for_supervisory LOOP
889:
890: IF p_pa_request_rec.from_pay_basis ='PA' and p_pa_request_rec.to_pay_basis ='PH' THEN
891: FOR chk_for_sup_rec IN check_for_supervisory LOOP
892: IF nvl(chk_for_sup_rec.screen_entry_value,0) > 0 THEN
893: hr_utility.set_message(8301, 'GHR_38844_NOT_ENTITLED_OTH_PAY');
894: hr_utility.raise_error;
895: END IF;
896: END LOOP;
897: END IF;
890: IF p_pa_request_rec.from_pay_basis ='PA' and p_pa_request_rec.to_pay_basis ='PH' THEN
891: FOR chk_for_sup_rec IN check_for_supervisory LOOP
892: IF nvl(chk_for_sup_rec.screen_entry_value,0) > 0 THEN
893: hr_utility.set_message(8301, 'GHR_38844_NOT_ENTITLED_OTH_PAY');
894: hr_utility.raise_error;
895: END IF;
896: END LOOP;
897: END IF;
898:
907: l_to_supervisor_diff,
908: 'PA',
909: p_pa_request_rec.to_pay_basis)
910: > (nvl(l_To_Basic_Pay,0) * 0.25) then
911: hr_utility.set_message(8301, 'GHR_SUP_DIFF_AMT_TOO_BIG');
912: hr_utility.raise_error;
913: end if;
914: */
915:
908: 'PA',
909: p_pa_request_rec.to_pay_basis)
910: > (nvl(l_To_Basic_Pay,0) * 0.25) then
911: hr_utility.set_message(8301, 'GHR_SUP_DIFF_AMT_TOO_BIG');
912: hr_utility.raise_error;
913: end if;
914: */
915:
916: /* check effective date */
917: /* Bug# 923276 - Remove 90-day limitation on effective date - Hence commented out - 24th July,1999
918: l_effective_date :=p_pa_request_rec.EFFECTIVE_DATE;
919: l_effective_date :=p_pa_request_rec.EFFECTIVE_DATE;
920: if (l_effective_date-sysdate) > 90 then
921: hr_utility.set_message(8301, 'GHR_38379_INV_EFFECT_DATE');
922: hr_utility.raise_error;
923: end if;
924: */
925:
918: l_effective_date :=p_pa_request_rec.EFFECTIVE_DATE;
919: l_effective_date :=p_pa_request_rec.EFFECTIVE_DATE;
920: if (l_effective_date-sysdate) > 90 then
921: hr_utility.set_message(8301, 'GHR_38379_INV_EFFECT_DATE');
922: hr_utility.raise_error;
923: end if;
924: */
925:
926:
948: );
949:
950: If l_prem_pay is not null or
951: l_amount is not null then
952: hr_utility.set_message(8301,'GHR_38387_AP_EXISTS');
953: hr_utility.raise_error;
954: End if;
955:
956: Elsif p_pa_request_rec.first_noa_code = '819' then -- if AP
949:
950: If l_prem_pay is not null or
951: l_amount is not null then
952: hr_utility.set_message(8301,'GHR_38387_AP_EXISTS');
953: hr_utility.raise_error;
954: End if;
955:
956: Elsif p_pa_request_rec.first_noa_code = '819' then -- if AP
957: -- check if the person already gets an AUO
974: );
975:
976: If l_prem_pay is not null or
977: l_amount is not null then
978: hr_utility.set_message(8301,'GHR_38388_AUO_EXISTS');
979: hr_utility.raise_error;
980: End if;
981: End if;
982:
975:
976: If l_prem_pay is not null or
977: l_amount is not null then
978: hr_utility.set_message(8301,'GHR_38388_AUO_EXISTS');
979: hr_utility.raise_error;
980: End if;
981: End if;
982:
983:
1006: --
1007: -- Start Bug 1379280
1008: if p_pa_request_rec.first_noa_code in ('846','847','872') and
1009: p_pa_request_rec.award_uom <> 'H' then
1010: hr_utility.set_message(8301,'GHR_38595_INVALID_AWARD_UOM');
1011: hr_utility.raise_error;
1012: end if;
1013: if p_pa_request_rec.first_noa_code in ('840','841','842','843','844','845','848',
1014: '849','815','816','825','878','879') and
1007: -- Start Bug 1379280
1008: if p_pa_request_rec.first_noa_code in ('846','847','872') and
1009: p_pa_request_rec.award_uom <> 'H' then
1010: hr_utility.set_message(8301,'GHR_38595_INVALID_AWARD_UOM');
1011: hr_utility.raise_error;
1012: end if;
1013: if p_pa_request_rec.first_noa_code in ('840','841','842','843','844','845','848',
1014: '849','815','816','825','878','879') and
1015: p_pa_request_rec.award_uom <> 'M' then
1012: end if;
1013: if p_pa_request_rec.first_noa_code in ('840','841','842','843','844','845','848',
1014: '849','815','816','825','878','879') and
1015: p_pa_request_rec.award_uom <> 'M' then
1016: hr_utility.set_message(8301,'GHR_38597_INVALID_AWARD_UOM');
1017: hr_utility.raise_error;
1018: end if;
1019: -- End Bug 1379280
1020:
1013: if p_pa_request_rec.first_noa_code in ('840','841','842','843','844','845','848',
1014: '849','815','816','825','878','879') and
1015: p_pa_request_rec.award_uom <> 'M' then
1016: hr_utility.set_message(8301,'GHR_38597_INVALID_AWARD_UOM');
1017: hr_utility.raise_error;
1018: end if;
1019: -- End Bug 1379280
1020:
1021: --Pradeep for 3934195.
1046: /*l_award_salary := ghr_pay_calc.convert_amount(p_pa_request_rec.from_basic_pay
1047: ,p_pa_request_rec.from_pay_basis,'PA');*/
1048: -- end Bug# 4748927
1049: --Use the same Message Name for All.
1050: hr_utility.set_message(8301,'GHR_38904_AWARD_AMT_TOO_BIG5');
1051:
1052: --bug#5482191
1053:
1054:
1055: IF ( p_pa_request_rec.first_noa_code='844'
1056: OR p_pa_request_rec.second_noa_code='844' ) THEN
1057:
1058: l_max_allowed_amount := 5*l_award_salary/100;
1059: hr_utility.set_message_token('ALLOWED','5%');
1060:
1061: ELSIF ( p_pa_request_rec.first_noa_code IN ('840','841','879')
1062: OR p_pa_request_rec.second_noa_code IN ('840','841','879')
1063: OR p_pa_request_rec.first_noa_code IN ('885','886') AND l_psi = '00'
1063: OR p_pa_request_rec.first_noa_code IN ('885','886') AND l_psi = '00'
1064: OR p_pa_request_rec.second_noa_code IN ('885','886') AND l_psi = '00' ) THEN
1065:
1066: l_max_allowed_amount := 25*l_award_salary/100;
1067: hr_utility.set_message_token('ALLOWED','25%');
1068:
1069: ELSIF ( p_pa_request_rec.first_noa_code IN ('878')
1070: OR p_pa_request_rec.second_noa_code IN ('878') ) THEN
1071:
1069: ELSIF ( p_pa_request_rec.first_noa_code IN ('878')
1070: OR p_pa_request_rec.second_noa_code IN ('878') ) THEN
1071:
1072: l_max_allowed_amount := 35*l_award_salary/100;
1073: hr_utility.set_message_token('ALLOWED','35%');
1074:
1075: --bug#5482191
1076: ELSIF (( p_pa_request_rec.first_noa_code IN ('849')
1077: OR p_pa_request_rec.second_noa_code IN ('849')) and l_psi = '00' ) THEN
1076: ELSIF (( p_pa_request_rec.first_noa_code IN ('849')
1077: OR p_pa_request_rec.second_noa_code IN ('849')) and l_psi = '00' ) THEN
1078:
1079: l_max_allowed_amount := 35*l_award_salary/100;
1080: hr_utility.set_message_token('ALLOWED','35%');
1081:
1082:
1083:
1084: ELSIF ( p_pa_request_rec.first_noa_code IN ('825','842','843','848')
1084: ELSIF ( p_pa_request_rec.first_noa_code IN ('825','842','843','848')
1085: OR p_pa_request_rec.second_noa_code IN ('825','842','843','848') ) THEN
1086:
1087: l_max_allowed_amount := 25000;
1088: hr_utility.set_message(8301,'GHR_38905_AWARD_AMT_TOO_BIG6');
1089: hr_utility.set_message_token('ALLOWED','$25000');
1090:
1091: END IF;
1092:
1085: OR p_pa_request_rec.second_noa_code IN ('825','842','843','848') ) THEN
1086:
1087: l_max_allowed_amount := 25000;
1088: hr_utility.set_message(8301,'GHR_38905_AWARD_AMT_TOO_BIG6');
1089: hr_utility.set_message_token('ALLOWED','$25000');
1090:
1091: END IF;
1092:
1093:
1100: ELSE
1101: l_max_allowed_amount := 50*l_award_salary/100;
1102: END IF;
1103: IF p_pa_request_rec.award_amount > round(l_max_allowed_amount) THEN
1104: hr_utility.set_message(8301, 'GHR_38898_AWARD_AMT_TOO_BIG3');
1105: hr_utility.raise_error;
1106: END IF;
1107: --3818297 Added NVL
1108: ELSIF ( ghr_pay_calc.LEO_position( p_prd => l_temp
1101: l_max_allowed_amount := 50*l_award_salary/100;
1102: END IF;
1103: IF p_pa_request_rec.award_amount > round(l_max_allowed_amount) THEN
1104: hr_utility.set_message(8301, 'GHR_38898_AWARD_AMT_TOO_BIG3');
1105: hr_utility.raise_error;
1106: END IF;
1107: --3818297 Added NVL
1108: ELSIF ( ghr_pay_calc.LEO_position( p_prd => l_temp
1109: ,p_position_id => NVL(p_pa_request_rec.to_position_id,p_pa_request_rec.from_position_id)
1116: IF l_max_allowed_amount < 15000 THEN
1117: l_max_allowed_amount := 15000;
1118: END IF;
1119: IF p_pa_request_rec.award_amount > round(l_max_allowed_amount) THEN
1120: hr_utility.set_message(8301, 'GHR_38896_AWARD_AMT_TOO_BIG2');
1121: hr_utility.raise_error;
1122: END IF;
1123: --3818297 Added NVL
1124: ELSIF (NOT ghr_pay_calc.LEO_position( p_prd => l_temp
1117: l_max_allowed_amount := 15000;
1118: END IF;
1119: IF p_pa_request_rec.award_amount > round(l_max_allowed_amount) THEN
1120: hr_utility.set_message(8301, 'GHR_38896_AWARD_AMT_TOO_BIG2');
1121: hr_utility.raise_error;
1122: END IF;
1123: --3818297 Added NVL
1124: ELSIF (NOT ghr_pay_calc.LEO_position( p_prd => l_temp
1125: ,p_position_id => NVL(p_pa_request_rec.to_position_id,p_pa_request_rec.from_position_id)
1129: ) )THEN
1130:
1131: l_max_allowed_amount := 25*l_award_salary/100;
1132: IF p_pa_request_rec.award_amount > round(l_max_allowed_amount) THEN
1133: hr_utility.set_message(8301, 'GHR_AWARD_AMT_TOO_BIG');
1134: hr_utility.raise_error;
1135: END IF;
1136: END IF;
1137:
1130:
1131: l_max_allowed_amount := 25*l_award_salary/100;
1132: IF p_pa_request_rec.award_amount > round(l_max_allowed_amount) THEN
1133: hr_utility.set_message(8301, 'GHR_AWARD_AMT_TOO_BIG');
1134: hr_utility.raise_error;
1135: END IF;
1136: END IF;
1137:
1138: ELSIF ( p_pa_request_rec.first_noa_code='815'
1145: ELSE
1146: l_max_allowed_amount := 50*l_award_salary/100;
1147: END IF;
1148: IF p_pa_request_rec.award_amount > round(l_max_allowed_amount) THEN
1149: hr_utility.set_message(8301, 'GHR_38898_AWARD_AMT_TOO_BIG3');
1150: hr_utility.raise_error;
1151: END IF;
1152: ELSE
1153: l_max_allowed_amount := 25*l_award_salary/100;
1146: l_max_allowed_amount := 50*l_award_salary/100;
1147: END IF;
1148: IF p_pa_request_rec.award_amount > round(l_max_allowed_amount) THEN
1149: hr_utility.set_message(8301, 'GHR_38898_AWARD_AMT_TOO_BIG3');
1150: hr_utility.raise_error;
1151: END IF;
1152: ELSE
1153: l_max_allowed_amount := 25*l_award_salary/100;
1154: hr_utility.set_message_token('ALLOWED','25%');
1150: hr_utility.raise_error;
1151: END IF;
1152: ELSE
1153: l_max_allowed_amount := 25*l_award_salary/100;
1154: hr_utility.set_message_token('ALLOWED','25%');
1155:
1156: END IF;
1157: END IF;
1158:
1158:
1159: -- Raise an Error if Award Amount is Greater than the Maximum Allowed Amount.
1160: IF p_pa_request_rec.award_amount > round(l_max_allowed_amount) THEN
1161: --Name is already set.
1162: hr_utility.raise_error;
1163: ELSE
1164:
1165: --If there is no error then clear the message stack.
1166: hr_utility.clear_message;
1162: hr_utility.raise_error;
1163: ELSE
1164:
1165: --If there is no error then clear the message stack.
1166: hr_utility.clear_message;
1167:
1168: END IF;
1169:
1170: --Check for Minimum Amount.
1169:
1170: --Check for Minimum Amount.
1171:
1172: --Use the same Message Name for All.
1173: hr_utility.set_message(8301, 'GHR_38903_AWARD_AMT_TOO_LESS');
1174:
1175: --Getting the Minimum Allowed Amount.
1176: IF ( p_pa_request_rec.first_noa_code='879'
1177: OR p_pa_request_rec.second_noa_code='879' ) THEN
1176: IF ( p_pa_request_rec.first_noa_code='879'
1177: OR p_pa_request_rec.second_noa_code='879' ) THEN
1178:
1179: l_min_allowed_amount := 5*l_award_salary/100;
1180: hr_utility.set_message_token('ALLOWED','5%');
1181: END IF;
1182:
1183: --Raise an Error if Award Amount is Less than the Minimum Allowed Amount.
1184: IF p_pa_request_rec.award_amount < trunc(nvl(l_min_allowed_amount,0)) THEN
1181: END IF;
1182:
1183: --Raise an Error if Award Amount is Less than the Minimum Allowed Amount.
1184: IF p_pa_request_rec.award_amount < trunc(nvl(l_min_allowed_amount,0)) THEN
1185: hr_utility.raise_error;
1186: ELSE
1187: -- If there is no error then clear the message stack.
1188: hr_utility.clear_message;
1189: END IF;
1184: IF p_pa_request_rec.award_amount < trunc(nvl(l_min_allowed_amount,0)) THEN
1185: hr_utility.raise_error;
1186: ELSE
1187: -- If there is no error then clear the message stack.
1188: hr_utility.clear_message;
1189: END IF;
1190:
1191: END IF; -- End if of p_pa_request_rec.noa_family_code = 'AWARD'
1192: --Pradeep end of Bug 3934195
1198: if p_pa_request_rec.noa_family_code in ('APP', 'CHG_HOURS', 'CHG_WORK_SCHED', 'CONV_APP'
1199: ,'REASSIGNMENT', 'RETURN_TO_DUTY') and
1200: p_pa_request_rec.work_schedule in ('B','F','G','I','J') and
1201: p_asg_non_sf52.parttime_indicator is not null then
1202: hr_utility.set_message(8301,'GHR_38621_PART_TIME_IND_NR');
1203: hr_utility.raise_error;
1204: end if;
1205: --
1206: -- START fix for 3563491 Madhuri
1199: ,'REASSIGNMENT', 'RETURN_TO_DUTY') and
1200: p_pa_request_rec.work_schedule in ('B','F','G','I','J') and
1201: p_asg_non_sf52.parttime_indicator is not null then
1202: hr_utility.set_message(8301,'GHR_38621_PART_TIME_IND_NR');
1203: hr_utility.raise_error;
1204: end if;
1205: --
1206: -- START fix for 3563491 Madhuri
1207: --
1250: nvl(p_pa_request_rec.effective_date,trunc(sysdate)) )
1251: LOOP
1252: l_asg_status := cur_nte_check_rec.user_status;
1253: END LOOP;
1254: hr_utility.set_message(8301,'GHR_38920_NO_NTE_DATE');
1255: hr_utility.set_message_token('ASG_STATUS',l_asg_status);
1256: hr_utility.raise_error;
1257: END IF;
1258:
1251: LOOP
1252: l_asg_status := cur_nte_check_rec.user_status;
1253: END LOOP;
1254: hr_utility.set_message(8301,'GHR_38920_NO_NTE_DATE');
1255: hr_utility.set_message_token('ASG_STATUS',l_asg_status);
1256: hr_utility.raise_error;
1257: END IF;
1258:
1259: END IF;
1252: l_asg_status := cur_nte_check_rec.user_status;
1253: END LOOP;
1254: hr_utility.set_message(8301,'GHR_38920_NO_NTE_DATE');
1255: hr_utility.set_message_token('ASG_STATUS',l_asg_status);
1256: hr_utility.raise_error;
1257: END IF;
1258:
1259: END IF;
1260: -- END of fix for 3563491
1266: -- process a separate action to change the To Position.
1267: IF p_pa_request_rec.first_noa_code = '866'
1268: AND p_pa_request_rec.from_position_id <> p_pa_request_rec.to_position_id
1269: THEN
1270: hr_utility.set_message(8301,'GHR_38693_NO_UPDATE_TO_POS');
1271: hr_utility.raise_error;
1272: END IF;
1273: --
1274: -- Added the following by skutteti on 08-Nov-99 for bug #983824
1267: IF p_pa_request_rec.first_noa_code = '866'
1268: AND p_pa_request_rec.from_position_id <> p_pa_request_rec.to_position_id
1269: THEN
1270: hr_utility.set_message(8301,'GHR_38693_NO_UPDATE_TO_POS');
1271: hr_utility.raise_error;
1272: END IF;
1273: --
1274: -- Added the following by skutteti on 08-Nov-99 for bug #983824
1275: --
1278: --
1279: if p_pa_request_rec.noa_family_code in ('CHG_HOURS', 'CHG_WORK_SCHED') and
1280: p_pa_request_rec.work_schedule in ('P','Q','S','T') and
1281: p_asg_non_sf52.parttime_indicator is null then
1282: hr_utility.set_message(8301,'GHR_PART_TIME_IND_IS_NULL');
1283: hr_utility.raise_error;
1284: end if;
1285: -- Student Loan Repayment Code Changes start
1286: -- added for Student Loan Repayment Changes - 3494728 bug
1279: if p_pa_request_rec.noa_family_code in ('CHG_HOURS', 'CHG_WORK_SCHED') and
1280: p_pa_request_rec.work_schedule in ('P','Q','S','T') and
1281: p_asg_non_sf52.parttime_indicator is null then
1282: hr_utility.set_message(8301,'GHR_PART_TIME_IND_IS_NULL');
1283: hr_utility.raise_error;
1284: end if;
1285: -- Student Loan Repayment Code Changes start
1286: -- added for Student Loan Repayment Changes - 3494728 bug
1287: IF ( p_pa_request_rec.first_noa_code = '817' or p_pa_request_rec.second_noa_code = '817') THEN
1296:
1297:
1298: l_appt_type := l_per_ei_data.pei_information3;
1299:
1300: hr_utility.set_location('The Appointment Type is: '||l_appt_type,12345);
1301:
1302: IF l_appt_type in ('34','44') THEN
1303: hr_utility.set_message(8301,'GHR_38878_APPT_TYPE_SCH_C');
1304: hr_utility.raise_error;
1299:
1300: hr_utility.set_location('The Appointment Type is: '||l_appt_type,12345);
1301:
1302: IF l_appt_type in ('34','44') THEN
1303: hr_utility.set_message(8301,'GHR_38878_APPT_TYPE_SCH_C');
1304: hr_utility.raise_error;
1305: END IF;
1306:
1307: FOR cur_repay_sch_rec in cur_repay_sch
1300: hr_utility.set_location('The Appointment Type is: '||l_appt_type,12345);
1301:
1302: IF l_appt_type in ('34','44') THEN
1303: hr_utility.set_message(8301,'GHR_38878_APPT_TYPE_SCH_C');
1304: hr_utility.raise_error;
1305: END IF;
1306:
1307: FOR cur_repay_sch_rec in cur_repay_sch
1308: LOOP
1310: l_review_date := fnd_date.date_to_displaydate(fnd_date.canonical_to_date(cur_repay_sch_rec.review_date));
1311: END LOOP;
1312:
1313: IF ( p_pa_request_rec.award_amount > 10000 ) then
1314: hr_utility.set_message(8301,'GHR_38862_AMT_EXCEEDS_LIMIT');
1315: hr_utility.raise_error;
1316: END IF;
1317:
1318: IF l_repay_sch IS NULL THEN
1311: END LOOP;
1312:
1313: IF ( p_pa_request_rec.award_amount > 10000 ) then
1314: hr_utility.set_message(8301,'GHR_38862_AMT_EXCEEDS_LIMIT');
1315: hr_utility.raise_error;
1316: END IF;
1317:
1318: IF l_repay_sch IS NULL THEN
1319: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
1315: hr_utility.raise_error;
1316: END IF;
1317:
1318: IF l_repay_sch IS NULL THEN
1319: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
1320: hr_utility.set_message_token('REQUIRED_LIST','Repayment Schedule' );
1321: hr_utility.raise_error;
1322: END IF;
1323:
1316: END IF;
1317:
1318: IF l_repay_sch IS NULL THEN
1319: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
1320: hr_utility.set_message_token('REQUIRED_LIST','Repayment Schedule' );
1321: hr_utility.raise_error;
1322: END IF;
1323:
1324: IF l_review_date is not null THEN
1317:
1318: IF l_repay_sch IS NULL THEN
1319: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
1320: hr_utility.set_message_token('REQUIRED_LIST','Repayment Schedule' );
1321: hr_utility.raise_error;
1322: END IF;
1323:
1324: IF l_review_date is not null THEN
1325: IF (l_review_date < p_pa_request_rec.effective_date) THEN
1322: END IF;
1323:
1324: IF l_review_date is not null THEN
1325: IF (l_review_date < p_pa_request_rec.effective_date) THEN
1326: hr_utility.set_message(8301,'GHR_38863_REVIEW_DATE_LESS');
1327: hr_utility.raise_error;
1328: END IF;
1329: END IF;
1330:
1323:
1324: IF l_review_date is not null THEN
1325: IF (l_review_date < p_pa_request_rec.effective_date) THEN
1326: hr_utility.set_message(8301,'GHR_38863_REVIEW_DATE_LESS');
1327: hr_utility.raise_error;
1328: END IF;
1329: END IF;
1330:
1331: IF l_repay_sch = 'L' THEN
1335: ,p_effective_date => p_pa_request_rec.effective_date
1336: ,p_value => l_slr_recur_amount
1337: ,p_multiple_error_flag => l_multiple_error_flag);
1338: if l_slr_recur_amount is not null then
1339: hr_utility.set_message(8301,'GHR_38864_ERR_CHG_REPAYMNT');
1340: hr_utility.raise_error;
1341: end if;
1342: else
1343: ghr_api.retrieve_element_entry_value (p_element_name => 'Student Loan Repayment LumpSum'
1336: ,p_value => l_slr_recur_amount
1337: ,p_multiple_error_flag => l_multiple_error_flag);
1338: if l_slr_recur_amount is not null then
1339: hr_utility.set_message(8301,'GHR_38864_ERR_CHG_REPAYMNT');
1340: hr_utility.raise_error;
1341: end if;
1342: else
1343: ghr_api.retrieve_element_entry_value (p_element_name => 'Student Loan Repayment LumpSum'
1344: ,p_input_value_name => 'Amount'
1355: l_ele_end_date := cur_ele_end_date_rec.effective_end_date;
1356: END LOOP;
1357:
1358: if (l_slr_lumpsum is not null and l_session.noa_id_correct is NOT NULL) then
1359: hr_utility.set_message(8301,'GHR_38864_ERR_CHG_REPAYMNT');
1360: hr_utility.raise_error;
1361: elsif (p_pa_request_rec.effective_date <= l_ele_end_date) then
1362: hr_utility.set_message(8301,'GHR_38867_ERR_ELE_OVERLAPS');
1363: hr_utility.set_message_token('EFF_DATE',l_ele_end_date);
1356: END LOOP;
1357:
1358: if (l_slr_lumpsum is not null and l_session.noa_id_correct is NOT NULL) then
1359: hr_utility.set_message(8301,'GHR_38864_ERR_CHG_REPAYMNT');
1360: hr_utility.raise_error;
1361: elsif (p_pa_request_rec.effective_date <= l_ele_end_date) then
1362: hr_utility.set_message(8301,'GHR_38867_ERR_ELE_OVERLAPS');
1363: hr_utility.set_message_token('EFF_DATE',l_ele_end_date);
1364: hr_utility.raise_error;
1358: if (l_slr_lumpsum is not null and l_session.noa_id_correct is NOT NULL) then
1359: hr_utility.set_message(8301,'GHR_38864_ERR_CHG_REPAYMNT');
1360: hr_utility.raise_error;
1361: elsif (p_pa_request_rec.effective_date <= l_ele_end_date) then
1362: hr_utility.set_message(8301,'GHR_38867_ERR_ELE_OVERLAPS');
1363: hr_utility.set_message_token('EFF_DATE',l_ele_end_date);
1364: hr_utility.raise_error;
1365: end if;
1366:
1359: hr_utility.set_message(8301,'GHR_38864_ERR_CHG_REPAYMNT');
1360: hr_utility.raise_error;
1361: elsif (p_pa_request_rec.effective_date <= l_ele_end_date) then
1362: hr_utility.set_message(8301,'GHR_38867_ERR_ELE_OVERLAPS');
1363: hr_utility.set_message_token('EFF_DATE',l_ele_end_date);
1364: hr_utility.raise_error;
1365: end if;
1366:
1367: end if;
1360: hr_utility.raise_error;
1361: elsif (p_pa_request_rec.effective_date <= l_ele_end_date) then
1362: hr_utility.set_message(8301,'GHR_38867_ERR_ELE_OVERLAPS');
1363: hr_utility.set_message_token('EFF_DATE',l_ele_end_date);
1364: hr_utility.raise_error;
1365: end if;
1366:
1367: end if;
1368: end if;
1395: p_effective_date => p_pa_request_rec.effective_date,
1396: p_value => l_stad_amount,
1397: p_multiple_error_flag => l_multiple_error_flag
1398: );
1399: hr_utility.set_location('Ret Amount '||l_reta_amount,4);
1400: hr_utility.set_location('Supv Amount '||l_supv_amount,5);
1401: hr_utility.set_location('Stad Amount '||l_stad_amount,6);
1402: /* Pradeep commented this for 3306515.
1403:
1396: p_value => l_stad_amount,
1397: p_multiple_error_flag => l_multiple_error_flag
1398: );
1399: hr_utility.set_location('Ret Amount '||l_reta_amount,4);
1400: hr_utility.set_location('Supv Amount '||l_supv_amount,5);
1401: hr_utility.set_location('Stad Amount '||l_stad_amount,6);
1402: /* Pradeep commented this for 3306515.
1403:
1404: IF (l_reta_amount is NULL and
1397: p_multiple_error_flag => l_multiple_error_flag
1398: );
1399: hr_utility.set_location('Ret Amount '||l_reta_amount,4);
1400: hr_utility.set_location('Supv Amount '||l_supv_amount,5);
1401: hr_utility.set_location('Stad Amount '||l_stad_amount,6);
1402: /* Pradeep commented this for 3306515.
1403:
1404: IF (l_reta_amount is NULL and
1405: l_supv_amount is NULL and
1406: l_stad_amount is NULL )
1407: and
1408: (p_pa_request_rec.to_other_pay_amount is null or
1409: p_pa_request_rec.to_other_pay_amount = 0 ) THEN
1410: hr_utility.set_message(8301,'GHR_38589_NULL_OTHER_PAY');
1411: hr_utility.raise_error;
1412: END IF;
1413: */
1414: END IF;
1407: and
1408: (p_pa_request_rec.to_other_pay_amount is null or
1409: p_pa_request_rec.to_other_pay_amount = 0 ) THEN
1410: hr_utility.set_message(8301,'GHR_38589_NULL_OTHER_PAY');
1411: hr_utility.raise_error;
1412: END IF;
1413: */
1414: END IF;
1415:
1433: p_effective_date => p_pa_request_rec.effective_date,
1434: p_value => l_premium_pay_ind,
1435: p_multiple_error_flag => l_multiple_error_flag
1436: );
1437: hr_utility.set_location('Premium Pay Ind '|| l_premium_pay_ind,4);
1438:
1439: END IF;
1440:
1441: /* IF l_premium_pay_ind IS NOT NULL and p_premium_pay.premium_pay_ind IS NOT NULL THEN
1439: END IF;
1440:
1441: /* IF l_premium_pay_ind IS NOT NULL and p_premium_pay.premium_pay_ind IS NOT NULL THEN
1442:
1443: hr_utility.set_message(8301, 'GHR_38861_PREM_PAY_IND_ALREADY');
1444: hr_utility.raise_error;
1445:
1446: END IF;
1447:
1440:
1441: /* IF l_premium_pay_ind IS NOT NULL and p_premium_pay.premium_pay_ind IS NOT NULL THEN
1442:
1443: hr_utility.set_message(8301, 'GHR_38861_PREM_PAY_IND_ALREADY');
1444: hr_utility.raise_error;
1445:
1446: END IF;
1447:
1448: IF p_premium_pay.premium_pay_ind IS NOT NULL THEN
1446: END IF;
1447:
1448: IF p_premium_pay.premium_pay_ind IS NOT NULL THEN
1449: l_premium_pay_ind := p_premium_pay.premium_pay_ind;
1450: hr_utility.set_location('Premium Pay Ind '|| l_premium_pay_ind,5);
1451: END IF; --Premium Pay Ind is not coming from p_premium_pay.premium_pay_ind.
1452: */
1453: IF ( l_premium_pay_ind IS NULL ) THEN
1454: l_null_list := 'Premium Pay Indicator';
1451: END IF; --Premium Pay Ind is not coming from p_premium_pay.premium_pay_ind.
1452: */
1453: IF ( l_premium_pay_ind IS NULL ) THEN
1454: l_null_list := 'Premium Pay Indicator';
1455: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
1456: fnd_message.set_token('REQUIRED_LIST',l_null_list);
1457: hr_utility.raise_error;
1458: END IF;
1459:
1453: IF ( l_premium_pay_ind IS NULL ) THEN
1454: l_null_list := 'Premium Pay Indicator';
1455: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
1456: fnd_message.set_token('REQUIRED_LIST',l_null_list);
1457: hr_utility.raise_error;
1458: END IF;
1459:
1460: --Pradeep. Bug# 3562063 New Business Rules for Title 38
1461: IF l_premium_pay_ind NOT IN ( 'K','X' ) THEN
1458: END IF;
1459:
1460: --Pradeep. Bug# 3562063 New Business Rules for Title 38
1461: IF l_premium_pay_ind NOT IN ( 'K','X' ) THEN
1462: hr_utility.set_message(8301,'GHR_38871_850_PREM_PAY');
1463: hr_utility.raise_error;
1464: END IF;
1465:
1466:
1459:
1460: --Pradeep. Bug# 3562063 New Business Rules for Title 38
1461: IF l_premium_pay_ind NOT IN ( 'K','X' ) THEN
1462: hr_utility.set_message(8301,'GHR_38871_850_PREM_PAY');
1463: hr_utility.raise_error;
1464: END IF;
1465:
1466:
1467: l_occ_code := p_pa_request_rec.from_occ_code;
1469: --If Nature of Action is 850 and Occupation Series is 0610, then Premium Pay Indicator can only be K.
1470: If ( l_occ_code = '0610' )
1471: AND ( l_premium_pay_ind <> 'K' ) THEN
1472:
1473: hr_utility.set_message(8301,'GHR_38875_850_OCC_SERIES1');
1474: hr_utility.raise_error;
1475:
1476: End If;
1477:
1470: If ( l_occ_code = '0610' )
1471: AND ( l_premium_pay_ind <> 'K' ) THEN
1472:
1473: hr_utility.set_message(8301,'GHR_38875_850_OCC_SERIES1');
1474: hr_utility.raise_error;
1475:
1476: End If;
1477:
1478: --If Nature of Action is 850 and Occupation Series is 0660, then Premium Pay Indicator can not be K.
1478: --If Nature of Action is 850 and Occupation Series is 0660, then Premium Pay Indicator can not be K.
1479: If ( l_occ_code = '0660' )
1480: AND ( l_premium_pay_ind = 'K' ) THEN
1481:
1482: hr_utility.set_message(8301,'GHR_38876_850_OCC_SERIES2');
1483: hr_utility.raise_error;
1484:
1485: End If;
1486: ----Bug# 3562063
1479: If ( l_occ_code = '0660' )
1480: AND ( l_premium_pay_ind = 'K' ) THEN
1481:
1482: hr_utility.set_message(8301,'GHR_38876_850_OCC_SERIES2');
1483: hr_utility.raise_error;
1484:
1485: End If;
1486: ----Bug# 3562063
1487:
1486: ----Bug# 3562063
1487:
1488: If l_premium_pay_ind='K' and l_occ_code NOT IN ('0602','0603','0610','0680','0681','0682','0683') THEN
1489:
1490: hr_utility.set_message(8301,'GHR_38859_OCC_CD_PREM_PAY_IND');
1491: hr_utility.raise_error;
1492:
1493: End If;
1494:
1487:
1488: If l_premium_pay_ind='K' and l_occ_code NOT IN ('0602','0603','0610','0680','0681','0682','0683') THEN
1489:
1490: hr_utility.set_message(8301,'GHR_38859_OCC_CD_PREM_PAY_IND');
1491: hr_utility.raise_error;
1492:
1493: End If;
1494:
1495: If l_premium_pay_ind='X' and l_occ_code NOT IN ('0180','0602','0620','0631','0633','0651','0660','0680') THEN
1493: End If;
1494:
1495: If l_premium_pay_ind='X' and l_occ_code NOT IN ('0180','0602','0620','0631','0633','0651','0660','0680') THEN
1496:
1497: hr_utility.set_message(8301, 'GHR_38860_OCC_CD_PREM_PAY_IND');
1498: hr_utility.raise_error;
1499:
1500: End If;
1501:
1494:
1495: If l_premium_pay_ind='X' and l_occ_code NOT IN ('0180','0602','0620','0631','0633','0651','0660','0680') THEN
1496:
1497: hr_utility.set_message(8301, 'GHR_38860_OCC_CD_PREM_PAY_IND');
1498: hr_utility.raise_error;
1499:
1500: End If;
1501:
1502: ghr_api.retrieve_element_entry_value
1506: P_EFFECTIVE_DATE => p_pa_request_rec.effective_date,
1507: P_VALUE => l_ap_amount,
1508: P_MULTIPLE_ERROR_FLAG => l_multiple_error_flag
1509: );
1510: hr_utility.set_location('AP Amount '||l_ap_amount,7);
1511:
1512: ghr_api.retrieve_element_entry_value
1513: (P_ELEMENT_NAME => 'AUO',
1514: P_INPUT_VALUE_NAME => 'Amount',
1516: P_EFFECTIVE_DATE => p_pa_request_rec.effective_date,
1517: P_VALUE => l_auo_amount,
1518: P_MULTIPLE_ERROR_FLAG => l_multiple_error_flag
1519: );
1520: hr_utility.set_location('AUO Amount '||l_auo_amount,7);
1521: -- Start of bug 4016362
1522: /********* Added Cursor BG_rec to get business group id
1523: to be passed to get_element_details procedure *************/
1524:
1556: IF ( l_auo_amount is NOT NULL )
1557: or ( l_ap_amount IS NOT NULL )
1558: or ( l_edp_eff_start_date IS NOT NULL )
1559: or ( l_hz_eff_start_date IS NOT NULL ) THEN
1560: hr_utility.set_message(8301,'GHR_38858_PREM_PAY_OTH_PAY');
1561: hr_utility.raise_error;
1562: END IF;
1563:
1564: --Check whether the elements AUO, AP, Hazard and EDP pay are existing in Future.
1557: or ( l_ap_amount IS NOT NULL )
1558: or ( l_edp_eff_start_date IS NOT NULL )
1559: or ( l_hz_eff_start_date IS NOT NULL ) THEN
1560: hr_utility.set_message(8301,'GHR_38858_PREM_PAY_OTH_PAY');
1561: hr_utility.raise_error;
1562: END IF;
1563:
1564: --Check whether the elements AUO, AP, Hazard and EDP pay are existing in Future.
1565:
1569: ,p_effective_date => p_pa_request_rec.effective_date
1570: ,p_value => l_auo_amount
1571: ,p_effective_start_date => l_eff_start_date);
1572:
1573: hr_utility.set_location('AUO Amount '||l_auo_amount,8);
1574: get_element_details_future(p_element_name => 'Availability Pay'
1575: ,p_input_value_name => 'Amount'
1576: ,p_assignment_id => p_pa_request_rec.employee_assignment_id
1577: ,p_effective_date => p_pa_request_rec.effective_date
1577: ,p_effective_date => p_pa_request_rec.effective_date
1578: ,p_value => l_ap_amount
1579: ,p_effective_start_date => l_eff_start_date);
1580:
1581: hr_utility.set_location('AP Amount '||l_ap_amount,8);
1582: get_element_details_future(p_element_name => 'Hazard Pay'
1583: ,p_input_value_name => 'Premium Pay Ind'
1584: ,p_assignment_id => p_pa_request_rec.employee_assignment_id
1585: ,p_effective_date => p_pa_request_rec.effective_date
1585: ,p_effective_date => p_pa_request_rec.effective_date
1586: ,p_value => l_hz_ind
1587: ,p_effective_start_date => l_hz_eff_start_date);
1588:
1589: hr_utility.set_location('Hz Amount '||l_hz_ind,8);
1590: get_element_details_future(p_element_name => 'EDP Pay'
1591: ,p_input_value_name => 'Premium Pay Ind'
1592: ,p_assignment_id => p_pa_request_rec.employee_assignment_id
1593: ,p_effective_date => p_pa_request_rec.effective_date
1592: ,p_assignment_id => p_pa_request_rec.employee_assignment_id
1593: ,p_effective_date => p_pa_request_rec.effective_date
1594: ,p_value => l_edp_ind
1595: ,p_effective_start_date => l_edp_eff_start_date);
1596: hr_utility.set_location('EDP Pay amount'||l_edp_ind,8);
1597:
1598: IF ( l_auo_amount is NOT NULL )
1599: or ( l_ap_amount IS NOT NULL )
1600: or ( l_hz_eff_start_date IS NOT NULL )
1598: IF ( l_auo_amount is NOT NULL )
1599: or ( l_ap_amount IS NOT NULL )
1600: or ( l_hz_eff_start_date IS NOT NULL )
1601: or ( l_edp_eff_start_date IS NOT NULL ) THEN
1602: hr_utility.set_message(8301,'GHR_38865_PREM_PAY_OTH_PAY_FUT');
1603: hr_utility.raise_error;
1604: END IF;
1605:
1606:
1599: or ( l_ap_amount IS NOT NULL )
1600: or ( l_hz_eff_start_date IS NOT NULL )
1601: or ( l_edp_eff_start_date IS NOT NULL ) THEN
1602: hr_utility.set_message(8301,'GHR_38865_PREM_PAY_OTH_PAY_FUT');
1603: hr_utility.raise_error;
1604: END IF;
1605:
1606:
1607: --To check whether nre date and at least one special pay amount is entered or not
1617: p_effective_date => p_pa_request_rec.effective_date,
1618: p_value => l_mddds_pay_amount_old,
1619: p_multiple_error_flag => l_multiple_error_flag
1620: );
1621: hr_utility.set_location('Amount l_mddds_pay_amount_old '|| l_mddds_pay_amount_old,5);
1622: IF l_mddds_pay_amount_old IS NULL THEN
1623: l_null_list := 'MD/DDS Special Pay Amount';
1624: END IF;
1625:
1634: p_effective_date => p_pa_request_rec.effective_date,
1635: p_value => l_mddds_pay_nte_date_old,
1636: p_multiple_error_flag => l_multiple_error_flag
1637: );
1638: hr_utility.set_location('MDDDS Special Pay NTE Date old '|| l_mddds_pay_nte_date_old,6);
1639:
1640: IF l_mddds_pay_nte_date_old IS NULL THEN
1641: l_null_list := l_null_list||l_new_line||'MD/DDS Special Pay NTE Date';
1642: END IF;
1644: END IF;
1645:
1646: IF l_null_list IS NOT NULL THEN
1647:
1648: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
1649: fnd_message.set_token('REQUIRED_LIST',l_null_list);
1650: hr_utility.raise_error;
1651:
1652: End If;
1646: IF l_null_list IS NOT NULL THEN
1647:
1648: hr_utility.set_message(8301,'GHR_38237_REQUIRED_ITEMS');
1649: fnd_message.set_token('REQUIRED_LIST',l_null_list);
1650: hr_utility.raise_error;
1651:
1652: End If;
1653:
1654: IF l_mddds_specia_pay_nte_date IS NOT NULL
1653:
1654: IF l_mddds_specia_pay_nte_date IS NOT NULL
1655: and l_mddds_specia_pay_nte_date
1656: < p_pa_request_rec.effective_date THEN
1657: hr_utility.set_message(8301,'GHR_38853_NTE_DATE_<_EFF_DATE');
1658: hr_utility.raise_error;
1659: END IF;
1660:
1661: END IF; -- End of If .. 850.
1654: IF l_mddds_specia_pay_nte_date IS NOT NULL
1655: and l_mddds_specia_pay_nte_date
1656: < p_pa_request_rec.effective_date THEN
1657: hr_utility.set_message(8301,'GHR_38853_NTE_DATE_<_EFF_DATE');
1658: hr_utility.raise_error;
1659: END IF;
1660:
1661: END IF; -- End of If .. 850.
1662:
1669: LOOP
1670: l_premium_pay_ind := cur_premium_pay_ind_rec.premium_pay_ind;
1671: END LOOP;
1672:
1673: hr_utility.set_location('Premium Pay Ind '|| l_premium_pay_ind,3);
1674: IF l_premium_pay_ind IS NULL THEN
1675: ghr_api.retrieve_element_entry_value
1676: (p_element_name => 'Premium Pay',
1677: p_input_value_name => 'Premium Pay Ind',
1684: END IF;
1685:
1686: IF ( l_premium_pay_ind ) IS NULL
1687: OR ( l_premium_pay_ind <> 'K' ) THEN
1688: hr_utility.set_message(8301,'GHR_38872_855_PREM_PAY');
1689: hr_utility.raise_error;
1690: END IF;
1691:
1692: l_occ_code := p_pa_request_rec.from_occ_code;
1685:
1686: IF ( l_premium_pay_ind ) IS NULL
1687: OR ( l_premium_pay_ind <> 'K' ) THEN
1688: hr_utility.set_message(8301,'GHR_38872_855_PREM_PAY');
1689: hr_utility.raise_error;
1690: END IF;
1691:
1692: l_occ_code := p_pa_request_rec.from_occ_code;
1693:
1692: l_occ_code := p_pa_request_rec.from_occ_code;
1693:
1694: If ( l_occ_code <> '0610' ) THEN
1695:
1696: hr_utility.set_message(8301,'GHR_38873_855_OCC_SERIES');
1697: hr_utility.raise_error;
1698:
1699: End If;
1700: --Bug# 3562063
1693:
1694: If ( l_occ_code <> '0610' ) THEN
1695:
1696: hr_utility.set_message(8301,'GHR_38873_855_OCC_SERIES');
1697: hr_utility.raise_error;
1698:
1699: End If;
1700: --Bug# 3562063
1701:
1709: FOR cur_premium_pay_rec IN cur_premium_pay
1710: LOOP
1711: l_premium_pay_ind := cur_premium_pay_rec.premium_pay_ind;
1712: END LOOP;
1713: hr_utility.set_location('Premium Pay Ind '|| l_premium_pay_ind,3);
1714:
1715: IF l_premium_pay_ind IS NULL THEN
1716: --Bug#3579579
1717: ghr_api.retrieve_element_entry_value
1721: p_effective_date => p_pa_request_rec.effective_date,
1722: p_value => l_premium_pay_ind,
1723: p_multiple_error_flag => l_multiple_error_flag
1724: );
1725: hr_utility.set_location('Premium Pay Ind '|| l_premium_pay_ind,4);
1726: END IF;
1727:
1728: l_occ_code := p_pa_request_rec.to_occ_code;
1729: hr_utility.set_location('Occ Code '|| l_occ_code,5);
1725: hr_utility.set_location('Premium Pay Ind '|| l_premium_pay_ind,4);
1726: END IF;
1727:
1728: l_occ_code := p_pa_request_rec.to_occ_code;
1729: hr_utility.set_location('Occ Code '|| l_occ_code,5);
1730: IF l_occ_code IS NULL THEN
1731: l_occ_code := p_pa_request_rec.from_occ_code;
1732: END IF;
1733:
1732: END IF;
1733:
1734: If l_premium_pay_ind='K' and l_occ_code NOT IN ('0602','0603','0610','0680','0681','0682','0683') THEN
1735:
1736: hr_utility.set_message(8301,'GHR_38859_OCC_CD_PREM_PAY_IND');
1737: hr_utility.raise_error;
1738:
1739: End If;
1740:
1733:
1734: If l_premium_pay_ind='K' and l_occ_code NOT IN ('0602','0603','0610','0680','0681','0682','0683') THEN
1735:
1736: hr_utility.set_message(8301,'GHR_38859_OCC_CD_PREM_PAY_IND');
1737: hr_utility.raise_error;
1738:
1739: End If;
1740:
1741: If l_premium_pay_ind='X' and l_occ_code NOT IN ('0180','0602','0620','0631','0633','0651','0660','0680') THEN
1739: End If;
1740:
1741: If l_premium_pay_ind='X' and l_occ_code NOT IN ('0180','0602','0620','0631','0633','0651','0660','0680') THEN
1742:
1743: hr_utility.set_message(8301, 'GHR_38860_OCC_CD_PREM_PAY_IND');
1744: hr_utility.raise_error;
1745:
1746: End If;
1747:
1740:
1741: If l_premium_pay_ind='X' and l_occ_code NOT IN ('0180','0602','0620','0631','0633','0651','0660','0680') THEN
1742:
1743: hr_utility.set_message(8301, 'GHR_38860_OCC_CD_PREM_PAY_IND');
1744: hr_utility.raise_error;
1745:
1746: End If;
1747:
1748: get_element_details_future(p_element_name => 'Premium Pay'
1751: ,p_effective_date => p_pa_request_rec.effective_date
1752: ,p_value => l_premium_pay_ind
1753: ,p_effective_start_date => l_eff_start_date);
1754:
1755: hr_utility.set_location('Premium Pay Ind future'|| l_premium_pay_ind,4);
1756:
1757: If l_premium_pay_ind='K' and l_occ_code NOT IN ('0602','0603','0610','0680','0681','0682','0683') THEN
1758:
1759: hr_utility.set_message(8301,'GHR_38859_OCC_CD_PREM_PAY_IND');
1755: hr_utility.set_location('Premium Pay Ind future'|| l_premium_pay_ind,4);
1756:
1757: If l_premium_pay_ind='K' and l_occ_code NOT IN ('0602','0603','0610','0680','0681','0682','0683') THEN
1758:
1759: hr_utility.set_message(8301,'GHR_38859_OCC_CD_PREM_PAY_IND');
1760: hr_utility.raise_error;
1761:
1762: End If;
1763:
1756:
1757: If l_premium_pay_ind='K' and l_occ_code NOT IN ('0602','0603','0610','0680','0681','0682','0683') THEN
1758:
1759: hr_utility.set_message(8301,'GHR_38859_OCC_CD_PREM_PAY_IND');
1760: hr_utility.raise_error;
1761:
1762: End If;
1763:
1764: If l_premium_pay_ind='X' and l_occ_code NOT IN ('0180','0602','0620','0631','0633','0651','0660','0680') THEN
1762: End If;
1763:
1764: If l_premium_pay_ind='X' and l_occ_code NOT IN ('0180','0602','0620','0631','0633','0651','0660','0680') THEN
1765:
1766: hr_utility.set_message(8301, 'GHR_38860_OCC_CD_PREM_PAY_IND');
1767: hr_utility.raise_error;
1768:
1769: End If;
1770:
1763:
1764: If l_premium_pay_ind='X' and l_occ_code NOT IN ('0180','0602','0620','0631','0633','0651','0660','0680') THEN
1765:
1766: hr_utility.set_message(8301, 'GHR_38860_OCC_CD_PREM_PAY_IND');
1767: hr_utility.raise_error;
1768:
1769: End If;
1770:
1771:
1780: P_EFFECTIVE_DATE => p_pa_request_rec.effective_date,
1781: P_VALUE => l_ap_amount,
1782: P_MULTIPLE_ERROR_FLAG => l_multiple_error_flag
1783: );
1784: hr_utility.set_location('AP Amount '||l_ap_amount,7);
1785: IF l_ap_amount is NULL and
1786: (p_pa_request_rec.to_other_pay_amount is null or
1787: p_pa_request_rec.to_other_pay_amount = 0 ) THEN
1788: hr_utility.set_message(8301,'GHR_38589_NULL_OTHER_PAY');
1784: hr_utility.set_location('AP Amount '||l_ap_amount,7);
1785: IF l_ap_amount is NULL and
1786: (p_pa_request_rec.to_other_pay_amount is null or
1787: p_pa_request_rec.to_other_pay_amount = 0 ) THEN
1788: hr_utility.set_message(8301,'GHR_38589_NULL_OTHER_PAY');
1789: hr_utility.raise_error;
1790: END IF;
1791:
1792: --Pradeep
1785: IF l_ap_amount is NULL and
1786: (p_pa_request_rec.to_other_pay_amount is null or
1787: p_pa_request_rec.to_other_pay_amount = 0 ) THEN
1788: hr_utility.set_message(8301,'GHR_38589_NULL_OTHER_PAY');
1789: hr_utility.raise_error;
1790: END IF;
1791:
1792: --Pradeep
1793: --Title 38 Employess should not get Avaialability Pay.
1798: p_effective_date => p_pa_request_rec.effective_date,
1799: p_value => l_premium_pay_ind,
1800: p_multiple_error_flag => l_multiple_error_flag
1801: );
1802: hr_utility.set_location('Premium Pay Ind '|| l_prem_pay,7);
1803:
1804: IF l_premium_pay_ind IN ( 'K','L','M','X' ) THEN
1805:
1806: hr_utility.set_message(8301,'GHR_38857_OTH_PAY_PREM_PAY');
1802: hr_utility.set_location('Premium Pay Ind '|| l_prem_pay,7);
1803:
1804: IF l_premium_pay_ind IN ( 'K','L','M','X' ) THEN
1805:
1806: hr_utility.set_message(8301,'GHR_38857_OTH_PAY_PREM_PAY');
1807: hr_utility.raise_error;
1808:
1809: END IF;
1810:
1803:
1804: IF l_premium_pay_ind IN ( 'K','L','M','X' ) THEN
1805:
1806: hr_utility.set_message(8301,'GHR_38857_OTH_PAY_PREM_PAY');
1807: hr_utility.raise_error;
1808:
1809: END IF;
1810:
1811: --To check if premium pay element is existing in the future
1815: ,p_effective_date => p_pa_request_rec.effective_date
1816: ,p_value => l_premium_pay_ind
1817: ,p_effective_start_date => l_eff_start_date);
1818:
1819: hr_utility.set_location('Premium Pay Ind '|| l_prem_pay,8);
1820:
1821: IF l_premium_pay_ind IN ( 'K','L','M','X' ) THEN
1822:
1823: hr_utility.set_message(8301,'GHR_38866_OTH_PAY_PREM_PAY_FUT');
1819: hr_utility.set_location('Premium Pay Ind '|| l_prem_pay,8);
1820:
1821: IF l_premium_pay_ind IN ( 'K','L','M','X' ) THEN
1822:
1823: hr_utility.set_message(8301,'GHR_38866_OTH_PAY_PREM_PAY_FUT');
1824: hr_utility.raise_error;
1825:
1826: END IF;
1827:
1820:
1821: IF l_premium_pay_ind IN ( 'K','L','M','X' ) THEN
1822:
1823: hr_utility.set_message(8301,'GHR_38866_OTH_PAY_PREM_PAY_FUT');
1824: hr_utility.raise_error;
1825:
1826: END IF;
1827:
1828: END IF;
1836: P_EFFECTIVE_DATE => p_pa_request_rec.effective_date,
1837: P_VALUE => l_auo_amount,
1838: P_MULTIPLE_ERROR_FLAG => l_multiple_error_flag
1839: );
1840: hr_utility.set_location('AUO Amount '||l_auo_amount,7);
1841: IF l_auo_amount is NULL and
1842: (p_pa_request_rec.to_other_pay_amount is null or
1843: p_pa_request_rec.to_other_pay_amount = 0 ) THEN
1844: hr_utility.set_message(8301,'GHR_38589_NULL_OTHER_PAY');
1840: hr_utility.set_location('AUO Amount '||l_auo_amount,7);
1841: IF l_auo_amount is NULL and
1842: (p_pa_request_rec.to_other_pay_amount is null or
1843: p_pa_request_rec.to_other_pay_amount = 0 ) THEN
1844: hr_utility.set_message(8301,'GHR_38589_NULL_OTHER_PAY');
1845: hr_utility.raise_error;
1846: END IF;
1847:
1848: --Pradeep
1841: IF l_auo_amount is NULL and
1842: (p_pa_request_rec.to_other_pay_amount is null or
1843: p_pa_request_rec.to_other_pay_amount = 0 ) THEN
1844: hr_utility.set_message(8301,'GHR_38589_NULL_OTHER_PAY');
1845: hr_utility.raise_error;
1846: END IF;
1847:
1848: --Pradeep
1849: --Title 38 Employess should not get AUO.
1854: p_effective_date => p_pa_request_rec.effective_date,
1855: p_value => l_premium_pay_ind,
1856: p_multiple_error_flag => l_multiple_error_flag
1857: );
1858: hr_utility.set_location('Premium Pay Ind '|| l_prem_pay,7);
1859:
1860: IF l_premium_pay_ind IN ( 'K','L','M','X' ) THEN
1861:
1862: hr_utility.set_message(8301,'GHR_38857_OTH_PAY_PREM_PAY');
1858: hr_utility.set_location('Premium Pay Ind '|| l_prem_pay,7);
1859:
1860: IF l_premium_pay_ind IN ( 'K','L','M','X' ) THEN
1861:
1862: hr_utility.set_message(8301,'GHR_38857_OTH_PAY_PREM_PAY');
1863: hr_utility.raise_error;
1864:
1865: END IF;
1866:
1859:
1860: IF l_premium_pay_ind IN ( 'K','L','M','X' ) THEN
1861:
1862: hr_utility.set_message(8301,'GHR_38857_OTH_PAY_PREM_PAY');
1863: hr_utility.raise_error;
1864:
1865: END IF;
1866:
1867: --To check if premium pay element is existing in the future
1871: ,p_effective_date => p_pa_request_rec.effective_date
1872: ,p_value => l_premium_pay_ind
1873: ,p_effective_start_date => l_eff_start_date);
1874:
1875: hr_utility.set_location('Premium Pay Ind '|| l_prem_pay,8);
1876:
1877: IF l_premium_pay_ind IN ( 'K','L','M','X' ) THEN
1878:
1879: hr_utility.set_message(8301,'GHR_38866_OTH_PAY_PREM_PAY_FUT');
1875: hr_utility.set_location('Premium Pay Ind '|| l_prem_pay,8);
1876:
1877: IF l_premium_pay_ind IN ( 'K','L','M','X' ) THEN
1878:
1879: hr_utility.set_message(8301,'GHR_38866_OTH_PAY_PREM_PAY_FUT');
1880: hr_utility.raise_error;
1881:
1882: END IF;
1883:
1876:
1877: IF l_premium_pay_ind IN ( 'K','L','M','X' ) THEN
1878:
1879: hr_utility.set_message(8301,'GHR_38866_OTH_PAY_PREM_PAY_FUT');
1880: hr_utility.raise_error;
1881:
1882: END IF;
1883:
1884: END IF;
1887: OR ( p_pa_request_rec.first_noa_code='002' and p_pa_request_rec.second_noa_code ='855') THEN
1888:
1889: IF p_pa_request_rec.pay_rate_determinant IN ('A','B','E','F','U','V') THEN
1890: begin
1891: hr_utility.set_location('Check 855 Retained Grade ...get open pay range ' ,20);
1892:
1893: l_retained_grade := ghr_pc_basic_pay.get_retained_grade_details (p_pa_request_rec.person_id
1894: ,NVL(p_pa_request_rec.effective_date,TRUNC(sysdate)));
1895:
1902: ELSE
1903: l_to_step_or_rate := l_retained_grade.step_or_rate;
1904: END IF;
1905:
1906: hr_utility.set_location(' check 855 Retained to step ' || l_to_step_or_rate,22);
1907:
1908: l_retained_grade := ghr_pc_basic_pay.get_retained_grade_details (p_pa_request_rec.person_id
1909: ,(p_pa_request_rec.effective_date - 1));
1910:
1917: ELSE
1918: l_from_step_or_rate := l_retained_grade.step_or_rate;
1919: END IF;
1920:
1921: hr_utility.set_location(' check 855 Retained from step ' || l_from_step_or_rate,24);
1922:
1923: exception
1924: when others then
1925: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
1921: hr_utility.set_location(' check 855 Retained from step ' || l_from_step_or_rate,24);
1922:
1923: exception
1924: when others then
1925: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
1926: hr_utility.set_message(8301,'GHR_38255_MISSING_RETAINED_DET');
1927: hr_utility.raise_error;
1928: end;
1929:
1922:
1923: exception
1924: when others then
1925: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
1926: hr_utility.set_message(8301,'GHR_38255_MISSING_RETAINED_DET');
1927: hr_utility.raise_error;
1928: end;
1929:
1930: IF ABS(l_to_step_or_rate - l_from_step_or_rate) > 2 THEN
1923: exception
1924: when others then
1925: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
1926: hr_utility.set_message(8301,'GHR_38255_MISSING_RETAINED_DET');
1927: hr_utility.raise_error;
1928: end;
1929:
1930: IF ABS(l_to_step_or_rate - l_from_step_or_rate) > 2 THEN
1931: hr_utility.set_message(8301,'GHR_38852_TO_STEP_OR_RATE');
1927: hr_utility.raise_error;
1928: end;
1929:
1930: IF ABS(l_to_step_or_rate - l_from_step_or_rate) > 2 THEN
1931: hr_utility.set_message(8301,'GHR_38852_TO_STEP_OR_RATE');
1932: hr_utility.raise_error;
1933: END IF;
1934:
1935: END IF;
1928: end;
1929:
1930: IF ABS(l_to_step_or_rate - l_from_step_or_rate) > 2 THEN
1931: hr_utility.set_message(8301,'GHR_38852_TO_STEP_OR_RATE');
1932: hr_utility.raise_error;
1933: END IF;
1934:
1935: END IF;
1936: END IF;
1977: l_for_810_count := l_for_810_count + 1;
1978: end if;
1979: --
1980: if l_for_810_count > 1 then
1981: hr_utility.set_message(8301,'GHR_ONE_OP_UPDATE_ONLY');
1982: hr_utility.raise_error;
1983: end if;
1984: end if;
1985: hr_utility.set_location('GHRVALID-Before LAC Validation',3);
1978: end if;
1979: --
1980: if l_for_810_count > 1 then
1981: hr_utility.set_message(8301,'GHR_ONE_OP_UPDATE_ONLY');
1982: hr_utility.raise_error;
1983: end if;
1984: end if;
1985: hr_utility.set_location('GHRVALID-Before LAC Validation',3);
1986: -- Bug # 941255 --Venkat-- Check that LACs are Valid when Update HR
1981: hr_utility.set_message(8301,'GHR_ONE_OP_UPDATE_ONLY');
1982: hr_utility.raise_error;
1983: end if;
1984: end if;
1985: hr_utility.set_location('GHRVALID-Before LAC Validation',3);
1986: -- Bug # 941255 --Venkat-- Check that LACs are Valid when Update HR
1987: -- in progress and give a Error message if NOAC/LAC combination is invalid
1988: --
1989: -- Check if first_action_la_code1 is valid
1995: exit;
1996: end loop;
1997: --
1998: if not l_exists then
1999: hr_utility.set_message(8301, 'GHR_38105_INV_FIRST_LA_CODE1');
2000: hr_utility.raise_error;
2001: end if;
2002: end if;
2003:
1996: end loop;
1997: --
1998: if not l_exists then
1999: hr_utility.set_message(8301, 'GHR_38105_INV_FIRST_LA_CODE1');
2000: hr_utility.raise_error;
2001: end if;
2002: end if;
2003:
2004: l_exists := false;
2010: exit;
2011: end loop;
2012: --
2013: if not l_exists then
2014: hr_utility.set_message(8301, 'GHR_38106_INV_FIRST_LA_CODE2');
2015: hr_utility.raise_error;
2016: end if;
2017: end if;
2018: l_exists := false;
2011: end loop;
2012: --
2013: if not l_exists then
2014: hr_utility.set_message(8301, 'GHR_38106_INV_FIRST_LA_CODE2');
2015: hr_utility.raise_error;
2016: end if;
2017: end if;
2018: l_exists := false;
2019: --
2025: exit;
2026: end loop;
2027: --
2028: if not l_exists then
2029: hr_utility.set_message(8301, 'GHR_38107_INV_SECOND_LA_CODE1');
2030: hr_utility.raise_error;
2031: end if;
2032: end if;
2033: l_exists := false;
2026: end loop;
2027: --
2028: if not l_exists then
2029: hr_utility.set_message(8301, 'GHR_38107_INV_SECOND_LA_CODE1');
2030: hr_utility.raise_error;
2031: end if;
2032: end if;
2033: l_exists := false;
2034: --
2040: exit;
2041: end loop;
2042: --
2043: if not l_exists then
2044: hr_utility.set_message(8301, 'GHR_38108_INV_SECOND_LA_CODE2');
2045: hr_utility.raise_error;
2046: end if;
2047: end if;
2048: hr_utility.set_location('GHRVALID-After LAC Validation',4);
2041: end loop;
2042: --
2043: if not l_exists then
2044: hr_utility.set_message(8301, 'GHR_38108_INV_SECOND_LA_CODE2');
2045: hr_utility.raise_error;
2046: end if;
2047: end if;
2048: hr_utility.set_location('GHRVALID-After LAC Validation',4);
2049: --
2044: hr_utility.set_message(8301, 'GHR_38108_INV_SECOND_LA_CODE2');
2045: hr_utility.raise_error;
2046: end if;
2047: end if;
2048: hr_utility.set_location('GHRVALID-After LAC Validation',4);
2049: --
2050: --
2051: -- Validate if the open pay range basic pay is entered by user.
2052: --
2067: ,p_pa_request_rec.pay_rate_determinant
2068: ,p_pa_request_rec.pa_request_id
2069: ,NVL(p_pa_request_rec.effective_date,TRUNC(sysdate)) ) THEN
2070:
2071: hr_utility.set_location('GHRVALID-Open Pay Range get table_id' ,5);
2072:
2073:
2074:
2075: IF p_pa_request_rec.pay_rate_determinant IN ('A','B','E','F','U','V') THEN
2073:
2074:
2075: IF p_pa_request_rec.pay_rate_determinant IN ('A','B','E','F','U','V') THEN
2076: begin
2077: hr_utility.set_location('Retained Grade ...get open pay range ' ,20);
2078:
2079: l_retained_grade := ghr_pc_basic_pay.get_retained_grade_details (p_pa_request_rec.person_id
2080: ,NVL(p_pa_request_rec.effective_date,TRUNC(sysdate)));
2081: l_user_table_id := l_retained_grade.user_table_id;
2080: ,NVL(p_pa_request_rec.effective_date,TRUNC(sysdate)));
2081: l_user_table_id := l_retained_grade.user_table_id;
2082: l_pay_plan := l_retained_grade.pay_plan;
2083: l_grade_or_level := l_retained_grade.grade_or_level;
2084: hr_utility.set_location(' Retained user table id ' || to_char(l_user_table_id),22);
2085: exception
2086: when others then
2087: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
2088: hr_utility.set_message(8301,'GHR_38255_MISSING_RETAINED_DET');
2083: l_grade_or_level := l_retained_grade.grade_or_level;
2084: hr_utility.set_location(' Retained user table id ' || to_char(l_user_table_id),22);
2085: exception
2086: when others then
2087: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
2088: hr_utility.set_message(8301,'GHR_38255_MISSING_RETAINED_DET');
2089: hr_utility.raise_error;
2090: end;
2091:
2084: hr_utility.set_location(' Retained user table id ' || to_char(l_user_table_id),22);
2085: exception
2086: when others then
2087: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
2088: hr_utility.set_message(8301,'GHR_38255_MISSING_RETAINED_DET');
2089: hr_utility.raise_error;
2090: end;
2091:
2092: ELSE
2085: exception
2086: when others then
2087: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
2088: hr_utility.set_message(8301,'GHR_38255_MISSING_RETAINED_DET');
2089: hr_utility.raise_error;
2090: end;
2091:
2092: ELSE
2093:
2117: END IF;
2118:
2119:
2120:
2121: --hr_utility.set_location('GHRVALID-l_user_table_id ' || to_char(l_user_table_id) ,5);
2122: --hr_utility.set_location('GHRVALID-l_pay_plan ' || to_char(l_pay_plan) ,5);
2123: --hr_utility.set_location('GHRVALID-l_grade_or_level ' || to_char(l_grade_or_level) ,5);
2124:
2125: hr_utility.set_location('GHRVALID-l_user_table_id ' || to_char(l_user_table_id) ,5);
2118:
2119:
2120:
2121: --hr_utility.set_location('GHRVALID-l_user_table_id ' || to_char(l_user_table_id) ,5);
2122: --hr_utility.set_location('GHRVALID-l_pay_plan ' || to_char(l_pay_plan) ,5);
2123: --hr_utility.set_location('GHRVALID-l_grade_or_level ' || to_char(l_grade_or_level) ,5);
2124:
2125: hr_utility.set_location('GHRVALID-l_user_table_id ' || to_char(l_user_table_id) ,5);
2126: hr_utility.set_location('GHRVALID-Open Pay Range get values' ,5);
2119:
2120:
2121: --hr_utility.set_location('GHRVALID-l_user_table_id ' || to_char(l_user_table_id) ,5);
2122: --hr_utility.set_location('GHRVALID-l_pay_plan ' || to_char(l_pay_plan) ,5);
2123: --hr_utility.set_location('GHRVALID-l_grade_or_level ' || to_char(l_grade_or_level) ,5);
2124:
2125: hr_utility.set_location('GHRVALID-l_user_table_id ' || to_char(l_user_table_id) ,5);
2126: hr_utility.set_location('GHRVALID-Open Pay Range get values' ,5);
2127:
2121: --hr_utility.set_location('GHRVALID-l_user_table_id ' || to_char(l_user_table_id) ,5);
2122: --hr_utility.set_location('GHRVALID-l_pay_plan ' || to_char(l_pay_plan) ,5);
2123: --hr_utility.set_location('GHRVALID-l_grade_or_level ' || to_char(l_grade_or_level) ,5);
2124:
2125: hr_utility.set_location('GHRVALID-l_user_table_id ' || to_char(l_user_table_id) ,5);
2126: hr_utility.set_location('GHRVALID-Open Pay Range get values' ,5);
2127:
2128: ghr_pay_calc.get_open_pay_table_values
2129: (p_user_table_id => l_user_table_id
2122: --hr_utility.set_location('GHRVALID-l_pay_plan ' || to_char(l_pay_plan) ,5);
2123: --hr_utility.set_location('GHRVALID-l_grade_or_level ' || to_char(l_grade_or_level) ,5);
2124:
2125: hr_utility.set_location('GHRVALID-l_user_table_id ' || to_char(l_user_table_id) ,5);
2126: hr_utility.set_location('GHRVALID-Open Pay Range get values' ,5);
2127:
2128: ghr_pay_calc.get_open_pay_table_values
2129: (p_user_table_id => l_user_table_id
2130: ,p_pay_plan => l_pay_plan
2133: ,p_row_high => l_row_high
2134: ,p_row_low => l_row_low );
2135:
2136:
2137: hr_utility.set_location('GHRVALID-Open Pay Ranges found',5);
2138:
2139: IF l_row_low is null and l_row_high is null then
2140: ---Raise Error
2141: hr_utility.set_message(8301, 'GHR_38715_OPEN_PAY_RANGE_NF');
2137: hr_utility.set_location('GHRVALID-Open Pay Ranges found',5);
2138:
2139: IF l_row_low is null and l_row_high is null then
2140: ---Raise Error
2141: hr_utility.set_message(8301, 'GHR_38715_OPEN_PAY_RANGE_NF');
2142: hr_utility.raise_error;
2143: END IF;
2144:
2145: -- 5482191 Start
2138:
2139: IF l_row_low is null and l_row_high is null then
2140: ---Raise Error
2141: hr_utility.set_message(8301, 'GHR_38715_OPEN_PAY_RANGE_NF');
2142: hr_utility.raise_error;
2143: END IF;
2144:
2145: -- 5482191 Start
2146: --Bug 5658361 IF NVL(p_pa_request_rec.effective_date,TRUNC(sysdate)) >= to_date('07/01/2007','DD/MM/YYYY') AND
2147: --Bug 5658361 p_pa_request_rec.first_noa_code in ('891','892','893','894','890','896','897') AND
2148: --Bug# 6073655 Brought out this code from the l_psi<>'00' condition
2149: IF p_pa_request_rec.first_noa_code = '897'
2150: AND p_pa_request_rec.to_basic_pay >= p_pa_request_rec.from_basic_pay THEN
2151: hr_utility.set_message(8301, 'GHR_38513_AFHR_VAL_CHK');
2152: hr_utility.raise_error;
2153: END IF;
2154: --Bug# 6073655
2155: IF l_psi <> '00' THEN
2148: --Bug# 6073655 Brought out this code from the l_psi<>'00' condition
2149: IF p_pa_request_rec.first_noa_code = '897'
2150: AND p_pa_request_rec.to_basic_pay >= p_pa_request_rec.from_basic_pay THEN
2151: hr_utility.set_message(8301, 'GHR_38513_AFHR_VAL_CHK');
2152: hr_utility.raise_error;
2153: END IF;
2154: --Bug# 6073655
2155: IF l_psi <> '00' THEN
2156: IF NVL(p_pa_request_rec.effective_date,TRUNC(sysdate)) >= to_date('30/04/2006','DD/MM/YYYY') THEN --Bug 5658361
2155: IF l_psi <> '00' THEN
2156: IF NVL(p_pa_request_rec.effective_date,TRUNC(sysdate)) >= to_date('30/04/2006','DD/MM/YYYY') THEN --Bug 5658361
2157: IF p_pa_request_rec.pay_rate_determinant IN ('4','R') AND
2158: l_row_high >= p_pa_request_rec.to_basic_pay THEN
2159: hr_utility.set_message(8301, 'GHR_38506_AFHR_PRD_CHK');
2160: hr_utility.raise_error;
2161: ELSIF p_pa_request_rec.pay_rate_determinant = 'T' AND
2162: l_row_low <= p_pa_request_rec.to_basic_pay THEN
2163: hr_utility.set_message(8301, 'GHR_38508_AFHR_PRD_CHK');
2156: IF NVL(p_pa_request_rec.effective_date,TRUNC(sysdate)) >= to_date('30/04/2006','DD/MM/YYYY') THEN --Bug 5658361
2157: IF p_pa_request_rec.pay_rate_determinant IN ('4','R') AND
2158: l_row_high >= p_pa_request_rec.to_basic_pay THEN
2159: hr_utility.set_message(8301, 'GHR_38506_AFHR_PRD_CHK');
2160: hr_utility.raise_error;
2161: ELSIF p_pa_request_rec.pay_rate_determinant = 'T' AND
2162: l_row_low <= p_pa_request_rec.to_basic_pay THEN
2163: hr_utility.set_message(8301, 'GHR_38508_AFHR_PRD_CHK');
2164: hr_utility.raise_error;
2159: hr_utility.set_message(8301, 'GHR_38506_AFHR_PRD_CHK');
2160: hr_utility.raise_error;
2161: ELSIF p_pa_request_rec.pay_rate_determinant = 'T' AND
2162: l_row_low <= p_pa_request_rec.to_basic_pay THEN
2163: hr_utility.set_message(8301, 'GHR_38508_AFHR_PRD_CHK');
2164: hr_utility.raise_error;
2165: ELSIF p_pa_request_rec.pay_rate_determinant = '0' AND
2166: (l_row_low > p_pa_request_rec.to_basic_pay OR l_row_high < p_pa_request_rec.to_basic_pay) THEN
2167: hr_utility.set_message(8301, 'GHR_38507_AFHR_PAY_CHK');
2160: hr_utility.raise_error;
2161: ELSIF p_pa_request_rec.pay_rate_determinant = 'T' AND
2162: l_row_low <= p_pa_request_rec.to_basic_pay THEN
2163: hr_utility.set_message(8301, 'GHR_38508_AFHR_PRD_CHK');
2164: hr_utility.raise_error;
2165: ELSIF p_pa_request_rec.pay_rate_determinant = '0' AND
2166: (l_row_low > p_pa_request_rec.to_basic_pay OR l_row_high < p_pa_request_rec.to_basic_pay) THEN
2167: hr_utility.set_message(8301, 'GHR_38507_AFHR_PAY_CHK');
2168: hr_utility.raise_error;
2163: hr_utility.set_message(8301, 'GHR_38508_AFHR_PRD_CHK');
2164: hr_utility.raise_error;
2165: ELSIF p_pa_request_rec.pay_rate_determinant = '0' AND
2166: (l_row_low > p_pa_request_rec.to_basic_pay OR l_row_high < p_pa_request_rec.to_basic_pay) THEN
2167: hr_utility.set_message(8301, 'GHR_38507_AFHR_PAY_CHK');
2168: hr_utility.raise_error;
2169: END IF;
2170: IF p_pa_request_rec.to_step_or_rate <> '00' THEN --Bug 5657572
2171: hr_utility.set_message(8301, 'GHR_38474_AFH_TO_STEP_OR_RATE');
2164: hr_utility.raise_error;
2165: ELSIF p_pa_request_rec.pay_rate_determinant = '0' AND
2166: (l_row_low > p_pa_request_rec.to_basic_pay OR l_row_high < p_pa_request_rec.to_basic_pay) THEN
2167: hr_utility.set_message(8301, 'GHR_38507_AFHR_PAY_CHK');
2168: hr_utility.raise_error;
2169: END IF;
2170: IF p_pa_request_rec.to_step_or_rate <> '00' THEN --Bug 5657572
2171: hr_utility.set_message(8301, 'GHR_38474_AFH_TO_STEP_OR_RATE');
2172: hr_utility.raise_error;
2167: hr_utility.set_message(8301, 'GHR_38507_AFHR_PAY_CHK');
2168: hr_utility.raise_error;
2169: END IF;
2170: IF p_pa_request_rec.to_step_or_rate <> '00' THEN --Bug 5657572
2171: hr_utility.set_message(8301, 'GHR_38474_AFH_TO_STEP_OR_RATE');
2172: hr_utility.raise_error;
2173: END IF;
2174: END IF;
2175: ELSE
2168: hr_utility.raise_error;
2169: END IF;
2170: IF p_pa_request_rec.to_step_or_rate <> '00' THEN --Bug 5657572
2171: hr_utility.set_message(8301, 'GHR_38474_AFH_TO_STEP_OR_RATE');
2172: hr_utility.raise_error;
2173: END IF;
2174: END IF;
2175: ELSE
2176: --6489042 No validation is needed for PRD 2
2181: l_row_high >= p_pa_request_rec.to_basic_pay then
2182: null;
2183: ELSE
2184: ---Raise Error
2185: hr_utility.set_message(8301, 'GHR_38714_OPEN_PAY_RANGE_VAL');
2186: hr_utility.set_message_token('MIN',to_char(l_row_low));
2187: hr_utility.set_message_token('MAX',to_char(l_row_high));
2188: hr_utility.raise_error;
2189: END IF;
2182: null;
2183: ELSE
2184: ---Raise Error
2185: hr_utility.set_message(8301, 'GHR_38714_OPEN_PAY_RANGE_VAL');
2186: hr_utility.set_message_token('MIN',to_char(l_row_low));
2187: hr_utility.set_message_token('MAX',to_char(l_row_high));
2188: hr_utility.raise_error;
2189: END IF;
2190: END IF;
2183: ELSE
2184: ---Raise Error
2185: hr_utility.set_message(8301, 'GHR_38714_OPEN_PAY_RANGE_VAL');
2186: hr_utility.set_message_token('MIN',to_char(l_row_low));
2187: hr_utility.set_message_token('MAX',to_char(l_row_high));
2188: hr_utility.raise_error;
2189: END IF;
2190: END IF;
2191: END IF;
2184: ---Raise Error
2185: hr_utility.set_message(8301, 'GHR_38714_OPEN_PAY_RANGE_VAL');
2186: hr_utility.set_message_token('MIN',to_char(l_row_low));
2187: hr_utility.set_message_token('MAX',to_char(l_row_high));
2188: hr_utility.raise_error;
2189: END IF;
2190: END IF;
2191: END IF;
2192: -- 5482191 End
2197: /**** As per GPPA update 46 req. for 890 any employee is fine
2198: IF NVL(p_pa_request_rec.effective_date,TRUNC(sysdate)) >= to_date('07/01/2007','DD/MM/YYYY') AND
2199: p_pa_request_rec.first_noa_code = '890' THEN
2200: IF l_psi = '00' THEN
2201: hr_utility.set_message(8301, 'GHR_38462_AFHR_POS_SEL');
2202: hr_utility.raise_error;
2203: END IF;
2204: END IF;
2205: *******/
2198: IF NVL(p_pa_request_rec.effective_date,TRUNC(sysdate)) >= to_date('07/01/2007','DD/MM/YYYY') AND
2199: p_pa_request_rec.first_noa_code = '890' THEN
2200: IF l_psi = '00' THEN
2201: hr_utility.set_message(8301, 'GHR_38462_AFHR_POS_SEL');
2202: hr_utility.raise_error;
2203: END IF;
2204: END IF;
2205: *******/
2206: END IF;
2211: --Removed 894 NOAC for rating of record check as part of GPPA U46 Req.
2212: IF p_pa_request_rec.first_noa_code in ('891','892') AND l_psi <> '00' THEN
2213: IF p_pa_request_rec.first_noa_code = '891' AND
2214: nvl(p_perf_appraisal_type.rating_rec_level,'X') NOT IN ('3','4','5') THEN
2215: hr_utility.set_message(8301, 'GHR_38457_AFHR_NOA_CHK');
2216: hr_utility.raise_error;
2217: END IF;
2218: IF p_pa_request_rec.first_noa_code = '892' AND
2219: nvl(p_perf_appraisal_type.rating_rec_level,'X') IN ('1','2') THEN
2212: IF p_pa_request_rec.first_noa_code in ('891','892') AND l_psi <> '00' THEN
2213: IF p_pa_request_rec.first_noa_code = '891' AND
2214: nvl(p_perf_appraisal_type.rating_rec_level,'X') NOT IN ('3','4','5') THEN
2215: hr_utility.set_message(8301, 'GHR_38457_AFHR_NOA_CHK');
2216: hr_utility.raise_error;
2217: END IF;
2218: IF p_pa_request_rec.first_noa_code = '892' AND
2219: nvl(p_perf_appraisal_type.rating_rec_level,'X') IN ('1','2') THEN
2220: hr_utility.set_message(8301, 'GHR_38510_AFHR_NOA_CHK');
2216: hr_utility.raise_error;
2217: END IF;
2218: IF p_pa_request_rec.first_noa_code = '892' AND
2219: nvl(p_perf_appraisal_type.rating_rec_level,'X') IN ('1','2') THEN
2220: hr_utility.set_message(8301, 'GHR_38510_AFHR_NOA_CHK');
2221: hr_utility.raise_error;
2222: END IF;
2223: /****GPPA U46
2224: IF p_pa_request_rec.first_noa_code = '894' AND
2217: END IF;
2218: IF p_pa_request_rec.first_noa_code = '892' AND
2219: nvl(p_perf_appraisal_type.rating_rec_level,'X') IN ('1','2') THEN
2220: hr_utility.set_message(8301, 'GHR_38510_AFHR_NOA_CHK');
2221: hr_utility.raise_error;
2222: END IF;
2223: /****GPPA U46
2224: IF p_pa_request_rec.first_noa_code = '894' AND
2225: nvl(p_perf_appraisal_type.rating_rec_level,'X') = '1' THEN
2222: END IF;
2223: /****GPPA U46
2224: IF p_pa_request_rec.first_noa_code = '894' AND
2225: nvl(p_perf_appraisal_type.rating_rec_level,'X') = '1' THEN
2226: hr_utility.set_message(8301, 'GHR_38511_AFHR_NOA_CHK');
2227: hr_utility.raise_error;
2228: END IF;
2229: *****GPPA ****/
2230: END IF;
2223: /****GPPA U46
2224: IF p_pa_request_rec.first_noa_code = '894' AND
2225: nvl(p_perf_appraisal_type.rating_rec_level,'X') = '1' THEN
2226: hr_utility.set_message(8301, 'GHR_38511_AFHR_NOA_CHK');
2227: hr_utility.raise_error;
2228: END IF;
2229: *****GPPA ****/
2230: END IF;
2231:
2244: NULL;
2245: END;
2246: IF l_retained_grade.person_extra_info_id is not null and
2247: l_retained_grade.temp_step is null THEN
2248: hr_utility.set_message(8301,'GHR_38824_RG_TPS_REQUIRED');
2249: hr_utility.raise_error;
2250: END IF;
2251: END IF;
2252: --Bug 5527363
2245: END;
2246: IF l_retained_grade.person_extra_info_id is not null and
2247: l_retained_grade.temp_step is null THEN
2248: hr_utility.set_message(8301,'GHR_38824_RG_TPS_REQUIRED');
2249: hr_utility.raise_error;
2250: END IF;
2251: END IF;
2252: --Bug 5527363
2253: IF p_pa_request_rec.noa_family_code = 'CONV_APP' AND p_within_grade_incr.p_date_wgi_due IS NOT NULL
2251: END IF;
2252: --Bug 5527363
2253: IF p_pa_request_rec.noa_family_code = 'CONV_APP' AND p_within_grade_incr.p_date_wgi_due IS NOT NULL
2254: AND p_within_grade_incr.p_last_equi_incr IS NULL THEN
2255: hr_utility.set_message(8301,'GHR_37740_CONV_APP_NULL_DLEI');
2256: hr_utility.raise_error;
2257: END IF;
2258:
2259: /* Bug#5132121 Service Obligation for Student Loan and MD/DDS */
2252: --Bug 5527363
2253: IF p_pa_request_rec.noa_family_code = 'CONV_APP' AND p_within_grade_incr.p_date_wgi_due IS NOT NULL
2254: AND p_within_grade_incr.p_last_equi_incr IS NULL THEN
2255: hr_utility.set_message(8301,'GHR_37740_CONV_APP_NULL_DLEI');
2256: hr_utility.raise_error;
2257: END IF;
2258:
2259: /* Bug#5132121 Service Obligation for Student Loan and MD/DDS */
2260: IF p_pa_request_rec.first_noa_code IN ('817', '850', '480') OR
2265: l_serv_oblg_start_date := l_cur_service_oblg_ei.srvc_oblg_st_date;
2266: l_serv_oblg_end_date := l_cur_service_oblg_ei.srvc_oblg_end_date;
2267: IF l_serv_oblg_type IS NOT NULL AND
2268: (l_serv_oblg_start_date IS NULL OR l_serv_oblg_end_date IS NULL) THEN
2269: hr_utility.set_message(8301,
2270: 'GHR_38454_SRVC_OBLG_TYPE_CHK');
2271: hr_utility.raise_error;
2272: END IF;
2273:
2267: IF l_serv_oblg_type IS NOT NULL AND
2268: (l_serv_oblg_start_date IS NULL OR l_serv_oblg_end_date IS NULL) THEN
2269: hr_utility.set_message(8301,
2270: 'GHR_38454_SRVC_OBLG_TYPE_CHK');
2271: hr_utility.raise_error;
2272: END IF;
2273:
2274: IF l_serv_oblg_start_date IS NOT NULL AND
2275: (l_serv_oblg_end_date IS NULL OR l_serv_oblg_type IS NULL) THEN
2272: END IF;
2273:
2274: IF l_serv_oblg_start_date IS NOT NULL AND
2275: (l_serv_oblg_end_date IS NULL OR l_serv_oblg_type IS NULL) THEN
2276: hr_utility.set_message(8301,
2277: 'GHR_38455_SRVC_OBLG_ST_DT_CHK');
2278: hr_utility.raise_error;
2279: END IF;
2280: END LOOP;
2274: IF l_serv_oblg_start_date IS NOT NULL AND
2275: (l_serv_oblg_end_date IS NULL OR l_serv_oblg_type IS NULL) THEN
2276: hr_utility.set_message(8301,
2277: 'GHR_38455_SRVC_OBLG_ST_DT_CHK');
2278: hr_utility.raise_error;
2279: END IF;
2280: END LOOP;
2281: END IF;
2282: /* Bug#5132121 Service Obligation for Student Loan and MD/DDS */
2348: ----
2349:
2350: IF (p_element_name = 'Basic Salary Rate'
2351: and (fnd_profile.value('HR_USER_TYPE') = 'INT')) THEN
2352: hr_utility.set_location('PAYROLL User -- BSR -- from asgid-- ', 1);
2353: l_new_element_name :=
2354: pqp_fedhr_uspay_int_utils.return_new_element_name(
2355: p_assignment_id => p_assignment_id,
2356: p_business_group_id => ll_bg_id,
2356: p_business_group_id => ll_bg_id,
2357: p_effective_date => ll_effective_date);
2358: ELSIF (fnd_profile.value('HR_USER_TYPE') <> 'INT'
2359: or (p_element_name <> 'Basic Salary Rate' and (fnd_profile.value('HR_USER_TYPE') = 'INT'))) THEN
2360: hr_utility.set_location('HR USER or PAYROLL User without BSR element -- from elt name -- ', 1);
2361: l_new_element_name :=
2362: pqp_fedhr_uspay_int_utils.return_new_element_name(
2363: p_fedhr_element_name => p_element_name,
2364: p_business_group_id => ll_bg_id,