2: /* $Header: pepersai.pkb 120.3 2005/06/20 02:05:11 adevanat noship $ */
3:
4: -- Package Variables
5: g_package VARCHAR2(33) := 'hr_sa_person_api.';
6: g_debug boolean := hr_utility.debug_enabled;
7:
8: procedure update_sa_person
9: (p_validate in boolean default false
10: ,p_effective_date in date
149: --
150: begin
151:
152: if g_debug then
153: hr_utility.set_location('Entering:'|| l_proc, 5);
154: end if;
155: --
156: -- Initialise local variables
157: --
164: open check_legislation(p_person_id, l_effective_date);
165: fetch check_legislation into l_legislation_code;
166: if check_legislation%notfound then
167: close check_legislation;
168: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
169: hr_utility.raise_error;
170: end if;
171: close check_legislation;
172: if g_debug then
165: fetch check_legislation into l_legislation_code;
166: if check_legislation%notfound then
167: close check_legislation;
168: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
169: hr_utility.raise_error;
170: end if;
171: close check_legislation;
172: if g_debug then
173: hr_utility.set_location(l_proc, 20);
169: hr_utility.raise_error;
170: end if;
171: close check_legislation;
172: if g_debug then
173: hr_utility.set_location(l_proc, 20);
174: end if;
175: --
176: -- Check that the legislation of the specified business group is 'SA'.
177: --
175: --
176: -- Check that the legislation of the specified business group is 'SA'.
177: --
178: if l_legislation_code <> 'SA' then
179: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
180: hr_utility.set_message_token('LEG_CODE','SA');
181: hr_utility.raise_error;
182: end if;
183: if g_debug then
176: -- Check that the legislation of the specified business group is 'SA'.
177: --
178: if l_legislation_code <> 'SA' then
179: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
180: hr_utility.set_message_token('LEG_CODE','SA');
181: hr_utility.raise_error;
182: end if;
183: if g_debug then
184: hr_utility.set_location(l_proc, 30);
177: --
178: if l_legislation_code <> 'SA' then
179: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
180: hr_utility.set_message_token('LEG_CODE','SA');
181: hr_utility.raise_error;
182: end if;
183: if g_debug then
184: hr_utility.set_location(l_proc, 30);
185: end if;
180: hr_utility.set_message_token('LEG_CODE','SA');
181: hr_utility.raise_error;
182: end if;
183: if g_debug then
184: hr_utility.set_location(l_proc, 30);
185: end if;
186: --
187: -- Update the person record using the update_person
188: --
307: ,p_orig_hire_warning => p_orig_hire_warning
308: );
309: --
310: if g_debug then
311: hr_utility.set_location(' Leaving:'||l_proc, 7);
312: end if;
313: --
314: end update_sa_person;
315: end hr_sa_person_api;