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_entitlement_result_id'
47: ,p_argument_value => p_cagr_entitlement_result_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_entitlement_result_id'
107: ,p_argument_value => p_cagr_entitlement_result_id
108: );
106: ,p_argument => 'cagr_entitlement_result_id'
107: ,p_argument_value => p_cagr_entitlement_result_id
108: );
109: --
110: if ( nvl(per_res_bus.g_cagr_entitlement_result_id, hr_api.g_number)
111: = p_cagr_entitlement_result_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
200: -- not been updated.
201: --
202: hr_utility.set_location(l_proc, 30);
203: --
204: if nvl(p_rec.assignment_id, hr_api.g_number) <>
205: nvl(per_res_shd.g_old_rec.assignment_id
206: ,hr_api.g_number) then
207: l_argument := 'assignment_id';
208: raise l_error;
202: hr_utility.set_location(l_proc, 30);
203: --
204: if nvl(p_rec.assignment_id, hr_api.g_number) <>
205: nvl(per_res_shd.g_old_rec.assignment_id
206: ,hr_api.g_number) then
207: l_argument := 'assignment_id';
208: raise l_error;
209: end if;
210: /*
207: l_argument := 'assignment_id';
208: raise l_error;
209: end if;
210: /*
211: if nvl(p_rec.cagr_request_id, hr_api.g_number) <>
212: nvl(per_res_shd.g_old_rec.cagr_request_id
213: ,hr_api.g_number) then
214: l_argument := 'cagr_request_id';
215: raise l_error;
209: end if;
210: /*
211: if nvl(p_rec.cagr_request_id, hr_api.g_number) <>
212: nvl(per_res_shd.g_old_rec.cagr_request_id
213: ,hr_api.g_number) then
214: l_argument := 'cagr_request_id';
215: raise l_error;
216: end if;
217: */
215: raise l_error;
216: end if;
217: */
218:
219: if nvl(p_rec.start_date, hr_api.g_date) <>
220: nvl(per_res_shd.g_old_rec.start_date
221: ,hr_api.g_date) then
222: l_argument := 'start_date';
223: raise l_error;
217: */
218:
219: if nvl(p_rec.start_date, hr_api.g_date) <>
220: nvl(per_res_shd.g_old_rec.start_date
221: ,hr_api.g_date) then
222: l_argument := 'start_date';
223: raise l_error;
224: end if;
225:
222: l_argument := 'start_date';
223: raise l_error;
224: end if;
225:
226: if nvl(p_rec.end_date, hr_api.g_date) <>
227: nvl(per_res_shd.g_old_rec.end_date
228: ,hr_api.g_date) then
229: l_argument := 'end_date';
230: raise l_error;
224: end if;
225:
226: if nvl(p_rec.end_date, hr_api.g_date) <>
227: nvl(per_res_shd.g_old_rec.end_date
228: ,hr_api.g_date) then
229: l_argument := 'end_date';
230: raise l_error;
231: end if;
232:
229: l_argument := 'end_date';
230: raise l_error;
231: end if;
232:
233: if nvl(p_rec.collective_agreement_id, hr_api.g_number) <>
234: nvl(per_res_shd.g_old_rec.collective_agreement_id
235: ,hr_api.g_number) then
236: l_argument := 'collective_agreement_id';
237: raise l_error;
231: end if;
232:
233: if nvl(p_rec.collective_agreement_id, hr_api.g_number) <>
234: nvl(per_res_shd.g_old_rec.collective_agreement_id
235: ,hr_api.g_number) then
236: l_argument := 'collective_agreement_id';
237: raise l_error;
238: end if;
239:
236: l_argument := 'collective_agreement_id';
237: raise l_error;
238: end if;
239:
240: if nvl(p_rec.cagr_entitlement_item_id, hr_api.g_number) <>
241: nvl(per_res_shd.g_old_rec.cagr_entitlement_item_id
242: ,hr_api.g_number) then
243: l_argument := 'cagr_entitlement_item_id';
244: raise l_error;
238: end if;
239:
240: if nvl(p_rec.cagr_entitlement_item_id, hr_api.g_number) <>
241: nvl(per_res_shd.g_old_rec.cagr_entitlement_item_id
242: ,hr_api.g_number) then
243: l_argument := 'cagr_entitlement_item_id';
244: raise l_error;
245: end if;
246:
243: l_argument := 'cagr_entitlement_item_id';
244: raise l_error;
245: end if;
246:
247: if nvl(p_rec.element_type_id, hr_api.g_number) <>
248: nvl(per_res_shd.g_old_rec.element_type_id
249: ,hr_api.g_number) then
250: l_argument := 'element_type_id';
251: raise l_error;
245: end if;
246:
247: if nvl(p_rec.element_type_id, hr_api.g_number) <>
248: nvl(per_res_shd.g_old_rec.element_type_id
249: ,hr_api.g_number) then
250: l_argument := 'element_type_id';
251: raise l_error;
252: end if;
253:
250: l_argument := 'element_type_id';
251: raise l_error;
252: end if;
253:
254: if nvl(p_rec.input_value_id, hr_api.g_number) <>
255: nvl(per_res_shd.g_old_rec.input_value_id
256: ,hr_api.g_number) then
257: l_argument := 'input_value_id';
258: raise l_error;
252: end if;
253:
254: if nvl(p_rec.input_value_id, hr_api.g_number) <>
255: nvl(per_res_shd.g_old_rec.input_value_id
256: ,hr_api.g_number) then
257: l_argument := 'input_value_id';
258: raise l_error;
259: end if;
260:
257: l_argument := 'input_value_id';
258: raise l_error;
259: end if;
260:
261: if nvl(p_rec.cagr_api_id, hr_api.g_number) <>
262: nvl(per_res_shd.g_old_rec.cagr_api_id
263: ,hr_api.g_number) then
264: l_argument := 'cagr_api_id';
265: raise l_error;
259: end if;
260:
261: if nvl(p_rec.cagr_api_id, hr_api.g_number) <>
262: nvl(per_res_shd.g_old_rec.cagr_api_id
263: ,hr_api.g_number) then
264: l_argument := 'cagr_api_id';
265: raise l_error;
266: end if;
267:
264: l_argument := 'cagr_api_id';
265: raise l_error;
266: end if;
267:
268: if nvl(p_rec.cagr_api_param_id, hr_api.g_number) <>
269: nvl(per_res_shd.g_old_rec.cagr_api_param_id
270: ,hr_api.g_number) then
271: l_argument := 'cagr_api_param_id';
272: raise l_error;
266: end if;
267:
268: if nvl(p_rec.cagr_api_param_id, hr_api.g_number) <>
269: nvl(per_res_shd.g_old_rec.cagr_api_param_id
270: ,hr_api.g_number) then
271: l_argument := 'cagr_api_param_id';
272: raise l_error;
273: end if;
274:
271: l_argument := 'cagr_api_param_id';
272: raise l_error;
273: end if;
274:
275: if nvl(p_rec.category_name, hr_api.g_varchar2) <>
276: nvl(per_res_shd.g_old_rec.category_name
277: ,hr_api.g_varchar2) then
278: l_argument := 'category_name';
279: raise l_error;
273: end if;
274:
275: if nvl(p_rec.category_name, hr_api.g_varchar2) <>
276: nvl(per_res_shd.g_old_rec.category_name
277: ,hr_api.g_varchar2) then
278: l_argument := 'category_name';
279: raise l_error;
280: end if;
281:
278: l_argument := 'category_name';
279: raise l_error;
280: end if;
281:
282: if nvl(p_rec.cagr_entitlement_id, hr_api.g_number) <>
283: nvl(per_res_shd.g_old_rec.cagr_entitlement_id
284: ,hr_api.g_number) then
285: l_argument := 'cagr_entitlement_id';
286: raise l_error;
280: end if;
281:
282: if nvl(p_rec.cagr_entitlement_id, hr_api.g_number) <>
283: nvl(per_res_shd.g_old_rec.cagr_entitlement_id
284: ,hr_api.g_number) then
285: l_argument := 'cagr_entitlement_id';
286: raise l_error;
287: end if;
288:
285: l_argument := 'cagr_entitlement_id';
286: raise l_error;
287: end if;
288:
289: if nvl(p_rec.cagr_entitlement_line_id, hr_api.g_number) <>
290: nvl(per_res_shd.g_old_rec.cagr_entitlement_line_id
291: ,hr_api.g_number) then
292: l_argument := 'cagr_entitlement_line_id';
293: raise l_error;
287: end if;
288:
289: if nvl(p_rec.cagr_entitlement_line_id, hr_api.g_number) <>
290: nvl(per_res_shd.g_old_rec.cagr_entitlement_line_id
291: ,hr_api.g_number) then
292: l_argument := 'cagr_entitlement_line_id';
293: raise l_error;
294: end if;
295: -- works
293: raise l_error;
294: end if;
295: -- works
296:
297: if nvl(p_rec.value, hr_api.g_varchar2) <>
298: nvl(per_res_shd.g_old_rec.value
299: ,hr_api.g_varchar2) then
300: l_argument := 'value';
301: raise l_error;
295: -- works
296:
297: if nvl(p_rec.value, hr_api.g_varchar2) <>
298: nvl(per_res_shd.g_old_rec.value
299: ,hr_api.g_varchar2) then
300: l_argument := 'value';
301: raise l_error;
302: end if;
303:
300: l_argument := 'value';
301: raise l_error;
302: end if;
303:
304: if nvl(p_rec.units_of_measure, hr_api.g_varchar2) <>
305: nvl(per_res_shd.g_old_rec.units_of_measure
306: ,hr_api.g_varchar2) then
307: l_argument := 'units_of_measure';
308: raise l_error;
302: end if;
303:
304: if nvl(p_rec.units_of_measure, hr_api.g_varchar2) <>
305: nvl(per_res_shd.g_old_rec.units_of_measure
306: ,hr_api.g_varchar2) then
307: l_argument := 'units_of_measure';
308: raise l_error;
309: end if;
310:
307: l_argument := 'units_of_measure';
308: raise l_error;
309: end if;
310:
311: if nvl(p_rec.range_from, hr_api.g_varchar2) <>
312: nvl(per_res_shd.g_old_rec.range_from
313: ,hr_api.g_varchar2) then
314: l_argument := 'range_from';
315: raise l_error;
309: end if;
310:
311: if nvl(p_rec.range_from, hr_api.g_varchar2) <>
312: nvl(per_res_shd.g_old_rec.range_from
313: ,hr_api.g_varchar2) then
314: l_argument := 'range_from';
315: raise l_error;
316: end if;
317:
314: l_argument := 'range_from';
315: raise l_error;
316: end if;
317:
318: if nvl(p_rec.range_to, hr_api.g_varchar2) <>
319: nvl(per_res_shd.g_old_rec.range_to
320: ,hr_api.g_varchar2) then
321: l_argument := 'range_to';
322: raise l_error;
316: end if;
317:
318: if nvl(p_rec.range_to, hr_api.g_varchar2) <>
319: nvl(per_res_shd.g_old_rec.range_to
320: ,hr_api.g_varchar2) then
321: l_argument := 'range_to';
322: raise l_error;
323: end if;
324:
321: l_argument := 'range_to';
322: raise l_error;
323: end if;
324:
325: if nvl(p_rec.grade_spine_id, hr_api.g_number) <>
326: nvl(per_res_shd.g_old_rec.grade_spine_id
327: ,hr_api.g_number) then
328: l_argument := 'grade_spine_id';
329: raise l_error;
323: end if;
324:
325: if nvl(p_rec.grade_spine_id, hr_api.g_number) <>
326: nvl(per_res_shd.g_old_rec.grade_spine_id
327: ,hr_api.g_number) then
328: l_argument := 'grade_spine_id';
329: raise l_error;
330: end if;
331:
328: l_argument := 'grade_spine_id';
329: raise l_error;
330: end if;
331:
332: if nvl(p_rec.parent_spine_id, hr_api.g_number) <>
333: nvl(per_res_shd.g_old_rec.parent_spine_id
334: ,hr_api.g_number) then
335: l_argument := 'parent_spine_id';
336: raise l_error;
330: end if;
331:
332: if nvl(p_rec.parent_spine_id, hr_api.g_number) <>
333: nvl(per_res_shd.g_old_rec.parent_spine_id
334: ,hr_api.g_number) then
335: l_argument := 'parent_spine_id';
336: raise l_error;
337: end if;
338:
335: l_argument := 'parent_spine_id';
336: raise l_error;
337: end if;
338:
339: if nvl(p_rec.step_id , hr_api.g_number) <>
340: nvl(per_res_shd.g_old_rec.step_id
341: ,hr_api.g_number) then
342: l_argument := 'step_id ';
343: raise l_error;
337: end if;
338:
339: if nvl(p_rec.step_id , hr_api.g_number) <>
340: nvl(per_res_shd.g_old_rec.step_id
341: ,hr_api.g_number) then
342: l_argument := 'step_id ';
343: raise l_error;
344: end if;
345:
342: l_argument := 'step_id ';
343: raise l_error;
344: end if;
345:
346: if nvl(p_rec.from_step_id, hr_api.g_number) <>
347: nvl(per_res_shd.g_old_rec.from_step_id
348: ,hr_api.g_number) then
349: l_argument := 'from_step_id';
350: raise l_error;
344: end if;
345:
346: if nvl(p_rec.from_step_id, hr_api.g_number) <>
347: nvl(per_res_shd.g_old_rec.from_step_id
348: ,hr_api.g_number) then
349: l_argument := 'from_step_id';
350: raise l_error;
351: end if;
352:
349: l_argument := 'from_step_id';
350: raise l_error;
351: end if;
352:
353: if nvl(p_rec.to_step_id, hr_api.g_number) <>
354: nvl(per_res_shd.g_old_rec.to_step_id
355: ,hr_api.g_number) then
356: l_argument := 'to_step_id';
357: raise l_error;
351: end if;
352:
353: if nvl(p_rec.to_step_id, hr_api.g_number) <>
354: nvl(per_res_shd.g_old_rec.to_step_id
355: ,hr_api.g_number) then
356: l_argument := 'to_step_id';
357: raise l_error;
358: end if;
359:
356: l_argument := 'to_step_id';
357: raise l_error;
358: end if;
359:
360: if nvl(p_rec.oipl_id, hr_api.g_number) <>
361: nvl(per_res_shd.g_old_rec.oipl_id
362: ,hr_api.g_number) then
363: l_argument := 'oipl_id';
364: raise l_error;
358: end if;
359:
360: if nvl(p_rec.oipl_id, hr_api.g_number) <>
361: nvl(per_res_shd.g_old_rec.oipl_id
362: ,hr_api.g_number) then
363: l_argument := 'oipl_id';
364: raise l_error;
365: end if;
366:
363: l_argument := 'oipl_id';
364: raise l_error;
365: end if;
366:
367: if nvl(p_rec.column_type, hr_api.g_varchar2) <>
368: nvl(per_res_shd.g_old_rec.column_type
369: ,hr_api.g_varchar2) then
370: l_argument := 'column_type';
371: raise l_error;
365: end if;
366:
367: if nvl(p_rec.column_type, hr_api.g_varchar2) <>
368: nvl(per_res_shd.g_old_rec.column_type
369: ,hr_api.g_varchar2) then
370: l_argument := 'column_type';
371: raise l_error;
372: end if;
373:
370: l_argument := 'column_type';
371: raise l_error;
372: end if;
373:
374: if nvl(p_rec.column_size, hr_api.g_number) <>
375: nvl(per_res_shd.g_old_rec.column_size
376: ,hr_api.g_number) then
377: l_argument := 'column_size';
378: raise l_error;
372: end if;
373:
374: if nvl(p_rec.column_size, hr_api.g_number) <>
375: nvl(per_res_shd.g_old_rec.column_size
376: ,hr_api.g_number) then
377: l_argument := 'column_size';
378: raise l_error;
379: end if;
380:
377: l_argument := 'column_size';
378: raise l_error;
379: end if;
380:
381: if nvl(p_rec.beneficial_flag, hr_api.g_varchar2) <>
382: nvl(per_res_shd.g_old_rec.beneficial_flag ,hr_api.g_varchar2) then
383: l_argument := 'beneficial_flag';
384: raise l_error;
385: end if;
378: raise l_error;
379: end if;
380:
381: if nvl(p_rec.beneficial_flag, hr_api.g_varchar2) <>
382: nvl(per_res_shd.g_old_rec.beneficial_flag ,hr_api.g_varchar2) then
383: l_argument := 'beneficial_flag';
384: raise l_error;
385: end if;
386:
383: l_argument := 'beneficial_flag';
384: raise l_error;
385: end if;
386:
387: if nvl(p_rec.business_group_id, hr_api.g_number) <>
388: nvl(per_res_shd.g_old_rec.business_group_id
389: ,hr_api.g_number) then
390: l_argument := 'business_group_id';
391: raise l_error;
385: end if;
386:
387: if nvl(p_rec.business_group_id, hr_api.g_number) <>
388: nvl(per_res_shd.g_old_rec.business_group_id
389: ,hr_api.g_number) then
390: l_argument := 'business_group_id';
391: raise l_error;
392: end if;
393:
390: l_argument := 'business_group_id';
391: raise l_error;
392: end if;
393:
394: if nvl(p_rec.legislation_code, hr_api.g_varchar2) <>
395: nvl(per_res_shd.g_old_rec.legislation_code
396: ,hr_api.g_varchar2) then
397: l_argument := 'legislation_code';
398: raise l_error;
392: end if;
393:
394: if nvl(p_rec.legislation_code, hr_api.g_varchar2) <>
395: nvl(per_res_shd.g_old_rec.legislation_code
396: ,hr_api.g_varchar2) then
397: l_argument := 'legislation_code';
398: raise l_error;
399: end if;
400:
397: l_argument := 'legislation_code';
398: raise l_error;
399: end if;
400:
401: if nvl(p_rec.eligy_prfl_id, hr_api.g_number) <>
402: nvl(per_res_shd.g_old_rec.eligy_prfl_id
403: ,hr_api.g_number) then
404: l_argument := 'eligy_prfl_id';
405: raise l_error;
399: end if;
400:
401: if nvl(p_rec.eligy_prfl_id, hr_api.g_number) <>
402: nvl(per_res_shd.g_old_rec.eligy_prfl_id
403: ,hr_api.g_number) then
404: l_argument := 'eligy_prfl_id';
405: raise l_error;
406: end if;
407:
404: l_argument := 'eligy_prfl_id';
405: raise l_error;
406: end if;
407:
408: if nvl(p_rec.formula_id, hr_api.g_number) <>
409: nvl(per_res_shd.g_old_rec.formula_id
410: ,hr_api.g_number) then
411: l_argument := 'formula_id';
412: raise l_error;
406: end if;
407:
408: if nvl(p_rec.formula_id, hr_api.g_number) <>
409: nvl(per_res_shd.g_old_rec.formula_id
410: ,hr_api.g_number) then
411: l_argument := 'formula_id';
412: raise l_error;
413: end if;
414: --
413: end if;
414: --
415: EXCEPTION
416: WHEN l_error THEN
417: hr_api.argument_changed_error
418: (p_api_name => l_proc
419: ,p_argument => l_argument);
420: WHEN OTHERS THEN
421: RAISE;
462: Begin
463: --
464: hr_utility.set_location('Entering:'|| l_proc, 1);
465: --
466: hr_api.mandatory_arg_error
467: (p_api_name => l_proc
468: ,p_argument => 'effective_date'
469: ,p_argument_value => p_effective_date
470: );
477: --
478: if ((p_cagr_entitlement_result_id is not null) and
479: (per_res_shd.g_old_rec.chosen_flag <> p_chosen_flag)) then
480: --
481: if hr_api.not_exists_in_hr_lookups
482: (p_effective_date => p_effective_date
483: ,p_lookup_type => 'YES_NO'
484: ,p_lookup_code => p_chosen_flag
485: )
615: ,per_res_shd.g_old_rec.legislation_code
616: );
617: IF hr_startup_data_api_support.g_startup_mode
618: NOT IN ('GENERIC','STARTUP') THEN
619: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate bus_grp
620: END IF;
621: --
622: -- Call all supporting business operations
623: --