79: --
80: hr_utility.set_location(' Leaving:'||l_proc, 10);
81: --
82: Exception
83: When hr_api.check_integrity_violated Then
84: -- A check constraint has been violated
85: --
86: per_ret_shd.constraint_error
87: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When hr_api.check_integrity_violated Then
84: -- A check constraint has been violated
85: --
86: per_ret_shd.constraint_error
87: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When hr_api.parent_integrity_violated Then
89: -- Parent integrity has been violated
90: --
91: per_ret_shd.constraint_error
84: -- A check constraint has been violated
85: --
86: per_ret_shd.constraint_error
87: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When hr_api.parent_integrity_violated Then
89: -- Parent integrity has been violated
90: --
91: per_ret_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When hr_api.parent_integrity_violated Then
89: -- Parent integrity has been violated
90: --
91: per_ret_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.unique_integrity_violated Then
94: -- Unique integrity has been violated
95: --
96: per_ret_shd.constraint_error
89: -- Parent integrity has been violated
90: --
91: per_ret_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.unique_integrity_violated Then
94: -- Unique integrity has been violated
95: --
96: per_ret_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.unique_integrity_violated Then
94: -- Unique integrity has been violated
95: --
96: per_ret_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When Others Then
99: --
100: Raise;
101: End update_dml;
255: );
256: --
257: exception
258: --
259: when hr_api.cannot_find_prog_unit then
260: --
261: hr_api.cannot_find_prog_unit_error
262: (p_module_name => 'PER_CAGR_RETAINED_RIGHTS'
263: ,p_hook_type => 'AU');
257: exception
258: --
259: when hr_api.cannot_find_prog_unit then
260: --
261: hr_api.cannot_find_prog_unit_error
262: (p_module_name => 'PER_CAGR_RETAINED_RIGHTS'
263: ,p_hook_type => 'AU');
264: --
265: end;
321: -- p_rec plsql record structure
322: -- to see if a system default is being used. If a system default
323: -- is being used then we must set to the 'current' argument value.
324: --
325: If (p_rec.assignment_id = hr_api.g_number) then
326: p_rec.assignment_id :=
327: per_ret_shd.g_old_rec.assignment_id;
328: End If;
329: If (p_rec.cagr_entitlement_item_id = hr_api.g_number) then
325: If (p_rec.assignment_id = hr_api.g_number) then
326: p_rec.assignment_id :=
327: per_ret_shd.g_old_rec.assignment_id;
328: End If;
329: If (p_rec.cagr_entitlement_item_id = hr_api.g_number) then
330: p_rec.cagr_entitlement_item_id :=
331: per_ret_shd.g_old_rec.cagr_entitlement_item_id;
332: End If;
333: If (p_rec.collective_agreement_id = hr_api.g_number) then
329: If (p_rec.cagr_entitlement_item_id = hr_api.g_number) then
330: p_rec.cagr_entitlement_item_id :=
331: per_ret_shd.g_old_rec.cagr_entitlement_item_id;
332: End If;
333: If (p_rec.collective_agreement_id = hr_api.g_number) then
334: p_rec.collective_agreement_id :=
335: per_ret_shd.g_old_rec.collective_agreement_id;
336: End If;
337: If (p_rec.cagr_entitlement_id = hr_api.g_number) then
333: If (p_rec.collective_agreement_id = hr_api.g_number) then
334: p_rec.collective_agreement_id :=
335: per_ret_shd.g_old_rec.collective_agreement_id;
336: End If;
337: If (p_rec.cagr_entitlement_id = hr_api.g_number) then
338: p_rec.cagr_entitlement_id :=
339: per_ret_shd.g_old_rec.cagr_entitlement_id;
340: End If;
341: If (p_rec.category_name = hr_api.g_varchar2) then
337: If (p_rec.cagr_entitlement_id = hr_api.g_number) then
338: p_rec.cagr_entitlement_id :=
339: per_ret_shd.g_old_rec.cagr_entitlement_id;
340: End If;
341: If (p_rec.category_name = hr_api.g_varchar2) then
342: p_rec.category_name :=
343: per_ret_shd.g_old_rec.category_name;
344: End If;
345: If (p_rec.element_type_id = hr_api.g_number) then
341: If (p_rec.category_name = hr_api.g_varchar2) then
342: p_rec.category_name :=
343: per_ret_shd.g_old_rec.category_name;
344: End If;
345: If (p_rec.element_type_id = hr_api.g_number) then
346: p_rec.element_type_id :=
347: per_ret_shd.g_old_rec.element_type_id;
348: End If;
349: If (p_rec.input_value_id = hr_api.g_number) then
345: If (p_rec.element_type_id = hr_api.g_number) then
346: p_rec.element_type_id :=
347: per_ret_shd.g_old_rec.element_type_id;
348: End If;
349: If (p_rec.input_value_id = hr_api.g_number) then
350: p_rec.input_value_id :=
351: per_ret_shd.g_old_rec.input_value_id;
352: End If;
353: If (p_rec.cagr_api_id = hr_api.g_number) then
349: If (p_rec.input_value_id = hr_api.g_number) then
350: p_rec.input_value_id :=
351: per_ret_shd.g_old_rec.input_value_id;
352: End If;
353: If (p_rec.cagr_api_id = hr_api.g_number) then
354: p_rec.cagr_api_id :=
355: per_ret_shd.g_old_rec.cagr_api_id;
356: End If;
357: If (p_rec.cagr_api_param_id = hr_api.g_number) then
353: If (p_rec.cagr_api_id = hr_api.g_number) then
354: p_rec.cagr_api_id :=
355: per_ret_shd.g_old_rec.cagr_api_id;
356: End If;
357: If (p_rec.cagr_api_param_id = hr_api.g_number) then
358: p_rec.cagr_api_param_id :=
359: per_ret_shd.g_old_rec.cagr_api_param_id;
360: End If;
361: If (p_rec.cagr_entitlement_line_id = hr_api.g_number) then
357: If (p_rec.cagr_api_param_id = hr_api.g_number) then
358: p_rec.cagr_api_param_id :=
359: per_ret_shd.g_old_rec.cagr_api_param_id;
360: End If;
361: If (p_rec.cagr_entitlement_line_id = hr_api.g_number) then
362: p_rec.cagr_entitlement_line_id :=
363: per_ret_shd.g_old_rec.cagr_entitlement_line_id;
364: End If;
365: If (p_rec.freeze_flag = hr_api.g_varchar2) then
361: If (p_rec.cagr_entitlement_line_id = hr_api.g_number) then
362: p_rec.cagr_entitlement_line_id :=
363: per_ret_shd.g_old_rec.cagr_entitlement_line_id;
364: End If;
365: If (p_rec.freeze_flag = hr_api.g_varchar2) then
366: p_rec.freeze_flag :=
367: per_ret_shd.g_old_rec.freeze_flag;
368: End If;
369: If (p_rec.value = hr_api.g_varchar2) then
365: If (p_rec.freeze_flag = hr_api.g_varchar2) then
366: p_rec.freeze_flag :=
367: per_ret_shd.g_old_rec.freeze_flag;
368: End If;
369: If (p_rec.value = hr_api.g_varchar2) then
370: p_rec.value :=
371: per_ret_shd.g_old_rec.value;
372: End If;
373: If (p_rec.units_of_measure = hr_api.g_varchar2) then
369: If (p_rec.value = hr_api.g_varchar2) then
370: p_rec.value :=
371: per_ret_shd.g_old_rec.value;
372: End If;
373: If (p_rec.units_of_measure = hr_api.g_varchar2) then
374: p_rec.units_of_measure :=
375: per_ret_shd.g_old_rec.units_of_measure;
376: End If;
377: If (p_rec.start_date = hr_api.g_date) then
373: If (p_rec.units_of_measure = hr_api.g_varchar2) then
374: p_rec.units_of_measure :=
375: per_ret_shd.g_old_rec.units_of_measure;
376: End If;
377: If (p_rec.start_date = hr_api.g_date) then
378: p_rec.start_date :=
379: per_ret_shd.g_old_rec.start_date;
380: End If;
381: If (p_rec.end_date = hr_api.g_date) then
377: If (p_rec.start_date = hr_api.g_date) then
378: p_rec.start_date :=
379: per_ret_shd.g_old_rec.start_date;
380: End If;
381: If (p_rec.end_date = hr_api.g_date) then
382: p_rec.end_date :=
383: per_ret_shd.g_old_rec.end_date;
384: End If;
385: If (p_rec.parent_spine_id = hr_api.g_number) then
381: If (p_rec.end_date = hr_api.g_date) then
382: p_rec.end_date :=
383: per_ret_shd.g_old_rec.end_date;
384: End If;
385: If (p_rec.parent_spine_id = hr_api.g_number) then
386: p_rec.parent_spine_id :=
387: per_ret_shd.g_old_rec.parent_spine_id;
388: End If;
389: If (p_rec.formula_id = hr_api.g_number) then
385: If (p_rec.parent_spine_id = hr_api.g_number) then
386: p_rec.parent_spine_id :=
387: per_ret_shd.g_old_rec.parent_spine_id;
388: End If;
389: If (p_rec.formula_id = hr_api.g_number) then
390: p_rec.formula_id :=
391: per_ret_shd.g_old_rec.formula_id;
392: End If;
393: If (p_rec.oipl_id = hr_api.g_number) then
389: If (p_rec.formula_id = hr_api.g_number) then
390: p_rec.formula_id :=
391: per_ret_shd.g_old_rec.formula_id;
392: End If;
393: If (p_rec.oipl_id = hr_api.g_number) then
394: p_rec.oipl_id :=
395: per_ret_shd.g_old_rec.oipl_id;
396: End If;
397: If (p_rec.step_id = hr_api.g_number) then
393: If (p_rec.oipl_id = hr_api.g_number) then
394: p_rec.oipl_id :=
395: per_ret_shd.g_old_rec.oipl_id;
396: End If;
397: If (p_rec.step_id = hr_api.g_number) then
398: p_rec.step_id :=
399: per_ret_shd.g_old_rec.step_id;
400: End If;
401: If (p_rec.grade_spine_id = hr_api.g_number) then
397: If (p_rec.step_id = hr_api.g_number) then
398: p_rec.step_id :=
399: per_ret_shd.g_old_rec.step_id;
400: End If;
401: If (p_rec.grade_spine_id = hr_api.g_number) then
402: p_rec.grade_spine_id :=
403: per_ret_shd.g_old_rec.grade_spine_id;
404: End If;
405: If (p_rec.column_type = hr_api.g_varchar2) then
401: If (p_rec.grade_spine_id = hr_api.g_number) then
402: p_rec.grade_spine_id :=
403: per_ret_shd.g_old_rec.grade_spine_id;
404: End If;
405: If (p_rec.column_type = hr_api.g_varchar2) then
406: p_rec.column_type :=
407: per_ret_shd.g_old_rec.column_type;
408: End If;
409: If (p_rec.column_size = hr_api.g_number) then
405: If (p_rec.column_type = hr_api.g_varchar2) then
406: p_rec.column_type :=
407: per_ret_shd.g_old_rec.column_type;
408: End If;
409: If (p_rec.column_size = hr_api.g_number) then
410: p_rec.column_size :=
411: per_ret_shd.g_old_rec.column_size;
412: End If;
413: If (p_rec.eligy_prfl_id = hr_api.g_number) then
409: If (p_rec.column_size = hr_api.g_number) then
410: p_rec.column_size :=
411: per_ret_shd.g_old_rec.column_size;
412: End If;
413: If (p_rec.eligy_prfl_id = hr_api.g_number) then
414: p_rec.eligy_prfl_id :=
415: per_ret_shd.g_old_rec.eligy_prfl_id;
416: End If;
417: If (p_rec.cagr_entitlement_result_id = hr_api.g_number) then
413: If (p_rec.eligy_prfl_id = hr_api.g_number) then
414: p_rec.eligy_prfl_id :=
415: per_ret_shd.g_old_rec.eligy_prfl_id;
416: End If;
417: If (p_rec.cagr_entitlement_result_id = hr_api.g_number) then
418: p_rec.cagr_entitlement_result_id :=
419: per_ret_shd.g_old_rec.cagr_entitlement_result_id;
420: End If;
421: If (p_rec.business_group_id = hr_api.g_number) then
417: If (p_rec.cagr_entitlement_result_id = hr_api.g_number) then
418: p_rec.cagr_entitlement_result_id :=
419: per_ret_shd.g_old_rec.cagr_entitlement_result_id;
420: End If;
421: If (p_rec.business_group_id = hr_api.g_number) then
422: p_rec.business_group_id :=
423: per_ret_shd.g_old_rec.business_group_id;
424: End If;
425: If (p_rec.flex_value_set_id = hr_api.g_number) then
421: If (p_rec.business_group_id = hr_api.g_number) then
422: p_rec.business_group_id :=
423: per_ret_shd.g_old_rec.business_group_id;
424: End If;
425: If (p_rec.flex_value_set_id = hr_api.g_number) then
426: p_rec.flex_value_set_id :=
427: per_ret_shd.g_old_rec.flex_value_set_id;
428: End If;
429: --
483: Procedure upd
484: (p_effective_date in date
485: ,p_cagr_retained_right_id in number
486: ,p_object_version_number in out nocopy number
487: ,p_end_date in date default hr_api.g_date
488: ) is
489: --
490: l_rec per_ret_shd.g_rec_type;
491: l_proc varchar2(72) := g_package||'upd';
498: --
499: l_rec :=
500: per_ret_shd.convert_args
501: (p_cagr_retained_right_id
502: ,hr_api.g_number
503: ,hr_api.g_number
504: ,hr_api.g_number
505: ,hr_api.g_number
506: ,hr_api.g_varchar2
499: l_rec :=
500: per_ret_shd.convert_args
501: (p_cagr_retained_right_id
502: ,hr_api.g_number
503: ,hr_api.g_number
504: ,hr_api.g_number
505: ,hr_api.g_number
506: ,hr_api.g_varchar2
507: ,hr_api.g_number
500: per_ret_shd.convert_args
501: (p_cagr_retained_right_id
502: ,hr_api.g_number
503: ,hr_api.g_number
504: ,hr_api.g_number
505: ,hr_api.g_number
506: ,hr_api.g_varchar2
507: ,hr_api.g_number
508: ,hr_api.g_number
501: (p_cagr_retained_right_id
502: ,hr_api.g_number
503: ,hr_api.g_number
504: ,hr_api.g_number
505: ,hr_api.g_number
506: ,hr_api.g_varchar2
507: ,hr_api.g_number
508: ,hr_api.g_number
509: ,hr_api.g_number
502: ,hr_api.g_number
503: ,hr_api.g_number
504: ,hr_api.g_number
505: ,hr_api.g_number
506: ,hr_api.g_varchar2
507: ,hr_api.g_number
508: ,hr_api.g_number
509: ,hr_api.g_number
510: ,hr_api.g_number
503: ,hr_api.g_number
504: ,hr_api.g_number
505: ,hr_api.g_number
506: ,hr_api.g_varchar2
507: ,hr_api.g_number
508: ,hr_api.g_number
509: ,hr_api.g_number
510: ,hr_api.g_number
511: ,hr_api.g_number
504: ,hr_api.g_number
505: ,hr_api.g_number
506: ,hr_api.g_varchar2
507: ,hr_api.g_number
508: ,hr_api.g_number
509: ,hr_api.g_number
510: ,hr_api.g_number
511: ,hr_api.g_number
512: ,hr_api.g_varchar2
505: ,hr_api.g_number
506: ,hr_api.g_varchar2
507: ,hr_api.g_number
508: ,hr_api.g_number
509: ,hr_api.g_number
510: ,hr_api.g_number
511: ,hr_api.g_number
512: ,hr_api.g_varchar2
513: ,hr_api.g_varchar2
506: ,hr_api.g_varchar2
507: ,hr_api.g_number
508: ,hr_api.g_number
509: ,hr_api.g_number
510: ,hr_api.g_number
511: ,hr_api.g_number
512: ,hr_api.g_varchar2
513: ,hr_api.g_varchar2
514: ,hr_api.g_varchar2
507: ,hr_api.g_number
508: ,hr_api.g_number
509: ,hr_api.g_number
510: ,hr_api.g_number
511: ,hr_api.g_number
512: ,hr_api.g_varchar2
513: ,hr_api.g_varchar2
514: ,hr_api.g_varchar2
515: ,hr_api.g_date
508: ,hr_api.g_number
509: ,hr_api.g_number
510: ,hr_api.g_number
511: ,hr_api.g_number
512: ,hr_api.g_varchar2
513: ,hr_api.g_varchar2
514: ,hr_api.g_varchar2
515: ,hr_api.g_date
516: ,p_end_date
509: ,hr_api.g_number
510: ,hr_api.g_number
511: ,hr_api.g_number
512: ,hr_api.g_varchar2
513: ,hr_api.g_varchar2
514: ,hr_api.g_varchar2
515: ,hr_api.g_date
516: ,p_end_date
517: ,hr_api.g_number
510: ,hr_api.g_number
511: ,hr_api.g_number
512: ,hr_api.g_varchar2
513: ,hr_api.g_varchar2
514: ,hr_api.g_varchar2
515: ,hr_api.g_date
516: ,p_end_date
517: ,hr_api.g_number
518: ,hr_api.g_number
511: ,hr_api.g_number
512: ,hr_api.g_varchar2
513: ,hr_api.g_varchar2
514: ,hr_api.g_varchar2
515: ,hr_api.g_date
516: ,p_end_date
517: ,hr_api.g_number
518: ,hr_api.g_number
519: ,hr_api.g_number
513: ,hr_api.g_varchar2
514: ,hr_api.g_varchar2
515: ,hr_api.g_date
516: ,p_end_date
517: ,hr_api.g_number
518: ,hr_api.g_number
519: ,hr_api.g_number
520: ,hr_api.g_number
521: ,hr_api.g_number
514: ,hr_api.g_varchar2
515: ,hr_api.g_date
516: ,p_end_date
517: ,hr_api.g_number
518: ,hr_api.g_number
519: ,hr_api.g_number
520: ,hr_api.g_number
521: ,hr_api.g_number
522: ,hr_api.g_varchar2
515: ,hr_api.g_date
516: ,p_end_date
517: ,hr_api.g_number
518: ,hr_api.g_number
519: ,hr_api.g_number
520: ,hr_api.g_number
521: ,hr_api.g_number
522: ,hr_api.g_varchar2
523: ,hr_api.g_number
516: ,p_end_date
517: ,hr_api.g_number
518: ,hr_api.g_number
519: ,hr_api.g_number
520: ,hr_api.g_number
521: ,hr_api.g_number
522: ,hr_api.g_varchar2
523: ,hr_api.g_number
524: ,hr_api.g_number
517: ,hr_api.g_number
518: ,hr_api.g_number
519: ,hr_api.g_number
520: ,hr_api.g_number
521: ,hr_api.g_number
522: ,hr_api.g_varchar2
523: ,hr_api.g_number
524: ,hr_api.g_number
525: ,p_object_version_number
518: ,hr_api.g_number
519: ,hr_api.g_number
520: ,hr_api.g_number
521: ,hr_api.g_number
522: ,hr_api.g_varchar2
523: ,hr_api.g_number
524: ,hr_api.g_number
525: ,p_object_version_number
526: ,hr_api.g_number
519: ,hr_api.g_number
520: ,hr_api.g_number
521: ,hr_api.g_number
522: ,hr_api.g_varchar2
523: ,hr_api.g_number
524: ,hr_api.g_number
525: ,p_object_version_number
526: ,hr_api.g_number
527: ,hr_api.g_number
520: ,hr_api.g_number
521: ,hr_api.g_number
522: ,hr_api.g_varchar2
523: ,hr_api.g_number
524: ,hr_api.g_number
525: ,p_object_version_number
526: ,hr_api.g_number
527: ,hr_api.g_number
528: ,hr_api.g_number
522: ,hr_api.g_varchar2
523: ,hr_api.g_number
524: ,hr_api.g_number
525: ,p_object_version_number
526: ,hr_api.g_number
527: ,hr_api.g_number
528: ,hr_api.g_number
529: );
530: --
523: ,hr_api.g_number
524: ,hr_api.g_number
525: ,p_object_version_number
526: ,hr_api.g_number
527: ,hr_api.g_number
528: ,hr_api.g_number
529: );
530: --
531: -- Having converted the arguments into the
524: ,hr_api.g_number
525: ,p_object_version_number
526: ,hr_api.g_number
527: ,hr_api.g_number
528: ,hr_api.g_number
529: );
530: --
531: -- Having converted the arguments into the
532: -- plsql record structure we call the corresponding record