[Home] [Help]
PACKAGE BODY: APPS.PER_JOB_EVALUATIONS_PKG2
Source
1 PACKAGE BODY PER_JOB_EVALUATIONS_PKG2 as
2 /* $Header: pejbe02t.pkb 115.1 99/07/18 13:55:00 porting ship $ */
3
4
5 PROCEDURE Insert_Row(X_Rowid IN OUT VARCHAR2,
6 X_Job_Evaluation_Id IN OUT NUMBER,
7 X_Business_Group_Id NUMBER,
8 X_Comments VARCHAR2,
9 X_Date_Evaluated DATE,
10 X_Job_Id NUMBER,
11 X_Measured_In VARCHAR2,
12 X_Overall_Score VARCHAR2,
13 X_Position_Id NUMBER,
14 X_System VARCHAR2,
15 X_Attribute_Category VARCHAR2,
16 X_Attribute1 VARCHAR2,
17 X_Attribute2 VARCHAR2,
18 X_Attribute3 VARCHAR2,
19 X_Attribute4 VARCHAR2,
20 X_Attribute5 VARCHAR2,
21 X_Attribute6 VARCHAR2,
22 X_Attribute7 VARCHAR2,
23 X_Attribute8 VARCHAR2,
24 X_Attribute9 VARCHAR2,
25 X_Attribute10 VARCHAR2,
26 X_Attribute11 VARCHAR2,
27 X_Attribute12 VARCHAR2,
28 X_Attribute13 VARCHAR2,
29 X_Attribute14 VARCHAR2,
30 X_Attribute15 VARCHAR2,
31 X_Attribute16 VARCHAR2,
32 X_Attribute17 VARCHAR2,
33 X_Attribute18 VARCHAR2,
34 X_Attribute19 VARCHAR2,
35 X_Attribute20 VARCHAR2
36 ) IS
37 CURSOR C IS SELECT rowid FROM PER_JOB_EVALUATIONS
38
39 WHERE job_evaluation_id = X_Job_Evaluation_Id;
40
41
42
43
44
45 CURSOR C2 IS SELECT per_job_evaluations_s.nextval FROM sys.dual;
46 BEGIN
47
48 if (X_Job_Evaluation_Id is NULL) then
49 OPEN C2;
50 FETCH C2 INTO X_Job_Evaluation_Id;
51 CLOSE C2;
52 end if;
53 INSERT INTO PER_JOB_EVALUATIONS(
54 job_evaluation_id,
55 business_group_id,
56 comments,
57 date_evaluated,
58 job_id,
59 measured_in,
60 overall_score,
61 position_id,
62 system,
63 attribute_category,
64 attribute1,
65 attribute2,
66 attribute3,
67 attribute4,
68 attribute5,
69 attribute6,
70 attribute7,
71 attribute8,
72 attribute9,
73 attribute10,
74 attribute11,
75 attribute12,
76 attribute13,
77 attribute14,
78 attribute15,
79 attribute16,
80 attribute17,
81 attribute18,
82 attribute19,
83 attribute20
84 ) VALUES (
85 X_Job_Evaluation_Id,
86 X_Business_Group_Id,
87 X_Comments,
88 X_Date_Evaluated,
89 X_Job_Id,
90 X_Measured_In,
91 X_Overall_Score,
92 X_Position_Id,
93 X_System,
94 X_Attribute_Category,
95 X_Attribute1,
96 X_Attribute2,
97 X_Attribute3,
98 X_Attribute4,
99 X_Attribute5,
100 X_Attribute6,
101 X_Attribute7,
102 X_Attribute8,
103 X_Attribute9,
104 X_Attribute10,
105 X_Attribute11,
106 X_Attribute12,
107 X_Attribute13,
108 X_Attribute14,
109 X_Attribute15,
110 X_Attribute16,
111 X_Attribute17,
112 X_Attribute18,
113 X_Attribute19,
114 X_Attribute20
115 );
116
117 OPEN C;
118 FETCH C INTO X_Rowid;
119 if (C%NOTFOUND) then
120 CLOSE C;
121 hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
122 hr_utility.set_message_token('PROCEDURE','Insert_row');
123 hr_utility.set_message_token('STEP','1');
124 hr_utility.raise_error;
125 end if;
126 CLOSE C;
127 END Insert_Row;
128 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
129
130 X_Job_Evaluation_Id NUMBER,
131 X_Business_Group_Id NUMBER,
132 X_Comments VARCHAR2,
133 X_Date_Evaluated DATE,
134 X_Job_Id NUMBER,
135 X_Measured_In VARCHAR2,
136 X_Overall_Score VARCHAR2,
137 X_Position_Id NUMBER,
138 X_System VARCHAR2,
139 X_Attribute_Category VARCHAR2,
140 X_Attribute1 VARCHAR2,
141 X_Attribute2 VARCHAR2,
142 X_Attribute3 VARCHAR2,
143 X_Attribute4 VARCHAR2,
144 X_Attribute5 VARCHAR2,
145 X_Attribute6 VARCHAR2,
146 X_Attribute7 VARCHAR2,
147 X_Attribute8 VARCHAR2,
148 X_Attribute9 VARCHAR2,
149 X_Attribute10 VARCHAR2,
150 X_Attribute11 VARCHAR2,
151 X_Attribute12 VARCHAR2,
152 X_Attribute13 VARCHAR2,
153 X_Attribute14 VARCHAR2,
154 X_Attribute15 VARCHAR2,
155 X_Attribute16 VARCHAR2,
156 X_Attribute17 VARCHAR2,
157 X_Attribute18 VARCHAR2,
158 X_Attribute19 VARCHAR2,
159 X_Attribute20 VARCHAR2
160 ) IS
161 CURSOR C IS
162 SELECT *
163 FROM PER_JOB_EVALUATIONS
164 WHERE rowid = X_Rowid
165 FOR UPDATE of Job_Evaluation_Id NOWAIT;
166 Recinfo C%ROWTYPE;
167 BEGIN
168 OPEN C;
169 FETCH C INTO Recinfo;
170 if (C%NOTFOUND) then
171 CLOSE C;
172 hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
173 hr_utility.set_message_token('PROCEDURE','lock_row');
174 hr_utility.set_message_token('STEP','1');
175 hr_utility.raise_error;
176 end if;
177 CLOSE C;
178 --
179 Recinfo.comments := rtrim(Recinfo.comments);
180 Recinfo.measured_in := rtrim(Recinfo.measured_in);
181 Recinfo.overall_score := rtrim(Recinfo.overall_score);
182 Recinfo.system := rtrim(Recinfo.system);
183 Recinfo.attribute_category := rtrim(Recinfo.attribute_category);
184 Recinfo.attribute1 := rtrim(Recinfo.attribute1);
185 Recinfo.attribute2 := rtrim(Recinfo.attribute2);
186 Recinfo.attribute3 := rtrim(Recinfo.attribute3);
187 Recinfo.attribute4 := rtrim(Recinfo.attribute4);
188 Recinfo.attribute5 := rtrim(Recinfo.attribute5);
189 Recinfo.attribute6 := rtrim(Recinfo.attribute6);
190 Recinfo.attribute7 := rtrim(Recinfo.attribute7);
191 Recinfo.attribute8 := rtrim(Recinfo.attribute8);
192 Recinfo.attribute9 := rtrim(Recinfo.attribute9);
193 Recinfo.attribute10 := rtrim(Recinfo.attribute10);
194 Recinfo.attribute11 := rtrim(Recinfo.attribute11);
195 Recinfo.attribute12 := rtrim(Recinfo.attribute12);
196 Recinfo.attribute13 := rtrim(Recinfo.attribute13);
197 Recinfo.attribute14 := rtrim(Recinfo.attribute14);
198 Recinfo.attribute15 := rtrim(Recinfo.attribute15);
199 Recinfo.attribute16 := rtrim(Recinfo.attribute16);
200 Recinfo.attribute17 := rtrim(Recinfo.attribute17);
201 Recinfo.attribute18 := rtrim(Recinfo.attribute18);
202 Recinfo.attribute19 := rtrim(Recinfo.attribute19);
203 Recinfo.attribute20 := rtrim(Recinfo.attribute20);
204 --
205 if (
206 ( (Recinfo.job_evaluation_id = X_Job_Evaluation_Id)
207 OR ( (Recinfo.job_evaluation_id IS NULL)
208 AND (X_Job_Evaluation_Id IS NULL)))
209 AND ( (Recinfo.business_group_id = X_Business_Group_Id)
210 OR ( (Recinfo.business_group_id IS NULL)
211 AND (X_Business_Group_Id IS NULL)))
212 AND ( (Recinfo.comments = X_Comments)
213 OR ( (Recinfo.comments IS NULL)
214 AND (X_Comments IS NULL)))
215 AND ( (Recinfo.date_evaluated = X_Date_Evaluated)
216 OR ( (Recinfo.date_evaluated IS NULL)
217 AND (X_Date_Evaluated IS NULL)))
218 AND ( (Recinfo.job_id = X_Job_Id)
219 OR ( (Recinfo.job_id IS NULL)
220 AND (X_Job_Id IS NULL)))
221 AND ( (Recinfo.measured_in = X_Measured_In)
222 OR ( (Recinfo.measured_in IS NULL)
223 AND (X_Measured_In IS NULL)))
224 AND ( (Recinfo.overall_score = X_Overall_Score)
225 OR ( (Recinfo.overall_score IS NULL)
226 AND (X_Overall_Score IS NULL)))
227 AND ( (Recinfo.position_id = X_Position_Id)
228 OR ( (Recinfo.position_id IS NULL)
229 AND (X_Position_Id IS NULL)))
230 AND ( (Recinfo.system = X_System)
231 OR ( (Recinfo.system IS NULL)
232 AND (X_System IS NULL)))
233 AND ( (Recinfo.attribute_category = X_Attribute_Category)
234 OR ( (Recinfo.attribute_category IS NULL)
235 AND (X_Attribute_Category IS NULL)))
236 AND ( (Recinfo.attribute1 = X_Attribute1)
237 OR ( (Recinfo.attribute1 IS NULL)
238 AND (X_Attribute1 IS NULL)))
239 AND ( (Recinfo.attribute2 = X_Attribute2)
240 OR ( (Recinfo.attribute2 IS NULL)
241 AND (X_Attribute2 IS NULL)))
242 AND ( (Recinfo.attribute3 = X_Attribute3)
243 OR ( (Recinfo.attribute3 IS NULL)
244 AND (X_Attribute3 IS NULL)))
245 AND ( (Recinfo.attribute4 = X_Attribute4)
246 OR ( (Recinfo.attribute4 IS NULL)
247 AND (X_Attribute4 IS NULL)))
248 AND ( (Recinfo.attribute5 = X_Attribute5)
249 OR ( (Recinfo.attribute5 IS NULL)
250 AND (X_Attribute5 IS NULL)))
251 AND ( (Recinfo.attribute6 = X_Attribute6)
252 OR ( (Recinfo.attribute6 IS NULL)
253 AND (X_Attribute6 IS NULL)))
254 AND ( (Recinfo.attribute7 = X_Attribute7)
255 OR ( (Recinfo.attribute7 IS NULL)
256 AND (X_Attribute7 IS NULL)))
257 AND ( (Recinfo.attribute8 = X_Attribute8)
258 OR ( (Recinfo.attribute8 IS NULL)
259 AND (X_Attribute8 IS NULL)))
260 AND ( (Recinfo.attribute9 = X_Attribute9)
261 OR ( (Recinfo.attribute9 IS NULL)
262 AND (X_Attribute9 IS NULL)))
263 AND ( (Recinfo.attribute10 = X_Attribute10)
264 OR ( (Recinfo.attribute10 IS NULL)
265 AND (X_Attribute10 IS NULL)))
266 AND ( (Recinfo.attribute11 = X_Attribute11)
267 OR ( (Recinfo.attribute11 IS NULL)
268 AND (X_Attribute11 IS NULL)))
269 AND ( (Recinfo.attribute12 = X_Attribute12)
270 OR ( (Recinfo.attribute12 IS NULL)
271 AND (X_Attribute12 IS NULL)))
272 AND ( (Recinfo.attribute13 = X_Attribute13)
273 OR ( (Recinfo.attribute13 IS NULL)
274 AND (X_Attribute13 IS NULL)))
275 AND ( (Recinfo.attribute14 = X_Attribute14)
276 OR ( (Recinfo.attribute14 IS NULL)
277 AND (X_Attribute14 IS NULL)))
278 AND ( (Recinfo.attribute15 = X_Attribute15)
279 OR ( (Recinfo.attribute15 IS NULL)
280 AND (X_Attribute15 IS NULL)))
281 AND ( (Recinfo.attribute16 = X_Attribute16)
282 OR ( (Recinfo.attribute16 IS NULL)
283 AND (X_Attribute16 IS NULL)))
284 AND ( (Recinfo.attribute17 = X_Attribute17)
285 OR ( (Recinfo.attribute17 IS NULL)
286 AND (X_Attribute17 IS NULL)))
287 AND ( (Recinfo.attribute18 = X_Attribute18)
288 OR ( (Recinfo.attribute18 IS NULL)
289 AND (X_Attribute18 IS NULL)))
290 AND ( (Recinfo.attribute19 = X_Attribute19)
291 OR ( (Recinfo.attribute19 IS NULL)
292 AND (X_Attribute19 IS NULL)))
293 AND ( (Recinfo.attribute20 = X_Attribute20)
294 OR ( (Recinfo.attribute20 IS NULL)
295 AND (X_Attribute20 IS NULL)))
296 ) then
297 return;
298 else
299 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
300 APP_EXCEPTION.RAISE_EXCEPTION;
301 end if;
302 END Lock_Row;
303
304 PROCEDURE Update_Row(X_Rowid VARCHAR2,
305 X_Job_Evaluation_Id NUMBER,
306 X_Business_Group_Id NUMBER,
307 X_Comments VARCHAR2,
308 X_Date_Evaluated DATE,
309 X_Job_Id NUMBER,
310 X_Measured_In VARCHAR2,
311 X_Overall_Score VARCHAR2,
312 X_Position_Id NUMBER,
313 X_System VARCHAR2,
314 X_Attribute_Category VARCHAR2,
315 X_Attribute1 VARCHAR2,
316 X_Attribute2 VARCHAR2,
317 X_Attribute3 VARCHAR2,
318 X_Attribute4 VARCHAR2,
319 X_Attribute5 VARCHAR2,
320 X_Attribute6 VARCHAR2,
321 X_Attribute7 VARCHAR2,
322 X_Attribute8 VARCHAR2,
323 X_Attribute9 VARCHAR2,
324 X_Attribute10 VARCHAR2,
325 X_Attribute11 VARCHAR2,
326 X_Attribute12 VARCHAR2,
327 X_Attribute13 VARCHAR2,
328 X_Attribute14 VARCHAR2,
329 X_Attribute15 VARCHAR2,
330 X_Attribute16 VARCHAR2,
331 X_Attribute17 VARCHAR2,
332 X_Attribute18 VARCHAR2,
333 X_Attribute19 VARCHAR2,
334 X_Attribute20 VARCHAR2
335 ) IS
336 BEGIN
337 UPDATE PER_JOB_EVALUATIONS
338 SET
339
340 job_evaluation_id = X_Job_Evaluation_Id,
341 business_group_id = X_Business_Group_Id,
342 comments = X_Comments,
343 date_evaluated = X_Date_Evaluated,
344 job_id = X_Job_Id,
345 measured_in = X_Measured_In,
346 overall_score = X_Overall_Score,
347 position_id = X_Position_Id,
348 system = X_System,
349 attribute_category = X_Attribute_Category,
350 attribute1 = X_Attribute1,
351 attribute2 = X_Attribute2,
352 attribute3 = X_Attribute3,
356 attribute7 = X_Attribute7,
353 attribute4 = X_Attribute4,
354 attribute5 = X_Attribute5,
355 attribute6 = X_Attribute6,
357 attribute8 = X_Attribute8,
358 attribute9 = X_Attribute9,
359 attribute10 = X_Attribute10,
360 attribute11 = X_Attribute11,
361 attribute12 = X_Attribute12,
362 attribute13 = X_Attribute13,
363 attribute14 = X_Attribute14,
364 attribute15 = X_Attribute15,
365 attribute16 = X_Attribute16,
366 attribute17 = X_Attribute17,
367 attribute18 = X_Attribute18,
368 attribute19 = X_Attribute19,
369 attribute20 = X_Attribute20
370 WHERE rowid = X_rowid;
371
372 if (SQL%NOTFOUND) then
373 hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
374 hr_utility.set_message_token('PROCEDURE','update_row');
375 hr_utility.set_message_token('STEP','1');
376 hr_utility.raise_error;
377 end if;
378
379 END Update_Row;
380
381 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
382 BEGIN
383 DELETE FROM PER_JOB_EVALUATIONS
384 WHERE rowid = X_Rowid;
385
386 if (SQL%NOTFOUND) then
387 hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
388 hr_utility.set_message_token('PROCEDURE','delete_row');
389 hr_utility.set_message_token('STEP','1');
390 hr_utility.raise_error;
391 end if;
392 END Delete_Row;
393
394 END PER_JOB_EVALUATIONS_PKG2;