17: ----------- ---------- ------ ------- --------------------------
18: 05-Aug-1996 hparicha 40.0 Created.
19: 06-Jun-1997 sxshah 40.3 Moved Whenever SQLERROR to top.
20: This script did not compile.!!
21: 03-Apr-2003 ekim 115.2 2886771 Changed hr_utility message to reflect
22: package name pay_template_ivs rather
23: than hr_input_values.
24: Added gscc fix.
25: ======================================================================
524: --
525: --
526: begin
527: --
528: hr_utility.set_location('pay_template_ivs.ins_3p_input_values', 1);
529: /*
530: --
531: -- Obtain Pay value name from translation table.
532: l_pay_value_name :=
621: v_num_input_values number;
622: l_pay_value_name varchar2(80);
623: --
624: begin
625: hr_utility.set_location('pay_template_ivs.chk_input_value', 1);
626: --
627: -- get pay value name
628: l_pay_value_name := hr_input_values.get_pay_value_name
629: (p_legislation_code);
633: if p_name = l_pay_value_name and
634: p_classification_type = 'N' and
635: p_uom <> 'M' then
636: --
637: hr_utility.set_message(801,'');
638: hr_utility.raise_error;
639: --
640: end if;
641:
634: p_classification_type = 'N' and
635: p_uom <> 'M' then
636: --
637: hr_utility.set_message(801,'');
638: hr_utility.raise_error;
639: --
640: end if;
641:
642: hr_utility.set_location('pay_template_ivs.chk_input_value', 10);
638: hr_utility.raise_error;
639: --
640: end if;
641:
642: hr_utility.set_location('pay_template_ivs.chk_input_value', 10);
643: --
644: if p_insert_update_flag = 'INSERT' then
645: -- Make sure that a maximum of 6 input values can be created
646: begin
656: when NO_DATA_FOUND then NULL;
657: end;
658: if v_num_input_values >= 6 then
659: --
660: hr_utility.set_message(801,'PAY_6167_INPVAL_ONLY_6');
661: hr_utility.raise_error;
662: --
663: end if;
664: --
657: end;
658: if v_num_input_values >= 6 then
659: --
660: hr_utility.set_message(801,'PAY_6167_INPVAL_ONLY_6');
661: hr_utility.raise_error;
662: --
663: end if;
664: --
665: /*
689: end;
690: --
691: if v_validation_check = 'N' then
692: --
693: hr_utility.set_message(801,'PAY_6197_INPVAL_NO_ENTRY');
694: hr_utility.raise_error;
695: --
696: end if;
697: --
690: --
691: if v_validation_check = 'N' then
692: --
693: hr_utility.set_message(801,'PAY_6197_INPVAL_NO_ENTRY');
694: hr_utility.raise_error;
695: --
696: end if;
697: --
698: hr_utility.set_location('pay_template_ivs.chk_input_value', 20);
694: hr_utility.raise_error;
695: --
696: end if;
697: --
698: hr_utility.set_location('pay_template_ivs.chk_input_value', 20);
699: --
700: */
701:
702: end if;-- In INSERT mode
717: exception
718: when NO_DATA_FOUND then NULL;
719: end;
720:
721: hr_utility.set_location('pay_template_ivs.chk_input_value', 40);
722: --
723: if v_validation_check = 'N' then
724: --
725: hr_utility.set_message(801,'PAY_6168_INPVAL_DUP_NAME');
721: hr_utility.set_location('pay_template_ivs.chk_input_value', 40);
722: --
723: if v_validation_check = 'N' then
724: --
725: hr_utility.set_message(801,'PAY_6168_INPVAL_DUP_NAME');
726: hr_utility.raise_error;
727: --
728: end if;
729: --
722: --
723: if v_validation_check = 'N' then
724: --
725: hr_utility.set_message(801,'PAY_6168_INPVAL_DUP_NAME');
726: hr_utility.raise_error;
727: --
728: end if;
729: --
730: -- Hot defaulted values must be mandatory.
730: -- Hot defaulted values must be mandatory.
731: --
732: if (p_hot_default_flag = 'Y' and p_mandatory_flag = 'N') then
733: --
734: hr_utility.set_message(801,'PAY_6609_ELEMENT_HOT_DEF_MAN');
735: hr_utility.raise_error;
736: --
737: end if;
738: --
731: --
732: if (p_hot_default_flag = 'Y' and p_mandatory_flag = 'N') then
733: --
734: hr_utility.set_message(801,'PAY_6609_ELEMENT_HOT_DEF_MAN');
735: hr_utility.raise_error;
736: --
737: end if;
738: --
739: -- Hot defaulted values must have default, max and min less than 59
743: ((length(p_default_value) > 58) or
744: (length(p_min_value) > 58) or
745: (length(p_max_value) > 58)) then
746: --
747: hr_utility.set_message(801,'PAY_6616_INPVAL_HOT_LESS_58');
748: hr_utility.raise_error;
749: --
750: end if;
751: --
744: (length(p_min_value) > 58) or
745: (length(p_max_value) > 58)) then
746: --
747: hr_utility.set_message(801,'PAY_6616_INPVAL_HOT_LESS_58');
748: hr_utility.raise_error;
749: --
750: end if;
751: --
752: -- If the element is nonrecurring then do not allow any non-numeric input
756: p_generate_db_items_flag = 'Y') and
757: ((p_uom = 'C') or
758: (p_uom like 'D%'))) then
759: --
760: hr_utility.set_message(801,'PAY_6169_INPVAL_ONLY_NUM');
761: hr_utility.raise_error;
762: --
763: end if;
764: --
757: ((p_uom = 'C') or
758: (p_uom like 'D%'))) then
759: --
760: hr_utility.set_message(801,'PAY_6169_INPVAL_ONLY_NUM');
761: hr_utility.raise_error;
762: --
763: end if;
764: --
765: -- Makes sure that the validation specified for the input value is correct
772: p_min_value is not NULL or
773: p_max_value is not NULL or
774: p_warning_or_error is NULL) then
775: --
776: hr_utility.set_message(801,'PAY_6905_INPVAL_FORMULA_VAL');
777: hr_utility.raise_error;
778: --
779: end if;
780: --
773: p_max_value is not NULL or
774: p_warning_or_error is NULL) then
775: --
776: hr_utility.set_message(801,'PAY_6905_INPVAL_FORMULA_VAL');
777: hr_utility.raise_error;
778: --
779: end if;
780: --
781: hr_utility.set_location('pay_template_ivs.chk_input_value', 50);
777: hr_utility.raise_error;
778: --
779: end if;
780: --
781: hr_utility.set_location('pay_template_ivs.chk_input_value', 50);
782: --
783: elsif p_lookup_type is not NULL then
784: --
785: if (p_min_value is not NULL or
786: p_max_value is not NULL or
787: p_formula_id is not NULL or
788: p_warning_or_error is not NULL) then
789: --
790: hr_utility.set_message(801,'PAY_6906_INPVAL_LOOKUP_VAL');
791: hr_utility.raise_error;
792: --
793: end if;
794: hr_utility.set_location('pay_template_ivs.chk_input_value', 60);
787: p_formula_id is not NULL or
788: p_warning_or_error is not NULL) then
789: --
790: hr_utility.set_message(801,'PAY_6906_INPVAL_LOOKUP_VAL');
791: hr_utility.raise_error;
792: --
793: end if;
794: hr_utility.set_location('pay_template_ivs.chk_input_value', 60);
795: --
790: hr_utility.set_message(801,'PAY_6906_INPVAL_LOOKUP_VAL');
791: hr_utility.raise_error;
792: --
793: end if;
794: hr_utility.set_location('pay_template_ivs.chk_input_value', 60);
795: --
796: --
797: elsif (p_min_value is not NULL or p_max_value is not NULL) then
798: --
798: --
799: if (p_lookup_type is not NULL or
800: p_formula_id is not NULL) then
801: --
802: hr_utility.set_message(801,'PAY_6907_INPVAL_MIN_MAX_VAL');
803: hr_utility.raise_error;
804: --
805: elsif (p_warning_or_error is null) then
806: --
799: if (p_lookup_type is not NULL or
800: p_formula_id is not NULL) then
801: --
802: hr_utility.set_message(801,'PAY_6907_INPVAL_MIN_MAX_VAL');
803: hr_utility.raise_error;
804: --
805: elsif (p_warning_or_error is null) then
806: --
807: hr_utility.set_message(801,'PAY_6907_INPVAL_MIN_MAX_VAL');
803: hr_utility.raise_error;
804: --
805: elsif (p_warning_or_error is null) then
806: --
807: hr_utility.set_message(801,'PAY_6907_INPVAL_MIN_MAX_VAL');
808: hr_utility.raise_error;
809: --
810: end if;
811:
804: --
805: elsif (p_warning_or_error is null) then
806: --
807: hr_utility.set_message(801,'PAY_6907_INPVAL_MIN_MAX_VAL');
808: hr_utility.raise_error;
809: --
810: end if;
811:
812: end if;
815: p_min_value is null and
816: p_max_value is null and
817: p_formula_id is null) then
818: --
819: hr_utility.set_message(801,'PAY_6908_INPVAL_ERROR_VAL');
820: hr_utility.raise_error;
821: --
822: end if;
823: hr_utility.set_location('pay_template_ivs.chk_input_value', 70);
816: p_max_value is null and
817: p_formula_id is null) then
818: --
819: hr_utility.set_message(801,'PAY_6908_INPVAL_ERROR_VAL');
820: hr_utility.raise_error;
821: --
822: end if;
823: hr_utility.set_location('pay_template_ivs.chk_input_value', 70);
824: --
819: hr_utility.set_message(801,'PAY_6908_INPVAL_ERROR_VAL');
820: hr_utility.raise_error;
821: --
822: end if;
823: hr_utility.set_location('pay_template_ivs.chk_input_value', 70);
824: --
825: -- Mkae sure that when lookup validation is being used that the default when
826: -- specified is valid for the lookup type
827: --
826: -- specified is valid for the lookup type
827: --
828: --
829: if (p_lookup_type is not NULL and p_default_value is not NULL) then
830: hr_utility.set_location('pay_template_ivs.chk_input_value', 80);
831: --
832: begin
833: --
834: v_validation_check := 'Y';
844: exception
845: when NO_DATA_FOUND then NULL;
846: end;
847: --
848: hr_utility.set_location('pay_template_ivs.chk_input_value', 90);
849: --
850: if v_validation_check = 'N' then
851: --
852: hr_utility.set_message(801,'PAY_6171_INPVAL_NO_LOOKUP');
848: hr_utility.set_location('pay_template_ivs.chk_input_value', 90);
849: --
850: if v_validation_check = 'N' then
851: --
852: hr_utility.set_message(801,'PAY_6171_INPVAL_NO_LOOKUP');
853: hr_utility.raise_error;
854: --
855: end if;
856: --
849: --
850: if v_validation_check = 'N' then
851: --
852: hr_utility.set_message(801,'PAY_6171_INPVAL_NO_LOOKUP');
853: hr_utility.raise_error;
854: --
855: end if;
856: --
857: end if;
874: when NO_DATA_FOUND then null;
875: end;
876: --
877: if v_validation_check = 'N' then
878: hr_utility.set_message(801,'PAY_6913_INPVAL_NO_INS_RUN_RES');
879: hr_utility.raise_error;
880: end if;
881: */
882:
875: end;
876: --
877: if v_validation_check = 'N' then
878: hr_utility.set_message(801,'PAY_6913_INPVAL_NO_INS_RUN_RES');
879: hr_utility.raise_error;
880: end if;
881: */
882:
883: end chk_input_value;