[Home] [Help]
121: and information_type = p_l_information_type;
122:
123: begin
124: --
125: hr_utility.set_location('Entering ' || l_proc,5);
126: l_initial_ovn := p_l_object_version_number;
127:
128: l_extra_info_id := NULL;
129:
130: If upper(substr(P_l_Information_Type,8,3)) = 'ASG' then
131: l_index := 'aei';
132: l_id := P_Pa_request_rec.Employee_Assignment_id;
133: l_extra_info_id := p_extra_info_id;
134: hr_utility.set_location('Assignment id is ' ||l_id || ' ' || l_proc,6);
135: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,7);
136: Elsif upper(substr(P_l_Information_Type,8,3)) = 'PER' then
137: l_index := 'pei';
138: l_id := P_Pa_request_rec.person_id;
131: l_index := 'aei';
132: l_id := P_Pa_request_rec.Employee_Assignment_id;
133: l_extra_info_id := p_extra_info_id;
134: hr_utility.set_location('Assignment id is ' ||l_id || ' ' || l_proc,6);
135: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,7);
136: Elsif upper(substr(P_l_Information_Type,8,3)) = 'PER' then
137: l_index := 'pei';
138: l_id := P_Pa_request_rec.person_id;
139: l_extra_info_id := p_extra_info_id;
139: l_extra_info_id := p_extra_info_id;
140: Elsif upper(substr(P_l_Information_Type,8,3)) = 'POS' then
141: l_index := 'poei';
142: l_id := nvl(P_Pa_request_rec.to_position_id,p_pa_request_rec.from_position_id);
143: hr_utility.set_location('EXTRA INFO ID '|| to_char(p_extra_info_id),1);
144: l_extra_info_id := p_extra_info_id;
145: -- Rohini
146: Elsif upper(p_l_information_type )= 'GHR_US_RETAINED_GRADE' then
147: l_index := 'pei';
149: l_extra_info_id := p_extra_info_id;
150: -- Rohini
151:
152: Else
153: hr_utility.set_message(8301,'GHR_38132_INVALID_INFO_TYPE');
154: hr_utility.raise_error;
155: End if;
156:
157: hr_utility.set_location(l_proc,10);
150: -- Rohini
151:
152: Else
153: hr_utility.set_message(8301,'GHR_38132_INVALID_INFO_TYPE');
154: hr_utility.raise_error;
155: End if;
156:
157: hr_utility.set_location(l_proc,10);
158:
153: hr_utility.set_message(8301,'GHR_38132_INVALID_INFO_TYPE');
154: hr_utility.raise_error;
155: End if;
156:
157: hr_utility.set_location(l_proc,10);
158:
159: -- The foll. code sets the information
160: -- and is then used in case of create Extr Info .This was done so that
161: -- we could work with just one procedure for both update as well as create of
162: -- extra information, with all the parameters defaulted to hr_api.g_varchar2
163: -- therby ensuring that while updating, none of the existing data gets over-written.
164:
165: l_extra_info_id := p_extra_info_id;
166: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,8);
167: If p_information1 = hr_api.g_varchar2 THEN
168: l_information1 := null;
169: Else
170: l_information1 := p_information1;
319: -- There are chances that the history table didn't have date corresponding to an
320: -- Extra info, as of the given effective_date , but the extra info table itself might have
321: -- the data. This cursor fetches the extra info id of the information_type to be updated
322: -- to ensure that the correct procedure is then called to create/udpate EI.
323: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,9);
324: If l_Extra_Info_Id is null then
325: for asg_ei in c_asg_ei loop
326: l_extra_info_id := asg_ei.assignment_extra_info_id;
327: l_ovn := asg_ei.object_version_number;
325: for asg_ei in c_asg_ei loop
326: l_extra_info_id := asg_ei.assignment_extra_info_id;
327: l_ovn := asg_ei.object_version_number;
328: end loop;
329: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,10);
330: Else
331: l_ovn := p_l_object_version_number;
332: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,11);
333: End if;
328: end loop;
329: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,10);
330: Else
331: l_ovn := p_l_object_version_number;
332: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,11);
333: End if;
334:
335: If l_extra_info_id is null then
336: hr_utility.set_location(l_proc,15);
332: hr_utility.set_location('l_extra_info_id is ' ||l_extra_info_id || ' ' || l_proc,11);
333: End if;
334:
335: If l_extra_info_id is null then
336: hr_utility.set_location(l_proc,15);
337: hr_assignment_extra_info_api.create_assignment_extra_info
338: ( p_assignment_id => P_Pa_request_rec.Employee_Assignment_id
339: ,p_Information_type => p_l_information_type
340: ,p_aei_information_category => p_l_information_type
370: , p_aei_information30 => l_information30
371: , p_assignment_extra_info_id => l_asg_cre_extra_info_id
372: , p_object_version_number => l_asg_cre_ovn );
373: Else
374: hr_utility.set_location(l_proc,20);
375: hr_assignment_extra_info_api.update_assignment_extra_info
376: ( p_assignment_extra_info_id => l_Extra_Info_Id
377: , p_object_version_number => l_ovn
378: , p_aei_information1 => p_information1
413: -- Update/Create Person Extra Info
414: --
415: --
416: If l_index = 'pei' then
417: hr_utility.set_location(l_proc,25);
418:
419: If l_Extra_Info_Id is null then
420: hr_utility.set_location(to_char(l_id),1);
421: hr_utility.set_location(p_l_information_type,2);
416: If l_index = 'pei' then
417: hr_utility.set_location(l_proc,25);
418:
419: If l_Extra_Info_Id is null then
420: hr_utility.set_location(to_char(l_id),1);
421: hr_utility.set_location(p_l_information_type,2);
422: for per_ei in c_per_ei loop
423: l_extra_info_id := per_ei.person_extra_info_id;
424: l_ovn := per_ei.object_version_number;
417: hr_utility.set_location(l_proc,25);
418:
419: If l_Extra_Info_Id is null then
420: hr_utility.set_location(to_char(l_id),1);
421: hr_utility.set_location(p_l_information_type,2);
422: for per_ei in c_per_ei loop
423: l_extra_info_id := per_ei.person_extra_info_id;
424: l_ovn := per_ei.object_version_number;
425: end loop;
425: end loop;
426: Else
427: l_ovn := p_l_object_version_number;
428: End if;
429: hr_utility.set_location('pei_ovn is ' || to_char(l_ovn),1);
430: -- Bug#5045806 For Service Obligation EIT, Always create new EIT Record.
431: IF P_l_Information_Type = 'GHR_US_PER_SERVICE_OBLIGATION' THEN
432: l_extra_info_id := NULL;
433: END IF;
432: l_extra_info_id := NULL;
433: END IF;
434: -- Bug#5045806
435: If l_extra_info_id is null then
436: hr_utility.set_location(l_proc,30);
437: hr_person_extra_info_api.create_person_extra_info
438: (p_Person_id => P_Pa_request_rec.Person_id
439: ,p_Information_type => p_l_information_type
440: ,p_pei_information_category => p_l_information_type
471: ,p_person_extra_info_id => l_per_cre_extra_info_id
472: ,p_object_version_number => l_per_cre_ovn );
473: Else
474: --
475: hr_utility.set_location(l_proc,35);
476: hr_person_extra_info_api.update_person_extra_info
477: ( p_person_extra_info_id => l_Extra_Info_Id
478: , p_object_version_number => l_ovn
479: , p_pei_information1 => p_information1
514: -- Update/Create Position group1 Extra Info
515: --
516: --
517: If l_index = 'poei' then
518: hr_utility.set_location(l_proc,40);
519: If l_Extra_Info_Id is null then
520: for pos_ei in c_pos_ei loop
521: l_extra_info_id := pos_ei.position_extra_info_id;
522: l_ovn := pos_ei.object_version_number;
523: end loop;
524: Else
525: l_ovn := p_l_object_version_number;
526: End if;
527: hr_utility.set_location(l_proc,45);
528: If l_extra_info_id is null then
529: hr_position_extra_info_api.create_position_extra_info
530: ( p_position_id => P_Pa_request_rec.to_position_id
531: , p_Information_type => p_l_information_type
565: );
566: --
567: Else
568: --
569: hr_utility.set_location(l_proc,50);
570: hr_utility.set_location('GEN UPD' || to_char(l_Extra_Info_Id ),1);
571: hr_utility.set_location('GEN UPD' || to_char(p_l_Object_Version_Number ),1);
572:
573: hr_position_extra_info_api.update_position_extra_info
566: --
567: Else
568: --
569: hr_utility.set_location(l_proc,50);
570: hr_utility.set_location('GEN UPD' || to_char(l_Extra_Info_Id ),1);
571: hr_utility.set_location('GEN UPD' || to_char(p_l_Object_Version_Number ),1);
572:
573: hr_position_extra_info_api.update_position_extra_info
574: ( p_position_extra_info_id => l_Extra_Info_Id
567: Else
568: --
569: hr_utility.set_location(l_proc,50);
570: hr_utility.set_location('GEN UPD' || to_char(l_Extra_Info_Id ),1);
571: hr_utility.set_location('GEN UPD' || to_char(p_l_Object_Version_Number ),1);
572:
573: hr_position_extra_info_api.update_position_extra_info
574: ( p_position_extra_info_id => l_Extra_Info_Id
575: , p_object_version_number => l_ovn
608: End if;
609: End if;
610: --
611: --
612: hr_utility.set_location('Leaving ' ||l_proc,60);
613: Exception when others then
614: --
615: -- Reset IN OUT parameters and set OUT parameters
616: --
692: where person_extra_info_id = l_retained_grade_rec.person_extra_info_id;
693:
694: l_effective_date Date;
695: BEGIN
696: hr_utility.set_location('Entering '||l_proc,5);
697: l_per_retained_grade := P_Per_retained_grade;
698: ghr_history_api.get_g_session_var(l_session); -- Bug 3021003
699: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
700: IF p_pa_request_rec.first_noa_code = '702' THEN
695: BEGIN
696: hr_utility.set_location('Entering '||l_proc,5);
697: l_per_retained_grade := P_Per_retained_grade;
698: ghr_history_api.get_g_session_var(l_session); -- Bug 3021003
699: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
700: IF p_pa_request_rec.first_noa_code = '702' THEN
701: --702 Processing
702: hr_utility.set_location('702 RG Processing '||l_proc,10);
703: FOR rg_rec in c_702_rec LOOP
698: ghr_history_api.get_g_session_var(l_session); -- Bug 3021003
699: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
700: IF p_pa_request_rec.first_noa_code = '702' THEN
701: --702 Processing
702: hr_utility.set_location('702 RG Processing '||l_proc,10);
703: FOR rg_rec in c_702_rec LOOP
704: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
705: hr_utility.set_location('702 RG Processing '||rg_rec.rei_information3,11);
706: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
700: IF p_pa_request_rec.first_noa_code = '702' THEN
701: --702 Processing
702: hr_utility.set_location('702 RG Processing '||l_proc,10);
703: FOR rg_rec in c_702_rec LOOP
704: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
705: hr_utility.set_location('702 RG Processing '||rg_rec.rei_information3,11);
706: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
707: (p_pa_request_rec.effective_date - 1) THEN
708: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
701: --702 Processing
702: hr_utility.set_location('702 RG Processing '||l_proc,10);
703: FOR rg_rec in c_702_rec LOOP
704: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
705: hr_utility.set_location('702 RG Processing '||rg_rec.rei_information3,11);
706: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
707: (p_pa_request_rec.effective_date - 1) THEN
708: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
709: hr_utility.raise_error;
704: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
705: hr_utility.set_location('702 RG Processing '||rg_rec.rei_information3,11);
706: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
707: (p_pa_request_rec.effective_date - 1) THEN
708: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
709: hr_utility.raise_error;
710: END IF;
711: Generic_Update_Extra_Info
712: (p_pa_request_rec => P_PA_REQUEST_REC
705: hr_utility.set_location('702 RG Processing '||rg_rec.rei_information3,11);
706: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
707: (p_pa_request_rec.effective_date - 1) THEN
708: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
709: hr_utility.raise_error;
710: END IF;
711: Generic_Update_Extra_Info
712: (p_pa_request_rec => P_PA_REQUEST_REC
713: ,p_l_information_type => 'GHR_US_RETAINED_GRADE'
717: );
718: END LOOP;
719: ELSIF p_pa_request_rec.first_noa_code = '740' THEN
720: --740 Processing
721: hr_utility.set_location('740 RG Processing '||l_proc,15);
722: FOR rg_rec in c_740_rec LOOP
723: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
724: hr_utility.set_location('740 RG Processing '||rg_rec.rei_information3,12);
725: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
719: ELSIF p_pa_request_rec.first_noa_code = '740' THEN
720: --740 Processing
721: hr_utility.set_location('740 RG Processing '||l_proc,15);
722: FOR rg_rec in c_740_rec LOOP
723: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
724: hr_utility.set_location('740 RG Processing '||rg_rec.rei_information3,12);
725: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
726: (p_pa_request_rec.effective_date - 1) THEN
727: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
720: --740 Processing
721: hr_utility.set_location('740 RG Processing '||l_proc,15);
722: FOR rg_rec in c_740_rec LOOP
723: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
724: hr_utility.set_location('740 RG Processing '||rg_rec.rei_information3,12);
725: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
726: (p_pa_request_rec.effective_date - 1) THEN
727: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
728: hr_utility.raise_error;
723: hr_utility.set_location('Effective Date '||p_pa_request_rec.effective_date,1);
724: hr_utility.set_location('740 RG Processing '||rg_rec.rei_information3,12);
725: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
726: (p_pa_request_rec.effective_date - 1) THEN
727: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
728: hr_utility.raise_error;
729: END IF;
730: Generic_Update_Extra_Info
731: (p_pa_request_rec => P_PA_REQUEST_REC
724: hr_utility.set_location('740 RG Processing '||rg_rec.rei_information3,12);
725: IF fnd_date.canonical_to_date(rg_rec.pei_information1) >
726: (p_pa_request_rec.effective_date - 1) THEN
727: hr_utility.set_message(8301,'GHR_38692_RG_TO_DATE_LESSER');
728: hr_utility.raise_error;
729: END IF;
730: Generic_Update_Extra_Info
731: (p_pa_request_rec => P_PA_REQUEST_REC
732: ,p_l_information_type => 'GHR_US_RETAINED_GRADE'
744: ELSE
745: l_effective_date := p_pa_request_rec.effective_date;
746: END IF;
747: --
748: hr_utility.set_location('866 RG Processing '||l_proc,15);
749: hr_utility.set_location('Inside 866 processing '||p_per_retained_grade.person_extra_info_id,1);
750: Generic_Update_Extra_Info
751: (p_pa_request_rec => P_PA_REQUEST_REC
752: ,p_l_information_type => 'GHR_US_RETAINED_GRADE'
745: l_effective_date := p_pa_request_rec.effective_date;
746: END IF;
747: --
748: hr_utility.set_location('866 RG Processing '||l_proc,15);
749: hr_utility.set_location('Inside 866 processing '||p_per_retained_grade.person_extra_info_id,1);
750: Generic_Update_Extra_Info
751: (p_pa_request_rec => P_PA_REQUEST_REC
752: ,p_l_information_type => 'GHR_US_RETAINED_GRADE'
753: ,p_extra_info_id => p_per_retained_grade.person_extra_info_id
764: p_effective_date => p_pa_request_rec.effective_date,
765: p_pa_request_id => p_pa_request_rec.pa_request_id
766: );
767: IF l_retained_grade_rec.person_extra_info_id is not null then
768: hr_utility.set_location('Inside 866 processing '||l_retained_grade_rec.person_extra_info_id,1);
769: FOR retained_grade_ovn IN c_retained_grade_ovn LOOP
770: l_ret_object_version_number := retained_grade_ovn.object_version_number;
771: l_new_date_to := retained_grade_ovn.pei_information2;
772: l_new_grade_or_level := retained_grade_ovn.pei_information3;
777: l_new_pay_basis := retained_grade_ovn.pei_information8;
778: exit;
779: END LOOP;
780: ghr_history_api.get_g_session_var(l_session);
781: hr_utility.set_location('Inside 866 processing ',2);
782: IF l_session.noa_id_correct is null then
783: -- End date the existing RG record
784: hr_person_extra_info_api.update_person_extra_info
785: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
785: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
786: p_object_version_number => l_ret_object_version_number,
787: p_pei_information2 => fnd_date.date_to_canonical(p_pa_request_rec.effective_date )
788: );
789: hr_utility.set_location('Inside 866 processing ',3);
790: -- Create the new RG Record with Temporary Promotion Step Value
791: hr_person_extra_info_api.create_person_extra_info
792: (p_person_id => p_pa_request_rec.person_id,
793: p_information_type => 'GHR_US_RETAINED_GRADE',
804: p_pei_information7 => l_new_loc_percent,
805: p_pei_information8 => l_new_pay_basis,
806: p_pei_information9 => l_new_temp_step
807: );
808: hr_utility.set_location('Inside 866 processing ',3);
809: ELSE
810: -- Update the TPS in Retain Grade record
811: hr_person_extra_info_api.update_person_extra_info
812: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
826: (p_person_id => p_pa_request_rec.person_id,
827: p_effective_date => p_pa_request_rec.effective_date,
828: p_pa_request_id => p_pa_request_rec.altered_pa_request_id
829: );
830: hr_utility.set_location('Inside Sun processing '||l_retained_grade_rec.person_extra_info_id,1);
831: IF l_retained_grade_rec.person_extra_info_id IS NOT NULL THEN
832: FOR retained_grade_ovn IN c_retained_grade_ovn LOOP
833: l_ret_object_version_number := retained_grade_ovn.object_version_number;
834: EXIT;
832: FOR retained_grade_ovn IN c_retained_grade_ovn LOOP
833: l_ret_object_version_number := retained_grade_ovn.object_version_number;
834: EXIT;
835: END LOOP;
836: hr_utility.set_location('P_Per_retained_grade.step_or_rate '||P_Per_retained_grade.retain_step_or_rate,1);
837: hr_utility.set_location('l_retained_grade_rec.step_or_rate '||l_retained_grade_rec.step_or_rate,1);
838: IF (NVL(P_Per_retained_grade.retain_step_or_rate,-1) <> NVL(l_retained_grade_rec.step_or_rate,-1)) THEN
839: hr_person_extra_info_api.update_person_extra_info
840: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
833: l_ret_object_version_number := retained_grade_ovn.object_version_number;
834: EXIT;
835: END LOOP;
836: hr_utility.set_location('P_Per_retained_grade.step_or_rate '||P_Per_retained_grade.retain_step_or_rate,1);
837: hr_utility.set_location('l_retained_grade_rec.step_or_rate '||l_retained_grade_rec.step_or_rate,1);
838: IF (NVL(P_Per_retained_grade.retain_step_or_rate,-1) <> NVL(l_retained_grade_rec.step_or_rate,-1)) THEN
839: hr_person_extra_info_api.update_person_extra_info
840: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
841: p_object_version_number => l_ret_object_version_number,
841: p_object_version_number => l_ret_object_version_number,
842: p_pei_information4 => P_Per_retained_grade.retain_step_or_rate
843: );
844: END IF;
845: hr_utility.set_location('P_Per_retained_grade.temp_step '||P_Per_retained_grade.temp_step,1);
846: hr_utility.set_location('l_retained_grade_rec.temp_step '||l_retained_grade_rec.temp_step,1);
847: IF (NVL(P_Per_retained_grade.temp_step,-1) <> NVL(l_retained_grade_rec.temp_step,-1)) THEN
848: hr_person_extra_info_api.update_person_extra_info
849: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
842: p_pei_information4 => P_Per_retained_grade.retain_step_or_rate
843: );
844: END IF;
845: hr_utility.set_location('P_Per_retained_grade.temp_step '||P_Per_retained_grade.temp_step,1);
846: hr_utility.set_location('l_retained_grade_rec.temp_step '||l_retained_grade_rec.temp_step,1);
847: IF (NVL(P_Per_retained_grade.temp_step,-1) <> NVL(l_retained_grade_rec.temp_step,-1)) THEN
848: hr_person_extra_info_api.update_person_extra_info
849: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
850: p_object_version_number => l_ret_object_version_number,
869: p_pa_request_id => p_pa_request_rec.pa_request_id
870: );
871:
872: IF l_retained_grade_rec.person_extra_info_id is not null then
873: hr_utility.set_location('Inside FWFA RG processing '||l_retained_grade_rec.person_extra_info_id,1);
874: FOR retained_grade_ovn IN c_retained_grade_ovn LOOP
875: l_ret_object_version_number := retained_grade_ovn.object_version_number;
876: l_cur_date_from := retained_grade_ovn.pei_information1;
877: l_new_date_to := retained_grade_ovn.pei_information2;
911: l_step_or_rate := l_new_step_or_rate + 1;
912: l_new_step_or_rate := l_step_or_rate;
913: END IF;
914: END IF; -- If l_retained_grade_rec.temp_step is not null
915: hr_utility.set_location('FWFA New Step or Rate for Ret Grd Rec. is ' || l_new_step_or_rate,3);
916: hr_utility.set_location('FWFA temp_step is ' || l_new_temp_step,2);
917: END IF;
918:
919: ---BUG# 4999237 HANDLED FOR 894 TERMINATION OF PAY RETENTION
912: l_new_step_or_rate := l_step_or_rate;
913: END IF;
914: END IF; -- If l_retained_grade_rec.temp_step is not null
915: hr_utility.set_location('FWFA New Step or Rate for Ret Grd Rec. is ' || l_new_step_or_rate,3);
916: hr_utility.set_location('FWFA temp_step is ' || l_new_temp_step,2);
917: END IF;
918:
919: ---BUG# 4999237 HANDLED FOR 894 TERMINATION OF PAY RETENTION
920: -- Bug#5679022 Pass the g_step_or_rate in case of 894 for pay retention termination.
925: END IF;
926: END IF;
927: --END BUG 4999237
928:
929: hr_utility.set_location('new Pay table id :'||p_per_retained_grade.retain_pay_table_id,20);
930: -- Bug#4698321 IF the retained grade record starts on the same day of the action,
931: -- update the same record. Otherwise, end date current record and create new record.
932: -- Bug#4719037 RG record created unnecessarily where g_pay_table_upd_flag is FALSE.
933: -- So, added the per_retained_grade_flag condition to avoid it.
932: -- Bug#4719037 RG record created unnecessarily where g_pay_table_upd_flag is FALSE.
933: -- So, added the per_retained_grade_flag condition to avoid it.
934: IF p_per_retained_grade.per_retained_grade_flag = 'Y' THEN
935: IF TRUNC(fnd_date.canonical_to_date(l_cur_date_from)) = TRUNC(p_pa_request_rec.effective_date) THEN
936: hr_utility.set_location('RG Start date Equal to RPA Effective Date ',22);
937: Generic_Update_Extra_Info
938: (p_pa_request_rec => P_PA_REQUEST_REC
939: ,p_l_information_type => 'GHR_US_RETAINED_GRADE'
940: ,p_extra_info_id => l_retained_grade_rec.person_extra_info_id
949: ,p_information8 => l_new_pay_basis
950: ,p_information9 => l_new_temp_step
951: );
952: ELSE
953: hr_utility.set_location('RG Start date NOT EQUAL to RPA Effective Date ',27);
954: Generic_Update_Extra_Info
955: (p_pa_request_rec => P_PA_REQUEST_REC
956: ,p_l_information_type => 'GHR_US_RETAINED_GRADE'
957: ,p_extra_info_id => l_retained_grade_rec.person_extra_info_id
977: p_pei_information8 => l_new_pay_basis,
978: p_pei_information9 => l_new_temp_step
979: );
980: END IF;
981: hr_utility.set_location('Inside FWFA processing ',3);
982: END IF; -- per_retained_grade_flag
983: END IF; -- l_retained_grade_rec.person_extra_info_id NOT NULL
984: EXCEPTION
985: -- IF No RG Record Exists, skip this updation.
1097: -- determine whether to create or update sit
1098: -- 1 Get the id_flex_num for the id_flex_structure 'US Fed Education'
1099:
1100: begin
1101: hr_utility.set_location('Entering ' || l_proc,5);
1102:
1103: for bgp in c_bgpid loop
1104: hr_utility.set_location(l_proc,10);
1105: l_business_group_id := bgp.business_group_id;
1100: begin
1101: hr_utility.set_location('Entering ' || l_proc,5);
1102:
1103: for bgp in c_bgpid loop
1104: hr_utility.set_location(l_proc,10);
1105: l_business_group_id := bgp.business_group_id;
1106: End loop;
1107:
1108: for flex_num in c_flex_num loop
1105: l_business_group_id := bgp.business_group_id;
1106: End loop;
1107:
1108: for flex_num in c_flex_num loop
1109: hr_utility.set_location(l_proc,12);
1110: l_id_flex_num := flex_num.id_flex_num;
1111: end loop;
1112: hr_utility.set_location(l_proc,15);
1113:
1108: for flex_num in c_flex_num loop
1109: hr_utility.set_location(l_proc,12);
1110: l_id_flex_num := flex_num.id_flex_num;
1111: end loop;
1112: hr_utility.set_location(l_proc,15);
1113:
1114: -- Check to see if the person already has an entry for the SIT
1115:
1116: for person_sit in c_person_sit loop
1113:
1114: -- Check to see if the person already has an entry for the SIT
1115:
1116: for person_sit in c_person_sit loop
1117: hr_utility.set_location(l_proc,20);
1118: l_analysis_criteria_id := person_sit.analysis_criteria_id;
1119: l_personal_analysis_id := person_sit.person_analysis_id;
1120: l_object_version_number := person_sit.object_version_number;
1121: End loop;
1131: -- Also while retrieving , fetch the row that has the highest education level -??
1132:
1133:
1134: If l_analysis_criteria_id is null then
1135: hr_utility.set_location(l_proc,25);
1136: hr_sit_api.create_sit
1137: (p_person_id => p_pa_request_rec.person_id,
1138: p_business_group_id => l_business_group_id,
1139: p_id_flex_num => l_id_flex_num,
1145: p_analysis_criteria_id => l_analysis_criteria_id, --out
1146: p_person_analysis_id => l_personal_analysis_id,
1147: p_pea_object_version_number => l_object_version_number
1148: );
1149: hr_utility.set_location(l_proc,30);
1150:
1151: Else
1152: -- If sit already exists for the person and it can be multiple occurring, then
1153: -- if it is not a correction, then create a new one, else update
1150:
1151: Else
1152: -- If sit already exists for the person and it can be multiple occurring, then
1153: -- if it is not a correction, then create a new one, else update
1154: hr_utility.set_location(l_proc,35);
1155: /*
1156: Commented out nocopy by skutteti for bug # 655203 as multiple occurences flag need not be checked for edu sit.
1157: for multiple_occur in c_multiple_occur loop
1158: hr_utility.set_location(l_proc,36);
1154: hr_utility.set_location(l_proc,35);
1155: /*
1156: Commented out nocopy by skutteti for bug # 655203 as multiple occurences flag need not be checked for edu sit.
1157: for multiple_occur in c_multiple_occur loop
1158: hr_utility.set_location(l_proc,36);
1159: l_multiple := multiple_occur.multiple_occurrences_flag;
1160: end loop;
1161: */
1162:
1163: ghr_history_api.get_g_session_var(l_session);
1164: If l_session.noa_id_correct is null then
1165: l_personal_analysis_id := Null;
1166: for special_info in c_special_info loop
1167: hr_utility.set_location(l_proc,40);
1168: l_education_level := special_info.education_level;
1169: l_academic_discipline := special_info.academic_discipline;
1170: l_year_degree_attained := special_info.year_degree_attained;
1171: l_personal_analysis_id := special_info.person_analysis_id;
1186: l_personal_analysis_id := l_special_info.person_analysis_id;
1187: l_object_version_number := l_special_info.object_version_number;
1188: End if;
1189:
1190: hr_utility.set_location(l_proc,45);
1191: hr_utility.set_location('l_education_level is '||l_education_level,46);
1192: hr_utility.set_location('l_academic_discipline is '||l_academic_discipline,47);
1193: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1194:
1187: l_object_version_number := l_special_info.object_version_number;
1188: End if;
1189:
1190: hr_utility.set_location(l_proc,45);
1191: hr_utility.set_location('l_education_level is '||l_education_level,46);
1192: hr_utility.set_location('l_academic_discipline is '||l_academic_discipline,47);
1193: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1194:
1195: hr_utility.set_location('p_pa_request_rec.education_level is '||p_pa_request_rec.education_level,46);
1188: End if;
1189:
1190: hr_utility.set_location(l_proc,45);
1191: hr_utility.set_location('l_education_level is '||l_education_level,46);
1192: hr_utility.set_location('l_academic_discipline is '||l_academic_discipline,47);
1193: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1194:
1195: hr_utility.set_location('p_pa_request_rec.education_level is '||p_pa_request_rec.education_level,46);
1196: hr_utility.set_location('p_pa_request_rec.academic_discipline is '||p_pa_request_rec.academic_discipline,46);
1189:
1190: hr_utility.set_location(l_proc,45);
1191: hr_utility.set_location('l_education_level is '||l_education_level,46);
1192: hr_utility.set_location('l_academic_discipline is '||l_academic_discipline,47);
1193: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1194:
1195: hr_utility.set_location('p_pa_request_rec.education_level is '||p_pa_request_rec.education_level,46);
1196: hr_utility.set_location('p_pa_request_rec.academic_discipline is '||p_pa_request_rec.academic_discipline,46);
1197: hr_utility.set_location('p_pa_request_rec.year_degree_attained is '||p_pa_request_rec.year_degree_attained,46);
1191: hr_utility.set_location('l_education_level is '||l_education_level,46);
1192: hr_utility.set_location('l_academic_discipline is '||l_academic_discipline,47);
1193: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1194:
1195: hr_utility.set_location('p_pa_request_rec.education_level is '||p_pa_request_rec.education_level,46);
1196: hr_utility.set_location('p_pa_request_rec.academic_discipline is '||p_pa_request_rec.academic_discipline,46);
1197: hr_utility.set_location('p_pa_request_rec.year_degree_attained is '||p_pa_request_rec.year_degree_attained,46);
1198:
1199: If nvl(l_education_level,hr_api.g_varchar2) <> nvl(p_pa_request_rec.education_level,hr_api.g_varchar2) or
1192: hr_utility.set_location('l_academic_discipline is '||l_academic_discipline,47);
1193: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1194:
1195: hr_utility.set_location('p_pa_request_rec.education_level is '||p_pa_request_rec.education_level,46);
1196: hr_utility.set_location('p_pa_request_rec.academic_discipline is '||p_pa_request_rec.academic_discipline,46);
1197: hr_utility.set_location('p_pa_request_rec.year_degree_attained is '||p_pa_request_rec.year_degree_attained,46);
1198:
1199: If nvl(l_education_level,hr_api.g_varchar2) <> nvl(p_pa_request_rec.education_level,hr_api.g_varchar2) or
1200: nvl(l_academic_discipline,hr_api.g_varchar2) <> nvl(p_pa_request_rec.academic_discipline,hr_api.g_varchar2) or
1193: hr_utility.set_location('l_year_degree_attained is '||l_year_degree_attained,48);
1194:
1195: hr_utility.set_location('p_pa_request_rec.education_level is '||p_pa_request_rec.education_level,46);
1196: hr_utility.set_location('p_pa_request_rec.academic_discipline is '||p_pa_request_rec.academic_discipline,46);
1197: hr_utility.set_location('p_pa_request_rec.year_degree_attained is '||p_pa_request_rec.year_degree_attained,46);
1198:
1199: If nvl(l_education_level,hr_api.g_varchar2) <> nvl(p_pa_request_rec.education_level,hr_api.g_varchar2) or
1200: nvl(l_academic_discipline,hr_api.g_varchar2) <> nvl(p_pa_request_rec.academic_discipline,hr_api.g_varchar2) or
1201: 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
1203: -- Commented out by skutteti for bug # 655203 as multiple occurences flag need not be checked for edu sit.
1204: -- If nvl(l_multiple,'Y') = 'Y' and l_session.noa_id_correct is null then
1205:
1206: If l_session.noa_id_correct is null or l_personal_analysis_id is null then
1207: hr_utility.set_location(l_proc,37);
1208: l_analysis_criteria_id := null;
1209: hr_sit_api.create_sit
1210: (p_person_id => p_pa_request_rec.person_id,
1211: p_business_group_id => l_business_group_id,
1229: p_segment2 => p_pa_request_rec.academic_discipline,
1230: p_segment3 => p_pa_request_rec.year_degree_attained,
1231: p_analysis_criteria_id => l_analysis_criteria_id
1232: );
1233: hr_utility.set_location(l_proc,55);
1234: End if;
1235: End if;
1236: End if;
1237: End update_edu_sit;
1493: l_np_eff_date ghr_pa_requests.effective_date%type;
1494: l_asg_ei_data per_assignment_extra_info%rowtype;
1495: Begin
1496: --
1497: hr_utility.set_location('Entering ' ||l_proc,5);
1498: hr_utility.set_location('CALL EXT INFOper_serv_oblig_flag '||p_per_service_oblig.per_service_oblig_flag,10);
1499: --
1500: -- Remember IN OUT parameter IN values
1501: --
1494: l_asg_ei_data per_assignment_extra_info%rowtype;
1495: Begin
1496: --
1497: hr_utility.set_location('Entering ' ||l_proc,5);
1498: hr_utility.set_location('CALL EXT INFOper_serv_oblig_flag '||p_per_service_oblig.per_service_oblig_flag,10);
1499: --
1500: -- Remember IN OUT parameter IN values
1501: --
1502: l_Asg_Sf52 := P_Asg_Sf52;
1531: IF P_asg_sf52.asg_sf52_flag = 'Y'
1532: OR ghr_process_sf52.g_prd is not null THEN
1533: -- FWFA Changes
1534: --
1535: hr_utility.set_location(l_proc,10);
1536: Generic_Update_Extra_Info
1537: (
1538: p_pa_request_rec => P_PA_REQUEST_REC
1539: ,p_l_information_type => 'GHR_US_ASG_SF52'
1552: End if;
1553: --
1554: If P_asg_non_sf52.asg_non_sf52_flag = 'Y' then
1555: --
1556: hr_utility.set_location(l_proc,15);
1557: Generic_Update_Extra_Info
1558: (
1559: p_pa_request_rec => P_PA_REQUEST_REC
1560: ,p_l_information_type => 'GHR_US_ASG_NON_SF52'
1572: );
1573: End if;
1574: --
1575:
1576: hr_utility.set_location('NTE DATES FLAG ' || p_asg_nte_dates.asg_nte_dates_flag,1);
1577: If p_asg_nte_dates.asg_nte_dates_flag = 'Y' then
1578: --
1579: --
1580:
1580:
1581: IF (p_pa_request_rec.noa_family_code = 'RETURN_TO_DUTY') THEN
1582: /* For PAR_ASG in Cur_Par_Asg(p_pa_request_rec.employee_national_identifier)
1583: Loop
1584: hr_utility.trace('Inside EMP SSN CURSOR');
1585: l_noa_code := PAR_ASG.first_noa_code;
1586: End Loop;
1587:
1588: hr_utility.set_location('NOA Code for NTE' || l_noa_code , 38);
1584: hr_utility.trace('Inside EMP SSN CURSOR');
1585: l_noa_code := PAR_ASG.first_noa_code;
1586: End Loop;
1587:
1588: hr_utility.set_location('NOA Code for NTE' || l_noa_code , 38);
1589: FOR NTE_Dates_rec in Cur_NTE_Dates(p_pa_request_rec.employee_national_identifier,l_noa_code) LOOP
1590: l_NTE_Dates := NTE_Dates_rec.NTE_Dates;
1591: END LOOP; */
1592: -- Above Commented by Sundar Replaced it by the below code - Bug 3390876
1620: END IF;
1621: END IF;
1622: --
1623: --
1624: hr_utility.set_location(l_proc,20);
1625: Generic_Update_Extra_Info
1626: (
1627: p_pa_request_rec => P_PA_REQUEST_REC
1628: ,p_l_information_type => 'GHR_US_ASG_NTE_DATES'
1649: --
1650: --
1651: If p_per_sf52.per_sf52_flag = 'Y' then
1652: --
1653: hr_utility.set_location(l_proc,30);
1654: Generic_Update_Extra_Info
1655: (
1656: p_pa_request_rec => P_PA_REQUEST_REC
1657: ,p_l_information_type => 'GHR_US_PER_SF52'
1707:
1708: ---------------------------------------------------------------------------------- code added for 1274541
1709:
1710:
1711: hr_utility.set_location(l_proc,35);
1712: Generic_Update_Extra_Info
1713: (
1714: p_pa_request_rec => P_PA_REQUEST_REC
1715: ,p_l_information_type => 'GHR_US_PER_GROUP1'
1742:
1743: /*If p_per_group2.per_group2_flag = 'Y' then
1744: --
1745: -- included date_stat_return_rights_expire for p_information7 and named the others correctly.
1746: hr_utility.set_location(l_proc,40);
1747: Generic_Update_Extra_Info
1748: (
1749: p_pa_request_rec => P_PA_REQUEST_REC
1750: ,p_l_information_type => 'GHR_US_PER_GROUP2'
1764: */
1765: --
1766: If p_per_scd_info.per_scd_info_flag = 'Y' then
1767: --
1768: hr_utility.set_location(l_proc,45);
1769: Generic_Update_Extra_Info
1770: (
1771: p_pa_request_rec => P_PA_REQUEST_REC
1772: ,p_l_information_type => 'GHR_US_PER_SCD_INFORMATION'
1788: end if;
1789: --
1790: If p_per_probations.per_probation_flag = 'Y' then
1791: --
1792: hr_utility.set_location(l_proc,50);
1793:
1794: Generic_Update_Extra_Info
1795: (
1796: p_pa_request_rec => P_PA_REQUEST_REC
1817: -- added for 3267632
1818: --
1819: If p_per_sep_retire.per_sep_retire_flag = 'Y' then
1820: --
1821: hr_utility.set_location(l_proc,55);
1822: Generic_Update_Extra_Info
1823: (
1824: p_pa_request_rec => P_PA_REQUEST_REC
1825: ,p_l_information_type => 'GHR_US_PER_SEPARATE_RETIRE'
1848: /* Note : Since none of this data is currently being updated, why call the generic_update at all ??? */
1849:
1850: /*If p_per_security.per_security_flag = 'Y' then
1851: --
1852: hr_utility.set_location(l_proc,60);
1853: Generic_Update_Extra_Info(
1854: p_pa_request_rec => P_PA_REQUEST_REC
1855: ,p_l_information_type => 'GHR_US_PER_SECURITY'
1856: ,p_extra_info_id => p_per_security.person_extra_info_id
1865: );
1866: --
1867: end if;
1868: */
1869: hr_utility.set_location('2. CALL EXT INFOper_serv_oblig_flag '||p_per_service_oblig.per_service_oblig_flag,20);
1870: -- Bug#4486823 RRR Changes
1871: IF p_per_service_oblig.per_service_oblig_flag = 'Y' THEN
1872: --
1873: hr_utility.set_location('NAR'||l_proc,60);
1869: hr_utility.set_location('2. CALL EXT INFOper_serv_oblig_flag '||p_per_service_oblig.per_service_oblig_flag,20);
1870: -- Bug#4486823 RRR Changes
1871: IF p_per_service_oblig.per_service_oblig_flag = 'Y' THEN
1872: --
1873: hr_utility.set_location('NAR'||l_proc,60);
1874: Generic_Update_Extra_Info(
1875: p_pa_request_rec => P_PA_REQUEST_REC
1876: ,p_l_information_type => 'GHR_US_PER_SERVICE_OBLIGATION'
1877: ,p_extra_info_id => p_per_service_oblig.person_extra_info_id
1885: --
1886: -- Added for a patch -- ( for the enhancement)
1887: If p_per_conversions.per_conversions_flag = 'Y' then
1888: --
1889: hr_utility.set_location(l_proc,65);
1890:
1891: Generic_Update_Extra_Info
1892: (
1893: p_pa_request_rec => P_PA_REQUEST_REC
1905: --
1906: -- BEN_EIT Changes
1907: If p_per_benefit_info.per_benefit_info_flag = 'Y' then
1908: --
1909: hr_utility.set_location(l_proc,65);
1910:
1911: Generic_Update_Extra_Info
1912: (
1913: p_pa_request_rec => P_PA_REQUEST_REC
1938:
1939: -- Race or National Origin changes
1940: If p_per_race_ethnic_info.p_race_ethnic_info_flag = 'Y' then
1941: --
1942: hr_utility.set_location(l_proc,68);
1943:
1944: Generic_Update_Extra_Info
1945: (
1946: p_pa_request_rec => P_PA_REQUEST_REC
1961:
1962: --
1963: If p_per_uniformed_services.per_uniformed_services_flag = 'Y' then
1964: --
1965: hr_utility.set_location(l_proc,70);
1966:
1967: Generic_Update_Extra_Info
1968: (
1969: p_pa_request_rec => P_PA_REQUEST_REC
1984: end if;
1985: --
1986: If p_pos_valid_grade.pos_valid_grade_flag = 'Y' then
1987: --
1988: hr_utility.set_location(l_proc,75);
1989: --Begin Bug 5919705
1990: FOR p_cur_grd1 in cur_grd1 LOOP
1991: l_grade_or_level := p_cur_grd1.grade_or_level;
1992: l_pay_plan := p_cur_grd1.pay_plan;
2036: --
2037:
2038: If p_Pos_grp1.pos_grp1_flag = 'Y' then
2039: --
2040: hr_utility.set_location(l_proc,80);
2041: hr_utility.set_location('bef upd ' || 'PEID' || to_char(p_pos_grp1.position_extra_info_id),1);
2042: hr_utility.set_location('bef upd ' || 'PEOVN' || to_char(p_pos_grp1.object_version_number),1);
2043:
2044: -- JH Include WS/PTH if To Position PM is UE or APUE and to_posn <> from_posn. Bug 773851
2037:
2038: If p_Pos_grp1.pos_grp1_flag = 'Y' then
2039: --
2040: hr_utility.set_location(l_proc,80);
2041: hr_utility.set_location('bef upd ' || 'PEID' || to_char(p_pos_grp1.position_extra_info_id),1);
2042: hr_utility.set_location('bef upd ' || 'PEOVN' || to_char(p_pos_grp1.object_version_number),1);
2043:
2044: -- JH Include WS/PTH if To Position PM is UE or APUE and to_posn <> from_posn. Bug 773851
2045: -- Bug 2462929 If WS pm in APUE or UE then update WS/PTH.
2038: If p_Pos_grp1.pos_grp1_flag = 'Y' then
2039: --
2040: hr_utility.set_location(l_proc,80);
2041: hr_utility.set_location('bef upd ' || 'PEID' || to_char(p_pos_grp1.position_extra_info_id),1);
2042: hr_utility.set_location('bef upd ' || 'PEOVN' || to_char(p_pos_grp1.object_version_number),1);
2043:
2044: -- JH Include WS/PTH if To Position PM is UE or APUE and to_posn <> from_posn. Bug 773851
2045: -- Bug 2462929 If WS pm in APUE or UE then update WS/PTH.
2046: hr_utility.set_location('To Posn ID ' || p_pa_request_rec.to_position_id ,81);
2042: hr_utility.set_location('bef upd ' || 'PEOVN' || to_char(p_pos_grp1.object_version_number),1);
2043:
2044: -- JH Include WS/PTH if To Position PM is UE or APUE and to_posn <> from_posn. Bug 773851
2045: -- Bug 2462929 If WS pm in APUE or UE then update WS/PTH.
2046: hr_utility.set_location('To Posn ID ' || p_pa_request_rec.to_position_id ,81);
2047: hr_utility.set_location('From Posn ID ' || p_pa_request_rec.from_position_id ,81);
2048:
2049: l_form_field_name := 'TO_POSITION_TITLE';
2050: FOR pm_rec in get_to_posn_title_pm LOOP
2043:
2044: -- JH Include WS/PTH if To Position PM is UE or APUE and to_posn <> from_posn. Bug 773851
2045: -- Bug 2462929 If WS pm in APUE or UE then update WS/PTH.
2046: hr_utility.set_location('To Posn ID ' || p_pa_request_rec.to_position_id ,81);
2047: hr_utility.set_location('From Posn ID ' || p_pa_request_rec.from_position_id ,81);
2048:
2049: l_form_field_name := 'TO_POSITION_TITLE';
2050: FOR pm_rec in get_to_posn_title_pm LOOP
2051: l_posn_title_pm := pm_rec.process_method_code;
2055: FOR pm_rec in get_to_posn_title_pm LOOP
2056: l_WS_pm := pm_rec.process_method_code;
2057: END Loop;
2058:
2059: hr_utility.set_location('To Posn PM ' || l_posn_title_pm ,81);
2060: IF p_pa_request_rec.to_position_id IS NOT NULL AND l_posn_title_pm in ('APUE','UE')
2061: AND nvl(p_pa_request_rec.to_position_id,hr_api.g_number) <>
2062: nvl(p_pa_request_rec.from_position_id,hr_api.g_number)
2063: OR p_pa_request_rec.to_position_id IS NOT NULL AND l_WS_pm in ('APUE','UE')
2063: OR p_pa_request_rec.to_position_id IS NOT NULL AND l_WS_pm in ('APUE','UE')
2064: OR nvl(p_pa_request_rec.first_noa_code,hr_api.g_number) = '782'
2065: OR nvl(p_pa_request_rec.second_noa_code,hr_api.g_number) = '782'
2066: THEN
2067: hr_utility.set_location('Posn Update With WS/PTH' || l_posn_title_pm ,81);
2068:
2069: ---------------------------- bug#2623692
2070:
2071: if( p_pos_grp1.organization_structure_id is null) then
2124: ,p_information23 => p_pos_grp1.part_time_hours
2125: );
2126: ELSE
2127: -- Standard Update
2128: hr_utility.set_location('Posn Update Without WS/PTH' || l_posn_title_pm ,81);
2129: Generic_Update_Extra_Info
2130: (p_pa_request_rec => P_PA_REQUEST_REC
2131: ,p_l_information_type => 'GHR_US_POS_GRP1'
2132: ,p_extra_info_id => p_pos_grp1.position_extra_info_id
2159: end if;
2160:
2161: If p_pos_grp2.pos_grp2_flag = 'Y' then
2162: --
2163: hr_utility.set_location('bef upd ' || 'PEID 2 ' || to_char(p_pos_grp2.position_extra_info_id),1);
2164: hr_utility.set_location('bef upd ' || 'PEOVN 2' || to_char(p_pos_grp2.object_version_number),1);
2165:
2166: Generic_Update_Extra_Info
2167: (
2160:
2161: If p_pos_grp2.pos_grp2_flag = 'Y' then
2162: --
2163: hr_utility.set_location('bef upd ' || 'PEID 2 ' || to_char(p_pos_grp2.position_extra_info_id),1);
2164: hr_utility.set_location('bef upd ' || 'PEOVN 2' || to_char(p_pos_grp2.object_version_number),1);
2165:
2166: Generic_Update_Extra_Info
2167: (
2168: p_pa_request_rec => P_PA_REQUEST_REC
2191:
2192: /*
2193: If p_pos_oblig.pos_oblig_flag = 'Y' then
2194: --
2195: hr_utility.set_location(l_proc,90);
2196: Generic_Update_Extra_Info
2197: (
2198: p_pa_request_rec => P_PA_REQUEST_REC
2199: ,p_l_information_type => 'GHR_US_POS_OBLIG'
2212:
2213: /*
2214: If p_pos_car_prog.pos_car_prog_flag = 'Y' then
2215: --
2216: hr_utility.set_location(l_proc,95);
2217: Generic_Update_Extra_Info(
2218: p_pa_request_rec => P_PA_REQUEST_REC
2219: ,p_l_information_type => 'GHR_US_POS_CAR_PROG'
2220: ,p_extra_info_id => p_pos_car_prog.position_extra_info_id
2228: --
2229: end if;
2230: */
2231:
2232: hr_utility.set_location(l_proc,100);
2233:
2234:
2235: -- Bug # 6312144 changes related to benefits continuation
2236: If p_ipa_benefits_cont.per_ben_cont_info_flag = 'Y' then
2233:
2234:
2235: -- Bug # 6312144 changes related to benefits continuation
2236: If p_ipa_benefits_cont.per_ben_cont_info_flag = 'Y' then
2237: hr_utility.set_location(l_proc,65);
2238:
2239: Generic_Update_Extra_Info
2240: (
2241: p_pa_request_rec => P_PA_REQUEST_REC
2258: End IF;
2259:
2260: -- Bug # 6312144 changes related to retirement system information
2261: If p_retirement_info.per_retirement_info_flag = 'Y' then
2262: hr_utility.set_location(l_proc,65);
2263:
2264: Generic_Update_Extra_Info
2265: (
2266: p_pa_request_rec => P_PA_REQUEST_REC
2281: If p_pa_request_rec.education_level is not null or
2282: p_pa_request_rec.academic_discipline is not null or
2283: p_pa_request_rec.year_degree_attained is not null then
2284:
2285: hr_utility.set_location(l_proc,102);
2286: update_edu_sit(p_pa_request_rec => p_pa_request_rec);
2287:
2288: End if;
2289:
2291: -- Call special info type api to update performance_appraisal details
2292: --
2293: If p_perf_appraisal.perf_appr_flag = 'Y' then
2294:
2295: hr_utility.set_location(l_proc,104);
2296: l_segment_rec.segment1 := p_perf_appraisal.appraisal_type;
2297: l_segment_rec.segment2 := p_perf_appraisal.rating_rec;
2298: l_segment_rec.segment3 := p_perf_appraisal.date_effective;
2299: l_segment_rec.segment4 := p_perf_appraisal.rating_rec_pattern;
2313: l_segment_rec.person_analysis_id := p_perf_appraisal.person_analysis_id;
2314: l_segment_rec.object_version_number := p_perf_appraisal.object_version_number;
2315: l_segment_rec.segment16 := p_perf_appraisal.performance_rating_points;
2316:
2317: hr_utility.set_location(l_proc||' l_segment_rec.segment16 '|| l_segment_rec.segment16,101);
2318:
2319: generic_update_sit
2320: (p_segment_rec => l_segment_rec,
2321: p_special_information_type => 'US Fed Perf Appraisal',
2355: (p_pa_request_rec => p_pa_request_rec,
2356: p_per_retained_grade => p_per_retained_grade );
2357: --
2358: --
2359: hr_utility.set_location('Leaving ' || l_proc,110);
2360: Exception when others then
2361: --
2362: -- Reset IN OUT parameters and set OUT parameters
2363: --
2598: end if;
2599: end if;
2600: If l_system_status is not null and
2601: l_user_status is not null then
2602: hr_utility.set_location('user_status ' || l_user_status,1);
2603: hr_utility.set_location('System status ' || l_system_status,2);
2604: If p_noa_code = '471' then
2605: ----------- changed cursor name from c_Asg_status_type to c_Asg_status_type_471 for bug#2139010
2606: for asg_status_type_471 in c_asg_status_type_471 loop
2599: end if;
2600: If l_system_status is not null and
2601: l_user_status is not null then
2602: hr_utility.set_location('user_status ' || l_user_status,1);
2603: hr_utility.set_location('System status ' || l_system_status,2);
2604: If p_noa_code = '471' then
2605: ----------- changed cursor name from c_Asg_status_type to c_Asg_status_type_471 for bug#2139010
2606: for asg_status_type_471 in c_asg_status_type_471 loop
2607: l_asg_status_type_id := asg_status_type_471.assignment_status_type_id;
2613: l_active_flag := asg_status_type.active_flag;
2614: end loop;
2615: End if;
2616: If l_asg_status_type_id is null then
2617: hr_utility.set_message(8301,'GHR_38180_STATUS_TYPE_UNDEF');
2618: hr_utility.raise_error;
2619: End if;
2620: If l_active_flag = 'N' then
2621: hr_utility.set_message(8301,'GHR_38181_STATUS_TYPE_INACTIVE');
2614: end loop;
2615: End if;
2616: If l_asg_status_type_id is null then
2617: hr_utility.set_message(8301,'GHR_38180_STATUS_TYPE_UNDEF');
2618: hr_utility.raise_error;
2619: End if;
2620: If l_active_flag = 'N' then
2621: hr_utility.set_message(8301,'GHR_38181_STATUS_TYPE_INACTIVE');
2622: hr_utility.raise_error;
2617: hr_utility.set_message(8301,'GHR_38180_STATUS_TYPE_UNDEF');
2618: hr_utility.raise_error;
2619: End if;
2620: If l_active_flag = 'N' then
2621: hr_utility.set_message(8301,'GHR_38181_STATUS_TYPE_INACTIVE');
2622: hr_utility.raise_error;
2623: End if;
2624: End if;
2625: p_status_type_id := l_asg_status_type_id;
2618: hr_utility.raise_error;
2619: End if;
2620: If l_active_flag = 'N' then
2621: hr_utility.set_message(8301,'GHR_38181_STATUS_TYPE_INACTIVE');
2622: hr_utility.raise_error;
2623: End if;
2624: End if;
2625: p_status_type_id := l_asg_status_type_id;
2626: Exception when others then
2709: and p_effective_date < pos.effective_start_date;
2710:
2711:
2712: Begin
2713: hr_utility.set_location('Entering ' || l_proc,5);
2714: If p_table_name = 'PER_PEOPLE_F' then --per
2715: hr_utility.set_location(l_proc,10);
2716: for update_mode in c_update_mode_p loop
2717: hr_utility.set_location(l_proc,15);
2711:
2712: Begin
2713: hr_utility.set_location('Entering ' || l_proc,5);
2714: If p_table_name = 'PER_PEOPLE_F' then --per
2715: hr_utility.set_location(l_proc,10);
2716: for update_mode in c_update_mode_p loop
2717: hr_utility.set_location(l_proc,15);
2718: l_esd := update_mode.effective_start_date;
2719: l_eed := update_mode.effective_end_date;
2713: hr_utility.set_location('Entering ' || l_proc,5);
2714: If p_table_name = 'PER_PEOPLE_F' then --per
2715: hr_utility.set_location(l_proc,10);
2716: for update_mode in c_update_mode_p loop
2717: hr_utility.set_location(l_proc,15);
2718: l_esd := update_mode.effective_start_date;
2719: l_eed := update_mode.effective_end_date;
2720: end loop;
2721: hr_utility.set_location(l_proc,20);
2717: hr_utility.set_location(l_proc,15);
2718: l_esd := update_mode.effective_start_date;
2719: l_eed := update_mode.effective_end_date;
2720: end loop;
2721: hr_utility.set_location(l_proc,20);
2722: If l_esd = p_effective_date then
2723: hr_utility.set_location(l_proc,25);
2724: l_mode := 'CORRECTION';
2725: Elsif l_esd < p_effective_date and
2719: l_eed := update_mode.effective_end_date;
2720: end loop;
2721: hr_utility.set_location(l_proc,20);
2722: If l_esd = p_effective_date then
2723: hr_utility.set_location(l_proc,25);
2724: l_mode := 'CORRECTION';
2725: Elsif l_esd < p_effective_date and
2726: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2727: hr_utility.set_location(l_proc,30);
2723: hr_utility.set_location(l_proc,25);
2724: l_mode := 'CORRECTION';
2725: Elsif l_esd < p_effective_date and
2726: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2727: hr_utility.set_location(l_proc,30);
2728: l_mode := 'UPDATE';
2729: -- end if;
2730: Elsif l_esd < p_effective_date then
2731: hr_utility.set_location(l_proc,35);
2727: hr_utility.set_location(l_proc,30);
2728: l_mode := 'UPDATE';
2729: -- end if;
2730: Elsif l_esd < p_effective_date then
2731: hr_utility.set_location(l_proc,35);
2732: for update_mode1 in c_update_mode_p1 loop
2733: hr_utility.set_location(l_proc,40);
2734: l_exists := true;
2735: exit;
2729: -- end if;
2730: Elsif l_esd < p_effective_date then
2731: hr_utility.set_location(l_proc,35);
2732: for update_mode1 in c_update_mode_p1 loop
2733: hr_utility.set_location(l_proc,40);
2734: l_exists := true;
2735: exit;
2736: end loop;
2737: If l_exists then
2734: l_exists := true;
2735: exit;
2736: end loop;
2737: If l_exists then
2738: hr_utility.set_location(l_proc,45);
2739: l_mode := 'UPDATE_CHANGE_INSERT';
2740: Else
2741: hr_utility.set_location(l_proc,50);
2742: l_mode := 'CORRECTION';
2737: If l_exists then
2738: hr_utility.set_location(l_proc,45);
2739: l_mode := 'UPDATE_CHANGE_INSERT';
2740: Else
2741: hr_utility.set_location(l_proc,50);
2742: l_mode := 'CORRECTION';
2743: End if;
2744: End if;
2745: If l_mode is null then
2742: l_mode := 'CORRECTION';
2743: End if;
2744: End if;
2745: If l_mode is null then
2746: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2747: hr_utility.set_message_token('TABLE_NAME','per_people_f');
2748: hr_utility.raise_error;
2749: End if;
2750: hr_utility.set_location(l_proc,55);
2743: End if;
2744: End if;
2745: If l_mode is null then
2746: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2747: hr_utility.set_message_token('TABLE_NAME','per_people_f');
2748: hr_utility.raise_error;
2749: End if;
2750: hr_utility.set_location(l_proc,55);
2751: Elsif p_table_name = 'PER_ASSIGNMENTS_F' then
2744: End if;
2745: If l_mode is null then
2746: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2747: hr_utility.set_message_token('TABLE_NAME','per_people_f');
2748: hr_utility.raise_error;
2749: End if;
2750: hr_utility.set_location(l_proc,55);
2751: Elsif p_table_name = 'PER_ASSIGNMENTS_F' then
2752: hr_utility.set_location(l_proc,60);
2746: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2747: hr_utility.set_message_token('TABLE_NAME','per_people_f');
2748: hr_utility.raise_error;
2749: End if;
2750: hr_utility.set_location(l_proc,55);
2751: Elsif p_table_name = 'PER_ASSIGNMENTS_F' then
2752: hr_utility.set_location(l_proc,60);
2753: for update_mode in c_update_mode_a loop
2754: hr_utility.set_location(l_proc,65);
2748: hr_utility.raise_error;
2749: End if;
2750: hr_utility.set_location(l_proc,55);
2751: Elsif p_table_name = 'PER_ASSIGNMENTS_F' then
2752: hr_utility.set_location(l_proc,60);
2753: for update_mode in c_update_mode_a loop
2754: hr_utility.set_location(l_proc,65);
2755: l_esd := update_mode.effective_start_date;
2756: l_eed := update_mode.effective_end_date;
2750: hr_utility.set_location(l_proc,55);
2751: Elsif p_table_name = 'PER_ASSIGNMENTS_F' then
2752: hr_utility.set_location(l_proc,60);
2753: for update_mode in c_update_mode_a loop
2754: hr_utility.set_location(l_proc,65);
2755: l_esd := update_mode.effective_start_date;
2756: l_eed := update_mode.effective_end_date;
2757: end loop;
2758: If l_esd = p_effective_date then
2755: l_esd := update_mode.effective_start_date;
2756: l_eed := update_mode.effective_end_date;
2757: end loop;
2758: If l_esd = p_effective_date then
2759: hr_utility.set_location(l_proc,70);
2760: l_mode := 'CORRECTION';
2761: Elsif l_esd < p_effective_date and
2762: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2763: hr_utility.set_location(l_proc,75);
2759: hr_utility.set_location(l_proc,70);
2760: l_mode := 'CORRECTION';
2761: Elsif l_esd < p_effective_date and
2762: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2763: hr_utility.set_location(l_proc,75);
2764: l_mode := 'UPDATE'; -- to end date a row and then create a new row
2765: Elsif l_esd < p_effective_date then
2766: hr_utility.set_location(l_proc,80);
2767: for update_mode1 in c_update_mode_a1 loop
2762: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2763: hr_utility.set_location(l_proc,75);
2764: l_mode := 'UPDATE'; -- to end date a row and then create a new row
2765: Elsif l_esd < p_effective_date then
2766: hr_utility.set_location(l_proc,80);
2767: for update_mode1 in c_update_mode_a1 loop
2768: hr_utility.set_location(l_proc,85);
2769: l_exists := true;
2770: exit;
2764: l_mode := 'UPDATE'; -- to end date a row and then create a new row
2765: Elsif l_esd < p_effective_date then
2766: hr_utility.set_location(l_proc,80);
2767: for update_mode1 in c_update_mode_a1 loop
2768: hr_utility.set_location(l_proc,85);
2769: l_exists := true;
2770: exit;
2771: end loop;
2772: If l_exists then
2769: l_exists := true;
2770: exit;
2771: end loop;
2772: If l_exists then
2773: hr_utility.set_location(l_proc,90);
2774: l_mode := 'UPDATE_CHANGE_INSERT'; -- to insert a row between 2 existing rows
2775: Else
2776: hr_utility.set_location(l_proc,95);
2777: l_mode := 'CORRECTION';
2772: If l_exists then
2773: hr_utility.set_location(l_proc,90);
2774: l_mode := 'UPDATE_CHANGE_INSERT'; -- to insert a row between 2 existing rows
2775: Else
2776: hr_utility.set_location(l_proc,95);
2777: l_mode := 'CORRECTION';
2778: End if;
2779: hr_utility.set_location(l_proc,100);
2780: End if;
2775: Else
2776: hr_utility.set_location(l_proc,95);
2777: l_mode := 'CORRECTION';
2778: End if;
2779: hr_utility.set_location(l_proc,100);
2780: End if;
2781: hr_utility.set_location(l_proc,105);
2782: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2783: If l_mode is null then
2777: l_mode := 'CORRECTION';
2778: End if;
2779: hr_utility.set_location(l_proc,100);
2780: End if;
2781: hr_utility.set_location(l_proc,105);
2782: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2783: If l_mode is null then
2784: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2785: hr_utility.set_message_token('TABLE_NAME','per_assignments_f');
2778: End if;
2779: hr_utility.set_location(l_proc,100);
2780: End if;
2781: hr_utility.set_location(l_proc,105);
2782: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2783: If l_mode is null then
2784: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2785: hr_utility.set_message_token('TABLE_NAME','per_assignments_f');
2786: hr_utility.raise_error;
2780: End if;
2781: hr_utility.set_location(l_proc,105);
2782: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2783: If l_mode is null then
2784: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2785: hr_utility.set_message_token('TABLE_NAME','per_assignments_f');
2786: hr_utility.raise_error;
2787: End if;
2788: Elsif p_table_name = 'HR_ALL_POSITIONS_F' then
2781: hr_utility.set_location(l_proc,105);
2782: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2783: If l_mode is null then
2784: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2785: hr_utility.set_message_token('TABLE_NAME','per_assignments_f');
2786: hr_utility.raise_error;
2787: End if;
2788: Elsif p_table_name = 'HR_ALL_POSITIONS_F' then
2789: hr_utility.set_location(l_proc,110);
2782: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2783: If l_mode is null then
2784: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2785: hr_utility.set_message_token('TABLE_NAME','per_assignments_f');
2786: hr_utility.raise_error;
2787: End if;
2788: Elsif p_table_name = 'HR_ALL_POSITIONS_F' then
2789: hr_utility.set_location(l_proc,110);
2790: for update_mode in c_update_mode_pos loop
2785: hr_utility.set_message_token('TABLE_NAME','per_assignments_f');
2786: hr_utility.raise_error;
2787: End if;
2788: Elsif p_table_name = 'HR_ALL_POSITIONS_F' then
2789: hr_utility.set_location(l_proc,110);
2790: for update_mode in c_update_mode_pos loop
2791: hr_utility.set_location(l_proc,115);
2792: l_esd := update_mode.effective_start_date;
2793: l_eed := update_mode.effective_end_date;
2787: End if;
2788: Elsif p_table_name = 'HR_ALL_POSITIONS_F' then
2789: hr_utility.set_location(l_proc,110);
2790: for update_mode in c_update_mode_pos loop
2791: hr_utility.set_location(l_proc,115);
2792: l_esd := update_mode.effective_start_date;
2793: l_eed := update_mode.effective_end_date;
2794: end loop;
2795: If l_esd = p_effective_date then
2792: l_esd := update_mode.effective_start_date;
2793: l_eed := update_mode.effective_end_date;
2794: end loop;
2795: If l_esd = p_effective_date then
2796: hr_utility.set_location(l_proc,120);
2797: l_mode := 'CORRECTION';
2798: Elsif l_esd < p_effective_date and
2799: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2800: hr_utility.set_location(l_proc,125);
2796: hr_utility.set_location(l_proc,120);
2797: l_mode := 'CORRECTION';
2798: Elsif l_esd < p_effective_date and
2799: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2800: hr_utility.set_location(l_proc,125);
2801: l_mode := 'UPDATE'; -- to end date a row and then create a new row
2802: Elsif l_esd < p_effective_date then
2803: hr_utility.set_location(l_proc,130);
2804: for update_mode1 in c_update_mode_pos1 loop
2799: to_char(l_eed,'YYYY/MM/DD') = '4712/12/31' then
2800: hr_utility.set_location(l_proc,125);
2801: l_mode := 'UPDATE'; -- to end date a row and then create a new row
2802: Elsif l_esd < p_effective_date then
2803: hr_utility.set_location(l_proc,130);
2804: for update_mode1 in c_update_mode_pos1 loop
2805: hr_utility.set_location(l_proc,135);
2806: l_exists := true;
2807: exit;
2801: l_mode := 'UPDATE'; -- to end date a row and then create a new row
2802: Elsif l_esd < p_effective_date then
2803: hr_utility.set_location(l_proc,130);
2804: for update_mode1 in c_update_mode_pos1 loop
2805: hr_utility.set_location(l_proc,135);
2806: l_exists := true;
2807: exit;
2808: end loop;
2809: If l_exists then
2806: l_exists := true;
2807: exit;
2808: end loop;
2809: If l_exists then
2810: hr_utility.set_location(l_proc,140);
2811: l_mode := 'UPDATE_CHANGE_INSERT'; -- to insert a row between 2 existing rows
2812: Else
2813: hr_utility.set_location(l_proc,145);
2814: l_mode := 'CORRECTION';
2809: If l_exists then
2810: hr_utility.set_location(l_proc,140);
2811: l_mode := 'UPDATE_CHANGE_INSERT'; -- to insert a row between 2 existing rows
2812: Else
2813: hr_utility.set_location(l_proc,145);
2814: l_mode := 'CORRECTION';
2815: End if;
2816: hr_utility.set_location(l_proc,150);
2817: End if;
2812: Else
2813: hr_utility.set_location(l_proc,145);
2814: l_mode := 'CORRECTION';
2815: End if;
2816: hr_utility.set_location(l_proc,150);
2817: End if;
2818: hr_utility.set_location(l_proc,155);
2819: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2820: If l_mode is null then
2814: l_mode := 'CORRECTION';
2815: End if;
2816: hr_utility.set_location(l_proc,150);
2817: End if;
2818: hr_utility.set_location(l_proc,155);
2819: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2820: If l_mode is null then
2821: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2822: hr_utility.set_message_token('TABLE_NAME','HR_ALL_POSITIONS_F');
2815: End if;
2816: hr_utility.set_location(l_proc,150);
2817: End if;
2818: hr_utility.set_location(l_proc,155);
2819: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2820: If l_mode is null then
2821: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2822: hr_utility.set_message_token('TABLE_NAME','HR_ALL_POSITIONS_F');
2823: hr_utility.raise_error;
2817: End if;
2818: hr_utility.set_location(l_proc,155);
2819: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2820: If l_mode is null then
2821: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2822: hr_utility.set_message_token('TABLE_NAME','HR_ALL_POSITIONS_F');
2823: hr_utility.raise_error;
2824: End if;
2825: End if;
2818: hr_utility.set_location(l_proc,155);
2819: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2820: If l_mode is null then
2821: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2822: hr_utility.set_message_token('TABLE_NAME','HR_ALL_POSITIONS_F');
2823: hr_utility.raise_error;
2824: End if;
2825: End if;
2826: return l_mode;
2819: hr_utility.set_location('UPDATE_MODE : ' || l_mode,2);
2820: If l_mode is null then
2821: hr_utility.set_message(8301,'GHR_GET_DATE_TRACK_FAILED');
2822: hr_utility.set_message_token('TABLE_NAME','HR_ALL_POSITIONS_F');
2823: hr_utility.raise_error;
2824: End if;
2825: End if;
2826: return l_mode;
2827: hr_utility.set_location('Leaving ' ||l_proc,160);
2823: hr_utility.raise_error;
2824: End if;
2825: End if;
2826: return l_mode;
2827: hr_utility.set_location('Leaving ' ||l_proc,160);
2828: End return_update_mode;
2829:
2830:
2831:
3479: --
3480: l_pa_request_rec := p_pa_request_rec;
3481:
3482: g_effective_date := nvl(p_pa_request_rec.effective_date,sysdate);
3483: hr_utility.set_location('g_eff_date ' || to_char(g_effective_date),1);
3484:
3485: -- if Realignment then change the organization name in position
3486: if p_pa_request_rec.first_noa_code = '790' then
3487: l_position_data_rec_type.position_id := p_pa_request_rec.to_position_id;
3487: l_position_data_rec_type.position_id := p_pa_request_rec.to_position_id;
3488: l_position_data_rec_type.organization_id := p_pa_request_rec.to_organization_id;
3489: l_position_data_rec_type.agency_code_subelement := p_agency_code;
3490: l_position_data_rec_type.effective_date := g_effective_date;
3491: hr_utility.set_location('realign -pos ' || p_pa_request_rec.to_organization_id,1);
3492: ----l_position_data_rec_type.datetrack_mode := return_update_mode
3493: ---- (p_id => p_pa_request_rec.to_position_id,
3494: ---- p_effective_date => p_pa_request_rec.effective_date,
3495: ---- p_table_name => 'HR_ALL_POSITIONS_F'
3516: end if;
3517:
3518: -- Start Inserting AAA Remark
3519:
3520: hr_utility.set_location('Before the Remark creation - From PB '||p_pa_request_rec.from_pay_basis,3);
3521: hr_utility.set_location('Before the Remark creation - To PB '||p_pa_request_rec.to_pay_basis,3);
3522: hr_utility.set_location('Before the Remark creation - PRD '||p_pa_request_rec.pay_rate_determinant,3);
3523:
3524: IF p_pa_request_rec.from_pay_basis <> p_pa_request_rec.to_pay_basis and
3517:
3518: -- Start Inserting AAA Remark
3519:
3520: hr_utility.set_location('Before the Remark creation - From PB '||p_pa_request_rec.from_pay_basis,3);
3521: hr_utility.set_location('Before the Remark creation - To PB '||p_pa_request_rec.to_pay_basis,3);
3522: hr_utility.set_location('Before the Remark creation - PRD '||p_pa_request_rec.pay_rate_determinant,3);
3523:
3524: IF p_pa_request_rec.from_pay_basis <> p_pa_request_rec.to_pay_basis and
3525: p_pa_request_rec.pay_rate_determinant in ('A','B','E','F','U','V') THEN
3518: -- Start Inserting AAA Remark
3519:
3520: hr_utility.set_location('Before the Remark creation - From PB '||p_pa_request_rec.from_pay_basis,3);
3521: hr_utility.set_location('Before the Remark creation - To PB '||p_pa_request_rec.to_pay_basis,3);
3522: hr_utility.set_location('Before the Remark creation - PRD '||p_pa_request_rec.pay_rate_determinant,3);
3523:
3524: IF p_pa_request_rec.from_pay_basis <> p_pa_request_rec.to_pay_basis and
3525: p_pa_request_rec.pay_rate_determinant in ('A','B','E','F','U','V') THEN
3526:
3523:
3524: IF p_pa_request_rec.from_pay_basis <> p_pa_request_rec.to_pay_basis and
3525: p_pa_request_rec.pay_rate_determinant in ('A','B','E','F','U','V') THEN
3526:
3527: hr_utility.set_location('Inside the Remark creation ',3);
3528: ghr_mass_actions_pkg.get_remark_id_desc
3529: (p_remark_code => 'AAA',
3530: p_effective_date => g_effective_date,
3531: p_remark_id => l_remark_id,
3541: P_PA_REMARK_ID => l_pa_remark_id,
3542: p_OBJECT_VERSION_NUMBER => l_rem_ovn
3543: );
3544: END IF;
3545: hr_utility.set_location('Passed Remark creation ',5);
3546: -- End Inserting AAA Remark
3547:
3548: -- Start Populating BBB Remark
3549: IF p_pa_request_rec.first_noa_code = '850' THEN
3546: -- End Inserting AAA Remark
3547:
3548: -- Start Populating BBB Remark
3549: IF p_pa_request_rec.first_noa_code = '850' THEN
3550: hr_utility.set_location('Inside the Remark creation ',3);
3551: --Check if user has entered any comments. If so do not populate BBB.
3552: hr_utility.set_location('Pa Request Id'||p_pa_request_rec.pa_request_id,3);
3553:
3554: FOR check_remarks_rec in check_remarks
3548: -- Start Populating BBB Remark
3549: IF p_pa_request_rec.first_noa_code = '850' THEN
3550: hr_utility.set_location('Inside the Remark creation ',3);
3551: --Check if user has entered any comments. If so do not populate BBB.
3552: hr_utility.set_location('Pa Request Id'||p_pa_request_rec.pa_request_id,3);
3553:
3554: FOR check_remarks_rec in check_remarks
3555: LOOP
3556: l_check_remarks := TRUE;
3596: --while terminating the MDDDS_SPECIAL_PAY element it should delete the remarks also.
3597: IF ( l_mddds_total_special_pay = 0 )
3598: OR ( l_mddds_total_special_pay IS NULL ) THEN
3599:
3600: hr_utility.set_location('Inside else'||l_rpa_remark_id ,10);
3601: FOR get_remark_code_rec IN cur_get_remark_code(l_rpa_remark_id)
3602: LOOP
3603: l_rpa_remark_code := get_remark_code_rec.code;
3604: END LOOP;
3601: FOR get_remark_code_rec IN cur_get_remark_code(l_rpa_remark_id)
3602: LOOP
3603: l_rpa_remark_code := get_remark_code_rec.code;
3604: END LOOP;
3605: hr_utility.set_location('Remark Code already entered ' ||l_rpa_remark_code,11);
3606: IF l_rpa_remark_code='BBB' THEN
3607: -- While terminating the element if BBB remark is present then
3608: hr_utility.set_message(8301,'GHR_38877_850_REMARK');
3609: hr_utility.raise_error;
3604: END LOOP;
3605: hr_utility.set_location('Remark Code already entered ' ||l_rpa_remark_code,11);
3606: IF l_rpa_remark_code='BBB' THEN
3607: -- While terminating the element if BBB remark is present then
3608: hr_utility.set_message(8301,'GHR_38877_850_REMARK');
3609: hr_utility.raise_error;
3610: END IF;
3611: END IF;
3612:
3605: hr_utility.set_location('Remark Code already entered ' ||l_rpa_remark_code,11);
3606: IF l_rpa_remark_code='BBB' THEN
3607: -- While terminating the element if BBB remark is present then
3608: hr_utility.set_message(8301,'GHR_38877_850_REMARK');
3609: hr_utility.raise_error;
3610: END IF;
3611: END IF;
3612:
3613: END IF;
3615: --End of Populating BBB remark.
3616:
3617:
3618:
3619: hr_utility.set_location('Entering ' ||l_proc,5);
3620:
3621: l_noa_family_code := null;
3622: for family_code in c_noa_family_code loop
3623: l_noa_family_code := family_code.noa_family_code;
3633: exit;
3634: end loop;
3635:
3636: if l_person_type is null then
3637: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
3638: hr_utility.raise_error;
3639: end if;
3640: hr_utility.set_location(l_proc,10);
3641:
3634: end loop;
3635:
3636: if l_person_type is null then
3637: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
3638: hr_utility.raise_error;
3639: end if;
3640: hr_utility.set_location(l_proc,10);
3641:
3642: --
3636: if l_person_type is null then
3637: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
3638: hr_utility.raise_error;
3639: end if;
3640: hr_utility.set_location(l_proc,10);
3641:
3642: --
3643:
3644: for bus_gp in c_bus_gp loop
3660: -- Bug 3215139 Sundar
3661: 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
3662: l_pos_job_id := l_get_occ_code.job_id;
3663: END LOOP;
3664: hr_utility.set_location('p_agency_code' ||p_agency_code,1);
3665: hr_utility.set_location('Position agency_code' ||l_pos_agency_code,1);
3666: -- Need to update Position only if OCC_CODE is different in RPA form than the Position.
3667: -- Commented for testing
3668: IF (p_pa_request_rec.to_job_id <> l_pos_job_id) OR (p_agency_code <> l_pos_agency_code) THEN
3661: 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
3662: l_pos_job_id := l_get_occ_code.job_id;
3663: END LOOP;
3664: hr_utility.set_location('p_agency_code' ||p_agency_code,1);
3665: hr_utility.set_location('Position agency_code' ||l_pos_agency_code,1);
3666: -- Need to update Position only if OCC_CODE is different in RPA form than the Position.
3667: -- Commented for testing
3668: IF (p_pa_request_rec.to_job_id <> l_pos_job_id) OR (p_agency_code <> l_pos_agency_code) THEN
3669: l_position_data_rec_type.position_id := p_pa_request_rec.to_position_id;
3669: l_position_data_rec_type.position_id := p_pa_request_rec.to_position_id;
3670: l_position_data_rec_type.job_id := p_pa_request_rec.to_job_id;
3671: l_position_data_rec_type.agency_code_subelement := p_agency_code;
3672: l_position_data_rec_type.effective_date := g_effective_date;
3673: hr_utility.set_location('change in data element-pos ' || p_pa_request_rec.to_job_id,1);
3674: l_position_data_rec_type.datetrack_mode := return_update_mode
3675: (p_id => p_pa_request_rec.to_position_id,
3676: p_effective_date => p_pa_request_rec.effective_date,
3677: p_table_name => 'HR_ALL_POSITIONS_F'
3687:
3688:
3689:
3690: ghr_history_api.get_g_session_var(l_session);
3691: hr_utility.set_location('NOA ID CORRECT : ' || l_session.noa_id_correct,1);
3692:
3693: If l_noa_family_code = 'APP' then
3694: hr_utility.set_location(l_proc,15);
3695: l_per_object_version_number := null;
3690: ghr_history_api.get_g_session_var(l_session);
3691: hr_utility.set_location('NOA ID CORRECT : ' || l_session.noa_id_correct,1);
3692:
3693: If l_noa_family_code = 'APP' then
3694: hr_utility.set_location(l_proc,15);
3695: l_per_object_version_number := null;
3696: for ovn in per_ovn loop
3697: l_business_group_id := ovn.business_group_id;
3698: l_per_object_version_number := ovn.object_version_number;
3698: l_per_object_version_number := ovn.object_version_number;
3699: l_per_upd_employee_number := ovn.employee_number;
3700: end loop;
3701: if l_per_object_version_number is null then
3702: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
3703: hr_utility.raise_error;
3704: end if;
3705:
3706: If l_person_type = 'APL' then -- and the action is not correction
3699: l_per_upd_employee_number := ovn.employee_number;
3700: end loop;
3701: if l_per_object_version_number is null then
3702: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
3703: hr_utility.raise_error;
3704: end if;
3705:
3706: If l_person_type = 'APL' then -- and the action is not correction
3707: hr_utility.set_location(l_proc,20);
3703: hr_utility.raise_error;
3704: end if;
3705:
3706: If l_person_type = 'APL' then -- and the action is not correction
3707: hr_utility.set_location(l_proc,20);
3708: l_hr_applicant_api_hire := 'Y';
3709: l_update_mode := 'CORRECTION';
3710: l_activate_flag := 'Y';
3711: End if;
3710: l_activate_flag := 'Y';
3711: End if;
3712: --Bug# 6711759 Included the person type EX_EMP_APL
3713: If l_person_type in ('EX_EMP','EX_EMP_APL') then
3714: hr_utility.set_location(l_proc,21);
3715: l_rehire_ex_emp := 'Y';
3716: l_activate_flag := 'Y';
3717: End if;
3718:
3725:
3726: --End of cases exclusive case for Appointment family
3727: Else -- If noa_family_code <> 'APP'
3728: If l_person_type = 'EX_EMP' then
3729: hr_utility.set_location(l_proc,25);
3730: l_rehire_ex_emp := 'Y';
3731: l_activate_flag := 'Y';
3732: l_employee_api_update_criteria := 'Y';
3733: l_update_gre := 'Y'; -- Added Venkat Bug # 1239688
3734: End if;
3735: If p_pa_request_rec.to_position_id is not null then
3736: If nvl(p_pa_request_rec.From_Position_Id,hr_api.g_number) <> P_pa_request_rec.to_position_id
3737: then
3738: hr_utility.set_location('Non Appointment -- To pos <> From Pos - GRE ' ||l_proc,41);
3739: l_employee_api_update_criteria := 'Y';
3740: l_update_gre := 'Y';
3741: l_update_mode := 'UPDATE'; -- If action is Correction,then update_mode = 'CORRECTION'
3742: end if;
3750: FOR l_get_asg_position IN c_get_asg_position(p_pa_request_rec.employee_assignment_id,
3751: p_pa_request_rec.effective_date) LOOP
3752: l_asg_position := l_get_asg_position.position_id;
3753: END LOOP;
3754: hr_utility.set_location('Assg Pos ' ||l_asg_position,41);
3755: IF l_asg_position IS NOT NULL AND (p_pa_request_rec.to_position_id <> l_asg_position) THEN
3756: hr_utility.set_location('To pos <> Assg Pos ' ||l_proc,41);
3757: l_employee_api_update_criteria := 'Y';
3758: END IF;
3752: l_asg_position := l_get_asg_position.position_id;
3753: END LOOP;
3754: hr_utility.set_location('Assg Pos ' ||l_asg_position,41);
3755: IF l_asg_position IS NOT NULL AND (p_pa_request_rec.to_position_id <> l_asg_position) THEN
3756: hr_utility.set_location('To pos <> Assg Pos ' ||l_proc,41);
3757: l_employee_api_update_criteria := 'Y';
3758: END IF;
3759:
3760: END IF;
3763: -- Added by subbu on 25-Feb-98. Assignment information has to be updated irrespective
3764: -- of the change in position for REALIGNMENT
3765: --
3766: if l_noa_family_code = 'REALIGNMENT' then
3767: hr_utility.set_location('realign' || p_pa_request_rec.to_organization_id,1);
3768: l_employee_api_update_criteria := 'Y';
3769: l_update_gre := 'Y';
3770: end if;
3771: --
3797: -- Added by Dan on 09-Jun-98. Assignment information has to be updated irrespective
3798: -- of the change in position for NOA 800 (change in data element)
3799: --
3800: if l_noa_family_code = 'CHG_DATA_ELEMENT' then
3801: hr_utility.set_location('realign' || p_pa_request_rec.to_job_id,3);
3802: IF (l_update_occ_code = 'Y') THEN -- Sundar 3215139 Need to update assignment only if position is updated
3803: l_employee_api_update_criteria := 'Y';
3804: END IF;
3805: end if;
3805: end if;
3806:
3807: --BUG 4542437
3808: if l_noa_family_code = 'NON_PAY_DUTY_STATUS' then
3809: hr_utility.set_location('Family code Non pay duty status ',500);
3810: IF p_pa_request_rec.to_position_id IS NULL THEN
3811: hr_utility.set_location('To position id is null but position id is changed by a retro',519);
3812: l_position_id := p_pa_request_rec.from_position_id;
3813: hr_utility.set_location('l_position id '||l_position_id,525);
3807: --BUG 4542437
3808: if l_noa_family_code = 'NON_PAY_DUTY_STATUS' then
3809: hr_utility.set_location('Family code Non pay duty status ',500);
3810: IF p_pa_request_rec.to_position_id IS NULL THEN
3811: hr_utility.set_location('To position id is null but position id is changed by a retro',519);
3812: l_position_id := p_pa_request_rec.from_position_id;
3813: hr_utility.set_location('l_position id '||l_position_id,525);
3814: --Getting job id
3815: 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
3809: hr_utility.set_location('Family code Non pay duty status ',500);
3810: IF p_pa_request_rec.to_position_id IS NULL THEN
3811: hr_utility.set_location('To position id is null but position id is changed by a retro',519);
3812: l_position_id := p_pa_request_rec.from_position_id;
3813: hr_utility.set_location('l_position id '||l_position_id,525);
3814: --Getting job id
3815: 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
3816: l_job_id := l_get_occ_code.job_id;
3817: END LOOP;
3814: --Getting job id
3815: 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
3816: l_job_id := l_get_occ_code.job_id;
3817: END LOOP;
3818: hr_utility.set_location('job_id '||l_job_id,545);
3819: ---Getting organization id
3820: for get_org_id in c_from_org_id loop
3821: l_org_id := get_org_id.organization_id;
3822: end loop;
3819: ---Getting organization id
3820: for get_org_id in c_from_org_id loop
3821: l_org_id := get_org_id.organization_id;
3822: end loop;
3823: hr_utility.set_location('l_oraganization id '||l_org_id,575);
3824: -- Get Assignment Position. If it's not equal to To position of RPA, then assignment
3825: -- should be updated
3826: FOR l_get_asg_position IN c_get_asg_position(p_pa_request_rec.employee_assignment_id, p_pa_request_rec.effective_date) LOOP
3827: l_asg_position := l_get_asg_position.position_id;
3825: -- should be updated
3826: FOR l_get_asg_position IN c_get_asg_position(p_pa_request_rec.employee_assignment_id, p_pa_request_rec.effective_date) LOOP
3827: l_asg_position := l_get_asg_position.position_id;
3828: END LOOP;
3829: hr_utility.set_location('Assg Pos ' ||l_asg_position,599);
3830:
3831: --Getting Grade id
3832: ghr_history_fetch.fetch_positionei
3833: (p_position_id => l_position_id
3836: ,p_pos_ei_data => l_pos_ei_data);
3837:
3838: l_grade_id := l_pos_ei_data.poei_information3;
3839:
3840: hr_utility.set_location('l_grade id for the new position '||l_grade_id,875);
3841: --Bug# 6010971, added grade_id condition
3842: IF l_asg_position IS NOT NULL
3843: AND ((l_position_id <> l_asg_position)
3844: OR (nvl(P_pa_request_rec.to_grade_id,hr_api.g_number) <> nvl(l_grade_id,hr_api.g_number)))
3842: IF l_asg_position IS NOT NULL
3843: AND ((l_position_id <> l_asg_position)
3844: OR (nvl(P_pa_request_rec.to_grade_id,hr_api.g_number) <> nvl(l_grade_id,hr_api.g_number)))
3845: THEN
3846: hr_utility.set_location('To pos <> Assg Pos ' ||l_proc,650);
3847: l_employee_api_update_criteria := 'Y';
3848: END IF;
3849: --Bug# 6010971
3850:
3855: -- Name change
3856: if l_noa_family_code = 'CHG_NAME' then
3857: l_update_person := 'Y';
3858: elsif l_noa_family_code = 'RETURN_TO_DUTY' then
3859: hr_utility.set_location(l_proc,45);
3860: l_activate_flag := 'Y';
3861: elsif l_noa_family_code = 'NON_PAY_DUTY_STATUS' then
3862: hr_utility.set_location(l_proc,50);
3863: l_suspend_flag := 'Y';
3858: elsif l_noa_family_code = 'RETURN_TO_DUTY' then
3859: hr_utility.set_location(l_proc,45);
3860: l_activate_flag := 'Y';
3861: elsif l_noa_family_code = 'NON_PAY_DUTY_STATUS' then
3862: hr_utility.set_location(l_proc,50);
3863: l_suspend_flag := 'Y';
3864: elsif l_noa_family_code = 'SEPARATION' then
3865: hr_utility.set_location(l_proc,55);
3866: l_terminate_flag := 'Y';
3861: elsif l_noa_family_code = 'NON_PAY_DUTY_STATUS' then
3862: hr_utility.set_location(l_proc,50);
3863: l_suspend_flag := 'Y';
3864: elsif l_noa_family_code = 'SEPARATION' then
3865: hr_utility.set_location(l_proc,55);
3866: l_terminate_flag := 'Y';
3867: IF P_pa_request_rec.FORWARDING_ADDRESS_LINE1 is not null or
3868: P_pa_request_rec.FORWARDING_ADDRESS_LINE2 is not null or
3869: P_pa_request_rec.FORWARDING_ADDRESS_LINE3 is not null or
3870: P_pa_request_rec.FORWARDING_TOWN_OR_CITY is not null or
3871: P_pa_request_rec.FORWARDING_REGION_2 is not null or
3872: P_pa_request_rec.FORWARDING_POSTAL_CODE is not null or
3873: P_pa_request_rec.FORWARDING_COUNTRY is not null THEN
3874: hr_utility.set_location(l_proc,60);
3875: FOR address in c_address_type LOOP
3876: l_address_id := address.address_id;
3877: l_add_object_version_number := address.object_version_number;
3878: l_address_line1 := address.address_line1;
3882: l_region_2 := address.region_2;
3883: l_postal_code := address.postal_code;
3884: l_country := address.country;
3885: END LOOP;
3886: hr_utility.set_location('Dump Address data' || l_proc,61);
3887: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE1 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,1,40),62 );
3888: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
3889: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
3890: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
3883: l_postal_code := address.postal_code;
3884: l_country := address.country;
3885: END LOOP;
3886: hr_utility.set_location('Dump Address data' || l_proc,61);
3887: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE1 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,1,40),62 );
3888: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
3889: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
3890: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
3891: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
3884: l_country := address.country;
3885: END LOOP;
3886: hr_utility.set_location('Dump Address data' || l_proc,61);
3887: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE1 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,1,40),62 );
3888: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
3889: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
3890: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
3891: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
3892: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
3885: END LOOP;
3886: hr_utility.set_location('Dump Address data' || l_proc,61);
3887: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE1 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,1,40),62 );
3888: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
3889: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
3890: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
3891: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
3892: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
3893: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
3886: hr_utility.set_location('Dump Address data' || l_proc,61);
3887: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE1 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,1,40),62 );
3888: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
3889: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
3890: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
3891: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
3892: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
3893: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
3894: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
3887: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE1 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,1,40),62 );
3888: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
3889: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
3890: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
3891: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
3892: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
3893: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
3894: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
3895: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
3888: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE2,1,40),63 );
3889: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
3890: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
3891: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
3892: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
3893: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
3894: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
3895: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
3896: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
3889: hr_utility.set_location('p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ' ||substr(p_pa_request_rec.FORWARDING_ADDRESS_LINE3,1,40),64 );
3890: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
3891: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
3892: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
3893: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
3894: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
3895: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
3896: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
3897: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
3890: hr_utility.set_location('p_pa_request_rec.FORWARDING_TOWN_OR_CITY ' ||p_pa_request_rec.FORWARDING_TOWN_OR_CITY,65 );
3891: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
3892: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
3893: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
3894: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
3895: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
3896: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
3897: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
3898: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
3891: hr_utility.set_location('p_pa_request_rec.FORWARDING_REGION_2 ' ||substr(p_pa_request_rec.FORWARDING_REGION_2,1,40),66 );
3892: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
3893: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
3894: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
3895: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
3896: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
3897: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
3898: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
3899: hr_utility.set_location('l_POSTAL_CODE ' ||l_POSTAL_CODE,74 );
3892: hr_utility.set_location('p_pa_request_rec.FORWARDING_POSTAL_CODE ' ||p_pa_request_rec.FORWARDING_POSTAL_CODE,67 );
3893: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
3894: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
3895: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
3896: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
3897: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
3898: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
3899: hr_utility.set_location('l_POSTAL_CODE ' ||l_POSTAL_CODE,74 );
3900: hr_utility.set_location('l_COUNTRY ' ||substr(l_COUNTRY,1,40),75 );
3893: hr_utility.set_location('p_pa_request_rec.FORWARDING_COUNTRY ' ||substr(p_pa_request_rec.FORWARDING_COUNTRY,1,40),68 );
3894: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
3895: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
3896: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
3897: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
3898: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
3899: hr_utility.set_location('l_POSTAL_CODE ' ||l_POSTAL_CODE,74 );
3900: hr_utility.set_location('l_COUNTRY ' ||substr(l_COUNTRY,1,40),75 );
3901: IF l_session.noa_id_correct is null THEN
3894: hr_utility.set_location('l_ADDRESS_LINE1 ' ||substr(l_ADDRESS_LINE1,1,40),69 );
3895: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
3896: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
3897: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
3898: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
3899: hr_utility.set_location('l_POSTAL_CODE ' ||l_POSTAL_CODE,74 );
3900: hr_utility.set_location('l_COUNTRY ' ||substr(l_COUNTRY,1,40),75 );
3901: IF l_session.noa_id_correct is null THEN
3902: IF nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,hr_api.g_varchar2) = nvl(l_address_line1 ,hr_api.g_varchar2) and
3895: hr_utility.set_location('l_ADDRESS_LINE2 ' ||substr(l_ADDRESS_LINE2,1,40),70 );
3896: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
3897: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
3898: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
3899: hr_utility.set_location('l_POSTAL_CODE ' ||l_POSTAL_CODE,74 );
3900: hr_utility.set_location('l_COUNTRY ' ||substr(l_COUNTRY,1,40),75 );
3901: IF l_session.noa_id_correct is null THEN
3902: IF nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,hr_api.g_varchar2) = nvl(l_address_line1 ,hr_api.g_varchar2) and
3903: nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ,hr_api.g_varchar2)= nvl(l_address_line2 ,hr_api.g_varchar2) and
3896: hr_utility.set_location('l_ADDRESS_LINE3 ' ||substr(l_ADDRESS_LINE3,1,40),71 );
3897: hr_utility.set_location('l_TOWN_OR_CITY ' ||l_TOWN_OR_CITY,72 );
3898: hr_utility.set_location('l_REGION_2 ' ||substr(l_REGION_2,1,40),73 );
3899: hr_utility.set_location('l_POSTAL_CODE ' ||l_POSTAL_CODE,74 );
3900: hr_utility.set_location('l_COUNTRY ' ||substr(l_COUNTRY,1,40),75 );
3901: IF l_session.noa_id_correct is null THEN
3902: IF nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,hr_api.g_varchar2) = nvl(l_address_line1 ,hr_api.g_varchar2) and
3903: nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ,hr_api.g_varchar2)= nvl(l_address_line2 ,hr_api.g_varchar2) and
3904: nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE3 ,hr_api.g_varchar2)= nvl(l_address_line3 ,hr_api.g_varchar2) and
3906: nvl(p_pa_request_rec.FORWARDING_REGION_2 ,hr_api.g_varchar2) = nvl(l_region_2 ,hr_api.g_varchar2) and
3907: nvl(p_pa_request_rec.FORWARDING_POSTAL_CODE ,hr_api.g_varchar2) = nvl(l_postal_code ,hr_api.g_varchar2) and
3908: nvl(P_pa_request_rec.FORWARDING_COUNTRY ,hr_api.g_varchar2) = nvl(l_country ,hr_api.g_varchar2) THEN
3909: null;
3910: hr_utility.set_location('Non Correction -- No Action ' || l_proc,76);
3911: ELSE
3912: l_create_address := 'Y';
3913: hr_utility.set_location('Non Correction -- Create Address ' || l_proc,77);
3914: END IF;
3909: null;
3910: hr_utility.set_location('Non Correction -- No Action ' || l_proc,76);
3911: ELSE
3912: l_create_address := 'Y';
3913: hr_utility.set_location('Non Correction -- Create Address ' || l_proc,77);
3914: END IF;
3915: ELSE
3916: hr_utility.set_location('altered_pa_request_id is ' ||l_session.altered_pa_request_id ,65);
3917: hr_utility.set_location('noa_id_correct is ' ||l_session.noa_id_correct ,66);
3912: l_create_address := 'Y';
3913: hr_utility.set_location('Non Correction -- Create Address ' || l_proc,77);
3914: END IF;
3915: ELSE
3916: hr_utility.set_location('altered_pa_request_id is ' ||l_session.altered_pa_request_id ,65);
3917: hr_utility.set_location('noa_id_correct is ' ||l_session.noa_id_correct ,66);
3918: hr_utility.set_location('address_id is ' || l_address_id, 66);
3919: open c_upd_primary_address(l_session.altered_pa_request_id, l_address_id);
3920: fetch c_upd_primary_address into l_address_id;
3913: hr_utility.set_location('Non Correction -- Create Address ' || l_proc,77);
3914: END IF;
3915: ELSE
3916: hr_utility.set_location('altered_pa_request_id is ' ||l_session.altered_pa_request_id ,65);
3917: hr_utility.set_location('noa_id_correct is ' ||l_session.noa_id_correct ,66);
3918: hr_utility.set_location('address_id is ' || l_address_id, 66);
3919: open c_upd_primary_address(l_session.altered_pa_request_id, l_address_id);
3920: fetch c_upd_primary_address into l_address_id;
3921: hr_utility.set_location('address_id is ' || l_address_id, 66);
3914: END IF;
3915: ELSE
3916: hr_utility.set_location('altered_pa_request_id is ' ||l_session.altered_pa_request_id ,65);
3917: hr_utility.set_location('noa_id_correct is ' ||l_session.noa_id_correct ,66);
3918: hr_utility.set_location('address_id is ' || l_address_id, 66);
3919: open c_upd_primary_address(l_session.altered_pa_request_id, l_address_id);
3920: fetch c_upd_primary_address into l_address_id;
3921: hr_utility.set_location('address_id is ' || l_address_id, 66);
3922:
3917: hr_utility.set_location('noa_id_correct is ' ||l_session.noa_id_correct ,66);
3918: hr_utility.set_location('address_id is ' || l_address_id, 66);
3919: open c_upd_primary_address(l_session.altered_pa_request_id, l_address_id);
3920: fetch c_upd_primary_address into l_address_id;
3921: hr_utility.set_location('address_id is ' || l_address_id, 66);
3922:
3923: IF c_upd_primary_address%NOTFOUND then
3924: IF nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE1,hr_api.g_varchar2) = nvl(l_address_line1 ,hr_api.g_varchar2) and
3925: nvl(p_pa_request_rec.FORWARDING_ADDRESS_LINE2 ,hr_api.g_varchar2)= nvl(l_address_line2 ,hr_api.g_varchar2) and
3928: nvl(p_pa_request_rec.FORWARDING_REGION_2 ,hr_api.g_varchar2) = nvl(l_region_2 ,hr_api.g_varchar2) and
3929: nvl(p_pa_request_rec.FORWARDING_POSTAL_CODE ,hr_api.g_varchar2) = nvl(l_postal_code ,hr_api.g_varchar2) and
3930: nvl(P_pa_request_rec.FORWARDING_COUNTRY ,hr_api.g_varchar2) = nvl(l_country ,hr_api.g_varchar2) THEN
3931: NULL;
3932: hr_utility.set_location('Correction -- No Action ' || l_proc,69);
3933: ELSE
3934: l_create_address := 'Y';
3935: hr_utility.set_location('Correction -- Create Address ' || l_proc,71);
3936: END IF;
3931: NULL;
3932: hr_utility.set_location('Correction -- No Action ' || l_proc,69);
3933: ELSE
3934: l_create_address := 'Y';
3935: hr_utility.set_location('Correction -- Create Address ' || l_proc,71);
3936: END IF;
3937: ELSE
3938: l_update_address := 'Y';
3939: hr_utility.set_location('Correction -- Update Address ' || l_proc,68);
3935: hr_utility.set_location('Correction -- Create Address ' || l_proc,71);
3936: END IF;
3937: ELSE
3938: l_update_address := 'Y';
3939: hr_utility.set_location('Correction -- Update Address ' || l_proc,68);
3940: END IF;
3941: close c_upd_primary_address;
3942: END IF;
3943: END IF;
3941: close c_upd_primary_address;
3942: END IF;
3943: END IF;
3944: ELSE
3945: hr_utility.set_location(l_proc,78);
3946: END IF;
3947: END IF;
3948:
3949:
3962: l_per_object_version_number := ovn.object_version_number;
3963: l_per_upd_employee_number := ovn.employee_number;
3964: End loop;
3965: If l_per_object_version_number is null then
3966: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
3967: hr_utility.raise_error;
3968: End if;
3969: End if;
3970: --
3963: l_per_upd_employee_number := ovn.employee_number;
3964: End loop;
3965: If l_per_object_version_number is null then
3966: hr_utility.set_message(8301,'GHR_38133_INVALID_PERSON');
3967: hr_utility.raise_error;
3968: End if;
3969: End if;
3970: --
3971: -- An Appointment Family can now only have 'APL's and hence only hire_applicants can be called.
3977: -- Hire Applicant
3978:
3979:
3980: If l_hr_applicant_api_hire = 'Y' and l_session.noa_id_correct is null then
3981: hr_utility.set_location(l_proc,75);
3982: hr_utility.set_location('Emp number is ' || l_per_hire_employee_number,1);
3983: begin
3984: savepoint hire_app;
3985: hr_applicant_api.hire_applicant
3978:
3979:
3980: If l_hr_applicant_api_hire = 'Y' and l_session.noa_id_correct is null then
3981: hr_utility.set_location(l_proc,75);
3982: hr_utility.set_location('Emp number is ' || l_per_hire_employee_number,1);
3983: begin
3984: savepoint hire_app;
3985: hr_applicant_api.hire_applicant
3986: (P_HIRE_DATE => g_effective_date
3997: Exception
3998: when others then
3999: if substr(sqlerrm(sqlcode),1,19) = 'ORA-20001: APP-7975' then
4000: rollback to hire_app;
4001: hr_utility.set_message(8301,'GHR_38555_HIRE_ON_ACC_DATE') ;
4002: hr_utility.raise_error;
4003: Else
4004: rollback to hire_app;
4005: raise;
3998: when others then
3999: if substr(sqlerrm(sqlcode),1,19) = 'ORA-20001: APP-7975' then
4000: rollback to hire_app;
4001: hr_utility.set_message(8301,'GHR_38555_HIRE_ON_ACC_DATE') ;
4002: hr_utility.raise_error;
4003: Else
4004: rollback to hire_app;
4005: raise;
4006: End if;
4009:
4010: l_assignment_id := p_pa_request_rec.employee_assignment_id;
4011:
4012: If l_rehire_ex_emp = 'Y' and l_session.noa_id_correct is null then
4013: hr_utility.set_location(l_proc,76);
4014: Begin
4015: savepoint rehire_ex;
4016: hr_employee_api.re_hire_ex_employee
4017: (p_hire_date => p_pa_request_rec.effective_date
4063: l_asg_payroll_id := ovn.payroll_id;
4064: -- added for duty_station change
4065: l_asg_location_id := ovn.location_id;
4066: End loop;
4067: hr_utility.set_location(l_proc,95);
4068: If l_asg_object_version_number is null then
4069: hr_utility.set_message(8301,'GHR_38135_INVALID_ASGN');
4070: hr_utility.raise_error;
4071: End if;
4065: l_asg_location_id := ovn.location_id;
4066: End loop;
4067: hr_utility.set_location(l_proc,95);
4068: If l_asg_object_version_number is null then
4069: hr_utility.set_message(8301,'GHR_38135_INVALID_ASGN');
4070: hr_utility.raise_error;
4071: End if;
4072:
4073: -- Bug 2082615
4066: End loop;
4067: hr_utility.set_location(l_proc,95);
4068: If l_asg_object_version_number is null then
4069: hr_utility.set_message(8301,'GHR_38135_INVALID_ASGN');
4070: hr_utility.raise_error;
4071: End if;
4072:
4073: -- Bug 2082615
4074: -- Store the old Asg Status Type in g_old_user_status for using in later stages
4076: for asg_stat_rec in c_user_status loop
4077: g_old_user_status := asg_stat_rec.user_status;
4078: l_old_system_status := asg_stat_rec.per_system_status;
4079: l_old_effective_start_date := asg_stat_rec.effective_start_date -1; --bug 2839332
4080: hr_utility.set_location('Old User status is '||g_old_user_status,96);
4081: hr_utility.set_location('Old system status '|| l_old_system_status,999);
4082: exit;
4083: end loop;
4084:
4077: g_old_user_status := asg_stat_rec.user_status;
4078: l_old_system_status := asg_stat_rec.per_system_status;
4079: l_old_effective_start_date := asg_stat_rec.effective_start_date -1; --bug 2839332
4080: hr_utility.set_location('Old User status is '||g_old_user_status,96);
4081: hr_utility.set_location('Old system status '|| l_old_system_status,999);
4082: exit;
4083: end loop;
4084:
4085: If l_old_system_status <> 'SUSP_ASSIGN' or
4100: exit;
4101: END IF;
4102: --- Bug 5923426 end
4103: end loop;
4104: hr_utility.set_location('Assignment status type id '|| l_asg_status_type_id,997);
4105: l_activate_flag := 'Y';
4106: -- Bug 2839332
4107: --Bug# 6010971
4108: IF nvl(P_pa_request_rec.to_grade_id,hr_api.g_number) <> nvl(l_grade_id,hr_api.g_number) then
4146: End if;
4147: End if;
4148:
4149: If l_payroll_id is null then
4150: hr_utility.set_message(8301,'GHR_38183_PAY_NOT_EXISTS');
4151: hr_utility.raise_error;
4152: End if;
4153:
4154: --Pradeep start of bug #4148743
4147: End if;
4148:
4149: If l_payroll_id is null then
4150: hr_utility.set_message(8301,'GHR_38183_PAY_NOT_EXISTS');
4151: hr_utility.raise_error;
4152: End if;
4153:
4154: --Pradeep start of bug #4148743
4155: If l_payroll_id <> l_asg_payroll_id THEN
4171: (p_id => p_pa_request_rec.employee_assignment_id,
4172: p_effective_date => p_pa_request_rec.effective_date,
4173: p_table_name => 'PER_ASSIGNMENTS_F'
4174: );
4175: hr_utility.set_location(l_proc,90);
4176: hr_utility.set_location('Asg id ' || to_char(l_assignment_id),3);
4177: hr_utility.set_location('pay id ' || to_char(l_payroll_id),4);
4178: hr_utility.set_location('l_update_gre is '||l_update_gre,91);
4179:
4172: p_effective_date => p_pa_request_rec.effective_date,
4173: p_table_name => 'PER_ASSIGNMENTS_F'
4174: );
4175: hr_utility.set_location(l_proc,90);
4176: hr_utility.set_location('Asg id ' || to_char(l_assignment_id),3);
4177: hr_utility.set_location('pay id ' || to_char(l_payroll_id),4);
4178: hr_utility.set_location('l_update_gre is '||l_update_gre,91);
4179:
4180: If l_update_gre = 'Y' then
4173: p_table_name => 'PER_ASSIGNMENTS_F'
4174: );
4175: hr_utility.set_location(l_proc,90);
4176: hr_utility.set_location('Asg id ' || to_char(l_assignment_id),3);
4177: hr_utility.set_location('pay id ' || to_char(l_payroll_id),4);
4178: hr_utility.set_location('l_update_gre is '||l_update_gre,91);
4179:
4180: If l_update_gre = 'Y' then
4181: -- get the GRE . Passed into the foll. api as the p_tax_unit
4174: );
4175: hr_utility.set_location(l_proc,90);
4176: hr_utility.set_location('Asg id ' || to_char(l_assignment_id),3);
4177: hr_utility.set_location('pay id ' || to_char(l_payroll_id),4);
4178: hr_utility.set_location('l_update_gre is '||l_update_gre,91);
4179:
4180: If l_update_gre = 'Y' then
4181: -- get the GRE . Passed into the foll. api as the p_tax_unit
4182: for tax_unit in c_tax_unit_org loop
4187: l_tax_unit_id := tax_unit.tax_unit_id;
4188: end loop;
4189: End if;
4190:
4191: hr_utility.set_location(l_proc,92);
4192: begin
4193: savepoint update_emp_asg;
4194: hr_assignment_api.update_us_emp_asg
4195: (p_assignment_id => p_pa_request_rec.employee_assignment_id,
4211: rollback to update_emp_asg;
4212: raise;
4213: End;
4214: End if;
4215: hr_utility.set_location('After update_us_emp_asg '||l_proc,93);
4216: If l_employee_api_update_criteria = 'Y' then
4217: hr_utility.set_location('Before update_emp_asg_criteria ',94);
4218: hr_utility.set_location('checking how correction updates the record',500);
4219: hr_utility.set_location('the to position id passed',500);
4213: End;
4214: End if;
4215: hr_utility.set_location('After update_us_emp_asg '||l_proc,93);
4216: If l_employee_api_update_criteria = 'Y' then
4217: hr_utility.set_location('Before update_emp_asg_criteria ',94);
4218: hr_utility.set_location('checking how correction updates the record',500);
4219: hr_utility.set_location('the to position id passed',500);
4220: hr_assignment_api.update_emp_asg_criteria
4221: (p_effective_date => g_effective_date
4214: End if;
4215: hr_utility.set_location('After update_us_emp_asg '||l_proc,93);
4216: If l_employee_api_update_criteria = 'Y' then
4217: hr_utility.set_location('Before update_emp_asg_criteria ',94);
4218: hr_utility.set_location('checking how correction updates the record',500);
4219: hr_utility.set_location('the to position id passed',500);
4220: hr_assignment_api.update_emp_asg_criteria
4221: (p_effective_date => g_effective_date
4222: ,p_datetrack_update_mode => l_update_mode
4215: hr_utility.set_location('After update_us_emp_asg '||l_proc,93);
4216: If l_employee_api_update_criteria = 'Y' then
4217: hr_utility.set_location('Before update_emp_asg_criteria ',94);
4218: hr_utility.set_location('checking how correction updates the record',500);
4219: hr_utility.set_location('the to position id passed',500);
4220: hr_assignment_api.update_emp_asg_criteria
4221: (p_effective_date => g_effective_date
4222: ,p_datetrack_update_mode => l_update_mode
4223: ,p_assignment_id => l_assignment_id
4241: );
4242: End if;
4243: End if;
4244: --
4245: hr_utility.set_location('After update_emp_asg_criteria '||l_proc,95);
4246: If l_activate_flag = 'Y' and l_session.noa_id_correct is null then
4247: hr_utility.set_location(l_proc,120);
4248: l_update_mode := return_update_mode
4249: (p_id => p_pa_request_rec.employee_assignment_id,
4243: End if;
4244: --
4245: hr_utility.set_location('After update_emp_asg_criteria '||l_proc,95);
4246: If l_activate_flag = 'Y' and l_session.noa_id_correct is null then
4247: hr_utility.set_location(l_proc,120);
4248: l_update_mode := return_update_mode
4249: (p_id => p_pa_request_rec.employee_assignment_id,
4250: p_effective_date => p_pa_request_rec.effective_date,
4251: p_table_name => 'PER_ASSIGNMENTS_F'
4267: rollback to activate;
4268: raise;
4269: end;
4270: Elsif l_suspend_flag = 'Y' and l_session.noa_id_correct is null then -- is a suspension and not a correction
4271: hr_utility.set_location(l_proc,125);
4272: l_update_mode := return_update_mode
4273: (p_id => p_pa_request_rec.employee_assignment_id,
4274: p_effective_date => p_pa_request_rec.effective_date,
4275: p_table_name => 'PER_ASSIGNMENTS_F'
4292: End;
4293: -- elsif l_terminate_asg_flag = 'Y' then
4294: Elsif l_terminate_flag = 'Y' then
4295:
4296: hr_utility.set_location(l_proc,130);
4297: hr_utility.set_location('NOA ID CORRECT : ' || l_session.noa_id_correct,1);
4298: If l_session.noa_id_correct is null then
4299: hr_utility.set_location(l_proc,132);
4300: l_emp_trm_eff_end_date := null;
4293: -- elsif l_terminate_asg_flag = 'Y' then
4294: Elsif l_terminate_flag = 'Y' then
4295:
4296: hr_utility.set_location(l_proc,130);
4297: hr_utility.set_location('NOA ID CORRECT : ' || l_session.noa_id_correct,1);
4298: If l_session.noa_id_correct is null then
4299: hr_utility.set_location(l_proc,132);
4300: l_emp_trm_eff_end_date := null;
4301:
4295:
4296: hr_utility.set_location(l_proc,130);
4297: hr_utility.set_location('NOA ID CORRECT : ' || l_session.noa_id_correct,1);
4298: If l_session.noa_id_correct is null then
4299: hr_utility.set_location(l_proc,132);
4300: l_emp_trm_eff_end_date := null;
4301:
4302: for pds in c_pds loop
4303: l_period_of_service_id := pds.period_of_service_id;
4407:
4408:
4409: -- Name change -- The same should cope up with both normal and correction actions
4410: If l_update_person = 'Y' then
4411: hr_utility.set_location(l_proc,138);
4412: l_update_mode := return_update_mode
4413: (p_id => p_pa_request_rec.person_id,
4414: p_effective_date => p_pa_request_rec.effective_date,
4415: p_table_name => 'PER_PEOPLE_F'
4439: --
4440:
4441: -- Address creation
4442: l_hr_user_type := fnd_profile.value('HR_USER_TYPE');
4443: hr_utility.set_location('in address'||l_hr_user_type,1000);
4444: IF l_hr_user_type = 'INT' THEN
4445: hr_utility.set_location('in per addresses',1000);
4446: If l_create_address = 'Y' or l_update_address = 'Y' then
4447: hr_utility.set_location('in upd addresses',1000);
4441: -- Address creation
4442: l_hr_user_type := fnd_profile.value('HR_USER_TYPE');
4443: hr_utility.set_location('in address'||l_hr_user_type,1000);
4444: IF l_hr_user_type = 'INT' THEN
4445: hr_utility.set_location('in per addresses',1000);
4446: If l_create_address = 'Y' or l_update_address = 'Y' then
4447: hr_utility.set_location('in upd addresses',1000);
4448: for county in county_name loop
4449: l_county_name := county.county_name;
4443: hr_utility.set_location('in address'||l_hr_user_type,1000);
4444: IF l_hr_user_type = 'INT' THEN
4445: hr_utility.set_location('in per addresses',1000);
4446: If l_create_address = 'Y' or l_update_address = 'Y' then
4447: hr_utility.set_location('in upd addresses',1000);
4448: for county in county_name loop
4449: l_county_name := county.county_name;
4450: end loop;
4451: If l_create_address = 'Y' then
4452: -- 6919898 End dating the primary and secondary address
4453: -- only if exists If primary address does not exists just creating the new primary address
4454: -- to a person
4455: If l_address_id is not null then
4456: hr_utility.set_location(l_proc,145);
4457: --- End dating all the secondary addresses for existing primary address
4458: for sec_address in c_sec_address loop
4459:
4460: hr_person_address_api.update_us_person_address
4463: ,p_address_id => sec_address.address_id
4464: ,p_object_version_number => sec_address.object_version_number
4465: );
4466: end loop;
4467: hr_utility.set_location('l_address_id'||l_address_id,1000);
4468: -- End dating the existing primary address
4469: hr_person_address_api.update_us_person_address
4470: (p_effective_date => g_effective_date
4471: ,p_date_to => g_effective_date
4514:
4515: --Update address -- In case of a correction, may be updating some entry in the address
4516:
4517: If l_update_address = 'Y' then
4518: hr_utility.set_location(l_proc,150);
4519: hr_person_address_api.update_us_person_address
4520: (p_address_id => l_address_id
4521: ,p_object_version_number => l_add_object_version_number
4522: ,p_effective_date => g_effective_date
4540: -- 6919898 End dating the primary and secondary address
4541: -- only if exists If primary address does not exists just creating the new primary address
4542: -- to a person
4543: If l_address_id is not null then
4544: hr_utility.set_location(l_proc,145);
4545: --- End dating all the secondary addresses for existing primary address
4546: for sec_address in c_sec_address loop
4547: hr_person_address_api.update_person_address
4548: (p_effective_date => g_effective_date
4602:
4603: --Update address -- In case of a correction, may be updating some entry in the address
4604:
4605: If l_update_address = 'Y' then
4606: hr_utility.set_location(l_proc,150);
4607: hr_person_address_api.update_person_address
4608: (p_address_id => l_address_id
4609: ,p_object_version_number => l_add_object_version_number
4610: ,p_effective_date => g_effective_date
4635: l_per_last_name := per.last_name;
4636: l_per_middle_names := per.middle_names;
4637: l_per_date_of_birth := per.date_of_birth;
4638: end loop;
4639: hr_utility.set_location(l_proc,138);
4640:
4641: if nvl(p_pa_request_rec.employee_national_identifier,hr_api.g_varchar2) <> nvl(l_per_national_identifier,hr_api.g_varchar2) or
4642: nvl(p_pa_request_rec.employee_date_of_birth,hr_api.g_date) <> nvl(l_per_date_of_birth,hr_api.g_date) or
4643: nvl(p_pa_request_rec.employee_last_name,hr_api.g_varchar2) <> nvl(l_per_last_name,hr_api.g_varchar2) or
4695: -- This update is irrespective of family and is based on to_position being not null
4696: -- and the To Position process method
4697: -- Bug 2462929 For change in DS we must consider DS process method, if APUE/UE update Position.
4698: ----
4699: hr_utility.set_location('Update Positions Location ' || l_proc,151);
4700: IF p_pa_request_rec.to_position_id IS NOT NULL THEN
4701:
4702: l_form_field_name := 'TO_POSITION_TITLE';
4703: FOR pm_rec in get_to_posn_title_pm LOOP
4708: FOR pm_rec in get_to_posn_title_pm LOOP
4709: l_DS_pm := pm_rec.process_method_code;
4710: END Loop;
4711:
4712: hr_utility.set_location('To Posn PM ' || l_posn_title_pm ,151);
4713: IF l_posn_title_pm = 'UE' OR
4714: (l_posn_title_pm = 'APUE' AND
4715: 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
4716: l_DS_pm in ('APUE','UE') OR
4722: END IF;
4723: END IF;
4724: ----
4725:
4726: hr_utility.set_location('Leaving ' || l_proc,155);
4727: Exception when others then
4728: --
4729: -- Reset IN OUT parameters and set OUT parameters
4730: --
5025: Begin
5026:
5027:
5028: --
5029: hr_utility.set_location('Entering ' ||l_proc,5);
5030: -- Remember IN OUT parameter IN values
5031: --
5032: l_wgi := p_wgi;
5033: l_retention_allow_review := p_retention_allow_review;
5048: --
5049: ----**********************************************************************
5050: -- CHECK # :- Existence of PAYROLL Product
5051: ----**********************************************************************
5052: IF (hr_utility.chk_product_install('GHR','US') = TRUE
5053: and hr_utility.chk_product_install('PAY', 'US') = TRUE
5054: and fnd_profile.value('HR_USER_TYPE')='INT')
5055: THEN
5056: l_pay_intg:=TRUE;
5049: ----**********************************************************************
5050: -- CHECK # :- Existence of PAYROLL Product
5051: ----**********************************************************************
5052: IF (hr_utility.chk_product_install('GHR','US') = TRUE
5053: and hr_utility.chk_product_install('PAY', 'US') = TRUE
5054: and fnd_profile.value('HR_USER_TYPE')='INT')
5055: THEN
5056: l_pay_intg:=TRUE;
5057: ELSE
5079:
5080: FOR cur_ex_emp_rec IN cur_ex_emp (p_pa_request_rec.person_id, l_effective_date)
5081: LOOP
5082: l_ex_emp := TRUE;
5083: hr_utility.set_location('Person is an Ex employee for the given date ' ||l_proc,5);
5084: END LOOP;
5085:
5086: hr_utility.set_location(to_char(l_effective_date),1);
5087: -- Processing Basic pay
5082: l_ex_emp := TRUE;
5083: hr_utility.set_location('Person is an Ex employee for the given date ' ||l_proc,5);
5084: END LOOP;
5085:
5086: hr_utility.set_location(to_char(l_effective_date),1);
5087: -- Processing Basic pay
5088: --
5089: hr_utility.set_location('Entering ' ||l_proc,5);
5090:
5085:
5086: hr_utility.set_location(to_char(l_effective_date),1);
5087: -- Processing Basic pay
5088: --
5089: hr_utility.set_location('Entering ' ||l_proc,5);
5090:
5091: -- pick business group id
5092: For BG_rec in Cur_BG(p_pa_request_rec.employee_assignment_id,
5093: l_effective_date)
5096: End Loop;
5097: --
5098: -- When to_basic_pay is not null
5099: If p_pa_request_rec.to_basic_pay is not null then
5100: hr_utility.set_location(l_proc || to_char(p_pa_request_rec.effective_date),10);
5101: --
5102: -- Code added for Payroll Integration
5103: --
5104: IF l_pay_intg
5122: p_business_group_id => l_bg_id,
5123: p_effective_date => l_effective_date,
5124: p_pay_basis => NVL(l_pay_basis,'PA'));
5125:
5126: hr_utility.trace('The New Element Name is :'||l_new_element_name);
5127:
5128: --
5129: -- Update the Assignment id with the Salary Basis Obtained in above step
5130: -- If not for this step Salary Admin form wont pick the Basic Sal Value
5128: --
5129: -- Update the Assignment id with the Salary Basis Obtained in above step
5130: -- If not for this step Salary Admin form wont pick the Basic Sal Value
5131: --
5132: hr_utility.trace('NOA FAMILY CODE :'||p_pa_request_rec.noa_family_code);
5133: -- Check# 1
5134: IF (p_pa_request_rec.first_noa_cancel_or_correct ='CORRECT') THEN
5135:
5136: -- Check# 2
5146: l_pay_proposal_id := proposal_rec.proposal_id;
5147: l_sal_admin_ovn := proposal_rec.ovn;
5148: End Loop;
5149:
5150: hr_utility.trace('Before call to Delete Salary Proposal :'||l_dt_mode);
5151: -- if p_pa_request_rec.noa_family_code in ('APP','CONV_APP') then
5152: -- Check# 3
5153: IF (l_pay_proposal_id is not null ) THEN
5154:
5171: -- Picking the Salary Basis based on the to_pay_basis during RPA
5172: For Sal_Basis_Name in Cur_Sal_Basis_name(l_bg_id,l_new_element_name)
5173: Loop
5174: l_sal_basis_id := Sal_Basis_Name.pay_basis_id;
5175: hr_utility.trace('The sal basis id is :'||to_char(l_sal_basis_id));
5176: End Loop;
5177: --
5178: --
5179: l_dt_mode := return_update_mode
5181: p_effective_date => l_effective_date,
5182: p_table_name => 'PER_ASSIGNMENTS_F'
5183: );
5184:
5185: hr_utility.trace('l_dt_mode is :'||l_dt_mode);
5186:
5187: -- collecting details for salary basis updation
5188: For SB_upd in Cur_asg_det_for_SB_upd(p_pa_request_rec.employee_assignment_id,
5189: l_effective_Date)
5199:
5200: --
5201: -- Update the Assignment id with the Salary Basis Obtained in above step
5202: -- If not for this step Salary Admin form wont pick the Basic Sal Value
5203: hr_utility.trace('assignment id is :'||p_pa_request_rec.employee_assignment_id);
5204: hr_utility.trace('EFF DATE :'||l_effective_date);
5205: hr_utility.trace('l_sb_ovn:'||l_SB_ovn);
5206: hr_utility.trace('l_payroll_id:'||l_payroll_id);
5207: hr_utility.trace('l_sal_basis_id:'||l_sal_basis_id);
5200: --
5201: -- Update the Assignment id with the Salary Basis Obtained in above step
5202: -- If not for this step Salary Admin form wont pick the Basic Sal Value
5203: hr_utility.trace('assignment id is :'||p_pa_request_rec.employee_assignment_id);
5204: hr_utility.trace('EFF DATE :'||l_effective_date);
5205: hr_utility.trace('l_sb_ovn:'||l_SB_ovn);
5206: hr_utility.trace('l_payroll_id:'||l_payroll_id);
5207: hr_utility.trace('l_sal_basis_id:'||l_sal_basis_id);
5208:
5201: -- Update the Assignment id with the Salary Basis Obtained in above step
5202: -- If not for this step Salary Admin form wont pick the Basic Sal Value
5203: hr_utility.trace('assignment id is :'||p_pa_request_rec.employee_assignment_id);
5204: hr_utility.trace('EFF DATE :'||l_effective_date);
5205: hr_utility.trace('l_sb_ovn:'||l_SB_ovn);
5206: hr_utility.trace('l_payroll_id:'||l_payroll_id);
5207: hr_utility.trace('l_sal_basis_id:'||l_sal_basis_id);
5208:
5209: hr_assignment_api.update_emp_asg_criteria
5202: -- If not for this step Salary Admin form wont pick the Basic Sal Value
5203: hr_utility.trace('assignment id is :'||p_pa_request_rec.employee_assignment_id);
5204: hr_utility.trace('EFF DATE :'||l_effective_date);
5205: hr_utility.trace('l_sb_ovn:'||l_SB_ovn);
5206: hr_utility.trace('l_payroll_id:'||l_payroll_id);
5207: hr_utility.trace('l_sal_basis_id:'||l_sal_basis_id);
5208:
5209: hr_assignment_api.update_emp_asg_criteria
5210: (p_effective_date => l_effective_date
5203: hr_utility.trace('assignment id is :'||p_pa_request_rec.employee_assignment_id);
5204: hr_utility.trace('EFF DATE :'||l_effective_date);
5205: hr_utility.trace('l_sb_ovn:'||l_SB_ovn);
5206: hr_utility.trace('l_payroll_id:'||l_payroll_id);
5207: hr_utility.trace('l_sal_basis_id:'||l_sal_basis_id);
5208:
5209: hr_assignment_api.update_emp_asg_criteria
5210: (p_effective_date => l_effective_date
5211: ,p_datetrack_update_mode => l_dt_mode
5229: ,p_entries_changed_warning => l_entries_chan_warn
5230: ,p_tax_district_changed_warning => l_tax_dist_chan_warn
5231: );
5232: --
5233: hr_utility.trace('After Update Person record under gh52doup.pkb');
5234: --
5235:
5236: -- Blocking the call to use Core call for salary admin creation
5237: For Proposal_rec IN Cur_proposal_exists
5259: ,p_multiple_error_flag => ll_multiple_error_flag
5260: );
5261: end if;
5262:
5263: hr_utility.trace('employee Asg id before proposal ..:'||
5264: to_char(p_pa_request_rec.employee_assignment_id));
5265: hr_utility.trace('Element entry id before proposal ..:'||to_char(ll_element_entry_id));
5266: hr_utility.trace('Business grp id before proposal ..:'||to_char(l_bg_id));
5267:
5261: end if;
5262:
5263: hr_utility.trace('employee Asg id before proposal ..:'||
5264: to_char(p_pa_request_rec.employee_assignment_id));
5265: hr_utility.trace('Element entry id before proposal ..:'||to_char(ll_element_entry_id));
5266: hr_utility.trace('Business grp id before proposal ..:'||to_char(l_bg_id));
5267:
5268: IF l_pay_proposal_id is null then
5269: if (nvl(p_pa_request_rec.from_basic_pay, 0) <> nvl(p_pa_request_rec.to_basic_pay,0)) then
5262:
5263: hr_utility.trace('employee Asg id before proposal ..:'||
5264: to_char(p_pa_request_rec.employee_assignment_id));
5265: hr_utility.trace('Element entry id before proposal ..:'||to_char(ll_element_entry_id));
5266: hr_utility.trace('Business grp id before proposal ..:'||to_char(l_bg_id));
5267:
5268: IF l_pay_proposal_id is null then
5269: if (nvl(p_pa_request_rec.from_basic_pay, 0) <> nvl(p_pa_request_rec.to_basic_pay,0)) then
5270: hr_maintain_proposal_api.insert_salary_proposal
5333: --
5334:
5335: /* To be included after Martin Reid's element api handles the create and update warning
5336: if l_adj_basic_pay_warn = FALSE then
5337: hr_utility.set_message(8301,'GHR_38136_FAIL_TO_UPD_SALARY');
5338: hr_utility.raise_error;
5339: end if;
5340: */
5341: end if;
5334:
5335: /* To be included after Martin Reid's element api handles the create and update warning
5336: if l_adj_basic_pay_warn = FALSE then
5337: hr_utility.set_message(8301,'GHR_38136_FAIL_TO_UPD_SALARY');
5338: hr_utility.raise_error;
5339: end if;
5340: */
5341: end if;
5342: --
5343: --
5344: -- Processing Adjusted basic pay
5345: --
5346: If p_pa_request_rec.to_adj_basic_pay is not null then
5347: hr_utility.set_location(l_proc,20);
5348:
5349: ghr_element_api.process_sf52_element
5350: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5351: ,p_element_name => 'Adjusted Basic Pay'
5357: --
5358: --
5359:
5360: /*if l_adj_basic_pay_warn = FALSE then
5361: hr_utility.set_message(8301,'GHR_38137_FL_TO_UPD_ADJ_BS_PY');
5362: hr_utility.raise_error;
5363: end if;
5364: */
5365: end if;
5358: --
5359:
5360: /*if l_adj_basic_pay_warn = FALSE then
5361: hr_utility.set_message(8301,'GHR_38137_FL_TO_UPD_ADJ_BS_PY');
5362: hr_utility.raise_error;
5363: end if;
5364: */
5365: end if;
5366: --
5370: -- Processing Unadjusted Basic Pay
5371: --
5372: If p_pa_request_rec.to_adj_basic_pay is not null then
5373: if ghr_pay_calc.g_gm_unadjd_basic_pay is not null and ghr_pay_calc.g_gm_unadjd_basic_pay <> 0 then
5374: hr_utility.set_location(l_proc,21);
5375:
5376: ghr_element_api.process_sf52_element
5377: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5378: ,p_element_name => 'Unadjusted Basic Pay'
5390: --
5391: -- Processing Locality adjustment
5392: --
5393: If p_pa_request_rec.to_locality_adj is not null then
5394: hr_utility.set_location(l_proc,30);
5395: -- FWFA Changes Bug#4444609: Modify 'Locality Pay' to 'Locality Pay or SR Supplement'
5396: ghr_element_api.process_sf52_element
5397: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5398: ,p_element_name => 'Locality Pay or SR Supplement'
5407:
5408: --
5409:
5410: /*if l_locality_adj_warn = FALSE then
5411: hr_utility.set_message(8301,'GHR_38138_FAIL_TO_UPD_LOC_ADJ');
5412: hr_utility.raise_error;
5413: end if;
5414: */
5415: --end if;
5408: --
5409:
5410: /*if l_locality_adj_warn = FALSE then
5411: hr_utility.set_message(8301,'GHR_38138_FAIL_TO_UPD_LOC_ADJ');
5412: hr_utility.raise_error;
5413: end if;
5414: */
5415: --end if;
5416: --
5424: IF p_pa_request_rec.first_noa_code IN ('815','816','825','827') OR
5425: p_pa_request_rec.second_noa_code IN ('815','816','825','827') THEN
5426: NULL;
5427: ELSE
5428: hr_utility.set_location(l_proc,45);
5429: ghr_element_api.process_sf52_element
5430: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5431: ,p_element_name => 'Total Pay'
5432: ,p_input_value_name1 => 'Amount'
5436: );
5437: END IF;
5438: --
5439: /* if l_total_salary_warn = FALSE then
5440: hr_utility.set_message(8301,'GHR_38139_FAIL_TO_UPD_TOT_SAL');
5441: hr_utility.raise_error;
5442: end if;
5443: */
5444: end if;
5437: END IF;
5438: --
5439: /* if l_total_salary_warn = FALSE then
5440: hr_utility.set_message(8301,'GHR_38139_FAIL_TO_UPD_TOT_SAL');
5441: hr_utility.raise_error;
5442: end if;
5443: */
5444: end if;
5445: --
5456: nvl(p_pa_request_rec.to_retention_allowance , 0) +
5457: nvl(p_pa_request_rec.to_supervisory_differential, 0) +
5458: nvl(p_pa_request_rec.to_staffing_differential , 0);
5459: END IF;
5460: hr_utility.set_location(l_proc,55);
5461: ghr_element_api.process_sf52_element
5462: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5463: ,p_element_name => 'Other Pay'
5464: ,p_input_value_name1 => 'Amount'
5470: );
5471: Else --if p_pa_request_rec.other_pay_amount is null
5472: -- According to John, any other pay and its sub elements can be nullified only by processing an 'OTHER_PAY' action
5473: If p_pa_request_rec.noa_family_code = 'OTHER_PAY' then
5474: hr_utility.set_location(l_proc,32);
5475:
5476: l_new_element_name := pqp_fedhr_uspay_int_utils.return_new_element_name(
5477: p_fedhr_element_name => 'Other Pay',
5478: p_business_group_id => l_bg_id,
5505: -- Processing AUO
5506:
5507: If p_pa_request_rec.to_auo_premium_pay_indicator is not null or
5508: p_pa_request_rec.to_au_overtime is not null then
5509: hr_utility.set_location(l_proc,60);
5510: ghr_element_api.process_sf52_element
5511: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5512: ,p_element_name => 'AUO'
5513: ,p_input_value_name1 => 'Premium Pay Ind'
5530: );
5531: Else --if p_pa_request_rec.auo is null
5532:
5533: If p_pa_request_rec.first_noa_code = '818' then
5534: hr_utility.set_location(l_proc,32);
5535: l_element_entry_id := NULL;
5536:
5537: l_new_element_name :=
5538: pqp_fedhr_uspay_int_utils.return_new_element_name(
5582: -- Can change only when the seed data changes.
5583:
5584: If p_pa_request_rec.to_ap_premium_pay_indicator is not null or
5585: p_pa_request_rec.to_availability_pay is not null then
5586: hr_utility.set_location(l_proc,65);
5587: ghr_element_api.process_sf52_element
5588: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5589: ,p_element_name => 'Availability Pay'
5590: ,p_input_value_name1 => 'Premium Pay Ind'
5606: ,p_process_warning => l_adj_basic_pay_warn
5607: );
5608: Else --if p_pa_request_rec.avaiability_pay is null
5609: If p_pa_request_rec.first_noa_code = '819' then
5610: hr_utility.set_location(l_proc,32);
5611: l_element_entry_id := NULL;
5612:
5613: l_new_element_name :=
5614: pqp_fedhr_uspay_int_utils.return_new_element_name(
5626:
5627: l_element_entry_id := ele_entry.element_entry_id;
5628: End loop;
5629: if l_element_entry_id is not null then
5630: hr_utility.set_location(l_proc,33);
5631: ghr_element_api.process_sf52_element
5632: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5633: ,p_element_name => 'Availability Pay'
5634: ,p_input_value_name1 => 'Premium Pay Ind'
5659: -- Modifying the input value name from Percent to Percentage
5660: -- this change is done only for Supervisory diff and Retention Allowance
5661: --
5662:
5663: hr_utility.trace('Element Name (new) is :'||l_new_element_name);
5664: hr_utility.trace('Supv Diff Amt process_sf52 :'||p_pa_request_rec.to_supervisory_differential);
5665: hr_utility.trace('Supv Diff % Process_sf52 :'||p_pa_request_rec.to_supervisory_diff_percentage);
5666:
5667: If p_pa_request_rec.to_supervisory_differential is not null or
5660: -- this change is done only for Supervisory diff and Retention Allowance
5661: --
5662:
5663: hr_utility.trace('Element Name (new) is :'||l_new_element_name);
5664: hr_utility.trace('Supv Diff Amt process_sf52 :'||p_pa_request_rec.to_supervisory_differential);
5665: hr_utility.trace('Supv Diff % Process_sf52 :'||p_pa_request_rec.to_supervisory_diff_percentage);
5666:
5667: If p_pa_request_rec.to_supervisory_differential is not null or
5668: p_pa_request_rec.to_supervisory_diff_percentage is not null then
5661: --
5662:
5663: hr_utility.trace('Element Name (new) is :'||l_new_element_name);
5664: hr_utility.trace('Supv Diff Amt process_sf52 :'||p_pa_request_rec.to_supervisory_differential);
5665: hr_utility.trace('Supv Diff % Process_sf52 :'||p_pa_request_rec.to_supervisory_diff_percentage);
5666:
5667: If p_pa_request_rec.to_supervisory_differential is not null or
5668: p_pa_request_rec.to_supervisory_diff_percentage is not null then
5669: hr_utility.set_location(l_proc,70);
5665: hr_utility.trace('Supv Diff % Process_sf52 :'||p_pa_request_rec.to_supervisory_diff_percentage);
5666:
5667: If p_pa_request_rec.to_supervisory_differential is not null or
5668: p_pa_request_rec.to_supervisory_diff_percentage is not null then
5669: hr_utility.set_location(l_proc,70);
5670: ghr_element_api.process_sf52_element
5671: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5672: ,p_element_name => 'Supervisory Differential'
5673: ,p_input_value_name1 => 'Amount'
5679: );
5680:
5681: Else --if p_pa_request_rec.superv. diff is null
5682: If p_pa_request_rec.noa_family_code = 'OTHER_PAY' then
5683: hr_utility.set_location(l_proc,32);
5684: l_element_entry_id := NULL;
5685: l_new_element_name :=
5686: pqp_fedhr_uspay_int_utils.return_new_element_name(
5687: p_fedhr_element_name => 'Supervisory Differential',
5723:
5724: If p_pa_request_rec.to_staffing_differential is not null or
5725: p_pa_request_rec.to_staffing_diff_percentage is not null then
5726:
5727: hr_utility.set_location(l_proc,75);
5728: ghr_element_api.process_sf52_element
5729: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5730: ,p_element_name => 'Staffing Differential'
5731: ,p_input_value_name1 => 'Amount'
5736: ,p_process_warning => l_adj_basic_pay_warn
5737: );
5738: Else --if p_pa_request_rec.staff. diff is null
5739: If p_pa_request_rec.noa_family_code = 'OTHER_PAY' then
5740: hr_utility.set_location(l_proc,32);
5741: l_element_entry_id := NULL;
5742: l_new_element_name :=
5743: pqp_fedhr_uspay_int_utils.return_new_element_name(
5744: p_fedhr_element_name => 'Staffing Differential',
5776: -- Code added/ Modified for Payroll Integration
5777: -- Modifying the input value name from Percent to Percentage
5778: -- this change is done only for Supervisory diff and Retention Allowance
5779: --
5780: hr_utility.trace('Element Name (new) is :'||l_new_element_name);
5781: hr_utility.trace('Ret Allw Amt process_sf52 :'||p_pa_request_rec.to_retention_allowance);
5782: hr_utility.trace('Ret Allw % Process_sf52 :'||p_pa_request_rec.to_retention_allow_percentage);
5783:
5784:
5777: -- Modifying the input value name from Percent to Percentage
5778: -- this change is done only for Supervisory diff and Retention Allowance
5779: --
5780: hr_utility.trace('Element Name (new) is :'||l_new_element_name);
5781: hr_utility.trace('Ret Allw Amt process_sf52 :'||p_pa_request_rec.to_retention_allowance);
5782: hr_utility.trace('Ret Allw % Process_sf52 :'||p_pa_request_rec.to_retention_allow_percentage);
5783:
5784:
5785: --Pradeep start of Bug 3306515 - Ret All % Pay Cap.
5778: -- this change is done only for Supervisory diff and Retention Allowance
5779: --
5780: hr_utility.trace('Element Name (new) is :'||l_new_element_name);
5781: hr_utility.trace('Ret Allw Amt process_sf52 :'||p_pa_request_rec.to_retention_allowance);
5782: hr_utility.trace('Ret Allw % Process_sf52 :'||p_pa_request_rec.to_retention_allow_percentage);
5783:
5784:
5785: --Pradeep start of Bug 3306515 - Ret All % Pay Cap.
5786: --Get the Retention Allowance and calculate % based on the Percentage.
5783:
5784:
5785: --Pradeep start of Bug 3306515 - Ret All % Pay Cap.
5786: --Get the Retention Allowance and calculate % based on the Percentage.
5787: hr_utility.trace('Pradeep p_pa_request_rec.noa_family_code:'||p_pa_request_rec.noa_family_code);
5788:
5789: IF p_pa_request_rec.to_retention_allow_percentage is null
5790: AND p_pa_request_rec.to_retention_allowance is not null THEN
5791:
5792: -- Bug 4689374
5793: IF p_pa_request_rec.pay_rate_determinant IN ('3','4','J','K','U','V') AND
5794: p_pa_request_rec.effective_date >= to_date('01/05/2005','dd/mm/yyyy') THEN
5795: l_retention_allow_percentage := NULL;
5796: hr_utility.trace('Inside fwfa');
5797: ELSE
5798: IF ( p_pa_request_rec.noa_family_code like 'GHR_SAL%'
5799: OR p_pa_request_rec.noa_family_code ='OTHER_PAY' )
5800: THEN
5798: IF ( p_pa_request_rec.noa_family_code like 'GHR_SAL%'
5799: OR p_pa_request_rec.noa_family_code ='OTHER_PAY' )
5800: THEN
5801:
5802: hr_utility.trace('Pradeep l_session.noa_id_correct:'||l_session.noa_id_correct);
5803: IF l_session.noa_id_correct is null THEN
5804:
5805: ghr_api.retrieve_element_entry_value (p_element_name => 'Retention Allowance'
5806: ,p_input_value_name => 'Amount'
5813: trunc((l_retention_allowance/p_pa_request_rec.from_basic_pay)*100,2);
5814: ELSE
5815:
5816: --Get the To side Retention Allowance for corrections.
5817: hr_utility.trace('Pradeep Correction RA Amount:'||p_pa_request_rec.to_retention_allowance);
5818: l_retention_allow_percentage :=
5819: trunc((p_pa_request_rec.to_retention_allowance/p_pa_request_rec.to_basic_pay)*100,2);
5820: END IF; -- IF l_session.noa_id_corr
5821: END IF;-- IF ( p_pa_request_rec.noa_f
5832: p_retention_allow_review.review_date:=NULL;
5833: END IF;
5834: -- Bug 2627003
5835:
5836: hr_utility.set_location(l_proc,80);
5837: ghr_element_api.process_sf52_element
5838: (p_assignment_id => p_pa_request_rec.employee_assignment_id
5839: ,p_element_name => 'Retention Allowance'
5840: ,p_input_value_name1 => 'Amount'
5849: ,p_process_warning => l_adj_basic_pay_warn
5850: );
5851: Else --if p_pa_request_rec.ret. allowance is null
5852: If p_pa_request_rec.noa_family_code = 'OTHER_PAY' then
5853: hr_utility.set_location(l_proc,32);
5854: l_element_entry_id := NULL;
5855:
5856: l_new_element_name :=
5857: pqp_fedhr_uspay_int_utils.return_new_element_name(
5909: END LOOP; */
5910:
5911: l_wgi_due_date := fnd_date.canonical_to_date(p_wgi.p_date_wgi_due);
5912:
5913: hr_utility.set_location('WGI Due date ' || l_wgi_due_date,150);
5914: hr_utility.set_location('p_pa_request_rec.noa_family_code ' || p_pa_request_rec.noa_family_code,150);
5915: -- GPPA 46 Update. l_to_pay_plan is not getting initialized. So, added the
5916: -- following code to initialize the l_to_pay_plan value.
5917:
5910:
5911: l_wgi_due_date := fnd_date.canonical_to_date(p_wgi.p_date_wgi_due);
5912:
5913: hr_utility.set_location('WGI Due date ' || l_wgi_due_date,150);
5914: hr_utility.set_location('p_pa_request_rec.noa_family_code ' || p_pa_request_rec.noa_family_code,150);
5915: -- GPPA 46 Update. l_to_pay_plan is not getting initialized. So, added the
5916: -- following code to initialize the l_to_pay_plan value.
5917:
5918: g_retained_grade_info := null;
5924: (p_person_id => p_pa_request_rec.person_id,
5925: p_effective_date => p_pa_request_rec.effective_date,
5926: p_pa_request_id => p_pa_request_rec.pa_request_id
5927: );
5928: hr_utility.set_location('l_retained_pay_plan:'||l_retained_grade_rec.pay_plan,155);
5929: --BUG # 6628749
5930: IF l_retained_grade_rec.temp_step is NULL THEN
5931: l_to_pay_plan := l_retained_grade_rec.pay_plan;
5932: END IF;
5939: l_to_pay_plan := l_retained_grade_rec.pay_plan;
5940: ELSE
5941: l_to_pay_plan := p_pa_request_rec.to_pay_plan;
5942: END IF;*/
5943: hr_utility.set_location('l_to_pay_plan:'||l_to_pay_plan,156);
5944: FOR cur_eq_ppl_rec IN cur_eq_ppl(l_to_pay_plan)
5945: LOOP
5946: l_equ_pay_plan := cur_eq_ppl_rec.EQUIVALENT_PAY_PLAN;
5947: exit;
5945: LOOP
5946: l_equ_pay_plan := cur_eq_ppl_rec.EQUIVALENT_PAY_PLAN;
5947: exit;
5948: END LOOP;
5949: hr_utility.set_location('l_equ_pay_plan:'||l_equ_pay_plan,157);
5950: ------GPPA Update 46 changes - For SES employees WGI element should not be created for 891, 892 , 890 and 897 NOACs.
5951: -- OR condition for Pay Plan FE is added as FE is nomore ES equ pay plan
5952: IF NOT ((l_equ_pay_plan = 'ES' OR l_to_pay_plan='FE')
5953: AND p_pa_request_rec.first_noa_code IN ('891', '892', '890', '897')) THEN
6038: p_wgi_pay_date => l_wgi_pay_date,
6039: p_retained_grade_rec => l_retained_grade_rec,
6040: p_dlei => NULL
6041: );
6042: hr_utility.set_location('Inside If loop',511);
6043: ghr_element_api.process_sf52_element
6044: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6045: ,p_element_name => 'Within Grade Increase'
6046: ,p_input_value_name2 => 'Date Due'
6060: -- Bug 3998686 In correction action, if DLEI is present and WGI Due date is cleared,
6061: -- it comes here. Need to update NULL in that case. .
6062: ELSIF nvl(p_pa_request_rec.noa_family_code,hr_api.g_varchar2) IN ('APP','CONV_APP')
6063: AND p_wgi.p_last_equi_incr IS NOT NULL AND l_wgi_cleared = FALSE THEN
6064: hr_utility.set_location('Inside elsif loop',511);
6065: ghr_element_api.process_sf52_element
6066: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6067: ,p_element_name => 'Within Grade Increase'
6068: ,p_input_value_name2 => 'Date Due'
6113: THEN
6114:
6115: IF p_pa_request_rec.first_noa_code in ( '702','703','713') THEN
6116: l_wgi_due_date := fnd_date.canonical_to_date(p_wgi.p_date_wgi_due);
6117: hr_utility.set_location('702 -- l_wgi_due_date is ' || l_wgi_due_date,1);
6118: END IF;
6119:
6120: IF not (p_pa_request_rec.first_noa_code = '702' AND
6121: g_old_user_status = 'Temp. Promotion NTE' )THEN
6134: -- Bug 3993664 - Included NOA 867...
6135: -- Bug#5666880 - Included NOA 896, 897
6136: IF (p_pa_request_rec.first_noa_code IN ('892','867','896','897') OR
6137: p_pa_request_rec.second_noa_code IN ('892','867','896','897')) THEN
6138: hr_utility.set_location('inside NOA Code 897',9999999);
6139: ghr_history_fetch.fetch_element_entry_value
6140: (p_element_name => 'Within Grade Increase',
6141: p_input_value_name => 'Last Equivalent Increase',
6142: p_assignment_id => p_pa_request_rec.employee_assignment_id,
6146: p_wgi.p_last_equi_incr := l_lei_date;
6147: END IF;
6148: -- End of 3111719
6149: -- Bug 3709414 Retrieving Last equivalent increase date if it's not entered in RPA EIT.
6150: hr_utility.set_location('p_wgi.p_last_equi_incr is ' || p_wgi.p_last_equi_incr,1);
6151: IF (p_pa_request_rec.first_noa_code = '713' OR p_pa_request_rec.second_noa_code = '713')
6152: AND p_wgi.p_last_equi_incr IS NULL THEN
6153: ghr_history_fetch.fetch_element_entry_value
6154: (p_element_name => 'Within Grade Increase',
6165: p_wgi.p_last_equi_incr := fnd_date.date_to_canonical(p_pa_request_rec.effective_date); -- Bug 3991240
6166: END IF;
6167: -- End Bug 3617295
6168:
6169: hr_utility.set_location('l_wgi_due_date calculated is ' || l_wgi_due_date,1);
6170: hr_utility.set_location('lei date calculated is ' || p_wgi.p_last_equi_incr,2);
6171: hr_utility.set_location('l_wgi_pay_date calculated is ' || l_wgi_pay_date,3);
6172:
6173: ghr_element_api.process_sf52_element
6166: END IF;
6167: -- End Bug 3617295
6168:
6169: hr_utility.set_location('l_wgi_due_date calculated is ' || l_wgi_due_date,1);
6170: hr_utility.set_location('lei date calculated is ' || p_wgi.p_last_equi_incr,2);
6171: hr_utility.set_location('l_wgi_pay_date calculated is ' || l_wgi_pay_date,3);
6172:
6173: ghr_element_api.process_sf52_element
6174: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6167: -- End Bug 3617295
6168:
6169: hr_utility.set_location('l_wgi_due_date calculated is ' || l_wgi_due_date,1);
6170: hr_utility.set_location('lei date calculated is ' || p_wgi.p_last_equi_incr,2);
6171: hr_utility.set_location('l_wgi_pay_date calculated is ' || l_wgi_pay_date,3);
6172:
6173: ghr_element_api.process_sf52_element
6174: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6175: ,p_element_name => 'Within Grade Increase'
6191: Else
6192: If p_wgi.p_date_wgi_due is not null or
6193: p_wgi.p_wgi_pay_date is not null or
6194: p_wgi.p_date_wgi_postpone_effective is not null then
6195: hr_utility.set_location(l_proc,85);
6196: hr_utility.set_location('date due ' || p_wgi.p_date_wgi_due,1);
6197: hr_utility.set_location('determ due' || p_wgi.p_date_wgi_postpone_effective,2);
6198:
6199: ghr_element_api.process_sf52_element
6192: If p_wgi.p_date_wgi_due is not null or
6193: p_wgi.p_wgi_pay_date is not null or
6194: p_wgi.p_date_wgi_postpone_effective is not null then
6195: hr_utility.set_location(l_proc,85);
6196: hr_utility.set_location('date due ' || p_wgi.p_date_wgi_due,1);
6197: hr_utility.set_location('determ due' || p_wgi.p_date_wgi_postpone_effective,2);
6198:
6199: ghr_element_api.process_sf52_element
6200: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6193: p_wgi.p_wgi_pay_date is not null or
6194: p_wgi.p_date_wgi_postpone_effective is not null then
6195: hr_utility.set_location(l_proc,85);
6196: hr_utility.set_location('date due ' || p_wgi.p_date_wgi_due,1);
6197: hr_utility.set_location('determ due' || p_wgi.p_date_wgi_postpone_effective,2);
6198:
6199: ghr_element_api.process_sf52_element
6200: (p_assignment_id => p_pa_request_rec.employee_assignment_id
6201: ,p_element_name => 'Within Grade Increase'
6235: p_pa_request_id => p_pa_request_rec.pa_request_id
6236: );
6237: END IF;
6238: END IF;
6239: hr_utility.set_location('ret person extra info id : ' || l_retained_grade_rec.person_extra_info_id,1);
6240:
6241: -------Bug 5913362 -- Adding 890
6242: If l_retained_grade_rec.person_extra_info_id is not null
6243: and p_pa_request_rec.first_noa_code NOT IN ('866', '890') then
6240:
6241: -------Bug 5913362 -- Adding 890
6242: If l_retained_grade_rec.person_extra_info_id is not null
6243: and p_pa_request_rec.first_noa_code NOT IN ('866', '890') then
6244: hr_utility.set_location('update retained grade info',1);
6245: for retained_grade_ovn in c_retained_grade_ovn loop
6246: l_ret_object_version_number := retained_grade_ovn.object_version_number;
6247: if p_pa_request_rec.first_noa_code in ('867','892','893','894')
6248: then
6256: l_new_temp_step := retained_grade_ovn.pei_information9;
6257: end if;
6258: end loop;
6259: If p_pa_request_rec.first_noa_code in ('867','892','893','894') then
6260: hr_utility.set_location('procesing 867,892,893,894',1);
6261: ghr_history_api.get_g_session_var(l_session);
6262: If l_session.noa_id_correct is null then
6263: hr_utility.set_location('procesing 867,892,893,894 not a corr',1);
6264: ----Bug 6193571 start
6259: If p_pa_request_rec.first_noa_code in ('867','892','893','894') then
6260: hr_utility.set_location('procesing 867,892,893,894',1);
6261: ghr_history_api.get_g_session_var(l_session);
6262: If l_session.noa_id_correct is null then
6263: hr_utility.set_location('procesing 867,892,893,894 not a corr',1);
6264: ----Bug 6193571 start
6265: if p_pa_request_rec.first_noa_code = '894'
6266: AND l_new_step_or_rate is not null
6267: AND ghr_process_sf52.g_prd IS NOT NULL then
6281: end if;
6282: IF p_pa_request_rec.first_noa_code in ('867','892','893') THEN
6283: l_new_step_or_rate := l_retained_grade_rec.step_or_rate;
6284: l_new_temp_step := l_retained_grade_rec.temp_step;
6285: hr_utility.set_location('TPS 1 ',1);
6286: END IF;
6287: hr_utility.set_location('TPS 1a '||l_new_temp_step,1);
6288: IF l_new_temp_step is NOT NULL THEN
6289: hr_utility.set_location('TPS 1b '||l_new_temp_step,1);
6283: l_new_step_or_rate := l_retained_grade_rec.step_or_rate;
6284: l_new_temp_step := l_retained_grade_rec.temp_step;
6285: hr_utility.set_location('TPS 1 ',1);
6286: END IF;
6287: hr_utility.set_location('TPS 1a '||l_new_temp_step,1);
6288: IF l_new_temp_step is NOT NULL THEN
6289: hr_utility.set_location('TPS 1b '||l_new_temp_step,1);
6290: hr_person_extra_info_api.create_person_extra_info
6291: (p_person_id => p_pa_request_rec.person_id,
6285: hr_utility.set_location('TPS 1 ',1);
6286: END IF;
6287: hr_utility.set_location('TPS 1a '||l_new_temp_step,1);
6288: IF l_new_temp_step is NOT NULL THEN
6289: hr_utility.set_location('TPS 1b '||l_new_temp_step,1);
6290: hr_person_extra_info_api.create_person_extra_info
6291: (p_person_id => p_pa_request_rec.person_id,
6292: p_information_type => 'GHR_US_RETAINED_GRADE',
6293: p_pei_information_category => 'GHR_US_RETAINED_GRADE',
6303: p_pei_information8 => l_new_pay_basis,
6304: p_pei_information9 => l_new_temp_step
6305: );
6306: ELSE
6307: hr_utility.set_location('TPS 2 '||l_new_step_or_rate,2);
6308: ---Bug 6024225 Added nvl value for 894 action. Need to check this at a later time.
6309:
6310: --- Bug 6193571 start
6311: if p_pa_request_rec.first_noa_code = '894'
6347: end if;
6348: END IF;
6349: End if;
6350: Else
6351: hr_utility.set_location('TPS 3 '||l_new_step_or_rate,3);
6352: hr_person_extra_info_api.update_person_extra_info
6353: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
6354: p_object_version_number => l_ret_object_version_number,
6355: p_pei_information4 => l_retained_grade_rec.step_or_rate
6366: IF p_pa_request_rec.first_noa_code in ('703') THEN
6367: FOR cur_temp_step_rec IN cur_temp_step LOOP
6368: l_new_temp_step := cur_temp_step_rec.temp_step;
6369: END LOOP;
6370: hr_utility.set_location('TPS 4 '||l_new_temp_step,4);
6371: IF l_new_temp_step is not null THEN
6372: l_retained_grade_rec :=
6373: ghr_pc_basic_pay.get_retained_grade_details
6374: (p_person_id => p_pa_request_rec.person_id,
6375: p_effective_date => p_pa_request_rec.effective_date,
6376: p_pa_request_id => p_pa_request_rec.pa_request_id
6377: );
6378: IF l_retained_grade_rec.person_extra_info_id is not null then
6379: hr_utility.set_location('Inside 703 processing '||l_retained_grade_rec.person_extra_info_id,1);
6380: FOR retained_grade_ovn IN c_retained_grade_ovn LOOP
6381: l_ret_object_version_number := retained_grade_ovn.object_version_number;
6382: l_new_date_to := retained_grade_ovn.pei_information2;
6383: l_new_grade_or_level := retained_grade_ovn.pei_information3;
6388: l_new_pay_basis := retained_grade_ovn.pei_information8;
6389: exit;
6390: END LOOP;
6391: ghr_history_api.get_g_session_var(l_session);
6392: hr_utility.set_location('Inside 703 processing ',2);
6393: IF l_session.noa_id_correct is null then
6394: -- End date the existing RG record
6395: hr_person_extra_info_api.update_person_extra_info
6396: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
6396: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
6397: p_object_version_number => l_ret_object_version_number,
6398: p_pei_information2 => fnd_date.date_to_canonical(p_pa_request_rec.effective_date - 1)
6399: );
6400: hr_utility.set_location('Inside 703 processing ',3);
6401: -- Create the new RG Record with Temporary Promotion Step Value
6402: hr_person_extra_info_api.create_person_extra_info
6403: (p_person_id => p_pa_request_rec.person_id,
6404: p_information_type => 'GHR_US_RETAINED_GRADE',
6414: p_pei_information7 => l_new_loc_percent,
6415: p_pei_information8 => l_new_pay_basis,
6416: p_pei_information9 => l_new_temp_step
6417: );
6418: hr_utility.set_location('Inside 703 processing ',3);
6419: ELSE
6420: -- Update the current RG
6421: hr_utility.set_location('Inside 703 correction processing '||l_new_temp_step,4);
6422: hr_person_extra_info_api.update_person_extra_info
6417: );
6418: hr_utility.set_location('Inside 703 processing ',3);
6419: ELSE
6420: -- Update the current RG
6421: hr_utility.set_location('Inside 703 correction processing '||l_new_temp_step,4);
6422: hr_person_extra_info_api.update_person_extra_info
6423: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
6424: p_object_version_number => l_ret_object_version_number,
6425: p_pei_information9 => l_new_temp_step
6445: WHEN OTHERS THEN
6446: NULL;
6447: END;
6448: IF l_retained_grade_rec.person_extra_info_id is not null then
6449: hr_utility.set_location('Inside 740 processing '||l_retained_grade_rec.person_extra_info_id,1);
6450: FOR retained_grade_ovn IN c_retained_grade_ovn LOOP
6451: l_ret_object_version_number := retained_grade_ovn.object_version_number;
6452: l_new_date_to := retained_grade_ovn.pei_information2;
6453: l_new_grade_or_level := retained_grade_ovn.pei_information3;
6458: l_new_pay_basis := retained_grade_ovn.pei_information8;
6459: l_new_temp_step := retained_grade_ovn.pei_information9;
6460: exit;
6461: END LOOP;
6462: hr_utility.set_location('Inside 740 processing ',2);
6463: ghr_history_api.get_g_session_var(l_session);
6464: IF l_new_temp_step IS NOT NULL and l_session.noa_id_correct IS NULL THEN
6465: -- End date the existing RG record
6466: hr_person_extra_info_api.update_person_extra_info
6467: (p_person_extra_info_id => l_retained_grade_rec.person_extra_info_id,
6468: p_object_version_number => l_ret_object_version_number,
6469: p_pei_information2 => fnd_date.date_to_canonical(p_pa_request_rec.effective_date - 1)
6470: );
6471: hr_utility.set_location('Inside 740 processing ',3);
6472: -- Create the new RG Record with null Temporary Promotion Step Value
6473: hr_person_extra_info_api.create_person_extra_info
6474: (p_person_id => p_pa_request_rec.person_id,
6475: p_information_type => 'GHR_US_RETAINED_GRADE',
6484: p_pei_information6 => l_new_pay_table,
6485: p_pei_information7 => l_new_loc_percent,
6486: p_pei_information8 => l_new_pay_basis
6487: );
6488: hr_utility.set_location('Inside 740 processing ',3);
6489: END IF;
6490: END IF;
6491: END IF;
6492: hr_utility.set_location('Leaving ' ||l_proc,100);
6488: hr_utility.set_location('Inside 740 processing ',3);
6489: END IF;
6490: END IF;
6491: END IF;
6492: hr_utility.set_location('Leaving ' ||l_proc,100);
6493: Exception when others then
6494: --
6495: -- Reset IN OUT parameters and set OUT parameters
6496: --
6867: l_noa_code VARCHAR2(150);
6868: l_session ghr_history_api.g_session_var_type;
6869:
6870: BEGIN
6871: hr_utility.set_location('Entering process_incentive_elements'||p_pa_request_id,0);
6872: l_installment_ctr := 0;
6873: ghr_history_api.get_g_session_var(l_session);
6874: IF l_session.noa_id_correct IS NOT NULL and
6875: p_payment_option = 'H' and
6882: ,p_second_noa_code);
6883: ELSE
6884: FOR c_incdet_rec IN c_inc_catg_details(p_pa_request_id)
6885: LOOP
6886: hr_utility.set_location('Inside For Loop, Category: '||c_incdet_rec.pa_incentive_category,10);
6887: hr_utility.set_location('Inside For Loop, NOA Code: '||p_first_noa_code,20);
6888: hr_utility.set_location('Inside For Loop, ASG ID : '||p_assignment_id,30);
6889: -- This is a special case. Till now, we have never created the same element twice in a
6890: -- single RPA action. If process_sf52_element is called, only one of these two elements
6883: ELSE
6884: FOR c_incdet_rec IN c_inc_catg_details(p_pa_request_id)
6885: LOOP
6886: hr_utility.set_location('Inside For Loop, Category: '||c_incdet_rec.pa_incentive_category,10);
6887: hr_utility.set_location('Inside For Loop, NOA Code: '||p_first_noa_code,20);
6888: hr_utility.set_location('Inside For Loop, ASG ID : '||p_assignment_id,30);
6889: -- This is a special case. Till now, we have never created the same element twice in a
6890: -- single RPA action. If process_sf52_element is called, only one of these two elements
6891: -- will be updated with both the values.And the latest values will retain. To avoid that,
6884: FOR c_incdet_rec IN c_inc_catg_details(p_pa_request_id)
6885: LOOP
6886: hr_utility.set_location('Inside For Loop, Category: '||c_incdet_rec.pa_incentive_category,10);
6887: hr_utility.set_location('Inside For Loop, NOA Code: '||p_first_noa_code,20);
6888: hr_utility.set_location('Inside For Loop, ASG ID : '||p_assignment_id,30);
6889: -- This is a special case. Till now, we have never created the same element twice in a
6890: -- single RPA action. If process_sf52_element is called, only one of these two elements
6891: -- will be updated with both the values.And the latest values will retain. To avoid that,
6892: -- update the elements separately here itself.
7130: l_effective_date := trunc(p_pa_request_rec.effective_date);
7131: End if;
7132: ****/
7133:
7134: hr_utility.set_location('Entering ' || l_proc,5);
7135: -- Processing FEGLI
7136:
7137: --
7138: If p_pa_request_rec.fegli is not null then
7135: -- Processing FEGLI
7136:
7137: --
7138: If p_pa_request_rec.fegli is not null then
7139: hr_utility.set_location(l_proc,10);
7140: -- BEN_EIT Changes Commented the following code
7141: -- as input value2 is moved to Benefits EIT
7142: /* -- Bug 3238026 Added condition for CHG_FEGLI
7143: IF (p_pa_request_rec.noa_family_code = 'CHG_FEGLI') THEN
7140: -- BEN_EIT Changes Commented the following code
7141: -- as input value2 is moved to Benefits EIT
7142: /* -- Bug 3238026 Added condition for CHG_FEGLI
7143: IF (p_pa_request_rec.noa_family_code = 'CHG_FEGLI') THEN
7144: hr_utility.set_location('Entering IF fegli',123456);
7145: ghr_element_api.process_sf52_element
7146: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7147: ,p_element_name => 'FEGLI'
7148: ,p_input_value_name1 => 'FEGLI'
7155: ,p_process_warning => l_warning
7156: );
7157: ELSE
7158: */
7159: hr_utility.set_location('Entering ELSE fegli',123456);
7160: ghr_element_api.process_sf52_element
7161: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7162: ,p_element_name => 'FEGLI'
7163: ,p_input_value_name1 => 'FEGLI'
7169: -- End Bug 3238026
7170:
7171: /* To be included after Martin Reid's element api handles the create and update warning
7172: if l_fegli_warn = FALSE then
7173: hr_utility.set_message(8301,'GHR_38141_FAIL_TO_UPD_FEGLI');
7174: hr_utility.raise_error;
7175: end if;
7176: */
7177: END IF;
7170:
7171: /* To be included after Martin Reid's element api handles the create and update warning
7172: if l_fegli_warn = FALSE then
7173: hr_utility.set_message(8301,'GHR_38141_FAIL_TO_UPD_FEGLI');
7174: hr_utility.raise_error;
7175: end if;
7176: */
7177: END IF;
7178: --
7178: --
7179: -- Processing retirement plan
7180: --
7181: If p_pa_request_rec.retirement_plan is not null then
7182: hr_utility.set_location(l_proc,20);
7183: ghr_element_api.process_sf52_element
7184: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7185: ,p_element_name => 'Retirement Plan'
7186: ,p_input_value_name1 => 'Plan'
7190: );
7191: --
7192: /*
7193: if l_retirement_plan_warn = FALSE then
7194: hr_utility.set_message(8301,'GHR_38142_FAIL_TO_UPD_RET_PLN');
7195: hr_utility.raise_error;
7196: end if;
7197: */
7198: end if;
7191: --
7192: /*
7193: if l_retirement_plan_warn = FALSE then
7194: hr_utility.set_message(8301,'GHR_38142_FAIL_TO_UPD_RET_PLN');
7195: hr_utility.raise_error;
7196: end if;
7197: */
7198: end if;
7199: --
7201: -- Processing recruitment bonus
7202: --
7203: If p_recruitment_bonus.p_recruitment_bonus is not null or
7204: p_recruitment_bonus.p_date_recruit_exp is not null then
7205: hr_utility.set_location(l_proc,30);
7206: hr_utility.set_location(l_proc || p_recruitment_bonus.p_date_recruit_exp,31);
7207: hr_utility.set_location(l_proc ||to_char(p_pa_request_rec.employee_assignment_id),35);
7208: ghr_element_api.process_sf52_element
7209: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7202: --
7203: If p_recruitment_bonus.p_recruitment_bonus is not null or
7204: p_recruitment_bonus.p_date_recruit_exp is not null then
7205: hr_utility.set_location(l_proc,30);
7206: hr_utility.set_location(l_proc || p_recruitment_bonus.p_date_recruit_exp,31);
7207: hr_utility.set_location(l_proc ||to_char(p_pa_request_rec.employee_assignment_id),35);
7208: ghr_element_api.process_sf52_element
7209: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7210: ,p_element_name => 'Recruitment Bonus'
7203: If p_recruitment_bonus.p_recruitment_bonus is not null or
7204: p_recruitment_bonus.p_date_recruit_exp is not null then
7205: hr_utility.set_location(l_proc,30);
7206: hr_utility.set_location(l_proc || p_recruitment_bonus.p_date_recruit_exp,31);
7207: hr_utility.set_location(l_proc ||to_char(p_pa_request_rec.employee_assignment_id),35);
7208: ghr_element_api.process_sf52_element
7209: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7210: ,p_element_name => 'Recruitment Bonus'
7211: ,p_input_value_name1 => 'Amount'
7221: );
7222:
7223: /*
7224: if l_recruitment_bonus_warn = FALSE then
7225: hr_utility.set_message(8301,'GHR_38143_FAIL_TO_UPD_RCRT_BON');
7226: hr_utility.raise_error;
7227: end if;
7228: */
7229: end if;
7222:
7223: /*
7224: if l_recruitment_bonus_warn = FALSE then
7225: hr_utility.set_message(8301,'GHR_38143_FAIL_TO_UPD_RCRT_BON');
7226: hr_utility.raise_error;
7227: end if;
7228: */
7229: end if;
7230: --
7229: end if;
7230: --
7231: -- Processing relocation bonus
7232: --
7233: hr_utility.set_location('Rel. Bonus' || p_relocation_bonus.p_relocation_bonus,1);
7234: If p_relocation_bonus.p_relocation_bonus is not null or
7235: p_relocation_bonus.p_date_reloc_exp is not null then
7236: hr_utility.set_location(l_proc,40);
7237: ghr_element_api.process_sf52_element
7232: --
7233: hr_utility.set_location('Rel. Bonus' || p_relocation_bonus.p_relocation_bonus,1);
7234: If p_relocation_bonus.p_relocation_bonus is not null or
7235: p_relocation_bonus.p_date_reloc_exp is not null then
7236: hr_utility.set_location(l_proc,40);
7237: ghr_element_api.process_sf52_element
7238: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7239: ,p_element_name => 'Relocation Bonus'
7240: ,p_input_value_name1 => 'Amount'
7249: );
7250: --
7251: /*
7252: if l_relocation_bonus_warn = FALSE then
7253: hr_utility.set_message(8301,'GHR_38144_FAIL_TO_UPD_REL_BON');
7254: hr_utility.raise_error;
7255: end if;
7256: */
7257: end if;
7250: --
7251: /*
7252: if l_relocation_bonus_warn = FALSE then
7253: hr_utility.set_message(8301,'GHR_38144_FAIL_TO_UPD_REL_BON');
7254: hr_utility.raise_error;
7255: end if;
7256: */
7257: end if;
7258: --
7260: If p_pa_request_rec.first_noa_code = '817' or p_pa_request_rec.second_noa_code = '817' then
7261: If p_student_loan_repay.p_amount is not null or
7262: p_student_loan_repay.p_review_date is not null then
7263: IF (p_student_loan_repay.p_repay_schedule = 'L') THEN
7264: hr_utility.set_location(l_proc,40);
7265: ghr_element_api.process_sf52_element
7266: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7267: ,p_element_name => 'Student Loan Repayment LumpSum'
7268: ,p_input_value_name1 => 'Amount'
7273: ,p_effective_date => l_effective_date
7274: ,p_process_warning => l_warning
7275: );
7276: ELSIF (p_student_loan_repay.p_repay_schedule = 'R') THEN
7277: hr_utility.set_location(l_proc,40);
7278: ghr_element_api.process_sf52_element
7279: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7280: ,p_element_name => 'Student Loan Repayment'
7281: ,p_input_value_name1 => 'Amount'
7293: --
7294: -- processing awards_bonus
7295: --
7296: If p_gov_award.award_flag = 'Y' then
7297: hr_utility.set_location(l_proc,50);
7298: hr_utility.set_location('Date awRd' || p_gov_award.date_award_earned,1);
7299: hr_utility.set_location('Award Agency ' || p_gov_award.award_Agency,1);
7300: hr_utility.set_location('Award Percentage ' || p_pa_request_rec.award_percentage,1);
7301: hr_utility.set_location('Date Exemp' || p_gov_award.date_exemp_award,1);
7294: -- processing awards_bonus
7295: --
7296: If p_gov_award.award_flag = 'Y' then
7297: hr_utility.set_location(l_proc,50);
7298: hr_utility.set_location('Date awRd' || p_gov_award.date_award_earned,1);
7299: hr_utility.set_location('Award Agency ' || p_gov_award.award_Agency,1);
7300: hr_utility.set_location('Award Percentage ' || p_pa_request_rec.award_percentage,1);
7301: hr_utility.set_location('Date Exemp' || p_gov_award.date_exemp_award,1);
7302: -- Bug # 1061084
7295: --
7296: If p_gov_award.award_flag = 'Y' then
7297: hr_utility.set_location(l_proc,50);
7298: hr_utility.set_location('Date awRd' || p_gov_award.date_award_earned,1);
7299: hr_utility.set_location('Award Agency ' || p_gov_award.award_Agency,1);
7300: hr_utility.set_location('Award Percentage ' || p_pa_request_rec.award_percentage,1);
7301: hr_utility.set_location('Date Exemp' || p_gov_award.date_exemp_award,1);
7302: -- Bug # 1061084
7303: hr_utility.set_location('Appropriation Code' || p_gov_award.award_appropriation_code,1);
7296: If p_gov_award.award_flag = 'Y' then
7297: hr_utility.set_location(l_proc,50);
7298: hr_utility.set_location('Date awRd' || p_gov_award.date_award_earned,1);
7299: hr_utility.set_location('Award Agency ' || p_gov_award.award_Agency,1);
7300: hr_utility.set_location('Award Percentage ' || p_pa_request_rec.award_percentage,1);
7301: hr_utility.set_location('Date Exemp' || p_gov_award.date_exemp_award,1);
7302: -- Bug # 1061084
7303: hr_utility.set_location('Appropriation Code' || p_gov_award.award_appropriation_code,1);
7304: ghr_element_api.process_sf52_element
7297: hr_utility.set_location(l_proc,50);
7298: hr_utility.set_location('Date awRd' || p_gov_award.date_award_earned,1);
7299: hr_utility.set_location('Award Agency ' || p_gov_award.award_Agency,1);
7300: hr_utility.set_location('Award Percentage ' || p_pa_request_rec.award_percentage,1);
7301: hr_utility.set_location('Date Exemp' || p_gov_award.date_exemp_award,1);
7302: -- Bug # 1061084
7303: hr_utility.set_location('Appropriation Code' || p_gov_award.award_appropriation_code,1);
7304: ghr_element_api.process_sf52_element
7305: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7299: hr_utility.set_location('Award Agency ' || p_gov_award.award_Agency,1);
7300: hr_utility.set_location('Award Percentage ' || p_pa_request_rec.award_percentage,1);
7301: hr_utility.set_location('Date Exemp' || p_gov_award.date_exemp_award,1);
7302: -- Bug # 1061084
7303: hr_utility.set_location('Appropriation Code' || p_gov_award.award_appropriation_code,1);
7304: ghr_element_api.process_sf52_element
7305: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7306: ,p_element_name => 'Federal Awards'
7307: ,p_input_value_name1 => 'Award Agency'
7331: --
7332: -- process entitlement
7333: --
7334: if p_entitlement.entitlement_flag = 'Y' then
7335: hr_utility.set_location(l_proc,60);
7336: ghr_element_api.process_sf52_element
7337: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7338: ,p_element_name => 'Entitlement'
7339: ,p_input_value_name1 => 'Code'
7347: --
7348: -- process foreign lang profiency pay
7349: --
7350: if p_foreign_lang_prof_pay.for_lang_flag = 'Y' then
7351: hr_utility.set_location(l_proc,70);
7352: ghr_element_api.process_sf52_element
7353: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7354: ,p_element_name => 'Foreign Lang Proficiency Pay'
7355: ,p_input_value_name1 => 'Certification Date'
7364: --
7365: -- Bug#3385386 process foreign Transfer Allowance(FTA) element
7366: --
7367: if p_fta.fta_flag = 'Y' then
7368: hr_utility.set_location(l_proc,75);
7369: ghr_element_api.process_sf52_element
7370: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7371: ,p_element_name => 'Foreign Transfer Allowance'
7372: ,p_input_value_name1 => 'Last Action Code'
7390: --
7391: -- process edp pay
7392: --
7393: if p_edp_pay.edp_flag = 'Y' then
7394: hr_utility.set_location(l_proc,80);
7395: ghr_element_api.process_sf52_element
7396: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7397: ,p_element_name => 'EDP Pay'
7398: ,p_input_value_name1 => 'Premium Pay Ind'
7407: --
7408: -- process hazard pay
7409: --
7410: if p_hazard_pay.hazard_flag = 'Y' then
7411: hr_utility.set_location(l_proc,85);
7412: ghr_element_api.process_sf52_element
7413: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7414: ,p_element_name => 'Hazard Pay'
7415: ,p_input_value_name1 => 'Premium Pay Ind'
7423: --
7424: -- process health benefits
7425: -- Sundar Benefits EIT Enhancement
7426: if p_health_benefits.health_benefits_flag = 'Y' then
7427: hr_utility.set_location(l_proc,90);
7428: IF ghr_utility.is_ghr_ben_fehb = 'TRUE' THEN
7429: NULL;
7430: ELSE
7431: ghr_element_api.process_sf52_element
7424: -- process health benefits
7425: -- Sundar Benefits EIT Enhancement
7426: if p_health_benefits.health_benefits_flag = 'Y' then
7427: hr_utility.set_location(l_proc,90);
7428: IF ghr_utility.is_ghr_ben_fehb = 'TRUE' THEN
7429: NULL;
7430: ELSE
7431: ghr_element_api.process_sf52_element
7432: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7441: ,p_value4 => p_health_benefits.pre_tax_waiver
7442: ,p_effective_date => l_effective_date
7443: ,p_process_warning => l_warning
7444: );
7445: END IF; -- IF ghr_utility.is_ghr_ben_fehb THEN
7446: end if;
7447: --
7448: --
7449: -- process health benefits pre tax
7448: --
7449: -- process health benefits pre tax
7450: --
7451: if p_health_ben_pre_tax.health_ben_pre_tax_flag = 'Y' then
7452: hr_utility.set_location(l_proc,90);
7453: IF ghr_utility.is_ghr_ben_fehb = 'TRUE' THEN
7454: NULL;
7455: ELSE
7456: ghr_element_api.process_sf52_element
7449: -- process health benefits pre tax
7450: --
7451: if p_health_ben_pre_tax.health_ben_pre_tax_flag = 'Y' then
7452: hr_utility.set_location(l_proc,90);
7453: IF ghr_utility.is_ghr_ben_fehb = 'TRUE' THEN
7454: NULL;
7455: ELSE
7456: ghr_element_api.process_sf52_element
7457: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7464: ,p_value3 => p_health_ben_pre_tax.temps_total_cost
7465: ,p_effective_date => l_effective_date
7466: ,p_process_warning => l_warning
7467: );
7468: END IF; -- IF ghr_utility.is_ghr_ben_fehb = TRUE THEN
7469: end if;
7470: --
7471: -- process danger pay
7472: --
7470: --
7471: -- process danger pay
7472: --
7473: if p_danger_pay.danger_flag = 'Y' then
7474: hr_utility.set_location(l_proc,100);
7475: ghr_element_api.process_sf52_element
7476: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7477: ,p_element_name => 'Danger Pay'
7478: ,p_input_value_name1 => 'Last Action Code'
7486: --
7487: -- process imminent danger pay
7488: --
7489: if p_imminent_danger_pay.imminent_danger_flag = 'Y' then
7490: hr_utility.set_location(l_proc,110);
7491: ghr_element_api.process_sf52_element
7492: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7493: ,p_element_name => 'Imminent Danger Pay'
7494: ,p_input_value_name1 => 'Amount'
7504: --
7505: -- process living_quarters_allow
7506: --
7507: if p_living_quarters_allow.living_quarters_allow_flag = 'Y' then
7508: hr_utility.set_location(l_proc,120);
7509: ghr_element_api.process_sf52_element
7510: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7511: ,p_element_name => 'Living Quarters Allowance'
7512: ,p_input_value_name1 => 'Purchase Amount'
7541: --
7542: -- process post differential amount
7543: --
7544: if p_post_diff_amt.post_diff_amt_flag = 'Y' then
7545: hr_utility.set_location(l_proc,130);
7546: ghr_element_api.process_sf52_element
7547: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7548: -- ,p_element_name => 'Post Differential Amount' -- Bug 2645878 Elements renamed
7549: ,p_element_name => 'Post Allowance'
7562: --
7563: -- process post differential percent
7564: --
7565: if p_post_diff_percent.post_diff_percent_flag = 'Y' then
7566: hr_utility.set_location(l_proc,140);
7567: hr_utility.set_location('subbu'||p_post_diff_percent.percent,141);
7568: hr_utility.set_location('subbu'||p_post_diff_percent.last_action_code,142);
7569: hr_utility.set_location('subbu'||p_post_diff_percent.location,143);
7570:
7563: -- process post differential percent
7564: --
7565: if p_post_diff_percent.post_diff_percent_flag = 'Y' then
7566: hr_utility.set_location(l_proc,140);
7567: hr_utility.set_location('subbu'||p_post_diff_percent.percent,141);
7568: hr_utility.set_location('subbu'||p_post_diff_percent.last_action_code,142);
7569: hr_utility.set_location('subbu'||p_post_diff_percent.location,143);
7570:
7571: ghr_element_api.process_sf52_element
7564: --
7565: if p_post_diff_percent.post_diff_percent_flag = 'Y' then
7566: hr_utility.set_location(l_proc,140);
7567: hr_utility.set_location('subbu'||p_post_diff_percent.percent,141);
7568: hr_utility.set_location('subbu'||p_post_diff_percent.last_action_code,142);
7569: hr_utility.set_location('subbu'||p_post_diff_percent.location,143);
7570:
7571: ghr_element_api.process_sf52_element
7572: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7565: if p_post_diff_percent.post_diff_percent_flag = 'Y' then
7566: hr_utility.set_location(l_proc,140);
7567: hr_utility.set_location('subbu'||p_post_diff_percent.percent,141);
7568: hr_utility.set_location('subbu'||p_post_diff_percent.last_action_code,142);
7569: hr_utility.set_location('subbu'||p_post_diff_percent.location,143);
7570:
7571: ghr_element_api.process_sf52_element
7572: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7573: -- ,p_element_name => 'Post Differential Percent' -- Bug 2645878 Element renamed
7585: --
7586: -- process sep_maintenance_allow
7587: --
7588: if p_sep_maintenance_allow.sep_maint_allow_flag = 'Y' then
7589: hr_utility.set_location(l_proc,150);
7590: ghr_element_api.process_sf52_element
7591: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7592: ,p_element_name => 'Separate Maintenance Allowance'
7593: ,p_input_value_name1 => 'Amount'
7603: --
7604: -- process supplemental_post_allow
7605: --
7606: if p_supplemental_post_allow.sup_post_allow_flag = 'Y' then
7607: hr_utility.set_location(l_proc,160);
7608: ghr_element_api.process_sf52_element
7609: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7610: ,p_element_name => 'Supplemental Post Allowance'
7611: ,p_input_value_name1 => 'Amount'
7617: --
7618: -- process temp_lodge_allow
7619: --
7620: if p_temp_lodge_allow.temp_lodge_allow_flag = 'Y' then
7621: hr_utility.set_location(l_proc,170);
7622: ghr_element_api.process_sf52_element
7623: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7624: ,p_element_name => 'Temporary Lodging Allowance'
7625: ,p_input_value_name1 => 'Allowance Type'
7633: --
7634: -- process premium_pay
7635: --
7636: if p_premium_pay.premium_pay_flag = 'Y' then
7637: hr_utility.set_location(l_proc,180);
7638: ghr_element_api.process_sf52_element
7639: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7640: ,p_element_name => 'Premium Pay'
7641: ,p_input_value_name1 => 'Premium Pay Ind'
7649: --
7650: -- process retirement_annuity
7651: --
7652: if p_retirement_annuity.retirement_annuity_flag = 'Y' then
7653: hr_utility.set_location(l_proc,190);
7654: ghr_element_api.process_sf52_element
7655: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7656: ,p_element_name => 'Retirement Annuity'
7657: ,p_input_value_name1 => 'Sum'
7666: --
7667: -- process severance_pay
7668: --
7669: if p_severance_pay.severance_pay_flag = 'Y' then
7670: hr_utility.set_location(l_proc,200);
7671: ghr_element_api.process_sf52_element
7672: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7673: ,p_element_name => 'Severance Pay'
7674: ,p_input_value_name1 => 'Amount'
7686: --
7687: -- process thrift_saving_plan
7688: --
7689: if p_thrift_saving_plan.tsp_flag = 'Y' then
7690: hr_utility.set_location(l_proc,210);
7691: IF ghr_utility.is_ghr_ben_tsp = 'TRUE' THEN
7692: NULL;
7693: ELSE
7694: -- Bug#4582970 Removed Agncy Elig Date, Emp Elig Date values.
7687: -- process thrift_saving_plan
7688: --
7689: if p_thrift_saving_plan.tsp_flag = 'Y' then
7690: hr_utility.set_location(l_proc,210);
7691: IF ghr_utility.is_ghr_ben_tsp = 'TRUE' THEN
7692: NULL;
7693: ELSE
7694: -- Bug#4582970 Removed Agncy Elig Date, Emp Elig Date values.
7695: ghr_element_api.process_sf52_element
7706: fnd_date.date_to_displaydate(fnd_date.canonical_to_date(p_thrift_saving_plan.status_date)) --AVR
7707: ,p_effective_date => l_effective_date
7708: ,p_process_warning => l_warning
7709: );
7710: END IF; -- IF ghr_utility.is_ghr_ben_tsp
7711: end if;
7712: --
7713: --Pradeep.
7714: --Process MDDDS Special Pay
7712: --
7713: --Pradeep.
7714: --Process MDDDS Special Pay
7715: if p_mddds_special_pay.mddds_special_pay_flag = 'Y' then
7716: hr_utility.set_location(l_proc,215);
7717:
7718: --Bug 3531369
7719: p_mddds_special_pay.amount := NVL(p_mddds_special_pay.Full_Time_Status,0) + NVL(p_mddds_special_pay.Length_of_Service,0) +
7720: NVL(p_mddds_special_pay.Scarce_Specialty,0) + NVL(p_mddds_special_pay.Specialty_or_Board_Cert,0) +
7751:
7752: --
7753: --Pradeep
7754: If p_mddds_special_pay.premium_pay_ind is not null then
7755: hr_utility.set_location(l_proc,220);
7756: ghr_element_api.process_sf52_element
7757: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7758: ,p_element_name => 'Premium Pay'
7759: ,p_input_value_name1 => 'Premium Pay Ind'
7768:
7769: --
7770: --Pradeep
7771: If p_premium_pay_ind.premium_pay_ind is not null then
7772: hr_utility.set_location(l_proc,225);
7773: ghr_element_api.process_sf52_element
7774: (p_assignment_id => p_pa_request_rec.employee_assignment_id
7775: ,p_element_name => 'Premium Pay'
7776: ,p_input_value_name1 => 'Premium Pay Ind'
7782:
7783:
7784: -- Bug#4486823 RRR Changes
7785: -- Process Incentive elements
7786: hr_utility.set_location('first noa '||p_pa_request_rec.first_noa_code ||';second noa :'||p_pa_request_rec.second_noa_code,50);
7787: hr_utility.set_location('noa family :'||p_pa_request_rec.noa_family_code,55);
7788: IF (p_pa_request_rec.noa_family_code = 'GHR_INCENTIVE') OR
7789: (p_pa_request_rec.first_noa_code = '002' AND p_pa_request_rec.second_noa_desc like '%Incentive%') OR
7790: (p_pa_request_rec.first_noa_code = '825' OR p_pa_request_rec.second_noa_code = '825' ) THEN
7783:
7784: -- Bug#4486823 RRR Changes
7785: -- Process Incentive elements
7786: hr_utility.set_location('first noa '||p_pa_request_rec.first_noa_code ||';second noa :'||p_pa_request_rec.second_noa_code,50);
7787: hr_utility.set_location('noa family :'||p_pa_request_rec.noa_family_code,55);
7788: IF (p_pa_request_rec.noa_family_code = 'GHR_INCENTIVE') OR
7789: (p_pa_request_rec.first_noa_code = '002' AND p_pa_request_rec.second_noa_desc like '%Incentive%') OR
7790: (p_pa_request_rec.first_noa_code = '825' OR p_pa_request_rec.second_noa_code = '825' ) THEN
7791: hr_utility.set_location('before calling process_incentive_elements'||p_pa_request_rec.pa_request_id,10);
7787: hr_utility.set_location('noa family :'||p_pa_request_rec.noa_family_code,55);
7788: IF (p_pa_request_rec.noa_family_code = 'GHR_INCENTIVE') OR
7789: (p_pa_request_rec.first_noa_code = '002' AND p_pa_request_rec.second_noa_desc like '%Incentive%') OR
7790: (p_pa_request_rec.first_noa_code = '825' OR p_pa_request_rec.second_noa_code = '825' ) THEN
7791: hr_utility.set_location('before calling process_incentive_elements'||p_pa_request_rec.pa_request_id,10);
7792: IF p_pa_request_rec.pa_incentive_payment_option = 'B' THEN
7793: l_total_salary := p_pa_request_rec.to_total_salary;
7794: ELSE
7795: l_total_salary := NULL;
7804: );
7805: END IF;
7806: --
7807:
7808: hr_utility.set_location('Leaving ' ||l_proc,60);
7809: --
7810: Exception when others then
7811: --
7812: -- Reset IN OUT parameters and set OUT parameters
7917: l_dummy_date date;
7918: l_pos_ei_data per_position_extra_info%ROWTYPE;
7919:
7920: Begin
7921: hr_utility.set_location('entering ' || l_proc,5);
7922: If nvl(p_pa_request_rec.pay_Rate_determinant,hr_api.g_varchar2) in ('A','B','E','F') then
7923: for next_from_step in c_next_Step loop
7924: hr_utility.set_location(l_proc,34);
7925: l_step_or_rate := next_from_step.to_step;
7920: Begin
7921: hr_utility.set_location('entering ' || l_proc,5);
7922: If nvl(p_pa_request_rec.pay_Rate_determinant,hr_api.g_varchar2) in ('A','B','E','F') then
7923: for next_from_step in c_next_Step loop
7924: hr_utility.set_location(l_proc,34);
7925: l_step_or_rate := next_from_step.to_step;
7926: end loop;
7927: Else
7928: -- get the user table id for the position in all other cases .
7983: End get_gm_wgi_dates;
7984:
7985: begin
7986:
7987: hr_utility.set_location('Entering ' || l_proc,5);
7988: l_initial_wgi_due_date := p_wgi_due_date;
7989:
7990: p_wgi_pay_date := null;
7991:
7999: End loop;
8000: End if;
8001:
8002: If l_payroll_id is null then
8003: hr_utility.set_location(l_proc,20);
8004: hr_utility.set_message(8301,'GHR_38268_ASG_NO_PAYROLL');
8005: hr_utility.raise_error;
8006: End if;
8007:
8000: End if;
8001:
8002: If l_payroll_id is null then
8003: hr_utility.set_location(l_proc,20);
8004: hr_utility.set_message(8301,'GHR_38268_ASG_NO_PAYROLL');
8005: hr_utility.raise_error;
8006: End if;
8007:
8008: hr_utility.set_location('PAYROLLID ' || to_char(l_payroll_id),1);
8001:
8002: If l_payroll_id is null then
8003: hr_utility.set_location(l_proc,20);
8004: hr_utility.set_message(8301,'GHR_38268_ASG_NO_PAYROLL');
8005: hr_utility.raise_error;
8006: End if;
8007:
8008: hr_utility.set_location('PAYROLLID ' || to_char(l_payroll_id),1);
8009:
8004: hr_utility.set_message(8301,'GHR_38268_ASG_NO_PAYROLL');
8005: hr_utility.raise_error;
8006: End if;
8007:
8008: hr_utility.set_location('PAYROLLID ' || to_char(l_payroll_id),1);
8009:
8010: -- Calculate WGI only when PRD is one of the foll.
8011:
8012: If p_pa_request_rec.pay_rate_determinant in ('0','5','6','7','M') then
8020: p_effective_date => p_pa_request_rec.effective_date,
8021: p_pa_request_id => p_pa_request_rec.pa_request_id
8022: );
8023: l_pay_plan := l_retained_grade_rec.pay_plan;
8024: hr_utility.set_location('temp_step is ' || l_retained_grade_rec.temp_step,1);
8025: If l_retained_grade_rec.temp_step is not null
8026: then
8027: l_step_or_rate := l_retained_grade_rec.temp_step;
8028: l_pay_plan := p_pa_request_rec.to_pay_plan; -- Fix for bug 3023252
8025: If l_retained_grade_rec.temp_step is not null
8026: then
8027: l_step_or_rate := l_retained_grade_rec.temp_step;
8028: l_pay_plan := p_pa_request_rec.to_pay_plan; -- Fix for bug 3023252
8029: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,1);
8030: hr_utility.set_location('New pay plan is ' || l_pay_plan,1);
8031: else
8032: l_step_or_rate := l_retained_grade_rec.step_or_rate;
8033: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,2);
8026: then
8027: l_step_or_rate := l_retained_grade_rec.temp_step;
8028: l_pay_plan := p_pa_request_rec.to_pay_plan; -- Fix for bug 3023252
8029: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,1);
8030: hr_utility.set_location('New pay plan is ' || l_pay_plan,1);
8031: else
8032: l_step_or_rate := l_retained_grade_rec.step_or_rate;
8033: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,2);
8034: end if; -- If l_retained_grade_rec.temp_step is not null
8029: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,1);
8030: hr_utility.set_location('New pay plan is ' || l_pay_plan,1);
8031: else
8032: l_step_or_rate := l_retained_grade_rec.step_or_rate;
8033: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,2);
8034: end if; -- If l_retained_grade_rec.temp_step is not null
8035: l_grade_or_level := l_retained_grade_rec.grade_or_level;
8036: l_user_table_id := l_retained_grade_rec.user_table_id;
8037: If p_pa_request_rec.first_noa_code in ('867','892','893')
8052: ELSE
8053: l_step_or_rate := l_retained_grade_rec.step_or_rate + 1;
8054: END IF;
8055: END IF; -- If l_retained_grade_rec.temp_step is not null
8056: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,3);
8057: hr_utility.set_location('temp_step is ' || p_retained_grade_rec.temp_step,2);
8058: p_retained_grade_rec.step_or_rate := l_step_or_rate;
8059: p_retained_Grade_rec.person_extra_info_id := l_retained_grade_rec.person_extra_info_id;
8060: End if; -- If p_pa_request_rec.first_noa_code in ('867',
8053: l_step_or_rate := l_retained_grade_rec.step_or_rate + 1;
8054: END IF;
8055: END IF; -- If l_retained_grade_rec.temp_step is not null
8056: hr_utility.set_location('New Step or Rate for Ret Grd Rec. is ' || l_step_or_rate,3);
8057: hr_utility.set_location('temp_step is ' || p_retained_grade_rec.temp_step,2);
8058: p_retained_grade_rec.step_or_rate := l_step_or_rate;
8059: p_retained_Grade_rec.person_extra_info_id := l_retained_grade_rec.person_extra_info_id;
8060: End if; -- If p_pa_request_rec.first_noa_code in ('867',
8061:
8072:
8073:
8074: If l_pay_plan is not null then
8075: If p_wgi_due_date is null then
8076: hr_utility.set_location(l_proc,10);
8077: If l_pay_plan = 'GM' then
8078: get_gm_wgi_dates;
8079: -- Null;
8080: Else
8077: If l_pay_plan = 'GM' then
8078: get_gm_wgi_dates;
8079: -- Null;
8080: Else
8081: hr_utility.set_location(l_proc,15);
8082: -- Changed FOR LOOP, and showing error message conditionally. Dinesh Jan 12, 98
8083: open c_equiv_pay_plan;
8084: fetch c_equiv_pay_plan into equiv_pay_plan;
8085: l_eq_pay_plan := equiv_pay_plan.equivalent_pay_plan;
8085: l_eq_pay_plan := equiv_pay_plan.equivalent_pay_plan;
8086: l_maximum_step := equiv_pay_plan.maximum_step;
8087: if c_equiv_pay_plan%FOUND then
8088: If l_eq_pay_plan is null then
8089: hr_utility.set_location(l_proc,26);
8090: hr_utility.set_message(8301,'GHR_38269_NO_EQ_PAY_PLAN');
8091: hr_utility.raise_error;
8092: End if;
8093: else
8086: l_maximum_step := equiv_pay_plan.maximum_step;
8087: if c_equiv_pay_plan%FOUND then
8088: If l_eq_pay_plan is null then
8089: hr_utility.set_location(l_proc,26);
8090: hr_utility.set_message(8301,'GHR_38269_NO_EQ_PAY_PLAN');
8091: hr_utility.raise_error;
8092: End if;
8093: else
8094: hr_utility.set_location(l_proc,25);
8087: if c_equiv_pay_plan%FOUND then
8088: If l_eq_pay_plan is null then
8089: hr_utility.set_location(l_proc,26);
8090: hr_utility.set_message(8301,'GHR_38269_NO_EQ_PAY_PLAN');
8091: hr_utility.raise_error;
8092: End if;
8093: else
8094: hr_utility.set_location(l_proc,25);
8095: close c_equiv_pay_plan;
8090: hr_utility.set_message(8301,'GHR_38269_NO_EQ_PAY_PLAN');
8091: hr_utility.raise_error;
8092: End if;
8093: else
8094: hr_utility.set_location(l_proc,25);
8095: close c_equiv_pay_plan;
8096: return;
8097: end if;
8098: close c_equiv_pay_plan;
8097: end if;
8098: close c_equiv_pay_plan;
8099:
8100:
8101: hr_utility.set_location(l_proc,30);
8102:
8103: -- proceed only if the to_step_or_rate is less than the maximum step
8104:
8105: hr_utility.set_location('Step or rate ' || l_step_or_rate,1);
8101: hr_utility.set_location(l_proc,30);
8102:
8103: -- proceed only if the to_step_or_rate is less than the maximum step
8104:
8105: hr_utility.set_location('Step or rate ' || l_step_or_rate,1);
8106: hr_utility.set_location('Max. Step or rate ' || l_maximum_step,1);
8107: l_from_step := l_step_or_rate;
8108:
8109: If to_number(l_step_or_rate) < to_number(l_maximum_step) then
8102:
8103: -- proceed only if the to_step_or_rate is less than the maximum step
8104:
8105: hr_utility.set_location('Step or rate ' || l_step_or_rate,1);
8106: hr_utility.set_location('Max. Step or rate ' || l_maximum_step,1);
8107: l_from_step := l_step_or_rate;
8108:
8109: If to_number(l_step_or_rate) < to_number(l_maximum_step) then
8110: hr_utility.set_location('step or rate less than max. ' || l_step_or_rate,1);
8106: hr_utility.set_location('Max. Step or rate ' || l_maximum_step,1);
8107: l_from_step := l_step_or_rate;
8108:
8109: If to_number(l_step_or_rate) < to_number(l_maximum_step) then
8110: hr_utility.set_location('step or rate less than max. ' || l_step_or_rate,1);
8111:
8112: IF (p_pa_request_rec.first_noa_code = '892' or p_pa_request_rec.second_noa_code = '892') AND
8113: (p_retained_grade_rec.step_or_rate not in (4,7,10) or l_from_step not in (4,7,10))
8114: THEN
8111:
8112: IF (p_pa_request_rec.first_noa_code = '892' or p_pa_request_rec.second_noa_code = '892') AND
8113: (p_retained_grade_rec.step_or_rate not in (4,7,10) or l_from_step not in (4,7,10))
8114: THEN
8115: hr_utility.set_location('Do not calc. WGI Dates for all steps in QSI ',1);
8116: -- Start of Bug 3111719
8117: -- Return the current WGI due date for steps other than 4,7,10 in QSI.
8118: ghr_history_fetch.fetch_element_entry_value
8119: (p_element_name => 'Within Grade Increase',
8136: p_screen_entry_value => l_lei_date
8137: );
8138: p_wgi_due_date := fnd_date.canonical_to_date(l_lei_date);
8139: ELSE
8140: hr_utility.set_location(l_proc,40);
8141: If l_from_Step is not null then
8142: for waiting_period in c_waiting_period loop
8143: hr_utility.set_location(l_proc,45);
8144: l_wait_period := waiting_period.waiting_period;
8139: ELSE
8140: hr_utility.set_location(l_proc,40);
8141: If l_from_Step is not null then
8142: for waiting_period in c_waiting_period loop
8143: hr_utility.set_location(l_proc,45);
8144: l_wait_period := waiting_period.waiting_period;
8145: end loop;
8146: If (p_pa_request_rec.first_noa_code = '892' or p_pa_request_rec.second_noa_code = '892') and
8147: (p_retained_grade_rec.step_or_rate in (4,7) or l_from_step in (4,7)) then
8153: p_date_effective => p_pa_request_rec.effective_date,
8154: p_screen_entry_value => l_wgi_due_date
8155: );
8156:
8157: hr_utility.set_location(l_proc,25);
8158: p_wgi_due_date := fnd_date.canonical_to_date(l_wgi_due_date) + 364;
8159: -- If it's NOA 713 and DLEI is entered, it enters here
8160: -- Need to use DLEI to calculate WGI due date instead of effective date
8161: -- Code added as part of WGI Enhancments/Bug fixes
8159: -- If it's NOA 713 and DLEI is entered, it enters here
8160: -- Need to use DLEI to calculate WGI due date instead of effective date
8161: -- Code added as part of WGI Enhancments/Bug fixes
8162: ELSIF (p_pa_request_rec.first_noa_code = '713' or p_pa_request_rec.second_noa_code = '713') THEN
8163: hr_utility.set_location('Entering 713 - dlei is not null',333);
8164: p_wgi_due_date := p_dlei + l_wait_period;
8165: -- End WGI Changes for NOA 713
8166: ELSE
8167: If l_wait_period is not null then
8164: p_wgi_due_date := p_dlei + l_wait_period;
8165: -- End WGI Changes for NOA 713
8166: ELSE
8167: If l_wait_period is not null then
8168: hr_utility.set_location(l_proc,26);
8169: p_wgi_due_date := p_pa_request_rec.effective_date + l_wait_period;
8170: END IF;
8171: END IF;
8172: END IF;
8172: END IF;
8173: END IF; -- Case 892 --01/Feb
8174: Else -- else for l_step_or_rate < l_maximum_step
8175: -- if the employee has reached the max. step
8176: hr_utility.set_location('emp. has reached the max. step',2);
8177: p_wgi_due_date := null; -- Venkat -- Uncommented bug #954104
8178: p_wgi_pay_date := null;
8179: End if;
8180: End if; -- GM pay plan check
8179: End if;
8180: End if; -- GM pay plan check
8181: End if; -- WGI due date is Null
8182:
8183: hr_utility.set_location('DUE DATE ' || to_char(p_wgi_due_date),1);
8184: If p_wgi_due_date is not null then
8185: hr_utility.set_location(l_proc,55);
8186: for next_pay_date in c_next_pay_date loop
8187: hr_utility.set_location(l_proc,60);
8181: End if; -- WGI due date is Null
8182:
8183: hr_utility.set_location('DUE DATE ' || to_char(p_wgi_due_date),1);
8184: If p_wgi_due_date is not null then
8185: hr_utility.set_location(l_proc,55);
8186: for next_pay_date in c_next_pay_date loop
8187: hr_utility.set_location(l_proc,60);
8188: p_wgi_pay_date := next_pay_date.start_date;
8189: exit;
8183: hr_utility.set_location('DUE DATE ' || to_char(p_wgi_due_date),1);
8184: If p_wgi_due_date is not null then
8185: hr_utility.set_location(l_proc,55);
8186: for next_pay_date in c_next_pay_date loop
8187: hr_utility.set_location(l_proc,60);
8188: p_wgi_pay_date := next_pay_date.start_date;
8189: exit;
8190: end loop;
8191: End if;
8188: p_wgi_pay_date := next_pay_date.start_date;
8189: exit;
8190: end loop;
8191: End if;
8192: hr_utility.set_location('Leaving ' ||l_proc,65);
8193: End if;
8194: Exception when others then
8195: --
8196: -- Reset IN OUT parameters and set OUT parameters
8248: where person_analysis_id = p_segment_rec.person_analysis_id;
8249:
8250: BEGIN
8251:
8252: hr_utility.set_location('Entering ' || l_proc,5);
8253:
8254: for bgpid in c_bgpid loop
8255: l_business_group_id := bgpid.business_group_id;
8256: end loop;
8256: end loop;
8257:
8258: -- Get the id_flex_num
8259: for flex_num in c_flex_num loop
8260: hr_utility.set_location(l_proc,12);
8261: l_id_flex_num := flex_num.id_flex_num;
8262: end loop;
8263: hr_utility.set_location(l_proc,15);
8264:
8259: for flex_num in c_flex_num loop
8260: hr_utility.set_location(l_proc,12);
8261: l_id_flex_num := flex_num.id_flex_num;
8262: end loop;
8263: hr_utility.set_location(l_proc,15);
8264:
8265: for multiple_occur in c_multiple_occur loop
8266: hr_utility.set_location(l_proc,36);
8267: l_multiple := multiple_occur.multiple_occurrences_flag;
8262: end loop;
8263: hr_utility.set_location(l_proc,15);
8264:
8265: for multiple_occur in c_multiple_occur loop
8266: hr_utility.set_location(l_proc,36);
8267: l_multiple := multiple_occur.multiple_occurrences_flag;
8268: end loop;
8269:
8270: l_object_version_number := p_segment_rec.object_version_number;
8271: l_person_analysis_id := p_segment_rec.person_analysis_id;
8272:
8273:
8274: if p_segment_rec.person_analysis_id is null then
8275: hr_utility.set_location(l_proc,25);
8276: begin
8277: savepoint cr_sit;
8278: hr_sit_api.create_sit
8279: (p_person_id => p_pa_request_rec.person_id,
8318: Exception when others then
8319: rollback to cr_sit;
8320: raise;
8321: End;
8322: hr_utility.set_location(l_proc,30);
8323: Else
8324: Begin
8325: -- Bug#4054110,4069798 Fetching the SIT start date for SIT US Fed Perf Apprisal.
8326: IF p_special_information_type = 'US Fed Perf Appraisal' THEN