PACKAGE BODY: APPS.PER_RO_DISABILITY

Source

1 PACKAGE BODY per_ro_disability AS
2 /* $Header: perrodis.pkb 120.0.12020000.2 2013/04/03 08:58:39 kbajaj noship $ */
3 
4 	g_package  VARCHAR2(30) := 'PER_RO_DISABILITY.';
5 
6 cursor csr_get_lookup_code is
7 SELECT  lookup_code
8 FROM    fnd_lookup_values
9 WHERE   lookup_type = 'DISABILITY_CATEGORY'
10 AND     tag = '+RO'
11 AND     language = userenv ('LANG');
12 
13 procedure check_ro_disability(p_category    in  varchar2)
14 as
15  l_proc varchar2(100);
16 l_lookup_codelist varchar2(200) := '';
17 l_lookup_code varchar2(30);
18 begin
19 
20 		l_proc:= g_package||'check_ro_disability';
21 		 hr_utility.set_location('Entering:'|| l_proc, 5);
22 		IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'RO') THEN
23    			hr_utility.set_location('Leaving : '||l_proc,10);
24    			return;
25 		END IF;
26     open csr_get_lookup_code;
27 		loop
28    fetch csr_get_lookup_code into l_lookup_code;
29 		exit when csr_get_lookup_code%notfound;
30 		if l_lookup_codelist is null then
31 		l_lookup_codelist := l_lookup_code;
32   ELSE
33 	 l_lookup_codelist := l_lookup_code || ',' || l_lookup_codelist;
34 		END IF;
35 	END LOOP;
36 	CLOSE csr_get_lookup_code;
37 
38 	 IF p_category not in ('RO_SLIGHT','RO_MEDIUM','RO_SEVERE','RO_ACCENTUATED') THEN
39       hr_utility.set_message(800, 'HR_520018_INVALID_CATEGORY');
40 			hr_utility.set_message_token('DISABILITY_CATEGORY', l_lookup_codelist);
41       hr_utility.raise_error;
42    END IF;
43 		hr_utility.set_location('Leaving : '||l_proc,20);
44 end check_ro_disability;
45 
46 END per_ro_disability;