77: l_effective_date date;
78: --
79: begin
80: --
81: hr_utility.set_location('Entering:'|| l_proc, 5);
82: --
83: l_effective_date := p_effective_date;
84: --
85: open legsel;
87: into l_valid;
88: --
89: if legsel%notfound then
90: close legsel;
91: hr_utility.set_message(801, 'HR_7348_ASSIGNMENT_INVALID');
92: hr_utility.raise_error;
93: end if;
94: if legsel%found and l_valid <> 'FR' then
95: close legsel;
88: --
89: if legsel%notfound then
90: close legsel;
91: hr_utility.set_message(801, 'HR_7348_ASSIGNMENT_INVALID');
92: hr_utility.raise_error;
93: end if;
94: if legsel%found and l_valid <> 'FR' then
95: close legsel;
96: hr_utility.set_message(801, 'HR_7898_PPM_BUS_GRP_INVALID');
92: hr_utility.raise_error;
93: end if;
94: if legsel%found and l_valid <> 'FR' then
95: close legsel;
96: hr_utility.set_message(801, 'HR_7898_PPM_BUS_GRP_INVALID');
97: hr_utility.raise_error;
98: end if;
99: --
100: close legsel;
93: end if;
94: if legsel%found and l_valid <> 'FR' then
95: close legsel;
96: hr_utility.set_message(801, 'HR_7898_PPM_BUS_GRP_INVALID');
97: hr_utility.raise_error;
98: end if;
99: --
100: close legsel;
101: hr_utility.set_location(l_proc, 7);
97: hr_utility.raise_error;
98: end if;
99: --
100: close legsel;
101: hr_utility.set_location(l_proc, 7);
102: --
103: -- Call the business process to create the personal payment method
104: --
105: hr_personal_pay_method_api.create_personal_pay_method
152: ,p_effective_end_date => p_effective_end_date
153: ,p_comment_id => p_comment_id
154: );
155: --
156: hr_utility.set_location(' Leaving:'||l_proc, 8);
157: end create_fr_pers_pay_method;
158: --
159: -- ----------------------------------------------------------------------------
160: -- |--------------------< update_fr_pers_pay_method >---------------------|
225: and ppm.effective_end_date;
226:
227: --
228: begin
229: hr_utility.set_location('Entering:'|| l_proc, 5);
230: --
231: -- Ensure that the legislation rule for the employee assignment business
232: -- group is 'FR'.
233: --
236: into l_valid;
237: --
238: if legsel%notfound then
239: close legsel;
240: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
241: hr_utility.raise_error;
242: end if;
243: if legsel%found and l_valid <> 'FR' then
244: hr_utility.set_message(801, 'HR_7898_PPM_BUS_GRP_INVALID');
237: --
238: if legsel%notfound then
239: close legsel;
240: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
241: hr_utility.raise_error;
242: end if;
243: if legsel%found and l_valid <> 'FR' then
244: hr_utility.set_message(801, 'HR_7898_PPM_BUS_GRP_INVALID');
245: hr_utility.raise_error;
240: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
241: hr_utility.raise_error;
242: end if;
243: if legsel%found and l_valid <> 'FR' then
244: hr_utility.set_message(801, 'HR_7898_PPM_BUS_GRP_INVALID');
245: hr_utility.raise_error;
246: end if;
247: --
248: close legsel;
241: hr_utility.raise_error;
242: end if;
243: if legsel%found and l_valid <> 'FR' then
244: hr_utility.set_message(801, 'HR_7898_PPM_BUS_GRP_INVALID');
245: hr_utility.raise_error;
246: end if;
247: --
248: close legsel;
249: --
246: end if;
247: --
248: close legsel;
249: --
250: hr_utility.set_location(l_proc, 6);
251: --
252: -- Call the business process to update the personal payment method
253: --
254: hr_personal_pay_method_api.update_personal_pay_method
300: ,p_effective_start_date => p_effective_start_date
301: ,p_effective_end_date => p_effective_end_date
302: );
303: --
304: hr_utility.set_location(' Leaving:'||l_proc, 7);
305: end update_fr_pers_pay_method;
306: --
307: end hr_fr_pers_pay_method_api;