1: Package Body hxc_has_bus as
2: /* $Header: hxchasrhi.pkb 120.5 2006/06/11 12:53:42 gsirigin noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' hxc_has_bus.'; -- Global package name
9: g_debug boolean :=hr_utility.debug_enabled;
10: --
11: -- The following two global variables are only to be
12: -- used by the return_legislation_code function.
129: ,p_argument => 'approval_style_id'
130: ,p_argument_value => p_approval_style_id
131: );
132: --
133: if ( nvl(hxc_has_bus.g_approval_style_id, hr_api.g_number)
134: = p_approval_style_id) then
135: --
136: -- The legislation code has already been found with a previous
137: -- call to this function. Just return the value in the global
136: -- The legislation code has already been found with a previous
137: -- call to this function. Just return the value in the global
138: -- variable.
139: --
140: l_legislation_code := hxc_has_bus.g_legislation_code;
141: if g_debug then
142: hr_utility.set_location(l_proc, 20);
143: end if;
144: else
164: -- Set the global variables so the values are
165: -- available for the next call to this function.
166: --
167: close csr_leg_code;
168: hxc_has_bus.g_approval_style_id := p_approval_style_id;
169: hxc_has_bus.g_legislation_code := l_legislation_code;
170: end if;
171: if g_debug then
172: hr_utility.set_location(' Leaving:'|| l_proc, 40);
165: -- available for the next call to this function.
166: --
167: close csr_leg_code;
168: hxc_has_bus.g_approval_style_id := p_approval_style_id;
169: hxc_has_bus.g_legislation_code := l_legislation_code;
170: end if;
171: if g_debug then
172: hr_utility.set_location(' Leaving:'|| l_proc, 40);
173: end if;
775: hr_utility.set_location(' Leaving:'||l_proc, 10);
776: end if;
777: End delete_validate;
778: --
779: end hxc_has_bus;