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: --
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: --
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: --
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;
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: --
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: --
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: --
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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: --
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: --
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);
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