[Home] [Help]
PACKAGE BODY: APPS.PER_PJI_UPD
Source
1 Package Body per_pji_upd as
2 /* $Header: pepjirhi.pkb 115.8 2002/12/03 15:41:52 eumenyio ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_pji_upd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------------< update_dml >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 -- This procedure controls the actual dml update logic. The processing of
17 -- this procedure is:
18 -- 1) Increment the object_version_number by 1 if the object_version_number
19 -- is defined as an attribute for this entity.
20 -- 2) To set and unset the g_api_dml status as required (as we are about to
21 -- perform dml).
22 -- 3) To update the specified row in the schema using the primary key in
23 -- the predicates.
24 -- 4) To trap any constraint violations that may have occurred.
25 -- 5) To raise any other errors.
26 --
27 -- Prerequisites:
28 -- This is an internal private procedure which must be called from the upd
29 -- procedure.
30 --
31 -- In Parameters:
32 -- A Pl/Sql record structre.
33 --
34 -- Post Success:
35 -- The specified row will be updated in the schema.
36 --
37 -- Post Failure:
38 -- On the update dml failure it is important to note that we always reset the
39 -- g_api_dml status to false.
40 -- If a check, unique or parent integrity constraint violation is raised the
41 -- constraint_error procedure will be called.
42 -- If any other error is reported, the error will be raised after the
43 -- g_api_dml status is reset.
44 --
45 -- Developer Implementation Notes:
46 -- The update 'set' attribute list should be modified if any of your
47 -- attributes are not updateable.
48 --
49 -- Access Status:
50 -- Internal Row Handler Use Only.
51 --
52 -- {End Of Comments}
53 -- ----------------------------------------------------------------------------
54 Procedure update_dml
55 (p_rec in out nocopy per_pji_shd.g_rec_type
56 ) is
57 --
58 l_proc varchar2(72) := g_package||'update_dml';
59 --
60 Begin
61 hr_utility.set_location('Entering:'||l_proc, 5);
62 --
63 -- Increment the object version
64 p_rec.object_version_number := p_rec.object_version_number + 1;
65 --
66 -- Update the per_prev_job_extra_info Row
67 --
68 update per_prev_job_extra_info
69 set
70 previous_job_extra_info_id = p_rec.previous_job_extra_info_id
71 ,previous_job_id = p_rec.previous_job_id
72 ,information_type = p_rec.information_type
73 ,pji_attribute_category = p_rec.pji_attribute_category
74 ,pji_attribute1 = p_rec.pji_attribute1
75 ,pji_attribute2 = p_rec.pji_attribute2
76 ,pji_attribute3 = p_rec.pji_attribute3
77 ,pji_attribute4 = p_rec.pji_attribute4
78 ,pji_attribute5 = p_rec.pji_attribute5
79 ,pji_attribute6 = p_rec.pji_attribute6
80 ,pji_attribute7 = p_rec.pji_attribute7
81 ,pji_attribute8 = p_rec.pji_attribute8
82 ,pji_attribute9 = p_rec.pji_attribute9
83 ,pji_attribute10 = p_rec.pji_attribute10
84 ,pji_attribute11 = p_rec.pji_attribute11
85 ,pji_attribute12 = p_rec.pji_attribute12
86 ,pji_attribute13 = p_rec.pji_attribute13
87 ,pji_attribute14 = p_rec.pji_attribute14
88 ,pji_attribute15 = p_rec.pji_attribute15
89 ,pji_attribute16 = p_rec.pji_attribute16
90 ,pji_attribute17 = p_rec.pji_attribute17
91 ,pji_attribute18 = p_rec.pji_attribute18
92 ,pji_attribute19 = p_rec.pji_attribute19
93 ,pji_attribute20 = p_rec.pji_attribute20
94 ,pji_attribute21 = p_rec.pji_attribute21
95 ,pji_attribute22 = p_rec.pji_attribute22
96 ,pji_attribute23 = p_rec.pji_attribute23
97 ,pji_attribute24 = p_rec.pji_attribute24
98 ,pji_attribute25 = p_rec.pji_attribute25
99 ,pji_attribute26 = p_rec.pji_attribute26
100 ,pji_attribute27 = p_rec.pji_attribute27
101 ,pji_attribute28 = p_rec.pji_attribute28
102 ,pji_attribute29 = p_rec.pji_attribute29
103 ,pji_attribute30 = p_rec.pji_attribute30
104 ,pji_information_category = p_rec.pji_information_category
105 ,pji_information1 = p_rec.pji_information1
106 ,pji_information2 = p_rec.pji_information2
107 ,pji_information3 = p_rec.pji_information3
108 ,pji_information4 = p_rec.pji_information4
109 ,pji_information5 = p_rec.pji_information5
110 ,pji_information6 = p_rec.pji_information6
111 ,pji_information7 = p_rec.pji_information7
112 ,pji_information8 = p_rec.pji_information8
113 ,pji_information9 = p_rec.pji_information9
114 ,pji_information10 = p_rec.pji_information10
115 ,pji_information11 = p_rec.pji_information11
116 ,pji_information12 = p_rec.pji_information12
117 ,pji_information13 = p_rec.pji_information13
118 ,pji_information14 = p_rec.pji_information14
119 ,pji_information15 = p_rec.pji_information15
120 ,pji_information16 = p_rec.pji_information16
121 ,pji_information17 = p_rec.pji_information17
122 ,pji_information18 = p_rec.pji_information18
123 ,pji_information19 = p_rec.pji_information19
124 ,pji_information20 = p_rec.pji_information20
125 ,pji_information21 = p_rec.pji_information21
126 ,pji_information22 = p_rec.pji_information22
127 ,pji_information23 = p_rec.pji_information23
128 ,pji_information24 = p_rec.pji_information24
129 ,pji_information25 = p_rec.pji_information25
130 ,pji_information26 = p_rec.pji_information26
131 ,pji_information27 = p_rec.pji_information27
132 ,pji_information28 = p_rec.pji_information28
133 ,pji_information29 = p_rec.pji_information29
134 ,pji_information30 = p_rec.pji_information30
135 ,object_version_number = p_rec.object_version_number
136 where previous_job_extra_info_id = p_rec.previous_job_extra_info_id;
137 --
138 --
139 --
140 hr_utility.set_location(' Leaving:'||l_proc, 10);
141 --
142 Exception
143 When hr_api.check_integrity_violated Then
144 -- A check constraint has been violated
145 --
146 per_pji_shd.constraint_error
147 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
148 When hr_api.parent_integrity_violated Then
149 -- Parent integrity has been violated
150 --
151 per_pji_shd.constraint_error
152 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
153 When hr_api.unique_integrity_violated Then
154 -- Unique integrity has been violated
155 --
156 per_pji_shd.constraint_error
157 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
158 When Others Then
159 --
160 Raise;
161 End update_dml;
162 --
163 -- ----------------------------------------------------------------------------
164 -- |------------------------------< pre_update >------------------------------|
165 -- ----------------------------------------------------------------------------
166 -- {Start Of Comments}
167 --
168 -- Description:
169 -- This private procedure contains any processing which is required before
170 -- the update dml.
171 --
172 -- Prerequisites:
173 -- This is an internal procedure which is called from the upd procedure.
174 --
175 -- In Parameters:
176 -- A Pl/Sql record structure.
177 --
178 -- Post Success:
179 -- Processing continues.
180 --
181 -- Post Failure:
182 -- If an error has occurred, an error message and exception wil be raised
183 -- but not handled.
184 --
185 -- Developer Implementation Notes:
186 -- Any pre-processing required before the update dml is issued should be
187 -- coded within this procedure. It is important to note that any 3rd party
188 -- maintenance should be reviewed before placing in this procedure.
189 --
190 -- Access Status:
191 -- Internal Row Handler Use Only.
192 --
193 -- {End Of Comments}
194 -- ----------------------------------------------------------------------------
195 Procedure pre_update
196 (p_rec in per_pji_shd.g_rec_type
197 ) is
198 --
199 l_proc varchar2(72) := g_package||'pre_update';
200 --
201 Begin
202 hr_utility.set_location('Entering:'||l_proc, 5);
203 --
204 hr_utility.set_location(' Leaving:'||l_proc, 10);
205 End pre_update;
206 --
207 -- ----------------------------------------------------------------------------
208 -- |-----------------------------< post_update >------------------------------|
209 -- ----------------------------------------------------------------------------
210 -- {Start Of Comments}
211 --
212 -- Description:
213 -- This private procedure contains any processing which is required after
214 -- the update dml.
215 --
216 -- Prerequisites:
217 -- This is an internal procedure which is called from the upd procedure.
218 --
219 -- In Parameters:
220 -- A Pl/Sql record structure.
221 --
222 -- Post Success:
223 -- Processing continues.
224 --
225 -- Post Failure:
226 -- If an error has occurred, an error message and exception will be raised
227 -- but not handled.
228 --
229 -- Developer Implementation Notes:
230 -- Any post-processing required after the update dml is issued should be
231 -- coded within this procedure. It is important to note that any 3rd party
232 -- maintenance should be reviewed before placing in this procedure.
233 --
234 -- Access Status:
235 -- Internal Row Handler Use Only.
236 --
237 -- {End Of Comments}
238 -- ----------------------------------------------------------------------------
239 Procedure post_update
240 (p_rec in per_pji_shd.g_rec_type
241 ) is
242 --
243 l_proc varchar2(72) := g_package||'post_update';
244 --
245 Begin
246 hr_utility.set_location('Entering:'||l_proc, 5);
247 begin
248 --
249 per_pji_rku.after_update
250 (p_previous_job_extra_info_id
251 => p_rec.previous_job_extra_info_id
252 ,p_previous_job_id
253 => p_rec.previous_job_id
254 ,p_information_type
255 => p_rec.information_type
256 ,p_pji_attribute_category
257 => p_rec.pji_attribute_category
258 ,p_pji_attribute1
259 => p_rec.pji_attribute1
260 ,p_pji_attribute2
261 => p_rec.pji_attribute2
262 ,p_pji_attribute3
263 => p_rec.pji_attribute3
264 ,p_pji_attribute4
265 => p_rec.pji_attribute4
266 ,p_pji_attribute5
267 => p_rec.pji_attribute5
268 ,p_pji_attribute6
269 => p_rec.pji_attribute6
270 ,p_pji_attribute7
271 => p_rec.pji_attribute7
272 ,p_pji_attribute8
273 => p_rec.pji_attribute8
274 ,p_pji_attribute9
275 => p_rec.pji_attribute9
276 ,p_pji_attribute10
277 => p_rec.pji_attribute10
278 ,p_pji_attribute11
279 => p_rec.pji_attribute11
280 ,p_pji_attribute12
281 => p_rec.pji_attribute12
282 ,p_pji_attribute13
283 => p_rec.pji_attribute13
284 ,p_pji_attribute14
285 => p_rec.pji_attribute14
286 ,p_pji_attribute15
287 => p_rec.pji_attribute15
288 ,p_pji_attribute16
289 => p_rec.pji_attribute16
290 ,p_pji_attribute17
291 => p_rec.pji_attribute17
292 ,p_pji_attribute18
293 => p_rec.pji_attribute18
294 ,p_pji_attribute19
295 => p_rec.pji_attribute19
296 ,p_pji_attribute20
297 => p_rec.pji_attribute20
298 ,p_pji_attribute21
299 => p_rec.pji_attribute21
300 ,p_pji_attribute22
301 => p_rec.pji_attribute22
302 ,p_pji_attribute23
303 => p_rec.pji_attribute23
304 ,p_pji_attribute24
305 => p_rec.pji_attribute24
306 ,p_pji_attribute25
307 => p_rec.pji_attribute25
308 ,p_pji_attribute26
309 => p_rec.pji_attribute26
310 ,p_pji_attribute27
311 => p_rec.pji_attribute27
312 ,p_pji_attribute28
313 => p_rec.pji_attribute28
314 ,p_pji_attribute29
315 => p_rec.pji_attribute29
316 ,p_pji_attribute30
317 => p_rec.pji_attribute30
318 ,p_pji_information_category
319 => p_rec.pji_information_category
320 ,p_pji_information1
321 => p_rec.pji_information1
322 ,p_pji_information2
323 => p_rec.pji_information2
324 ,p_pji_information3
325 => p_rec.pji_information3
326 ,p_pji_information4
327 => p_rec.pji_information4
328 ,p_pji_information5
329 => p_rec.pji_information5
330 ,p_pji_information6
331 => p_rec.pji_information6
332 ,p_pji_information7
333 => p_rec.pji_information7
334 ,p_pji_information8
335 => p_rec.pji_information8
336 ,p_pji_information9
337 => p_rec.pji_information9
338 ,p_pji_information10
339 => p_rec.pji_information10
340 ,p_pji_information11
341 => p_rec.pji_information11
342 ,p_pji_information12
343 => p_rec.pji_information12
344 ,p_pji_information13
345 => p_rec.pji_information13
346 ,p_pji_information14
347 => p_rec.pji_information14
348 ,p_pji_information15
349 => p_rec.pji_information15
350 ,p_pji_information16
351 => p_rec.pji_information16
352 ,p_pji_information17
353 => p_rec.pji_information17
354 ,p_pji_information18
355 => p_rec.pji_information18
356 ,p_pji_information19
357 => p_rec.pji_information19
358 ,p_pji_information20
359 => p_rec.pji_information20
360 ,p_pji_information21
361 => p_rec.pji_information21
362 ,p_pji_information22
363 => p_rec.pji_information22
364 ,p_pji_information23
365 => p_rec.pji_information23
366 ,p_pji_information24
367 => p_rec.pji_information24
368 ,p_pji_information25
369 => p_rec.pji_information25
370 ,p_pji_information26
371 => p_rec.pji_information26
372 ,p_pji_information27
373 => p_rec.pji_information27
374 ,p_pji_information28
375 => p_rec.pji_information28
376 ,p_pji_information29
377 => p_rec.pji_information29
378 ,p_pji_information30
379 => p_rec.pji_information30
380 ,p_object_version_number
381 => p_rec.object_version_number
382 );
383 --
384 exception
385 --
386 when hr_api.cannot_find_prog_unit then
387 --
388 hr_api.cannot_find_prog_unit_error
389 (p_module_name => 'PER_PREV_JOB_EXTRA_INFO'
390 ,p_hook_type => 'AU');
391 --
392 end;
393 --
394 hr_utility.set_location(' Leaving:'||l_proc, 10);
395 End post_update;
396 --
397 -- ----------------------------------------------------------------------------
398 -- |-----------------------------< convert_defs >-----------------------------|
399 -- ----------------------------------------------------------------------------
400 -- {Start Of Comments}
401 --
402 -- Description:
403 -- The Convert_Defs procedure has one very important function:
404 -- It must return the record structure for the row with all system defaulted
405 -- values converted into its corresponding parameter value for update. When
406 -- we attempt to update a row through the Upd process , certain
407 -- parameters can be defaulted which enables flexibility in the calling of
408 -- the upd process (e.g. only attributes which need to be updated need to be
409 -- specified). For the upd process to determine which attributes
410 -- have NOT been specified we need to check if the parameter has a reserved
411 -- system default value. Therefore, for all parameters which have a
412 -- corresponding reserved system default mechanism specified we need to
413 -- check if a system default is being used. If a system default is being
414 -- used then we convert the defaulted value into its corresponding attribute
415 -- value held in the g_old_rec data structure.
416 --
417 -- Prerequisites:
418 -- This private function can only be called from the upd process.
419 --
420 -- In Parameters:
421 -- A Pl/Sql record structure.
422 --
423 -- Post Success:
424 -- The record structure will be returned with all system defaulted parameter
425 -- values converted into its current row attribute value.
426 --
427 -- Post Failure:
428 -- No direct error handling is required within this function. Any possible
429 -- errors within this procedure will be a PL/SQL value error due to
430 -- conversion of datatypes or data lengths.
431 --
432 -- Developer Implementation Notes:
433 -- None.
434 --
435 -- Access Status:
436 -- Internal Row Handler Use Only.
437 --
438 -- {End Of Comments}
439 -- ----------------------------------------------------------------------------
440 Procedure convert_defs
441 (p_rec in out nocopy per_pji_shd.g_rec_type
442 ) is
443 --
444 Begin
445 --
446 -- We must now examine each argument value in the
447 -- p_rec plsql record structure
448 -- to see if a system default is being used. If a system default
449 -- is being used then we must set to the 'current' argument value.
450 --
451 If (p_rec.previous_job_id = hr_api.g_number) then
452 p_rec.previous_job_id :=
453 per_pji_shd.g_old_rec.previous_job_id;
454 End If;
455 If (p_rec.information_type = hr_api.g_varchar2) then
456 p_rec.information_type :=
457 per_pji_shd.g_old_rec.information_type;
458 End If;
459 If (p_rec.pji_attribute_category = hr_api.g_varchar2) then
460 p_rec.pji_attribute_category :=
461 per_pji_shd.g_old_rec.pji_attribute_category;
462 End If;
463 If (p_rec.pji_attribute1 = hr_api.g_varchar2) then
464 p_rec.pji_attribute1 :=
465 per_pji_shd.g_old_rec.pji_attribute1;
466 End If;
467 If (p_rec.pji_attribute2 = hr_api.g_varchar2) then
468 p_rec.pji_attribute2 :=
469 per_pji_shd.g_old_rec.pji_attribute2;
470 End If;
471 If (p_rec.pji_attribute3 = hr_api.g_varchar2) then
472 p_rec.pji_attribute3 :=
473 per_pji_shd.g_old_rec.pji_attribute3;
474 End If;
475 If (p_rec.pji_attribute4 = hr_api.g_varchar2) then
476 p_rec.pji_attribute4 :=
477 per_pji_shd.g_old_rec.pji_attribute4;
478 End If;
479 If (p_rec.pji_attribute5 = hr_api.g_varchar2) then
480 p_rec.pji_attribute5 :=
481 per_pji_shd.g_old_rec.pji_attribute5;
482 End If;
483 If (p_rec.pji_attribute6 = hr_api.g_varchar2) then
484 p_rec.pji_attribute6 :=
485 per_pji_shd.g_old_rec.pji_attribute6;
486 End If;
487 If (p_rec.pji_attribute7 = hr_api.g_varchar2) then
488 p_rec.pji_attribute7 :=
489 per_pji_shd.g_old_rec.pji_attribute7;
490 End If;
491 If (p_rec.pji_attribute8 = hr_api.g_varchar2) then
492 p_rec.pji_attribute8 :=
493 per_pji_shd.g_old_rec.pji_attribute8;
494 End If;
495 If (p_rec.pji_attribute9 = hr_api.g_varchar2) then
496 p_rec.pji_attribute9 :=
497 per_pji_shd.g_old_rec.pji_attribute9;
498 End If;
499 If (p_rec.pji_attribute10 = hr_api.g_varchar2) then
500 p_rec.pji_attribute10 :=
501 per_pji_shd.g_old_rec.pji_attribute10;
502 End If;
503 If (p_rec.pji_attribute11 = hr_api.g_varchar2) then
504 p_rec.pji_attribute11 :=
505 per_pji_shd.g_old_rec.pji_attribute11;
506 End If;
507 If (p_rec.pji_attribute12 = hr_api.g_varchar2) then
508 p_rec.pji_attribute12 :=
509 per_pji_shd.g_old_rec.pji_attribute12;
510 End If;
511 If (p_rec.pji_attribute13 = hr_api.g_varchar2) then
512 p_rec.pji_attribute13 :=
513 per_pji_shd.g_old_rec.pji_attribute13;
514 End If;
515 If (p_rec.pji_attribute14 = hr_api.g_varchar2) then
516 p_rec.pji_attribute14 :=
517 per_pji_shd.g_old_rec.pji_attribute14;
518 End If;
519 If (p_rec.pji_attribute15 = hr_api.g_varchar2) then
520 p_rec.pji_attribute15 :=
521 per_pji_shd.g_old_rec.pji_attribute15;
522 End If;
523 If (p_rec.pji_attribute16 = hr_api.g_varchar2) then
524 p_rec.pji_attribute16 :=
525 per_pji_shd.g_old_rec.pji_attribute16;
526 End If;
527 If (p_rec.pji_attribute17 = hr_api.g_varchar2) then
528 p_rec.pji_attribute17 :=
529 per_pji_shd.g_old_rec.pji_attribute17;
530 End If;
531 If (p_rec.pji_attribute18 = hr_api.g_varchar2) then
532 p_rec.pji_attribute18 :=
533 per_pji_shd.g_old_rec.pji_attribute18;
534 End If;
535 If (p_rec.pji_attribute19 = hr_api.g_varchar2) then
536 p_rec.pji_attribute19 :=
537 per_pji_shd.g_old_rec.pji_attribute19;
538 End If;
539 If (p_rec.pji_attribute20 = hr_api.g_varchar2) then
540 p_rec.pji_attribute20 :=
541 per_pji_shd.g_old_rec.pji_attribute20;
542 End If;
543 If (p_rec.pji_attribute21 = hr_api.g_varchar2) then
544 p_rec.pji_attribute21 :=
545 per_pji_shd.g_old_rec.pji_attribute21;
546 End If;
547 If (p_rec.pji_attribute22 = hr_api.g_varchar2) then
548 p_rec.pji_attribute22 :=
549 per_pji_shd.g_old_rec.pji_attribute22;
550 End If;
551 If (p_rec.pji_attribute23 = hr_api.g_varchar2) then
552 p_rec.pji_attribute23 :=
553 per_pji_shd.g_old_rec.pji_attribute23;
554 End If;
555 If (p_rec.pji_attribute24 = hr_api.g_varchar2) then
556 p_rec.pji_attribute24 :=
557 per_pji_shd.g_old_rec.pji_attribute24;
558 End If;
559 If (p_rec.pji_attribute25 = hr_api.g_varchar2) then
560 p_rec.pji_attribute25 :=
561 per_pji_shd.g_old_rec.pji_attribute25;
562 End If;
563 If (p_rec.pji_attribute26 = hr_api.g_varchar2) then
564 p_rec.pji_attribute26 :=
565 per_pji_shd.g_old_rec.pji_attribute26;
566 End If;
567 If (p_rec.pji_attribute27 = hr_api.g_varchar2) then
568 p_rec.pji_attribute27 :=
569 per_pji_shd.g_old_rec.pji_attribute27;
570 End If;
571 If (p_rec.pji_attribute28 = hr_api.g_varchar2) then
572 p_rec.pji_attribute28 :=
573 per_pji_shd.g_old_rec.pji_attribute28;
574 End If;
575 If (p_rec.pji_attribute29 = hr_api.g_varchar2) then
576 p_rec.pji_attribute29 :=
577 per_pji_shd.g_old_rec.pji_attribute29;
578 End If;
579 If (p_rec.pji_attribute30 = hr_api.g_varchar2) then
580 p_rec.pji_attribute30 :=
581 per_pji_shd.g_old_rec.pji_attribute30;
582 End If;
583 If (p_rec.pji_information_category = hr_api.g_varchar2) then
584 p_rec.pji_information_category :=
585 per_pji_shd.g_old_rec.pji_information_category;
586 End If;
587 If (p_rec.pji_information1 = hr_api.g_varchar2) then
588 p_rec.pji_information1 :=
589 per_pji_shd.g_old_rec.pji_information1;
590 End If;
591 If (p_rec.pji_information2 = hr_api.g_varchar2) then
592 p_rec.pji_information2 :=
593 per_pji_shd.g_old_rec.pji_information2;
594 End If;
595 If (p_rec.pji_information3 = hr_api.g_varchar2) then
596 p_rec.pji_information3 :=
597 per_pji_shd.g_old_rec.pji_information3;
598 End If;
599 If (p_rec.pji_information4 = hr_api.g_varchar2) then
600 p_rec.pji_information4 :=
601 per_pji_shd.g_old_rec.pji_information4;
602 End If;
603 If (p_rec.pji_information5 = hr_api.g_varchar2) then
604 p_rec.pji_information5 :=
605 per_pji_shd.g_old_rec.pji_information5;
606 End If;
607 If (p_rec.pji_information6 = hr_api.g_varchar2) then
608 p_rec.pji_information6 :=
609 per_pji_shd.g_old_rec.pji_information6;
610 End If;
611 If (p_rec.pji_information7 = hr_api.g_varchar2) then
612 p_rec.pji_information7 :=
613 per_pji_shd.g_old_rec.pji_information7;
614 End If;
615 If (p_rec.pji_information8 = hr_api.g_varchar2) then
616 p_rec.pji_information8 :=
617 per_pji_shd.g_old_rec.pji_information8;
618 End If;
619 If (p_rec.pji_information9 = hr_api.g_varchar2) then
620 p_rec.pji_information9 :=
621 per_pji_shd.g_old_rec.pji_information9;
622 End If;
623 If (p_rec.pji_information10 = hr_api.g_varchar2) then
624 p_rec.pji_information10 :=
625 per_pji_shd.g_old_rec.pji_information10;
626 End If;
627 If (p_rec.pji_information11 = hr_api.g_varchar2) then
628 p_rec.pji_information11 :=
629 per_pji_shd.g_old_rec.pji_information11;
630 End If;
631 If (p_rec.pji_information12 = hr_api.g_varchar2) then
632 p_rec.pji_information12 :=
633 per_pji_shd.g_old_rec.pji_information12;
634 End If;
635 If (p_rec.pji_information13 = hr_api.g_varchar2) then
636 p_rec.pji_information13 :=
637 per_pji_shd.g_old_rec.pji_information13;
638 End If;
639 If (p_rec.pji_information14 = hr_api.g_varchar2) then
640 p_rec.pji_information14 :=
641 per_pji_shd.g_old_rec.pji_information14;
642 End If;
643 If (p_rec.pji_information15 = hr_api.g_varchar2) then
644 p_rec.pji_information15 :=
645 per_pji_shd.g_old_rec.pji_information15;
646 End If;
647 If (p_rec.pji_information16 = hr_api.g_varchar2) then
648 p_rec.pji_information16 :=
649 per_pji_shd.g_old_rec.pji_information16;
650 End If;
651 If (p_rec.pji_information17 = hr_api.g_varchar2) then
652 p_rec.pji_information17 :=
653 per_pji_shd.g_old_rec.pji_information17;
654 End If;
655 If (p_rec.pji_information18 = hr_api.g_varchar2) then
656 p_rec.pji_information18 :=
657 per_pji_shd.g_old_rec.pji_information18;
658 End If;
659 If (p_rec.pji_information19 = hr_api.g_varchar2) then
660 p_rec.pji_information19 :=
661 per_pji_shd.g_old_rec.pji_information19;
662 End If;
663 If (p_rec.pji_information20 = hr_api.g_varchar2) then
664 p_rec.pji_information20 :=
665 per_pji_shd.g_old_rec.pji_information20;
666 End If;
667 If (p_rec.pji_information21 = hr_api.g_varchar2) then
668 p_rec.pji_information21 :=
669 per_pji_shd.g_old_rec.pji_information21;
670 End If;
671 If (p_rec.pji_information22 = hr_api.g_varchar2) then
672 p_rec.pji_information22 :=
673 per_pji_shd.g_old_rec.pji_information22;
674 End If;
675 If (p_rec.pji_information23 = hr_api.g_varchar2) then
676 p_rec.pji_information23 :=
677 per_pji_shd.g_old_rec.pji_information23;
678 End If;
679 If (p_rec.pji_information24 = hr_api.g_varchar2) then
680 p_rec.pji_information24 :=
681 per_pji_shd.g_old_rec.pji_information24;
682 End If;
683 If (p_rec.pji_information25 = hr_api.g_varchar2) then
684 p_rec.pji_information25 :=
685 per_pji_shd.g_old_rec.pji_information25;
686 End If;
687 If (p_rec.pji_information26 = hr_api.g_varchar2) then
688 p_rec.pji_information26 :=
689 per_pji_shd.g_old_rec.pji_information26;
690 End If;
691 If (p_rec.pji_information27 = hr_api.g_varchar2) then
692 p_rec.pji_information27 :=
693 per_pji_shd.g_old_rec.pji_information27;
694 End If;
695 If (p_rec.pji_information28 = hr_api.g_varchar2) then
696 p_rec.pji_information28 :=
697 per_pji_shd.g_old_rec.pji_information28;
698 End If;
699 If (p_rec.pji_information29 = hr_api.g_varchar2) then
700 p_rec.pji_information29 :=
701 per_pji_shd.g_old_rec.pji_information29;
702 End If;
703 If (p_rec.pji_information30 = hr_api.g_varchar2) then
704 p_rec.pji_information30 :=
705 per_pji_shd.g_old_rec.pji_information30;
706 End If;
707 --
708 End convert_defs;
709 --
710 -- ----------------------------------------------------------------------------
711 -- |---------------------------------< upd >----------------------------------|
712 -- ----------------------------------------------------------------------------
713 Procedure upd
714 (p_rec in out nocopy per_pji_shd.g_rec_type
715 ) is
716 --
717 l_proc varchar2(72) := g_package||'upd';
718 --
719 Begin
720 hr_utility.set_location('Entering:'||l_proc, 5);
721 --
722 -- We must lock the row which we need to update.
723 --
724 per_pji_shd.lck
725 (p_rec.previous_job_extra_info_id
726 ,p_rec.object_version_number
727 );
728 --
729 -- 1. During an update system defaults are used to determine if
730 -- arguments have been defaulted or not. We must therefore
731 -- derive the full record structure values to be updated.
732 --
733 -- 2. Call the supporting update validate operations.
734 --
735 convert_defs(p_rec);
736 per_pji_bus.update_validate
737 (p_rec
738 );
739 --
740 -- Call the supporting pre-update operation
741 --
742 per_pji_upd.pre_update(p_rec);
743 --
744 -- Update the row.
745 --
746 per_pji_upd.update_dml(p_rec);
747 --
748 -- Call the supporting post-update operation
749 --
750 per_pji_upd.post_update
751 (p_rec
752 );
753 End upd;
754 --
755 -- ----------------------------------------------------------------------------
756 -- |---------------------------------< upd >----------------------------------|
757 -- ----------------------------------------------------------------------------
758 Procedure upd
759 (p_previous_job_extra_info_id in number
760 ,p_object_version_number in out nocopy number
761 ,p_previous_job_id in number default hr_api.g_number
762 ,p_information_type in varchar2 default hr_api.g_varchar2
763 ,p_pji_attribute_category in varchar2 default hr_api.g_varchar2
764 ,p_pji_attribute1 in varchar2 default hr_api.g_varchar2
765 ,p_pji_attribute2 in varchar2 default hr_api.g_varchar2
766 ,p_pji_attribute3 in varchar2 default hr_api.g_varchar2
767 ,p_pji_attribute4 in varchar2 default hr_api.g_varchar2
768 ,p_pji_attribute5 in varchar2 default hr_api.g_varchar2
769 ,p_pji_attribute6 in varchar2 default hr_api.g_varchar2
770 ,p_pji_attribute7 in varchar2 default hr_api.g_varchar2
771 ,p_pji_attribute8 in varchar2 default hr_api.g_varchar2
772 ,p_pji_attribute9 in varchar2 default hr_api.g_varchar2
773 ,p_pji_attribute10 in varchar2 default hr_api.g_varchar2
774 ,p_pji_attribute11 in varchar2 default hr_api.g_varchar2
775 ,p_pji_attribute12 in varchar2 default hr_api.g_varchar2
776 ,p_pji_attribute13 in varchar2 default hr_api.g_varchar2
777 ,p_pji_attribute14 in varchar2 default hr_api.g_varchar2
778 ,p_pji_attribute15 in varchar2 default hr_api.g_varchar2
779 ,p_pji_attribute16 in varchar2 default hr_api.g_varchar2
780 ,p_pji_attribute17 in varchar2 default hr_api.g_varchar2
781 ,p_pji_attribute18 in varchar2 default hr_api.g_varchar2
782 ,p_pji_attribute19 in varchar2 default hr_api.g_varchar2
783 ,p_pji_attribute20 in varchar2 default hr_api.g_varchar2
784 ,p_pji_attribute21 in varchar2 default hr_api.g_varchar2
785 ,p_pji_attribute22 in varchar2 default hr_api.g_varchar2
786 ,p_pji_attribute23 in varchar2 default hr_api.g_varchar2
787 ,p_pji_attribute24 in varchar2 default hr_api.g_varchar2
788 ,p_pji_attribute25 in varchar2 default hr_api.g_varchar2
789 ,p_pji_attribute26 in varchar2 default hr_api.g_varchar2
790 ,p_pji_attribute27 in varchar2 default hr_api.g_varchar2
791 ,p_pji_attribute28 in varchar2 default hr_api.g_varchar2
792 ,p_pji_attribute29 in varchar2 default hr_api.g_varchar2
793 ,p_pji_attribute30 in varchar2 default hr_api.g_varchar2
794 ,p_pji_information_category in varchar2 default hr_api.g_varchar2
795 ,p_pji_information1 in varchar2 default hr_api.g_varchar2
796 ,p_pji_information2 in varchar2 default hr_api.g_varchar2
797 ,p_pji_information3 in varchar2 default hr_api.g_varchar2
798 ,p_pji_information4 in varchar2 default hr_api.g_varchar2
799 ,p_pji_information5 in varchar2 default hr_api.g_varchar2
800 ,p_pji_information6 in varchar2 default hr_api.g_varchar2
801 ,p_pji_information7 in varchar2 default hr_api.g_varchar2
802 ,p_pji_information8 in varchar2 default hr_api.g_varchar2
803 ,p_pji_information9 in varchar2 default hr_api.g_varchar2
804 ,p_pji_information10 in varchar2 default hr_api.g_varchar2
805 ,p_pji_information11 in varchar2 default hr_api.g_varchar2
806 ,p_pji_information12 in varchar2 default hr_api.g_varchar2
807 ,p_pji_information13 in varchar2 default hr_api.g_varchar2
808 ,p_pji_information14 in varchar2 default hr_api.g_varchar2
809 ,p_pji_information15 in varchar2 default hr_api.g_varchar2
810 ,p_pji_information16 in varchar2 default hr_api.g_varchar2
811 ,p_pji_information17 in varchar2 default hr_api.g_varchar2
812 ,p_pji_information18 in varchar2 default hr_api.g_varchar2
813 ,p_pji_information19 in varchar2 default hr_api.g_varchar2
814 ,p_pji_information20 in varchar2 default hr_api.g_varchar2
815 ,p_pji_information21 in varchar2 default hr_api.g_varchar2
816 ,p_pji_information22 in varchar2 default hr_api.g_varchar2
817 ,p_pji_information23 in varchar2 default hr_api.g_varchar2
818 ,p_pji_information24 in varchar2 default hr_api.g_varchar2
819 ,p_pji_information25 in varchar2 default hr_api.g_varchar2
820 ,p_pji_information26 in varchar2 default hr_api.g_varchar2
821 ,p_pji_information27 in varchar2 default hr_api.g_varchar2
822 ,p_pji_information28 in varchar2 default hr_api.g_varchar2
823 ,p_pji_information29 in varchar2 default hr_api.g_varchar2
824 ,p_pji_information30 in varchar2 default hr_api.g_varchar2
825 ) is
826 --
827 l_rec per_pji_shd.g_rec_type;
828 l_proc varchar2(72) := g_package||'upd';
829 --
830 Begin
831 hr_utility.set_location('Entering:'||l_proc, 5);
832 --
833 -- Call conversion function to turn arguments into the
834 -- l_rec structure.
835 --
836 l_rec :=
837 per_pji_shd.convert_args
838 (p_previous_job_extra_info_id
839 ,p_previous_job_id
840 ,p_information_type
841 ,p_pji_attribute_category
842 ,p_pji_attribute1
843 ,p_pji_attribute2
844 ,p_pji_attribute3
845 ,p_pji_attribute4
846 ,p_pji_attribute5
847 ,p_pji_attribute6
848 ,p_pji_attribute7
849 ,p_pji_attribute8
850 ,p_pji_attribute9
851 ,p_pji_attribute10
852 ,p_pji_attribute11
853 ,p_pji_attribute12
854 ,p_pji_attribute13
855 ,p_pji_attribute14
856 ,p_pji_attribute15
857 ,p_pji_attribute16
858 ,p_pji_attribute17
859 ,p_pji_attribute18
860 ,p_pji_attribute19
861 ,p_pji_attribute20
862 ,p_pji_attribute21
863 ,p_pji_attribute22
864 ,p_pji_attribute23
865 ,p_pji_attribute24
866 ,p_pji_attribute25
867 ,p_pji_attribute26
868 ,p_pji_attribute27
869 ,p_pji_attribute28
870 ,p_pji_attribute29
871 ,p_pji_attribute30
872 ,p_pji_information_category
873 ,p_pji_information1
874 ,p_pji_information2
875 ,p_pji_information3
876 ,p_pji_information4
877 ,p_pji_information5
878 ,p_pji_information6
879 ,p_pji_information7
880 ,p_pji_information8
881 ,p_pji_information9
882 ,p_pji_information10
883 ,p_pji_information11
884 ,p_pji_information12
885 ,p_pji_information13
886 ,p_pji_information14
887 ,p_pji_information15
888 ,p_pji_information16
889 ,p_pji_information17
890 ,p_pji_information18
891 ,p_pji_information19
892 ,p_pji_information20
893 ,p_pji_information21
894 ,p_pji_information22
895 ,p_pji_information23
896 ,p_pji_information24
897 ,p_pji_information25
898 ,p_pji_information26
899 ,p_pji_information27
900 ,p_pji_information28
901 ,p_pji_information29
902 ,p_pji_information30
903 ,p_object_version_number
904 );
905 --
906 -- Having converted the arguments into the
907 -- plsql record structure we call the corresponding record
908 -- business process.
909 --
910 per_pji_upd.upd
911 (l_rec
912 );
913 p_object_version_number := l_rec.object_version_number;
914 --
915 hr_utility.set_location(' Leaving:'||l_proc, 10);
916 End upd;
917 --
918 end per_pji_upd;