145: --
146: hr_utility.set_location(' Leaving:'||l_proc, 10);
147: --
148: Exception
149: When hr_api.check_integrity_violated Then
150: -- A check constraint has been violated
151: --
152: pqh_rei_shd.constraint_error
153: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
149: When hr_api.check_integrity_violated Then
150: -- A check constraint has been violated
151: --
152: pqh_rei_shd.constraint_error
153: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
154: When hr_api.parent_integrity_violated Then
155: -- Parent integrity has been violated
156: --
157: pqh_rei_shd.constraint_error
150: -- A check constraint has been violated
151: --
152: pqh_rei_shd.constraint_error
153: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
154: When hr_api.parent_integrity_violated Then
155: -- Parent integrity has been violated
156: --
157: pqh_rei_shd.constraint_error
158: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
154: When hr_api.parent_integrity_violated Then
155: -- Parent integrity has been violated
156: --
157: pqh_rei_shd.constraint_error
158: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
159: When hr_api.unique_integrity_violated Then
160: -- Unique integrity has been violated
161: --
162: pqh_rei_shd.constraint_error
155: -- Parent integrity has been violated
156: --
157: pqh_rei_shd.constraint_error
158: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
159: When hr_api.unique_integrity_violated Then
160: -- Unique integrity has been violated
161: --
162: pqh_rei_shd.constraint_error
163: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
159: When hr_api.unique_integrity_violated Then
160: -- Unique integrity has been violated
161: --
162: pqh_rei_shd.constraint_error
163: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
164: When Others Then
165: --
166: Raise;
167: End update_dml;
395: );
396: --
397: exception
398: --
399: when hr_api.cannot_find_prog_unit then
400: --
401: hr_api.cannot_find_prog_unit_error
402: (p_module_name => 'PQH_ROLE_EXTRA_INFO'
403: ,p_hook_type => 'AU');
397: exception
398: --
399: when hr_api.cannot_find_prog_unit then
400: --
401: hr_api.cannot_find_prog_unit_error
402: (p_module_name => 'PQH_ROLE_EXTRA_INFO'
403: ,p_hook_type => 'AU');
404: --
405: end;
460: -- p_rec plsql record structure
461: -- to see if a system default is being used. If a system default
462: -- is being used then we must set to the 'current' argument value.
463: --
464: If (p_rec.role_id = hr_api.g_number) then
465: p_rec.role_id :=
466: pqh_rei_shd.g_old_rec.role_id;
467: End If;
468: If (p_rec.information_type = hr_api.g_varchar2) then
464: If (p_rec.role_id = hr_api.g_number) then
465: p_rec.role_id :=
466: pqh_rei_shd.g_old_rec.role_id;
467: End If;
468: If (p_rec.information_type = hr_api.g_varchar2) then
469: p_rec.information_type :=
470: pqh_rei_shd.g_old_rec.information_type;
471: End If;
472: If (p_rec.request_id = hr_api.g_number) then
468: If (p_rec.information_type = hr_api.g_varchar2) then
469: p_rec.information_type :=
470: pqh_rei_shd.g_old_rec.information_type;
471: End If;
472: If (p_rec.request_id = hr_api.g_number) then
473: p_rec.request_id :=
474: pqh_rei_shd.g_old_rec.request_id;
475: End If;
476: If (p_rec.program_application_id = hr_api.g_number) then
472: If (p_rec.request_id = hr_api.g_number) then
473: p_rec.request_id :=
474: pqh_rei_shd.g_old_rec.request_id;
475: End If;
476: If (p_rec.program_application_id = hr_api.g_number) then
477: p_rec.program_application_id :=
478: pqh_rei_shd.g_old_rec.program_application_id;
479: End If;
480: If (p_rec.program_id = hr_api.g_number) then
476: If (p_rec.program_application_id = hr_api.g_number) then
477: p_rec.program_application_id :=
478: pqh_rei_shd.g_old_rec.program_application_id;
479: End If;
480: If (p_rec.program_id = hr_api.g_number) then
481: p_rec.program_id :=
482: pqh_rei_shd.g_old_rec.program_id;
483: End If;
484: If (p_rec.program_update_date = hr_api.g_date) then
480: If (p_rec.program_id = hr_api.g_number) then
481: p_rec.program_id :=
482: pqh_rei_shd.g_old_rec.program_id;
483: End If;
484: If (p_rec.program_update_date = hr_api.g_date) then
485: p_rec.program_update_date :=
486: pqh_rei_shd.g_old_rec.program_update_date;
487: End If;
488: If (p_rec.attribute_category = hr_api.g_varchar2) then
484: If (p_rec.program_update_date = hr_api.g_date) then
485: p_rec.program_update_date :=
486: pqh_rei_shd.g_old_rec.program_update_date;
487: End If;
488: If (p_rec.attribute_category = hr_api.g_varchar2) then
489: p_rec.attribute_category :=
490: pqh_rei_shd.g_old_rec.attribute_category;
491: End If;
492: If (p_rec.attribute1 = hr_api.g_varchar2) then
488: If (p_rec.attribute_category = hr_api.g_varchar2) then
489: p_rec.attribute_category :=
490: pqh_rei_shd.g_old_rec.attribute_category;
491: End If;
492: If (p_rec.attribute1 = hr_api.g_varchar2) then
493: p_rec.attribute1 :=
494: pqh_rei_shd.g_old_rec.attribute1;
495: End If;
496: If (p_rec.attribute2 = hr_api.g_varchar2) then
492: If (p_rec.attribute1 = hr_api.g_varchar2) then
493: p_rec.attribute1 :=
494: pqh_rei_shd.g_old_rec.attribute1;
495: End If;
496: If (p_rec.attribute2 = hr_api.g_varchar2) then
497: p_rec.attribute2 :=
498: pqh_rei_shd.g_old_rec.attribute2;
499: End If;
500: If (p_rec.attribute3 = hr_api.g_varchar2) then
496: If (p_rec.attribute2 = hr_api.g_varchar2) then
497: p_rec.attribute2 :=
498: pqh_rei_shd.g_old_rec.attribute2;
499: End If;
500: If (p_rec.attribute3 = hr_api.g_varchar2) then
501: p_rec.attribute3 :=
502: pqh_rei_shd.g_old_rec.attribute3;
503: End If;
504: If (p_rec.attribute4 = hr_api.g_varchar2) then
500: If (p_rec.attribute3 = hr_api.g_varchar2) then
501: p_rec.attribute3 :=
502: pqh_rei_shd.g_old_rec.attribute3;
503: End If;
504: If (p_rec.attribute4 = hr_api.g_varchar2) then
505: p_rec.attribute4 :=
506: pqh_rei_shd.g_old_rec.attribute4;
507: End If;
508: If (p_rec.attribute5 = hr_api.g_varchar2) then
504: If (p_rec.attribute4 = hr_api.g_varchar2) then
505: p_rec.attribute4 :=
506: pqh_rei_shd.g_old_rec.attribute4;
507: End If;
508: If (p_rec.attribute5 = hr_api.g_varchar2) then
509: p_rec.attribute5 :=
510: pqh_rei_shd.g_old_rec.attribute5;
511: End If;
512: If (p_rec.attribute6 = hr_api.g_varchar2) then
508: If (p_rec.attribute5 = hr_api.g_varchar2) then
509: p_rec.attribute5 :=
510: pqh_rei_shd.g_old_rec.attribute5;
511: End If;
512: If (p_rec.attribute6 = hr_api.g_varchar2) then
513: p_rec.attribute6 :=
514: pqh_rei_shd.g_old_rec.attribute6;
515: End If;
516: If (p_rec.attribute7 = hr_api.g_varchar2) then
512: If (p_rec.attribute6 = hr_api.g_varchar2) then
513: p_rec.attribute6 :=
514: pqh_rei_shd.g_old_rec.attribute6;
515: End If;
516: If (p_rec.attribute7 = hr_api.g_varchar2) then
517: p_rec.attribute7 :=
518: pqh_rei_shd.g_old_rec.attribute7;
519: End If;
520: If (p_rec.attribute8 = hr_api.g_varchar2) then
516: If (p_rec.attribute7 = hr_api.g_varchar2) then
517: p_rec.attribute7 :=
518: pqh_rei_shd.g_old_rec.attribute7;
519: End If;
520: If (p_rec.attribute8 = hr_api.g_varchar2) then
521: p_rec.attribute8 :=
522: pqh_rei_shd.g_old_rec.attribute8;
523: End If;
524: If (p_rec.attribute9 = hr_api.g_varchar2) then
520: If (p_rec.attribute8 = hr_api.g_varchar2) then
521: p_rec.attribute8 :=
522: pqh_rei_shd.g_old_rec.attribute8;
523: End If;
524: If (p_rec.attribute9 = hr_api.g_varchar2) then
525: p_rec.attribute9 :=
526: pqh_rei_shd.g_old_rec.attribute9;
527: End If;
528: If (p_rec.attribute10 = hr_api.g_varchar2) then
524: If (p_rec.attribute9 = hr_api.g_varchar2) then
525: p_rec.attribute9 :=
526: pqh_rei_shd.g_old_rec.attribute9;
527: End If;
528: If (p_rec.attribute10 = hr_api.g_varchar2) then
529: p_rec.attribute10 :=
530: pqh_rei_shd.g_old_rec.attribute10;
531: End If;
532: If (p_rec.attribute11 = hr_api.g_varchar2) then
528: If (p_rec.attribute10 = hr_api.g_varchar2) then
529: p_rec.attribute10 :=
530: pqh_rei_shd.g_old_rec.attribute10;
531: End If;
532: If (p_rec.attribute11 = hr_api.g_varchar2) then
533: p_rec.attribute11 :=
534: pqh_rei_shd.g_old_rec.attribute11;
535: End If;
536: If (p_rec.attribute12 = hr_api.g_varchar2) then
532: If (p_rec.attribute11 = hr_api.g_varchar2) then
533: p_rec.attribute11 :=
534: pqh_rei_shd.g_old_rec.attribute11;
535: End If;
536: If (p_rec.attribute12 = hr_api.g_varchar2) then
537: p_rec.attribute12 :=
538: pqh_rei_shd.g_old_rec.attribute12;
539: End If;
540: If (p_rec.attribute13 = hr_api.g_varchar2) then
536: If (p_rec.attribute12 = hr_api.g_varchar2) then
537: p_rec.attribute12 :=
538: pqh_rei_shd.g_old_rec.attribute12;
539: End If;
540: If (p_rec.attribute13 = hr_api.g_varchar2) then
541: p_rec.attribute13 :=
542: pqh_rei_shd.g_old_rec.attribute13;
543: End If;
544: If (p_rec.attribute14 = hr_api.g_varchar2) then
540: If (p_rec.attribute13 = hr_api.g_varchar2) then
541: p_rec.attribute13 :=
542: pqh_rei_shd.g_old_rec.attribute13;
543: End If;
544: If (p_rec.attribute14 = hr_api.g_varchar2) then
545: p_rec.attribute14 :=
546: pqh_rei_shd.g_old_rec.attribute14;
547: End If;
548: If (p_rec.attribute15 = hr_api.g_varchar2) then
544: If (p_rec.attribute14 = hr_api.g_varchar2) then
545: p_rec.attribute14 :=
546: pqh_rei_shd.g_old_rec.attribute14;
547: End If;
548: If (p_rec.attribute15 = hr_api.g_varchar2) then
549: p_rec.attribute15 :=
550: pqh_rei_shd.g_old_rec.attribute15;
551: End If;
552: If (p_rec.attribute16 = hr_api.g_varchar2) then
548: If (p_rec.attribute15 = hr_api.g_varchar2) then
549: p_rec.attribute15 :=
550: pqh_rei_shd.g_old_rec.attribute15;
551: End If;
552: If (p_rec.attribute16 = hr_api.g_varchar2) then
553: p_rec.attribute16 :=
554: pqh_rei_shd.g_old_rec.attribute16;
555: End If;
556: If (p_rec.attribute17 = hr_api.g_varchar2) then
552: If (p_rec.attribute16 = hr_api.g_varchar2) then
553: p_rec.attribute16 :=
554: pqh_rei_shd.g_old_rec.attribute16;
555: End If;
556: If (p_rec.attribute17 = hr_api.g_varchar2) then
557: p_rec.attribute17 :=
558: pqh_rei_shd.g_old_rec.attribute17;
559: End If;
560: If (p_rec.attribute18 = hr_api.g_varchar2) then
556: If (p_rec.attribute17 = hr_api.g_varchar2) then
557: p_rec.attribute17 :=
558: pqh_rei_shd.g_old_rec.attribute17;
559: End If;
560: If (p_rec.attribute18 = hr_api.g_varchar2) then
561: p_rec.attribute18 :=
562: pqh_rei_shd.g_old_rec.attribute18;
563: End If;
564: If (p_rec.attribute19 = hr_api.g_varchar2) then
560: If (p_rec.attribute18 = hr_api.g_varchar2) then
561: p_rec.attribute18 :=
562: pqh_rei_shd.g_old_rec.attribute18;
563: End If;
564: If (p_rec.attribute19 = hr_api.g_varchar2) then
565: p_rec.attribute19 :=
566: pqh_rei_shd.g_old_rec.attribute19;
567: End If;
568: If (p_rec.attribute20 = hr_api.g_varchar2) then
564: If (p_rec.attribute19 = hr_api.g_varchar2) then
565: p_rec.attribute19 :=
566: pqh_rei_shd.g_old_rec.attribute19;
567: End If;
568: If (p_rec.attribute20 = hr_api.g_varchar2) then
569: p_rec.attribute20 :=
570: pqh_rei_shd.g_old_rec.attribute20;
571: End If;
572: If (p_rec.attribute21 = hr_api.g_varchar2) then
568: If (p_rec.attribute20 = hr_api.g_varchar2) then
569: p_rec.attribute20 :=
570: pqh_rei_shd.g_old_rec.attribute20;
571: End If;
572: If (p_rec.attribute21 = hr_api.g_varchar2) then
573: p_rec.attribute21 :=
574: pqh_rei_shd.g_old_rec.attribute21;
575: End If;
576: If (p_rec.attribute22 = hr_api.g_varchar2) then
572: If (p_rec.attribute21 = hr_api.g_varchar2) then
573: p_rec.attribute21 :=
574: pqh_rei_shd.g_old_rec.attribute21;
575: End If;
576: If (p_rec.attribute22 = hr_api.g_varchar2) then
577: p_rec.attribute22 :=
578: pqh_rei_shd.g_old_rec.attribute22;
579: End If;
580: If (p_rec.attribute23 = hr_api.g_varchar2) then
576: If (p_rec.attribute22 = hr_api.g_varchar2) then
577: p_rec.attribute22 :=
578: pqh_rei_shd.g_old_rec.attribute22;
579: End If;
580: If (p_rec.attribute23 = hr_api.g_varchar2) then
581: p_rec.attribute23 :=
582: pqh_rei_shd.g_old_rec.attribute23;
583: End If;
584: If (p_rec.attribute24 = hr_api.g_varchar2) then
580: If (p_rec.attribute23 = hr_api.g_varchar2) then
581: p_rec.attribute23 :=
582: pqh_rei_shd.g_old_rec.attribute23;
583: End If;
584: If (p_rec.attribute24 = hr_api.g_varchar2) then
585: p_rec.attribute24 :=
586: pqh_rei_shd.g_old_rec.attribute24;
587: End If;
588: If (p_rec.attribute25 = hr_api.g_varchar2) then
584: If (p_rec.attribute24 = hr_api.g_varchar2) then
585: p_rec.attribute24 :=
586: pqh_rei_shd.g_old_rec.attribute24;
587: End If;
588: If (p_rec.attribute25 = hr_api.g_varchar2) then
589: p_rec.attribute25 :=
590: pqh_rei_shd.g_old_rec.attribute25;
591: End If;
592: If (p_rec.attribute26 = hr_api.g_varchar2) then
588: If (p_rec.attribute25 = hr_api.g_varchar2) then
589: p_rec.attribute25 :=
590: pqh_rei_shd.g_old_rec.attribute25;
591: End If;
592: If (p_rec.attribute26 = hr_api.g_varchar2) then
593: p_rec.attribute26 :=
594: pqh_rei_shd.g_old_rec.attribute26;
595: End If;
596: If (p_rec.attribute27 = hr_api.g_varchar2) then
592: If (p_rec.attribute26 = hr_api.g_varchar2) then
593: p_rec.attribute26 :=
594: pqh_rei_shd.g_old_rec.attribute26;
595: End If;
596: If (p_rec.attribute27 = hr_api.g_varchar2) then
597: p_rec.attribute27 :=
598: pqh_rei_shd.g_old_rec.attribute27;
599: End If;
600: If (p_rec.attribute28 = hr_api.g_varchar2) then
596: If (p_rec.attribute27 = hr_api.g_varchar2) then
597: p_rec.attribute27 :=
598: pqh_rei_shd.g_old_rec.attribute27;
599: End If;
600: If (p_rec.attribute28 = hr_api.g_varchar2) then
601: p_rec.attribute28 :=
602: pqh_rei_shd.g_old_rec.attribute28;
603: End If;
604: If (p_rec.attribute29 = hr_api.g_varchar2) then
600: If (p_rec.attribute28 = hr_api.g_varchar2) then
601: p_rec.attribute28 :=
602: pqh_rei_shd.g_old_rec.attribute28;
603: End If;
604: If (p_rec.attribute29 = hr_api.g_varchar2) then
605: p_rec.attribute29 :=
606: pqh_rei_shd.g_old_rec.attribute29;
607: End If;
608: If (p_rec.attribute30 = hr_api.g_varchar2) then
604: If (p_rec.attribute29 = hr_api.g_varchar2) then
605: p_rec.attribute29 :=
606: pqh_rei_shd.g_old_rec.attribute29;
607: End If;
608: If (p_rec.attribute30 = hr_api.g_varchar2) then
609: p_rec.attribute30 :=
610: pqh_rei_shd.g_old_rec.attribute30;
611: End If;
612:
609: p_rec.attribute30 :=
610: pqh_rei_shd.g_old_rec.attribute30;
611: End If;
612:
613: If (p_rec.information_category = hr_api.g_varchar2) then
614: p_rec.information_category :=
615: pqh_rei_shd.g_old_rec.information_category;
616: End If;
617: If (p_rec.information1 = hr_api.g_varchar2) then
613: If (p_rec.information_category = hr_api.g_varchar2) then
614: p_rec.information_category :=
615: pqh_rei_shd.g_old_rec.information_category;
616: End If;
617: If (p_rec.information1 = hr_api.g_varchar2) then
618: p_rec.information1 :=
619: pqh_rei_shd.g_old_rec.information1;
620: End If;
621: If (p_rec.information2 = hr_api.g_varchar2) then
617: If (p_rec.information1 = hr_api.g_varchar2) then
618: p_rec.information1 :=
619: pqh_rei_shd.g_old_rec.information1;
620: End If;
621: If (p_rec.information2 = hr_api.g_varchar2) then
622: p_rec.information2 :=
623: pqh_rei_shd.g_old_rec.information2;
624: End If;
625: If (p_rec.information3 = hr_api.g_varchar2) then
621: If (p_rec.information2 = hr_api.g_varchar2) then
622: p_rec.information2 :=
623: pqh_rei_shd.g_old_rec.information2;
624: End If;
625: If (p_rec.information3 = hr_api.g_varchar2) then
626: p_rec.information3 :=
627: pqh_rei_shd.g_old_rec.information3;
628: End If;
629: If (p_rec.information4 = hr_api.g_varchar2) then
625: If (p_rec.information3 = hr_api.g_varchar2) then
626: p_rec.information3 :=
627: pqh_rei_shd.g_old_rec.information3;
628: End If;
629: If (p_rec.information4 = hr_api.g_varchar2) then
630: p_rec.information4 :=
631: pqh_rei_shd.g_old_rec.information4;
632: End If;
633: If (p_rec.information5 = hr_api.g_varchar2) then
629: If (p_rec.information4 = hr_api.g_varchar2) then
630: p_rec.information4 :=
631: pqh_rei_shd.g_old_rec.information4;
632: End If;
633: If (p_rec.information5 = hr_api.g_varchar2) then
634: p_rec.information5 :=
635: pqh_rei_shd.g_old_rec.information5;
636: End If;
637: If (p_rec.information6 = hr_api.g_varchar2) then
633: If (p_rec.information5 = hr_api.g_varchar2) then
634: p_rec.information5 :=
635: pqh_rei_shd.g_old_rec.information5;
636: End If;
637: If (p_rec.information6 = hr_api.g_varchar2) then
638: p_rec.information6 :=
639: pqh_rei_shd.g_old_rec.information6;
640: End If;
641: If (p_rec.information7 = hr_api.g_varchar2) then
637: If (p_rec.information6 = hr_api.g_varchar2) then
638: p_rec.information6 :=
639: pqh_rei_shd.g_old_rec.information6;
640: End If;
641: If (p_rec.information7 = hr_api.g_varchar2) then
642: p_rec.information7 :=
643: pqh_rei_shd.g_old_rec.information7;
644: End If;
645: If (p_rec.information8 = hr_api.g_varchar2) then
641: If (p_rec.information7 = hr_api.g_varchar2) then
642: p_rec.information7 :=
643: pqh_rei_shd.g_old_rec.information7;
644: End If;
645: If (p_rec.information8 = hr_api.g_varchar2) then
646: p_rec.information8 :=
647: pqh_rei_shd.g_old_rec.information8;
648: End If;
649: If (p_rec.information9 = hr_api.g_varchar2) then
645: If (p_rec.information8 = hr_api.g_varchar2) then
646: p_rec.information8 :=
647: pqh_rei_shd.g_old_rec.information8;
648: End If;
649: If (p_rec.information9 = hr_api.g_varchar2) then
650: p_rec.information9 :=
651: pqh_rei_shd.g_old_rec.information9;
652: End If;
653: If (p_rec.information10 = hr_api.g_varchar2) then
649: If (p_rec.information9 = hr_api.g_varchar2) then
650: p_rec.information9 :=
651: pqh_rei_shd.g_old_rec.information9;
652: End If;
653: If (p_rec.information10 = hr_api.g_varchar2) then
654: p_rec.information10 :=
655: pqh_rei_shd.g_old_rec.information10;
656: End If;
657: If (p_rec.information11 = hr_api.g_varchar2) then
653: If (p_rec.information10 = hr_api.g_varchar2) then
654: p_rec.information10 :=
655: pqh_rei_shd.g_old_rec.information10;
656: End If;
657: If (p_rec.information11 = hr_api.g_varchar2) then
658: p_rec.information11 :=
659: pqh_rei_shd.g_old_rec.information11;
660: End If;
661: If (p_rec.information12 = hr_api.g_varchar2) then
657: If (p_rec.information11 = hr_api.g_varchar2) then
658: p_rec.information11 :=
659: pqh_rei_shd.g_old_rec.information11;
660: End If;
661: If (p_rec.information12 = hr_api.g_varchar2) then
662: p_rec.information12 :=
663: pqh_rei_shd.g_old_rec.information12;
664: End If;
665: If (p_rec.information13 = hr_api.g_varchar2) then
661: If (p_rec.information12 = hr_api.g_varchar2) then
662: p_rec.information12 :=
663: pqh_rei_shd.g_old_rec.information12;
664: End If;
665: If (p_rec.information13 = hr_api.g_varchar2) then
666: p_rec.information13 :=
667: pqh_rei_shd.g_old_rec.information13;
668: End If;
669: If (p_rec.information14 = hr_api.g_varchar2) then
665: If (p_rec.information13 = hr_api.g_varchar2) then
666: p_rec.information13 :=
667: pqh_rei_shd.g_old_rec.information13;
668: End If;
669: If (p_rec.information14 = hr_api.g_varchar2) then
670: p_rec.information14 :=
671: pqh_rei_shd.g_old_rec.information14;
672: End If;
673: If (p_rec.information15 = hr_api.g_varchar2) then
669: If (p_rec.information14 = hr_api.g_varchar2) then
670: p_rec.information14 :=
671: pqh_rei_shd.g_old_rec.information14;
672: End If;
673: If (p_rec.information15 = hr_api.g_varchar2) then
674: p_rec.information15 :=
675: pqh_rei_shd.g_old_rec.information15;
676: End If;
677: If (p_rec.information16 = hr_api.g_varchar2) then
673: If (p_rec.information15 = hr_api.g_varchar2) then
674: p_rec.information15 :=
675: pqh_rei_shd.g_old_rec.information15;
676: End If;
677: If (p_rec.information16 = hr_api.g_varchar2) then
678: p_rec.information16 :=
679: pqh_rei_shd.g_old_rec.information16;
680: End If;
681: If (p_rec.information17 = hr_api.g_varchar2) then
677: If (p_rec.information16 = hr_api.g_varchar2) then
678: p_rec.information16 :=
679: pqh_rei_shd.g_old_rec.information16;
680: End If;
681: If (p_rec.information17 = hr_api.g_varchar2) then
682: p_rec.information17 :=
683: pqh_rei_shd.g_old_rec.information17;
684: End If;
685: If (p_rec.information18 = hr_api.g_varchar2) then
681: If (p_rec.information17 = hr_api.g_varchar2) then
682: p_rec.information17 :=
683: pqh_rei_shd.g_old_rec.information17;
684: End If;
685: If (p_rec.information18 = hr_api.g_varchar2) then
686: p_rec.information18 :=
687: pqh_rei_shd.g_old_rec.information18;
688: End If;
689: If (p_rec.information19 = hr_api.g_varchar2) then
685: If (p_rec.information18 = hr_api.g_varchar2) then
686: p_rec.information18 :=
687: pqh_rei_shd.g_old_rec.information18;
688: End If;
689: If (p_rec.information19 = hr_api.g_varchar2) then
690: p_rec.information19 :=
691: pqh_rei_shd.g_old_rec.information19;
692: End If;
693: If (p_rec.information20 = hr_api.g_varchar2) then
689: If (p_rec.information19 = hr_api.g_varchar2) then
690: p_rec.information19 :=
691: pqh_rei_shd.g_old_rec.information19;
692: End If;
693: If (p_rec.information20 = hr_api.g_varchar2) then
694: p_rec.information20 :=
695: pqh_rei_shd.g_old_rec.information20;
696: End If;
697: If (p_rec.information21 = hr_api.g_varchar2) then
693: If (p_rec.information20 = hr_api.g_varchar2) then
694: p_rec.information20 :=
695: pqh_rei_shd.g_old_rec.information20;
696: End If;
697: If (p_rec.information21 = hr_api.g_varchar2) then
698: p_rec.information21 :=
699: pqh_rei_shd.g_old_rec.information21;
700: End If;
701: If (p_rec.information22 = hr_api.g_varchar2) then
697: If (p_rec.information21 = hr_api.g_varchar2) then
698: p_rec.information21 :=
699: pqh_rei_shd.g_old_rec.information21;
700: End If;
701: If (p_rec.information22 = hr_api.g_varchar2) then
702: p_rec.information22 :=
703: pqh_rei_shd.g_old_rec.information22;
704: End If;
705: If (p_rec.information23 = hr_api.g_varchar2) then
701: If (p_rec.information22 = hr_api.g_varchar2) then
702: p_rec.information22 :=
703: pqh_rei_shd.g_old_rec.information22;
704: End If;
705: If (p_rec.information23 = hr_api.g_varchar2) then
706: p_rec.information23 :=
707: pqh_rei_shd.g_old_rec.information23;
708: End If;
709: If (p_rec.information24 = hr_api.g_varchar2) then
705: If (p_rec.information23 = hr_api.g_varchar2) then
706: p_rec.information23 :=
707: pqh_rei_shd.g_old_rec.information23;
708: End If;
709: If (p_rec.information24 = hr_api.g_varchar2) then
710: p_rec.information24 :=
711: pqh_rei_shd.g_old_rec.information24;
712: End If;
713: If (p_rec.information25 = hr_api.g_varchar2) then
709: If (p_rec.information24 = hr_api.g_varchar2) then
710: p_rec.information24 :=
711: pqh_rei_shd.g_old_rec.information24;
712: End If;
713: If (p_rec.information25 = hr_api.g_varchar2) then
714: p_rec.information25 :=
715: pqh_rei_shd.g_old_rec.information25;
716: End If;
717: If (p_rec.information26 = hr_api.g_varchar2) then
713: If (p_rec.information25 = hr_api.g_varchar2) then
714: p_rec.information25 :=
715: pqh_rei_shd.g_old_rec.information25;
716: End If;
717: If (p_rec.information26 = hr_api.g_varchar2) then
718: p_rec.information26 :=
719: pqh_rei_shd.g_old_rec.information26;
720: End If;
721: If (p_rec.information27 = hr_api.g_varchar2) then
717: If (p_rec.information26 = hr_api.g_varchar2) then
718: p_rec.information26 :=
719: pqh_rei_shd.g_old_rec.information26;
720: End If;
721: If (p_rec.information27 = hr_api.g_varchar2) then
722: p_rec.information27 :=
723: pqh_rei_shd.g_old_rec.information27;
724: End If;
725: If (p_rec.information28 = hr_api.g_varchar2) then
721: If (p_rec.information27 = hr_api.g_varchar2) then
722: p_rec.information27 :=
723: pqh_rei_shd.g_old_rec.information27;
724: End If;
725: If (p_rec.information28 = hr_api.g_varchar2) then
726: p_rec.information28 :=
727: pqh_rei_shd.g_old_rec.information28;
728: End If;
729: If (p_rec.information29 = hr_api.g_varchar2) then
725: If (p_rec.information28 = hr_api.g_varchar2) then
726: p_rec.information28 :=
727: pqh_rei_shd.g_old_rec.information28;
728: End If;
729: If (p_rec.information29 = hr_api.g_varchar2) then
730: p_rec.information29 :=
731: pqh_rei_shd.g_old_rec.information29;
732: End If;
733: If (p_rec.information30 = hr_api.g_varchar2) then
729: If (p_rec.information29 = hr_api.g_varchar2) then
730: p_rec.information29 :=
731: pqh_rei_shd.g_old_rec.information29;
732: End If;
733: If (p_rec.information30 = hr_api.g_varchar2) then
734: p_rec.information30 :=
735: pqh_rei_shd.g_old_rec.information30;
736: End If;
737: --
796: --
797: -- If we are validating then raise the Validate_Enabled exception
798: --
799: If p_validate then
800: Raise HR_Api.Validate_Enabled;
801: End If;
802: --
803: -- Call to raise any errors on multi-message list
804: hr_multi_message.end_validation_set;
802: --
803: -- Call to raise any errors on multi-message list
804: hr_multi_message.end_validation_set;
805: Exception
806: When HR_Api.Validate_Enabled Then
807: --
808: -- As the Validate_Enabled exception has been raised
809: -- we must rollback to the savepoint
810: --