[Home] [Help]
PACKAGE BODY: APPS.PER_PJI_INS
Source
4 -- ----------------------------------------------------------------------------
1 Package Body per_pji_ins as
2 /* $Header: pepjirhi.pkb 115.8 2002/12/03 15:41:52 eumenyio ship $ */
3 --
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_pji_ins.'; -- Global package name
9 --
10 -- The following global variables are only to be used by
11 -- the set_base_key_value and pre_insert procedures.
12 --
13 g_previous_job_extra_info_id_i number default null;
14 --
15 -- ----------------------------------------------------------------------------
16 -- |------------------------< set_base_key_value >----------------------------|
17 -- ----------------------------------------------------------------------------
18 procedure set_base_key_value
19 (p_previous_job_extra_info_id in number) is
20 --
21 l_proc varchar2(72) := g_package||'set_base_key_value';
22 --
23 Begin
24 hr_utility.set_location('Entering:'||l_proc, 10);
25 --
26 per_pji_ins.g_previous_job_extra_info_id_i := p_previous_job_extra_info_id;
27 --
28 hr_utility.set_location(' Leaving:'||l_proc, 20);
29 End set_base_key_value;
30 --
31 --
32 -- ----------------------------------------------------------------------------
33 -- |------------------------------< insert_dml >------------------------------|
34 -- ----------------------------------------------------------------------------
35 -- {Start Of Comments}
36 --
37 -- Description:
38 -- This procedure controls the actual dml insert logic. The processing of
39 -- this procedure are as follows:
40 -- 1) Initialise the object_version_number to 1 if the object_version_number
41 -- is defined as an attribute for this entity.
42 -- 2) To set and unset the g_api_dml status as required (as we are about to
43 -- perform dml).
44 -- 3) To insert the row into the schema.
45 -- 4) To trap any constraint violations that may have occurred.
46 -- 5) To raise any other errors.
47 --
48 -- Prerequisites:
49 -- This is an internal private procedure which must be called from the ins
50 -- procedure and must have all mandatory attributes set (except the
51 -- object_version_number which is initialised within this procedure).
52 --
53 -- In Parameters:
54 -- A Pl/Sql record structre.
55 --
56 -- Post Success:
57 -- The specified row will be inserted into the schema.
58 --
59 -- Post Failure:
63 -- constraint_error procedure will be called.
60 -- On the insert dml failure it is important to note that we always reset the
61 -- g_api_dml status to false.
62 -- If a check, unique or parent integrity constraint violation is raised the
64 -- If any other error is reported, the error will be raised after the
65 -- g_api_dml status is reset.
66 --
67 -- Developer Implementation Notes:
68 -- None.
69 --
70 -- Access Status:
71 -- Internal Row Handler Use Only.
72 --
73 -- {End Of Comments}
74 -- ----------------------------------------------------------------------------
75 Procedure insert_dml
76 (p_rec in out nocopy per_pji_shd.g_rec_type
77 ) is
78 --
79 l_proc varchar2(72) := g_package||'insert_dml';
80 --
81 Begin
82 hr_utility.set_location('Entering:'||l_proc, 5);
83 p_rec.object_version_number := 1; -- Initialise the object version
84 --
85 -- Insert the row into: per_prev_job_extra_info
86 --
87 insert into per_prev_job_extra_info
88 (previous_job_extra_info_id
89 ,previous_job_id
90 ,information_type
91 ,pji_attribute_category
92 ,pji_attribute1
93 ,pji_attribute2
94 ,pji_attribute3
95 ,pji_attribute4
96 ,pji_attribute5
97 ,pji_attribute6
98 ,pji_attribute7
99 ,pji_attribute8
100 ,pji_attribute9
101 ,pji_attribute10
102 ,pji_attribute11
103 ,pji_attribute12
104 ,pji_attribute13
105 ,pji_attribute14
106 ,pji_attribute15
107 ,pji_attribute16
108 ,pji_attribute17
109 ,pji_attribute18
110 ,pji_attribute19
111 ,pji_attribute20
112 ,pji_attribute21
113 ,pji_attribute22
114 ,pji_attribute23
115 ,pji_attribute24
116 ,pji_attribute25
117 ,pji_attribute26
118 ,pji_attribute27
119 ,pji_attribute28
120 ,pji_attribute29
121 ,pji_attribute30
122 ,pji_information_category
123 ,pji_information1
124 ,pji_information2
125 ,pji_information3
126 ,pji_information4
127 ,pji_information5
128 ,pji_information6
129 ,pji_information7
130 ,pji_information8
131 ,pji_information9
132 ,pji_information10
133 ,pji_information11
134 ,pji_information12
135 ,pji_information13
136 ,pji_information14
137 ,pji_information15
138 ,pji_information16
139 ,pji_information17
140 ,pji_information18
141 ,pji_information19
142 ,pji_information20
143 ,pji_information21
144 ,pji_information22
145 ,pji_information23
146 ,pji_information24
147 ,pji_information25
148 ,pji_information26
149 ,pji_information27
150 ,pji_information28
151 ,pji_information29
152 ,pji_information30
153 ,object_version_number
154 )
155 Values
156 (p_rec.previous_job_extra_info_id
157 ,p_rec.previous_job_id
158 ,p_rec.information_type
159 ,p_rec.pji_attribute_category
160 ,p_rec.pji_attribute1
161 ,p_rec.pji_attribute2
162 ,p_rec.pji_attribute3
163 ,p_rec.pji_attribute4
164 ,p_rec.pji_attribute5
165 ,p_rec.pji_attribute6
166 ,p_rec.pji_attribute7
167 ,p_rec.pji_attribute8
168 ,p_rec.pji_attribute9
169 ,p_rec.pji_attribute10
170 ,p_rec.pji_attribute11
171 ,p_rec.pji_attribute12
172 ,p_rec.pji_attribute13
173 ,p_rec.pji_attribute14
174 ,p_rec.pji_attribute15
175 ,p_rec.pji_attribute16
176 ,p_rec.pji_attribute17
177 ,p_rec.pji_attribute18
178 ,p_rec.pji_attribute19
179 ,p_rec.pji_attribute20
180 ,p_rec.pji_attribute21
181 ,p_rec.pji_attribute22
182 ,p_rec.pji_attribute23
183 ,p_rec.pji_attribute24
184 ,p_rec.pji_attribute25
185 ,p_rec.pji_attribute26
186 ,p_rec.pji_attribute27
187 ,p_rec.pji_attribute28
188 ,p_rec.pji_attribute29
189 ,p_rec.pji_attribute30
190 ,p_rec.pji_information_category
191 ,p_rec.pji_information1
192 ,p_rec.pji_information2
193 ,p_rec.pji_information3
194 ,p_rec.pji_information4
195 ,p_rec.pji_information5
196 ,p_rec.pji_information6
197 ,p_rec.pji_information7
198 ,p_rec.pji_information8
199 ,p_rec.pji_information9
200 ,p_rec.pji_information10
201 ,p_rec.pji_information11
202 ,p_rec.pji_information12
203 ,p_rec.pji_information13
204 ,p_rec.pji_information14
205 ,p_rec.pji_information15
206 ,p_rec.pji_information16
207 ,p_rec.pji_information17
208 ,p_rec.pji_information18
209 ,p_rec.pji_information19
210 ,p_rec.pji_information20
211 ,p_rec.pji_information21
212 ,p_rec.pji_information22
213 ,p_rec.pji_information23
214 ,p_rec.pji_information24
215 ,p_rec.pji_information25
216 ,p_rec.pji_information26
217 ,p_rec.pji_information27
218 ,p_rec.pji_information28
219 ,p_rec.pji_information29
220 ,p_rec.pji_information30
221 ,p_rec.object_version_number
222 );
223 --
224 hr_utility.set_location(' Leaving:'||l_proc, 10);
225 Exception
229 per_pji_shd.constraint_error
226 When hr_api.check_integrity_violated Then
227 -- A check constraint has been violated
228 --
230 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
231 When hr_api.parent_integrity_violated Then
232 -- Parent integrity has been violated
233 --
234 per_pji_shd.constraint_error
235 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
236 When hr_api.unique_integrity_violated Then
237 -- Unique integrity has been violated
238 --
239 per_pji_shd.constraint_error
240 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
241 When Others Then
242 --
243 Raise;
244 End insert_dml;
245 --
246 -- ----------------------------------------------------------------------------
247 -- |------------------------------< pre_insert >------------------------------|
248 -- ----------------------------------------------------------------------------
249 -- {Start Of Comments}
250 --
251 -- Description:
252 -- This private procedure contains any processing which is required before
253 -- the insert dml. Presently, if the entity has a corresponding primary
254 -- key which is maintained by an associating sequence, the primary key for
255 -- the entity will be populated with the next sequence value in
256 -- preparation for the insert dml.
257 --
258 -- Prerequisites:
259 -- This is an internal procedure which is called from the ins procedure.
260 --
261 -- In Parameters:
262 -- A Pl/Sql record structure.
263 --
264 -- Post Success:
265 -- Processing continues.
266 --
267 -- Post Failure:
268 -- If an error has occurred, an error message and exception will be raised
269 -- but not handled.
270 --
271 -- Developer Implementation Notes:
272 -- Any pre-processing required before the insert dml is issued should be
273 -- coded within this procedure. As stated above, a good example is the
274 -- generation of a primary key number via a corresponding sequence.
275 -- It is important to note that any 3rd party maintenance should be reviewed
276 -- before placing in this procedure.
277 --
278 -- Access Status:
279 -- Internal Row Handler Use Only.
280 --
281 -- {End Of Comments}
282 -- ----------------------------------------------------------------------------
283 Procedure pre_insert
284 (p_rec in out nocopy per_pji_shd.g_rec_type
285 ) is
286 --
287 Cursor C_Sel1 is select per_prev_job_extra_info_s.nextval from sys.dual;
288 --
289 Cursor C_Sel2 is
290 Select null
291 from per_prev_job_extra_info
292 where previous_job_extra_info_id =
293 per_pji_ins.g_previous_job_extra_info_id_i;
294 --
295 l_proc varchar2(72) := g_package||'pre_insert';
296 l_exists varchar2(1);
297 --
298 Begin
299 hr_utility.set_location('Entering:'||l_proc, 5);
300 --
301 If (per_pji_ins.g_previous_job_extra_info_id_i is not null) Then
302 --
303 -- Verify registered primary key values not already in use
304 --
305 Open C_Sel2;
306 Fetch C_Sel2 into l_exists;
307 If C_Sel2%found Then
308 Close C_Sel2;
309 --
310 -- The primary key values are already in use.
311 --
312 fnd_message.set_name('PER','PER_289391_KEY_ALREADY_USED');
313 fnd_message.set_token('TABLE_NAME','per_prev_job_extra_info');
314 fnd_message.raise_error;
315 End If;
316 Close C_Sel2;
317 --
318 -- Use registered key values and clear globals
319 --
320 p_rec.previous_job_extra_info_id :=
321 per_pji_ins.g_previous_job_extra_info_id_i;
322 per_pji_ins.g_previous_job_extra_info_id_i := null;
323 Else
324 --
325 -- No registerd key values, so select the next sequence number
326 --
327 --
328 -- Select the next sequence number
329 --
330 Open C_Sel1;
331 Fetch C_Sel1 Into p_rec.previous_job_extra_info_id;
332 Close C_Sel1;
333 End If;
334 --
335 hr_utility.set_location(' Leaving:'||l_proc, 10);
336 End pre_insert;
337 --
338 -- ----------------------------------------------------------------------------
339 -- |-----------------------------< post_insert >------------------------------|
340 -- ----------------------------------------------------------------------------
341 -- {Start Of Comments}
342 --
343 -- Description:
344 -- This private procedure contains any processing which is required after
345 -- the insert dml.
346 --
347 -- Prerequisites:
348 -- This is an internal procedure which is called from the ins procedure.
349 --
350 -- In Parameters:
351 -- A Pl/Sql record structre.
352 --
353 -- Post Success:
354 -- Processing continues.
355 --
356 -- Post Failure:
357 -- If an error has occurred, an error message and exception will be raised
358 -- but not handled.
359 --
360 -- Developer Implementation Notes:
361 -- Any post-processing required after the insert dml is issued should be
362 -- coded within this procedure. It is important to note that any 3rd party
363 -- maintenance should be reviewed before placing in this procedure.
364 --
365 -- Access Status:
366 -- Internal Row Handler Use Only.
367 --
368 -- {End Of Comments}
369 -- ----------------------------------------------------------------------------
370 Procedure post_insert
371 (p_rec in per_pji_shd.g_rec_type
372 ) is
373 --
374 l_proc varchar2(72) := g_package||'post_insert';
378 begin
375 --
376 Begin
377 hr_utility.set_location('Entering:'||l_proc, 5);
379 --
380 per_pji_rki.after_insert
381 (p_previous_job_extra_info_id
382 => p_rec.previous_job_extra_info_id
383 ,p_previous_job_id
384 => p_rec.previous_job_id
385 ,p_information_type
386 => p_rec.information_type
387 ,p_pji_attribute_category
388 => p_rec.pji_attribute_category
389 ,p_pji_attribute1
390 => p_rec.pji_attribute1
391 ,p_pji_attribute2
392 => p_rec.pji_attribute2
393 ,p_pji_attribute3
394 => p_rec.pji_attribute3
395 ,p_pji_attribute4
396 => p_rec.pji_attribute4
397 ,p_pji_attribute5
398 => p_rec.pji_attribute5
399 ,p_pji_attribute6
400 => p_rec.pji_attribute6
401 ,p_pji_attribute7
402 => p_rec.pji_attribute7
403 ,p_pji_attribute8
404 => p_rec.pji_attribute8
405 ,p_pji_attribute9
406 => p_rec.pji_attribute9
407 ,p_pji_attribute10
408 => p_rec.pji_attribute10
409 ,p_pji_attribute11
410 => p_rec.pji_attribute11
411 ,p_pji_attribute12
412 => p_rec.pji_attribute12
413 ,p_pji_attribute13
414 => p_rec.pji_attribute13
415 ,p_pji_attribute14
416 => p_rec.pji_attribute14
417 ,p_pji_attribute15
418 => p_rec.pji_attribute15
419 ,p_pji_attribute16
420 => p_rec.pji_attribute16
421 ,p_pji_attribute17
422 => p_rec.pji_attribute17
423 ,p_pji_attribute18
424 => p_rec.pji_attribute18
425 ,p_pji_attribute19
426 => p_rec.pji_attribute19
427 ,p_pji_attribute20
428 => p_rec.pji_attribute20
429 ,p_pji_attribute21
430 => p_rec.pji_attribute21
431 ,p_pji_attribute22
432 => p_rec.pji_attribute22
433 ,p_pji_attribute23
434 => p_rec.pji_attribute23
435 ,p_pji_attribute24
436 => p_rec.pji_attribute24
437 ,p_pji_attribute25
438 => p_rec.pji_attribute25
439 ,p_pji_attribute26
440 => p_rec.pji_attribute26
441 ,p_pji_attribute27
442 => p_rec.pji_attribute27
443 ,p_pji_attribute28
444 => p_rec.pji_attribute28
445 ,p_pji_attribute29
446 => p_rec.pji_attribute29
447 ,p_pji_attribute30
448 => p_rec.pji_attribute30
449 ,p_pji_information_category
450 => p_rec.pji_information_category
451 ,p_pji_information1
452 => p_rec.pji_information1
453 ,p_pji_information2
454 => p_rec.pji_information2
455 ,p_pji_information3
456 => p_rec.pji_information3
457 ,p_pji_information4
458 => p_rec.pji_information4
459 ,p_pji_information5
460 => p_rec.pji_information5
461 ,p_pji_information6
462 => p_rec.pji_information6
463 ,p_pji_information7
464 => p_rec.pji_information7
465 ,p_pji_information8
466 => p_rec.pji_information8
467 ,p_pji_information9
468 => p_rec.pji_information9
469 ,p_pji_information10
470 => p_rec.pji_information10
471 ,p_pji_information11
472 => p_rec.pji_information11
473 ,p_pji_information12
474 => p_rec.pji_information12
475 ,p_pji_information13
476 => p_rec.pji_information13
477 ,p_pji_information14
478 => p_rec.pji_information14
479 ,p_pji_information15
480 => p_rec.pji_information15
481 ,p_pji_information16
482 => p_rec.pji_information16
483 ,p_pji_information17
484 => p_rec.pji_information17
485 ,p_pji_information18
486 => p_rec.pji_information18
487 ,p_pji_information19
488 => p_rec.pji_information19
489 ,p_pji_information20
490 => p_rec.pji_information20
491 ,p_pji_information21
492 => p_rec.pji_information21
493 ,p_pji_information22
494 => p_rec.pji_information22
495 ,p_pji_information23
496 => p_rec.pji_information23
497 ,p_pji_information24
498 => p_rec.pji_information24
499 ,p_pji_information25
500 => p_rec.pji_information25
501 ,p_pji_information26
502 => p_rec.pji_information26
503 ,p_pji_information27
504 => p_rec.pji_information27
505 ,p_pji_information28
506 => p_rec.pji_information28
507 ,p_pji_information29
508 => p_rec.pji_information29
509 ,p_pji_information30
510 => p_rec.pji_information30
511 ,p_object_version_number
512 => p_rec.object_version_number
513 );
514 --
515 exception
516 --
517 when hr_api.cannot_find_prog_unit then
518 --
519 hr_api.cannot_find_prog_unit_error
520 (p_module_name => 'PER_PREV_JOB_EXTRA_INFO'
521 ,p_hook_type => 'AI');
522 --
523 end;
524 --
525 hr_utility.set_location(' Leaving:'||l_proc, 10);
526 End post_insert;
527 --
528 -- ----------------------------------------------------------------------------
529 -- |---------------------------------< ins >----------------------------------|
530 -- ----------------------------------------------------------------------------
531 Procedure ins
532 (p_rec in out nocopy per_pji_shd.g_rec_type
533 ) is
534 --
535 l_proc varchar2(72) := g_package||'ins';
536 --
537 Begin
541 --
538 hr_utility.set_location('Entering:'||l_proc, 5);
539 --
540 -- Call the supporting insert validate operations
542 per_pji_bus.insert_validate
543 (p_rec
544 );
545 --
546 -- Call the supporting pre-insert operation
547 --
548 per_pji_ins.pre_insert(p_rec);
549 --
550 -- Insert the row
551 --
552 per_pji_ins.insert_dml(p_rec);
553 --
554 -- Call the supporting post-insert operation
555 --
556 per_pji_ins.post_insert
557 (p_rec
558 );
559 --
560 hr_utility.set_location('Leaving:'||l_proc, 20);
561 end ins;
562 --
563 -- ----------------------------------------------------------------------------
564 -- |---------------------------------< ins >----------------------------------|
565 -- ----------------------------------------------------------------------------
566 Procedure ins
567 (p_previous_job_id in number
568 ,p_information_type in varchar2
569 ,p_pji_attribute_category in varchar2 default null
570 ,p_pji_attribute1 in varchar2 default null
571 ,p_pji_attribute2 in varchar2 default null
572 ,p_pji_attribute3 in varchar2 default null
573 ,p_pji_attribute4 in varchar2 default null
574 ,p_pji_attribute5 in varchar2 default null
575 ,p_pji_attribute6 in varchar2 default null
576 ,p_pji_attribute7 in varchar2 default null
577 ,p_pji_attribute8 in varchar2 default null
578 ,p_pji_attribute9 in varchar2 default null
579 ,p_pji_attribute10 in varchar2 default null
580 ,p_pji_attribute11 in varchar2 default null
581 ,p_pji_attribute12 in varchar2 default null
582 ,p_pji_attribute13 in varchar2 default null
583 ,p_pji_attribute14 in varchar2 default null
584 ,p_pji_attribute15 in varchar2 default null
585 ,p_pji_attribute16 in varchar2 default null
586 ,p_pji_attribute17 in varchar2 default null
587 ,p_pji_attribute18 in varchar2 default null
588 ,p_pji_attribute19 in varchar2 default null
589 ,p_pji_attribute20 in varchar2 default null
590 ,p_pji_attribute21 in varchar2 default null
591 ,p_pji_attribute22 in varchar2 default null
592 ,p_pji_attribute23 in varchar2 default null
593 ,p_pji_attribute24 in varchar2 default null
594 ,p_pji_attribute25 in varchar2 default null
595 ,p_pji_attribute26 in varchar2 default null
596 ,p_pji_attribute27 in varchar2 default null
597 ,p_pji_attribute28 in varchar2 default null
598 ,p_pji_attribute29 in varchar2 default null
599 ,p_pji_attribute30 in varchar2 default null
600 ,p_pji_information_category in varchar2 default null
601 ,p_pji_information1 in varchar2 default null
602 ,p_pji_information2 in varchar2 default null
603 ,p_pji_information3 in varchar2 default null
604 ,p_pji_information4 in varchar2 default null
605 ,p_pji_information5 in varchar2 default null
606 ,p_pji_information6 in varchar2 default null
607 ,p_pji_information7 in varchar2 default null
608 ,p_pji_information8 in varchar2 default null
609 ,p_pji_information9 in varchar2 default null
610 ,p_pji_information10 in varchar2 default null
611 ,p_pji_information11 in varchar2 default null
612 ,p_pji_information12 in varchar2 default null
613 ,p_pji_information13 in varchar2 default null
614 ,p_pji_information14 in varchar2 default null
615 ,p_pji_information15 in varchar2 default null
616 ,p_pji_information16 in varchar2 default null
617 ,p_pji_information17 in varchar2 default null
618 ,p_pji_information18 in varchar2 default null
619 ,p_pji_information19 in varchar2 default null
620 ,p_pji_information20 in varchar2 default null
621 ,p_pji_information21 in varchar2 default null
622 ,p_pji_information22 in varchar2 default null
623 ,p_pji_information23 in varchar2 default null
624 ,p_pji_information24 in varchar2 default null
625 ,p_pji_information25 in varchar2 default null
626 ,p_pji_information26 in varchar2 default null
627 ,p_pji_information27 in varchar2 default null
628 ,p_pji_information28 in varchar2 default null
629 ,p_pji_information29 in varchar2 default null
630 ,p_pji_information30 in varchar2 default null
631 ,p_previous_job_extra_info_id out nocopy number
632 ,p_object_version_number out nocopy number
633 ) is
634 --
635 l_rec per_pji_shd.g_rec_type;
636 l_proc varchar2(72) := g_package||'ins';
637 --
638 Begin
639 hr_utility.set_location('Entering:'||l_proc, 5);
640 --
641 -- Call conversion function to turn arguments into the
642 -- p_rec structure.
643 --
644 l_rec :=
645 per_pji_shd.convert_args
646 (null
647 ,p_previous_job_id
648 ,p_information_type
649 ,p_pji_attribute_category
650 ,p_pji_attribute1
651 ,p_pji_attribute2
652 ,p_pji_attribute3
656 ,p_pji_attribute7
653 ,p_pji_attribute4
654 ,p_pji_attribute5
655 ,p_pji_attribute6
657 ,p_pji_attribute8
658 ,p_pji_attribute9
659 ,p_pji_attribute10
660 ,p_pji_attribute11
661 ,p_pji_attribute12
662 ,p_pji_attribute13
663 ,p_pji_attribute14
664 ,p_pji_attribute15
665 ,p_pji_attribute16
666 ,p_pji_attribute17
667 ,p_pji_attribute18
668 ,p_pji_attribute19
669 ,p_pji_attribute20
670 ,p_pji_attribute21
671 ,p_pji_attribute22
672 ,p_pji_attribute23
673 ,p_pji_attribute24
674 ,p_pji_attribute25
675 ,p_pji_attribute26
676 ,p_pji_attribute27
677 ,p_pji_attribute28
678 ,p_pji_attribute29
679 ,p_pji_attribute30
680 ,p_pji_information_category
681 ,p_pji_information1
682 ,p_pji_information2
683 ,p_pji_information3
684 ,p_pji_information4
685 ,p_pji_information5
686 ,p_pji_information6
687 ,p_pji_information7
688 ,p_pji_information8
689 ,p_pji_information9
690 ,p_pji_information10
691 ,p_pji_information11
692 ,p_pji_information12
693 ,p_pji_information13
694 ,p_pji_information14
695 ,p_pji_information15
696 ,p_pji_information16
697 ,p_pji_information17
698 ,p_pji_information18
699 ,p_pji_information19
700 ,p_pji_information20
701 ,p_pji_information21
702 ,p_pji_information22
703 ,p_pji_information23
704 ,p_pji_information24
705 ,p_pji_information25
706 ,p_pji_information26
707 ,p_pji_information27
708 ,p_pji_information28
709 ,p_pji_information29
710 ,p_pji_information30
711 ,null
712 );
713 --
714 -- Having converted the arguments into the per_pji_rec
715 -- plsql record structure we call the corresponding record business process.
716 --
717 per_pji_ins.ins
718 (l_rec
719 );
720 --
721 -- As the primary key argument(s)
722 -- are specified as an OUT's we must set these values.
723 --
724 p_previous_job_extra_info_id := l_rec.previous_job_extra_info_id;
725 p_object_version_number := l_rec.object_version_number;
726 --
727 hr_utility.set_location(' Leaving:'||l_proc, 10);
728 End ins;
729 --
730 end per_pji_ins;