114: --
115: hr_utility.set_location(' Leaving:'||l_proc,10);
116: --
117: Exception
118: When hr_api.check_integrity_violated Then
119: -- A check constraint has been violated
120: --
121: pqh_rls_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When hr_api.check_integrity_violated Then
119: -- A check constraint has been violated
120: --
121: pqh_rls_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.parent_integrity_violated Then
124: -- Parent integrity has been violated
125: --
126: pqh_rls_shd.constraint_error
119: -- A check constraint has been violated
120: --
121: pqh_rls_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.parent_integrity_violated Then
124: -- Parent integrity has been violated
125: --
126: pqh_rls_shd.constraint_error
127: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.parent_integrity_violated Then
124: -- Parent integrity has been violated
125: --
126: pqh_rls_shd.constraint_error
127: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
128: When hr_api.unique_integrity_violated Then
129: -- Unique integrity has been violated
130: --
131: pqh_rls_shd.constraint_error
124: -- Parent integrity has been violated
125: --
126: pqh_rls_shd.constraint_error
127: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
128: When hr_api.unique_integrity_violated Then
129: -- Unique integrity has been violated
130: --
131: pqh_rls_shd.constraint_error
132: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
128: When hr_api.unique_integrity_violated Then
129: -- Unique integrity has been violated
130: --
131: pqh_rls_shd.constraint_error
132: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
133: When Others Then
134: --
135: Raise;
136: End update_dml;
462: -- plsql record structure
463: -- to see if a system default is being used. If a system default
464: -- is being used then we must set to the 'current' argument value.
465: --
466: If (p_rec.role_name = hr_api.g_varchar2) then
467: p_rec.role_name :=
468: pqh_rls_shd.g_old_rec.role_name;
469: End If;
470: If (p_rec.role_type_cd = hr_api.g_varchar2) then
466: If (p_rec.role_name = hr_api.g_varchar2) then
467: p_rec.role_name :=
468: pqh_rls_shd.g_old_rec.role_name;
469: End If;
470: If (p_rec.role_type_cd = hr_api.g_varchar2) then
471: p_rec.role_type_cd :=
472: pqh_rls_shd.g_old_rec.role_type_cd;
473: End If;
474: If (p_rec.enable_flag = hr_api.g_varchar2) then
470: If (p_rec.role_type_cd = hr_api.g_varchar2) then
471: p_rec.role_type_cd :=
472: pqh_rls_shd.g_old_rec.role_type_cd;
473: End If;
474: If (p_rec.enable_flag = hr_api.g_varchar2) then
475: p_rec.enable_flag :=
476: pqh_rls_shd.g_old_rec.enable_flag;
477: End If;
478: If (p_rec.business_group_id = hr_api.g_number) then
474: If (p_rec.enable_flag = hr_api.g_varchar2) then
475: p_rec.enable_flag :=
476: pqh_rls_shd.g_old_rec.enable_flag;
477: End If;
478: If (p_rec.business_group_id = hr_api.g_number) then
479: p_rec.business_group_id :=
480: pqh_rls_shd.g_old_rec.business_group_id;
481: End If;
482: --
482: --
483: -- mvankada
484: -- For Developer DF columns
485:
486: If (p_rec.information_category = hr_api.g_varchar2) then
487: p_rec.information_category :=
488: pqh_rls_shd.g_old_rec.information_category;
489: End If;
490: If (p_rec.information1 = hr_api.g_varchar2) then
486: If (p_rec.information_category = hr_api.g_varchar2) then
487: p_rec.information_category :=
488: pqh_rls_shd.g_old_rec.information_category;
489: End If;
490: If (p_rec.information1 = hr_api.g_varchar2) then
491: p_rec.information1 :=
492: pqh_rls_shd.g_old_rec.information1;
493: End If;
494: If (p_rec.information2 = hr_api.g_varchar2) then
490: If (p_rec.information1 = hr_api.g_varchar2) then
491: p_rec.information1 :=
492: pqh_rls_shd.g_old_rec.information1;
493: End If;
494: If (p_rec.information2 = hr_api.g_varchar2) then
495: p_rec.information2 :=
496: pqh_rls_shd.g_old_rec.information2;
497: End If;
498: If (p_rec.information3 = hr_api.g_varchar2) then
494: If (p_rec.information2 = hr_api.g_varchar2) then
495: p_rec.information2 :=
496: pqh_rls_shd.g_old_rec.information2;
497: End If;
498: If (p_rec.information3 = hr_api.g_varchar2) then
499: p_rec.information3 :=
500: pqh_rls_shd.g_old_rec.information3;
501: End If;
502: If (p_rec.information4 = hr_api.g_varchar2) then
498: If (p_rec.information3 = hr_api.g_varchar2) then
499: p_rec.information3 :=
500: pqh_rls_shd.g_old_rec.information3;
501: End If;
502: If (p_rec.information4 = hr_api.g_varchar2) then
503: p_rec.information4 :=
504: pqh_rls_shd.g_old_rec.information4;
505: End If;
506: If (p_rec.information5 = hr_api.g_varchar2) then
502: If (p_rec.information4 = hr_api.g_varchar2) then
503: p_rec.information4 :=
504: pqh_rls_shd.g_old_rec.information4;
505: End If;
506: If (p_rec.information5 = hr_api.g_varchar2) then
507: p_rec.information5 :=
508: pqh_rls_shd.g_old_rec.information5;
509: End If;
510: If (p_rec.information6 = hr_api.g_varchar2) then
506: If (p_rec.information5 = hr_api.g_varchar2) then
507: p_rec.information5 :=
508: pqh_rls_shd.g_old_rec.information5;
509: End If;
510: If (p_rec.information6 = hr_api.g_varchar2) then
511: p_rec.information6 :=
512: pqh_rls_shd.g_old_rec.information6;
513: End If;
514: If (p_rec.information7 = hr_api.g_varchar2) then
510: If (p_rec.information6 = hr_api.g_varchar2) then
511: p_rec.information6 :=
512: pqh_rls_shd.g_old_rec.information6;
513: End If;
514: If (p_rec.information7 = hr_api.g_varchar2) then
515: p_rec.information7 :=
516: pqh_rls_shd.g_old_rec.information7;
517: End If;
518: If (p_rec.information8 = hr_api.g_varchar2) then
514: If (p_rec.information7 = hr_api.g_varchar2) then
515: p_rec.information7 :=
516: pqh_rls_shd.g_old_rec.information7;
517: End If;
518: If (p_rec.information8 = hr_api.g_varchar2) then
519: p_rec.information8 :=
520: pqh_rls_shd.g_old_rec.information8;
521: End If;
522: If (p_rec.information9 = hr_api.g_varchar2) then
518: If (p_rec.information8 = hr_api.g_varchar2) then
519: p_rec.information8 :=
520: pqh_rls_shd.g_old_rec.information8;
521: End If;
522: If (p_rec.information9 = hr_api.g_varchar2) then
523: p_rec.information9 :=
524: pqh_rls_shd.g_old_rec.information9;
525: End If;
526: If (p_rec.information10 = hr_api.g_varchar2) then
522: If (p_rec.information9 = hr_api.g_varchar2) then
523: p_rec.information9 :=
524: pqh_rls_shd.g_old_rec.information9;
525: End If;
526: If (p_rec.information10 = hr_api.g_varchar2) then
527: p_rec.information10 :=
528: pqh_rls_shd.g_old_rec.information10;
529: End If;
530: If (p_rec.information11 = hr_api.g_varchar2) then
526: If (p_rec.information10 = hr_api.g_varchar2) then
527: p_rec.information10 :=
528: pqh_rls_shd.g_old_rec.information10;
529: End If;
530: If (p_rec.information11 = hr_api.g_varchar2) then
531: p_rec.information11 :=
532: pqh_rls_shd.g_old_rec.information11;
533: End If;
534: If (p_rec.information12 = hr_api.g_varchar2) then
530: If (p_rec.information11 = hr_api.g_varchar2) then
531: p_rec.information11 :=
532: pqh_rls_shd.g_old_rec.information11;
533: End If;
534: If (p_rec.information12 = hr_api.g_varchar2) then
535: p_rec.information12 :=
536: pqh_rls_shd.g_old_rec.information12;
537: End If;
538: If (p_rec.information13 = hr_api.g_varchar2) then
534: If (p_rec.information12 = hr_api.g_varchar2) then
535: p_rec.information12 :=
536: pqh_rls_shd.g_old_rec.information12;
537: End If;
538: If (p_rec.information13 = hr_api.g_varchar2) then
539: p_rec.information13 :=
540: pqh_rls_shd.g_old_rec.information13;
541: End If;
542: If (p_rec.information14 = hr_api.g_varchar2) then
538: If (p_rec.information13 = hr_api.g_varchar2) then
539: p_rec.information13 :=
540: pqh_rls_shd.g_old_rec.information13;
541: End If;
542: If (p_rec.information14 = hr_api.g_varchar2) then
543: p_rec.information14 :=
544: pqh_rls_shd.g_old_rec.information14;
545: End If;
546: If (p_rec.information15 = hr_api.g_varchar2) then
542: If (p_rec.information14 = hr_api.g_varchar2) then
543: p_rec.information14 :=
544: pqh_rls_shd.g_old_rec.information14;
545: End If;
546: If (p_rec.information15 = hr_api.g_varchar2) then
547: p_rec.information15 :=
548: pqh_rls_shd.g_old_rec.information15;
549: End If;
550: If (p_rec.information16 = hr_api.g_varchar2) then
546: If (p_rec.information15 = hr_api.g_varchar2) then
547: p_rec.information15 :=
548: pqh_rls_shd.g_old_rec.information15;
549: End If;
550: If (p_rec.information16 = hr_api.g_varchar2) then
551: p_rec.information16 :=
552: pqh_rls_shd.g_old_rec.information16;
553: End If;
554: If (p_rec.information17 = hr_api.g_varchar2) then
550: If (p_rec.information16 = hr_api.g_varchar2) then
551: p_rec.information16 :=
552: pqh_rls_shd.g_old_rec.information16;
553: End If;
554: If (p_rec.information17 = hr_api.g_varchar2) then
555: p_rec.information17 :=
556: pqh_rls_shd.g_old_rec.information17;
557: End If;
558: If (p_rec.information18 = hr_api.g_varchar2) then
554: If (p_rec.information17 = hr_api.g_varchar2) then
555: p_rec.information17 :=
556: pqh_rls_shd.g_old_rec.information17;
557: End If;
558: If (p_rec.information18 = hr_api.g_varchar2) then
559: p_rec.information18 :=
560: pqh_rls_shd.g_old_rec.information18;
561: End If;
562: If (p_rec.information19 = hr_api.g_varchar2) then
558: If (p_rec.information18 = hr_api.g_varchar2) then
559: p_rec.information18 :=
560: pqh_rls_shd.g_old_rec.information18;
561: End If;
562: If (p_rec.information19 = hr_api.g_varchar2) then
563: p_rec.information19 :=
564: pqh_rls_shd.g_old_rec.information19;
565: End If;
566: If (p_rec.information20 = hr_api.g_varchar2) then
562: If (p_rec.information19 = hr_api.g_varchar2) then
563: p_rec.information19 :=
564: pqh_rls_shd.g_old_rec.information19;
565: End If;
566: If (p_rec.information20 = hr_api.g_varchar2) then
567: p_rec.information20 :=
568: pqh_rls_shd.g_old_rec.information20;
569: End If;
570: If (p_rec.information21 = hr_api.g_varchar2) then
566: If (p_rec.information20 = hr_api.g_varchar2) then
567: p_rec.information20 :=
568: pqh_rls_shd.g_old_rec.information20;
569: End If;
570: If (p_rec.information21 = hr_api.g_varchar2) then
571: p_rec.information21 :=
572: pqh_rls_shd.g_old_rec.information21;
573: End If;
574: If (p_rec.information22 = hr_api.g_varchar2) then
570: If (p_rec.information21 = hr_api.g_varchar2) then
571: p_rec.information21 :=
572: pqh_rls_shd.g_old_rec.information21;
573: End If;
574: If (p_rec.information22 = hr_api.g_varchar2) then
575: p_rec.information22 :=
576: pqh_rls_shd.g_old_rec.information22;
577: End If;
578: If (p_rec.information23 = hr_api.g_varchar2) then
574: If (p_rec.information22 = hr_api.g_varchar2) then
575: p_rec.information22 :=
576: pqh_rls_shd.g_old_rec.information22;
577: End If;
578: If (p_rec.information23 = hr_api.g_varchar2) then
579: p_rec.information23 :=
580: pqh_rls_shd.g_old_rec.information23;
581: End If;
582: If (p_rec.information24 = hr_api.g_varchar2) then
578: If (p_rec.information23 = hr_api.g_varchar2) then
579: p_rec.information23 :=
580: pqh_rls_shd.g_old_rec.information23;
581: End If;
582: If (p_rec.information24 = hr_api.g_varchar2) then
583: p_rec.information24 :=
584: pqh_rls_shd.g_old_rec.information24;
585: End If;
586: If (p_rec.information25 = hr_api.g_varchar2) then
582: If (p_rec.information24 = hr_api.g_varchar2) then
583: p_rec.information24 :=
584: pqh_rls_shd.g_old_rec.information24;
585: End If;
586: If (p_rec.information25 = hr_api.g_varchar2) then
587: p_rec.information25 :=
588: pqh_rls_shd.g_old_rec.information25;
589: End If;
590: If (p_rec.information26 = hr_api.g_varchar2) then
586: If (p_rec.information25 = hr_api.g_varchar2) then
587: p_rec.information25 :=
588: pqh_rls_shd.g_old_rec.information25;
589: End If;
590: If (p_rec.information26 = hr_api.g_varchar2) then
591: p_rec.information26 :=
592: pqh_rls_shd.g_old_rec.information26;
593: End If;
594: If (p_rec.information27 = hr_api.g_varchar2) then
590: If (p_rec.information26 = hr_api.g_varchar2) then
591: p_rec.information26 :=
592: pqh_rls_shd.g_old_rec.information26;
593: End If;
594: If (p_rec.information27 = hr_api.g_varchar2) then
595: p_rec.information27 :=
596: pqh_rls_shd.g_old_rec.information27;
597: End If;
598: If (p_rec.information28 = hr_api.g_varchar2) then
594: If (p_rec.information27 = hr_api.g_varchar2) then
595: p_rec.information27 :=
596: pqh_rls_shd.g_old_rec.information27;
597: End If;
598: If (p_rec.information28 = hr_api.g_varchar2) then
599: p_rec.information28 :=
600: pqh_rls_shd.g_old_rec.information28;
601: End If;
602: If (p_rec.information29 = hr_api.g_varchar2) then
598: If (p_rec.information28 = hr_api.g_varchar2) then
599: p_rec.information28 :=
600: pqh_rls_shd.g_old_rec.information28;
601: End If;
602: If (p_rec.information29 = hr_api.g_varchar2) then
603: p_rec.information29 :=
604: pqh_rls_shd.g_old_rec.information29;
605: End If;
606: If (p_rec.information30 = hr_api.g_varchar2) then
602: If (p_rec.information29 = hr_api.g_varchar2) then
603: p_rec.information29 :=
604: pqh_rls_shd.g_old_rec.information29;
605: End If;
606: If (p_rec.information30 = hr_api.g_varchar2) then
607: p_rec.information30 :=
608: pqh_rls_shd.g_old_rec.information30;
609: End If;
610: