40:
41: --
42: begin
43: --
44: hr_utility.set_location('Entering:'|| l_proc, 10);
45: --
46: -- Ensure that all the mandatory parameter are not null
47: --
48: hr_api.mandatory_arg_error
71: hr_api.set_security_group_id
72: (p_security_group_id => l_security_group_id
73: );
74: --
75: hr_utility.set_location(' Leaving:'|| l_proc, 20);
76: --
77: end set_security_group_id;
78: --
79: -- ---------------------------------------------------------------------------
105: l_proc varchar2(72) := g_package||'return_legislation_code';
106: --
107: Begin
108: --
109: hr_utility.set_location('Entering:'|| l_proc, 10);
110: --
111: -- Ensure that all the mandatory parameter are not null
112: --
113: hr_api.mandatory_arg_error
123: -- call to this function. Just return the value in the global
124: -- variable.
125: --
126: l_legislation_code := hr_cle_bus.g_legislation_code;
127: hr_utility.set_location(l_proc, 20);
128: else
129: --
130: -- The ID is different to the last call to this function
131: -- or this is the first call to this function.
140: close csr_leg_code;
141: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
142: fnd_message.raise_error;
143: end if;
144: hr_utility.set_location(l_proc,30);
145: --
146: -- Set the global variables so the values are
147: -- available for the next call to this function.
148: --
149: close csr_leg_code;
150: hr_cle_bus.g_soc_ins_contr_lvls_id := p_soc_ins_contr_lvls_id;
151: hr_cle_bus.g_legislation_code := l_legislation_code;
152: end if;
153: hr_utility.set_location(' Leaving:'|| l_proc, 40);
154: return l_legislation_code;
155: end return_legislation_code;
156: --
157: -- ----------------------------------------------------------------------------
188: --
189: l_proc varchar2(72) := g_package || 'chk_df';
190: --
191: begin
192: hr_utility.set_location('Entering:'||l_proc,10);
193: --
194: if ((p_rec.soc_ins_contr_lvls_id is not null) and (
195: nvl(hr_cle_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
196: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
327: ,p_attribute30_value => p_rec.attribute30
328: );
329: end if;
330: --
331: hr_utility.set_location(' Leaving:'||l_proc,20);
332: end chk_df;
333: --
334: -- ----------------------------------------------------------------------------
335: -- |-----------------------< chk_non_updateable_args >------------------------|
478: l_var varchar2(1);
479: --
480: Begin
481:
482: hr_utility.set_location('Entering:'||l_proc, 10);
483: --
484: -- Only proceed with the validation if inserting
485: --
486: hr_utility.trace('effective_date' ||p_effective_date);
482: hr_utility.set_location('Entering:'||l_proc, 10);
483: --
484: -- Only proceed with the validation if inserting
485: --
486: hr_utility.trace('effective_date' ||p_effective_date);
487: hr_utility.trace('effective_start_date' ||p_validation_start_date);
488: hr_utility.trace('effective_end_date' ||p_validation_end_date);
489: hr_utility.trace('organization' ||p_organization_id);
490: if p_soc_ins_contr_lvls_id is null then
483: --
484: -- Only proceed with the validation if inserting
485: --
486: hr_utility.trace('effective_date' ||p_effective_date);
487: hr_utility.trace('effective_start_date' ||p_validation_start_date);
488: hr_utility.trace('effective_end_date' ||p_validation_end_date);
489: hr_utility.trace('organization' ||p_organization_id);
490: if p_soc_ins_contr_lvls_id is null then
491:
484: -- Only proceed with the validation if inserting
485: --
486: hr_utility.trace('effective_date' ||p_effective_date);
487: hr_utility.trace('effective_start_date' ||p_validation_start_date);
488: hr_utility.trace('effective_end_date' ||p_validation_end_date);
489: hr_utility.trace('organization' ||p_organization_id);
490: if p_soc_ins_contr_lvls_id is null then
491:
492: hr_utility.set_location('Entering:'||l_proc, 20);
485: --
486: hr_utility.trace('effective_date' ||p_effective_date);
487: hr_utility.trace('effective_start_date' ||p_validation_start_date);
488: hr_utility.trace('effective_end_date' ||p_validation_end_date);
489: hr_utility.trace('organization' ||p_organization_id);
490: if p_soc_ins_contr_lvls_id is null then
491:
492: hr_utility.set_location('Entering:'||l_proc, 20);
493: --
488: hr_utility.trace('effective_end_date' ||p_validation_end_date);
489: hr_utility.trace('organization' ||p_organization_id);
490: if p_soc_ins_contr_lvls_id is null then
491:
492: hr_utility.set_location('Entering:'||l_proc, 20);
493: --
494: -- Only proceed with the validation if inserting
495: --
496:
495: --
496:
497: if p_organization_id is null then
498:
499: hr_utility.set_message(800,'HR_DE_INVALID_ORGANIZATION');
500: hr_utility.raise_error;
501: end if;
502:
503: OPEN csr_chk_organization_id1;
496:
497: if p_organization_id is null then
498:
499: hr_utility.set_message(800,'HR_DE_INVALID_ORGANIZATION');
500: hr_utility.raise_error;
501: end if;
502:
503: OPEN csr_chk_organization_id1;
504: FETCH csr_chk_organization_id1 INTO l_var;
503: OPEN csr_chk_organization_id1;
504: FETCH csr_chk_organization_id1 INTO l_var;
505:
506: IF csr_chk_organization_id1%NOTFOUND THEN
507: hr_utility.set_location(l_proc,30);
508: CLOSE csr_chk_organization_id1;
509: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
510: hr_utility.raise_error;
511: END IF;
505:
506: IF csr_chk_organization_id1%NOTFOUND THEN
507: hr_utility.set_location(l_proc,30);
508: CLOSE csr_chk_organization_id1;
509: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
510: hr_utility.raise_error;
511: END IF;
512:
513: CLOSE csr_chk_organization_id1;
506: IF csr_chk_organization_id1%NOTFOUND THEN
507: hr_utility.set_location(l_proc,30);
508: CLOSE csr_chk_organization_id1;
509: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
510: hr_utility.raise_error;
511: END IF;
512:
513: CLOSE csr_chk_organization_id1;
514: hr_utility.set_location(l_proc,40);
510: hr_utility.raise_error;
511: END IF;
512:
513: CLOSE csr_chk_organization_id1;
514: hr_utility.set_location(l_proc,40);
515:
516: OPEN csr_chk_organization_id2;
517: FETCH csr_chk_organization_id2 INTO l_var;
518:
516: OPEN csr_chk_organization_id2;
517: FETCH csr_chk_organization_id2 INTO l_var;
518:
519: IF csr_chk_organization_id2%NOTFOUND THEN
520: hr_utility.set_location(l_proc,50);
521: CLOSE csr_chk_organization_id2;
522: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
523: hr_utility.raise_error;
524: END IF;
518:
519: IF csr_chk_organization_id2%NOTFOUND THEN
520: hr_utility.set_location(l_proc,50);
521: CLOSE csr_chk_organization_id2;
522: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
523: hr_utility.raise_error;
524: END IF;
525:
526: hr_utility.set_location(l_proc,60);
519: IF csr_chk_organization_id2%NOTFOUND THEN
520: hr_utility.set_location(l_proc,50);
521: CLOSE csr_chk_organization_id2;
522: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
523: hr_utility.raise_error;
524: END IF;
525:
526: hr_utility.set_location(l_proc,60);
527: CLOSE csr_chk_organization_id2;
522: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
523: hr_utility.raise_error;
524: END IF;
525:
526: hr_utility.set_location(l_proc,60);
527: CLOSE csr_chk_organization_id2;
528:
529: OPEN csr_chk_organization_id3;
530: FETCH csr_chk_organization_id3 INTO l_var;
529: OPEN csr_chk_organization_id3;
530: FETCH csr_chk_organization_id3 INTO l_var;
531:
532: IF csr_chk_organization_id3%FOUND THEN
533: hr_utility.set_location(l_proc,70);
534: CLOSE csr_chk_organization_id3;
535: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
536: hr_utility.raise_error;
537: END IF;
531:
532: IF csr_chk_organization_id3%FOUND THEN
533: hr_utility.set_location(l_proc,70);
534: CLOSE csr_chk_organization_id3;
535: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
536: hr_utility.raise_error;
537: END IF;
538:
539: CLOSE csr_chk_organization_id3;
532: IF csr_chk_organization_id3%FOUND THEN
533: hr_utility.set_location(l_proc,70);
534: CLOSE csr_chk_organization_id3;
535: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
536: hr_utility.raise_error;
537: END IF;
538:
539: CLOSE csr_chk_organization_id3;
540: hr_utility.set_location(l_proc,80);
536: hr_utility.raise_error;
537: END IF;
538:
539: CLOSE csr_chk_organization_id3;
540: hr_utility.set_location(l_proc,80);
541:
542: OPEN csr_chk_organization_id4;
543: FETCH csr_chk_organization_id4 INTO l_var;
544:
542: OPEN csr_chk_organization_id4;
543: FETCH csr_chk_organization_id4 INTO l_var;
544:
545: IF csr_chk_organization_id4%FOUND THEN
546: hr_utility.set_location(l_proc,90);
547: CLOSE csr_chk_organization_id4;
548: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
549: hr_utility.raise_error;
550: END IF;
544:
545: IF csr_chk_organization_id4%FOUND THEN
546: hr_utility.set_location(l_proc,90);
547: CLOSE csr_chk_organization_id4;
548: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
549: hr_utility.raise_error;
550: END IF;
551:
552: CLOSE csr_chk_organization_id4;
545: IF csr_chk_organization_id4%FOUND THEN
546: hr_utility.set_location(l_proc,90);
547: CLOSE csr_chk_organization_id4;
548: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
549: hr_utility.raise_error;
550: END IF;
551:
552: CLOSE csr_chk_organization_id4;
553: hr_utility.set_location(l_proc,100);
549: hr_utility.raise_error;
550: END IF;
551:
552: CLOSE csr_chk_organization_id4;
553: hr_utility.set_location(l_proc,100);
554:
555: OPEN csr_chk_org_class;
556: FETCH csr_chk_org_class INTO l_var;
557:
555: OPEN csr_chk_org_class;
556: FETCH csr_chk_org_class INTO l_var;
557:
558: IF csr_chk_org_class%NOTFOUND THEN
559: hr_utility.set_location(l_proc,110);
560: CLOSE csr_chk_org_class;
561: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
562: hr_utility.raise_error;
563: END IF;
557:
558: IF csr_chk_org_class%NOTFOUND THEN
559: hr_utility.set_location(l_proc,110);
560: CLOSE csr_chk_org_class;
561: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
562: hr_utility.raise_error;
563: END IF;
564:
565: CLOSE csr_chk_org_class;
558: IF csr_chk_org_class%NOTFOUND THEN
559: hr_utility.set_location(l_proc,110);
560: CLOSE csr_chk_org_class;
561: hr_utility.set_message(800, 'HR_DE_INVALID_ORGANIZATION');
562: hr_utility.raise_error;
563: END IF;
564:
565: CLOSE csr_chk_org_class;
566: hr_utility.set_location(l_proc,200);
562: hr_utility.raise_error;
563: END IF;
564:
565: CLOSE csr_chk_org_class;
566: hr_utility.set_location(l_proc,200);
567:
568:
569: end if;
570:
612: --
613:
614: BEGIN
615: --
616: hr_utility.set_location('Entering:'||l_proc, 10);
617:
618: --
619: -- Only proceed with validation if :
620: -- a) Inserting or
625: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
626: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
627: (hr_cle_shd.g_old_rec.normal_amount <> p_normal_amount))) THEN
628: --
629: hr_utility.set_location(l_proc, 20);
630:
631: IF ( P_NORMAL_AMOUNT < 0 ) then
632: --
633: hr_utility.set_location(l_proc, 30);
629: hr_utility.set_location(l_proc, 20);
630:
631: IF ( P_NORMAL_AMOUNT < 0 ) then
632: --
633: hr_utility.set_location(l_proc, 30);
634: hr_utility.set_message(800, 'HR_DE_INVALID_NORMAL_AMOUNT');
635: hr_utility.raise_error;
636: --
637: END IF;
630:
631: IF ( P_NORMAL_AMOUNT < 0 ) then
632: --
633: hr_utility.set_location(l_proc, 30);
634: hr_utility.set_message(800, 'HR_DE_INVALID_NORMAL_AMOUNT');
635: hr_utility.raise_error;
636: --
637: END IF;
638: --
631: IF ( P_NORMAL_AMOUNT < 0 ) then
632: --
633: hr_utility.set_location(l_proc, 30);
634: hr_utility.set_message(800, 'HR_DE_INVALID_NORMAL_AMOUNT');
635: hr_utility.raise_error;
636: --
637: END IF;
638: --
639: END IF;
638: --
639: END IF;
640: --
641: END IF;
642: hr_utility.set_location('Leaving '||l_proc, 40);
643: --
644: --
645: END chk_normal_amount;
646: --
686: --
687:
688: BEGIN
689: --
690: hr_utility.set_location('Entering:'||l_proc, 10);
691:
692: --
693: -- Only proceed with validation if :
694: -- a) Inserting or
698: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
699: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
700: (hr_cle_shd.g_old_rec.increased_amount <> p_increased_amount))) THEN
701: --
702: hr_utility.set_location(l_proc, 20);
703:
704: IF (P_INCREASED_AMOUNT < 0) then
705: --
706: hr_utility.set_location(l_proc, 30);
702: hr_utility.set_location(l_proc, 20);
703:
704: IF (P_INCREASED_AMOUNT < 0) then
705: --
706: hr_utility.set_location(l_proc, 30);
707: hr_utility.set_message(800, 'HR_DE_INVALID_INCREASED_AMOUNT');
708: hr_utility.raise_error;
709: --
710: END IF;
703:
704: IF (P_INCREASED_AMOUNT < 0) then
705: --
706: hr_utility.set_location(l_proc, 30);
707: hr_utility.set_message(800, 'HR_DE_INVALID_INCREASED_AMOUNT');
708: hr_utility.raise_error;
709: --
710: END IF;
711: --
704: IF (P_INCREASED_AMOUNT < 0) then
705: --
706: hr_utility.set_location(l_proc, 30);
707: hr_utility.set_message(800, 'HR_DE_INVALID_INCREASED_AMOUNT');
708: hr_utility.raise_error;
709: --
710: END IF;
711: --
712: END IF;
711: --
712: END IF;
713: END IF;
714: --
715: hr_utility.set_location('Leaving '||l_proc, 40);
716: --
717: --
718: END chk_increased_amount;
719: --
759: --
760:
761: BEGIN
762: --
763: hr_utility.set_location('Entering:'||l_proc, 10);
764:
765: --
766: -- Only proceed with validation if :
767: -- a) Inserting or
771: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
772: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
773: (hr_cle_shd.g_old_rec.reduced_amount <> p_reduced_amount))) THEN
774: --
775: hr_utility.set_location(l_proc, 20);
776:
777: IF (P_REDUCED_AMOUNT < 0) then
778: --
779: hr_utility.set_location(l_proc, 30);
775: hr_utility.set_location(l_proc, 20);
776:
777: IF (P_REDUCED_AMOUNT < 0) then
778: --
779: hr_utility.set_location(l_proc, 30);
780: hr_utility.set_message(800, 'HR_DE_INVALID_REDUCED_AMOUNT');
781: hr_utility.raise_error;
782: --
783: END IF;
776:
777: IF (P_REDUCED_AMOUNT < 0) then
778: --
779: hr_utility.set_location(l_proc, 30);
780: hr_utility.set_message(800, 'HR_DE_INVALID_REDUCED_AMOUNT');
781: hr_utility.raise_error;
782: --
783: END IF;
784: --
777: IF (P_REDUCED_AMOUNT < 0) then
778: --
779: hr_utility.set_location(l_proc, 30);
780: hr_utility.set_message(800, 'HR_DE_INVALID_REDUCED_AMOUNT');
781: hr_utility.raise_error;
782: --
783: END IF;
784: --
785: END IF;
784: --
785: END IF;
786: END IF;
787: --
788: hr_utility.set_location('Leaving '||l_proc, 40);
789: --
790: --
791: END chk_reduced_amount;
792: --
832: --
833:
834: BEGIN
835: --
836: hr_utility.set_location('Entering:'||l_proc, 10);
837:
838: --
839: -- Only proceed with validation if :
840: -- a) Inserting or
844: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
845: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
846: (hr_cle_shd.g_old_rec.normal_percentage <> p_normal_percentage))) THEN
847: --
848: hr_utility.set_location(l_proc, 20);
849:
850: IF ( P_NORMAL_PERCENTAGE < 0 OR P_NORMAL_PERCENTAGE > 100) then
851: --
852: hr_utility.set_location(l_proc, 30);
848: hr_utility.set_location(l_proc, 20);
849:
850: IF ( P_NORMAL_PERCENTAGE < 0 OR P_NORMAL_PERCENTAGE > 100) then
851: --
852: hr_utility.set_location(l_proc, 30);
853: hr_utility.set_message(800, 'HR_DE_INVALID_NORM_AMT_PERC');
854: hr_utility.raise_error;
855: --
856: END IF;
849:
850: IF ( P_NORMAL_PERCENTAGE < 0 OR P_NORMAL_PERCENTAGE > 100) then
851: --
852: hr_utility.set_location(l_proc, 30);
853: hr_utility.set_message(800, 'HR_DE_INVALID_NORM_AMT_PERC');
854: hr_utility.raise_error;
855: --
856: END IF;
857: --
850: IF ( P_NORMAL_PERCENTAGE < 0 OR P_NORMAL_PERCENTAGE > 100) then
851: --
852: hr_utility.set_location(l_proc, 30);
853: hr_utility.set_message(800, 'HR_DE_INVALID_NORM_AMT_PERC');
854: hr_utility.raise_error;
855: --
856: END IF;
857: --
858: END IF;
856: END IF;
857: --
858: END IF;
859: --
860: hr_utility.set_location('Leaving '||l_proc, 40);
861: --
862: --
863: END chk_normal_percentage;
864: --
904: --
905:
906: BEGIN
907: --
908: hr_utility.set_location('Entering:'||l_proc, 10);
909:
910: --
911: -- Only proceed with validation if :
912: -- a) Inserting or
915: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
916: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
917: (hr_cle_shd.g_old_rec.normal_percentage <> p_increased_percentage))) THEN
918: --
919: hr_utility.set_location(l_proc, 20);
920:
921: IF ( P_INCREASED_PERCENTAGE < 0 OR P_INCREASED_PERCENTAGE > 100) then
922: --
923: hr_utility.set_location(l_proc, 30);
919: hr_utility.set_location(l_proc, 20);
920:
921: IF ( P_INCREASED_PERCENTAGE < 0 OR P_INCREASED_PERCENTAGE > 100) then
922: --
923: hr_utility.set_location(l_proc, 30);
924: hr_utility.set_message(800, 'HR_DE_INVALID_INC_AMT_PERC');
925: hr_utility.raise_error;
926: --
927: END IF;
920:
921: IF ( P_INCREASED_PERCENTAGE < 0 OR P_INCREASED_PERCENTAGE > 100) then
922: --
923: hr_utility.set_location(l_proc, 30);
924: hr_utility.set_message(800, 'HR_DE_INVALID_INC_AMT_PERC');
925: hr_utility.raise_error;
926: --
927: END IF;
928: --
921: IF ( P_INCREASED_PERCENTAGE < 0 OR P_INCREASED_PERCENTAGE > 100) then
922: --
923: hr_utility.set_location(l_proc, 30);
924: hr_utility.set_message(800, 'HR_DE_INVALID_INC_AMT_PERC');
925: hr_utility.raise_error;
926: --
927: END IF;
928: --
929: END IF;
927: END IF;
928: --
929: END IF;
930: --
931: hr_utility.set_location('Leaving '||l_proc, 40);
932: --
933: --
934: END chk_increased_percentage;
935: --
975: --
976:
977: BEGIN
978: --
979: hr_utility.set_location('Entering:'||l_proc, 10);
980:
981: --
982: -- Only proceed with validation if :
983: -- a) Inserting or
986: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
987: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
988: (hr_cle_shd.g_old_rec.normal_percentage <> p_reduced_percentage))) THEN
989: --
990: hr_utility.set_location(l_proc, 20);
991:
992: IF ( P_REDUCED_PERCENTAGE < 0 OR P_REDUCED_PERCENTAGE > 100) then
993: --
994: hr_utility.set_location(l_proc, 30);
990: hr_utility.set_location(l_proc, 20);
991:
992: IF ( P_REDUCED_PERCENTAGE < 0 OR P_REDUCED_PERCENTAGE > 100) then
993: --
994: hr_utility.set_location(l_proc, 30);
995: hr_utility.set_message(800, 'HR_DE_INVALID_REDC_AMT_PERC');
996: hr_utility.raise_error;
997: --
998: END IF;
991:
992: IF ( P_REDUCED_PERCENTAGE < 0 OR P_REDUCED_PERCENTAGE > 100) then
993: --
994: hr_utility.set_location(l_proc, 30);
995: hr_utility.set_message(800, 'HR_DE_INVALID_REDC_AMT_PERC');
996: hr_utility.raise_error;
997: --
998: END IF;
999: --
992: IF ( P_REDUCED_PERCENTAGE < 0 OR P_REDUCED_PERCENTAGE > 100) then
993: --
994: hr_utility.set_location(l_proc, 30);
995: hr_utility.set_message(800, 'HR_DE_INVALID_REDC_AMT_PERC');
996: hr_utility.raise_error;
997: --
998: END IF;
999: --
1000: END IF;
998: END IF;
999: --
1000: END IF;
1001: --
1002: hr_utility.set_location('Leaving '||l_proc, 40);
1003: --
1004: --
1005: END chk_reduced_percentage;
1006: --
1045: --
1046:
1047: BEGIN
1048: --
1049: hr_utility.set_location('Entering:'||l_proc, 10);
1050:
1051: --
1052: -- Only proceed with validation if :
1053: -- a) Inserting or
1057: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1058: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1059: (hr_cle_shd.g_old_rec.normal_percentage <> p_normal_percentage))) THEN
1060: --
1061: hr_utility.set_location(l_proc, 20);
1062:
1063: IF ( P_NORMAL_PERCENTAGE IS NULL) then
1064: --
1065: hr_utility.set_location(l_proc, 30);
1061: hr_utility.set_location(l_proc, 20);
1062:
1063: IF ( P_NORMAL_PERCENTAGE IS NULL) then
1064: --
1065: hr_utility.set_location(l_proc, 30);
1066: fnd_message.set_name('PER', 'HR_DE_COLUMN_NULL');
1067: fnd_message.set_token('COL_NAME','normal_percentage');
1068: fnd_message.raise_error;
1069:
1071: END IF;
1072: --
1073: END IF;
1074: --
1075: hr_utility.set_location('Leaving '||l_proc, 40);
1076: --
1077: --
1078: END chk_normal_percent_null;
1079: --
1119: --
1120:
1121: BEGIN
1122: --
1123: hr_utility.set_location('Entering:'||l_proc, 10);
1124:
1125: --
1126: -- Only proceed with validation if :
1127: -- a) Inserting or
1130: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1131: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1132: (hr_cle_shd.g_old_rec.increased_percentage <> p_increased_percentage))) THEN
1133: --
1134: hr_utility.set_location(l_proc, 20);
1135:
1136: IF ( P_INCREASED_PERCENTAGE IS NULL) then
1137: --
1138: hr_utility.set_location(l_proc, 30);
1134: hr_utility.set_location(l_proc, 20);
1135:
1136: IF ( P_INCREASED_PERCENTAGE IS NULL) then
1137: --
1138: hr_utility.set_location(l_proc, 30);
1139: FND_MESSAGE.set_name('PER', 'HR_DE_COLUMN_NULL');
1140: fnd_message.set_token('COL_NAME','increased_percentage');
1141: fnd_message.raise_error;
1142: --
1143: END IF;
1144:
1145: END IF;
1146: --
1147: hr_utility.set_location('Leaving '||l_proc, 40);
1148: --
1149: --
1150: END chk_increased_percent_null;
1151: --
1191: --
1192:
1193: BEGIN
1194: --
1195: hr_utility.set_location('Entering:'||l_proc, 10);
1196:
1197: --
1198: -- Only proceed with validation if :
1199: -- a) Inserting or
1202: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1203: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1204: (hr_cle_shd.g_old_rec.reduced_percentage <> p_reduced_percentage))) THEN
1205: --
1206: hr_utility.set_location(l_proc, 20);
1207:
1208: IF ( P_REDUCED_PERCENTAGE IS NULL ) then
1209: --
1210: hr_utility.set_location(l_proc, 30);
1206: hr_utility.set_location(l_proc, 20);
1207:
1208: IF ( P_REDUCED_PERCENTAGE IS NULL ) then
1209: --
1210: hr_utility.set_location(l_proc, 30);
1211: FND_MESSAGE.set_name('PER', 'HR_DE_COLUMN_NULL');
1212: fnd_message.set_token('COL_NAME','reduced_percentage');
1213: fnd_message.raise_error;
1214: --
1215: END IF;
1216: --
1217: END IF;
1218: --
1219: hr_utility.set_location('Leaving '||l_proc, 40);
1220: --
1221: --
1222: END chk_reduced_percent_null;
1223: --
1261: --
1262:
1263: BEGIN
1264: --
1265: hr_utility.set_location('Entering:'||l_proc, 10);
1266:
1267: --
1268: -- Only proceed with validation if :
1269: -- a) Inserting or
1272: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1273: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1274: (hr_cle_shd.g_old_rec.max_increased_contribution <> p_max_increased_contribution))) THEN
1275: --
1276: hr_utility.set_location(l_proc, 20);
1277:
1278: IF ( p_max_increased_contribution IS NULL ) then
1279: --
1280: hr_utility.set_location(l_proc, 30);
1276: hr_utility.set_location(l_proc, 20);
1277:
1278: IF ( p_max_increased_contribution IS NULL ) then
1279: --
1280: hr_utility.set_location(l_proc, 30);
1281: fnd_message.set_name('PER', 'HR_DE_COLUMN_NULL');
1282: fnd_message.set_token('COL_NAME','max_increased_contribution');
1283: fnd_message.raise_error;
1284: --
1285: END IF;
1286: --
1287: IF ( p_max_increased_contribution < 0 ) then
1288: --
1289: hr_utility.set_location(l_proc, 30);
1290: fnd_message.set_name('PER', 'HR_DE_COL_NEGATIVE');
1291: fnd_message.set_token('COL_NAME','max_increased_contribution');
1292: fnd_message.raise_error;
1293: --
1295: --
1296:
1297: END IF;
1298: --
1299: hr_utility.set_location('Leaving '||l_proc, 40);
1300: --
1301: --
1302: END chk_max_inc_contr_null;
1303: --
1341: --
1342:
1343: BEGIN
1344: --
1345: hr_utility.set_location('Entering:'||l_proc, 10);
1346:
1347: --
1348: -- Only proceed with validation if :
1349: -- a) Inserting or
1352: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1353: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1354: (hr_cle_shd.g_old_rec.min_increased_contribution <> p_min_increased_contribution))) THEN
1355: --
1356: hr_utility.set_location(l_proc, 20);
1357:
1358: IF ( p_min_increased_contribution IS NULL ) then
1359: --
1360: hr_utility.set_location(l_proc, 30);
1356: hr_utility.set_location(l_proc, 20);
1357:
1358: IF ( p_min_increased_contribution IS NULL ) then
1359: --
1360: hr_utility.set_location(l_proc, 30);
1361: FND_MESSAGE.set_name('PER', 'HR_DE_COLUMN_NULL');
1362: fnd_message.set_token('COL_NAME','min_increased_contribution');
1363: fnd_message.raise_error;
1364: --
1365: END IF;
1366: --
1367: IF ( p_min_increased_contribution < 0 ) then
1368: --
1369: hr_utility.set_location(l_proc, 30);
1370: FND_MESSAGE.set_name('PER', 'HR_DE_COL_NEGATIVE');
1371: fnd_message.set_token('COL_NAME','min_increased_contribution');
1372: fnd_message.raise_error;
1373:
1375: --
1376: END IF;
1377: --
1378:
1379: hr_utility.set_location('Leaving '||l_proc, 40);
1380: --
1381: --
1382: END chk_min_inc_contr_null;
1383: --
1422: --
1423:
1424: BEGIN
1425: --
1426: hr_utility.set_location('Entering:'||l_proc, 10);
1427:
1428: --
1429: -- Only proceed with validation if :
1430: -- a) Inserting or
1433: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1434: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1435: (hr_cle_shd.g_old_rec.month1_min_contribution <> p_month1_min_contribution))) THEN
1436: --
1437: hr_utility.set_location(l_proc, 20);
1438:
1439: IF ( p_month1_min_contribution IS NULL ) then
1440: --
1441: hr_utility.set_location(l_proc, 30);
1437: hr_utility.set_location(l_proc, 20);
1438:
1439: IF ( p_month1_min_contribution IS NULL ) then
1440: --
1441: hr_utility.set_location(l_proc, 30);
1442: FND_MESSAGE.set_name('PER', 'HR_DE_COLUMN_NULL');
1443: fnd_message.set_token('COL_NAME','month1_min_contribution');
1444: fnd_message.raise_error;
1445: --
1446: END IF;
1447: --
1448: IF ( p_month1_min_contribution < 0 ) then
1449: --
1450: hr_utility.set_location(l_proc, 30);
1451: FND_MESSAGE.set_name('PER', 'HR_DE_COL_NEGATIVE');
1452: fnd_message.set_token('COL_NAME','month1_min_contribution');
1453: fnd_message.raise_error;
1454:
1455: END IF;
1456: --
1457: END IF;
1458: --
1459: hr_utility.set_location('Leaving '||l_proc, 40);
1460: --
1461: --
1462: END chk_month1_min_contr_null;
1463: --
1502: --
1503:
1504: BEGIN
1505: --
1506: hr_utility.set_location('Entering:'||l_proc, 10);
1507:
1508: --
1509: -- Only proceed with validation if :
1510: -- a) Inserting or
1513: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1514: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1515: (hr_cle_shd.g_old_rec.month1_max_contribution <> p_month1_max_contribution))) THEN
1516: --
1517: hr_utility.set_location(l_proc, 20);
1518:
1519: IF ( p_month1_max_contribution IS NULL ) then
1520: --
1521: hr_utility.set_location(l_proc, 30);
1517: hr_utility.set_location(l_proc, 20);
1518:
1519: IF ( p_month1_max_contribution IS NULL ) then
1520: --
1521: hr_utility.set_location(l_proc, 30);
1522: FND_MESSAGE.set_name('PER', 'HR_DE_COLUMN_NULL');
1523: fnd_message.set_token('COL_NAME','month1_max_contribution');
1524: fnd_message.raise_error;
1525: --
1526: END IF;
1527: --
1528: IF ( p_month1_max_contribution < 0 ) then
1529: --
1530: hr_utility.set_location(l_proc, 30);
1531: FND_MESSAGE.set_name('PER', 'HR_DE_COL_NEGATIVE');
1532: fnd_message.set_token('COL_NAME','month1_max_contribution');
1533: fnd_message.raise_error;
1534:
1535: END IF;
1536: --
1537: END IF;
1538: --
1539: hr_utility.set_location('Leaving '||l_proc, 40);
1540: --
1541: --
1542: END chk_month1_max_contr_null;
1543: --
1583: --
1584:
1585: BEGIN
1586: --
1587: hr_utility.set_location('Entering:'||l_proc, 10);
1588:
1589: --
1590: -- Only proceed with validation if :
1591: -- a) Inserting or
1594: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1595: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1596: (hr_cle_shd.g_old_rec.month2_min_contribution <> p_month2_min_contribution))) THEN
1597: --
1598: hr_utility.set_location(l_proc, 20);
1599:
1600: IF ( p_month2_min_contribution IS NULL ) then
1601: --
1602: hr_utility.set_location(l_proc, 30);
1598: hr_utility.set_location(l_proc, 20);
1599:
1600: IF ( p_month2_min_contribution IS NULL ) then
1601: --
1602: hr_utility.set_location(l_proc, 30);
1603: FND_MESSAGE.set_name('PER', 'HR_DE_COLUMN_NULL');
1604: fnd_message.set_token('COL_NAME','month2_min_contribution');
1605: fnd_message.raise_error;
1606: --
1607: END IF;
1608: --
1609: IF ( p_month2_min_contribution < 0 ) then
1610: --
1611: hr_utility.set_location(l_proc, 30);
1612: FND_MESSAGE.set_name('PER', 'HR_DE_COL_NEGATIVE');
1613: fnd_message.set_token('COL_NAME','month2_min_contribution');
1614: fnd_message.raise_error;
1615:
1616: END IF;
1617: --
1618: END IF;
1619: --
1620: hr_utility.set_location('Leaving '||l_proc, 40);
1621: --
1622: --
1623: END chk_month2_min_contr_null;
1624: --
1663: --
1664:
1665: BEGIN
1666: --
1667: hr_utility.set_location('Entering:'||l_proc, 10);
1668:
1669: --
1670: -- Only proceed with validation if :
1671: -- a) Inserting or
1674: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1675: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1676: (hr_cle_shd.g_old_rec.month2_max_contribution <> p_month2_max_contribution))) THEN
1677: --
1678: hr_utility.set_location(l_proc, 20);
1679:
1680: IF ( p_month2_max_contribution IS NULL ) then
1681: --
1682: hr_utility.set_location(l_proc, 30);
1678: hr_utility.set_location(l_proc, 20);
1679:
1680: IF ( p_month2_max_contribution IS NULL ) then
1681: --
1682: hr_utility.set_location(l_proc, 30);
1683: FND_MESSAGE.set_name('PER', 'HR_DE_COLUMN_NULL');
1684: fnd_message.set_token('COL_NAME','month2_max_contribution');
1685: fnd_message.raise_error;
1686: --
1687: END IF;
1688: --
1689: IF ( p_month2_max_contribution < 0 ) then
1690: --
1691: hr_utility.set_location(l_proc, 30);
1692: FND_MESSAGE.set_name('PER', 'HR_DE_COL_NEGATIVE');
1693: fnd_message.set_token('COL_NAME','month2_max_contribution');
1694: fnd_message.raise_error;
1695:
1696: END IF;
1697: --
1698: END IF;
1699: --
1700: hr_utility.set_location('Leaving '||l_proc, 40);
1701: --
1702: --
1703: END chk_month2_max_contr_null;
1704: --
1742: l_validated boolean := TRUE;
1743: --
1744: BEGIN
1745: --
1746: hr_utility.set_location('Entering:'||l_proc, 10);
1747:
1748: --
1749: -- Only proceed with validation if :
1750: -- a) Inserting or
1754: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1755: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1756: (hr_cle_shd.g_old_rec.employee_contribution <> p_employee_contribution))) THEN
1757: --
1758: hr_utility.set_location(l_proc, 20);
1759:
1760: IF ( P_EMPLOYEE_CONTRIBUTION < 0 OR P_EMPLOYEE_CONTRIBUTION > 100) then
1761: --
1762: hr_utility.set_location(l_proc, 30);
1758: hr_utility.set_location(l_proc, 20);
1759:
1760: IF ( P_EMPLOYEE_CONTRIBUTION < 0 OR P_EMPLOYEE_CONTRIBUTION > 100) then
1761: --
1762: hr_utility.set_location(l_proc, 30);
1763: hr_utility.set_message(800, 'HR_DE_INVALID_EMPLOYEE_CONTR');
1764: hr_utility.raise_error;
1765: --
1766: END IF;
1759:
1760: IF ( P_EMPLOYEE_CONTRIBUTION < 0 OR P_EMPLOYEE_CONTRIBUTION > 100) then
1761: --
1762: hr_utility.set_location(l_proc, 30);
1763: hr_utility.set_message(800, 'HR_DE_INVALID_EMPLOYEE_CONTR');
1764: hr_utility.raise_error;
1765: --
1766: END IF;
1767: --
1760: IF ( P_EMPLOYEE_CONTRIBUTION < 0 OR P_EMPLOYEE_CONTRIBUTION > 100) then
1761: --
1762: hr_utility.set_location(l_proc, 30);
1763: hr_utility.set_message(800, 'HR_DE_INVALID_EMPLOYEE_CONTR');
1764: hr_utility.raise_error;
1765: --
1766: END IF;
1767: --
1768: END IF;
1766: END IF;
1767: --
1768: END IF;
1769: --
1770: hr_utility.set_location('Leaving '||l_proc, 40);
1771: --
1772: --
1773: END chk_employee_contribution;
1774: --
1821: --
1822:
1823: BEGIN
1824: --
1825: hr_utility.set_location('Entering:'||l_proc, 10);
1826:
1827: --
1828: -- Only proceed with validation if :
1829: -- a) Inserting or
1833: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1834: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1835: (hr_cle_shd.g_old_rec.month1 <> p_month1))) THEN
1836: --
1837: hr_utility.set_location(l_proc, 20);
1838: --
1839: IF (p_month1 IS NOT NULL) THEN
1840: --
1841: hr_utility.set_location(l_proc, 20);
1837: hr_utility.set_location(l_proc, 20);
1838: --
1839: IF (p_month1 IS NOT NULL) THEN
1840: --
1841: hr_utility.set_location(l_proc, 20);
1842: --
1843: OPEN c1_month(p_month1);
1844: FETCH c1_month INTO l_dummy;
1845: IF c1_month%NOTFOUND THEN
1843: OPEN c1_month(p_month1);
1844: FETCH c1_month INTO l_dummy;
1845: IF c1_month%NOTFOUND THEN
1846: --
1847: hr_utility.set_location(l_proc, 30);
1848: hr_utility.set_message(800, 'HR_DE_INVALID_MONTH_CODE');
1849: hr_utility.raise_error;
1850: --
1851: END IF;
1844: FETCH c1_month INTO l_dummy;
1845: IF c1_month%NOTFOUND THEN
1846: --
1847: hr_utility.set_location(l_proc, 30);
1848: hr_utility.set_message(800, 'HR_DE_INVALID_MONTH_CODE');
1849: hr_utility.raise_error;
1850: --
1851: END IF;
1852: --
1845: IF c1_month%NOTFOUND THEN
1846: --
1847: hr_utility.set_location(l_proc, 30);
1848: hr_utility.set_message(800, 'HR_DE_INVALID_MONTH_CODE');
1849: hr_utility.raise_error;
1850: --
1851: END IF;
1852: --
1853: END IF;
1854:
1855: --
1856: END IF;
1857: --
1858: hr_utility.set_location('Leaving '||l_proc, 40);
1859: --
1860: --
1861: END chk_month1;
1862: --
1908: --
1909:
1910: BEGIN
1911: --
1912: hr_utility.set_location('Entering:'||l_proc, 10);
1913:
1914: --
1915: -- Only proceed with validation if :
1916: -- a) Inserting or
1920: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1921: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1922: (hr_cle_shd.g_old_rec.month2 <> p_month2))) THEN
1923: --
1924: hr_utility.set_location(l_proc, 20);
1925: IF (p_month2 IS NOT NULL) THEN
1926: --
1927: hr_utility.set_location(l_proc, 20);
1928: OPEN c1_month(p_month2);
1923: --
1924: hr_utility.set_location(l_proc, 20);
1925: IF (p_month2 IS NOT NULL) THEN
1926: --
1927: hr_utility.set_location(l_proc, 20);
1928: OPEN c1_month(p_month2);
1929: FETCH c1_month INTO l_dummy;
1930: IF c1_month%NOTFOUND THEN
1931: --
1928: OPEN c1_month(p_month2);
1929: FETCH c1_month INTO l_dummy;
1930: IF c1_month%NOTFOUND THEN
1931: --
1932: hr_utility.set_location(l_proc, 30);
1933: hr_utility.set_message(800, 'HR_DE_INVALID_MONTH_CODE');
1934: hr_utility.raise_error;
1935: --
1936: END IF;
1929: FETCH c1_month INTO l_dummy;
1930: IF c1_month%NOTFOUND THEN
1931: --
1932: hr_utility.set_location(l_proc, 30);
1933: hr_utility.set_message(800, 'HR_DE_INVALID_MONTH_CODE');
1934: hr_utility.raise_error;
1935: --
1936: END IF;
1937: --
1930: IF c1_month%NOTFOUND THEN
1931: --
1932: hr_utility.set_location(l_proc, 30);
1933: hr_utility.set_message(800, 'HR_DE_INVALID_MONTH_CODE');
1934: hr_utility.raise_error;
1935: --
1936: END IF;
1937: --
1938: END IF;
1938: END IF;
1939: --
1940: END IF;
1941: --
1942: hr_utility.set_location('Leaving '||l_proc, 40);
1943: --
1944: --
1945: END chk_month2;
1946: --
1985: --
1986:
1987: BEGIN
1988: --
1989: hr_utility.set_location('Entering:'||l_proc, 10);
1990:
1991: --
1992: -- Only proceed with validation if :
1993: -- a) Inserting or
1996: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
1997: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
1998: (hr_cle_shd.g_old_rec.flat_tax_limit_per_month <> p_flat_tax_limit_per_month))) THEN
1999: --
2000: hr_utility.set_location(l_proc, 20);
2001:
2002: --
2003: IF ( p_flat_tax_limit_per_month < 0 ) then
2004: --
2001:
2002: --
2003: IF ( p_flat_tax_limit_per_month < 0 ) then
2004: --
2005: hr_utility.set_location(l_proc, 30);
2006: FND_MESSAGE.set_name('PER', 'HR_DE_COL_NEGATIVE');
2007: fnd_message.set_token('COL_NAME','flat_tax_limit_per_month');
2008: fnd_message.raise_error;
2009:
2010: END IF;
2011: --
2012: END IF;
2013: --
2014: hr_utility.set_location('Leaving '||l_proc, 40);
2015: --
2016: --
2017: END chk_flat_tax_month_val;
2018: --
2057: --
2058:
2059: BEGIN
2060: --
2061: hr_utility.set_location('Entering:'||l_proc, 10);
2062:
2063: --
2064: -- Only proceed with validation if :
2065: -- a) Inserting or
2068: IF ( (p_soc_ins_contr_lvls_id IS NULL) OR
2069: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
2070: (hr_cle_shd.g_old_rec.flat_tax_limit_per_year <> p_flat_tax_limit_per_year))) THEN
2071: --
2072: hr_utility.set_location(l_proc, 20);
2073:
2074: --
2075: IF ( p_flat_tax_limit_per_year < 0 ) then
2076: --
2073:
2074: --
2075: IF ( p_flat_tax_limit_per_year < 0 ) then
2076: --
2077: hr_utility.set_location(l_proc, 30);
2078: FND_MESSAGE.set_name('PER', 'HR_DE_COL_NEGATIVE');
2079: fnd_message.set_token('COL_NAME','flat_tax_limit_per_year');
2080: fnd_message.raise_error;
2081:
2082: END IF;
2083: --
2084: END IF;
2085: --
2086: hr_utility.set_location('Leaving '||l_proc, 40);
2087: --
2088: --
2089: END chk_flat_tax_year_val;
2090: --
2132: --
2133:
2134: BEGIN
2135: --
2136: hr_utility.set_location('Entering:'||l_proc, 10);
2137:
2138: --
2139: -- Only proceed with validation if :
2140: -- a) Inserting or
2146: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
2147: (hr_cle_shd.g_old_rec.max_increased_contribution <> p_max_increased_contribution))) THEN
2148:
2149: --
2150: hr_utility.set_location(l_proc, 20);
2151:
2152: --
2153: IF ( p_min_increased_contribution > p_max_increased_contribution ) then
2154: --
2151:
2152: --
2153: IF ( p_min_increased_contribution > p_max_increased_contribution ) then
2154: --
2155: hr_utility.set_location(l_proc, 30);
2156: hr_utility.set_message(800, 'HR_DE_MAX_MIN_INC_CONTR');
2157: hr_utility.raise_error;
2158:
2159: END IF;
2152: --
2153: IF ( p_min_increased_contribution > p_max_increased_contribution ) then
2154: --
2155: hr_utility.set_location(l_proc, 30);
2156: hr_utility.set_message(800, 'HR_DE_MAX_MIN_INC_CONTR');
2157: hr_utility.raise_error;
2158:
2159: END IF;
2160: --
2153: IF ( p_min_increased_contribution > p_max_increased_contribution ) then
2154: --
2155: hr_utility.set_location(l_proc, 30);
2156: hr_utility.set_message(800, 'HR_DE_MAX_MIN_INC_CONTR');
2157: hr_utility.raise_error;
2158:
2159: END IF;
2160: --
2161: END IF;
2159: END IF;
2160: --
2161: END IF;
2162: --
2163: hr_utility.set_location('Leaving '||l_proc, 40);
2164: --
2165: --
2166: END chk_min_max_inc_contr;
2167: --
2212: --
2213:
2214: BEGIN
2215: --
2216: hr_utility.set_location('Entering:'||l_proc, 10);
2217:
2218: --
2219: -- Only proceed with validation if :
2220: -- a) Inserting or
2230: ((p_soc_ins_contr_lvls_id IS NOT NULL) AND
2231: (hr_cle_shd.g_old_rec.max_increased_contribution <> p_max_increased_contribution))) THEN
2232:
2233: --
2234: hr_utility.set_location(l_proc, 20);
2235:
2236: --
2237: IF ( p_month1_min_contribution > p_month1_max_contribution ) then
2238: --
2235:
2236: --
2237: IF ( p_month1_min_contribution > p_month1_max_contribution ) then
2238: --
2239: hr_utility.set_location(l_proc, 30);
2240: hr_utility.set_message(800, 'HR_DE_MAX_MIN_INC_CONTR');
2241: hr_utility.raise_error;
2242:
2243: END IF;
2236: --
2237: IF ( p_month1_min_contribution > p_month1_max_contribution ) then
2238: --
2239: hr_utility.set_location(l_proc, 30);
2240: hr_utility.set_message(800, 'HR_DE_MAX_MIN_INC_CONTR');
2241: hr_utility.raise_error;
2242:
2243: END IF;
2244: --
2237: IF ( p_month1_min_contribution > p_month1_max_contribution ) then
2238: --
2239: hr_utility.set_location(l_proc, 30);
2240: hr_utility.set_message(800, 'HR_DE_MAX_MIN_INC_CONTR');
2241: hr_utility.raise_error;
2242:
2243: END IF;
2244: --
2245: --Commented out this code to fix bug 2359120
2245: --Commented out this code to fix bug 2359120
2246: /*IF ((p_month1_min_contribution < p_min_increased_contribution) OR
2247: (p_month1_max_contribution > p_max_increased_contribution)) THEN
2248: --
2249: hr_utility.set_location(l_proc, 30);
2250: hr_utility.set_message(800, 'HR_DE_MON_MAX_MIN_CONTR');
2251: hr_utility.raise_error;
2252:
2253: END IF;*/
2246: /*IF ((p_month1_min_contribution < p_min_increased_contribution) OR
2247: (p_month1_max_contribution > p_max_increased_contribution)) THEN
2248: --
2249: hr_utility.set_location(l_proc, 30);
2250: hr_utility.set_message(800, 'HR_DE_MON_MAX_MIN_CONTR');
2251: hr_utility.raise_error;
2252:
2253: END IF;*/
2254:
2247: (p_month1_max_contribution > p_max_increased_contribution)) THEN
2248: --
2249: hr_utility.set_location(l_proc, 30);
2250: hr_utility.set_message(800, 'HR_DE_MON_MAX_MIN_CONTR');
2251: hr_utility.raise_error;
2252:
2253: END IF;*/
2254:
2255: --
2254:
2255: --
2256: END IF;
2257: --
2258: hr_utility.set_location('Leaving '||l_proc, 40);
2259: --
2260: --
2261: END chk_mon1_min_max_contr;
2262: --
2306: --
2307:
2308: BEGIN
2309: --
2310: hr_utility.set_location('Entering:'||l_proc, 10);
2311:
2312: --
2313: -- Only proceed with validation if :
2314: -- a) Inserting or
2325: (hr_cle_shd.g_old_rec.max_increased_contribution <> p_max_increased_contribution))) THEN
2326:
2327:
2328: --
2329: hr_utility.set_location(l_proc, 20);
2330:
2331: --
2332: IF ( p_month2_min_contribution > p_month2_max_contribution ) then
2333: --
2330:
2331: --
2332: IF ( p_month2_min_contribution > p_month2_max_contribution ) then
2333: --
2334: hr_utility.set_location(l_proc, 30);
2335: hr_utility.set_message(800, 'HR_DE_MAX_MIN_INC_CONTR');
2336: hr_utility.raise_error;
2337:
2338: END IF;
2331: --
2332: IF ( p_month2_min_contribution > p_month2_max_contribution ) then
2333: --
2334: hr_utility.set_location(l_proc, 30);
2335: hr_utility.set_message(800, 'HR_DE_MAX_MIN_INC_CONTR');
2336: hr_utility.raise_error;
2337:
2338: END IF;
2339: --
2332: IF ( p_month2_min_contribution > p_month2_max_contribution ) then
2333: --
2334: hr_utility.set_location(l_proc, 30);
2335: hr_utility.set_message(800, 'HR_DE_MAX_MIN_INC_CONTR');
2336: hr_utility.raise_error;
2337:
2338: END IF;
2339: --
2340: --Commented out this code to fix bug 2359120
2340: --Commented out this code to fix bug 2359120
2341: /* IF ((p_month2_min_contribution < p_min_increased_contribution) OR
2342: (p_month2_max_contribution > p_max_increased_contribution)) THEN
2343: --
2344: hr_utility.set_location(l_proc, 30);
2345: hr_utility.set_message(800, 'HR_DE_MON_MAX_MIN_CONTR');
2346: hr_utility.raise_error;
2347:
2348: END IF;*/
2341: /* IF ((p_month2_min_contribution < p_min_increased_contribution) OR
2342: (p_month2_max_contribution > p_max_increased_contribution)) THEN
2343: --
2344: hr_utility.set_location(l_proc, 30);
2345: hr_utility.set_message(800, 'HR_DE_MON_MAX_MIN_CONTR');
2346: hr_utility.raise_error;
2347:
2348: END IF;*/
2349:
2342: (p_month2_max_contribution > p_max_increased_contribution)) THEN
2343: --
2344: hr_utility.set_location(l_proc, 30);
2345: hr_utility.set_message(800, 'HR_DE_MON_MAX_MIN_CONTR');
2346: hr_utility.raise_error;
2347:
2348: END IF;*/
2349:
2350: --
2349:
2350: --
2351: END IF;
2352: --
2353: hr_utility.set_location('Leaving '||l_proc, 40);
2354: --
2355: --
2356: END chk_mon2_min_max_contr;
2357: --
2389: --
2390: l_proc varchar2(72) := g_package||'chk_object_version_number';
2391: --
2392: begin
2393: hr_utility.set_location('Entering:'||l_proc, 1);
2394: --
2395: -- Check mandatory parameters have been set
2396: --
2397: hr_api.mandatory_arg_error
2399: ,p_argument => 'object_version_number'
2400: ,p_argument_value => p_object_version_number
2401: );
2402: --
2403: hr_utility.set_location(' Leaving:'||l_proc, 3);
2404: --
2405: end chk_object_version_number;
2406:
2407:
2614: --
2615: l_proc varchar2(72) := g_package||'insert_validate';
2616: --
2617: Begin
2618: hr_utility.set_location('Entering:'||l_proc, 5);
2619: --
2620: -- Call all supporting business operations
2621: --
2622: hr_cle_bus.chk_organization_id( p_effective_date
2763: --
2764: --
2765:
2766:
2767: hr_utility.set_location(' Leaving:'||l_proc, 10);
2768:
2769:
2770: End insert_validate;
2771: --
2782: --
2783: l_proc varchar2(72) := g_package||'update_validate';
2784: --
2785: Begin
2786: hr_utility.set_location('Entering:'||l_proc, 5);
2787:
2788: --
2789: -- Call all supporting business operations
2790: --
2939: --
2940: --
2941: hr_cle_bus.chk_df(p_rec);
2942: --
2943: hr_utility.set_location(' Leaving:'||l_proc, 10);
2944: End update_validate;
2945: --
2946: -- ----------------------------------------------------------------------------
2947: -- |---------------------------< delete_validate >----------------------------|
2956: --
2957: l_proc varchar2(72) := g_package||'delete_validate';
2958: --
2959: Begin
2960: hr_utility.set_location('Entering:'||l_proc, 5);
2961: --
2962: -- Call all supporting business operations
2963: --
2964: dt_delete_validate
2967: ,p_validation_end_date => p_validation_end_date
2968: ,p_soc_ins_contr_lvls_id => p_rec.soc_ins_contr_lvls_id
2969: );
2970: --
2971: hr_utility.set_location(' Leaving:'||l_proc, 10);
2972: End delete_validate;
2973: --
2974:
2975: end hr_cle_bus;