[Home] [Help]
1: PACKAGE BODY PER_POSITIONS_PKG as
2: /* $Header: pepos01t.pkb 120.0 2005/05/31 14:51:24 appldev noship $ */
3:
4: function exists_in_hierarchy(X_Pos_Structure_Version_Id NUMBER,
5: X_Position_Id NUMBER) return VARCHAR2 IS
267: select '1'
268: into l_exists
269: from sys.dual
270: where exists(select null
271: from per_positions
272: where successor_position_id = p_position_id);
273: exception when no_data_found then
274: null;
275: end;
285: select '1'
286: into l_exists
287: from sys.dual
288: where exists(select null
289: from per_positions
290: where relief_position_id = p_position_id);
291: exception when no_data_found then
292: null;
293: end;
424:
425:
426:
427:
428: CURSOR C2 IS SELECT per_positions_s.nextval FROM sys.dual;
429: BEGIN
430: null;
431: /*
432: if (X_Position_Id is NULL) then
437:
438: Check_Unique_Row(X_Rowid,X_position_id);
439: Check_Descriptor(X_Rowid,X_position_definition_id,x_business_group_id);
440:
441: INSERT INTO PER_POSITIONS(
442: position_id,
443: business_group_id,
444: job_id,
445: organization_id,
585: X_Attribute19 VARCHAR2,
586: X_Attribute20 VARCHAR2,
587: X_Status VARCHAR2
588: ) IS
589: -- 21st May 1997 Sue Grant bug no 474585: This used to do a select * from per_positions but it kept
590: -- giving value error or saying something had changed when the comments field was null, it worked fine
591: -- when the comments field had something in it! This seems to be another long problem so I have commented
592: -- out the retrival of the comments (which is a long) for the moment !!
593: -- This means that if somebody changes just the coments and then we use this procedure to try and lock the record
634: ,Attribute18
635: ,Attribute19
636: ,Attribute20
637: ,Status
638: FROM PER_POSITIONS
639: WHERE rowid = chartorowid(X_Rowid)
640: FOR UPDATE of Position_Id NOWAIT;
641: Recinfo C%ROWTYPE;
642:
866: /*
867: Check_Unique_Row(X_Rowid,X_position_id);
868: Check_Descriptor(X_Rowid,X_position_definition_id,x_business_group_id);
869:
870: UPDATE PER_POSITIONS
871: SET
872: position_id = X_Position_Id,
873: business_group_id = X_Business_Group_Id,
874: job_id = X_Job_Id,
941: if X_View_All_Psts <> 'Y' then
942: hr_security.delete_pos_from_list(X_Position_Id);
943: end if;
944:
945: DELETE FROM PER_POSITIONS
946: WHERE rowid = X_Rowid;
947:
948: if (SQL%NOTFOUND) then
949: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
1056: -- currently valid grade end date. PASHUN. 24-FEB-1998.
1057: --
1058: --
1059: cursor csr_end_date_blank is select null
1060: from per_valid_grades vg , per_positions p
1061: where vg.position_id = p_position_id
1062: and p.position_id = p_position_id
1063: and nvl(vg.date_to, p_end_of_time) =
1064: nvl(p.date_end, p_end_of_time)
1071: -- date. PASHUN. 24-FEB-1998.
1072: --
1073: --
1074: cursor csr_after_date_to is select null
1075: from per_valid_grades vg , per_positions p
1076: where vg.position_id = p_position_id
1077: and p.position_id = p_position_id
1078: and nvl(vg.date_to,p_end_of_time) <
1079: nvl(p_date_end,p_end_of_time)
1088: fetch csr_date_to into g_dummy_number;
1089: p_before_date_to := csr_date_to%FOUND;
1090: close csr_date_to;
1091: --
1092: hr_utility.set_location('per_positions_pkg.check_valid_grades', 1);
1093: --
1094: open csr_date_from;
1095: fetch csr_date_from into g_dummy_number;
1096: p_before_date_from := csr_date_from%FOUND;
1095: fetch csr_date_from into g_dummy_number;
1096: p_before_date_from := csr_date_from%FOUND;
1097: close csr_date_from;
1098: --
1099: hr_utility.set_location('per_positions_pkg.check_valid_grades', 2);
1100: --
1101: open csr_end_date_blank;
1102: fetch csr_end_date_blank into g_dummy_number;
1103: p_end_date_blank := csr_end_date_blank%FOUND;
1102: fetch csr_end_date_blank into g_dummy_number;
1103: p_end_date_blank := csr_end_date_blank%FOUND;
1104: close csr_end_date_blank;
1105: --
1106: hr_utility.set_location('per_positions_pkg.check_valid_grades', 3);
1107: --
1108: open csr_after_date_to;
1109: fetch csr_after_date_to into g_dummy_number;
1110: p_after_date_to := csr_after_date_to%FOUND;
1109: fetch csr_after_date_to into g_dummy_number;
1110: p_after_date_to := csr_after_date_to%FOUND;
1111: close csr_after_date_to;
1112: --
1113: hr_utility.set_location('per_positions_pkg.check_valid_grades', 4);
1114: --
1115: end check_valid_grades;
1116: --
1117: PROCEDURE maintain_valid_grades(p_position_id NUMBER,
1192: where g.grade_id = vg.grade_id)
1193: where
1194: vg.position_id = p_position_id
1195: and nvl(vg.date_to, p_end_of_time) = (select nvl(p.date_end,p_end_of_time)
1196: from per_positions p
1197: where p.position_id = p_position_id);
1198: --
1199: if (SQL%NOTFOUND) then
1200: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
1290: rollback;
1291: END;
1292: --
1293: --
1294: END PER_POSITIONS_PKG;