PACKAGE BODY: APPS.HR_LEGISLATION_SUBGROUPS_PKG_1

Source

1 package body HR_LEGISLATION_SUBGROUPS_PKG_1 as
2 /* $Header: pylgs01t.pkb 115.1 99/07/17 06:15:40 porting ship  $ */
3 
4 procedure b_check_duplicate_in (p_legis_code IN VARCHAR2,
5                                  p_legis_sub IN VARCHAR2,
6                                  p_rowid IN VARCHAR2) IS
7               l_exists VARCHAR2(1);
8 
9 cursor c1 is
10   select 'x'
11   from hr_legislation_subgroups
12   where legislation_code = p_legis_code
13   and legislation_subgroup = p_legis_sub
14   and (p_rowid is null
15    or (p_rowid is not null and chartorowid(p_rowid) <> rowid));
16 --
17 begin
18 --
19 hr_utility.set_location('hr_legislation_subgroups_pkg_1.b_check_duplicate_in',1);
20 --
21 open c1;
22 --
23   fetch c1 into l_exists;
24   IF c1%found THEN
25      hr_utility.set_message('801', 'HR_6890_PAY_LEG_SUB');
26      close c1;
27      hr_utility.raise_error;
28   END IF;
29 --
30 close c1;
31 --
32 end b_check_duplicate_in;
33 
34 
35 
36 end HR_LEGISLATION_SUBGROUPS_PKG_1;