[Home] [Help]
124: and information_type = p_l_information_type;
125:
126: begin
127: --
128: hr_utility.set_location('Entering ' || l_proc,5);
129: l_initial_ovn := p_l_object_version_number;
130:
131: l_extra_info_id := NULL;
132:
136: If upper(substr(P_l_Information_Type,8,3)) = 'ASG' then
137: l_index := 'aei';
138: l_id := P_Pa_request_rec.Employee_Assignment_id;
139: l_extra_info_id := p_extra_info_id;
140: hr_utility.set_location('Assignment id is ' ||l_id || ' ' || l_proc,6);
141: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,7);
142: Elsif upper(substr(P_l_Information_Type,8,3)) = 'PER' then
143: l_index := 'pei';
144: l_id := P_Pa_request_rec.person_id;
137: l_index := 'aei';
138: l_id := P_Pa_request_rec.Employee_Assignment_id;
139: l_extra_info_id := p_extra_info_id;
140: hr_utility.set_location('Assignment id is ' ||l_id || ' ' || l_proc,6);
141: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,7);
142: Elsif upper(substr(P_l_Information_Type,8,3)) = 'PER' then
143: l_index := 'pei';
144: l_id := P_Pa_request_rec.person_id;
145: l_extra_info_id := p_extra_info_id;
145: l_extra_info_id := p_extra_info_id;
146: Elsif upper(substr(P_l_Information_Type,8,3)) = 'POS' then
147: l_index := 'poei';
148: l_id := nvl(P_Pa_request_rec.to_position_id,p_pa_request_rec.from_position_id);
149: hr_utility.set_location('EXTRA INFO ID '|| to_char(p_extra_info_id),1);
150: l_extra_info_id := p_extra_info_id;
151: -- Rohini
152: Elsif upper(p_l_information_type )= 'GHR_US_RETAINED_GRADE' then
153: l_index := 'pei';
155: l_extra_info_id := p_extra_info_id;
156: -- Rohini
157:
158: Else
159: hr_utility.set_message(8301,'GHR_38132_INVALID_INFO_TYPE');
160: hr_utility.raise_error;
161: End if;
162:
163: hr_utility.set_location(l_proc,10);
156: -- Rohini
157:
158: Else
159: hr_utility.set_message(8301,'GHR_38132_INVALID_INFO_TYPE');
160: hr_utility.raise_error;
161: End if;
162:
163: hr_utility.set_location(l_proc,10);
164:
159: hr_utility.set_message(8301,'GHR_38132_INVALID_INFO_TYPE');
160: hr_utility.raise_error;
161: End if;
162:
163: hr_utility.set_location(l_proc,10);
164:
165: -- The foll. code sets the information
166: -- and is then used in case of create Extr Info .This was done so that
167: -- we could work with just one procedure for both update as well as create of
168: -- extra information, with all the parameters defaulted to hr_api.g_varchar2
169: -- therby ensuring that while updating, none of the existing data gets over-written.
170:
171: l_extra_info_id := p_extra_info_id;
172: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,8);
173: If p_information1 = hr_api.g_varchar2 THEN
174: l_information1 := null;
175: Else
176: l_information1 := p_information1;
325: -- There are chances that the history table didn't have date corresponding to an
326: -- Extra info, as of the given effective_date , but the extra info table itself might have
327: -- the data. This cursor fetches the extra info id of the information_type to be updated
328: -- to ensure that the correct procedure is then called to create/udpate EI.
329: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,9);
330:
331:
332: If l_Extra_Info_Id is null then
333: for asg_ei in c_asg_ei loop
333: for asg_ei in c_asg_ei loop
334: l_extra_info_id := asg_ei.assignment_extra_info_id;
335: l_ovn := asg_ei.object_version_number;
336: end loop;
337: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,10);
338: Else
339: l_ovn := p_l_object_version_number;
340: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,11);
341: End if;
336: end loop;
337: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,10);
338: Else
339: l_ovn := p_l_object_version_number;
340: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,11);
341: End if;
342:
343: -- Bug#9646565
344: IF P_l_Information_Type = 'GHR_US_ASG_DET_INFO' and (P_PA_REQUEST_REC.first_noa_code in ('930','730') and l_session.noa_id_correct is null) THEN
347: --Bug#9646565
348:
349:
350: If l_extra_info_id is null then
351: hr_utility.set_location(l_proc,15);
352: hr_assignment_extra_info_api.create_assignment_extra_info
353: ( p_assignment_id => P_Pa_request_rec.Employee_Assignment_id
354: ,p_Information_type => p_l_information_type
355: ,p_aei_information_category => p_l_information_type
385: , p_aei_information30 => l_information30
386: , p_assignment_extra_info_id => l_asg_cre_extra_info_id
387: , p_object_version_number => l_asg_cre_ovn );
388: Else
389: hr_utility.set_location(l_proc,20);
390: hr_assignment_extra_info_api.update_assignment_extra_info
391: ( p_assignment_extra_info_id => l_Extra_Info_Id
392: , p_object_version_number => l_ovn
393: , p_aei_information1 => p_information1
428: -- Update/Create Person Extra Info
429: --
430: --
431: If l_index = 'pei' then
432: hr_utility.set_location(l_proc,25);
433:
434: If l_Extra_Info_Id is null then
435: hr_utility.set_location(to_char(l_id),1);
436: hr_utility.set_location(p_l_information_type,2);
431: If l_index = 'pei' then
432: hr_utility.set_location(l_proc,25);
433:
434: If l_Extra_Info_Id is null then
435: hr_utility.set_location(to_char(l_id),1);
436: hr_utility.set_location(p_l_information_type,2);
437: for per_ei in c_per_ei loop
438: l_extra_info_id := per_ei.person_extra_info_id;
439: l_ovn := per_ei.object_version_number;
432: hr_utility.set_location(l_proc,25);
433:
434: If l_Extra_Info_Id is null then
435: hr_utility.set_location(to_char(l_id),1);
436: hr_utility.set_location(p_l_information_type,2);
437: for per_ei in c_per_ei loop
438: l_extra_info_id := per_ei.person_extra_info_id;
439: l_ovn := per_ei.object_version_number;
440: end loop;
440: end loop;
441: Else
442: l_ovn := p_l_object_version_number;
443: End if;
444: hr_utility.set_location('pei_ovn is ' || to_char(l_ovn),1);
445: -- Bug#5045806 For Service Obligation EIT, Always create new EIT Record.
446: IF P_l_Information_Type = 'GHR_US_PER_SERVICE_OBLIGATION' THEN
447: l_extra_info_id := NULL;
448: END IF;
447: l_extra_info_id := NULL;
448: END IF;
449: -- Bug#5045806
450: If l_extra_info_id is null then
451: hr_utility.set_location(l_proc,30);
452: hr_person_extra_info_api.create_person_extra_info
453: (p_Person_id => P_Pa_request_rec.Person_id
454: ,p_Information_type => p_l_information_type
455: ,p_pei_information_category => p_l_information_type
486: ,p_person_extra_info_id => l_per_cre_extra_info_id
487: ,p_object_version_number => l_per_cre_ovn );
488: Else
489: --
490: hr_utility.set_location(l_proc,35);
491: hr_person_extra_info_api.update_person_extra_info
492: ( p_person_extra_info_id => l_Extra_Info_Id
493: , p_object_version_number => l_ovn
494: , p_pei_information1 => p_information1
529: -- Update/Create Position group1 Extra Info
530: --
531: --
532: If l_index = 'poei' then
533: hr_utility.set_location(l_proc,40);
534: If l_Extra_Info_Id is null then
535: for pos_ei in c_pos_ei loop
536: l_extra_info_id := pos_ei.position_extra_info_id;
537: l_ovn := pos_ei.object_version_number;
538: end loop;
539: Else
540: l_ovn := p_l_object_version_number;
541: End if;
542: hr_utility.set_location(l_proc,45);
543: If l_extra_info_id is null then
544: hr_position_extra_info_api.create_position_extra_info
545: ( p_position_id => P_Pa_request_rec.to_position_id
546: , p_Information_type => p_l_information_type
580: );
581: --
582: Else
583: --
584: hr_utility.set_location(l_proc,50);
585: hr_utility.set_location('GEN UPD' || to_char(l_Extra_Info_Id ),1);
586: hr_utility.set_location('GEN UPD' || to_char(p_l_Object_Version_Number ),1);
587:
588: hr_position_extra_info_api.update_position_extra_info
581: --
582: Else
583: --
584: hr_utility.set_location(l_proc,50);
585: hr_utility.set_location('GEN UPD' || to_char(l_Extra_Info_Id ),1);
586: hr_utility.set_location('GEN UPD' || to_char(p_l_Object_Version_Number ),1);
587:
588: hr_position_extra_info_api.update_position_extra_info
589: ( p_position_extra_info_id => l_Extra_Info_Id
582: Else
583: --
584: hr_utility.set_location(l_proc,50);
585: hr_utility.set_location('GEN UPD' || to_char(l_Extra_Info_Id ),1);
586: hr_utility.set_location('GEN UPD' || to_char(p_l_Object_Version_Number ),1);
587:
588: hr_position_extra_info_api.update_position_extra_info
589: ( p_position_extra_info_id => l_Extra_Info_Id
590: , p_object_version_number => l_ovn
623: End if;
624: End if;
625: --
626: --
627: hr_utility.set_location('Leaving ' ||l_proc,60);
628: Exception when others then
629: --
630: -- Reset IN OUT parameters and set OUT parameters
631: --
707: where person_extra_info_id = l_retained_grade_rec.person_extra_info_id;
708:
709: l_effective_date Date;
710: BEGIN
711: hr_utility.set_location('Entering '||l_proc,5);
712: l_per_retained_grade := P_Per_retained_grade;
713: ghr_history_api.get_g_session_var(l_session); -- Bug 3021003
714: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
715: IF p_pa_request_rec.first_noa_code = '702' THEN
710: BEGIN
711: hr_utility.set_location('Entering '||l_proc,5);
712: l_per_retained_grade := P_Per_retained_grade;
713: ghr_history_api.get_g_session_var(l_session); -- Bug 3021003
714: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
715: IF p_pa_request_rec.first_noa_code = '702' THEN
716: --702 Processing
717: hr_utility.set_location('702 RG Processing '||l_proc,10);
718: FOR rg_rec in c_702_rec LOOP
713: ghr_history_api.get_g_session_var(l_session); -- Bug 3021003
714: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
715: IF p_pa_request_rec.first_noa_code = '702' THEN
716: --702 Processing
717: hr_utility.set_location('702 RG Processing '||l_proc,10);
718: FOR rg_rec in c_702_rec LOOP
719: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
720: hr_utility.set_location('702 RG Processing '||rg_rec.rei_information3,11);
721: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
715: IF p_pa_request_rec.first_noa_code = '702' THEN
716: --702 Processing
717: hr_utility.set_location('702 RG Processing '||l_proc,10);
718: FOR rg_rec in c_702_rec LOOP
719: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
720: hr_utility.set_location('702 RG Processing '||rg_rec.rei_information3,11);
721: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
722: (p_pa_request_rec.effective_date - 1) THEN
723: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
716: --702 Processing
717: hr_utility.set_location('702 RG Processing '||l_proc,10);
718: FOR rg_rec in c_702_rec LOOP
719: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
720: hr_utility.set_location('702 RG Processing '||rg_rec.rei_information3,11);
721: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
722: (p_pa_request_rec.effective_date - 1) THEN
723: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
724: hr_utility.raise_error;
719: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
720: hr_utility.set_location('702 RG Processing '||rg_rec.rei_information3,11);
721: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
722: (p_pa_request_rec.effective_date - 1) THEN
723: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
724: hr_utility.raise_error;
725: END IF;
726: Generic_Update_Extra_Info
727: (p_pa_request_rec => P_PA_REQUEST_REC
720: hr_utility.set_location('702 RG Processing '||rg_rec.rei_information3,11);
721: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
722: (p_pa_request_rec.effective_date - 1) THEN
723: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
724: hr_utility.raise_error;
725: END IF;
726: Generic_Update_Extra_Info
727: (p_pa_request_rec => P_PA_REQUEST_REC
728: ,p_l_information_type => 'GHR_US_RETAINED_GRADE'
732: );
733: END LOOP;
734: ELSIF p_pa_request_rec.first_noa_code = '740' THEN
735: --740 Processing
736: hr_utility.set_location('740 RG Processing '||l_proc,15);
737: FOR rg_rec in c_740_rec LOOP
738: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
739: hr_utility.set_location('740 RG Processing '||rg_rec.rei_information3,12);
740: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
734: ELSIF p_pa_request_rec.first_noa_code = '740' THEN
735: --740 Processing
736: hr_utility.set_location('740 RG Processing '||l_proc,15);
737: FOR rg_rec in c_740_rec LOOP
738: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
739: hr_utility.set_location('740 RG Processing '||rg_rec.rei_information3,12);
740: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
741: (p_pa_request_rec.effective_date - 1) THEN
742: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
735: --740 Processing
736: hr_utility.set_location('740 RG Processing '||l_proc,15);
737: FOR rg_rec in c_740_rec LOOP
738: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
739: hr_utility.set_location('740 RG Processing '||rg_rec.rei_information3,12);
740: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
741: (p_pa_request_rec.effective_date - 1) THEN
742: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
743: hr_utility.raise_error;
738: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
739: hr_utility.set_location('740 RG Processing '||rg_rec.rei_information3,12);
740: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
741: (p_pa_request_rec.effective_date - 1) THEN
742: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
743: hr_utility.raise_error;
744: END IF;
745: Generic_Update_Extra_Info
746: (p_pa_request_rec => P_PA_REQUEST_REC
739: hr_utility.set_location('740 RG Processing '||rg_rec.rei_information3,12);
740: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
741: (p_pa_request_rec.effective_date - 1) THEN
742: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
743: hr_utility.raise_error;
744: END IF;
745: Generic_Update_Extra_Info
746: (p_pa_request_rec => P_PA_REQUEST_REC
747: ,p_l_information_type => 'GHR_US_RETAINED_GRADE'
759: ELSE
760: l_effective_date := p_pa_request_rec.effective_date;
761: END IF;
762: --
763: hr_utility.set_location('866 RG Processing '||l_proc,15);
764: hr_utility.set_location('Inside 866 processing '||p_per_retained_grade.person_extra_info_id,1);
765: Generic_Update_Extra_Info
766: (p_pa_request_rec => P_PA_REQUEST_REC
767: ,p_l_information_type => 'GHR_US_RETAINED_GRADE'
760: l_effective_date := p_pa_request_rec.effective_date;
761: END IF;
762: --
763: hr_utility.set_location('866 RG Processing '||l_proc,15);
764: hr_utility.set_location('Inside 866 processing '||p_per_retained_grade.person_extra_info_id,1);
765: Generic_Update_Extra_Info
766: (p_pa_request_rec => P_PA_REQUEST_REC
767: ,p_l_information_type => 'GHR_US_RETAINED_GRADE'
768: ,p_extra_info_id => p_per_retained_grade.person_extra_info_id
779: p_effective_date => p_pa_request_rec.effective_date,
780: p_pa_request_id => p_pa_request_rec.pa_request_id
781: );
782: IF l_retained_grade_rec.person_extra_info_id is not null then
783: hr_utility.set_location('Inside 866 processing '||l_retained_grade_rec.person_extra_info_id,1);
784: FOR retained_grade_ovn IN c_retained_grade_ovn LOOP
785: l_ret_object_version_number := retained_grade_ovn.object_version_number;
786: l_new_date_to := retained_grade_ovn.pei_information2;
787: l_new_grade_or_level := retained_grade_ovn.pei_information3;
792: l_new_pay_basis := retained_grade_ovn.pei_information8;
793: exit;
794: END LOOP;
795: ghr_history_api.get_g_session_var(l_session);
796: hr_utility.set_location('Inside 866 processing ',2);
797: IF l_session.noa_id_correct is null then
798: -- End date the existing RG record
799: hr_person_extra_info_api.update_person_extra_info
800: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
800: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
801: p_object_version_number => l_ret_object_version_number,
802: p_pei_information2 => fnd_date.date_to_canonical(p_pa_request_rec.effective_date )
803: );
804: hr_utility.set_location('Inside 866 processing ',3);
805: -- Create the new RG Record with Temporary Promotion Step Value
806: hr_person_extra_info_api.create_person_extra_info
807: (p_person_id => p_pa_request_rec.person_id,
808: p_information_type => 'GHR_US_RETAINED_GRADE',
819: p_pei_information7 => l_new_loc_percent,
820: p_pei_information8 => l_new_pay_basis,
821: p_pei_information9 => l_new_temp_step
822: );
823: hr_utility.set_location('Inside 866 processing ',3);
824: ELSE
825: -- Update the TPS in Retain Grade record
826: hr_person_extra_info_api.update_person_extra_info
827: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
841: (p_person_id => p_pa_request_rec.person_id,
842: p_effective_date => p_pa_request_rec.effective_date,
843: p_pa_request_id => p_pa_request_rec.altered_pa_request_id
844: );
845: hr_utility.set_location('Inside Sun processing '||l_retained_grade_rec.person_extra_info_id,1);
846: IF l_retained_grade_rec.person_extra_info_id IS NOT NULL THEN
847: FOR retained_grade_ovn IN c_retained_grade_ovn LOOP
848: l_ret_object_version_number := retained_grade_ovn.object_version_number;
849: EXIT;
847: FOR retained_grade_ovn IN c_retained_grade_ovn LOOP
848: l_ret_object_version_number := retained_grade_ovn.object_version_number;
849: EXIT;
850: END LOOP;
851: hr_utility.set_location('P_Per_retained_grade.step_or_rate '||P_Per_retained_grade.retain_step_or_rate,1);
852: hr_utility.set_location('l_retained_grade_rec.step_or_rate '||l_retained_grade_rec.step_or_rate,1);
853: IF (NVL(P_Per_retained_grade.retain_step_or_rate,-1) <> NVL(l_retained_grade_rec.step_or_rate,-1)) THEN
854: hr_person_extra_info_api.update_person_extra_info
855: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
848: l_ret_object_version_number := retained_grade_ovn.object_version_number;
849: EXIT;
850: END LOOP;
851: hr_utility.set_location('P_Per_retained_grade.step_or_rate '||P_Per_retained_grade.retain_step_or_rate,1);
852: hr_utility.set_location('l_retained_grade_rec.step_or_rate '||l_retained_grade_rec.step_or_rate,1);
853: IF (NVL(P_Per_retained_grade.retain_step_or_rate,-1) <> NVL(l_retained_grade_rec.step_or_rate,-1)) THEN
854: hr_person_extra_info_api.update_person_extra_info
855: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
856: p_object_version_number => l_ret_object_version_number,
856: p_object_version_number => l_ret_object_version_number,
857: p_pei_information4 => P_Per_retained_grade.retain_step_or_rate
858: );
859: END IF;
860: hr_utility.set_location('P_Per_retained_grade.temp_step '||P_Per_retained_grade.temp_step,1);
861: hr_utility.set_location('l_retained_grade_rec.temp_step '||l_retained_grade_rec.temp_step,1);
862: IF (NVL(P_Per_retained_grade.temp_step,-1) <> NVL(l_retained_grade_rec.temp_step,-1)) THEN
863: hr_person_extra_info_api.update_person_extra_info
864: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
857: p_pei_information4 => P_Per_retained_grade.retain_step_or_rate
858: );
859: END IF;
860: hr_utility.set_location('P_Per_retained_grade.temp_step '||P_Per_retained_grade.temp_step,1);
861: hr_utility.set_location('l_retained_grade_rec.temp_step '||l_retained_grade_rec.temp_step,1);
862: IF (NVL(P_Per_retained_grade.temp_step,-1) <> NVL(l_retained_grade_rec.temp_step,-1)) THEN
863: hr_person_extra_info_api.update_person_extra_info
864: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
865: p_object_version_number => l_ret_object_version_number,
884: p_pa_request_id => p_pa_request_rec.pa_request_id
885: );
886:
887: IF l_retained_grade_rec.person_extra_info_id is not null then
888: hr_utility.set_location('Inside FWFA RG processing '||l_retained_grade_rec.person_extra_info_id,1);
889: FOR retained_grade_ovn IN c_retained_grade_ovn LOOP
890: l_ret_object_version_number := retained_grade_ovn.object_version_number;
891: l_cur_date_from := retained_grade_ovn.pei_information1;
892: l_new_date_to := retained_grade_ovn.pei_information2;
926: l_step_or_rate := l_new_step_or_rate + 1;
927: l_new_step_or_rate := l_step_or_rate;
928: END IF;
929: END IF; -- If l_retained_grade_rec.temp_step is not null
930: hr_utility.set_location('FWFA New Step or Rate for Ret Grd Rec. is ' || l_new_step_or_rate,3);
931: hr_utility.set_location('FWFA temp_step is ' || l_new_temp_step,2);
932: END IF;
933:
934: ---BUG# 4999237 HANDLED FOR 894 TERMINATION OF PAY RETENTION
927: l_new_step_or_rate := l_step_or_rate;
928: END IF;
929: END IF; -- If l_retained_grade_rec.temp_step is not null
930: hr_utility.set_location('FWFA New Step or Rate for Ret Grd Rec. is ' || l_new_step_or_rate,3);
931: hr_utility.set_location('FWFA temp_step is ' || l_new_temp_step,2);
932: END IF;
933:
934: ---BUG# 4999237 HANDLED FOR 894 TERMINATION OF PAY RETENTION
935: -- Bug#5679022 Pass the g_step_or_rate in case of 894 for pay retention termination.
940: END IF;
941: END IF;
942: --END BUG 4999237
943:
944: hr_utility.set_location('new Pay table id :'||p_per_retained_grade.retain_pay_table_id,20);
945: -- Bug#4698321 IF the retained grade record starts on the same day of the action,
946: -- update the same record. Otherwise, end date current record and create new record.
947: -- Bug#4719037 RG record created unnecessarily where g_pay_table_upd_flag is FALSE.
948: -- So, added the per_retained_grade_flag condition to avoid it.
947: -- Bug#4719037 RG record created unnecessarily where g_pay_table_upd_flag is FALSE.
948: -- So, added the per_retained_grade_flag condition to avoid it.
949: IF p_per_retained_grade.per_retained_grade_flag = 'Y' THEN
950: IF TRUNC(fnd_date.canonical_to_date(l_cur_date_from)) = TRUNC(p_pa_request_rec.effective_date) THEN
951: hr_utility.set_location('RG Start date Equal to RPA Effective Date ',22);
952: Generic_Update_Extra_Info
953: (p_pa_request_rec => P_PA_REQUEST_REC
954: ,p_l_information_type => 'GHR_US_RETAINED_GRADE'
955: ,p_extra_info_id => l_retained_grade_rec.person_extra_info_id
964: ,p_information8 => l_new_pay_basis
965: ,p_information9 => l_new_temp_step
966: );
967: ELSE
968: hr_utility.set_location('RG Start date NOT EQUAL to RPA Effective Date ',27);
969: Generic_Update_Extra_Info
970: (p_pa_request_rec => P_PA_REQUEST_REC
971: ,p_l_information_type => 'GHR_US_RETAINED_GRADE'
972: ,p_extra_info_id => l_retained_grade_rec.person_extra_info_id
992: p_pei_information8 => l_new_pay_basis,
993: p_pei_information9 => l_new_temp_step
994: );
995: END IF;
996: hr_utility.set_location('Inside FWFA processing ',3);
997: END IF; -- per_retained_grade_flag
998: END IF; -- l_retained_grade_rec.person_extra_info_id NOT NULL
999: EXCEPTION
1000: -- IF No RG Record Exists, skip this updation.
1112: -- determine whether to create or update sit
1113: -- 1 Get the id_flex_num for the id_flex_structure 'US Fed Education'
1114:
1115: begin
1116: hr_utility.set_location('Entering ' || l_proc,5);
1117:
1118: for bgp in c_bgpid loop
1119: hr_utility.set_location(l_proc,10);
1120: l_business_group_id := bgp.business_group_id;
1115: begin
1116: hr_utility.set_location('Entering ' || l_proc,5);
1117:
1118: for bgp in c_bgpid loop
1119: hr_utility.set_location(l_proc,10);
1120: l_business_group_id := bgp.business_group_id;
1121: End loop;
1122:
1123: for flex_num in c_flex_num loop
1120: l_business_group_id := bgp.business_group_id;
1121: End loop;
1122:
1123: for flex_num in c_flex_num loop
1124: hr_utility.set_location(l_proc,12);
1125: l_id_flex_num := flex_num.id_flex_num;
1126: end loop;
1127: hr_utility.set_location(l_proc,15);
1128:
1123: for flex_num in c_flex_num loop
1124: hr_utility.set_location(l_proc,12);
1125: l_id_flex_num := flex_num.id_flex_num;
1126: end loop;
1127: hr_utility.set_location(l_proc,15);
1128:
1129: -- Check to see if the person already has an entry for the SIT
1130:
1131: for person_sit in c_person_sit loop
1128:
1129: -- Check to see if the person already has an entry for the SIT
1130:
1131: for person_sit in c_person_sit loop
1132: hr_utility.set_location(l_proc,20);
1133: l_analysis_criteria_id := person_sit.analysis_criteria_id;
1134: l_personal_analysis_id := person_sit.person_analysis_id;
1135: l_object_version_number := person_sit.object_version_number;
1136: End loop;
1146: -- Also while retrieving , fetch the row that has the highest education level -??
1147:
1148:
1149: If l_analysis_criteria_id is null then
1150: hr_utility.set_location(l_proc,25);
1151: hr_sit_api.create_sit
1152: (p_person_id => p_pa_request_rec.person_id,
1153: p_business_group_id => l_business_group_id,
1154: p_id_flex_num => l_id_flex_num,
1160: p_analysis_criteria_id => l_analysis_criteria_id, --out
1161: p_person_analysis_id => l_personal_analysis_id,
1162: p_pea_object_version_number => l_object_version_number
1163: );
1164: hr_utility.set_location(l_proc,30);
1165:
1166: Else
1167: -- If sit already exists for the person and it can be multiple occurring, then
1168: -- if it is not a correction, then create a new one, else update
1165:
1166: Else
1167: -- If sit already exists for the person and it can be multiple occurring, then
1168: -- if it is not a correction, then create a new one, else update
1169: hr_utility.set_location(l_proc,35);
1170: /*
1171: Commented out nocopy by skutteti for bug # 655203 as multiple occurences flag need not be checked for edu sit.
1172: for multiple_occur in c_multiple_occur loop
1173: hr_utility.set_location(l_proc,36);
1169: hr_utility.set_location(l_proc,35);
1170: /*
1171: Commented out nocopy by skutteti for bug # 655203 as multiple occurences flag need not be checked for edu sit.
1172: for multiple_occur in c_multiple_occur loop
1173: hr_utility.set_location(l_proc,36);
1174: l_multiple := multiple_occur.multiple_occurrences_flag;
1175: end loop;
1176: */
1177:
1178: ghr_history_api.get_g_session_var(l_session);
1179: If l_session.noa_id_correct is null then
1180: l_personal_analysis_id := Null;
1181: for special_info in c_special_info loop
1182: hr_utility.set_location(l_proc,40);
1183: l_education_level := special_info.education_level;
1184: l_academic_discipline := special_info.academic_discipline;
1185: l_year_degree_attained := special_info.year_degree_attained;
1186: l_personal_analysis_id := special_info.person_analysis_id;
1201: l_personal_analysis_id := l_special_info.person_analysis_id;
1202: l_object_version_number := l_special_info.object_version_number;
1203: End if;
1204:
1205: hr_utility.set_location(l_proc,45);
1206: hr_utility.set_location('l_education_level is '||l_education_level,46);
1207: hr_utility.set_location('l_academic_discipline is '||l_academic_discipline,47);
1208: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1209:
1202: l_object_version_number := l_special_info.object_version_number;
1203: End if;
1204:
1205: hr_utility.set_location(l_proc,45);
1206: hr_utility.set_location('l_education_level is '||l_education_level,46);
1207: hr_utility.set_location('l_academic_discipline is '||l_academic_discipline,47);
1208: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1209:
1210: hr_utility.set_location('p_pa_request_rec.education_level is '||p_pa_request_rec.education_level,46);
1203: End if;
1204:
1205: hr_utility.set_location(l_proc,45);
1206: hr_utility.set_location('l_education_level is '||l_education_level,46);
1207: hr_utility.set_location('l_academic_discipline is '||l_academic_discipline,47);
1208: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1209:
1210: hr_utility.set_location('p_pa_request_rec.education_level is '||p_pa_request_rec.education_level,46);
1211: hr_utility.set_location('p_pa_request_rec.academic_discipline is '||p_pa_request_rec.academic_discipline,46);
1204:
1205: hr_utility.set_location(l_proc,45);
1206: hr_utility.set_location('l_education_level is '||l_education_level,46);
1207: hr_utility.set_location('l_academic_discipline is '||l_academic_discipline,47);
1208: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1209:
1210: hr_utility.set_location('p_pa_request_rec.education_level is '||p_pa_request_rec.education_level,46);
1211: hr_utility.set_location('p_pa_request_rec.academic_discipline is '||p_pa_request_rec.academic_discipline,46);
1212: hr_utility.set_location('p_pa_request_rec.year_degree_attained is '||p_pa_request_rec.year_degree_attained,46);
1206: hr_utility.set_location('l_education_level is '||l_education_level,46);
1207: hr_utility.set_location('l_academic_discipline is '||l_academic_discipline,47);
1208: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1209:
1210: hr_utility.set_location('p_pa_request_rec.education_level is '||p_pa_request_rec.education_level,46);
1211: hr_utility.set_location('p_pa_request_rec.academic_discipline is '||p_pa_request_rec.academic_discipline,46);
1212: hr_utility.set_location('p_pa_request_rec.year_degree_attained is '||p_pa_request_rec.year_degree_attained,46);
1213:
1214: If nvl(l_education_level,hr_api.g_varchar2) <> nvl(p_pa_request_rec.education_level,hr_api.g_varchar2) or
1207: hr_utility.set_location('l_academic_discipline is '||l_academic_discipline,47);
1208: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1209:
1210: hr_utility.set_location('p_pa_request_rec.education_level is '||p_pa_request_rec.education_level,46);
1211: hr_utility.set_location('p_pa_request_rec.academic_discipline is '||p_pa_request_rec.academic_discipline,46);
1212: hr_utility.set_location('p_pa_request_rec.year_degree_attained is '||p_pa_request_rec.year_degree_attained,46);
1213:
1214: If nvl(l_education_level,hr_api.g_varchar2) <> nvl(p_pa_request_rec.education_level,hr_api.g_varchar2) or
1215: nvl(l_academic_discipline,hr_api.g_varchar2) <> nvl(p_pa_request_rec.academic_discipline,hr_api.g_varchar2) or
1208: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1209:
1210: hr_utility.set_location('p_pa_request_rec.education_level is '||p_pa_request_rec.education_level,46);
1211: hr_utility.set_location('p_pa_request_rec.academic_discipline is '||p_pa_request_rec.academic_discipline,46);
1212: hr_utility.set_location('p_pa_request_rec.year_degree_attained is '||p_pa_request_rec.year_degree_attained,46);
1213:
1214: If nvl(l_education_level,hr_api.g_varchar2) <> nvl(p_pa_request_rec.education_level,hr_api.g_varchar2) or
1215: nvl(l_academic_discipline,hr_api.g_varchar2) <> nvl(p_pa_request_rec.academic_discipline,hr_api.g_varchar2) or
1216: to_char(nvl(l_year_degree_attained,hr_api.g_number)) <> to_char(nvl(p_pa_request_rec.year_degree_attained,hr_api.g_number)) then
1218: -- Commented out by skutteti for bug # 655203 as multiple occurences flag need not be checked for edu sit.
1219: -- If nvl(l_multiple,'Y') = 'Y' and l_session.noa_id_correct is null then
1220:
1221: If l_session.noa_id_correct is null or l_personal_analysis_id is null then
1222: hr_utility.set_location(l_proc,37);
1223: l_analysis_criteria_id := null;
1224: hr_sit_api.create_sit
1225: (p_person_id => p_pa_request_rec.person_id,
1226: p_business_group_id => l_business_group_id,
1244: p_segment2 => p_pa_request_rec.academic_discipline,
1245: p_segment3 => p_pa_request_rec.year_degree_attained,
1246: p_analysis_criteria_id => l_analysis_criteria_id
1247: );
1248: hr_utility.set_location(l_proc,55);
1249: End if;
1250: End if;
1251: End if;
1252: End update_edu_sit;
1524: l_np_eff_date ghr_pa_requests.effective_date%type;
1525: l_asg_ei_data per_assignment_extra_info%rowtype;
1526: Begin
1527: --
1528: hr_utility.set_location('Entering ' ||l_proc,5);
1529: hr_utility.set_location('CALL EXT INFOper_serv_oblig_flag '||p_per_service_oblig.per_service_oblig_flag,10);
1530: --
1531: -- Remember IN OUT parameter IN values
1532: --
1525: l_asg_ei_data per_assignment_extra_info%rowtype;
1526: Begin
1527: --
1528: hr_utility.set_location('Entering ' ||l_proc,5);
1529: hr_utility.set_location('CALL EXT INFOper_serv_oblig_flag '||p_per_service_oblig.per_service_oblig_flag,10);
1530: --
1531: -- Remember IN OUT parameter IN values
1532: --
1533: l_Asg_Sf52 := P_Asg_Sf52;
1563: IF P_asg_sf52.asg_sf52_flag = 'Y'
1564: OR ghr_process_sf52.g_prd is not null THEN
1565: -- FWFA Changes
1566: --
1567: hr_utility.set_location(l_proc,10);
1568: Generic_Update_Extra_Info
1569: (
1570: p_pa_request_rec => P_PA_REQUEST_REC
1571: ,p_l_information_type => 'GHR_US_ASG_SF52'
1584: End if;
1585: --
1586: If P_asg_non_sf52.asg_non_sf52_flag = 'Y' then
1587: --
1588: hr_utility.set_location(l_proc,15);
1589: Generic_Update_Extra_Info
1590: (
1591: p_pa_request_rec => P_PA_REQUEST_REC
1592: ,p_l_information_type => 'GHR_US_ASG_NON_SF52'
1608: --
1609: --Begin Bug# 8653508
1610: IF p_asg_detail_info.asg_detail_info_flag = 'Y' THEN
1611:
1612: hr_utility.set_location(l_proc,10);
1613: Generic_Update_Extra_Info
1614: (
1615: p_pa_request_rec => P_PA_REQUEST_REC
1616: ,p_l_information_type => 'GHR_US_ASG_DET_INFO'
1632: );
1633: End if;
1634: --End Bug# 8653508
1635:
1636: hr_utility.set_location('NTE DATES FLAG ' || p_asg_nte_dates.asg_nte_dates_flag,1);
1637: If p_asg_nte_dates.asg_nte_dates_flag = 'Y' then
1638: --
1639: --
1640:
1640:
1641: IF (p_pa_request_rec.noa_family_code = 'RETURN_TO_DUTY') THEN
1642: /* For PAR_ASG in Cur_Par_Asg(p_pa_request_rec.employee_national_identifier)
1643: Loop
1644: hr_utility.trace('Inside EMP SSN CURSOR');
1645: l_noa_code := PAR_ASG.first_noa_code;
1646: End Loop;
1647:
1648: hr_utility.set_location('NOA Code for NTE' || l_noa_code , 38);
1644: hr_utility.trace('Inside EMP SSN CURSOR');
1645: l_noa_code := PAR_ASG.first_noa_code;
1646: End Loop;
1647:
1648: hr_utility.set_location('NOA Code for NTE' || l_noa_code , 38);
1649: FOR NTE_Dates_rec in Cur_NTE_Dates(p_pa_request_rec.employee_national_identifier,l_noa_code) LOOP
1650: l_NTE_Dates := NTE_Dates_rec.NTE_Dates;
1651: END LOOP; */
1652: -- Above Commented by Sundar Replaced it by the below code - Bug 3390876
1680: END IF;
1681: END IF;
1682: --
1683: --
1684: hr_utility.set_location(l_proc,20);
1685: Generic_Update_Extra_Info
1686: (
1687: p_pa_request_rec => P_PA_REQUEST_REC
1688: ,p_l_information_type => 'GHR_US_ASG_NTE_DATES'
1709: --
1710: --
1711: If p_per_sf52.per_sf52_flag = 'Y' then
1712: --
1713: hr_utility.set_location(l_proc,30);
1714: Generic_Update_Extra_Info
1715: (
1716: p_pa_request_rec => P_PA_REQUEST_REC
1717: ,p_l_information_type => 'GHR_US_PER_SF52'
1767:
1768: ---------------------------------------------------------------------------------- code added for 1274541
1769:
1770:
1771: hr_utility.set_location(l_proc,35);
1772: Generic_Update_Extra_Info
1773: (
1774: p_pa_request_rec => P_PA_REQUEST_REC
1775: ,p_l_information_type => 'GHR_US_PER_GROUP1'
1804: --Bug #14276354 removed the comments as we need to update Pathways segments
1805:
1806: If p_per_group2.per_group2_flag = 'Y' then
1807:
1808: hr_utility.set_location(l_proc,40);
1809: Generic_Update_Extra_Info
1810: (
1811: p_pa_request_rec => P_PA_REQUEST_REC
1812: ,p_l_information_type => 'GHR_US_PER_GROUP2'
1829:
1830: --
1831: If p_per_scd_info.per_scd_info_flag = 'Y' then
1832: --
1833: hr_utility.set_location(l_proc,45);
1834: --Bug# 12596901
1835: --Begin Bug# 12557463, commented changes done for bug 12596901
1836: --IF (p_pa_request_rec.noa_family_code = 'CHG_SCD') THEN
1837:
1884: end if;
1885: --
1886: If p_per_probations.per_probation_flag = 'Y' then
1887: --
1888: hr_utility.set_location(l_proc,50);
1889:
1890: Generic_Update_Extra_Info
1891: (
1892: p_pa_request_rec => P_PA_REQUEST_REC
1913: -- added for 3267632
1914: --
1915: If p_per_sep_retire.per_sep_retire_flag = 'Y' then
1916: --
1917: hr_utility.set_location(l_proc,55);
1918: Generic_Update_Extra_Info
1919: (
1920: p_pa_request_rec => P_PA_REQUEST_REC
1921: ,p_l_information_type => 'GHR_US_PER_SEPARATE_RETIRE'
1944: /* Note : Since none of this data is currently being updated, why call the generic_update at all ??? */
1945:
1946: /*If p_per_security.per_security_flag = 'Y' then
1947: --
1948: hr_utility.set_location(l_proc,60);
1949: Generic_Update_Extra_Info(
1950: p_pa_request_rec => P_PA_REQUEST_REC
1951: ,p_l_information_type => 'GHR_US_PER_SECURITY'
1952: ,p_extra_info_id => p_per_security.person_extra_info_id
1961: );
1962: --
1963: end if;
1964: */
1965: hr_utility.set_location('2. CALL EXT INFOper_serv_oblig_flag '||p_per_service_oblig.per_service_oblig_flag,20);
1966: -- Bug#4486823 RRR Changes
1967: IF p_per_service_oblig.per_service_oblig_flag = 'Y' THEN
1968: --
1969: hr_utility.set_location('NAR'||l_proc,60);
1965: hr_utility.set_location('2. CALL EXT INFOper_serv_oblig_flag '||p_per_service_oblig.per_service_oblig_flag,20);
1966: -- Bug#4486823 RRR Changes
1967: IF p_per_service_oblig.per_service_oblig_flag = 'Y' THEN
1968: --
1969: hr_utility.set_location('NAR'||l_proc,60);
1970: Generic_Update_Extra_Info(
1971: p_pa_request_rec => P_PA_REQUEST_REC
1972: ,p_l_information_type => 'GHR_US_PER_SERVICE_OBLIGATION'
1973: ,p_extra_info_id => p_per_service_oblig.person_extra_info_id
1981: --
1982: -- Added for a patch -- ( for the enhancement)
1983: If p_per_conversions.per_conversions_flag = 'Y' then
1984: --
1985: hr_utility.set_location(l_proc,65);
1986:
1987: Generic_Update_Extra_Info
1988: (
1989: p_pa_request_rec => P_PA_REQUEST_REC
2001: --
2002: -- BEN_EIT Changes
2003: If p_per_benefit_info.per_benefit_info_flag = 'Y' then
2004: --
2005: hr_utility.set_location(l_proc,65);
2006:
2007: Generic_Update_Extra_Info
2008: (
2009: p_pa_request_rec => P_PA_REQUEST_REC
2034:
2035: -- Race or National Origin changes
2036: If p_per_race_ethnic_info.p_race_ethnic_info_flag = 'Y' then
2037: --
2038: hr_utility.set_location(l_proc,68);
2039:
2040: Generic_Update_Extra_Info
2041: (
2042: p_pa_request_rec => P_PA_REQUEST_REC
2057:
2058: --
2059: If p_per_uniformed_services.per_uniformed_services_flag = 'Y' then
2060: --
2061: hr_utility.set_location(l_proc,70);
2062:
2063: Generic_Update_Extra_Info
2064: (
2065: p_pa_request_rec => P_PA_REQUEST_REC
2080: end if;
2081: --
2082: If p_pos_valid_grade.pos_valid_grade_flag = 'Y' then
2083: --
2084: hr_utility.set_location(l_proc,75);
2085: --Begin Bug 5919705
2086: FOR p_cur_grd1 in cur_grd1 LOOP
2087: l_grade_or_level := p_cur_grd1.grade_or_level;
2088: l_pay_plan := p_cur_grd1.pay_plan;
2132: --
2133:
2134: If p_Pos_grp1.pos_grp1_flag = 'Y' then
2135: --
2136: hr_utility.set_location(l_proc,80);
2137: hr_utility.set_location('bef upd ' || 'PEID' || to_char(p_pos_grp1.position_extra_info_id),1);
2138: hr_utility.set_location('bef upd ' || 'PEOVN' || to_char(p_pos_grp1.object_version_number),1);
2139:
2140: -- JH Include WS/PTH if To Position PM is UE or APUE and to_posn <> from_posn. Bug 773851
2133:
2134: If p_Pos_grp1.pos_grp1_flag = 'Y' then
2135: --
2136: hr_utility.set_location(l_proc,80);
2137: hr_utility.set_location('bef upd ' || 'PEID' || to_char(p_pos_grp1.position_extra_info_id),1);
2138: hr_utility.set_location('bef upd ' || 'PEOVN' || to_char(p_pos_grp1.object_version_number),1);
2139:
2140: -- JH Include WS/PTH if To Position PM is UE or APUE and to_posn <> from_posn. Bug 773851
2141: -- Bug 2462929 If WS pm in APUE or UE then update WS/PTH.
2134: If p_Pos_grp1.pos_grp1_flag = 'Y' then
2135: --
2136: hr_utility.set_location(l_proc,80);
2137: hr_utility.set_location('bef upd ' || 'PEID' || to_char(p_pos_grp1.position_extra_info_id),1);
2138: hr_utility.set_location('bef upd ' || 'PEOVN' || to_char(p_pos_grp1.object_version_number),1);
2139:
2140: -- JH Include WS/PTH if To Position PM is UE or APUE and to_posn <> from_posn. Bug 773851
2141: -- Bug 2462929 If WS pm in APUE or UE then update WS/PTH.
2142: hr_utility.set_location('To Posn ID ' || p_pa_request_rec.to_position_id ,81);
2138: hr_utility.set_location('bef upd ' || 'PEOVN' || to_char(p_pos_grp1.object_version_number),1);
2139:
2140: -- JH Include WS/PTH if To Position PM is UE or APUE and to_posn <> from_posn. Bug 773851
2141: -- Bug 2462929 If WS pm in APUE or UE then update WS/PTH.
2142: hr_utility.set_location('To Posn ID ' || p_pa_request_rec.to_position_id ,81);
2143: hr_utility.set_location('From Posn ID ' || p_pa_request_rec.from_position_id ,81);
2144:
2145: l_form_field_name := 'TO_POSITION_TITLE';
2146: FOR pm_rec in get_to_posn_title_pm LOOP
2139:
2140: -- JH Include WS/PTH if To Position PM is UE or APUE and to_posn <> from_posn. Bug 773851
2141: -- Bug 2462929 If WS pm in APUE or UE then update WS/PTH.
2142: hr_utility.set_location('To Posn ID ' || p_pa_request_rec.to_position_id ,81);
2143: hr_utility.set_location('From Posn ID ' || p_pa_request_rec.from_position_id ,81);
2144:
2145: l_form_field_name := 'TO_POSITION_TITLE';
2146: FOR pm_rec in get_to_posn_title_pm LOOP
2147: l_posn_title_pm := pm_rec.process_method_code;
2151: FOR pm_rec in get_to_posn_title_pm LOOP
2152: l_WS_pm := pm_rec.process_method_code;
2153: END Loop;
2154:
2155: hr_utility.set_location('To Posn PM ' || l_posn_title_pm ,81);
2156: IF p_pa_request_rec.to_position_id IS NOT NULL AND l_posn_title_pm in ('APUE','UE')
2157: AND nvl(p_pa_request_rec.to_position_id,hr_api.g_number) <>
2158: nvl(p_pa_request_rec.from_position_id,hr_api.g_number)
2159: OR p_pa_request_rec.to_position_id IS NOT NULL AND l_WS_pm in ('APUE','UE')
2159: OR p_pa_request_rec.to_position_id IS NOT NULL AND l_WS_pm in ('APUE','UE')
2160: OR nvl(p_pa_request_rec.first_noa_code,hr_api.g_number) = '782'
2161: OR nvl(p_pa_request_rec.second_noa_code,hr_api.g_number) = '782'
2162: THEN
2163: hr_utility.set_location('Posn Update With WS/PTH' || l_posn_title_pm ,81);
2164:
2165: ---------------------------- bug#2623692
2166:
2167: if( p_pos_grp1.organization_structure_id is null) then
2220: ,p_information23 => p_pos_grp1.part_time_hours
2221: );
2222: ELSE
2223: -- Standard Update
2224: hr_utility.set_location('Posn Update Without WS/PTH' || l_posn_title_pm ,81);
2225: Generic_Update_Extra_Info
2226: (p_pa_request_rec => P_PA_REQUEST_REC
2227: ,p_l_information_type => 'GHR_US_POS_GRP1'
2228: ,p_extra_info_id => p_pos_grp1.position_extra_info_id
2255: end if;
2256:
2257: If p_pos_grp2.pos_grp2_flag = 'Y' then
2258: --
2259: hr_utility.set_location('bef upd ' || 'PEID 2 ' || to_char(p_pos_grp2.position_extra_info_id),1);
2260: hr_utility.set_location('bef upd ' || 'PEOVN 2' || to_char(p_pos_grp2.object_version_number),1);
2261:
2262: Generic_Update_Extra_Info
2263: (
2256:
2257: If p_pos_grp2.pos_grp2_flag = 'Y' then
2258: --
2259: hr_utility.set_location('bef upd ' || 'PEID 2 ' || to_char(p_pos_grp2.position_extra_info_id),1);
2260: hr_utility.set_location('bef upd ' || 'PEOVN 2' || to_char(p_pos_grp2.object_version_number),1);
2261:
2262: Generic_Update_Extra_Info
2263: (
2264: p_pa_request_rec => P_PA_REQUEST_REC
2287:
2288: /*
2289: If p_pos_oblig.pos_oblig_flag = 'Y' then
2290: --
2291: hr_utility.set_location(l_proc,90);
2292: Generic_Update_Extra_Info
2293: (
2294: p_pa_request_rec => P_PA_REQUEST_REC
2295: ,p_l_information_type => 'GHR_US_POS_OBLIG'
2308:
2309: /*
2310: If p_pos_car_prog.pos_car_prog_flag = 'Y' then
2311: --
2312: hr_utility.set_location(l_proc,95);
2313: Generic_Update_Extra_Info(
2314: p_pa_request_rec => P_PA_REQUEST_REC
2315: ,p_l_information_type => 'GHR_US_POS_CAR_PROG'
2316: ,p_extra_info_id => p_pos_car_prog.position_extra_info_id
2324: --
2325: end if;
2326: */
2327:
2328: hr_utility.set_location(l_proc,100);
2329:
2330:
2331: -- Bug # 6312144 changes related to benefits continuation
2332: If p_ipa_benefits_cont.per_ben_cont_info_flag = 'Y' then
2329:
2330:
2331: -- Bug # 6312144 changes related to benefits continuation
2332: If p_ipa_benefits_cont.per_ben_cont_info_flag = 'Y' then
2333: hr_utility.set_location(l_proc,65);
2334:
2335: Generic_Update_Extra_Info
2336: (
2337: p_pa_request_rec => P_PA_REQUEST_REC
2354: End IF;
2355:
2356: -- Bug # 6312144 changes related to retirement system information
2357: If p_retirement_info.per_retirement_info_flag = 'Y' then
2358: hr_utility.set_location(l_proc,65);
2359:
2360: Generic_Update_Extra_Info
2361: (
2362: p_pa_request_rec => P_PA_REQUEST_REC
2377: If p_pa_request_rec.education_level is not null or
2378: p_pa_request_rec.academic_discipline is not null or
2379: p_pa_request_rec.year_degree_attained is not null then
2380:
2381: hr_utility.set_location(l_proc,102);
2382: update_edu_sit(p_pa_request_rec => p_pa_request_rec);
2383:
2384: End if;
2385:
2387: -- Call special info type api to update performance_appraisal details
2388: --
2389: If p_perf_appraisal.perf_appr_flag = 'Y' then
2390:
2391: hr_utility.set_location(l_proc,104);
2392: l_segment_rec.segment1 := p_perf_appraisal.appraisal_type;
2393: l_segment_rec.segment2 := p_perf_appraisal.rating_rec;
2394: l_segment_rec.segment3 := p_perf_appraisal.date_effective;
2395: l_segment_rec.segment4 := p_perf_appraisal.rating_rec_pattern;
2409: l_segment_rec.person_analysis_id := p_perf_appraisal.person_analysis_id;
2410: l_segment_rec.object_version_number := p_perf_appraisal.object_version_number;
2411: l_segment_rec.segment16 := p_perf_appraisal.performance_rating_points;
2412:
2413: hr_utility.set_location(l_proc||' l_segment_rec.segment16 '|| l_segment_rec.segment16,101);
2414:
2415: generic_update_sit
2416: (p_segment_rec => l_segment_rec,
2417: p_special_information_type => 'US Fed Perf Appraisal',
2451: (p_pa_request_rec => p_pa_request_rec,
2452: p_per_retained_grade => p_per_retained_grade );
2453: --
2454: --
2455: hr_utility.set_location('Leaving ' || l_proc,110);
2456: Exception when others then
2457: --
2458: -- Reset IN OUT parameters and set OUT parameters
2459: --
2673: ELSIF p_noa_code in ('132') THEN
2674: FOR l_cur_get_app_type IN cur_get_app_type LOOP
2675: l_appointment_type := l_cur_get_app_type.appointment_type;
2676: END LOOP;
2677: hr_utility.set_location('Appointment Type ' || l_appointment_type,11);
2678: IF l_appointment_type IN ('20','40','41','42','43','44','45','46','47','48') THEN
2679: l_system_status := 'ACTIVE_ASSIGN';
2680: l_user_status := 'Temp. Appointment NTE';
2681: p_activate_flag := 'Y';
2802: end if;
2803: end if;
2804: If l_system_status is not null and
2805: l_user_status is not null then
2806: hr_utility.set_location('user_status ' || l_user_status,1);
2807: hr_utility.set_location('System status ' || l_system_status,2);
2808: If p_noa_code = '471' then
2809: ----------- changed cursor name from c_Asg_status_type to c_Asg_status_type_471 for bug#2139010
2810: for asg_status_type_471 in c_asg_status_type_471 loop
2803: end if;
2804: If l_system_status is not null and
2805: l_user_status is not null then
2806: hr_utility.set_location('user_status ' || l_user_status,1);
2807: hr_utility.set_location('System status ' || l_system_status,2);
2808: If p_noa_code = '471' then
2809: ----------- changed cursor name from c_Asg_status_type to c_Asg_status_type_471 for bug#2139010
2810: for asg_status_type_471 in c_asg_status_type_471 loop
2811: l_asg_status_type_id := asg_status_type_471.assignment_status_type_id;
2817: l_active_flag := asg_status_type.active_flag;
2818: end loop;
2819: End if;
2820: If l_asg_status_type_id is null then
2821: hr_utility.set_message(8301,'GHR_38180_STATUS_TYPE_UNDEF');
2822: hr_utility.raise_error;
2823: End if;
2824: If l_active_flag = 'N' then
2825: hr_utility.set_message(8301,'GHR_38181_STATUS_TYPE_INACTIVE');
2818: end loop;
2819: End if;
2820: If l_asg_status_type_id is null then
2821: hr_utility.set_message(8301,'GHR_38180_STATUS_TYPE_UNDEF');
2822: hr_utility.raise_error;
2823: End if;
2824: If l_active_flag = 'N' then
2825: hr_utility.set_message(8301,'GHR_38181_STATUS_TYPE_INACTIVE');
2826: hr_utility.raise_error;
2821: hr_utility.set_message(8301,'GHR_38180_STATUS_TYPE_UNDEF');
2822: hr_utility.raise_error;
2823: End if;
2824: If l_active_flag = 'N' then
2825: hr_utility.set_message(8301,'GHR_38181_STATUS_TYPE_INACTIVE');
2826: hr_utility.raise_error;
2827: End if;
2828: End if;
2829: p_status_type_id := l_asg_status_type_id;
2822: hr_utility.raise_error;
2823: End if;
2824: If l_active_flag = 'N' then
2825: hr_utility.set_message(8301,'GHR_38181_STATUS_TYPE_INACTIVE');
2826: hr_utility.raise_error;
2827: End if;
2828: End if;
2829: p_status_type_id := l_asg_status_type_id;
2830: Exception when others then
2913: and p_effective_date < pos.effective_start_date;
2914:
2915:
2916: Begin
2917: hr_utility.set_location('Entering ' || l_proc,5);
2918: If p_table_name = 'PER_PEOPLE_F' then --per
2919: hr_utility.set_location(l_proc,10);
2920: for update_mode in c_update_mode_p loop
2921: hr_utility.set_location(l_proc,15);
2915:
2916: Begin
2917: hr_utility.set_location('Entering ' || l_proc,5);
2918: If p_table_name = 'PER_PEOPLE_F' then --per
2919: hr_utility.set_location(l_proc,10);
2920: for update_mode in c_update_mode_p loop
2921: hr_utility.set_location(l_proc,15);
2922: l_esd := update_mode.effective_start_date;
2923: l_eed := update_mode.effective_end_date;
2917: hr_utility.set_location('Entering ' || l_proc,5);
2918: If p_table_name = 'PER_PEOPLE_F' then --per
2919: hr_utility.set_location(l_proc,10);
2920: for update_mode in c_update_mode_p loop
2921: hr_utility.set_location(l_proc,15);
2922: l_esd := update_mode.effective_start_date;
2923: l_eed := update_mode.effective_end_date;
2924: end loop;
2925: hr_utility.set_location(l_proc,20);
2921: hr_utility.set_location(l_proc,15);
2922: l_esd := update_mode.effective_start_date;
2923: l_eed := update_mode.effective_end_date;
2924: end loop;
2925: hr_utility.set_location(l_proc,20);
2926: If l_esd = p_effective_date then
2927: hr_utility.set_location(l_proc,25);
2928: l_mode := 'CORRECTION';
2929: Elsif l_esd < p_effective_date and
2923: l_eed := update_mode.effective_end_date;
2924: end loop;
2925: hr_utility.set_location(l_proc,20);
2926: If l_esd = p_effective_date then
2927: hr_utility.set_location(l_proc,25);
2928: l_mode := 'CORRECTION';
2929: Elsif l_esd < p_effective_date and
2930: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2931: hr_utility.set_location(l_proc,30);
2927: hr_utility.set_location(l_proc,25);
2928: l_mode := 'CORRECTION';
2929: Elsif l_esd < p_effective_date and
2930: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2931: hr_utility.set_location(l_proc,30);
2932: l_mode := 'UPDATE';
2933: -- end if;
2934: Elsif l_esd < p_effective_date then
2935: hr_utility.set_location(l_proc,35);
2931: hr_utility.set_location(l_proc,30);
2932: l_mode := 'UPDATE';
2933: -- end if;
2934: Elsif l_esd < p_effective_date then
2935: hr_utility.set_location(l_proc,35);
2936: for update_mode1 in c_update_mode_p1 loop
2937: hr_utility.set_location(l_proc,40);
2938: l_exists := true;
2939: exit;
2933: -- end if;
2934: Elsif l_esd < p_effective_date then
2935: hr_utility.set_location(l_proc,35);
2936: for update_mode1 in c_update_mode_p1 loop
2937: hr_utility.set_location(l_proc,40);
2938: l_exists := true;
2939: exit;
2940: end loop;
2941: If l_exists then
2938: l_exists := true;
2939: exit;
2940: end loop;
2941: If l_exists then
2942: hr_utility.set_location(l_proc,45);
2943: l_mode := 'UPDATE_CHANGE_INSERT';
2944: Else
2945: hr_utility.set_location(l_proc,50);
2946: l_mode := 'CORRECTION';
2941: If l_exists then
2942: hr_utility.set_location(l_proc,45);
2943: l_mode := 'UPDATE_CHANGE_INSERT';
2944: Else
2945: hr_utility.set_location(l_proc,50);
2946: l_mode := 'CORRECTION';
2947: End if;
2948: End if;
2949: If l_mode is null then
2946: l_mode := 'CORRECTION';
2947: End if;
2948: End if;
2949: If l_mode is null then
2950: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2951: hr_utility.set_message_token('TABLE_NAME','per_people_f');
2952: hr_utility.raise_error;
2953: End if;
2954: hr_utility.set_location(l_proc,55);
2947: End if;
2948: End if;
2949: If l_mode is null then
2950: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2951: hr_utility.set_message_token('TABLE_NAME','per_people_f');
2952: hr_utility.raise_error;
2953: End if;
2954: hr_utility.set_location(l_proc,55);
2955: Elsif p_table_name = 'PER_ASSIGNMENTS_F' then
2948: End if;
2949: If l_mode is null then
2950: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2951: hr_utility.set_message_token('TABLE_NAME','per_people_f');
2952: hr_utility.raise_error;
2953: End if;
2954: hr_utility.set_location(l_proc,55);
2955: Elsif p_table_name = 'PER_ASSIGNMENTS_F' then
2956: hr_utility.set_location(l_proc,60);
2950: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2951: hr_utility.set_message_token('TABLE_NAME','per_people_f');
2952: hr_utility.raise_error;
2953: End if;
2954: hr_utility.set_location(l_proc,55);
2955: Elsif p_table_name = 'PER_ASSIGNMENTS_F' then
2956: hr_utility.set_location(l_proc,60);
2957: for update_mode in c_update_mode_a loop
2958: hr_utility.set_location(l_proc,65);
2952: hr_utility.raise_error;
2953: End if;
2954: hr_utility.set_location(l_proc,55);
2955: Elsif p_table_name = 'PER_ASSIGNMENTS_F' then
2956: hr_utility.set_location(l_proc,60);
2957: for update_mode in c_update_mode_a loop
2958: hr_utility.set_location(l_proc,65);
2959: l_esd := update_mode.effective_start_date;
2960: l_eed := update_mode.effective_end_date;
2954: hr_utility.set_location(l_proc,55);
2955: Elsif p_table_name = 'PER_ASSIGNMENTS_F' then
2956: hr_utility.set_location(l_proc,60);
2957: for update_mode in c_update_mode_a loop
2958: hr_utility.set_location(l_proc,65);
2959: l_esd := update_mode.effective_start_date;
2960: l_eed := update_mode.effective_end_date;
2961: end loop;
2962: If l_esd = p_effective_date then
2959: l_esd := update_mode.effective_start_date;
2960: l_eed := update_mode.effective_end_date;
2961: end loop;
2962: If l_esd = p_effective_date then
2963: hr_utility.set_location(l_proc,70);
2964: l_mode := 'CORRECTION';
2965: Elsif l_esd < p_effective_date and
2966: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2967: hr_utility.set_location(l_proc,75);
2963: hr_utility.set_location(l_proc,70);
2964: l_mode := 'CORRECTION';
2965: Elsif l_esd < p_effective_date and
2966: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2967: hr_utility.set_location(l_proc,75);
2968: l_mode := 'UPDATE'; -- to end date a row and then create a new row
2969: Elsif l_esd < p_effective_date then
2970: hr_utility.set_location(l_proc,80);
2971: for update_mode1 in c_update_mode_a1 loop
2966: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2967: hr_utility.set_location(l_proc,75);
2968: l_mode := 'UPDATE'; -- to end date a row and then create a new row
2969: Elsif l_esd < p_effective_date then
2970: hr_utility.set_location(l_proc,80);
2971: for update_mode1 in c_update_mode_a1 loop
2972: hr_utility.set_location(l_proc,85);
2973: l_exists := true;
2974: exit;
2968: l_mode := 'UPDATE'; -- to end date a row and then create a new row
2969: Elsif l_esd < p_effective_date then
2970: hr_utility.set_location(l_proc,80);
2971: for update_mode1 in c_update_mode_a1 loop
2972: hr_utility.set_location(l_proc,85);
2973: l_exists := true;
2974: exit;
2975: end loop;
2976: If l_exists then
2973: l_exists := true;
2974: exit;
2975: end loop;
2976: If l_exists then
2977: hr_utility.set_location(l_proc,90);
2978: l_mode := 'UPDATE_CHANGE_INSERT'; -- to insert a row between 2 existing rows
2979: Else
2980: hr_utility.set_location(l_proc,95);
2981: l_mode := 'CORRECTION';
2976: If l_exists then
2977: hr_utility.set_location(l_proc,90);
2978: l_mode := 'UPDATE_CHANGE_INSERT'; -- to insert a row between 2 existing rows
2979: Else
2980: hr_utility.set_location(l_proc,95);
2981: l_mode := 'CORRECTION';
2982: End if;
2983: hr_utility.set_location(l_proc,100);
2984: End if;
2979: Else
2980: hr_utility.set_location(l_proc,95);
2981: l_mode := 'CORRECTION';
2982: End if;
2983: hr_utility.set_location(l_proc,100);
2984: End if;
2985: hr_utility.set_location(l_proc,105);
2986: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2987: If l_mode is null then
2981: l_mode := 'CORRECTION';
2982: End if;
2983: hr_utility.set_location(l_proc,100);
2984: End if;
2985: hr_utility.set_location(l_proc,105);
2986: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2987: If l_mode is null then
2988: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2989: hr_utility.set_message_token('TABLE_NAME','per_assignments_f');
2982: End if;
2983: hr_utility.set_location(l_proc,100);
2984: End if;
2985: hr_utility.set_location(l_proc,105);
2986: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2987: If l_mode is null then
2988: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2989: hr_utility.set_message_token('TABLE_NAME','per_assignments_f');
2990: hr_utility.raise_error;
2984: End if;
2985: hr_utility.set_location(l_proc,105);
2986: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2987: If l_mode is null then
2988: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2989: hr_utility.set_message_token('TABLE_NAME','per_assignments_f');
2990: hr_utility.raise_error;
2991: End if;
2992: Elsif p_table_name = 'HR_ALL_POSITIONS_F' then
2985: hr_utility.set_location(l_proc,105);
2986: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2987: If l_mode is null then
2988: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2989: hr_utility.set_message_token('TABLE_NAME','per_assignments_f');
2990: hr_utility.raise_error;
2991: End if;
2992: Elsif p_table_name = 'HR_ALL_POSITIONS_F' then
2993: hr_utility.set_location(l_proc,110);
2986: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2987: If l_mode is null then
2988: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2989: hr_utility.set_message_token('TABLE_NAME','per_assignments_f');
2990: hr_utility.raise_error;
2991: End if;
2992: Elsif p_table_name = 'HR_ALL_POSITIONS_F' then
2993: hr_utility.set_location(l_proc,110);
2994: for update_mode in c_update_mode_pos loop
2989: hr_utility.set_message_token('TABLE_NAME','per_assignments_f');
2990: hr_utility.raise_error;
2991: End if;
2992: Elsif p_table_name = 'HR_ALL_POSITIONS_F' then
2993: hr_utility.set_location(l_proc,110);
2994: for update_mode in c_update_mode_pos loop
2995: hr_utility.set_location(l_proc,115);
2996: l_esd := update_mode.effective_start_date;
2997: l_eed := update_mode.effective_end_date;
2991: End if;
2992: Elsif p_table_name = 'HR_ALL_POSITIONS_F' then
2993: hr_utility.set_location(l_proc,110);
2994: for update_mode in c_update_mode_pos loop
2995: hr_utility.set_location(l_proc,115);
2996: l_esd := update_mode.effective_start_date;
2997: l_eed := update_mode.effective_end_date;
2998: end loop;
2999: If l_esd = p_effective_date then
2996: l_esd := update_mode.effective_start_date;
2997: l_eed := update_mode.effective_end_date;
2998: end loop;
2999: If l_esd = p_effective_date then
3000: hr_utility.set_location(l_proc,120);
3001: l_mode := 'CORRECTION';
3002: Elsif l_esd < p_effective_date and
3003: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
3004: hr_utility.set_location(l_proc,125);
3000: hr_utility.set_location(l_proc,120);
3001: l_mode := 'CORRECTION';
3002: Elsif l_esd < p_effective_date and
3003: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
3004: hr_utility.set_location(l_proc,125);
3005: l_mode := 'UPDATE'; -- to end date a row and then create a new row
3006: Elsif l_esd < p_effective_date then
3007: hr_utility.set_location(l_proc,130);
3008: for update_mode1 in c_update_mode_pos1 loop
3003: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
3004: hr_utility.set_location(l_proc,125);
3005: l_mode := 'UPDATE'; -- to end date a row and then create a new row
3006: Elsif l_esd < p_effective_date then
3007: hr_utility.set_location(l_proc,130);
3008: for update_mode1 in c_update_mode_pos1 loop
3009: hr_utility.set_location(l_proc,135);
3010: l_exists := true;
3011: exit;
3005: l_mode := 'UPDATE'; -- to end date a row and then create a new row
3006: Elsif l_esd < p_effective_date then
3007: hr_utility.set_location(l_proc,130);
3008: for update_mode1 in c_update_mode_pos1 loop
3009: hr_utility.set_location(l_proc,135);
3010: l_exists := true;
3011: exit;
3012: end loop;
3013: If l_exists then
3010: l_exists := true;
3011: exit;
3012: end loop;
3013: If l_exists then
3014: hr_utility.set_location(l_proc,140);
3015: l_mode := 'UPDATE_CHANGE_INSERT'; -- to insert a row between 2 existing rows
3016: Else
3017: hr_utility.set_location(l_proc,145);
3018: l_mode := 'CORRECTION';
3013: If l_exists then
3014: hr_utility.set_location(l_proc,140);
3015: l_mode := 'UPDATE_CHANGE_INSERT'; -- to insert a row between 2 existing rows
3016: Else
3017: hr_utility.set_location(l_proc,145);
3018: l_mode := 'CORRECTION';
3019: End if;
3020: hr_utility.set_location(l_proc,150);
3021: End if;
3016: Else
3017: hr_utility.set_location(l_proc,145);
3018: l_mode := 'CORRECTION';
3019: End if;
3020: hr_utility.set_location(l_proc,150);
3021: End if;
3022: hr_utility.set_location(l_proc,155);
3023: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
3024: If l_mode is null then
3018: l_mode := 'CORRECTION';
3019: End if;
3020: hr_utility.set_location(l_proc,150);
3021: End if;
3022: hr_utility.set_location(l_proc,155);
3023: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
3024: If l_mode is null then
3025: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
3026: hr_utility.set_message_token('TABLE_NAME','HR_ALL_POSITIONS_F');
3019: End if;
3020: hr_utility.set_location(l_proc,150);
3021: End if;
3022: hr_utility.set_location(l_proc,155);
3023: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
3024: If l_mode is null then
3025: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
3026: hr_utility.set_message_token('TABLE_NAME','HR_ALL_POSITIONS_F');
3027: hr_utility.raise_error;
3021: End if;
3022: hr_utility.set_location(l_proc,155);
3023: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
3024: If l_mode is null then
3025: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
3026: hr_utility.set_message_token('TABLE_NAME','HR_ALL_POSITIONS_F');
3027: hr_utility.raise_error;
3028: End if;
3029: End if;
3022: hr_utility.set_location(l_proc,155);
3023: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
3024: If l_mode is null then
3025: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
3026: hr_utility.set_message_token('TABLE_NAME','HR_ALL_POSITIONS_F');
3027: hr_utility.raise_error;
3028: End if;
3029: End if;
3030: return l_mode;
3023: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
3024: If l_mode is null then
3025: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
3026: hr_utility.set_message_token('TABLE_NAME','HR_ALL_POSITIONS_F');
3027: hr_utility.raise_error;
3028: End if;
3029: End if;
3030: return l_mode;
3031: hr_utility.set_location('Leaving ' ||l_proc,160);
3027: hr_utility.raise_error;
3028: End if;
3029: End if;
3030: return l_mode;
3031: hr_utility.set_location('Leaving ' ||l_proc,160);
3032: End return_update_mode;
3033:
3034:
3035:
3699: --
3700: l_pa_request_rec := p_pa_request_rec;
3701:
3702: g_effective_date := nvl(p_pa_request_rec.effective_date,sysdate);
3703: hr_utility.set_location('g_eff_date ' || to_char(g_effective_date),1);
3704:
3705: -- if Realignment then change the organization name in position
3706: if p_pa_request_rec.first_noa_code = '790' then
3707: l_position_data_rec_type.position_id := p_pa_request_rec.to_position_id;
3707: l_position_data_rec_type.position_id := p_pa_request_rec.to_position_id;
3708: l_position_data_rec_type.organization_id := p_pa_request_rec.to_organization_id;
3709: l_position_data_rec_type.agency_code_subelement := p_agency_code;
3710: l_position_data_rec_type.effective_date := g_effective_date;
3711: hr_utility.set_location('realign -pos ' || p_pa_request_rec.to_organization_id,1);
3712: ----l_position_data_rec_type.datetrack_mode := return_update_mode
3713: ---- (p_id => p_pa_request_rec.to_position_id,
3714: ---- p_effective_date => p_pa_request_rec.effective_date,
3715: ---- p_table_name => 'HR_ALL_POSITIONS_F'
3736: end if;
3737:
3738: -- Start Inserting AAA Remark
3739:
3740: hr_utility.set_location('Before the Remark creation - From PB '||p_pa_request_rec.from_pay_basis,3);
3741: hr_utility.set_location('Before the Remark creation - To PB '||p_pa_request_rec.to_pay_basis,3);
3742: hr_utility.set_location('Before the Remark creation - PRD '||p_pa_request_rec.pay_rate_determinant,3);
3743:
3744: IF p_pa_request_rec.from_pay_basis <> p_pa_request_rec.to_pay_basis and
3737:
3738: -- Start Inserting AAA Remark
3739:
3740: hr_utility.set_location('Before the Remark creation - From PB '||p_pa_request_rec.from_pay_basis,3);
3741: hr_utility.set_location('Before the Remark creation - To PB '||p_pa_request_rec.to_pay_basis,3);
3742: hr_utility.set_location('Before the Remark creation - PRD '||p_pa_request_rec.pay_rate_determinant,3);
3743:
3744: IF p_pa_request_rec.from_pay_basis <> p_pa_request_rec.to_pay_basis and
3745: p_pa_request_rec.pay_rate_determinant in ('A','B','E','F','U','V') THEN
3738: -- Start Inserting AAA Remark
3739:
3740: hr_utility.set_location('Before the Remark creation - From PB '||p_pa_request_rec.from_pay_basis,3);
3741: hr_utility.set_location('Before the Remark creation - To PB '||p_pa_request_rec.to_pay_basis,3);
3742: hr_utility.set_location('Before the Remark creation - PRD '||p_pa_request_rec.pay_rate_determinant,3);
3743:
3744: IF p_pa_request_rec.from_pay_basis <> p_pa_request_rec.to_pay_basis and
3745: p_pa_request_rec.pay_rate_determinant in ('A','B','E','F','U','V') THEN
3746:
3743:
3744: IF p_pa_request_rec.from_pay_basis <> p_pa_request_rec.to_pay_basis and
3745: p_pa_request_rec.pay_rate_determinant in ('A','B','E','F','U','V') THEN
3746:
3747: hr_utility.set_location('Inside the Remark creation ',3);
3748: ghr_mass_actions_pkg.get_remark_id_desc
3749: (p_remark_code => 'AAA',
3750: p_effective_date => g_effective_date,
3751: p_remark_id => l_remark_id,
3761: P_PA_REMARK_ID => l_pa_remark_id,
3762: p_OBJECT_VERSION_NUMBER => l_rem_ovn
3763: );
3764: END IF;
3765: hr_utility.set_location('Passed Remark creation ',5);
3766: -- End Inserting AAA Remark
3767:
3768: -- Start Populating BBB Remark
3769: IF p_pa_request_rec.first_noa_code = '850' THEN
3766: -- End Inserting AAA Remark
3767:
3768: -- Start Populating BBB Remark
3769: IF p_pa_request_rec.first_noa_code = '850' THEN
3770: hr_utility.set_location('Inside the Remark creation ',3);
3771: --Check if user has entered any comments. If so do not populate BBB.
3772: hr_utility.set_location('Pa Request Id'||p_pa_request_rec.pa_request_id,3);
3773:
3774: FOR check_remarks_rec in check_remarks
3768: -- Start Populating BBB Remark
3769: IF p_pa_request_rec.first_noa_code = '850' THEN
3770: hr_utility.set_location('Inside the Remark creation ',3);
3771: --Check if user has entered any comments. If so do not populate BBB.
3772: hr_utility.set_location('Pa Request Id'||p_pa_request_rec.pa_request_id,3);
3773:
3774: FOR check_remarks_rec in check_remarks
3775: LOOP
3776: l_check_remarks := TRUE;
3816: --while terminating the MDDDS_SPECIAL_PAY element it should delete the remarks also.
3817: IF ( l_mddds_total_special_pay = 0 )
3818: OR ( l_mddds_total_special_pay IS NULL ) THEN
3819:
3820: hr_utility.set_location('Inside else'||l_rpa_remark_id ,10);
3821: FOR get_remark_code_rec IN cur_get_remark_code(l_rpa_remark_id)
3822: LOOP
3823: l_rpa_remark_code := get_remark_code_rec.code;
3824: END LOOP;
3821: FOR get_remark_code_rec IN cur_get_remark_code(l_rpa_remark_id)
3822: LOOP
3823: l_rpa_remark_code := get_remark_code_rec.code;
3824: END LOOP;
3825: hr_utility.set_location('Remark Code already entered ' ||l_rpa_remark_code,11);
3826: IF l_rpa_remark_code='BBB' THEN
3827: -- While terminating the element if BBB remark is present then
3828: hr_utility.set_message(8301,'GHR_38877_850_REMARK');
3829: hr_utility.raise_error;
3824: END LOOP;
3825: hr_utility.set_location('Remark Code already entered ' ||l_rpa_remark_code,11);
3826: IF l_rpa_remark_code='BBB' THEN
3827: -- While terminating the element if BBB remark is present then
3828: hr_utility.set_message(8301,'GHR_38877_850_REMARK');
3829: hr_utility.raise_error;
3830: END IF;
3831: END IF;
3832:
3825: hr_utility.set_location('Remark Code already entered ' ||l_rpa_remark_code,11);
3826: IF l_rpa_remark_code='BBB' THEN
3827: -- While terminating the element if BBB remark is present then
3828: hr_utility.set_message(8301,'GHR_38877_850_REMARK');
3829: hr_utility.raise_error;
3830: END IF;
3831: END IF;
3832:
3833: END IF;
3833: END IF;
3834: END IF;
3835: --End of Populating BBB remark.
3836:
3837: hr_utility.set_location('Entering ' ||l_proc,5);
3838:
3839: l_noa_family_code := null;
3840: for family_code in c_noa_family_code loop
3841: l_noa_family_code := family_code.noa_family_code;
3851: exit;
3852: end loop;
3853:
3854: if l_person_type is null then
3855: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
3856: hr_utility.raise_error;
3857: end if;
3858: hr_utility.set_location(l_proc,10);
3859:
3852: end loop;
3853:
3854: if l_person_type is null then
3855: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
3856: hr_utility.raise_error;
3857: end if;
3858: hr_utility.set_location(l_proc,10);
3859:
3860: --
3854: if l_person_type is null then
3855: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
3856: hr_utility.raise_error;
3857: end if;
3858: hr_utility.set_location(l_proc,10);
3859:
3860: --
3861:
3862: for bus_gp in c_bus_gp loop
3878: -- Bug 3215139 Sundar
3879: FOR l_get_occ_code IN get_occ_code(p_pa_request_rec.to_position_id,nvl(p_pa_request_rec.effective_date,trunc(sysdate))) LOOP
3880: l_pos_job_id := l_get_occ_code.job_id;
3881: END LOOP;
3882: hr_utility.set_location('p_agency_code' ||p_agency_code,1);
3883: hr_utility.set_location('Position agency_code' ||l_pos_agency_code,1);
3884: -- Need to update Position only if OCC_CODE is different in RPA form than the Position.
3885: -- Commented for testing
3886: IF (p_pa_request_rec.to_job_id <> l_pos_job_id) OR (p_agency_code <> l_pos_agency_code) THEN
3879: FOR l_get_occ_code IN get_occ_code(p_pa_request_rec.to_position_id,nvl(p_pa_request_rec.effective_date,trunc(sysdate))) LOOP
3880: l_pos_job_id := l_get_occ_code.job_id;
3881: END LOOP;
3882: hr_utility.set_location('p_agency_code' ||p_agency_code,1);
3883: hr_utility.set_location('Position agency_code' ||l_pos_agency_code,1);
3884: -- Need to update Position only if OCC_CODE is different in RPA form than the Position.
3885: -- Commented for testing
3886: IF (p_pa_request_rec.to_job_id <> l_pos_job_id) OR (p_agency_code <> l_pos_agency_code) THEN
3887: l_position_data_rec_type.position_id := p_pa_request_rec.to_position_id;
3887: l_position_data_rec_type.position_id := p_pa_request_rec.to_position_id;
3888: l_position_data_rec_type.job_id := p_pa_request_rec.to_job_id;
3889: l_position_data_rec_type.agency_code_subelement := p_agency_code;
3890: l_position_data_rec_type.effective_date := g_effective_date;
3891: hr_utility.set_location('change in data element-pos ' || p_pa_request_rec.to_job_id,1);
3892: l_position_data_rec_type.datetrack_mode := return_update_mode
3893: (p_id => p_pa_request_rec.to_position_id,
3894: p_effective_date => p_pa_request_rec.effective_date,
3895: p_table_name => 'HR_ALL_POSITIONS_F'
3916:
3917:
3918:
3919: ghr_history_api.get_g_session_var(l_session);
3920: hr_utility.set_location('NOA ID CORRECT : ' || l_session.noa_id_correct,1);
3921:
3922: If l_noa_family_code = 'APP' then
3923: hr_utility.set_location(l_proc,15);
3924: l_per_object_version_number := null;
3919: ghr_history_api.get_g_session_var(l_session);
3920: hr_utility.set_location('NOA ID CORRECT : ' || l_session.noa_id_correct,1);
3921:
3922: If l_noa_family_code = 'APP' then
3923: hr_utility.set_location(l_proc,15);
3924: l_per_object_version_number := null;
3925: for ovn in per_ovn loop
3926: l_business_group_id := ovn.business_group_id;
3927: l_per_object_version_number := ovn.object_version_number;
3927: l_per_object_version_number := ovn.object_version_number;
3928: l_per_upd_employee_number := ovn.employee_number;
3929: end loop;
3930: if l_per_object_version_number is null then
3931: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
3932: hr_utility.raise_error;
3933: end if;
3934:
3935: If l_person_type = 'APL' then -- and the action is not correction
3928: l_per_upd_employee_number := ovn.employee_number;
3929: end loop;
3930: if l_per_object_version_number is null then
3931: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
3932: hr_utility.raise_error;
3933: end if;
3934:
3935: If l_person_type = 'APL' then -- and the action is not correction
3936: hr_utility.set_location(l_proc,20);
3932: hr_utility.raise_error;
3933: end if;
3934:
3935: If l_person_type = 'APL' then -- and the action is not correction
3936: hr_utility.set_location(l_proc,20);
3937: l_hr_applicant_api_hire := 'Y';
3938: l_update_mode := 'CORRECTION';
3939: l_activate_flag := 'Y';
3940: End if;
3939: l_activate_flag := 'Y';
3940: End if;
3941: --Bug# 6711759 Included the person type EX_EMP_APL
3942: If l_person_type in ('EX_EMP','EX_EMP_APL') then
3943: hr_utility.set_location(l_proc,21);
3944: l_rehire_ex_emp := 'Y';
3945: l_activate_flag := 'Y';
3946: End if;
3947:
3954:
3955: --End of cases exclusive case for Appointment family
3956: Else -- If noa_family_code <> 'APP'
3957: If l_person_type = 'EX_EMP' then
3958: hr_utility.set_location(l_proc,25);
3959: l_rehire_ex_emp := 'Y';
3960: l_activate_flag := 'Y';
3961: l_employee_api_update_criteria := 'Y';
3962: l_update_gre := 'Y'; -- Added Venkat Bug # 1239688
3963: End if;
3964: If p_pa_request_rec.to_position_id is not null then
3965: If nvl(p_pa_request_rec.From_Position_Id,hr_api.g_number) <> P_pa_request_rec.to_position_id
3966: then
3967: hr_utility.set_location('Non Appointment -- To pos <> From Pos - GRE ' ||l_proc,41);
3968: l_employee_api_update_criteria := 'Y';
3969: l_update_gre := 'Y';
3970: l_update_mode := 'UPDATE'; -- If action is Correction,then update_mode = 'CORRECTION'
3971: end if;
3979: FOR l_get_asg_position IN c_get_asg_position(p_pa_request_rec.employee_assignment_id,
3980: p_pa_request_rec.effective_date) LOOP
3981: l_asg_position := l_get_asg_position.position_id;
3982: END LOOP;
3983: hr_utility.set_location('Assg Pos ' ||l_asg_position,41);
3984: IF l_asg_position IS NOT NULL AND (p_pa_request_rec.to_position_id <> l_asg_position) THEN
3985: hr_utility.set_location('To pos <> Assg Pos ' ||l_proc,41);
3986: l_employee_api_update_criteria := 'Y';
3987: END IF;
3981: l_asg_position := l_get_asg_position.position_id;
3982: END LOOP;
3983: hr_utility.set_location('Assg Pos ' ||l_asg_position,41);
3984: IF l_asg_position IS NOT NULL AND (p_pa_request_rec.to_position_id <> l_asg_position) THEN
3985: hr_utility.set_location('To pos <> Assg Pos ' ||l_proc,41);
3986: l_employee_api_update_criteria := 'Y';
3987: END IF;
3988:
3989: END IF;
3992: -- Added by subbu on 25-Feb-98. Assignment information has to be updated irrespective
3993: -- of the change in position for REALIGNMENT
3994: --
3995: if l_noa_family_code = 'REALIGNMENT' then
3996: hr_utility.set_location('realign' || p_pa_request_rec.to_organization_id,1);
3997: l_employee_api_update_criteria := 'Y';
3998: l_update_gre := 'Y';
3999: end if;
4000: --
4026: -- Added by Dan on 09-Jun-98. Assignment information has to be updated irrespective
4027: -- of the change in position for NOA 800 (change in data element)
4028: --
4029: if l_noa_family_code = 'CHG_DATA_ELEMENT' then
4030: hr_utility.set_location('realign' || p_pa_request_rec.to_job_id,3);
4031: IF (l_update_occ_code = 'Y') THEN -- Sundar 3215139 Need to update assignment only if position is updated
4032: l_employee_api_update_criteria := 'Y';
4033: END IF;
4034: end if;
4034: end if;
4035:
4036: --BUG 4542437
4037: if l_noa_family_code = 'NON_PAY_DUTY_STATUS' then
4038: hr_utility.set_location('Family code Non pay duty status ',500);
4039: IF p_pa_request_rec.to_position_id IS NULL THEN
4040: hr_utility.set_location('To position id is null but position id is changed by a retro',519);
4041: l_position_id := p_pa_request_rec.from_position_id;
4042: hr_utility.set_location('l_position id '||l_position_id,525);
4036: --BUG 4542437
4037: if l_noa_family_code = 'NON_PAY_DUTY_STATUS' then
4038: hr_utility.set_location('Family code Non pay duty status ',500);
4039: IF p_pa_request_rec.to_position_id IS NULL THEN
4040: hr_utility.set_location('To position id is null but position id is changed by a retro',519);
4041: l_position_id := p_pa_request_rec.from_position_id;
4042: hr_utility.set_location('l_position id '||l_position_id,525);
4043: --Getting job id
4044: FOR l_get_occ_code IN get_occ_code(p_pa_request_rec.from_position_id,nvl(p_pa_request_rec.effective_date,trunc(sysdate))) LOOP
4038: hr_utility.set_location('Family code Non pay duty status ',500);
4039: IF p_pa_request_rec.to_position_id IS NULL THEN
4040: hr_utility.set_location('To position id is null but position id is changed by a retro',519);
4041: l_position_id := p_pa_request_rec.from_position_id;
4042: hr_utility.set_location('l_position id '||l_position_id,525);
4043: --Getting job id
4044: FOR l_get_occ_code IN get_occ_code(p_pa_request_rec.from_position_id,nvl(p_pa_request_rec.effective_date,trunc(sysdate))) LOOP
4045: l_job_id := l_get_occ_code.job_id;
4046: END LOOP;
4043: --Getting job id
4044: FOR l_get_occ_code IN get_occ_code(p_pa_request_rec.from_position_id,nvl(p_pa_request_rec.effective_date,trunc(sysdate))) LOOP
4045: l_job_id := l_get_occ_code.job_id;
4046: END LOOP;
4047: hr_utility.set_location('job_id '||l_job_id,545);
4048: ---Getting organization id
4049: for get_org_id in c_from_org_id loop
4050: l_org_id := get_org_id.organization_id;
4051: end loop;
4048: ---Getting organization id
4049: for get_org_id in c_from_org_id loop
4050: l_org_id := get_org_id.organization_id;
4051: end loop;
4052: hr_utility.set_location('l_oraganization id '||l_org_id,575);
4053: -- Get Assignment Position. If it's not equal to To position of RPA, then assignment
4054: -- should be updated
4055: FOR l_get_asg_position IN c_get_asg_position(p_pa_request_rec.employee_assignment_id, p_pa_request_rec.effective_date) LOOP
4056: l_asg_position := l_get_asg_position.position_id;
4054: -- should be updated
4055: FOR l_get_asg_position IN c_get_asg_position(p_pa_request_rec.employee_assignment_id, p_pa_request_rec.effective_date) LOOP
4056: l_asg_position := l_get_asg_position.position_id;
4057: END LOOP;
4058: hr_utility.set_location('Assg Pos ' ||l_asg_position,599);
4059:
4060: --Getting Grade id
4061: ghr_history_fetch.fetch_positionei
4062: (p_position_id => l_position_id
4065: ,p_pos_ei_data => l_pos_ei_data);
4066:
4067: l_grade_id := l_pos_ei_data.poei_information3;
4068:
4069: hr_utility.set_location('l_grade id for the new position '||l_grade_id,875);
4070: --Bug# 6010971, added grade_id condition
4071: IF l_asg_position IS NOT NULL
4072: AND ((l_position_id <> l_asg_position)
4073: OR (nvl(P_pa_request_rec.to_grade_id,hr_api.g_number) <> nvl(l_grade_id,hr_api.g_number)))
4071: IF l_asg_position IS NOT NULL
4072: AND ((l_position_id <> l_asg_position)
4073: OR (nvl(P_pa_request_rec.to_grade_id,hr_api.g_number) <> nvl(l_grade_id,hr_api.g_number)))
4074: THEN
4075: hr_utility.set_location('To pos <> Assg Pos ' ||l_proc,650);
4076: l_employee_api_update_criteria := 'Y';
4077: END IF;
4078: --Bug# 6010971
4079:
4083: -- Name change
4084: if l_noa_family_code = 'CHG_NAME' then
4085: l_update_person := 'Y';
4086: elsif l_noa_family_code = 'RETURN_TO_DUTY' then
4087: hr_utility.set_location(l_proc,45);
4088: l_activate_flag := 'Y';
4089: elsif l_noa_family_code = 'NON_PAY_DUTY_STATUS' then
4090: hr_utility.set_location(l_proc,50);
4091: l_suspend_flag := 'Y';
4086: elsif l_noa_family_code = 'RETURN_TO_DUTY' then
4087: hr_utility.set_location(l_proc,45);
4088: l_activate_flag := 'Y';
4089: elsif l_noa_family_code = 'NON_PAY_DUTY_STATUS' then
4090: hr_utility.set_location(l_proc,50);
4091: l_suspend_flag := 'Y';
4092: elsif l_noa_family_code = 'SEPARATION' then
4093: hr_utility.set_location(l_proc,55);
4094: l_terminate_flag := 'Y';
4089: elsif l_noa_family_code = 'NON_PAY_DUTY_STATUS' then
4090: hr_utility.set_location(l_proc,50);
4091: l_suspend_flag := 'Y';
4092: elsif l_noa_family_code = 'SEPARATION' then
4093: hr_utility.set_location(l_proc,55);
4094: l_terminate_flag := 'Y';
4095: IF P_pa_request_rec.FORWARDING_ADDRESS_LINE1 is not null or
4096: P_pa_request_rec.FORWARDING_ADDRESS_LINE2 is not null or
4097: P_pa_request_rec.FORWARDING_ADDRESS_LINE3 is not null or
4098: P_pa_request_rec.FORWARDING_TOWN_OR_CITY is not null or
4099: P_pa_request_rec.FORWARDING_REGION_2 is not null or
4100: P_pa_request_rec.FORWARDING_POSTAL_CODE is not null or
4101: P_pa_request_rec.FORWARDING_COUNTRY is not null THEN
4102: hr_utility.set_location(l_proc,60);
4103: FOR address in c_address_type LOOP
4104: l_address_id := address.address_id;
4105: l_add_object_version_number := address.object_version_number;
4106: l_address_line1 := address.address_line1;
4110: l_region_2 := address.region_2;
4111: l_postal_code := address.postal_code;
4112: l_country := address.country;
4113: END LOOP;
4114: hr_utility.set_location('Dump Address data' || l_proc,61);
4115: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE1 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,1,40),62 );
4116: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
4117: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
4118: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
4111: l_postal_code := address.postal_code;
4112: l_country := address.country;
4113: END LOOP;
4114: hr_utility.set_location('Dump Address data' || l_proc,61);
4115: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE1 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,1,40),62 );
4116: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
4117: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
4118: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
4119: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
4112: l_country := address.country;
4113: END LOOP;
4114: hr_utility.set_location('Dump Address data' || l_proc,61);
4115: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE1 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,1,40),62 );
4116: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
4117: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
4118: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
4119: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
4120: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
4113: END LOOP;
4114: hr_utility.set_location('Dump Address data' || l_proc,61);
4115: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE1 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,1,40),62 );
4116: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
4117: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
4118: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
4119: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
4120: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
4121: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
4114: hr_utility.set_location('Dump Address data' || l_proc,61);
4115: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE1 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,1,40),62 );
4116: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
4117: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
4118: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
4119: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
4120: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
4121: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
4122: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
4115: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE1 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,1,40),62 );
4116: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
4117: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
4118: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
4119: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
4120: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
4121: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
4122: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
4123: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
4116: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
4117: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
4118: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
4119: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
4120: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
4121: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
4122: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
4123: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
4124: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
4117: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
4118: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
4119: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
4120: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
4121: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
4122: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
4123: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
4124: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
4125: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
4118: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
4119: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
4120: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
4121: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
4122: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
4123: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
4124: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
4125: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
4126: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
4119: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
4120: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
4121: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
4122: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
4123: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
4124: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
4125: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
4126: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
4127: hr_utility.set_location('l_POSTAL_CODE ' ||l_POSTAL_CODE,74 );
4120: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
4121: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
4122: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
4123: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
4124: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
4125: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
4126: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
4127: hr_utility.set_location('l_POSTAL_CODE ' ||l_POSTAL_CODE,74 );
4128: hr_utility.set_location('l_COUNTRY ' ||substr(l_COUNTRY,1,40),75 );
4121: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
4122: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
4123: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
4124: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
4125: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
4126: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
4127: hr_utility.set_location('l_POSTAL_CODE ' ||l_POSTAL_CODE,74 );
4128: hr_utility.set_location('l_COUNTRY ' ||substr(l_COUNTRY,1,40),75 );
4129: IF l_session.noa_id_correct is null THEN
4122: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
4123: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
4124: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
4125: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
4126: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
4127: hr_utility.set_location('l_POSTAL_CODE ' ||l_POSTAL_CODE,74 );
4128: hr_utility.set_location('l_COUNTRY ' ||substr(l_COUNTRY,1,40),75 );
4129: IF l_session.noa_id_correct is null THEN
4130: IF nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,hr_api.g_varchar2) = nvl(l_address_line1 ,hr_api.g_varchar2) and
4123: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
4124: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
4125: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
4126: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
4127: hr_utility.set_location('l_POSTAL_CODE ' ||l_POSTAL_CODE,74 );
4128: hr_utility.set_location('l_COUNTRY ' ||substr(l_COUNTRY,1,40),75 );
4129: IF l_session.noa_id_correct is null THEN
4130: IF nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,hr_api.g_varchar2) = nvl(l_address_line1 ,hr_api.g_varchar2) and
4131: nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ,hr_api.g_varchar2)= nvl(l_address_line2 ,hr_api.g_varchar2) and
4124: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
4125: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
4126: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
4127: hr_utility.set_location('l_POSTAL_CODE ' ||l_POSTAL_CODE,74 );
4128: hr_utility.set_location('l_COUNTRY ' ||substr(l_COUNTRY,1,40),75 );
4129: IF l_session.noa_id_correct is null THEN
4130: IF nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,hr_api.g_varchar2) = nvl(l_address_line1 ,hr_api.g_varchar2) and
4131: nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ,hr_api.g_varchar2)= nvl(l_address_line2 ,hr_api.g_varchar2) and
4132: nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ,hr_api.g_varchar2)= nvl(l_address_line3 ,hr_api.g_varchar2) and
4134: nvl(p_pa_request_rec.FORWARDING_REGION_2 ,hr_api.g_varchar2) = nvl(l_region_2 ,hr_api.g_varchar2) and
4135: nvl(p_pa_request_rec.FORWARDING_POSTAL_CODE ,hr_api.g_varchar2) = nvl(l_postal_code ,hr_api.g_varchar2) and
4136: nvl(P_pa_request_rec.FORWARDING_COUNTRY ,hr_api.g_varchar2) = nvl(l_country ,hr_api.g_varchar2) THEN
4137: null;
4138: hr_utility.set_location('Non Correction -- No Action ' || l_proc,76);
4139: ELSE
4140: l_create_address := 'Y';
4141: hr_utility.set_location('Non Correction -- Create Address ' || l_proc,77);
4142: END IF;
4137: null;
4138: hr_utility.set_location('Non Correction -- No Action ' || l_proc,76);
4139: ELSE
4140: l_create_address := 'Y';
4141: hr_utility.set_location('Non Correction -- Create Address ' || l_proc,77);
4142: END IF;
4143: ELSE
4144: hr_utility.set_location('altered_pa_request_id is ' ||l_session.altered_pa_request_id ,65);
4145: hr_utility.set_location('noa_id_correct is ' ||l_session.noa_id_correct ,66);
4140: l_create_address := 'Y';
4141: hr_utility.set_location('Non Correction -- Create Address ' || l_proc,77);
4142: END IF;
4143: ELSE
4144: hr_utility.set_location('altered_pa_request_id is ' ||l_session.altered_pa_request_id ,65);
4145: hr_utility.set_location('noa_id_correct is ' ||l_session.noa_id_correct ,66);
4146: hr_utility.set_location('address_id is ' || l_address_id, 66);
4147: open c_upd_primary_address(l_session.altered_pa_request_id, l_address_id);
4148: fetch c_upd_primary_address into l_address_id;
4141: hr_utility.set_location('Non Correction -- Create Address ' || l_proc,77);
4142: END IF;
4143: ELSE
4144: hr_utility.set_location('altered_pa_request_id is ' ||l_session.altered_pa_request_id ,65);
4145: hr_utility.set_location('noa_id_correct is ' ||l_session.noa_id_correct ,66);
4146: hr_utility.set_location('address_id is ' || l_address_id, 66);
4147: open c_upd_primary_address(l_session.altered_pa_request_id, l_address_id);
4148: fetch c_upd_primary_address into l_address_id;
4149: hr_utility.set_location('address_id is ' || l_address_id, 66);
4142: END IF;
4143: ELSE
4144: hr_utility.set_location('altered_pa_request_id is ' ||l_session.altered_pa_request_id ,65);
4145: hr_utility.set_location('noa_id_correct is ' ||l_session.noa_id_correct ,66);
4146: hr_utility.set_location('address_id is ' || l_address_id, 66);
4147: open c_upd_primary_address(l_session.altered_pa_request_id, l_address_id);
4148: fetch c_upd_primary_address into l_address_id;
4149: hr_utility.set_location('address_id is ' || l_address_id, 66);
4150:
4145: hr_utility.set_location('noa_id_correct is ' ||l_session.noa_id_correct ,66);
4146: hr_utility.set_location('address_id is ' || l_address_id, 66);
4147: open c_upd_primary_address(l_session.altered_pa_request_id, l_address_id);
4148: fetch c_upd_primary_address into l_address_id;
4149: hr_utility.set_location('address_id is ' || l_address_id, 66);
4150:
4151: IF c_upd_primary_address%NOTFOUND then
4152: IF nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,hr_api.g_varchar2) = nvl(l_address_line1 ,hr_api.g_varchar2) and
4153: nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ,hr_api.g_varchar2)= nvl(l_address_line2 ,hr_api.g_varchar2) and
4156: nvl(p_pa_request_rec.FORWARDING_REGION_2 ,hr_api.g_varchar2) = nvl(l_region_2 ,hr_api.g_varchar2) and
4157: nvl(p_pa_request_rec.FORWARDING_POSTAL_CODE ,hr_api.g_varchar2) = nvl(l_postal_code ,hr_api.g_varchar2) and
4158: nvl(P_pa_request_rec.FORWARDING_COUNTRY ,hr_api.g_varchar2) = nvl(l_country ,hr_api.g_varchar2) THEN
4159: NULL;
4160: hr_utility.set_location('Correction -- No Action ' || l_proc,69);
4161: ELSE
4162: l_create_address := 'Y';
4163: hr_utility.set_location('Correction -- Create Address ' || l_proc,71);
4164: END IF;
4159: NULL;
4160: hr_utility.set_location('Correction -- No Action ' || l_proc,69);
4161: ELSE
4162: l_create_address := 'Y';
4163: hr_utility.set_location('Correction -- Create Address ' || l_proc,71);
4164: END IF;
4165: ELSE
4166: l_update_address := 'Y';
4167: hr_utility.set_location('Correction -- Update Address ' || l_proc,68);
4163: hr_utility.set_location('Correction -- Create Address ' || l_proc,71);
4164: END IF;
4165: ELSE
4166: l_update_address := 'Y';
4167: hr_utility.set_location('Correction -- Update Address ' || l_proc,68);
4168: END IF;
4169: close c_upd_primary_address;
4170: END IF;
4171: END IF;
4169: close c_upd_primary_address;
4170: END IF;
4171: END IF;
4172: ELSE
4173: hr_utility.set_location(l_proc,78);
4174: END IF;
4175: END IF;
4176:
4177:
4190: l_per_object_version_number := ovn.object_version_number;
4191: l_per_upd_employee_number := ovn.employee_number;
4192: End loop;
4193: If l_per_object_version_number is null then
4194: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
4195: hr_utility.raise_error;
4196: End if;
4197: End if;
4198: --
4191: l_per_upd_employee_number := ovn.employee_number;
4192: End loop;
4193: If l_per_object_version_number is null then
4194: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
4195: hr_utility.raise_error;
4196: End if;
4197: End if;
4198: --
4199: -- An Appointment Family can now only have 'APL's and hence only hire_applicants can be called.
4205: -- Hire Applicant
4206:
4207:
4208: If l_hr_applicant_api_hire = 'Y' and l_session.noa_id_correct is null then
4209: hr_utility.set_location(l_proc,75);
4210: hr_utility.set_location('Emp number is ' || l_per_hire_employee_number,1);
4211: begin
4212: savepoint hire_app;
4213: hr_applicant_api.hire_applicant
4206:
4207:
4208: If l_hr_applicant_api_hire = 'Y' and l_session.noa_id_correct is null then
4209: hr_utility.set_location(l_proc,75);
4210: hr_utility.set_location('Emp number is ' || l_per_hire_employee_number,1);
4211: begin
4212: savepoint hire_app;
4213: hr_applicant_api.hire_applicant
4214: (P_HIRE_DATE => g_effective_date
4225: Exception
4226: when others then
4227: if substr(sqlerrm(sqlcode),1,19) = 'ORA-20001: APP-7975' then
4228: rollback to hire_app;
4229: hr_utility.set_message(8301,'GHR_38555_HIRE_ON_ACC_DATE') ;
4230: hr_utility.raise_error;
4231: Else
4232: rollback to hire_app;
4233: raise;
4226: when others then
4227: if substr(sqlerrm(sqlcode),1,19) = 'ORA-20001: APP-7975' then
4228: rollback to hire_app;
4229: hr_utility.set_message(8301,'GHR_38555_HIRE_ON_ACC_DATE') ;
4230: hr_utility.raise_error;
4231: Else
4232: rollback to hire_app;
4233: raise;
4234: End if;
4237:
4238: l_assignment_id := p_pa_request_rec.employee_assignment_id;
4239:
4240: If l_rehire_ex_emp = 'Y' and l_session.noa_id_correct is null then
4241: hr_utility.set_location(l_proc,76);
4242: Begin
4243: savepoint rehire_ex;
4244: hr_employee_api.re_hire_ex_employee
4245: (p_hire_date => p_pa_request_rec.effective_date
4293: l_asg_location_id := ovn.location_id;
4294: --bug # 8258924 added for occupation code change
4295: l_asg_job_id := ovn.job_id;
4296: End loop;
4297: hr_utility.set_location(l_proc,95);
4298: If l_asg_object_version_number is null then
4299: hr_utility.set_message(8301,'GHR_38135_INVALID_ASGN');
4300: hr_utility.raise_error;
4301: End if;
4295: l_asg_job_id := ovn.job_id;
4296: End loop;
4297: hr_utility.set_location(l_proc,95);
4298: If l_asg_object_version_number is null then
4299: hr_utility.set_message(8301,'GHR_38135_INVALID_ASGN');
4300: hr_utility.raise_error;
4301: End if;
4302:
4303: -- Bug 2082615
4296: End loop;
4297: hr_utility.set_location(l_proc,95);
4298: If l_asg_object_version_number is null then
4299: hr_utility.set_message(8301,'GHR_38135_INVALID_ASGN');
4300: hr_utility.raise_error;
4301: End if;
4302:
4303: -- Bug 2082615
4304: -- Store the old Asg Status Type in g_old_user_status for using in later stages
4306: for asg_stat_rec in c_user_status loop
4307: g_old_user_status := asg_stat_rec.user_status;
4308: l_old_system_status := asg_stat_rec.per_system_status;
4309: l_old_effective_start_date := asg_stat_rec.effective_start_date -1; --bug 2839332
4310: hr_utility.set_location('Old User status is '||g_old_user_status,96);
4311: hr_utility.set_location('Old system status '|| l_old_system_status,999);
4312: exit;
4313: end loop;
4314:
4307: g_old_user_status := asg_stat_rec.user_status;
4308: l_old_system_status := asg_stat_rec.per_system_status;
4309: l_old_effective_start_date := asg_stat_rec.effective_start_date -1; --bug 2839332
4310: hr_utility.set_location('Old User status is '||g_old_user_status,96);
4311: hr_utility.set_location('Old system status '|| l_old_system_status,999);
4312: exit;
4313: end loop;
4314:
4315: If l_old_system_status <> 'SUSP_ASSIGN' or
4334: exit;
4335: END IF;
4336: --- Bug 5923426 end
4337: end loop;
4338: hr_utility.set_location('Assignment status type id '|| l_asg_status_type_id,997);
4339: l_activate_flag := 'Y';
4340: -- Bug 2839332
4341: --Bug# 6010971
4342: IF nvl(P_pa_request_rec.to_grade_id,hr_api.g_number) <> nvl(l_grade_id,hr_api.g_number) then
4381: End if;
4382: End if;
4383:
4384: If l_payroll_id is null then
4385: hr_utility.set_message(8301,'GHR_38183_PAY_NOT_EXISTS');
4386: hr_utility.raise_error;
4387: End if;
4388:
4389: --Pradeep start of bug #4148743
4382: End if;
4383:
4384: If l_payroll_id is null then
4385: hr_utility.set_message(8301,'GHR_38183_PAY_NOT_EXISTS');
4386: hr_utility.raise_error;
4387: End if;
4388:
4389: --Pradeep start of bug #4148743
4390: If l_payroll_id <> l_asg_payroll_id THEN
4415: (p_id => p_pa_request_rec.employee_assignment_id,
4416: p_effective_date => p_pa_request_rec.effective_date,
4417: p_table_name => 'PER_ASSIGNMENTS_F'
4418: );
4419: hr_utility.set_location(l_proc,90);
4420: hr_utility.set_location('Asg id ' || to_char(l_assignment_id),3);
4421: hr_utility.set_location('pay id ' || to_char(l_payroll_id),4);
4422: hr_utility.set_location('l_update_gre is '||l_update_gre,91);
4423:
4416: p_effective_date => p_pa_request_rec.effective_date,
4417: p_table_name => 'PER_ASSIGNMENTS_F'
4418: );
4419: hr_utility.set_location(l_proc,90);
4420: hr_utility.set_location('Asg id ' || to_char(l_assignment_id),3);
4421: hr_utility.set_location('pay id ' || to_char(l_payroll_id),4);
4422: hr_utility.set_location('l_update_gre is '||l_update_gre,91);
4423:
4424: If l_update_gre = 'Y' then
4417: p_table_name => 'PER_ASSIGNMENTS_F'
4418: );
4419: hr_utility.set_location(l_proc,90);
4420: hr_utility.set_location('Asg id ' || to_char(l_assignment_id),3);
4421: hr_utility.set_location('pay id ' || to_char(l_payroll_id),4);
4422: hr_utility.set_location('l_update_gre is '||l_update_gre,91);
4423:
4424: If l_update_gre = 'Y' then
4425: -- get the GRE . Passed into the foll. api as the p_tax_unit
4418: );
4419: hr_utility.set_location(l_proc,90);
4420: hr_utility.set_location('Asg id ' || to_char(l_assignment_id),3);
4421: hr_utility.set_location('pay id ' || to_char(l_payroll_id),4);
4422: hr_utility.set_location('l_update_gre is '||l_update_gre,91);
4423:
4424: If l_update_gre = 'Y' then
4425: -- get the GRE . Passed into the foll. api as the p_tax_unit
4426: for tax_unit in c_tax_unit_org loop
4431: l_tax_unit_id := tax_unit.tax_unit_id;
4432: end loop;
4433: End if;
4434:
4435: hr_utility.set_location(l_proc,92);
4436: begin
4437: savepoint update_emp_asg;
4438: hr_assignment_api.update_us_emp_asg
4439: (p_assignment_id => p_pa_request_rec.employee_assignment_id,
4455: rollback to update_emp_asg;
4456: raise;
4457: End;
4458: End if;
4459: hr_utility.set_location('After update_us_emp_asg '||l_proc,93);
4460: If l_employee_api_update_criteria = 'Y' then
4461: hr_utility.set_location('Before update_emp_asg_criteria ',94);
4462: hr_utility.set_location('checking how correction updates the record',500);
4463: hr_utility.set_location('the to position id passed',500);
4457: End;
4458: End if;
4459: hr_utility.set_location('After update_us_emp_asg '||l_proc,93);
4460: If l_employee_api_update_criteria = 'Y' then
4461: hr_utility.set_location('Before update_emp_asg_criteria ',94);
4462: hr_utility.set_location('checking how correction updates the record',500);
4463: hr_utility.set_location('the to position id passed',500);
4464: hr_assignment_api.update_emp_asg_criteria
4465: (p_effective_date => g_effective_date
4458: End if;
4459: hr_utility.set_location('After update_us_emp_asg '||l_proc,93);
4460: If l_employee_api_update_criteria = 'Y' then
4461: hr_utility.set_location('Before update_emp_asg_criteria ',94);
4462: hr_utility.set_location('checking how correction updates the record',500);
4463: hr_utility.set_location('the to position id passed',500);
4464: hr_assignment_api.update_emp_asg_criteria
4465: (p_effective_date => g_effective_date
4466: ,p_datetrack_update_mode => l_update_mode
4459: hr_utility.set_location('After update_us_emp_asg '||l_proc,93);
4460: If l_employee_api_update_criteria = 'Y' then
4461: hr_utility.set_location('Before update_emp_asg_criteria ',94);
4462: hr_utility.set_location('checking how correction updates the record',500);
4463: hr_utility.set_location('the to position id passed',500);
4464: hr_assignment_api.update_emp_asg_criteria
4465: (p_effective_date => g_effective_date
4466: ,p_datetrack_update_mode => l_update_mode
4467: ,p_assignment_id => l_assignment_id
4485: );
4486: End if;
4487: End if;
4488: --
4489: hr_utility.set_location('After update_emp_asg_criteria '||l_proc,95);
4490: If l_activate_flag = 'Y' and l_session.noa_id_correct is null then
4491: hr_utility.set_location(l_proc,120);
4492: l_update_mode := return_update_mode
4493: (p_id => p_pa_request_rec.employee_assignment_id,
4487: End if;
4488: --
4489: hr_utility.set_location('After update_emp_asg_criteria '||l_proc,95);
4490: If l_activate_flag = 'Y' and l_session.noa_id_correct is null then
4491: hr_utility.set_location(l_proc,120);
4492: l_update_mode := return_update_mode
4493: (p_id => p_pa_request_rec.employee_assignment_id,
4494: p_effective_date => p_pa_request_rec.effective_date,
4495: p_table_name => 'PER_ASSIGNMENTS_F'
4525: rollback to activate;
4526: raise;
4527: end;
4528: Elsif l_suspend_flag = 'Y' and l_session.noa_id_correct is null then -- is a suspension and not a correction
4529: hr_utility.set_location(l_proc,125);
4530: l_update_mode := return_update_mode
4531: (p_id => p_pa_request_rec.employee_assignment_id,
4532: p_effective_date => p_pa_request_rec.effective_date,
4533: p_table_name => 'PER_ASSIGNMENTS_F'
4550: End;
4551: -- elsif l_terminate_asg_flag = 'Y' then
4552: Elsif l_terminate_flag = 'Y' then
4553:
4554: hr_utility.set_location(l_proc,130);
4555: hr_utility.set_location('NOA ID CORRECT : ' || l_session.noa_id_correct,1);
4556: If l_session.noa_id_correct is null then
4557: hr_utility.set_location(l_proc,132);
4558: l_emp_trm_eff_end_date := null;
4551: -- elsif l_terminate_asg_flag = 'Y' then
4552: Elsif l_terminate_flag = 'Y' then
4553:
4554: hr_utility.set_location(l_proc,130);
4555: hr_utility.set_location('NOA ID CORRECT : ' || l_session.noa_id_correct,1);
4556: If l_session.noa_id_correct is null then
4557: hr_utility.set_location(l_proc,132);
4558: l_emp_trm_eff_end_date := null;
4559:
4553:
4554: hr_utility.set_location(l_proc,130);
4555: hr_utility.set_location('NOA ID CORRECT : ' || l_session.noa_id_correct,1);
4556: If l_session.noa_id_correct is null then
4557: hr_utility.set_location(l_proc,132);
4558: l_emp_trm_eff_end_date := null;
4559:
4560: for pds in c_pds loop
4561: l_period_of_service_id := pds.period_of_service_id;
4666:
4667: -- Name change -- The same should cope up with both normal and correction actions
4668: If l_update_person = 'Y' then
4669:
4670: hr_utility.set_location(l_proc,138);
4671: l_update_mode := return_update_mode
4672: (p_id => p_pa_request_rec.person_id,
4673: p_effective_date => p_pa_request_rec.effective_date,
4674: p_table_name => 'PER_PEOPLE_F'
4698: --
4699:
4700: -- Address creation
4701: l_hr_user_type := fnd_profile.value('HR_USER_TYPE');
4702: hr_utility.set_location('in address'||l_hr_user_type,1000);
4703: IF l_hr_user_type = 'INT' THEN
4704: hr_utility.set_location('in per addresses',1000);
4705: If l_create_address = 'Y' or l_update_address = 'Y' then
4706: hr_utility.set_location('in upd addresses',1000);
4700: -- Address creation
4701: l_hr_user_type := fnd_profile.value('HR_USER_TYPE');
4702: hr_utility.set_location('in address'||l_hr_user_type,1000);
4703: IF l_hr_user_type = 'INT' THEN
4704: hr_utility.set_location('in per addresses',1000);
4705: If l_create_address = 'Y' or l_update_address = 'Y' then
4706: hr_utility.set_location('in upd addresses',1000);
4707: for county in county_name loop
4708: l_county_name := county.county_name;
4702: hr_utility.set_location('in address'||l_hr_user_type,1000);
4703: IF l_hr_user_type = 'INT' THEN
4704: hr_utility.set_location('in per addresses',1000);
4705: If l_create_address = 'Y' or l_update_address = 'Y' then
4706: hr_utility.set_location('in upd addresses',1000);
4707: for county in county_name loop
4708: l_county_name := county.county_name;
4709: end loop;
4710: If l_create_address = 'Y' then
4711: -- 6919898 End dating the primary and secondary address
4712: -- only if exists If primary address does not exists just creating the new primary address
4713: -- to a person
4714: If l_address_id is not null then
4715: hr_utility.set_location(l_proc,145);
4716: --- End dating all the secondary addresses for existing primary address
4717: for sec_address in c_sec_address loop
4718:
4719: hr_person_address_api.update_us_person_address
4722: ,p_address_id => sec_address.address_id
4723: ,p_object_version_number => sec_address.object_version_number
4724: );
4725: end loop;
4726: hr_utility.set_location('l_address_id'||l_address_id,1000);
4727: -- End dating the existing primary address
4728: hr_person_address_api.update_us_person_address
4729: (p_effective_date => g_effective_date
4730: ,p_date_to => g_effective_date
4773:
4774: --Update address -- In case of a correction, may be updating some entry in the address
4775:
4776: If l_update_address = 'Y' then
4777: hr_utility.set_location(l_proc,150);
4778: hr_person_address_api.update_us_person_address
4779: (p_address_id => l_address_id
4780: ,p_object_version_number => l_add_object_version_number
4781: ,p_effective_date => g_effective_date
4799: -- 6919898 End dating the primary and secondary address
4800: -- only if exists If primary address does not exists just creating the new primary address
4801: -- to a person
4802: If l_address_id is not null then
4803: hr_utility.set_location(l_proc,145);
4804: --- End dating all the secondary addresses for existing primary address
4805: for sec_address in c_sec_address loop
4806: hr_person_address_api.update_person_address
4807: (p_effective_date => g_effective_date
4861:
4862: --Update address -- In case of a correction, may be updating some entry in the address
4863:
4864: If l_update_address = 'Y' then
4865: hr_utility.set_location(l_proc,150);
4866: hr_person_address_api.update_person_address
4867: (p_address_id => l_address_id
4868: ,p_object_version_number => l_add_object_version_number
4869: ,p_effective_date => g_effective_date
4894: l_per_last_name := per.last_name;
4895: l_per_middle_names := per.middle_names;
4896: l_per_date_of_birth := per.date_of_birth;
4897: end loop;
4898: hr_utility.set_location(l_proc,138);
4899:
4900: if nvl(p_pa_request_rec.employee_national_identifier,hr_api.g_varchar2) <> nvl(l_per_national_identifier,hr_api.g_varchar2) or
4901: nvl(p_pa_request_rec.employee_date_of_birth,hr_api.g_date) <> nvl(l_per_date_of_birth,hr_api.g_date) or
4902: nvl(p_pa_request_rec.employee_last_name,hr_api.g_varchar2) <> nvl(l_per_last_name,hr_api.g_varchar2) or
4954: -- This update is irrespective of family and is based on to_position being not null
4955: -- and the To Position process method
4956: -- Bug 2462929 For change in DS we must consider DS process method, if APUE/UE update Position.
4957: ----
4958: hr_utility.set_location('Update Positions Location ' || l_proc,151);
4959: IF p_pa_request_rec.to_position_id IS NOT NULL THEN
4960:
4961: l_form_field_name := 'TO_POSITION_TITLE';
4962: FOR pm_rec in get_to_posn_title_pm LOOP
4967: FOR pm_rec in get_to_posn_title_pm LOOP
4968: l_DS_pm := pm_rec.process_method_code;
4969: END Loop;
4970:
4971: hr_utility.set_location('To Posn PM ' || l_posn_title_pm ,151);
4972: IF l_posn_title_pm = 'UE' OR
4973: (l_posn_title_pm = 'APUE' AND
4974: nvl(p_pa_request_rec.to_position_id,hr_api.g_number) <> nvl(p_pa_request_rec.from_position_id,hr_api.g_number)) OR
4975: l_DS_pm in ('APUE','UE') OR
4981: END IF;
4982: END IF;
4983: ----
4984:
4985: hr_utility.set_location('Leaving ' || l_proc,155);
4986: Exception when others then
4987: --
4988: -- Reset IN OUT parameters and set OUT parameters
4989: --
5284: Begin
5285:
5286:
5287: --
5288: hr_utility.set_location('Entering ' ||l_proc,5);
5289: -- Remember IN OUT parameter IN values
5290: --
5291: l_wgi := p_wgi;
5292: l_retention_allow_review := p_retention_allow_review;
5307: --
5308: ----**********************************************************************
5309: -- CHECK # :- Existence of PAYROLL Product
5310: ----**********************************************************************
5311: IF (hr_utility.chk_product_install('GHR','US') = TRUE
5312: and hr_utility.chk_product_install('PAY', 'US') = TRUE
5313: and fnd_profile.value('HR_USER_TYPE')='INT')
5314: THEN
5315: l_pay_intg:=TRUE;
5308: ----**********************************************************************
5309: -- CHECK # :- Existence of PAYROLL Product
5310: ----**********************************************************************
5311: IF (hr_utility.chk_product_install('GHR','US') = TRUE
5312: and hr_utility.chk_product_install('PAY', 'US') = TRUE
5313: and fnd_profile.value('HR_USER_TYPE')='INT')
5314: THEN
5315: l_pay_intg:=TRUE;
5316: ELSE
5338:
5339: FOR cur_ex_emp_rec IN cur_ex_emp (p_pa_request_rec.person_id, l_effective_date)
5340: LOOP
5341: l_ex_emp := TRUE;
5342: hr_utility.set_location('Person is an Ex employee for the given date ' ||l_proc,5);
5343: END LOOP;
5344:
5345: hr_utility.set_location(to_char(l_effective_date),1);
5346: -- Processing Basic pay
5341: l_ex_emp := TRUE;
5342: hr_utility.set_location('Person is an Ex employee for the given date ' ||l_proc,5);
5343: END LOOP;
5344:
5345: hr_utility.set_location(to_char(l_effective_date),1);
5346: -- Processing Basic pay
5347: --
5348: hr_utility.set_location('Entering ' ||l_proc,5);
5349:
5344:
5345: hr_utility.set_location(to_char(l_effective_date),1);
5346: -- Processing Basic pay
5347: --
5348: hr_utility.set_location('Entering ' ||l_proc,5);
5349:
5350: -- pick business group id
5351: For BG_rec in Cur_BG(p_pa_request_rec.employee_assignment_id,
5352: l_effective_date)
5355: End Loop;
5356: --
5357: -- When to_basic_pay is not null
5358: If p_pa_request_rec.to_basic_pay is not null then
5359: hr_utility.set_location(l_proc || to_char(p_pa_request_rec.effective_date),10);
5360: --
5361: -- Code added for Payroll Integration
5362: --
5363: IF l_pay_intg
5381: p_business_group_id => l_bg_id,
5382: p_effective_date => l_effective_date,
5383: p_pay_basis => NVL(l_pay_basis,'PA'));
5384:
5385: hr_utility.trace('The New Element Name is :'||l_new_element_name);
5386:
5387: --
5388: -- Update the Assignment id with the Salary Basis Obtained in above step
5389: -- If not for this step Salary Admin form wont pick the Basic Sal Value
5387: --
5388: -- Update the Assignment id with the Salary Basis Obtained in above step
5389: -- If not for this step Salary Admin form wont pick the Basic Sal Value
5390: --
5391: hr_utility.trace('NOA FAMILY CODE :'||p_pa_request_rec.noa_family_code);
5392: -- Check# 1
5393: IF (p_pa_request_rec.first_noa_cancel_or_correct ='CORRECT') THEN
5394:
5395: -- Check# 2
5405: l_pay_proposal_id := proposal_rec.proposal_id;
5406: l_sal_admin_ovn := proposal_rec.ovn;
5407: End Loop;
5408:
5409: hr_utility.trace('Before call to Delete Salary Proposal :'||l_dt_mode);
5410: -- if p_pa_request_rec.noa_family_code in ('APP','CONV_APP') then
5411: -- Check# 3
5412: IF (l_pay_proposal_id is not null ) THEN
5413:
5430: -- Picking the Salary Basis based on the to_pay_basis during RPA
5431: For Sal_Basis_Name in Cur_Sal_Basis_name(l_bg_id,l_new_element_name)
5432: Loop
5433: l_sal_basis_id := Sal_Basis_Name.pay_basis_id;
5434: hr_utility.trace('The sal basis id is :'||to_char(l_sal_basis_id));
5435: End Loop;
5436: --
5437: --
5438: l_dt_mode := return_update_mode
5440: p_effective_date => l_effective_date,
5441: p_table_name => 'PER_ASSIGNMENTS_F'
5442: );
5443:
5444: hr_utility.trace('l_dt_mode is :'||l_dt_mode);
5445:
5446: -- collecting details for salary basis updation
5447: For SB_upd in Cur_asg_det_for_SB_upd(p_pa_request_rec.employee_assignment_id,
5448: l_effective_Date)
5458:
5459: --
5460: -- Update the Assignment id with the Salary Basis Obtained in above step
5461: -- If not for this step Salary Admin form wont pick the Basic Sal Value
5462: hr_utility.trace('assignment id is :'||p_pa_request_rec.employee_assignment_id);
5463: hr_utility.trace('EFF DATE :'||l_effective_date);
5464: hr_utility.trace('l_sb_ovn:'||l_SB_ovn);
5465: hr_utility.trace('l_payroll_id:'||l_payroll_id);
5466: hr_utility.trace('l_sal_basis_id:'||l_sal_basis_id);
5459: --
5460: -- Update the Assignment id with the Salary Basis Obtained in above step
5461: -- If not for this step Salary Admin form wont pick the Basic Sal Value
5462: hr_utility.trace('assignment id is :'||p_pa_request_rec.employee_assignment_id);
5463: hr_utility.trace('EFF DATE :'||l_effective_date);
5464: hr_utility.trace('l_sb_ovn:'||l_SB_ovn);
5465: hr_utility.trace('l_payroll_id:'||l_payroll_id);
5466: hr_utility.trace('l_sal_basis_id:'||l_sal_basis_id);
5467:
5460: -- Update the Assignment id with the Salary Basis Obtained in above step
5461: -- If not for this step Salary Admin form wont pick the Basic Sal Value
5462: hr_utility.trace('assignment id is :'||p_pa_request_rec.employee_assignment_id);
5463: hr_utility.trace('EFF DATE :'||l_effective_date);
5464: hr_utility.trace('l_sb_ovn:'||l_SB_ovn);
5465: hr_utility.trace('l_payroll_id:'||l_payroll_id);
5466: hr_utility.trace('l_sal_basis_id:'||l_sal_basis_id);
5467:
5468: hr_assignment_api.update_emp_asg_criteria
5461: -- If not for this step Salary Admin form wont pick the Basic Sal Value
5462: hr_utility.trace('assignment id is :'||p_pa_request_rec.employee_assignment_id);
5463: hr_utility.trace('EFF DATE :'||l_effective_date);
5464: hr_utility.trace('l_sb_ovn:'||l_SB_ovn);
5465: hr_utility.trace('l_payroll_id:'||l_payroll_id);
5466: hr_utility.trace('l_sal_basis_id:'||l_sal_basis_id);
5467:
5468: hr_assignment_api.update_emp_asg_criteria
5469: (p_effective_date => l_effective_date
5462: hr_utility.trace('assignment id is :'||p_pa_request_rec.employee_assignment_id);
5463: hr_utility.trace('EFF DATE :'||l_effective_date);
5464: hr_utility.trace('l_sb_ovn:'||l_SB_ovn);
5465: hr_utility.trace('l_payroll_id:'||l_payroll_id);
5466: hr_utility.trace('l_sal_basis_id:'||l_sal_basis_id);
5467:
5468: hr_assignment_api.update_emp_asg_criteria
5469: (p_effective_date => l_effective_date
5470: ,p_datetrack_update_mode => l_dt_mode
5488: ,p_entries_changed_warning => l_entries_chan_warn
5489: ,p_tax_district_changed_warning => l_tax_dist_chan_warn
5490: );
5491: --
5492: hr_utility.trace('After Update Person record under gh52doup.pkb');
5493: --
5494:
5495: -- Blocking the call to use Core call for salary admin creation
5496: For Proposal_rec IN Cur_proposal_exists
5518: ,p_multiple_error_flag => ll_multiple_error_flag
5519: );
5520: end if;
5521:
5522: hr_utility.trace('employee Asg id before proposal ..:'||
5523: to_char(p_pa_request_rec.employee_assignment_id));
5524: hr_utility.trace('Element entry id before proposal ..:'||to_char(ll_element_entry_id));
5525: hr_utility.trace('Business grp id before proposal ..:'||to_char(l_bg_id));
5526:
5520: end if;
5521:
5522: hr_utility.trace('employee Asg id before proposal ..:'||
5523: to_char(p_pa_request_rec.employee_assignment_id));
5524: hr_utility.trace('Element entry id before proposal ..:'||to_char(ll_element_entry_id));
5525: hr_utility.trace('Business grp id before proposal ..:'||to_char(l_bg_id));
5526:
5527: IF l_pay_proposal_id is null then
5528: if (nvl(p_pa_request_rec.from_basic_pay, 0) <> nvl(p_pa_request_rec.to_basic_pay,0)) then
5521:
5522: hr_utility.trace('employee Asg id before proposal ..:'||
5523: to_char(p_pa_request_rec.employee_assignment_id));
5524: hr_utility.trace('Element entry id before proposal ..:'||to_char(ll_element_entry_id));
5525: hr_utility.trace('Business grp id before proposal ..:'||to_char(l_bg_id));
5526:
5527: IF l_pay_proposal_id is null then
5528: if (nvl(p_pa_request_rec.from_basic_pay, 0) <> nvl(p_pa_request_rec.to_basic_pay,0)) then
5529: hr_maintain_proposal_api.insert_salary_proposal
5592: --
5593:
5594: /* To be included after Martin Reid's element api handles the create and update warning
5595: if l_adj_basic_pay_warn = FALSE then
5596: hr_utility.set_message(8301,'GHR_38136_FAIL_TO_UPD_SALARY');
5597: hr_utility.raise_error;
5598: end if;
5599: */
5600: end if;
5593:
5594: /* To be included after Martin Reid's element api handles the create and update warning
5595: if l_adj_basic_pay_warn = FALSE then
5596: hr_utility.set_message(8301,'GHR_38136_FAIL_TO_UPD_SALARY');
5597: hr_utility.raise_error;
5598: end if;
5599: */
5600: end if;
5601: --
5602: --
5603: -- Processing Adjusted basic pay
5604: --
5605: If p_pa_request_rec.to_adj_basic_pay is not null then
5606: hr_utility.set_location(l_proc,20);
5607:
5608: ghr_element_api.process_sf52_element
5609: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5610: ,p_element_name => 'Adjusted Basic Pay'
5616: --
5617: --
5618:
5619: /*if l_adj_basic_pay_warn = FALSE then
5620: hr_utility.set_message(8301,'GHR_38137_FL_TO_UPD_ADJ_BS_PY');
5621: hr_utility.raise_error;
5622: end if;
5623: */
5624: end if;
5617: --
5618:
5619: /*if l_adj_basic_pay_warn = FALSE then
5620: hr_utility.set_message(8301,'GHR_38137_FL_TO_UPD_ADJ_BS_PY');
5621: hr_utility.raise_error;
5622: end if;
5623: */
5624: end if;
5625: --
5629: -- Processing Unadjusted Basic Pay
5630: --
5631: If p_pa_request_rec.to_adj_basic_pay is not null then
5632: if ghr_pay_calc.g_gm_unadjd_basic_pay is not null and ghr_pay_calc.g_gm_unadjd_basic_pay <> 0 then
5633: hr_utility.set_location(l_proc,21);
5634:
5635: ghr_element_api.process_sf52_element
5636: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5637: ,p_element_name => 'Unadjusted Basic Pay'
5649: --
5650: -- Processing Locality adjustment
5651: --
5652: If p_pa_request_rec.to_locality_adj is not null then
5653: hr_utility.set_location(l_proc,30);
5654: -- FWFA Changes Bug#4444609: Modify 'Locality Pay' to 'Locality Pay or SR Supplement'
5655: ghr_element_api.process_sf52_element
5656: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5657: ,p_element_name => 'Locality Pay or SR Supplement'
5666:
5667: --
5668:
5669: /*if l_locality_adj_warn = FALSE then
5670: hr_utility.set_message(8301,'GHR_38138_FAIL_TO_UPD_LOC_ADJ');
5671: hr_utility.raise_error;
5672: end if;
5673: */
5674: --end if;
5667: --
5668:
5669: /*if l_locality_adj_warn = FALSE then
5670: hr_utility.set_message(8301,'GHR_38138_FAIL_TO_UPD_LOC_ADJ');
5671: hr_utility.raise_error;
5672: end if;
5673: */
5674: --end if;
5675: --
5683: IF p_pa_request_rec.first_noa_code IN ('815','816','825','827') OR
5684: p_pa_request_rec.second_noa_code IN ('815','816','825','827') THEN
5685: NULL;
5686: ELSE
5687: hr_utility.set_location(l_proc,45);
5688: ghr_element_api.process_sf52_element
5689: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5690: ,p_element_name => 'Total Pay'
5691: ,p_input_value_name1 => 'Amount'
5695: );
5696: END IF;
5697: --
5698: /* if l_total_salary_warn = FALSE then
5699: hr_utility.set_message(8301,'GHR_38139_FAIL_TO_UPD_TOT_SAL');
5700: hr_utility.raise_error;
5701: end if;
5702: */
5703: end if;
5696: END IF;
5697: --
5698: /* if l_total_salary_warn = FALSE then
5699: hr_utility.set_message(8301,'GHR_38139_FAIL_TO_UPD_TOT_SAL');
5700: hr_utility.raise_error;
5701: end if;
5702: */
5703: end if;
5704: --
5715: nvl(p_pa_request_rec.to_retention_allowance , 0) +
5716: nvl(p_pa_request_rec.to_supervisory_differential, 0) +
5717: nvl(p_pa_request_rec.to_staffing_differential , 0);
5718: END IF;
5719: hr_utility.set_location(l_proc,55);
5720: ghr_element_api.process_sf52_element
5721: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5722: ,p_element_name => 'Other Pay'
5723: ,p_input_value_name1 => 'Amount'
5729: );
5730: Else --if p_pa_request_rec.other_pay_amount is null
5731: -- According to John, any other pay and its sub elements can be nullified only by processing an 'OTHER_PAY' action
5732: If p_pa_request_rec.noa_family_code = 'OTHER_PAY' then
5733: hr_utility.set_location(l_proc,32);
5734:
5735: l_new_element_name := pqp_fedhr_uspay_int_utils.return_new_element_name(
5736: p_fedhr_element_name => 'Other Pay',
5737: p_business_group_id => l_bg_id,
5764: -- Processing AUO
5765:
5766: If p_pa_request_rec.to_auo_premium_pay_indicator is not null or
5767: p_pa_request_rec.to_au_overtime is not null then
5768: hr_utility.set_location(l_proc,60);
5769: ghr_element_api.process_sf52_element
5770: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5771: ,p_element_name => 'AUO'
5772: ,p_input_value_name1 => 'Premium Pay Ind'
5789: );
5790: Else --if p_pa_request_rec.auo is null
5791:
5792: If p_pa_request_rec.first_noa_code = '818' then
5793: hr_utility.set_location(l_proc,32);
5794: l_element_entry_id := NULL;
5795:
5796: l_new_element_name :=
5797: pqp_fedhr_uspay_int_utils.return_new_element_name(
5841: -- Can change only when the seed data changes.
5842:
5843: If p_pa_request_rec.to_ap_premium_pay_indicator is not null or
5844: p_pa_request_rec.to_availability_pay is not null then
5845: hr_utility.set_location(l_proc,65);
5846: ghr_element_api.process_sf52_element
5847: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5848: ,p_element_name => 'Availability Pay'
5849: ,p_input_value_name1 => 'Premium Pay Ind'
5865: ,p_process_warning => l_adj_basic_pay_warn
5866: );
5867: Else --if p_pa_request_rec.avaiability_pay is null
5868: If p_pa_request_rec.first_noa_code = '819' then
5869: hr_utility.set_location(l_proc,32);
5870: l_element_entry_id := NULL;
5871:
5872: l_new_element_name :=
5873: pqp_fedhr_uspay_int_utils.return_new_element_name(
5885:
5886: l_element_entry_id := ele_entry.element_entry_id;
5887: End loop;
5888: if l_element_entry_id is not null then
5889: hr_utility.set_location(l_proc,33);
5890: ghr_element_api.process_sf52_element
5891: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5892: ,p_element_name => 'Availability Pay'
5893: ,p_input_value_name1 => 'Premium Pay Ind'
5918: -- Modifying the input value name from Percent to Percentage
5919: -- this change is done only for Supervisory diff and Retention Allowance
5920: --
5921:
5922: hr_utility.trace('Element Name (new) is :'||l_new_element_name);
5923: hr_utility.trace('Supv Diff Amt process_sf52 :'||p_pa_request_rec.to_supervisory_differential);
5924: hr_utility.trace('Supv Diff % Process_sf52 :'||p_pa_request_rec.to_supervisory_diff_percentage);
5925:
5926: If p_pa_request_rec.to_supervisory_differential is not null or
5919: -- this change is done only for Supervisory diff and Retention Allowance
5920: --
5921:
5922: hr_utility.trace('Element Name (new) is :'||l_new_element_name);
5923: hr_utility.trace('Supv Diff Amt process_sf52 :'||p_pa_request_rec.to_supervisory_differential);
5924: hr_utility.trace('Supv Diff % Process_sf52 :'||p_pa_request_rec.to_supervisory_diff_percentage);
5925:
5926: If p_pa_request_rec.to_supervisory_differential is not null or
5927: p_pa_request_rec.to_supervisory_diff_percentage is not null then
5920: --
5921:
5922: hr_utility.trace('Element Name (new) is :'||l_new_element_name);
5923: hr_utility.trace('Supv Diff Amt process_sf52 :'||p_pa_request_rec.to_supervisory_differential);
5924: hr_utility.trace('Supv Diff % Process_sf52 :'||p_pa_request_rec.to_supervisory_diff_percentage);
5925:
5926: If p_pa_request_rec.to_supervisory_differential is not null or
5927: p_pa_request_rec.to_supervisory_diff_percentage is not null then
5928: hr_utility.set_location(l_proc,70);
5924: hr_utility.trace('Supv Diff % Process_sf52 :'||p_pa_request_rec.to_supervisory_diff_percentage);
5925:
5926: If p_pa_request_rec.to_supervisory_differential is not null or
5927: p_pa_request_rec.to_supervisory_diff_percentage is not null then
5928: hr_utility.set_location(l_proc,70);
5929: ghr_element_api.process_sf52_element
5930: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5931: ,p_element_name => 'Supervisory Differential'
5932: ,p_input_value_name1 => 'Amount'
5938: );
5939:
5940: Else --if p_pa_request_rec.superv. diff is null
5941: If p_pa_request_rec.noa_family_code = 'OTHER_PAY' then
5942: hr_utility.set_location(l_proc,32);
5943: l_element_entry_id := NULL;
5944: l_new_element_name :=
5945: pqp_fedhr_uspay_int_utils.return_new_element_name(
5946: p_fedhr_element_name => 'Supervisory Differential',
5982:
5983: If p_pa_request_rec.to_staffing_differential is not null or
5984: p_pa_request_rec.to_staffing_diff_percentage is not null then
5985:
5986: hr_utility.set_location(l_proc,75);
5987: ghr_element_api.process_sf52_element
5988: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5989: ,p_element_name => 'Staffing Differential'
5990: ,p_input_value_name1 => 'Amount'
5995: ,p_process_warning => l_adj_basic_pay_warn
5996: );
5997: Else --if p_pa_request_rec.staff. diff is null
5998: If p_pa_request_rec.noa_family_code = 'OTHER_PAY' then
5999: hr_utility.set_location(l_proc,32);
6000: l_element_entry_id := NULL;
6001: l_new_element_name :=
6002: pqp_fedhr_uspay_int_utils.return_new_element_name(
6003: p_fedhr_element_name => 'Staffing Differential',
6035: -- Code added/ Modified for Payroll Integration
6036: -- Modifying the input value name from Percent to Percentage
6037: -- this change is done only for Supervisory diff and Retention Allowance
6038: --
6039: hr_utility.trace('Element Name (new) is :'||l_new_element_name);
6040: hr_utility.trace('Ret Allw Amt process_sf52 :'||p_pa_request_rec.to_retention_allowance);
6041: hr_utility.trace('Ret Allw % Process_sf52 :'||p_pa_request_rec.to_retention_allow_percentage);
6042:
6043:
6036: -- Modifying the input value name from Percent to Percentage
6037: -- this change is done only for Supervisory diff and Retention Allowance
6038: --
6039: hr_utility.trace('Element Name (new) is :'||l_new_element_name);
6040: hr_utility.trace('Ret Allw Amt process_sf52 :'||p_pa_request_rec.to_retention_allowance);
6041: hr_utility.trace('Ret Allw % Process_sf52 :'||p_pa_request_rec.to_retention_allow_percentage);
6042:
6043:
6044: --Pradeep start of Bug 3306515 - Ret All % Pay Cap.
6037: -- this change is done only for Supervisory diff and Retention Allowance
6038: --
6039: hr_utility.trace('Element Name (new) is :'||l_new_element_name);
6040: hr_utility.trace('Ret Allw Amt process_sf52 :'||p_pa_request_rec.to_retention_allowance);
6041: hr_utility.trace('Ret Allw % Process_sf52 :'||p_pa_request_rec.to_retention_allow_percentage);
6042:
6043:
6044: --Pradeep start of Bug 3306515 - Ret All % Pay Cap.
6045: --Get the Retention Allowance and calculate % based on the Percentage.
6042:
6043:
6044: --Pradeep start of Bug 3306515 - Ret All % Pay Cap.
6045: --Get the Retention Allowance and calculate % based on the Percentage.
6046: hr_utility.trace('Pradeep p_pa_request_rec.noa_family_code:'||p_pa_request_rec.noa_family_code);
6047:
6048: IF p_pa_request_rec.to_retention_allow_percentage is null
6049: AND p_pa_request_rec.to_retention_allowance is not null THEN
6050:
6051: -- Bug 4689374
6052: IF p_pa_request_rec.pay_rate_determinant IN ('3','4','J','K','U','V') AND
6053: p_pa_request_rec.effective_date >= to_date('01/05/2005','dd/mm/yyyy') THEN
6054: l_retention_allow_percentage := NULL;
6055: hr_utility.trace('Inside fwfa');
6056: ELSE
6057: IF ( p_pa_request_rec.noa_family_code like 'GHR_SAL%'
6058: OR p_pa_request_rec.noa_family_code ='OTHER_PAY' )
6059: THEN
6057: IF ( p_pa_request_rec.noa_family_code like 'GHR_SAL%'
6058: OR p_pa_request_rec.noa_family_code ='OTHER_PAY' )
6059: THEN
6060:
6061: hr_utility.trace('Pradeep l_session.noa_id_correct:'||l_session.noa_id_correct);
6062: IF l_session.noa_id_correct is null THEN
6063:
6064: ghr_api.retrieve_element_entry_value (p_element_name => 'Retention Allowance'
6065: ,p_input_value_name => 'Amount'
6072: trunc((l_retention_allowance/p_pa_request_rec.from_basic_pay)*100,2);
6073: ELSE
6074:
6075: --Get the To side Retention Allowance for corrections.
6076: hr_utility.trace('Pradeep Correction RA Amount:'||p_pa_request_rec.to_retention_allowance);
6077: l_retention_allow_percentage :=
6078: trunc((p_pa_request_rec.to_retention_allowance/p_pa_request_rec.to_basic_pay)*100,2);
6079: END IF; -- IF l_session.noa_id_corr
6080: END IF;-- IF ( p_pa_request_rec.noa_f
6091: p_retention_allow_review.review_date:=NULL;
6092: END IF;
6093: -- Bug 2627003
6094:
6095: hr_utility.set_location(l_proc,80);
6096: ghr_element_api.process_sf52_element
6097: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6098: ,p_element_name => 'Retention Allowance'
6099: ,p_input_value_name1 => 'Amount'
6108: ,p_process_warning => l_adj_basic_pay_warn
6109: );
6110: Else --if p_pa_request_rec.ret. allowance is null
6111: If p_pa_request_rec.noa_family_code = 'OTHER_PAY' then
6112: hr_utility.set_location(l_proc,32);
6113: l_element_entry_id := NULL;
6114:
6115: l_new_element_name :=
6116: pqp_fedhr_uspay_int_utils.return_new_element_name(
6168: END LOOP; */
6169:
6170: l_wgi_due_date := fnd_date.canonical_to_date(p_wgi.p_date_wgi_due);
6171:
6172: hr_utility.set_location('WGI Due date ' || l_wgi_due_date,150);
6173: hr_utility.set_location('p_pa_request_rec.noa_family_code ' || p_pa_request_rec.noa_family_code,150);
6174: -- GPPA 46 Update. l_to_pay_plan is not getting initialized. So, added the
6175: -- following code to initialize the l_to_pay_plan value.
6176:
6169:
6170: l_wgi_due_date := fnd_date.canonical_to_date(p_wgi.p_date_wgi_due);
6171:
6172: hr_utility.set_location('WGI Due date ' || l_wgi_due_date,150);
6173: hr_utility.set_location('p_pa_request_rec.noa_family_code ' || p_pa_request_rec.noa_family_code,150);
6174: -- GPPA 46 Update. l_to_pay_plan is not getting initialized. So, added the
6175: -- following code to initialize the l_to_pay_plan value.
6176:
6177: g_retained_grade_info := null;
6183: (p_person_id => p_pa_request_rec.person_id,
6184: p_effective_date => p_pa_request_rec.effective_date,
6185: p_pa_request_id => p_pa_request_rec.pa_request_id
6186: );
6187: hr_utility.set_location('l_retained_pay_plan:'||l_retained_grade_rec.pay_plan,155);
6188: --BUG # 6628749
6189: IF l_retained_grade_rec.temp_step is NULL THEN
6190: l_to_pay_plan := l_retained_grade_rec.pay_plan;
6191: END IF;
6198: l_to_pay_plan := l_retained_grade_rec.pay_plan;
6199: ELSE
6200: l_to_pay_plan := p_pa_request_rec.to_pay_plan;
6201: END IF;*/
6202: hr_utility.set_location('l_to_pay_plan:'||l_to_pay_plan,156);
6203: FOR cur_eq_ppl_rec IN cur_eq_ppl(l_to_pay_plan)
6204: LOOP
6205: l_equ_pay_plan := cur_eq_ppl_rec.EQUIVALENT_PAY_PLAN;
6206: exit;
6204: LOOP
6205: l_equ_pay_plan := cur_eq_ppl_rec.EQUIVALENT_PAY_PLAN;
6206: exit;
6207: END LOOP;
6208: hr_utility.set_location('l_equ_pay_plan:'||l_equ_pay_plan,157);
6209: ------GPPA Update 46 changes - For SES employees WGI element should not be created for 891, 892 , 890 and 897 NOACs.
6210: -- OR condition for Pay Plan FE is added as FE is nomore ES equ pay plan
6211: IF NOT ((l_equ_pay_plan = 'ES' OR l_to_pay_plan='FE')
6212: AND p_pa_request_rec.first_noa_code IN ('891', '892', '890', '897')) THEN
6309: );
6310: p_wgi.p_last_equi_incr := l_lei_date;
6311: END IF;
6312: --End Bug 10104811
6313: hr_utility.set_location('Inside If loop',511);
6314: ghr_element_api.process_sf52_element
6315: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6316: ,p_element_name => 'Within Grade Increase'
6317: ,p_input_value_name2 => 'Date Due'
6331: -- Bug 3998686 In correction action, if DLEI is present and WGI Due date is cleared,
6332: -- it comes here. Need to update NULL in that case. .
6333: ELSIF nvl(p_pa_request_rec.noa_family_code,hr_api.g_varchar2) IN ('APP','CONV_APP')
6334: AND p_wgi.p_last_equi_incr IS NOT NULL AND l_wgi_cleared = FALSE THEN
6335: hr_utility.set_location('Inside elsif loop',511);
6336: ghr_element_api.process_sf52_element
6337: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6338: ,p_element_name => 'Within Grade Increase'
6339: ,p_input_value_name2 => 'Date Due'
6384: THEN
6385:
6386: IF p_pa_request_rec.first_noa_code in ( '702','703','713') THEN
6387: l_wgi_due_date := fnd_date.canonical_to_date(p_wgi.p_date_wgi_due);
6388: hr_utility.set_location('702 -- l_wgi_due_date is ' || l_wgi_due_date,1);
6389: END IF;
6390:
6391: IF not (p_pa_request_rec.first_noa_code = '702' AND
6392: g_old_user_status = 'Temp. Promotion NTE' )THEN
6405: -- Bug 3993664 - Included NOA 867...
6406: -- Bug#5666880 - Included NOA 896, 897
6407: IF (p_pa_request_rec.first_noa_code IN ('892','867','896','897') OR
6408: p_pa_request_rec.second_noa_code IN ('892','867','896','897')) THEN
6409: hr_utility.set_location('inside NOA Code 897',9999999);
6410: ghr_history_fetch.fetch_element_entry_value
6411: (p_element_name => 'Within Grade Increase',
6412: p_input_value_name => 'Last Equivalent Increase',
6413: p_assignment_id => p_pa_request_rec.employee_assignment_id,
6417: p_wgi.p_last_equi_incr := l_lei_date;
6418: END IF;
6419: -- End of 3111719
6420: -- Bug 3709414 Retrieving Last equivalent increase date if it's not entered in RPA EIT.
6421: hr_utility.set_location('p_wgi.p_last_equi_incr is ' || p_wgi.p_last_equi_incr,1);
6422: IF (p_pa_request_rec.first_noa_code = '713' OR p_pa_request_rec.second_noa_code = '713')
6423: AND p_wgi.p_last_equi_incr IS NULL THEN
6424: ghr_history_fetch.fetch_element_entry_value
6425: (p_element_name => 'Within Grade Increase',
6436: p_wgi.p_last_equi_incr := fnd_date.date_to_canonical(p_pa_request_rec.effective_date); -- Bug 3991240
6437: END IF;
6438: -- End Bug 3617295
6439:
6440: hr_utility.set_location('l_wgi_due_date calculated is ' || l_wgi_due_date,1);
6441: hr_utility.set_location('lei date calculated is ' || p_wgi.p_last_equi_incr,2);
6442: hr_utility.set_location('l_wgi_pay_date calculated is ' || l_wgi_pay_date,3);
6443:
6444: ghr_element_api.process_sf52_element
6437: END IF;
6438: -- End Bug 3617295
6439:
6440: hr_utility.set_location('l_wgi_due_date calculated is ' || l_wgi_due_date,1);
6441: hr_utility.set_location('lei date calculated is ' || p_wgi.p_last_equi_incr,2);
6442: hr_utility.set_location('l_wgi_pay_date calculated is ' || l_wgi_pay_date,3);
6443:
6444: ghr_element_api.process_sf52_element
6445: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6438: -- End Bug 3617295
6439:
6440: hr_utility.set_location('l_wgi_due_date calculated is ' || l_wgi_due_date,1);
6441: hr_utility.set_location('lei date calculated is ' || p_wgi.p_last_equi_incr,2);
6442: hr_utility.set_location('l_wgi_pay_date calculated is ' || l_wgi_pay_date,3);
6443:
6444: ghr_element_api.process_sf52_element
6445: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6446: ,p_element_name => 'Within Grade Increase'
6462: Else
6463: If p_wgi.p_date_wgi_due is not null or
6464: p_wgi.p_wgi_pay_date is not null or
6465: p_wgi.p_date_wgi_postpone_effective is not null then
6466: hr_utility.set_location(l_proc,85);
6467: hr_utility.set_location('date due ' || p_wgi.p_date_wgi_due,1);
6468: hr_utility.set_location('determ due' || p_wgi.p_date_wgi_postpone_effective,2);
6469:
6470: ghr_element_api.process_sf52_element
6463: If p_wgi.p_date_wgi_due is not null or
6464: p_wgi.p_wgi_pay_date is not null or
6465: p_wgi.p_date_wgi_postpone_effective is not null then
6466: hr_utility.set_location(l_proc,85);
6467: hr_utility.set_location('date due ' || p_wgi.p_date_wgi_due,1);
6468: hr_utility.set_location('determ due' || p_wgi.p_date_wgi_postpone_effective,2);
6469:
6470: ghr_element_api.process_sf52_element
6471: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6464: p_wgi.p_wgi_pay_date is not null or
6465: p_wgi.p_date_wgi_postpone_effective is not null then
6466: hr_utility.set_location(l_proc,85);
6467: hr_utility.set_location('date due ' || p_wgi.p_date_wgi_due,1);
6468: hr_utility.set_location('determ due' || p_wgi.p_date_wgi_postpone_effective,2);
6469:
6470: ghr_element_api.process_sf52_element
6471: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6472: ,p_element_name => 'Within Grade Increase'
6506: p_pa_request_id => p_pa_request_rec.pa_request_id
6507: );
6508: END IF;
6509: END IF;
6510: hr_utility.set_location('ret person extra info id : ' || l_retained_grade_rec.person_extra_info_id,1);
6511:
6512: -------Bug 5913362 -- Adding 890
6513: If l_retained_grade_rec.person_extra_info_id is not null
6514: and p_pa_request_rec.first_noa_code NOT IN ('866', '890') then
6511:
6512: -------Bug 5913362 -- Adding 890
6513: If l_retained_grade_rec.person_extra_info_id is not null
6514: and p_pa_request_rec.first_noa_code NOT IN ('866', '890') then
6515: hr_utility.set_location('update retained grade info',1);
6516: for retained_grade_ovn in c_retained_grade_ovn loop
6517: l_ret_object_version_number := retained_grade_ovn.object_version_number;
6518: if p_pa_request_rec.first_noa_code in ('867','892','893','894')
6519: then
6527: l_new_temp_step := retained_grade_ovn.pei_information9;
6528: end if;
6529: end loop;
6530: If p_pa_request_rec.first_noa_code in ('867','892','893','894') then
6531: hr_utility.set_location('procesing 867,892,893,894',1);
6532: ghr_history_api.get_g_session_var(l_session);
6533: If l_session.noa_id_correct is null then
6534: hr_utility.set_location('procesing 867,892,893,894 not a corr',1);
6535: ----Bug 6193571 start
6530: If p_pa_request_rec.first_noa_code in ('867','892','893','894') then
6531: hr_utility.set_location('procesing 867,892,893,894',1);
6532: ghr_history_api.get_g_session_var(l_session);
6533: If l_session.noa_id_correct is null then
6534: hr_utility.set_location('procesing 867,892,893,894 not a corr',1);
6535: ----Bug 6193571 start
6536: if p_pa_request_rec.first_noa_code = '894'
6537: AND l_new_step_or_rate is not null
6538: AND ghr_process_sf52.g_prd IS NOT NULL then
6552: end if;
6553: IF p_pa_request_rec.first_noa_code in ('867','892','893') THEN
6554: l_new_step_or_rate := l_retained_grade_rec.step_or_rate;
6555: l_new_temp_step := l_retained_grade_rec.temp_step;
6556: hr_utility.set_location('TPS 1 ',1);
6557: END IF;
6558: hr_utility.set_location('TPS 1a '||l_new_temp_step,1);
6559: IF l_new_temp_step is NOT NULL THEN
6560: hr_utility.set_location('TPS 1b '||l_new_temp_step,1);
6554: l_new_step_or_rate := l_retained_grade_rec.step_or_rate;
6555: l_new_temp_step := l_retained_grade_rec.temp_step;
6556: hr_utility.set_location('TPS 1 ',1);
6557: END IF;
6558: hr_utility.set_location('TPS 1a '||l_new_temp_step,1);
6559: IF l_new_temp_step is NOT NULL THEN
6560: hr_utility.set_location('TPS 1b '||l_new_temp_step,1);
6561: hr_person_extra_info_api.create_person_extra_info
6562: (p_person_id => p_pa_request_rec.person_id,
6556: hr_utility.set_location('TPS 1 ',1);
6557: END IF;
6558: hr_utility.set_location('TPS 1a '||l_new_temp_step,1);
6559: IF l_new_temp_step is NOT NULL THEN
6560: hr_utility.set_location('TPS 1b '||l_new_temp_step,1);
6561: hr_person_extra_info_api.create_person_extra_info
6562: (p_person_id => p_pa_request_rec.person_id,
6563: p_information_type => 'GHR_US_RETAINED_GRADE',
6564: p_pei_information_category => 'GHR_US_RETAINED_GRADE',
6574: p_pei_information8 => l_new_pay_basis,
6575: p_pei_information9 => l_new_temp_step
6576: );
6577: ELSE
6578: hr_utility.set_location('TPS 2 '||l_new_step_or_rate,2);
6579: ---Bug 6024225 Added nvl value for 894 action. Need to check this at a later time.
6580:
6581: --- Bug 6193571 start
6582: if p_pa_request_rec.first_noa_code = '894'
6618: end if;
6619: END IF;
6620: End if;
6621: Else
6622: hr_utility.set_location('TPS 3 '||l_new_step_or_rate,3);
6623: hr_person_extra_info_api.update_person_extra_info
6624: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
6625: p_object_version_number => l_ret_object_version_number,
6626: p_pei_information4 => l_retained_grade_rec.step_or_rate
6637: IF p_pa_request_rec.first_noa_code in ('703') THEN
6638: FOR cur_temp_step_rec IN cur_temp_step LOOP
6639: l_new_temp_step := cur_temp_step_rec.temp_step;
6640: END LOOP;
6641: hr_utility.set_location('TPS 4 '||l_new_temp_step,4);
6642: IF l_new_temp_step is not null THEN
6643: l_retained_grade_rec :=
6644: ghr_pc_basic_pay.get_retained_grade_details
6645: (p_person_id => p_pa_request_rec.person_id,
6646: p_effective_date => p_pa_request_rec.effective_date,
6647: p_pa_request_id => p_pa_request_rec.pa_request_id
6648: );
6649: IF l_retained_grade_rec.person_extra_info_id is not null then
6650: hr_utility.set_location('Inside 703 processing '||l_retained_grade_rec.person_extra_info_id,1);
6651: FOR retained_grade_ovn IN c_retained_grade_ovn LOOP
6652: l_ret_object_version_number := retained_grade_ovn.object_version_number;
6653: l_new_date_to := retained_grade_ovn.pei_information2;
6654: l_new_grade_or_level := retained_grade_ovn.pei_information3;
6659: l_new_pay_basis := retained_grade_ovn.pei_information8;
6660: exit;
6661: END LOOP;
6662: ghr_history_api.get_g_session_var(l_session);
6663: hr_utility.set_location('Inside 703 processing ',2);
6664: IF l_session.noa_id_correct is null then
6665: -- End date the existing RG record
6666: hr_person_extra_info_api.update_person_extra_info
6667: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
6667: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
6668: p_object_version_number => l_ret_object_version_number,
6669: p_pei_information2 => fnd_date.date_to_canonical(p_pa_request_rec.effective_date - 1)
6670: );
6671: hr_utility.set_location('Inside 703 processing ',3);
6672: -- Create the new RG Record with Temporary Promotion Step Value
6673: hr_person_extra_info_api.create_person_extra_info
6674: (p_person_id => p_pa_request_rec.person_id,
6675: p_information_type => 'GHR_US_RETAINED_GRADE',
6685: p_pei_information7 => l_new_loc_percent,
6686: p_pei_information8 => l_new_pay_basis,
6687: p_pei_information9 => l_new_temp_step
6688: );
6689: hr_utility.set_location('Inside 703 processing ',3);
6690: ELSE
6691: -- Update the current RG
6692: hr_utility.set_location('Inside 703 correction processing '||l_new_temp_step,4);
6693: hr_person_extra_info_api.update_person_extra_info
6688: );
6689: hr_utility.set_location('Inside 703 processing ',3);
6690: ELSE
6691: -- Update the current RG
6692: hr_utility.set_location('Inside 703 correction processing '||l_new_temp_step,4);
6693: hr_person_extra_info_api.update_person_extra_info
6694: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
6695: p_object_version_number => l_ret_object_version_number,
6696: p_pei_information9 => l_new_temp_step
6716: WHEN OTHERS THEN
6717: NULL;
6718: END;
6719: IF l_retained_grade_rec.person_extra_info_id is not null then
6720: hr_utility.set_location('Inside 740 processing '||l_retained_grade_rec.person_extra_info_id,1);
6721: FOR retained_grade_ovn IN c_retained_grade_ovn LOOP
6722: l_ret_object_version_number := retained_grade_ovn.object_version_number;
6723: l_new_date_to := retained_grade_ovn.pei_information2;
6724: l_new_grade_or_level := retained_grade_ovn.pei_information3;
6729: l_new_pay_basis := retained_grade_ovn.pei_information8;
6730: l_new_temp_step := retained_grade_ovn.pei_information9;
6731: exit;
6732: END LOOP;
6733: hr_utility.set_location('Inside 740 processing ',2);
6734: ghr_history_api.get_g_session_var(l_session);
6735: IF l_new_temp_step IS NOT NULL and l_session.noa_id_correct IS NULL THEN
6736: -- End date the existing RG record
6737: hr_person_extra_info_api.update_person_extra_info
6738: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
6739: p_object_version_number => l_ret_object_version_number,
6740: p_pei_information2 => fnd_date.date_to_canonical(p_pa_request_rec.effective_date - 1)
6741: );
6742: hr_utility.set_location('Inside 740 processing ',3);
6743: -- Create the new RG Record with null Temporary Promotion Step Value
6744: hr_person_extra_info_api.create_person_extra_info
6745: (p_person_id => p_pa_request_rec.person_id,
6746: p_information_type => 'GHR_US_RETAINED_GRADE',
6755: p_pei_information6 => l_new_pay_table,
6756: p_pei_information7 => l_new_loc_percent,
6757: p_pei_information8 => l_new_pay_basis
6758: );
6759: hr_utility.set_location('Inside 740 processing ',3);
6760: END IF;
6761: END IF;
6762: END IF;
6763: hr_utility.set_location('Leaving ' ||l_proc,100);
6759: hr_utility.set_location('Inside 740 processing ',3);
6760: END IF;
6761: END IF;
6762: END IF;
6763: hr_utility.set_location('Leaving ' ||l_proc,100);
6764: Exception when others then
6765: --
6766: -- Reset IN OUT parameters and set OUT parameters
6767: --
7143: l_noa_code VARCHAR2(150);
7144: l_session ghr_history_api.g_session_var_type;
7145:
7146: BEGIN
7147: hr_utility.set_location('Entering process_incentive_elements'||p_pa_request_id,0);
7148: l_installment_ctr := 0;
7149: ghr_history_api.get_g_session_var(l_session);
7150: IF l_session.noa_id_correct IS NOT NULL and
7151: p_payment_option = 'H' and
7158: ,p_second_noa_code);
7159: ELSE
7160: FOR c_incdet_rec IN c_inc_catg_details(p_pa_request_id)
7161: LOOP
7162: hr_utility.set_location('Inside For Loop, Category: '||c_incdet_rec.pa_incentive_category,10);
7163: hr_utility.set_location('Inside For Loop, NOA Code: '||p_first_noa_code,20);
7164: hr_utility.set_location('Inside For Loop, ASG ID : '||p_assignment_id,30);
7165: -- This is a special case. Till now, we have never created the same element twice in a
7166: -- single RPA action. If process_sf52_element is called, only one of these two elements
7159: ELSE
7160: FOR c_incdet_rec IN c_inc_catg_details(p_pa_request_id)
7161: LOOP
7162: hr_utility.set_location('Inside For Loop, Category: '||c_incdet_rec.pa_incentive_category,10);
7163: hr_utility.set_location('Inside For Loop, NOA Code: '||p_first_noa_code,20);
7164: hr_utility.set_location('Inside For Loop, ASG ID : '||p_assignment_id,30);
7165: -- This is a special case. Till now, we have never created the same element twice in a
7166: -- single RPA action. If process_sf52_element is called, only one of these two elements
7167: -- will be updated with both the values.And the latest values will retain. To avoid that,
7160: FOR c_incdet_rec IN c_inc_catg_details(p_pa_request_id)
7161: LOOP
7162: hr_utility.set_location('Inside For Loop, Category: '||c_incdet_rec.pa_incentive_category,10);
7163: hr_utility.set_location('Inside For Loop, NOA Code: '||p_first_noa_code,20);
7164: hr_utility.set_location('Inside For Loop, ASG ID : '||p_assignment_id,30);
7165: -- This is a special case. Till now, we have never created the same element twice in a
7166: -- single RPA action. If process_sf52_element is called, only one of these two elements
7167: -- will be updated with both the values.And the latest values will retain. To avoid that,
7168: -- update the elements separately here itself.
7408: l_effective_date := trunc(p_pa_request_rec.effective_date);
7409: End if;
7410: ****/
7411:
7412: hr_utility.set_location('Entering ' || l_proc,5);
7413: -- Processing FEGLI
7414:
7415: --
7416: If p_pa_request_rec.fegli is not null then
7413: -- Processing FEGLI
7414:
7415: --
7416: If p_pa_request_rec.fegli is not null then
7417: hr_utility.set_location(l_proc,10);
7418: -- BEN_EIT Changes Commented the following code
7419: -- as input value2 is moved to Benefits EIT
7420: /* -- Bug 3238026 Added condition for CHG_FEGLI
7421: IF (p_pa_request_rec.noa_family_code = 'CHG_FEGLI') THEN
7418: -- BEN_EIT Changes Commented the following code
7419: -- as input value2 is moved to Benefits EIT
7420: /* -- Bug 3238026 Added condition for CHG_FEGLI
7421: IF (p_pa_request_rec.noa_family_code = 'CHG_FEGLI') THEN
7422: hr_utility.set_location('Entering IF fegli',123456);
7423: ghr_element_api.process_sf52_element
7424: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7425: ,p_element_name => 'FEGLI'
7426: ,p_input_value_name1 => 'FEGLI'
7433: ,p_process_warning => l_warning
7434: );
7435: ELSE
7436: */
7437: hr_utility.set_location('Entering ELSE fegli',123456);
7438: ghr_element_api.process_sf52_element
7439: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7440: ,p_element_name => 'FEGLI'
7441: ,p_input_value_name1 => 'FEGLI'
7447: -- End Bug 3238026
7448:
7449: /* To be included after Martin Reid's element api handles the create and update warning
7450: if l_fegli_warn = FALSE then
7451: hr_utility.set_message(8301,'GHR_38141_FAIL_TO_UPD_FEGLI');
7452: hr_utility.raise_error;
7453: end if;
7454: */
7455: END IF;
7448:
7449: /* To be included after Martin Reid's element api handles the create and update warning
7450: if l_fegli_warn = FALSE then
7451: hr_utility.set_message(8301,'GHR_38141_FAIL_TO_UPD_FEGLI');
7452: hr_utility.raise_error;
7453: end if;
7454: */
7455: END IF;
7456: --
7456: --
7457: -- Processing retirement plan
7458: --
7459: If p_pa_request_rec.retirement_plan is not null then
7460: hr_utility.set_location(l_proc,20);
7461: ghr_element_api.process_sf52_element
7462: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7463: ,p_element_name => 'Retirement Plan'
7464: ,p_input_value_name1 => 'Plan'
7468: );
7469: --
7470: /*
7471: if l_retirement_plan_warn = FALSE then
7472: hr_utility.set_message(8301,'GHR_38142_FAIL_TO_UPD_RET_PLN');
7473: hr_utility.raise_error;
7474: end if;
7475: */
7476: end if;
7469: --
7470: /*
7471: if l_retirement_plan_warn = FALSE then
7472: hr_utility.set_message(8301,'GHR_38142_FAIL_TO_UPD_RET_PLN');
7473: hr_utility.raise_error;
7474: end if;
7475: */
7476: end if;
7477: --
7479: -- Processing recruitment bonus
7480: --
7481: If p_recruitment_bonus.p_recruitment_bonus is not null or
7482: p_recruitment_bonus.p_date_recruit_exp is not null then
7483: hr_utility.set_location(l_proc,30);
7484: hr_utility.set_location(l_proc || p_recruitment_bonus.p_date_recruit_exp,31);
7485: hr_utility.set_location(l_proc ||to_char(p_pa_request_rec.employee_assignment_id),35);
7486: ghr_element_api.process_sf52_element
7487: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7480: --
7481: If p_recruitment_bonus.p_recruitment_bonus is not null or
7482: p_recruitment_bonus.p_date_recruit_exp is not null then
7483: hr_utility.set_location(l_proc,30);
7484: hr_utility.set_location(l_proc || p_recruitment_bonus.p_date_recruit_exp,31);
7485: hr_utility.set_location(l_proc ||to_char(p_pa_request_rec.employee_assignment_id),35);
7486: ghr_element_api.process_sf52_element
7487: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7488: ,p_element_name => 'Recruitment Bonus'
7481: If p_recruitment_bonus.p_recruitment_bonus is not null or
7482: p_recruitment_bonus.p_date_recruit_exp is not null then
7483: hr_utility.set_location(l_proc,30);
7484: hr_utility.set_location(l_proc || p_recruitment_bonus.p_date_recruit_exp,31);
7485: hr_utility.set_location(l_proc ||to_char(p_pa_request_rec.employee_assignment_id),35);
7486: ghr_element_api.process_sf52_element
7487: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7488: ,p_element_name => 'Recruitment Bonus'
7489: ,p_input_value_name1 => 'Amount'
7499: );
7500:
7501: /*
7502: if l_recruitment_bonus_warn = FALSE then
7503: hr_utility.set_message(8301,'GHR_38143_FAIL_TO_UPD_RCRT_BON');
7504: hr_utility.raise_error;
7505: end if;
7506: */
7507: end if;
7500:
7501: /*
7502: if l_recruitment_bonus_warn = FALSE then
7503: hr_utility.set_message(8301,'GHR_38143_FAIL_TO_UPD_RCRT_BON');
7504: hr_utility.raise_error;
7505: end if;
7506: */
7507: end if;
7508: --
7507: end if;
7508: --
7509: -- Processing relocation bonus
7510: --
7511: hr_utility.set_location('Rel. Bonus' || p_relocation_bonus.p_relocation_bonus,1);
7512: If p_relocation_bonus.p_relocation_bonus is not null or
7513: p_relocation_bonus.p_date_reloc_exp is not null then
7514: hr_utility.set_location(l_proc,40);
7515: ghr_element_api.process_sf52_element
7510: --
7511: hr_utility.set_location('Rel. Bonus' || p_relocation_bonus.p_relocation_bonus,1);
7512: If p_relocation_bonus.p_relocation_bonus is not null or
7513: p_relocation_bonus.p_date_reloc_exp is not null then
7514: hr_utility.set_location(l_proc,40);
7515: ghr_element_api.process_sf52_element
7516: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7517: ,p_element_name => 'Relocation Bonus'
7518: ,p_input_value_name1 => 'Amount'
7527: );
7528: --
7529: /*
7530: if l_relocation_bonus_warn = FALSE then
7531: hr_utility.set_message(8301,'GHR_38144_FAIL_TO_UPD_REL_BON');
7532: hr_utility.raise_error;
7533: end if;
7534: */
7535: end if;
7528: --
7529: /*
7530: if l_relocation_bonus_warn = FALSE then
7531: hr_utility.set_message(8301,'GHR_38144_FAIL_TO_UPD_REL_BON');
7532: hr_utility.raise_error;
7533: end if;
7534: */
7535: end if;
7536: --
7538: If p_pa_request_rec.first_noa_code = '817' or p_pa_request_rec.second_noa_code = '817' then
7539: If p_student_loan_repay.p_amount is not null or
7540: p_student_loan_repay.p_review_date is not null then
7541: IF (p_student_loan_repay.p_repay_schedule = 'L') THEN
7542: hr_utility.set_location(l_proc,40);
7543: ghr_element_api.process_sf52_element
7544: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7545: ,p_element_name => 'Student Loan Repayment LumpSum'
7546: ,p_input_value_name1 => 'Amount'
7551: ,p_effective_date => l_effective_date
7552: ,p_process_warning => l_warning
7553: );
7554: ELSIF (p_student_loan_repay.p_repay_schedule = 'R') THEN
7555: hr_utility.set_location(l_proc,40);
7556: ghr_element_api.process_sf52_element
7557: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7558: ,p_element_name => 'Student Loan Repayment'
7559: ,p_input_value_name1 => 'Amount'
7571: --
7572: -- processing awards_bonus
7573: --
7574: If p_gov_award.award_flag = 'Y' then
7575: hr_utility.set_location(l_proc,50);
7576: hr_utility.set_location('Date awRd' || p_gov_award.date_award_earned,1);
7577: hr_utility.set_location('Award Agency ' || p_gov_award.award_Agency,1);
7578: hr_utility.set_location('Award Percentage ' || p_pa_request_rec.award_percentage,1);
7579: hr_utility.set_location('Date Exemp' || p_gov_award.date_exemp_award,1);
7572: -- processing awards_bonus
7573: --
7574: If p_gov_award.award_flag = 'Y' then
7575: hr_utility.set_location(l_proc,50);
7576: hr_utility.set_location('Date awRd' || p_gov_award.date_award_earned,1);
7577: hr_utility.set_location('Award Agency ' || p_gov_award.award_Agency,1);
7578: hr_utility.set_location('Award Percentage ' || p_pa_request_rec.award_percentage,1);
7579: hr_utility.set_location('Date Exemp' || p_gov_award.date_exemp_award,1);
7580: -- Bug # 1061084
7573: --
7574: If p_gov_award.award_flag = 'Y' then
7575: hr_utility.set_location(l_proc,50);
7576: hr_utility.set_location('Date awRd' || p_gov_award.date_award_earned,1);
7577: hr_utility.set_location('Award Agency ' || p_gov_award.award_Agency,1);
7578: hr_utility.set_location('Award Percentage ' || p_pa_request_rec.award_percentage,1);
7579: hr_utility.set_location('Date Exemp' || p_gov_award.date_exemp_award,1);
7580: -- Bug # 1061084
7581: hr_utility.set_location('Appropriation Code' || p_gov_award.award_appropriation_code,1);
7574: If p_gov_award.award_flag = 'Y' then
7575: hr_utility.set_location(l_proc,50);
7576: hr_utility.set_location('Date awRd' || p_gov_award.date_award_earned,1);
7577: hr_utility.set_location('Award Agency ' || p_gov_award.award_Agency,1);
7578: hr_utility.set_location('Award Percentage ' || p_pa_request_rec.award_percentage,1);
7579: hr_utility.set_location('Date Exemp' || p_gov_award.date_exemp_award,1);
7580: -- Bug # 1061084
7581: hr_utility.set_location('Appropriation Code' || p_gov_award.award_appropriation_code,1);
7582: ghr_element_api.process_sf52_element
7575: hr_utility.set_location(l_proc,50);
7576: hr_utility.set_location('Date awRd' || p_gov_award.date_award_earned,1);
7577: hr_utility.set_location('Award Agency ' || p_gov_award.award_Agency,1);
7578: hr_utility.set_location('Award Percentage ' || p_pa_request_rec.award_percentage,1);
7579: hr_utility.set_location('Date Exemp' || p_gov_award.date_exemp_award,1);
7580: -- Bug # 1061084
7581: hr_utility.set_location('Appropriation Code' || p_gov_award.award_appropriation_code,1);
7582: ghr_element_api.process_sf52_element
7583: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7577: hr_utility.set_location('Award Agency ' || p_gov_award.award_Agency,1);
7578: hr_utility.set_location('Award Percentage ' || p_pa_request_rec.award_percentage,1);
7579: hr_utility.set_location('Date Exemp' || p_gov_award.date_exemp_award,1);
7580: -- Bug # 1061084
7581: hr_utility.set_location('Appropriation Code' || p_gov_award.award_appropriation_code,1);
7582: ghr_element_api.process_sf52_element
7583: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7584: ,p_element_name => 'Federal Awards'
7585: ,p_input_value_name1 => 'Award Agency'
7609: --
7610: -- process entitlement
7611: --
7612: if p_entitlement.entitlement_flag = 'Y' then
7613: hr_utility.set_location(l_proc,60);
7614: ghr_element_api.process_sf52_element
7615: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7616: ,p_element_name => 'Entitlement'
7617: ,p_input_value_name1 => 'Code'
7625: --
7626: -- process foreign lang profiency pay
7627: --
7628: if p_foreign_lang_prof_pay.for_lang_flag = 'Y' then
7629: hr_utility.set_location(l_proc,70);
7630: ghr_element_api.process_sf52_element
7631: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7632: ,p_element_name => 'Foreign Lang Proficiency Pay'
7633: ,p_input_value_name1 => 'Certification Date'
7642: --
7643: -- Bug#3385386 process foreign Transfer Allowance(FTA) element
7644: --
7645: if p_fta.fta_flag = 'Y' then
7646: hr_utility.set_location(l_proc,75);
7647: ghr_element_api.process_sf52_element
7648: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7649: ,p_element_name => 'Foreign Transfer Allowance'
7650: ,p_input_value_name1 => 'Last Action Code'
7668: --
7669: -- process edp pay
7670: --
7671: if p_edp_pay.edp_flag = 'Y' then
7672: hr_utility.set_location(l_proc,80);
7673: ghr_element_api.process_sf52_element
7674: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7675: ,p_element_name => 'EDP Pay'
7676: ,p_input_value_name1 => 'Premium Pay Ind'
7685: --
7686: -- process hazard pay
7687: --
7688: if p_hazard_pay.hazard_flag = 'Y' then
7689: hr_utility.set_location(l_proc,85);
7690: ghr_element_api.process_sf52_element
7691: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7692: ,p_element_name => 'Hazard Pay'
7693: ,p_input_value_name1 => 'Premium Pay Ind'
7701: --
7702: -- process health benefits
7703: -- Sundar Benefits EIT Enhancement
7704: if p_health_benefits.health_benefits_flag = 'Y' then
7705: hr_utility.set_location(l_proc,90);
7706: IF ghr_utility.is_ghr_ben_fehb = 'TRUE' THEN
7707: NULL;
7708: ELSE
7709: ghr_element_api.process_sf52_element
7702: -- process health benefits
7703: -- Sundar Benefits EIT Enhancement
7704: if p_health_benefits.health_benefits_flag = 'Y' then
7705: hr_utility.set_location(l_proc,90);
7706: IF ghr_utility.is_ghr_ben_fehb = 'TRUE' THEN
7707: NULL;
7708: ELSE
7709: ghr_element_api.process_sf52_element
7710: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7719: ,p_value4 => p_health_benefits.pre_tax_waiver
7720: ,p_effective_date => l_effective_date
7721: ,p_process_warning => l_warning
7722: );
7723: END IF; -- IF ghr_utility.is_ghr_ben_fehb THEN
7724: end if;
7725: --
7726: --
7727: -- process health benefits pre tax
7726: --
7727: -- process health benefits pre tax
7728: --
7729: if p_health_ben_pre_tax.health_ben_pre_tax_flag = 'Y' then
7730: hr_utility.set_location(l_proc,90);
7731: IF ghr_utility.is_ghr_ben_fehb = 'TRUE' THEN
7732: NULL;
7733: ELSE
7734: ghr_element_api.process_sf52_element
7727: -- process health benefits pre tax
7728: --
7729: if p_health_ben_pre_tax.health_ben_pre_tax_flag = 'Y' then
7730: hr_utility.set_location(l_proc,90);
7731: IF ghr_utility.is_ghr_ben_fehb = 'TRUE' THEN
7732: NULL;
7733: ELSE
7734: ghr_element_api.process_sf52_element
7735: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7742: ,p_value3 => p_health_ben_pre_tax.temps_total_cost
7743: ,p_effective_date => l_effective_date
7744: ,p_process_warning => l_warning
7745: );
7746: END IF; -- IF ghr_utility.is_ghr_ben_fehb = TRUE THEN
7747: end if;
7748: --
7749: -- process danger pay
7750: --
7748: --
7749: -- process danger pay
7750: --
7751: if p_danger_pay.danger_flag = 'Y' then
7752: hr_utility.set_location(l_proc,100);
7753: ghr_element_api.process_sf52_element
7754: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7755: ,p_element_name => 'Danger Pay'
7756: ,p_input_value_name1 => 'Last Action Code'
7764: --
7765: -- process imminent danger pay
7766: --
7767: if p_imminent_danger_pay.imminent_danger_flag = 'Y' then
7768: hr_utility.set_location(l_proc,110);
7769: ghr_element_api.process_sf52_element
7770: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7771: ,p_element_name => 'Imminent Danger Pay'
7772: ,p_input_value_name1 => 'Amount'
7782: --
7783: -- process living_quarters_allow
7784: --
7785: if p_living_quarters_allow.living_quarters_allow_flag = 'Y' then
7786: hr_utility.set_location(l_proc,120);
7787: ghr_element_api.process_sf52_element
7788: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7789: ,p_element_name => 'Living Quarters Allowance'
7790: ,p_input_value_name1 => 'Purchase Amount'
7819: --
7820: -- process post differential amount
7821: --
7822: if p_post_diff_amt.post_diff_amt_flag = 'Y' then
7823: hr_utility.set_location(l_proc,130);
7824: ghr_element_api.process_sf52_element
7825: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7826: -- ,p_element_name => 'Post Differential Amount' -- Bug 2645878 Elements renamed
7827: ,p_element_name => 'Post Allowance'
7840: --
7841: -- process post differential percent
7842: --
7843: if p_post_diff_percent.post_diff_percent_flag = 'Y' then
7844: hr_utility.set_location(l_proc,140);
7845: hr_utility.set_location('subbu'||p_post_diff_percent.percent,141);
7846: hr_utility.set_location('subbu'||p_post_diff_percent.last_action_code,142);
7847: hr_utility.set_location('subbu'||p_post_diff_percent.location,143);
7848:
7841: -- process post differential percent
7842: --
7843: if p_post_diff_percent.post_diff_percent_flag = 'Y' then
7844: hr_utility.set_location(l_proc,140);
7845: hr_utility.set_location('subbu'||p_post_diff_percent.percent,141);
7846: hr_utility.set_location('subbu'||p_post_diff_percent.last_action_code,142);
7847: hr_utility.set_location('subbu'||p_post_diff_percent.location,143);
7848:
7849: ghr_element_api.process_sf52_element
7842: --
7843: if p_post_diff_percent.post_diff_percent_flag = 'Y' then
7844: hr_utility.set_location(l_proc,140);
7845: hr_utility.set_location('subbu'||p_post_diff_percent.percent,141);
7846: hr_utility.set_location('subbu'||p_post_diff_percent.last_action_code,142);
7847: hr_utility.set_location('subbu'||p_post_diff_percent.location,143);
7848:
7849: ghr_element_api.process_sf52_element
7850: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7843: if p_post_diff_percent.post_diff_percent_flag = 'Y' then
7844: hr_utility.set_location(l_proc,140);
7845: hr_utility.set_location('subbu'||p_post_diff_percent.percent,141);
7846: hr_utility.set_location('subbu'||p_post_diff_percent.last_action_code,142);
7847: hr_utility.set_location('subbu'||p_post_diff_percent.location,143);
7848:
7849: ghr_element_api.process_sf52_element
7850: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7851: -- ,p_element_name => 'Post Differential Percent' -- Bug 2645878 Element renamed
7863: --
7864: -- process sep_maintenance_allow
7865: --
7866: if p_sep_maintenance_allow.sep_maint_allow_flag = 'Y' then
7867: hr_utility.set_location(l_proc,150);
7868: ghr_element_api.process_sf52_element
7869: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7870: ,p_element_name => 'Separate Maintenance Allowance'
7871: ,p_input_value_name1 => 'Amount'
7881: --
7882: -- process supplemental_post_allow
7883: --
7884: if p_supplemental_post_allow.sup_post_allow_flag = 'Y' then
7885: hr_utility.set_location(l_proc,160);
7886: ghr_element_api.process_sf52_element
7887: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7888: ,p_element_name => 'Supplemental Post Allowance'
7889: ,p_input_value_name1 => 'Amount'
7895: --
7896: -- process temp_lodge_allow
7897: --
7898: if p_temp_lodge_allow.temp_lodge_allow_flag = 'Y' then
7899: hr_utility.set_location(l_proc,170);
7900: ghr_element_api.process_sf52_element
7901: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7902: ,p_element_name => 'Temporary Lodging Allowance'
7903: ,p_input_value_name1 => 'Allowance Type'
7911: --
7912: -- process premium_pay
7913: --
7914: if p_premium_pay.premium_pay_flag = 'Y' then
7915: hr_utility.set_location(l_proc,180);
7916: ghr_element_api.process_sf52_element
7917: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7918: ,p_element_name => 'Premium Pay'
7919: ,p_input_value_name1 => 'Premium Pay Ind'
7927: --
7928: -- process retirement_annuity
7929: --
7930: if p_retirement_annuity.retirement_annuity_flag = 'Y' then
7931: hr_utility.set_location(l_proc,190);
7932: ghr_element_api.process_sf52_element
7933: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7934: ,p_element_name => 'Retirement Annuity'
7935: ,p_input_value_name1 => 'Sum'
7944: --
7945: -- process severance_pay
7946: --
7947: if p_severance_pay.severance_pay_flag = 'Y' then
7948: hr_utility.set_location(l_proc,200);
7949: ghr_element_api.process_sf52_element
7950: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7951: ,p_element_name => 'Severance Pay'
7952: ,p_input_value_name1 => 'Amount'
7964: --
7965: -- process thrift_saving_plan
7966: --
7967: if p_thrift_saving_plan.tsp_flag = 'Y' then
7968: hr_utility.set_location(l_proc,210);
7969: IF ghr_utility.is_ghr_ben_tsp = 'TRUE' THEN
7970: NULL;
7971: ELSE
7972: -- Bug#4582970 Removed Agncy Elig Date, Emp Elig Date values.
7965: -- process thrift_saving_plan
7966: --
7967: if p_thrift_saving_plan.tsp_flag = 'Y' then
7968: hr_utility.set_location(l_proc,210);
7969: IF ghr_utility.is_ghr_ben_tsp = 'TRUE' THEN
7970: NULL;
7971: ELSE
7972: -- Bug#4582970 Removed Agncy Elig Date, Emp Elig Date values.
7973: ghr_element_api.process_sf52_element
7984: fnd_date.date_to_displaydate(fnd_date.canonical_to_date(p_thrift_saving_plan.status_date)) --AVR
7985: ,p_effective_date => l_effective_date
7986: ,p_process_warning => l_warning
7987: );
7988: END IF; -- IF ghr_utility.is_ghr_ben_tsp
7989: end if;
7990:
7991:
7992: --
7992: --
7993: -- BUG # 13571004 process TSP Roth
7994: --
7995: if p_tsp_roth.tsp_roth_flag = 'Y' then
7996: hr_utility.set_location(l_proc,212);
7997: IF ghr_utility.is_ghr_ben_tsp = 'TRUE' THEN
7998: NULL;
7999: ELSE
8000: ghr_element_api.process_sf52_element
7993: -- BUG # 13571004 process TSP Roth
7994: --
7995: if p_tsp_roth.tsp_roth_flag = 'Y' then
7996: hr_utility.set_location(l_proc,212);
7997: IF ghr_utility.is_ghr_ben_tsp = 'TRUE' THEN
7998: NULL;
7999: ELSE
8000: ghr_element_api.process_sf52_element
8001: (p_assignment_id => p_pa_request_rec.employee_assignment_id
8006: ,p_value2 => p_tsp_roth.tsp_roth_401k_rate
8007: ,p_effective_date => l_effective_date
8008: ,p_process_warning => l_warning
8009: );
8010: END IF; -- IF ghr_utility.is_ghr_ben_tsp
8011: end if;
8012:
8013:
8014: --
8014: --
8015: --Pradeep.
8016: --Process MDDDS Special Pay
8017: if p_mddds_special_pay.mddds_special_pay_flag = 'Y' then
8018: hr_utility.set_location(l_proc,215);
8019:
8020: --Bug 3531369
8021: p_mddds_special_pay.amount := NVL(p_mddds_special_pay.Full_Time_Status,0) + NVL(p_mddds_special_pay.Length_of_Service,0) +
8022: NVL(p_mddds_special_pay.Scarce_Specialty,0) + NVL(p_mddds_special_pay.Specialty_or_Board_Cert,0) +
8053:
8054: --
8055: --Pradeep
8056: If p_mddds_special_pay.premium_pay_ind is not null then
8057: hr_utility.set_location(l_proc,220);
8058: ghr_element_api.process_sf52_element
8059: (p_assignment_id => p_pa_request_rec.employee_assignment_id
8060: ,p_element_name => 'Premium Pay'
8061: ,p_input_value_name1 => 'Premium Pay Ind'
8070:
8071: --
8072: --Pradeep
8073: If p_premium_pay_ind.premium_pay_ind is not null then
8074: hr_utility.set_location(l_proc,225);
8075: ghr_element_api.process_sf52_element
8076: (p_assignment_id => p_pa_request_rec.employee_assignment_id
8077: ,p_element_name => 'Premium Pay'
8078: ,p_input_value_name1 => 'Premium Pay Ind'
8084:
8085:
8086: -- Bug#4486823 RRR Changes
8087: -- Process Incentive elements
8088: hr_utility.set_location('first noa '||p_pa_request_rec.first_noa_code ||';second noa :'||p_pa_request_rec.second_noa_code,50);
8089: hr_utility.set_location('noa family :'||p_pa_request_rec.noa_family_code,55);
8090: IF (p_pa_request_rec.noa_family_code = 'GHR_INCENTIVE') OR
8091: (p_pa_request_rec.first_noa_code = '002' AND p_pa_request_rec.second_noa_desc like '%Incentive%') OR
8092: (p_pa_request_rec.first_noa_code = '825' OR p_pa_request_rec.second_noa_code = '825' ) THEN
8085:
8086: -- Bug#4486823 RRR Changes
8087: -- Process Incentive elements
8088: hr_utility.set_location('first noa '||p_pa_request_rec.first_noa_code ||';second noa :'||p_pa_request_rec.second_noa_code,50);
8089: hr_utility.set_location('noa family :'||p_pa_request_rec.noa_family_code,55);
8090: IF (p_pa_request_rec.noa_family_code = 'GHR_INCENTIVE') OR
8091: (p_pa_request_rec.first_noa_code = '002' AND p_pa_request_rec.second_noa_desc like '%Incentive%') OR
8092: (p_pa_request_rec.first_noa_code = '825' OR p_pa_request_rec.second_noa_code = '825' ) THEN
8093: hr_utility.set_location('before calling process_incentive_elements'||p_pa_request_rec.pa_request_id,10);
8089: hr_utility.set_location('noa family :'||p_pa_request_rec.noa_family_code,55);
8090: IF (p_pa_request_rec.noa_family_code = 'GHR_INCENTIVE') OR
8091: (p_pa_request_rec.first_noa_code = '002' AND p_pa_request_rec.second_noa_desc like '%Incentive%') OR
8092: (p_pa_request_rec.first_noa_code = '825' OR p_pa_request_rec.second_noa_code = '825' ) THEN
8093: hr_utility.set_location('before calling process_incentive_elements'||p_pa_request_rec.pa_request_id,10);
8094: IF p_pa_request_rec.pa_incentive_payment_option = 'B' THEN
8095: l_total_salary := p_pa_request_rec.to_total_salary;
8096: ELSE
8097: l_total_salary := NULL;
8106: );
8107: END IF;
8108: --
8109:
8110: hr_utility.set_location('Leaving ' ||l_proc,60);
8111: --
8112: Exception when others then
8113: --
8114: -- Reset IN OUT parameters and set OUT parameters
8220: l_dummy_date date;
8221: l_pos_ei_data per_position_extra_info%ROWTYPE;
8222:
8223: Begin
8224: hr_utility.set_location('entering ' || l_proc,5);
8225: If nvl(p_pa_request_rec.pay_Rate_determinant,hr_api.g_varchar2) in ('A','B','E','F') then
8226: for next_from_step in c_next_Step loop
8227: hr_utility.set_location(l_proc,34);
8228: l_step_or_rate := next_from_step.to_step;
8223: Begin
8224: hr_utility.set_location('entering ' || l_proc,5);
8225: If nvl(p_pa_request_rec.pay_Rate_determinant,hr_api.g_varchar2) in ('A','B','E','F') then
8226: for next_from_step in c_next_Step loop
8227: hr_utility.set_location(l_proc,34);
8228: l_step_or_rate := next_from_step.to_step;
8229: end loop;
8230: Else
8231: -- get the user table id for the position in all other cases .
8286: End get_gm_wgi_dates;
8287:
8288: begin
8289:
8290: hr_utility.set_location('Entering ' || l_proc,5);
8291: l_initial_wgi_due_date := p_wgi_due_date;
8292:
8293: p_wgi_pay_date := null;
8294:
8302: End loop;
8303: End if;
8304:
8305: If l_payroll_id is null then
8306: hr_utility.set_location(l_proc,20);
8307: hr_utility.set_message(8301,'GHR_38268_ASG_NO_PAYROLL');
8308: hr_utility.raise_error;
8309: End if;
8310:
8303: End if;
8304:
8305: If l_payroll_id is null then
8306: hr_utility.set_location(l_proc,20);
8307: hr_utility.set_message(8301,'GHR_38268_ASG_NO_PAYROLL');
8308: hr_utility.raise_error;
8309: End if;
8310:
8311: hr_utility.set_location('PAYROLLID ' || to_char(l_payroll_id),1);
8304:
8305: If l_payroll_id is null then
8306: hr_utility.set_location(l_proc,20);
8307: hr_utility.set_message(8301,'GHR_38268_ASG_NO_PAYROLL');
8308: hr_utility.raise_error;
8309: End if;
8310:
8311: hr_utility.set_location('PAYROLLID ' || to_char(l_payroll_id),1);
8312:
8307: hr_utility.set_message(8301,'GHR_38268_ASG_NO_PAYROLL');
8308: hr_utility.raise_error;
8309: End if;
8310:
8311: hr_utility.set_location('PAYROLLID ' || to_char(l_payroll_id),1);
8312:
8313: -- Calculate WGI only when PRD is one of the foll.
8314:
8315: If p_pa_request_rec.pay_rate_determinant in ('0','5','6','7','M') then
8323: p_effective_date => p_pa_request_rec.effective_date,
8324: p_pa_request_id => p_pa_request_rec.pa_request_id
8325: );
8326: l_pay_plan := l_retained_grade_rec.pay_plan;
8327: hr_utility.set_location('temp_step is ' || l_retained_grade_rec.temp_step,1);
8328: If l_retained_grade_rec.temp_step is not null
8329: then
8330: l_step_or_rate := l_retained_grade_rec.temp_step;
8331: l_pay_plan := p_pa_request_rec.to_pay_plan; -- Fix for bug 3023252
8328: If l_retained_grade_rec.temp_step is not null
8329: then
8330: l_step_or_rate := l_retained_grade_rec.temp_step;
8331: l_pay_plan := p_pa_request_rec.to_pay_plan; -- Fix for bug 3023252
8332: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,1);
8333: hr_utility.set_location('New pay plan is ' || l_pay_plan,1);
8334: else
8335: l_step_or_rate := l_retained_grade_rec.step_or_rate;
8336: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,2);
8329: then
8330: l_step_or_rate := l_retained_grade_rec.temp_step;
8331: l_pay_plan := p_pa_request_rec.to_pay_plan; -- Fix for bug 3023252
8332: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,1);
8333: hr_utility.set_location('New pay plan is ' || l_pay_plan,1);
8334: else
8335: l_step_or_rate := l_retained_grade_rec.step_or_rate;
8336: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,2);
8337: end if; -- If l_retained_grade_rec.temp_step is not null
8332: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,1);
8333: hr_utility.set_location('New pay plan is ' || l_pay_plan,1);
8334: else
8335: l_step_or_rate := l_retained_grade_rec.step_or_rate;
8336: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,2);
8337: end if; -- If l_retained_grade_rec.temp_step is not null
8338: l_grade_or_level := l_retained_grade_rec.grade_or_level;
8339: l_user_table_id := l_retained_grade_rec.user_table_id;
8340: If p_pa_request_rec.first_noa_code in ('867','892','893')
8355: ELSE
8356: l_step_or_rate := l_retained_grade_rec.step_or_rate + 1;
8357: END IF;
8358: END IF; -- If l_retained_grade_rec.temp_step is not null
8359: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,3);
8360: hr_utility.set_location('temp_step is ' || p_retained_grade_rec.temp_step,2);
8361: p_retained_grade_rec.step_or_rate := l_step_or_rate;
8362: p_retained_Grade_rec.person_extra_info_id := l_retained_grade_rec.person_extra_info_id;
8363: End if; -- If p_pa_request_rec.first_noa_code in ('867',
8356: l_step_or_rate := l_retained_grade_rec.step_or_rate + 1;
8357: END IF;
8358: END IF; -- If l_retained_grade_rec.temp_step is not null
8359: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,3);
8360: hr_utility.set_location('temp_step is ' || p_retained_grade_rec.temp_step,2);
8361: p_retained_grade_rec.step_or_rate := l_step_or_rate;
8362: p_retained_Grade_rec.person_extra_info_id := l_retained_grade_rec.person_extra_info_id;
8363: End if; -- If p_pa_request_rec.first_noa_code in ('867',
8364:
8375:
8376:
8377: If l_pay_plan is not null then
8378: If p_wgi_due_date is null then
8379: hr_utility.set_location(l_proc,10);
8380: If l_pay_plan = 'GM' then
8381: get_gm_wgi_dates;
8382: -- Null;
8383: Else
8380: If l_pay_plan = 'GM' then
8381: get_gm_wgi_dates;
8382: -- Null;
8383: Else
8384: hr_utility.set_location(l_proc,15);
8385: -- Changed FOR LOOP, and showing error message conditionally. Dinesh Jan 12, 98
8386: open c_equiv_pay_plan;
8387: fetch c_equiv_pay_plan into equiv_pay_plan;
8388: l_eq_pay_plan := equiv_pay_plan.equivalent_pay_plan;
8388: l_eq_pay_plan := equiv_pay_plan.equivalent_pay_plan;
8389: l_maximum_step := equiv_pay_plan.maximum_step;
8390: if c_equiv_pay_plan%FOUND then
8391: If l_eq_pay_plan is null then
8392: hr_utility.set_location(l_proc,26);
8393: hr_utility.set_message(8301,'GHR_38269_NO_EQ_PAY_PLAN');
8394: hr_utility.raise_error;
8395: End if;
8396: else
8389: l_maximum_step := equiv_pay_plan.maximum_step;
8390: if c_equiv_pay_plan%FOUND then
8391: If l_eq_pay_plan is null then
8392: hr_utility.set_location(l_proc,26);
8393: hr_utility.set_message(8301,'GHR_38269_NO_EQ_PAY_PLAN');
8394: hr_utility.raise_error;
8395: End if;
8396: else
8397: hr_utility.set_location(l_proc,25);
8390: if c_equiv_pay_plan%FOUND then
8391: If l_eq_pay_plan is null then
8392: hr_utility.set_location(l_proc,26);
8393: hr_utility.set_message(8301,'GHR_38269_NO_EQ_PAY_PLAN');
8394: hr_utility.raise_error;
8395: End if;
8396: else
8397: hr_utility.set_location(l_proc,25);
8398: close c_equiv_pay_plan;
8393: hr_utility.set_message(8301,'GHR_38269_NO_EQ_PAY_PLAN');
8394: hr_utility.raise_error;
8395: End if;
8396: else
8397: hr_utility.set_location(l_proc,25);
8398: close c_equiv_pay_plan;
8399: return;
8400: end if;
8401: close c_equiv_pay_plan;
8400: end if;
8401: close c_equiv_pay_plan;
8402:
8403:
8404: hr_utility.set_location(l_proc,30);
8405:
8406: -- proceed only if the to_step_or_rate is less than the maximum step
8407:
8408: hr_utility.set_location('Step or rate ' || l_step_or_rate,1);
8404: hr_utility.set_location(l_proc,30);
8405:
8406: -- proceed only if the to_step_or_rate is less than the maximum step
8407:
8408: hr_utility.set_location('Step or rate ' || l_step_or_rate,1);
8409: hr_utility.set_location('Max. Step or rate ' || l_maximum_step,1);
8410: l_from_step := l_step_or_rate;
8411:
8412: If to_number(l_step_or_rate) < to_number(l_maximum_step) then
8405:
8406: -- proceed only if the to_step_or_rate is less than the maximum step
8407:
8408: hr_utility.set_location('Step or rate ' || l_step_or_rate,1);
8409: hr_utility.set_location('Max. Step or rate ' || l_maximum_step,1);
8410: l_from_step := l_step_or_rate;
8411:
8412: If to_number(l_step_or_rate) < to_number(l_maximum_step) then
8413: hr_utility.set_location('step or rate less than max. ' || l_step_or_rate,1);
8409: hr_utility.set_location('Max. Step or rate ' || l_maximum_step,1);
8410: l_from_step := l_step_or_rate;
8411:
8412: If to_number(l_step_or_rate) < to_number(l_maximum_step) then
8413: hr_utility.set_location('step or rate less than max. ' || l_step_or_rate,1);
8414:
8415: IF (p_pa_request_rec.first_noa_code = '892' or p_pa_request_rec.second_noa_code = '892') AND
8416: (p_retained_grade_rec.step_or_rate not in (4,7,10) or l_from_step not in (4,7,10))
8417: THEN
8414:
8415: IF (p_pa_request_rec.first_noa_code = '892' or p_pa_request_rec.second_noa_code = '892') AND
8416: (p_retained_grade_rec.step_or_rate not in (4,7,10) or l_from_step not in (4,7,10))
8417: THEN
8418: hr_utility.set_location('Do not calc. WGI Dates for all steps in QSI ',1);
8419: -- Start of Bug 3111719
8420: -- Return the current WGI due date for steps other than 4,7,10 in QSI.
8421: ghr_history_fetch.fetch_element_entry_value
8422: (p_element_name => 'Within Grade Increase',
8439: p_screen_entry_value => l_lei_date
8440: );
8441: p_wgi_due_date := fnd_date.canonical_to_date(l_lei_date);
8442: ELSE
8443: hr_utility.set_location(l_proc,40);
8444: If l_from_Step is not null then
8445: for waiting_period in c_waiting_period loop
8446: hr_utility.set_location(l_proc,45);
8447: l_wait_period := waiting_period.waiting_period;
8442: ELSE
8443: hr_utility.set_location(l_proc,40);
8444: If l_from_Step is not null then
8445: for waiting_period in c_waiting_period loop
8446: hr_utility.set_location(l_proc,45);
8447: l_wait_period := waiting_period.waiting_period;
8448: end loop;
8449: If (p_pa_request_rec.first_noa_code = '892' or p_pa_request_rec.second_noa_code = '892') and
8450: (p_retained_grade_rec.step_or_rate in (4,7) or l_from_step in (4,7)) then
8456: p_date_effective => p_pa_request_rec.effective_date,
8457: p_screen_entry_value => l_wgi_due_date
8458: );
8459:
8460: hr_utility.set_location(l_proc,25);
8461: p_wgi_due_date := fnd_date.canonical_to_date(l_wgi_due_date) + 364;
8462: -- If it's NOA 713 and DLEI is entered, it enters here
8463: -- Need to use DLEI to calculate WGI due date instead of effective date
8464: -- Code added as part of WGI Enhancments/Bug fixes
8462: -- If it's NOA 713 and DLEI is entered, it enters here
8463: -- Need to use DLEI to calculate WGI due date instead of effective date
8464: -- Code added as part of WGI Enhancments/Bug fixes
8465: ELSIF (p_pa_request_rec.first_noa_code = '713' or p_pa_request_rec.second_noa_code = '713') THEN
8466: hr_utility.set_location('Entering 713 - dlei is not null',333);
8467: p_wgi_due_date := p_dlei + l_wait_period;
8468: -- End WGI Changes for NOA 713
8469: ELSE
8470: If l_wait_period is not null then
8467: p_wgi_due_date := p_dlei + l_wait_period;
8468: -- End WGI Changes for NOA 713
8469: ELSE
8470: If l_wait_period is not null then
8471: hr_utility.set_location(l_proc,26);
8472: p_wgi_due_date := p_pa_request_rec.effective_date + l_wait_period;
8473: END IF;
8474: END IF;
8475: END IF;
8475: END IF;
8476: END IF; -- Case 892 --01/Feb
8477: Else -- else for l_step_or_rate < l_maximum_step
8478: -- if the employee has reached the max. step
8479: hr_utility.set_location('emp. has reached the max. step',2);
8480: p_wgi_due_date := null; -- Venkat -- Uncommented bug #954104
8481: p_wgi_pay_date := null;
8482: End if;
8483: End if; -- GM pay plan check
8482: End if;
8483: End if; -- GM pay plan check
8484: End if; -- WGI due date is Null
8485:
8486: hr_utility.set_location('DUE DATE ' || to_char(p_wgi_due_date),1);
8487: If p_wgi_due_date is not null then
8488: hr_utility.set_location(l_proc,55);
8489: for next_pay_date in c_next_pay_date loop
8490: hr_utility.set_location(l_proc,60);
8484: End if; -- WGI due date is Null
8485:
8486: hr_utility.set_location('DUE DATE ' || to_char(p_wgi_due_date),1);
8487: If p_wgi_due_date is not null then
8488: hr_utility.set_location(l_proc,55);
8489: for next_pay_date in c_next_pay_date loop
8490: hr_utility.set_location(l_proc,60);
8491: p_wgi_pay_date := next_pay_date.start_date;
8492: exit;
8486: hr_utility.set_location('DUE DATE ' || to_char(p_wgi_due_date),1);
8487: If p_wgi_due_date is not null then
8488: hr_utility.set_location(l_proc,55);
8489: for next_pay_date in c_next_pay_date loop
8490: hr_utility.set_location(l_proc,60);
8491: p_wgi_pay_date := next_pay_date.start_date;
8492: exit;
8493: end loop;
8494: End if;
8491: p_wgi_pay_date := next_pay_date.start_date;
8492: exit;
8493: end loop;
8494: End if;
8495: hr_utility.set_location('Leaving ' ||l_proc,65);
8496: End if;
8497: Exception when others then
8498: --
8499: -- Reset IN OUT parameters and set OUT parameters
8551: where person_analysis_id = p_segment_rec.person_analysis_id;
8552:
8553: BEGIN
8554:
8555: hr_utility.set_location('Entering ' || l_proc,5);
8556:
8557: for bgpid in c_bgpid loop
8558: l_business_group_id := bgpid.business_group_id;
8559: end loop;
8559: end loop;
8560:
8561: -- Get the id_flex_num
8562: for flex_num in c_flex_num loop
8563: hr_utility.set_location(l_proc,12);
8564: l_id_flex_num := flex_num.id_flex_num;
8565: end loop;
8566: hr_utility.set_location(l_proc,15);
8567:
8562: for flex_num in c_flex_num loop
8563: hr_utility.set_location(l_proc,12);
8564: l_id_flex_num := flex_num.id_flex_num;
8565: end loop;
8566: hr_utility.set_location(l_proc,15);
8567:
8568: for multiple_occur in c_multiple_occur loop
8569: hr_utility.set_location(l_proc,36);
8570: l_multiple := multiple_occur.multiple_occurrences_flag;
8565: end loop;
8566: hr_utility.set_location(l_proc,15);
8567:
8568: for multiple_occur in c_multiple_occur loop
8569: hr_utility.set_location(l_proc,36);
8570: l_multiple := multiple_occur.multiple_occurrences_flag;
8571: end loop;
8572:
8573: l_object_version_number := p_segment_rec.object_version_number;
8574: l_person_analysis_id := p_segment_rec.person_analysis_id;
8575:
8576:
8577: if p_segment_rec.person_analysis_id is null then
8578: hr_utility.set_location(l_proc,25);
8579: begin
8580: savepoint cr_sit;
8581: hr_sit_api.create_sit
8582: (p_person_id => p_pa_request_rec.person_id,
8621: Exception when others then
8622: rollback to cr_sit;
8623: raise;
8624: End;
8625: hr_utility.set_location(l_proc,30);
8626: Else
8627: Begin
8628: -- Bug#4054110,4069798 Fetching the SIT start date for SIT US Fed Perf Apprisal.
8629: IF p_special_information_type = 'US Fed Perf Appraisal' THEN