[Home] [Help]
1: PACKAGE BODY PER_ASSIGNMENTS_F2_PKG AS
2: /* $Header: peasg01t.pkb 120.29.12010000.3 2008/09/29 05:42:27 ubhat ship $ */
3: g_package varchar2(24) := 'PER_ASSIGNMENTS_F2_PKG.';
4: g_debug boolean; -- debug flag
5: --
1: PACKAGE BODY PER_ASSIGNMENTS_F2_PKG AS
2: /* $Header: peasg01t.pkb 120.29.12010000.3 2008/09/29 05:42:27 ubhat ship $ */
3: g_package varchar2(24) := 'PER_ASSIGNMENTS_F2_PKG.';
4: g_debug boolean; -- debug flag
5: --
6:
7: -----------------------------------------------------------------------------
41: ass.assignment_status_type_id,
42: ass.primary_flag,
43: ass.special_ceiling_step_id,
44: pb.pay_basis
45: from per_assignments_f ass,
46: per_assignment_status_types st,
47: per_ass_status_type_amends amd,
48: per_pay_bases pb
49: where ass.rowid = P_ROW_ID
84: if get_assgt%notfound then
85: close get_assgt;
86: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
87: fnd_message.set_token('PROCEDURE',
88: 'PER_ASSIGNMENTS_F2_PKG.GET_SAVE_FIELDS');
89: fnd_message.set_token('STEP', '1');
90: fnd_message.raise_error;
91: end if;
92: --
99: end get_save_fields;
100: -----------------------------------------------------------------------------
101: --
102: -- Procedure to check Personnel-type attributes of assignment record.
103: -- This is called pre-insert and pre-update into per_assignments_f.
104: --
105: procedure iu_non_payroll_checks (
106: p_per_id number,
107: p_sess_date date,
142: -- CHECK FOR CURRENT EMPLOYEE:
143: -- Check database for current_employee flag because another user
144: -- may have changed the flag since querying the person
145: --
146: hr_utility.set_location('per_assignments_f2_pkg.iu_non_payroll_checks',1);
147: open curr_emp;
148: fetch curr_emp into l_null;
149: if curr_emp%notfound then
150: close curr_emp;
155: --
156: -- CHECK VALID STATUS:
157: -- Check that the Status is still active.
158: --
159: hr_utility.set_location('per_assignments_f2_pkg.iu_non_payroll_checks',2);
160: hr_utility.trace('p_per_sys_st is '||p_per_sys_st);
161: hr_utility.trace('p_s_per_sys_st is '||p_s_per_sys_st);
162: hr_utility.trace('P_ASS_ST_TYPE_ID is '|| to_char(P_ASS_ST_TYPE_ID));
163: if (p_per_sys_st <> p_s_per_sys_st) or (p_s_per_sys_st is null) then
174: --
175: -- Check new assignment number - does not write back to parameter but
176: -- a local parameter must be used.
177: --
178: hr_utility.set_location('per_assignments_f2_pkg.iu_non_payroll_checks',3);
179: if p_ass_num is not null then
180: l_ass_num := p_ass_num;
181: hr_assignment.gen_new_ass_number(
182: p_ass_id,
396: and rule_type = 'TERMS'
397: and rule_mode = 'Y';
398: --
399: begin
400: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',10);
401: --
402: -- Get Yes/No, people group structure.
403: --
404: open pg_struct;
409: close pg_struct;
410: --
411: -- Now get default ACTIVE_ASSIGN user status.
412: --
413: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',20);
414: open def_assgt_status;
415: fetch def_assgt_status into
416: P_DEF_USER_ST,
417: P_DEF_ST_ID;
417: P_DEF_ST_ID;
418: if def_assgt_status%notfound then
419: close def_assgt_status;
420: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
421: fnd_message.set_token('PROCEDURE','PER_ASSIGNMENTS_F2_PKG.INITIATE_ASSIGNMENT');
422: fnd_message.set_token('STEP', '1');
423: fnd_message.raise_error;
424: end if;
425: close def_assgt_status;
423: fnd_message.raise_error;
424: end if;
425: close def_assgt_status;
426: --
427: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',30);
428: open valid_pos_grades;
429: fetch valid_pos_grades into l_dummy;
430: if valid_pos_grades%found then
431: P_VALID_POS_FLAG := 'Y';
431: P_VALID_POS_FLAG := 'Y';
432: end if;
433: close valid_pos_grades;
434: --
435: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',40);
436: open valid_job_grades;
437: fetch valid_job_grades into l_dummy;
438: if valid_job_grades%found then
439: P_VALID_JOB_FLAG := 'Y';
441: close valid_job_grades;
442: --
443: -- Get Person related info. if person id specified.
444: --
445: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',50);
446: if ( p_person_id is not null ) then
447: open get_pd_of_ser;
448: fetch get_pd_of_ser into l_dummy_dt, P_PERIOD_OF_SERVICE_ID;
449: if get_pd_of_ser%notfound then
456: --
457: -- Get Set Of Books info if AP is installed. This is required for
458: -- the GL flex.
459: --
460: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',55);
461: open is_ap_installed;
462: fetch is_ap_installed into l_sqlap_installed;
463: close is_ap_installed;
464: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',60);
460: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',55);
461: open is_ap_installed;
462: fetch is_ap_installed into l_sqlap_installed;
463: close is_ap_installed;
464: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',60);
465: --
466: if l_sqlap_installed = 'Y' then
467: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',70);
468: --
463: close is_ap_installed;
464: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',60);
465: --
466: if l_sqlap_installed = 'Y' then
467: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',70);
468: --
469: -- Clear p_gl_set_of_books_id and p_fsp_table_name before we
470: -- start, though they should be null anyway.
471: --
477: --
478: open sob_id;
479: fetch sob_id into l_gl_set_of_books_id;
480: if sob_id%FOUND then
481: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',80);
482: --
483: -- Bug 3270409
484: --
485: -- Even if there is exactly one set_of_books_id for the business group
490: --
491: P_ACCOUNTING_FLEXFIELD_OK_FLAG := 'Y';
492: P_GL_SET_OF_BOOKS_ID := NULL;
493: else
494: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',110);
495: --
496: -- There's no set of books for the business group.
497: -- Set the flex flag to N.
498: --
503: --
504: -- AP is not installed.
505: --
506: P_ACCOUNTING_FLEXFIELD_OK_FLAG := 'N';
507: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',120);
508: end if;
509:
510: --
511: -- Get the soft coded keyflex setup info.
518: (p_person_id => p_person_id2
519: ,p_effective_date => p_sess_date
520: ,p_system_person_type => 'EMP')
521: and (nvl(p_assignment_type,'E') = 'E')) THEN
522: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',130);
523: open scl;
524: fetch scl into P_SCL_ID_FLEX_NUM;
525: if scl%notfound then
526: P_NO_SCL := 'Y';
531: (p_person_id => p_person_id2
532: ,p_effective_date => p_sess_date
533: ,p_system_person_type => 'EX_EMP')
534: and (nvl(p_assignment_type,'E') = 'E')) THEN
535: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',135);
536: open scl;
537: fetch scl into P_SCL_ID_FLEX_NUM;
538: if scl%notfound then
539: P_NO_SCL := 'Y';
544: (p_person_id => p_person_id2
545: ,p_effective_date => p_sess_date
546: ,p_system_person_type => 'CWK')
547: and (nvl(p_assignment_type,'C') = 'C'))THEN
548: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',140);
549: open scl_cwk;
550: fetch scl_cwk into P_SCL_ID_FLEX_NUM;
551: if scl_cwk%notfound then
552: P_NO_SCL := 'Y';
552: P_NO_SCL := 'Y';
553: end if;
554: close scl_cwk;
555: ELSE
556: hr_utility.set_location('per_assignments_f2_pkg.initiate_assignment',150);
557: P_NO_SCL := 'Y';
558: END IF;
559:
560: if not P_NO_SCL = 'Y' then
586: end if;
587: close terms;
588: end if;
589: --
590: hr_utility.set_location('Leaving...:per_assignments_f2_pkg.initiate_assignment',200);
591: --
592: end initiate_assignment;
593: -----------------------------------------------------------------------------
594: procedure real_del_checks(
691: --
692: IF g_debug THEN
693: hr_utility.set_location( g_package || l_proc, 20);
694: END IF;
695: per_assignments_f3_pkg.update_and_delete_bundle(
696: null,
697: p_val_st_date,
698: p_eff_st_date,
699: p_eff_end_date,
774: and p.organization_id = P_ORG_ID;
775: --
776: cursor first_assgt is
777: select 1
778: from per_assignments_f a
779: where a.assignment_id = P_ASS_ID
780: and a.rowid <> P_ROW_ID
781: and a.effective_start_date < P_EFF_ST_DATE;
782: --
783: cursor ended_assgt is
784: select 1
785: from sys.dual
786: where L_EOT > (select max(effective_end_date)
787: from per_assignments_f
788: where assignment_id = P_ASS_ID);
789: --
790: -- Payroll Object Group functionality. Call to pay_pog_all_assignments_pkg
791: -- requires old assignment values, so using cursor to populate record with
955: end if;
956: close consistent_org;
957: end if;
958: --
959: -- Check if the assignment row from Per_assignments_f is the first
960: -- for this assignment id. If it is then the status must be
961: -- ACTIVE_ASSIGN.
962: --
963: IF g_debug THEN
1054: --
1055: -- CHECK_TERM_BY_POS, upd_mode = null
1056: --
1057: l_re_entry_point := 999;
1058: per_assignments_f3_pkg.update_and_delete_bundle(
1059: p_del_mode,
1060: p_val_st_date,
1061: p_eff_st_date,
1062: p_eff_end_date,
1079: --
1080: -- CHECK_SPP_AND_CEIL, upd_mode = null
1081: --
1082: l_re_entry_point := 3;
1083: per_assignments_f3_pkg.update_and_delete_bundle(
1084: p_del_mode,
1085: p_val_st_date,
1086: p_eff_st_date,
1087: p_eff_end_date,
1325: and p_eff_date between effective_start_date
1326: and effective_end_date;
1327: --
1328: begin
1329: hr_utility.set_location('per_assignments_f2_pkg.pre_delete',1);
1330: --
1331: -- Once again ignore l_new_end_date, even if it changes value, as
1332: -- the change should not be made if the validation fails (and if it
1333: -- succeeds then the record will be deleted anyway).
1366: -- N.B. This is the only point in whuch the p_new_end_date is
1367: -- passed as an IN OUT parameter. The value may change
1368: -- and the new value is required here
1369: --
1370: hr_utility.set_location('per_assignments_f2_pkg.pre_delete',2);
1371:
1372:
1373:
1374: per_assignments_f3_pkg.update_and_delete_bundle(
1370: hr_utility.set_location('per_assignments_f2_pkg.pre_delete',2);
1371:
1372:
1373:
1374: per_assignments_f3_pkg.update_and_delete_bundle(
1375: p_del_mode,
1376: p_val_st_date,
1377: p_eff_st_date,
1378: p_eff_end_date,
1398: end if;
1399: --
1400: elsif p_del_mode = 'ZAP' then
1401: --
1402: hr_utility.set_location('per_assignments_f2_pkg.pre_delete',20);
1403:
1404: real_del_checks(
1405: p_pd_os_id,
1406: p_ass_id,
1419: p_ceil_seq,
1420: p_pay_basis_id);--fix for bug 4764140
1421: end if;
1422: --
1423: hr_utility.set_location('per_assignments_f2_pkg.pre_delete',40);
1424: per_assignments_f3_pkg.check_future_primary(
1425: p_del_mode,
1426: p_val_st_date,
1427: p_prim_flag,
1420: p_pay_basis_id);--fix for bug 4764140
1421: end if;
1422: --
1423: hr_utility.set_location('per_assignments_f2_pkg.pre_delete',40);
1424: per_assignments_f3_pkg.check_future_primary(
1425: p_del_mode,
1426: p_val_st_date,
1427: p_prim_flag,
1428: p_eff_st_date,
1450: return;
1451: end if;
1452: --
1453: <
1454: hr_utility.set_location('per_assignments_f2_pkg.pre_delete',50);
1455: --
1456: -- Now check the changing of term_assign's with relation to it's
1457: -- impact on element entries (G255).
1458: --
1455: --
1456: -- Now check the changing of term_assign's with relation to it's
1457: -- impact on element entries (G255).
1458: --
1459: per_assignments_f3_pkg.test_for_cancel_term(
1460: p_ass_id,
1461: p_val_st_date,
1462: p_val_end_date,
1463: p_del_mode,
1474: -- LOV is only displayed once.
1475: --
1476: p_returned_warning := null;
1477: --
1478: hr_utility.set_location('per_assignments_f2_pkg.pre_delete',60);
1479: OPEN asg_details(p_ass_id, p_sess_date);
1480: FETCH asg_details into g_old_asg_rec;
1481: IF asg_details%NOTFOUND THEN
1482: CLOSE asg_details;
1484: ELSE
1485: CLOSE asg_details;
1486: END IF;
1487: --
1488: hr_utility.set_location(' leaving per_assignments_f2_pkg.pre_delete',70);
1489: end pre_delete;
1490: -----------------------------------------------------------------------------
1491: END PER_ASSIGNMENTS_F2_PKG;
1487: --
1488: hr_utility.set_location(' leaving per_assignments_f2_pkg.pre_delete',70);
1489: end pre_delete;
1490: -----------------------------------------------------------------------------
1491: END PER_ASSIGNMENTS_F2_PKG;