1 PACKAGE BODY hr_it_extra_contract_rules AS
2 /* $Header: hritexct.pkb 115.3 2003/01/30 15:33:39 vgunasek noship $ */
3 --
4 --
5 -- Service functions to return TRUE if the value passed has been changed.
6 --
7 FUNCTION val_changed(p_value IN NUMBER) RETURN BOOLEAN IS
8 BEGIN
9 RETURN (p_value IS NULL OR p_value <> hr_api.g_number);
10 END val_changed;
11 --
12 FUNCTION val_changed(p_value IN VARCHAR2) RETURN BOOLEAN IS
13 BEGIN
14 RETURN (p_value IS NULL OR p_value <> hr_api.g_varchar2);
15 END val_changed;
16 --
17 FUNCTION val_changed(p_value IN DATE) RETURN BOOLEAN IS
18 BEGIN
19 RETURN (p_value IS NULL OR p_value <> hr_api.g_date);
20 END val_changed;
21 --
22 --
23 -- Contract type:
24 --
25 -- It is validated against the list of values held in the lookup type IT_CONTRACT_TYPE.
26 --
27 -- Note: Supports both real and API system values (these are passed when the value has not
28 -- been changed.
29 --
30 PROCEDURE extra_contract_checks
31 (p_type IN VARCHAR2) IS
32 --
33 --
34 -- Local variables.
35 --
36 l_type VARCHAR2(40);
37 BEGIN
38 /* The Block is Commented intentionally for the BUG # 2772080
39 If val_changed(p_type) AND p_type IS NOT NULL THEN
40 BEGIN
41 SELECT lookup_code
42 INTO l_type
43 FROM hr_lookups
44 WHERE lookup_type = 'IT_CONTRACT_TYPE'
45 AND lookup_code = p_type;
46 EXCEPTION
47 WHEN no_data_found THEN
48 hr_utility.set_message(800, 'HR_IT_INVALID_CONTRACT_TYPE');
49 hr_utility.raise_error;
50 END;
51 END IF;
52 The Block is Commented intentionally for the BUG # 2772080 */
53 NULL;
54 END extra_contract_checks;
55 END hr_it_extra_contract_rules;