[Home] [Help]
14: -- If the status is changed to 'END' then if there are any future
15: -- changes then disallow the update.
16: ---
17: begin
18: hr_utility.set_location('Entering: '|| 'PER_ASSIGNMENTS_F3_PKG.process_end_status', 5);
19: if p_eff_end_date < p_eot then
20: fnd_message.set_name('PAY', 'HR_6071_APP_ASS_INVALID_END');
21: fnd_message.raise_error;
22: end if;
25: -- effective delete.
26: --
27: hr_assignment.del_ref_int_check(p_ass_id, 'END', p_sess_date);
28: --
29: hr_utility.set_location('Leaving: '|| 'PER_ASSIGNMENTS_F3_PKG.process_end_status', 5);
30: end process_end_status;
31: ---------------------------------------------------------------------------
32: procedure process_term_status(
33: p_ass_id number,
47: where s.assignment_status_type_id =
48: a.assignment_status_type_id
49: and s.per_system_status <> 'TERM_ASSIGN');
50: begin
51: hr_utility.set_location('Entering: '|| 'PER_ASSIGNMENTS_F3_PKG.process_term_status' , 5);
52: open term_assign;
53: fetch term_assign into l_dummy;
54: if term_assign%found then
55: fnd_message.set_name('PAY', 'HR_6387_EMP_ASS_INVALID_TERM');
72: -- HR_ASSIGNMENT.CHECK_ASS_FOR_PRIMARY performs these checks on an
73: -- assignment that has had its PRIMARY FLAG set to 'Yes'
74: --
75: begin
76: hr_utility.set_location('Entering: '|| 'PER_ASSIGNMENTS_F3_PKG.validate_primary_flag.' , 5);
77: hr_assignment.check_ass_for_primary(
78: p_pd_os_id,
79: p_ass_id,
80: p_val_st_date);
98: -- "leading TERM_ASSIGN" to be implicitly created (i.e. a row in the
99: -- future becomes the "leading TERM_ASSIGN").
100: --
101: begin
102: hr_utility.set_location('Entering: '|| 'PER_ASSIGNMENTS_F3_PKG.test_for_cancel_term' , 5);
103: hr_assignment.test_for_cancel_reterm(
104: p_ass_id,
105: p_val_start_date,
106: p_val_end_date,
161: -- shown on the client to select from a list of primary candidate
162: -- assignments.
163: --
164: begin
165: hr_utility.set_location('per_assignments_f3_pkg.check_future_primary',1);
166: p_show_cand_prim_assgts := null;
167: if p_dt_mode = 'UPDATE_OVERRIDE' then
168: l_start_date := p_val_start_date;
169: l_prim_flag := p_prim_flag;
175: -- Note last 3 parameters return values from server-side procedure.
176: -- The last is OUT only so no need to get p_prim_date_from, we will
177: -- only write to the item.
178: --
179: hr_utility.set_location('per_assignments_f3_pkg.check_future_primary',2);
180: hr_assignment.check_future_primary(
181: p_ass_id,
182: l_start_date,
183: p_eff_end_date,
186: p_prim_change_flag,
187: p_new_prim_flag,
188: p_prim_date_from);
189: --
190: hr_utility.trace('Primary Effective From '||
191: to_char(p_prim_date_from,'DD-MON-YYYY'));
192: --
193: if p_prim_change_flag = 'N' or p_new_prim_flag = 'Y' then
194: return;
196: --
197: -- As above, last parameter is OUT only - it's actually a varchar2
198: -- returning a number value!
199: --
200: hr_utility.set_location('per_assignments_f3_pkg.check_future_primary',3);
201: hr_assignment.get_new_primary_assignment(
202: p_ass_id,
203: p_pd_os_id,
204: l_start_date,
203: p_pd_os_id,
204: l_start_date,
205: p_new_prim_ass_id);
206: --
207: hr_utility.trace('New Primary is '||p_new_prim_ass_id);
208: --
209: if hr_utility.check_warning then
210: p_show_cand_prim_assgts := 'Y';
211: end if;
205: p_new_prim_ass_id);
206: --
207: hr_utility.trace('New Primary is '||p_new_prim_ass_id);
208: --
209: if hr_utility.check_warning then
210: p_show_cand_prim_assgts := 'Y';
211: end if;
212: --
213: end check_future_primary;
254: l_warning varchar2(80);
255: l_new_end_date date;
256: l_show_cand_prim_assgts varchar2(1);
257: begin
258: hr_utility.set_location('Entering: '|| 'PER_ASSIGNMENTS_F3_PKG.pre_update_bundle2' , 5);
259: --
260: -- NB RE_ENTRY_POINT_1 is no longer used but kept in so that
261: -- RE_ENTRY_POINT_2 will behave in the same way.
262: --
310: end if;
311: --
312: <
313: --
314: hr_utility.set_location('PER_ASSIGNMENTS_F3_PKG.pre_update_bundle2' , 10);
315: if p_per_sys_st = 'END' then
316: process_end_status(
317: p_ass_id,
318: p_sess_date,
330: -- of other primary flags is necessary.
331: --
332: p_copy_y_to_prim_ch := null;
333: --
334: hr_utility.set_location('PER_ASSIGNMENTS_F3_PKG.pre_update_bundle2' , 20);
335: if p_s_prim_flag = p_prim_flag then
336: if p_upd_mode = 'UPDATE_OVERRIDE' then
337: check_future_primary(
338: p_upd_mode,
374: --
375: -- Now check the changing of term_assign's with relation to it's
376: -- impact on element entries (G255).
377: --
378: hr_utility.set_location('PER_ASSIGNMENTS_F3_PKG.pre_update_bundle2' , 30);
379: test_for_cancel_term(
380: p_ass_id,
381: p_val_st_date,
382: p_val_end_date,
402: end if;
403: --
404: p_re_entry_point := 0;
405: --
406: hr_utility.set_location('Leaving: '|| 'PER_ASSIGNMENTS_F3_PKG.pre_update_bundle2' , 40);
407: end pre_update_bundle2;
408: -----------------------------------------------------------------------------
409: --
410: -- UPDATE_AND_DELETE_BUNDLE: procedure to bundle procedure calls which follow
589: /* Bug 9109727 */
590:
591: begin
592: p_returned_warning := null;
593: hr_utility.clear_warning;
594: --
595: hr_utility.set_location('per_assignments_f3_pkg.update_and_delete_bundle',1);
596: hr_utility.trace('RE_ENTRY_POINT is '||to_char(p_re_entry_point));
597:
591: begin
592: p_returned_warning := null;
593: hr_utility.clear_warning;
594: --
595: hr_utility.set_location('per_assignments_f3_pkg.update_and_delete_bundle',1);
596: hr_utility.trace('RE_ENTRY_POINT is '||to_char(p_re_entry_point));
597:
598: --Bug# 5758747
599: OPEN get_leg_code;
592: p_returned_warning := null;
593: hr_utility.clear_warning;
594: --
595: hr_utility.set_location('per_assignments_f3_pkg.update_and_delete_bundle',1);
596: hr_utility.trace('RE_ENTRY_POINT is '||to_char(p_re_entry_point));
597:
598: --Bug# 5758747
599: OPEN get_leg_code;
600: FETCH get_leg_code INTO l_leg_code;
639: hr_assignment.check_for_cobra(
640: p_ass_id,
641: p_val_st_date,
642: p_val_end_date);
643: if hr_utility.check_warning then
644: p_returned_warning := 'HR_ASS_TERM_COBRA_EXISTS';
645: p_re_entry_point := 1;
646: return;
647: end if;
651: return;
652: end if;
653: --
654: <
655: hr_utility.trace('RE_ENTRY_POINT1');
656: --
657: -- WARN_TERM_BY_POS:
658: --
659: -- Warn user if the operation will remove an assignment with
680: l_dt_mode,
681: l_start_date,
682: p_eff_end_date);
683: --
684: if hr_utility.check_warning then
685: p_returned_warning := 'HR_EMP_ASS_TERM_FOUND';
686: p_re_entry_point := 2;
687: return;
688: end if;
691: return;
692: end if;
693: --
694: <
695: hr_utility.trace('RE_ENTRY_POINT2');
696:
697: --
698: -- Bug# 1321860
699: -- Description : Removed the future payroll action check condition.
741: --
742: -- End date the proposal. This should end date the element entry as well.
743: --
744: If l_del_proposal_change_dt < l_val_start_date then
745: hr_utility.set_location('End date proposal',25);
746: hr_maintain_proposal_api.update_salary_proposal(
747: p_validate => false,
748: p_pay_proposal_id => l_Del_proposal_Id,
749: p_date_to => l_val_start_date - 1,
768: ,p_lookup_type => 'PROPOSAL_REASON'
769: ,p_lookup_code => 'SALBASISCHG'
770: )
771: then
772: hr_utility.set_location('proposal_reason set to null', 26);
773: l_proposal_reason :=null;
774: else
775: hr_utility.set_location('proposal_reason set to SALBASISCHG', 27);
776: l_proposal_reason := 'SALBASISCHG';
771: then
772: hr_utility.set_location('proposal_reason set to null', 26);
773: l_proposal_reason :=null;
774: else
775: hr_utility.set_location('proposal_reason set to SALBASISCHG', 27);
776: l_proposal_reason := 'SALBASISCHG';
777: end if;
778: -- End changes for bug 10145976
779:
797: ********** Commented out for bug fix 9128059. This code has been moved to ASSGT.POST-UPDATE trigger, form PERWSEMA.fmb ***********/
798:
799: Elsif l_del_proposal_change_dt = l_val_start_date THEN
800: -- Zap the proposal and the element entry.
801: hr_utility.set_location('Zap proposal',25);
802:
803: Hr_Maintain_Proposal_Api.DELETE_SALARY_PROPOSAL
804: (P_PAY_PROPOSAL_ID => l_Del_proposal_Id
805: ,P_BUSINESS_GROUP_ID => l_del_bg_id
817: ,p_lookup_type => 'PROPOSAL_REASON'
818: ,p_lookup_code => 'SALBASISCHG'
819: )
820: then
821: hr_utility.set_location('proposal_reason set to null', 26);
822: l_proposal_reason :=null;
823: else
824: hr_utility.set_location('proposal_reason set to SALBASISCHG', 27);
825: l_proposal_reason := 'SALBASISCHG';
820: then
821: hr_utility.set_location('proposal_reason set to null', 26);
822: l_proposal_reason :=null;
823: else
824: hr_utility.set_location('proposal_reason set to SALBASISCHG', 27);
825: l_proposal_reason := 'SALBASISCHG';
826: end if;
827: -- End changes for bug 10161268
828:
846:
847: -- fix for the bug 9446176 ends here
848:
849: Else
850: hr_utility.set_location('Should never come here',25);
851: null;
852: End if;
853:
854: /***
912: return;
913: end if;
914: --
915: <
916: hr_utility.trace('CHECK_TERM_COBRA');
917: --
918: -- CHECK_TERM_COBRA:
919: --
920: --Bug# 5758747
923: p_ass_id,
924: p_val_st_date,
925: p_val_end_date);
926: --
927: if hr_utility.check_warning then
928: p_returned_warning := 'HR_ASS_TERM_COBRA_EXISTS';
929: p_re_entry_point := 3;
930: return;
931: end if;
931: end if;
932: END IF;
933: --
934: <
935: hr_utility.trace('RE_ENTRY_POINT3');
936: --
937: -- CHECK_SPP_AND_CEIL:
938: --
939: -- Check to see if there are any placements for the assignment that
942: -- linked to a grade spine record whose grade id is the same as
943: -- ASS.GRADE_ID.
944: --
945: if p_grd_id is not null and p_sp_ceil_st_id is not null then
946: hr_utility.set_location ('RE_ENTRY_POINT3 ' ||p_dt_mode,10 );
947: hr_utility.set_location ('p_eff_st_date ' ||p_eff_st_date,10 );
948:
949: open sp_point;
950: fetch sp_point into l_null;
943: -- ASS.GRADE_ID.
944: --
945: if p_grd_id is not null and p_sp_ceil_st_id is not null then
946: hr_utility.set_location ('RE_ENTRY_POINT3 ' ||p_dt_mode,10 );
947: hr_utility.set_location ('p_eff_st_date ' ||p_eff_st_date,10 );
948:
949: open sp_point;
950: fetch sp_point into l_null;
951: if sp_point%found then
977: -- end of fix for the bug 4612843
978: --
979: p_re_entry_point := 0;
980: --
981: hr_utility.set_location('per_assignments_f3_pkg.update_and_delete_bundle',2);
982: --
983: end update_and_delete_bundle;
984: -----------------------------------------------------------------------------
985: END PER_ASSIGNMENTS_F3_PKG;