DBA Data[Home] [Help]

APPS.PER_POS_STRUCTURE_VERSIONS_PKG dependencies on PER_POS_STRUCTURE_VERSIONS

Line 1: PACKAGE BODY PER_POS_STRUCTURE_VERSIONS_PKG as

1: PACKAGE BODY PER_POS_STRUCTURE_VERSIONS_PKG as
2: /* $Header: pepsv01t.pkb 120.1 2006/06/29 12:06:48 hmehta ship $ */
3: -----------------------------------------------------------------------------
4: FUNCTION get_next_free_no(X_Position_Structure_Id NUMBER) return NUMBER IS
5: --

Line 11: from per_pos_structure_versions psv

7: l_next_free_no NUMBER; --Next Free Number in a hierarchy.
8: begin
9: select nvl(max(psv.version_number),0) + 1
10: into l_next_free_no
11: from per_pos_structure_versions psv
12: where psv.Position_Structure_Id = X_Position_Structure_Id;
13: --
14: return l_next_free_no;
15: end get_next_free_no;

Line 29: from per_pos_structure_versions psv

25: select null
26: into l_dummy
27: from sys.dual
28: where exists (select 1
29: from per_pos_structure_versions psv
30: where psv.position_structure_id = X_Position_Structure_Id
31: and psv.version_number = X_Version_Number
32: and (psv.rowid <> X_Rowid
33: or X_Rowid is null));

Line 64: from per_pos_structure_versions psv

60: begin
61: X_gap_warning := 'N';
62: select max(psv.date_to)
63: into l_max_end_date
64: from per_pos_structure_versions psv
65: where psv.date_from < X_Date_From
66: --
67: -- Bug 608815: add missing clause to restrict the hierarchy, or the code
68: -- looks for the max date across all hierarchies. RMF 09-Jan-98.

Line 78: from per_pos_structure_versions psv

74: if (l_max_end_date is not null and X_Date_from = (l_max_end_date +1)
75: or (l_max_end_date is null)) then
76: select min(psv.date_from)
77: into l_min_start_date
78: from per_pos_structure_versions psv
79: where psv.position_structure_id = X_Position_Structure_Id
80: and psv.date_from > X_Date_To
81: and (psv.rowid <> X_Rowid
82: or psv.rowid is null);

Line 117: from per_pos_structure_versions psv

113: into l_dummy
114: from sys.dual
115: where exists
116: (select 1
117: from per_pos_structure_versions psv
118: where psv.position_structure_id = X_Position_Structure_Id
119: and X_Date_From > psv.date_from
120: and psv.date_to is null);
121: --

Line 128: update per_pos_structure_versions psv

