[Home] [Help]
1: PACKAGE BODY HR_ORG_INFORMATION_PKG as
2: /* $Header: peori01t.pkb 120.2.12010000.5 2008/08/06 09:19:06 ubhat ship $ */
3: PROCEDURE Validate_SIRET (X_SIRET VARCHAR2) IS
4:
5: l_rgeflg varchar2(10);
757: -- 'State Tax Rules' and the segment being updated is WC Carrier then
758: -- check that a WC rate for this carrier is not being referenced by
759: -- an assignment's 'WC Override Code' on the SCL 'GREs and other data'
760: --
761: hr_utility.set_location ('hr_org_information_pkg.update_row', 1);
762: --
763: IF (X_Org_Information_Context = 'State Tax Rules')
764: THEN
765: --
762: --
763: IF (X_Org_Information_Context = 'State Tax Rules')
764: THEN
765: --
766: hr_utility.set_location ('hr_org_information_pkg.update_row', 2);
767: --
768: -- get original values
769: --
770: OPEN get_orig_values;
776: IF ((l_state_code <> X_org_information1) OR
777: (NVL(l_carrier_id, X_org_information8) <> X_org_information8) OR
778: X_org_information8 IS NULL)
779: THEN
780: hr_utility.set_location ('hr_org_information_pkg.update_row', 3);
781: OPEN check_override;
782: FETCH check_override into l_dummy;
783: IF check_override%FOUND
784: THEN
781: OPEN check_override;
782: FETCH check_override into l_dummy;
783: IF check_override%FOUND
784: THEN
785: hr_utility.set_location ('hr_org_information_pkg.update_row', 4);
786: hr_utility.set_message(800,'HR_51039_ORG_WC_OVRRD_RATE_REF');
787: hr_utility.raise_error;
788: END IF;
789: CLOSE check_override;
786: hr_utility.set_message(800,'HR_51039_ORG_WC_OVRRD_RATE_REF');
787: hr_utility.raise_error;
788: END IF;
789: CLOSE check_override;
790: hr_utility.set_location ('hr_org_information_pkg.update_row', 5);
791: END IF;
792: END IF; -- end US specific validation
793:
794: if X_org_information_context = 'FR_ESTAB_INFO' then
891: hr_utility.raise_error;
892: end if;
893: END Delete_Row;
894:
895: END HR_ORG_INFORMATION_PKG;