1 PACKAGE BODY per_es_disability AS
2 /* $Header: peesdisp.pkb 120.1 2006/09/15 09:30:57 mgettins noship $ */
3 PROCEDURE check_es_disability(p_category VARCHAR2
4 ,p_degree NUMBER) IS
5 --
6 BEGIN
7 --
8 /* IF p_degree IS NOT NULL THEN
9 IF p_category='ES_DIS_LT_33_PERC' THEN
10 IF NOT (p_degree <33 and p_degree > 0) THEN
11 hr_utility.set_message(800,'HR_ES_INVALID_DIS_DEGREE');
12 hr_utility.raise_error;
13 END IF;
14 ELSIF p_category='ES_DIS_BTW_33_65_PERC' THEN
15 IF NOT (p_degree >=33 and p_degree <=65 ) THEN
16 hr_utility.set_message(800,'HR_ES_INVALID_DIS_DEGREE');
17 hr_utility.raise_error;
18 END IF;
19 ELSIF p_category='ES_DIS_GT_65_PERC' THEN
20 IF (p_degree <=65) THEN
21 hr_utility.set_message(800,'HR_ES_INVALID_DIS_DEGREE');
22 hr_utility.raise_error;
23 END IF;
24 END IF;
25 END IF;*/
26 null;
27 END check_es_disability;
28 --
29 PROCEDURE create_es_disability(p_category VARCHAR2
30 ,p_degree NUMBER) IS
31 --
32 BEGIN
33 --
34 -- Added for GSI Bug 5472781
35 --
36 IF hr_utility.chk_product_install('Oracle Human Resources', 'ES') THEN
37 --
38 -- per_es_disability.check_es_disability(p_category => p_category
39 -- ,p_degree => p_degree);
40 null;
41 --
42 END IF;
43 --
44 END create_es_disability;
45 --
46 PROCEDURE update_es_disability(p_category VARCHAR2
47 ,p_degree NUMBER) IS
48 BEGIN
49 --
50 -- Added for GSI Bug 5472781
51 --
52 IF hr_utility.chk_product_install('Oracle Human Resources', 'ES') THEN
53 --
54 --per_es_disability.check_es_disability(p_category => p_category
55 -- ,p_degree => p_degree);
56 null;
57 --
58 END IF;
59 --
60 END update_es_disability;
61 --
62 END per_es_disability;