[Home] [Help]
1: PACKAGE BODY PER_JOB_REQUIREMENTS_PKG2 as
2: /* $Header: pejbr02t.pkb 115.2 99/07/18 13:55:14 porting ship $ */
3:
4: PROCEDURE CHECK_DUP_REQS (X_Rowid varchar2,
5: X_Position_Id number,
9: l_found boolean;
10:
11: cursor csr_exists is
12: SELECT '1'
13: FROM PER_JOB_REQUIREMENTS PJR
14: WHERE (ROWID <> X_Rowid
15: OR X_Rowid IS NULL)
16: AND PJR.POSITION_ID = X_Position_Id
17: AND PJR.ANALYSIS_CRITERIA_ID = X_Analysis_Criteria_Id;
58: X_Attribute18 VARCHAR2,
59: X_Attribute19 VARCHAR2,
60: X_Attribute20 VARCHAR2
61: ) IS
62: CURSOR C IS SELECT rowid FROM PER_JOB_REQUIREMENTS
63:
64: WHERE job_requirement_id = X_Job_Requirement_Id;
65:
66:
66:
67:
68:
69:
70: CURSOR C2 IS SELECT per_job_requirements_s.nextval FROM sys.dual;
71: BEGIN
72:
73: if (X_Job_Requirement_Id is NULL) then
74: OPEN C2;
79: CHECK_DUP_REQS(X_Rowid,
80: X_Position_Id,
81: X_Analysis_Criteria_Id);
82:
83: INSERT INTO PER_JOB_REQUIREMENTS(
84: job_requirement_id,
85: business_group_id,
86: analysis_criteria_id,
87: comments,
189: X_Attribute20 VARCHAR2
190: ) IS
191: CURSOR C IS
192: SELECT *
193: FROM PER_JOB_REQUIREMENTS
194: WHERE rowid = X_Rowid
195: FOR UPDATE of Job_Requirement_Id NOWAIT;
196: Recinfo C%ROWTYPE;
197: BEGIN
366: CHECK_DUP_REQS(X_Rowid,
367: X_Position_Id,
368: X_Analysis_Criteria_Id);
369:
370: UPDATE PER_JOB_REQUIREMENTS
371: SET
372:
373: job_requirement_id = X_Job_Requirement_Id,
374: business_group_id = X_Business_Group_Id,
412: END Update_Row;
413:
414: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
415: BEGIN
416: DELETE FROM PER_JOB_REQUIREMENTS
417: WHERE rowid = X_Rowid;
418:
419: if (SQL%NOTFOUND) then
420: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
423: hr_utility.raise_error;
424: end if;
425: END Delete_Row;
426:
427: END PER_JOB_REQUIREMENTS_PKG2;