124: begin
125: --
126: -- Close down the open structures, before testing for overlaps
127: --
128: update per_pos_structure_versions psv
129: set psv.date_to = (X_date_from - 1)
130: where psv.position_structure_id = X_Position_Structure_Id
131: and psv.date_to is null
132: and (psv.rowid <> X_Rowid

Line 152: from per_pos_structure_versions psv

148: into l_dummy
149: from sys.dual
150: where exists
151: (select 1
152: from per_pos_structure_versions psv
153: where psv.date_from <= nvl(X_Date_To, X_End_Of_Time)
154: and nvl(psv.date_to,X_End_Of_Time) >= X_Date_From
155: and psv.position_structure_id = X_Position_Structure_Id
156: and (psv.rowid <> X_Rowid

Line 270: from per_pos_structure_versions psv

266: --
267: --
268: cursor ele_update is
269: select rowid
270: from per_pos_structure_versions psv
271: where psv.copy_structure_version_id = X_Pos_Structure_Version_Id
272: for update of psv.copy_structure_version_id nowait;
273: --
274: -- Local Variables

Line 282: update per_pos_structure_versions psv

278: open ele_update;
279: fetch ele_update into l_Rowid;
280: loop
281: exit when ele_update%NOTFOUND;
282: update per_pos_structure_versions psv
283: set psv.copy_structure_version_id = NULL
284: where psv.rowid = l_Rowid;
285: --
286: fetch ele_update into l_Rowid;

Line 304: CURSOR C IS SELECT rowid FROM PER_POS_STRUCTURE_VERSIONS

300: X_Next_no_free IN OUT NOCOPY NUMBER,
301: X_closedown_warning IN OUT NOCOPY VARCHAR2,
302: X_gap_warning IN OUT NOCOPY VARCHAR2
303: ) IS
304: CURSOR C IS SELECT rowid FROM PER_POS_STRUCTURE_VERSIONS
305: WHERE pos_structure_version_id = X_Pos_Structure_Version_Id;
306: CURSOR C2 IS SELECT per_pos_structure_versions_s.nextval FROM sys.dual;
307: BEGIN
308: --

Line 306: CURSOR C2 IS SELECT per_pos_structure_versions_s.nextval FROM sys.dual;

302: X_gap_warning IN OUT NOCOPY VARCHAR2
303: ) IS
304: CURSOR C IS SELECT rowid FROM PER_POS_STRUCTURE_VERSIONS
305: WHERE pos_structure_version_id = X_Pos_Structure_Version_Id;
306: CURSOR C2 IS SELECT per_pos_structure_versions_s.nextval FROM sys.dual;
307: BEGIN
308: --
309: PER_POS_STRUCTURE_VERSIONS_PKG.check_version_number(
310: X_Position_Structure_Id=> X_Position_Structure_Id

Line 309: PER_POS_STRUCTURE_VERSIONS_PKG.check_version_number(

305: WHERE pos_structure_version_id = X_Pos_Structure_Version_Id;
306: CURSOR C2 IS SELECT per_pos_structure_versions_s.nextval FROM sys.dual;
307: BEGIN
308: --
309: PER_POS_STRUCTURE_VERSIONS_PKG.check_version_number(
310: X_Position_Structure_Id=> X_Position_Structure_Id
311: ,X_Version_Number => X_Version_Number
312: ,X_Rowid => X_Rowid);
313: --

Line 314: PER_POS_STRUCTURE_VERSIONS_PKG.check_overlap(

310: X_Position_Structure_Id=> X_Position_Structure_Id
311: ,X_Version_Number => X_Version_Number
312: ,X_Rowid => X_Rowid);
313: --
314: PER_POS_STRUCTURE_VERSIONS_PKG.check_overlap(
315: X_Position_Structure_Id=> X_Position_Structure_Id
316: ,X_Rowid => X_Rowid
317: ,X_Date_From => X_Date_From
318: ,X_Date_To => X_Date_To

Line 322: PER_POS_STRUCTURE_VERSIONS_PKG.check_date_gap(X_Date_From => X_Date_From

318: ,X_Date_To => X_Date_To
319: ,X_End_Of_Time => X_End_Of_Time
320: ,X_End_Date_Closedown => X_closedown_warning);
321: --
322: PER_POS_STRUCTURE_VERSIONS_PKG.check_date_gap(X_Date_From => X_Date_From
323: ,X_Date_To => X_Date_To
324: ,X_gap_warning => X_gap_warning
325: ,X_Position_Structure_Id =>X_Position_Structure_Id
326: ,X_Rowid => X_Rowid);

Line 333: INSERT INTO PER_POS_STRUCTURE_VERSIONS(

329: OPEN C2;
330: FETCH C2 INTO X_Pos_Structure_Version_Id;
331: CLOSE C2;
332: end if;
333: INSERT INTO PER_POS_STRUCTURE_VERSIONS(
334: pos_structure_version_id,
335: business_group_id,
336: position_structure_id,
337: date_from,

Line 358: PER_POS_STRUCTURE_VERSIONS_PKG.copy_elements(

354: RAISE NO_DATA_FOUND;
355: end if;
356: CLOSE C;
357: if X_Copy_Structure_Version_Id is not null then
358: PER_POS_STRUCTURE_VERSIONS_PKG.copy_elements(
359: X_Copy_Structure_Version_Id => X_Copy_Structure_Version_Id
360: ,X_Pos_Structure_Version_Id => X_Pos_Structure_Version_Id);
361: end if;
362: X_Next_no_free :=PER_POS_STRUCTURE_VERSIONS_PKG.get_next_free_no(

Line 362: X_Next_no_free :=PER_POS_STRUCTURE_VERSIONS_PKG.get_next_free_no(

358: PER_POS_STRUCTURE_VERSIONS_PKG.copy_elements(
359: X_Copy_Structure_Version_Id => X_Copy_Structure_Version_Id
360: ,X_Pos_Structure_Version_Id => X_Pos_Structure_Version_Id);
361: end if;
362: X_Next_no_free :=PER_POS_STRUCTURE_VERSIONS_PKG.get_next_free_no(
363: X_Position_Structure_Id =>X_Position_Structure_Id);
364: end Insert_Row;
365: -----------------------------------------------------------------------------
366: PROCEDURE Lock_Row(X_Rowid VARCHAR2,

Line 377: FROM PER_POS_STRUCTURE_VERSIONS

373: X_Date_To DATE
374: ) IS
375: CURSOR C IS
376: SELECT *
377: FROM PER_POS_STRUCTURE_VERSIONS
378: WHERE rowid = X_Rowid
379: FOR UPDATE of Pos_Structure_Version_Id NOWAIT;
380: Recinfo C%ROWTYPE;
381: BEGIN

Line 433: PER_POS_STRUCTURE_VERSIONS_PKG.check_version_number(

429: X_closedown_warning IN OUT NOCOPY VARCHAR2,
430: X_gap_warning IN OUT NOCOPY VARCHAR2
431: ) IS
432: BEGIN
433: PER_POS_STRUCTURE_VERSIONS_PKG.check_version_number(
434: X_Position_Structure_Id=> X_Position_Structure_Id
435: ,X_Version_Number => X_Version_Number
436: ,X_Rowid => X_Rowid);
437: --

Line 438: PER_POS_STRUCTURE_VERSIONS_PKG.check_overlap(

434: X_Position_Structure_Id=> X_Position_Structure_Id
435: ,X_Version_Number => X_Version_Number
436: ,X_Rowid => X_Rowid);
437: --
438: PER_POS_STRUCTURE_VERSIONS_PKG.check_overlap(
439: X_Position_Structure_Id=> X_Position_Structure_Id
440: ,X_Rowid => X_Rowid
441: ,X_Date_From => X_Date_From
442: ,X_Date_To => X_Date_To

Line 446: PER_POS_STRUCTURE_VERSIONS_PKG.check_date_gap(X_Date_From => X_Date_From

442: ,X_Date_To => X_Date_To
443: ,X_End_Of_Time => X_End_Of_Time
444: ,X_End_Date_Closedown => X_closedown_warning);
445: --
446: PER_POS_STRUCTURE_VERSIONS_PKG.check_date_gap(X_Date_From => X_Date_From
447: ,X_Date_To => X_Date_To
448: ,X_gap_warning => X_gap_warning
449: ,X_Position_Structure_Id =>X_Position_Structure_Id
450: ,X_Rowid => X_Rowid);

Line 452: UPDATE PER_POS_STRUCTURE_VERSIONS

448: ,X_gap_warning => X_gap_warning
449: ,X_Position_Structure_Id =>X_Position_Structure_Id
450: ,X_Rowid => X_Rowid);
451: --
452: UPDATE PER_POS_STRUCTURE_VERSIONS
453: SET
454: pos_structure_version_id = X_Pos_Structure_Version_Id,
455: business_group_id = X_Business_Group_Id,
456: position_structure_id = X_Position_Structure_Id,

Line 465: X_Next_no_free :=PER_POS_STRUCTURE_VERSIONS_PKG.get_next_free_no(

461: WHERE rowid = X_rowid;
462: if (SQL%NOTFOUND) then
463: RAISE NO_DATA_FOUND;
464: end if;
465: X_Next_no_free :=PER_POS_STRUCTURE_VERSIONS_PKG.get_next_free_no(
466: X_Position_Structure_Id =>X_Position_Structure_Id);
467: END Update_Row;
468: -----------------------------------------------------------------------------
469: PROCEDURE Delete_Row(X_Rowid VARCHAR2,

Line 482: DELETE FROM PER_POS_STRUCTURE_VERSIONS

478: X_Business_Group_Id => X_Business_Group_Id,
479: X_Position_Structure_Id => X_Position_Structure_Id,
480: X_Hr_Installed => X_Hr_Installed);
481: --
482: DELETE FROM PER_POS_STRUCTURE_VERSIONS
483: WHERE rowid = X_Rowid;
484: if (SQL%NOTFOUND) then
485: RAISE NO_DATA_FOUND;
486: end if;

Line 487: X_Next_no_free :=PER_POS_STRUCTURE_VERSIONS_PKG.get_next_free_no(

483: WHERE rowid = X_Rowid;
484: if (SQL%NOTFOUND) then
485: RAISE NO_DATA_FOUND;
486: end if;
487: X_Next_no_free :=PER_POS_STRUCTURE_VERSIONS_PKG.get_next_free_no(
488: X_Position_Structure_Id =>X_Position_Structure_Id);
489: END Delete_Row;
490: -----------------------------------------------------------------------------
491: END PER_POS_STRUCTURE_VERSIONS_PKG;

Line 491: END PER_POS_STRUCTURE_VERSIONS_PKG;

487: X_Next_no_free :=PER_POS_STRUCTURE_VERSIONS_PKG.get_next_free_no(
488: X_Position_Structure_Id =>X_Position_Structure_Id);
489: END Delete_Row;
490: -----------------------------------------------------------------------------
491: END PER_POS_STRUCTURE_VERSIONS_PKG;