40: hr_utility.set_location('Entering:'|| l_proc, 10);
41: --
42: -- Ensure that all the mandatory parameter are not null
43: --
44: hr_api.mandatory_arg_error
45: (p_api_name => l_proc
46: ,p_argument => 'cagr_retained_right_id'
47: ,p_argument_value => p_cagr_retained_right_id
48: );
63: close csr_sec_grp;
64: --
65: -- Set the security_group_id in CLIENT_INFO
66: --
67: hr_api.set_security_group_id
68: (p_security_group_id => l_security_group_id
69: );
70: --
71: hr_utility.set_location(' Leaving:'|| l_proc, 20);
100: hr_utility.set_location('Entering:'|| l_proc, 10);
101: --
102: -- Ensure that all the mandatory parameter are not null
103: --
104: hr_api.mandatory_arg_error
105: (p_api_name => l_proc
106: ,p_argument => 'cagr_retained_right_id'
107: ,p_argument_value => p_cagr_retained_right_id
108: );
106: ,p_argument => 'cagr_retained_right_id'
107: ,p_argument_value => p_cagr_retained_right_id
108: );
109: --
110: if ( nvl(per_ret_bus.g_cagr_retained_right_id, hr_api.g_number)
111: = p_cagr_retained_right_id) then
112: --
113: -- The legislation code has already been found with a previous
114: -- call to this function. Just return the value in the global
198: --
199: -- Checks to ensure non-updateable args have
200: -- not been updated.
201: --
202: if nvl(p_rec.cagr_entitlement_result_id, hr_api.g_number) <>
203: nvl(per_ret_shd.g_old_rec.cagr_entitlement_result_id
204: ,hr_api.g_number) then
205: l_argument := 'cagr_entitlement_result_id';
206: raise l_error;
200: -- not been updated.
201: --
202: if nvl(p_rec.cagr_entitlement_result_id, hr_api.g_number) <>
203: nvl(per_ret_shd.g_old_rec.cagr_entitlement_result_id
204: ,hr_api.g_number) then
205: l_argument := 'cagr_entitlement_result_id';
206: raise l_error;
207: end if;
208:
205: l_argument := 'cagr_entitlement_result_id';
206: raise l_error;
207: end if;
208:
209: if nvl(p_rec.assignment_id, hr_api.g_number) <>
210: nvl(per_ret_shd.g_old_rec.assignment_id
211: ,hr_api.g_number) then
212: l_argument := 'assignment_id';
213: raise l_error;
207: end if;
208:
209: if nvl(p_rec.assignment_id, hr_api.g_number) <>
210: nvl(per_ret_shd.g_old_rec.assignment_id
211: ,hr_api.g_number) then
212: l_argument := 'assignment_id';
213: raise l_error;
214: end if;
215:
212: l_argument := 'assignment_id';
213: raise l_error;
214: end if;
215:
216: if nvl(p_rec.start_date, hr_api.g_date) <>
217: nvl(per_ret_shd.g_old_rec.start_date
218: ,hr_api.g_date) then
219: l_argument := 'start_date';
220: raise l_error;
214: end if;
215:
216: if nvl(p_rec.start_date, hr_api.g_date) <>
217: nvl(per_ret_shd.g_old_rec.start_date
218: ,hr_api.g_date) then
219: l_argument := 'start_date';
220: raise l_error;
221: end if;
222:
219: l_argument := 'start_date';
220: raise l_error;
221: end if;
222:
223: if nvl(p_rec.collective_agreement_id, hr_api.g_number) <>
224: nvl(per_ret_shd.g_old_rec.collective_agreement_id
225: ,hr_api.g_number) then
226: l_argument := 'collective_agreement_id';
227: raise l_error;
221: end if;
222:
223: if nvl(p_rec.collective_agreement_id, hr_api.g_number) <>
224: nvl(per_ret_shd.g_old_rec.collective_agreement_id
225: ,hr_api.g_number) then
226: l_argument := 'collective_agreement_id';
227: raise l_error;
228: end if;
229:
226: l_argument := 'collective_agreement_id';
227: raise l_error;
228: end if;
229:
230: if nvl(p_rec.cagr_entitlement_item_id, hr_api.g_number) <>
231: nvl(per_ret_shd.g_old_rec.cagr_entitlement_item_id
232: ,hr_api.g_number) then
233: l_argument := 'cagr_entitlement_item_id';
234: raise l_error;
228: end if;
229:
230: if nvl(p_rec.cagr_entitlement_item_id, hr_api.g_number) <>
231: nvl(per_ret_shd.g_old_rec.cagr_entitlement_item_id
232: ,hr_api.g_number) then
233: l_argument := 'cagr_entitlement_item_id';
234: raise l_error;
235: end if;
236:
233: l_argument := 'cagr_entitlement_item_id';
234: raise l_error;
235: end if;
236:
237: if nvl(p_rec.element_type_id, hr_api.g_number) <>
238: nvl(per_ret_shd.g_old_rec.element_type_id
239: ,hr_api.g_number) then
240: l_argument := 'element_type_id';
241: raise l_error;
235: end if;
236:
237: if nvl(p_rec.element_type_id, hr_api.g_number) <>
238: nvl(per_ret_shd.g_old_rec.element_type_id
239: ,hr_api.g_number) then
240: l_argument := 'element_type_id';
241: raise l_error;
242: end if;
243:
240: l_argument := 'element_type_id';
241: raise l_error;
242: end if;
243:
244: if nvl(p_rec.input_value_id, hr_api.g_number) <>
245: nvl(per_ret_shd.g_old_rec.input_value_id
246: ,hr_api.g_number) then
247: l_argument := 'input_value_id';
248: raise l_error;
242: end if;
243:
244: if nvl(p_rec.input_value_id, hr_api.g_number) <>
245: nvl(per_ret_shd.g_old_rec.input_value_id
246: ,hr_api.g_number) then
247: l_argument := 'input_value_id';
248: raise l_error;
249: end if;
250:
247: l_argument := 'input_value_id';
248: raise l_error;
249: end if;
250:
251: if nvl(p_rec.cagr_api_id, hr_api.g_number) <>
252: nvl(per_ret_shd.g_old_rec.cagr_api_id
253: ,hr_api.g_number) then
254: l_argument := 'cagr_api_id';
255: raise l_error;
249: end if;
250:
251: if nvl(p_rec.cagr_api_id, hr_api.g_number) <>
252: nvl(per_ret_shd.g_old_rec.cagr_api_id
253: ,hr_api.g_number) then
254: l_argument := 'cagr_api_id';
255: raise l_error;
256: end if;
257:
254: l_argument := 'cagr_api_id';
255: raise l_error;
256: end if;
257:
258: if nvl(p_rec.cagr_api_param_id, hr_api.g_number) <>
259: nvl(per_ret_shd.g_old_rec.cagr_api_param_id
260: ,hr_api.g_number) then
261: l_argument := 'cagr_api_param_id';
262: raise l_error;
256: end if;
257:
258: if nvl(p_rec.cagr_api_param_id, hr_api.g_number) <>
259: nvl(per_ret_shd.g_old_rec.cagr_api_param_id
260: ,hr_api.g_number) then
261: l_argument := 'cagr_api_param_id';
262: raise l_error;
263: end if;
264:
261: l_argument := 'cagr_api_param_id';
262: raise l_error;
263: end if;
264:
265: if nvl(p_rec.category_name, hr_api.g_varchar2) <>
266: nvl(per_ret_shd.g_old_rec.category_name
267: ,hr_api.g_varchar2) then
268: l_argument := 'category_name';
269: raise l_error;
263: end if;
264:
265: if nvl(p_rec.category_name, hr_api.g_varchar2) <>
266: nvl(per_ret_shd.g_old_rec.category_name
267: ,hr_api.g_varchar2) then
268: l_argument := 'category_name';
269: raise l_error;
270: end if;
271:
268: l_argument := 'category_name';
269: raise l_error;
270: end if;
271:
272: if nvl(p_rec.freeze_flag, hr_api.g_varchar2) <>
273: nvl(per_ret_shd.g_old_rec.freeze_flag
274: ,hr_api.g_varchar2) then
275: l_argument := 'freeze_flag';
276: raise l_error;
270: end if;
271:
272: if nvl(p_rec.freeze_flag, hr_api.g_varchar2) <>
273: nvl(per_ret_shd.g_old_rec.freeze_flag
274: ,hr_api.g_varchar2) then
275: l_argument := 'freeze_flag';
276: raise l_error;
277: end if;
278:
275: l_argument := 'freeze_flag';
276: raise l_error;
277: end if;
278:
279: if nvl(p_rec.cagr_entitlement_id, hr_api.g_number) <>
280: nvl(per_ret_shd.g_old_rec.cagr_entitlement_id
281: ,hr_api.g_number) then
282: l_argument := 'cagr_entitlement_id';
283: raise l_error;
277: end if;
278:
279: if nvl(p_rec.cagr_entitlement_id, hr_api.g_number) <>
280: nvl(per_ret_shd.g_old_rec.cagr_entitlement_id
281: ,hr_api.g_number) then
282: l_argument := 'cagr_entitlement_id';
283: raise l_error;
284: end if;
285:
282: l_argument := 'cagr_entitlement_id';
283: raise l_error;
284: end if;
285:
286: if nvl(p_rec.cagr_entitlement_line_id, hr_api.g_number) <>
287: nvl(per_ret_shd.g_old_rec.cagr_entitlement_line_id
288: ,hr_api.g_number) then
289: l_argument := 'cagr_entitlement_line_id';
290: raise l_error;
284: end if;
285:
286: if nvl(p_rec.cagr_entitlement_line_id, hr_api.g_number) <>
287: nvl(per_ret_shd.g_old_rec.cagr_entitlement_line_id
288: ,hr_api.g_number) then
289: l_argument := 'cagr_entitlement_line_id';
290: raise l_error;
291: end if;
292:
289: l_argument := 'cagr_entitlement_line_id';
290: raise l_error;
291: end if;
292:
293: if nvl(p_rec.value, hr_api.g_varchar2) <>
294: nvl(per_ret_shd.g_old_rec.value
295: ,hr_api.g_varchar2) then
296: l_argument := 'value';
297: raise l_error;
291: end if;
292:
293: if nvl(p_rec.value, hr_api.g_varchar2) <>
294: nvl(per_ret_shd.g_old_rec.value
295: ,hr_api.g_varchar2) then
296: l_argument := 'value';
297: raise l_error;
298: end if;
299:
296: l_argument := 'value';
297: raise l_error;
298: end if;
299:
300: if nvl(p_rec.units_of_measure, hr_api.g_varchar2) <>
301: nvl(per_ret_shd.g_old_rec.units_of_measure
302: ,hr_api.g_varchar2) then
303: l_argument := 'units_of_measure';
304: raise l_error;
298: end if;
299:
300: if nvl(p_rec.units_of_measure, hr_api.g_varchar2) <>
301: nvl(per_ret_shd.g_old_rec.units_of_measure
302: ,hr_api.g_varchar2) then
303: l_argument := 'units_of_measure';
304: raise l_error;
305: end if;
306:
303: l_argument := 'units_of_measure';
304: raise l_error;
305: end if;
306:
307: if nvl(p_rec.grade_spine_id, hr_api.g_number) <>
308: nvl(per_ret_shd.g_old_rec.grade_spine_id
309: ,hr_api.g_number) then
310: l_argument := 'grade_spine_id';
311: raise l_error;
305: end if;
306:
307: if nvl(p_rec.grade_spine_id, hr_api.g_number) <>
308: nvl(per_ret_shd.g_old_rec.grade_spine_id
309: ,hr_api.g_number) then
310: l_argument := 'grade_spine_id';
311: raise l_error;
312: end if;
313:
310: l_argument := 'grade_spine_id';
311: raise l_error;
312: end if;
313:
314: if nvl(p_rec.parent_spine_id, hr_api.g_number) <>
315: nvl(per_ret_shd.g_old_rec.parent_spine_id
316: ,hr_api.g_number) then
317: l_argument := 'parent_spine_id';
318: raise l_error;
312: end if;
313:
314: if nvl(p_rec.parent_spine_id, hr_api.g_number) <>
315: nvl(per_ret_shd.g_old_rec.parent_spine_id
316: ,hr_api.g_number) then
317: l_argument := 'parent_spine_id';
318: raise l_error;
319: end if;
320:
317: l_argument := 'parent_spine_id';
318: raise l_error;
319: end if;
320:
321: if nvl(p_rec.step_id , hr_api.g_number) <>
322: nvl(per_ret_shd.g_old_rec.step_id
323: ,hr_api.g_number) then
324: l_argument := 'step_id ';
325: raise l_error;
319: end if;
320:
321: if nvl(p_rec.step_id , hr_api.g_number) <>
322: nvl(per_ret_shd.g_old_rec.step_id
323: ,hr_api.g_number) then
324: l_argument := 'step_id ';
325: raise l_error;
326: end if;
327:
324: l_argument := 'step_id ';
325: raise l_error;
326: end if;
327:
328: if nvl(p_rec.oipl_id, hr_api.g_number) <>
329: nvl(per_ret_shd.g_old_rec.oipl_id
330: ,hr_api.g_number) then
331: l_argument := 'oipl_id';
332: raise l_error;
326: end if;
327:
328: if nvl(p_rec.oipl_id, hr_api.g_number) <>
329: nvl(per_ret_shd.g_old_rec.oipl_id
330: ,hr_api.g_number) then
331: l_argument := 'oipl_id';
332: raise l_error;
333: end if;
334:
331: l_argument := 'oipl_id';
332: raise l_error;
333: end if;
334:
335: if nvl(p_rec.column_type, hr_api.g_varchar2) <>
336: nvl(per_ret_shd.g_old_rec.column_type
337: ,hr_api.g_varchar2) then
338: l_argument := 'column_type';
339: raise l_error;
333: end if;
334:
335: if nvl(p_rec.column_type, hr_api.g_varchar2) <>
336: nvl(per_ret_shd.g_old_rec.column_type
337: ,hr_api.g_varchar2) then
338: l_argument := 'column_type';
339: raise l_error;
340: end if;
341:
338: l_argument := 'column_type';
339: raise l_error;
340: end if;
341:
342: if nvl(p_rec.column_size, hr_api.g_number) <>
343: nvl(per_ret_shd.g_old_rec.column_size
344: ,hr_api.g_number) then
345: l_argument := 'column_size';
346: raise l_error;
340: end if;
341:
342: if nvl(p_rec.column_size, hr_api.g_number) <>
343: nvl(per_ret_shd.g_old_rec.column_size
344: ,hr_api.g_number) then
345: l_argument := 'column_size';
346: raise l_error;
347: end if;
348:
345: l_argument := 'column_size';
346: raise l_error;
347: end if;
348:
349: if nvl(p_rec.business_group_id, hr_api.g_number) <>
350: nvl(per_ret_shd.g_old_rec.business_group_id
351: ,hr_api.g_number) then
352: l_argument := 'business_group_id';
353: raise l_error;
347: end if;
348:
349: if nvl(p_rec.business_group_id, hr_api.g_number) <>
350: nvl(per_ret_shd.g_old_rec.business_group_id
351: ,hr_api.g_number) then
352: l_argument := 'business_group_id';
353: raise l_error;
354: end if;
355:
352: l_argument := 'business_group_id';
353: raise l_error;
354: end if;
355:
356: if nvl(p_rec.eligy_prfl_id, hr_api.g_number) <>
357: nvl(per_ret_shd.g_old_rec.eligy_prfl_id
358: ,hr_api.g_number) then
359: l_argument := 'eligy_prfl_id';
360: raise l_error;
354: end if;
355:
356: if nvl(p_rec.eligy_prfl_id, hr_api.g_number) <>
357: nvl(per_ret_shd.g_old_rec.eligy_prfl_id
358: ,hr_api.g_number) then
359: l_argument := 'eligy_prfl_id';
360: raise l_error;
361: end if;
362:
359: l_argument := 'eligy_prfl_id';
360: raise l_error;
361: end if;
362:
363: if nvl(p_rec.formula_id, hr_api.g_number) <>
364: nvl(per_ret_shd.g_old_rec.formula_id
365: ,hr_api.g_number) then
366: l_argument := 'formula_id';
367: raise l_error;
361: end if;
362:
363: if nvl(p_rec.formula_id, hr_api.g_number) <>
364: nvl(per_ret_shd.g_old_rec.formula_id
365: ,hr_api.g_number) then
366: l_argument := 'formula_id';
367: raise l_error;
368: end if;
369:
366: l_argument := 'formula_id';
367: raise l_error;
368: end if;
369:
370: if nvl(p_rec.flex_value_set_id, hr_api.g_number) <>
371: nvl(per_ret_shd.g_old_rec.flex_value_set_id
372: ,hr_api.g_number) then
373: l_argument := 'flex_value_set_id';
374: raise l_error;
368: end if;
369:
370: if nvl(p_rec.flex_value_set_id, hr_api.g_number) <>
371: nvl(per_ret_shd.g_old_rec.flex_value_set_id
372: ,hr_api.g_number) then
373: l_argument := 'flex_value_set_id';
374: raise l_error;
375: end if;
376:
376:
377:
378: EXCEPTION
379: WHEN l_error THEN
380: hr_api.argument_changed_error
381: (p_api_name => l_proc
382: ,p_argument => l_argument);
383: WHEN OTHERS THEN
384: RAISE;
401: --
402: -- ensure lookup validation fires when BG is not null
403: --
404: if p_rec.business_group_id is not null then
405: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
406: end if;
407:
408:
409: --
426: --
427: -- Call all supporting business operations
428: --
429: if p_rec.business_group_id is not null then
430: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
431: end if;
432: --
433: chk_non_updateable_args
434: (p_effective_date => p_effective_date