51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy per_ret_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
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));
88: When hr_api.parent_integrity_violated Then
89: -- Parent integrity has been violated
90: --
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));
93: When hr_api.unique_integrity_violated Then
94: -- Unique integrity has been violated
95: --
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));
98: When Others Then
99: --
100: Raise;
132: --
133: -- {End Of Comments}
134: -- ----------------------------------------------------------------------------
135: Procedure pre_update
136: (p_rec in per_ret_shd.g_rec_type
137: ) is
138: --
139: l_proc varchar2(72) := g_package||'pre_update';
140: --
177: -- {End Of Comments}
178: -- ----------------------------------------------------------------------------
179: Procedure post_update
180: (p_effective_date in date
181: ,p_rec in per_ret_shd.g_rec_type
182: ) is
183: --
184: l_proc varchar2(72) := g_package||'post_update';
185: --
198: => p_rec.end_date
199: ,p_object_version_number
200: => p_rec.object_version_number
201: ,p_assignment_id_o
202: => per_ret_shd.g_old_rec.assignment_id
203: ,p_cagr_entitlement_item_id_o
204: => per_ret_shd.g_old_rec.cagr_entitlement_item_id
205: ,p_collective_agreement_id_o
206: => per_ret_shd.g_old_rec.collective_agreement_id
200: => p_rec.object_version_number
201: ,p_assignment_id_o
202: => per_ret_shd.g_old_rec.assignment_id
203: ,p_cagr_entitlement_item_id_o
204: => per_ret_shd.g_old_rec.cagr_entitlement_item_id
205: ,p_collective_agreement_id_o
206: => per_ret_shd.g_old_rec.collective_agreement_id
207: ,p_cagr_entitlement_id_o
208: => per_ret_shd.g_old_rec.cagr_entitlement_id
202: => per_ret_shd.g_old_rec.assignment_id
203: ,p_cagr_entitlement_item_id_o
204: => per_ret_shd.g_old_rec.cagr_entitlement_item_id
205: ,p_collective_agreement_id_o
206: => per_ret_shd.g_old_rec.collective_agreement_id
207: ,p_cagr_entitlement_id_o
208: => per_ret_shd.g_old_rec.cagr_entitlement_id
209: ,p_category_name_o
210: => per_ret_shd.g_old_rec.category_name
204: => per_ret_shd.g_old_rec.cagr_entitlement_item_id
205: ,p_collective_agreement_id_o
206: => per_ret_shd.g_old_rec.collective_agreement_id
207: ,p_cagr_entitlement_id_o
208: => per_ret_shd.g_old_rec.cagr_entitlement_id
209: ,p_category_name_o
210: => per_ret_shd.g_old_rec.category_name
211: ,p_element_type_id_o
212: => per_ret_shd.g_old_rec.element_type_id
206: => per_ret_shd.g_old_rec.collective_agreement_id
207: ,p_cagr_entitlement_id_o
208: => per_ret_shd.g_old_rec.cagr_entitlement_id
209: ,p_category_name_o
210: => per_ret_shd.g_old_rec.category_name
211: ,p_element_type_id_o
212: => per_ret_shd.g_old_rec.element_type_id
213: ,p_input_value_id_o
214: => per_ret_shd.g_old_rec.input_value_id
208: => per_ret_shd.g_old_rec.cagr_entitlement_id
209: ,p_category_name_o
210: => per_ret_shd.g_old_rec.category_name
211: ,p_element_type_id_o
212: => per_ret_shd.g_old_rec.element_type_id
213: ,p_input_value_id_o
214: => per_ret_shd.g_old_rec.input_value_id
215: ,p_cagr_api_id_o
216: => per_ret_shd.g_old_rec.cagr_api_id
210: => per_ret_shd.g_old_rec.category_name
211: ,p_element_type_id_o
212: => per_ret_shd.g_old_rec.element_type_id
213: ,p_input_value_id_o
214: => per_ret_shd.g_old_rec.input_value_id
215: ,p_cagr_api_id_o
216: => per_ret_shd.g_old_rec.cagr_api_id
217: ,p_cagr_api_param_id_o
218: => per_ret_shd.g_old_rec.cagr_api_param_id
212: => per_ret_shd.g_old_rec.element_type_id
213: ,p_input_value_id_o
214: => per_ret_shd.g_old_rec.input_value_id
215: ,p_cagr_api_id_o
216: => per_ret_shd.g_old_rec.cagr_api_id
217: ,p_cagr_api_param_id_o
218: => per_ret_shd.g_old_rec.cagr_api_param_id
219: ,p_cagr_entitlement_line_id_o
220: => per_ret_shd.g_old_rec.cagr_entitlement_line_id
214: => per_ret_shd.g_old_rec.input_value_id
215: ,p_cagr_api_id_o
216: => per_ret_shd.g_old_rec.cagr_api_id
217: ,p_cagr_api_param_id_o
218: => per_ret_shd.g_old_rec.cagr_api_param_id
219: ,p_cagr_entitlement_line_id_o
220: => per_ret_shd.g_old_rec.cagr_entitlement_line_id
221: ,p_freeze_flag_o
222: => per_ret_shd.g_old_rec.freeze_flag
216: => per_ret_shd.g_old_rec.cagr_api_id
217: ,p_cagr_api_param_id_o
218: => per_ret_shd.g_old_rec.cagr_api_param_id
219: ,p_cagr_entitlement_line_id_o
220: => per_ret_shd.g_old_rec.cagr_entitlement_line_id
221: ,p_freeze_flag_o
222: => per_ret_shd.g_old_rec.freeze_flag
223: ,p_value_o
224: => per_ret_shd.g_old_rec.value
218: => per_ret_shd.g_old_rec.cagr_api_param_id
219: ,p_cagr_entitlement_line_id_o
220: => per_ret_shd.g_old_rec.cagr_entitlement_line_id
221: ,p_freeze_flag_o
222: => per_ret_shd.g_old_rec.freeze_flag
223: ,p_value_o
224: => per_ret_shd.g_old_rec.value
225: ,p_units_of_measure_o
226: => per_ret_shd.g_old_rec.units_of_measure
220: => per_ret_shd.g_old_rec.cagr_entitlement_line_id
221: ,p_freeze_flag_o
222: => per_ret_shd.g_old_rec.freeze_flag
223: ,p_value_o
224: => per_ret_shd.g_old_rec.value
225: ,p_units_of_measure_o
226: => per_ret_shd.g_old_rec.units_of_measure
227: ,p_start_date_o
228: => per_ret_shd.g_old_rec.start_date
222: => per_ret_shd.g_old_rec.freeze_flag
223: ,p_value_o
224: => per_ret_shd.g_old_rec.value
225: ,p_units_of_measure_o
226: => per_ret_shd.g_old_rec.units_of_measure
227: ,p_start_date_o
228: => per_ret_shd.g_old_rec.start_date
229: ,p_end_date_o
230: => per_ret_shd.g_old_rec.end_date
224: => per_ret_shd.g_old_rec.value
225: ,p_units_of_measure_o
226: => per_ret_shd.g_old_rec.units_of_measure
227: ,p_start_date_o
228: => per_ret_shd.g_old_rec.start_date
229: ,p_end_date_o
230: => per_ret_shd.g_old_rec.end_date
231: ,p_parent_spine_id_o
232: => per_ret_shd.g_old_rec.parent_spine_id
226: => per_ret_shd.g_old_rec.units_of_measure
227: ,p_start_date_o
228: => per_ret_shd.g_old_rec.start_date
229: ,p_end_date_o
230: => per_ret_shd.g_old_rec.end_date
231: ,p_parent_spine_id_o
232: => per_ret_shd.g_old_rec.parent_spine_id
233: ,p_formula_id_o
234: => per_ret_shd.g_old_rec.formula_id
228: => per_ret_shd.g_old_rec.start_date
229: ,p_end_date_o
230: => per_ret_shd.g_old_rec.end_date
231: ,p_parent_spine_id_o
232: => per_ret_shd.g_old_rec.parent_spine_id
233: ,p_formula_id_o
234: => per_ret_shd.g_old_rec.formula_id
235: ,p_oipl_id_o
236: => per_ret_shd.g_old_rec.oipl_id
230: => per_ret_shd.g_old_rec.end_date
231: ,p_parent_spine_id_o
232: => per_ret_shd.g_old_rec.parent_spine_id
233: ,p_formula_id_o
234: => per_ret_shd.g_old_rec.formula_id
235: ,p_oipl_id_o
236: => per_ret_shd.g_old_rec.oipl_id
237: ,p_step_id_o
238: => per_ret_shd.g_old_rec.step_id
232: => per_ret_shd.g_old_rec.parent_spine_id
233: ,p_formula_id_o
234: => per_ret_shd.g_old_rec.formula_id
235: ,p_oipl_id_o
236: => per_ret_shd.g_old_rec.oipl_id
237: ,p_step_id_o
238: => per_ret_shd.g_old_rec.step_id
239: ,p_grade_spine_id_o
240: => per_ret_shd.g_old_rec.grade_spine_id
234: => per_ret_shd.g_old_rec.formula_id
235: ,p_oipl_id_o
236: => per_ret_shd.g_old_rec.oipl_id
237: ,p_step_id_o
238: => per_ret_shd.g_old_rec.step_id
239: ,p_grade_spine_id_o
240: => per_ret_shd.g_old_rec.grade_spine_id
241: ,p_column_type_o
242: => per_ret_shd.g_old_rec.column_type
236: => per_ret_shd.g_old_rec.oipl_id
237: ,p_step_id_o
238: => per_ret_shd.g_old_rec.step_id
239: ,p_grade_spine_id_o
240: => per_ret_shd.g_old_rec.grade_spine_id
241: ,p_column_type_o
242: => per_ret_shd.g_old_rec.column_type
243: ,p_column_size_o
244: => per_ret_shd.g_old_rec.column_size
238: => per_ret_shd.g_old_rec.step_id
239: ,p_grade_spine_id_o
240: => per_ret_shd.g_old_rec.grade_spine_id
241: ,p_column_type_o
242: => per_ret_shd.g_old_rec.column_type
243: ,p_column_size_o
244: => per_ret_shd.g_old_rec.column_size
245: ,p_eligy_prfl_id_o
246: => per_ret_shd.g_old_rec.eligy_prfl_id
240: => per_ret_shd.g_old_rec.grade_spine_id
241: ,p_column_type_o
242: => per_ret_shd.g_old_rec.column_type
243: ,p_column_size_o
244: => per_ret_shd.g_old_rec.column_size
245: ,p_eligy_prfl_id_o
246: => per_ret_shd.g_old_rec.eligy_prfl_id
247: ,p_object_version_number_o
248: => per_ret_shd.g_old_rec.object_version_number
242: => per_ret_shd.g_old_rec.column_type
243: ,p_column_size_o
244: => per_ret_shd.g_old_rec.column_size
245: ,p_eligy_prfl_id_o
246: => per_ret_shd.g_old_rec.eligy_prfl_id
247: ,p_object_version_number_o
248: => per_ret_shd.g_old_rec.object_version_number
249: ,p_cagr_entitlement_result_id_o
250: => per_ret_shd.g_old_rec.cagr_entitlement_result_id
244: => per_ret_shd.g_old_rec.column_size
245: ,p_eligy_prfl_id_o
246: => per_ret_shd.g_old_rec.eligy_prfl_id
247: ,p_object_version_number_o
248: => per_ret_shd.g_old_rec.object_version_number
249: ,p_cagr_entitlement_result_id_o
250: => per_ret_shd.g_old_rec.cagr_entitlement_result_id
251: ,p_business_group_id_o
252: => per_ret_shd.g_old_rec.business_group_id
246: => per_ret_shd.g_old_rec.eligy_prfl_id
247: ,p_object_version_number_o
248: => per_ret_shd.g_old_rec.object_version_number
249: ,p_cagr_entitlement_result_id_o
250: => per_ret_shd.g_old_rec.cagr_entitlement_result_id
251: ,p_business_group_id_o
252: => per_ret_shd.g_old_rec.business_group_id
253: ,p_flex_value_set_id_o
254: => per_ret_shd.g_old_rec.flex_value_set_id
248: => per_ret_shd.g_old_rec.object_version_number
249: ,p_cagr_entitlement_result_id_o
250: => per_ret_shd.g_old_rec.cagr_entitlement_result_id
251: ,p_business_group_id_o
252: => per_ret_shd.g_old_rec.business_group_id
253: ,p_flex_value_set_id_o
254: => per_ret_shd.g_old_rec.flex_value_set_id
255: );
256: --
250: => per_ret_shd.g_old_rec.cagr_entitlement_result_id
251: ,p_business_group_id_o
252: => per_ret_shd.g_old_rec.business_group_id
253: ,p_flex_value_set_id_o
254: => per_ret_shd.g_old_rec.flex_value_set_id
255: );
256: --
257: exception
258: --
311: --
312: -- {End Of Comments}
313: -- ----------------------------------------------------------------------------
314: Procedure convert_defs
315: (p_rec in out nocopy per_ret_shd.g_rec_type
316: ) is
317: --
318: Begin
319: --
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
330: p_rec.cagr_entitlement_item_id :=
331: per_ret_shd.g_old_rec.cagr_entitlement_item_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
334: p_rec.collective_agreement_id :=
335: per_ret_shd.g_old_rec.collective_agreement_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
338: p_rec.cagr_entitlement_id :=
339: per_ret_shd.g_old_rec.cagr_entitlement_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
342: p_rec.category_name :=
343: per_ret_shd.g_old_rec.category_name;
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
346: p_rec.element_type_id :=
347: per_ret_shd.g_old_rec.element_type_id;
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
350: p_rec.input_value_id :=
351: per_ret_shd.g_old_rec.input_value_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
354: p_rec.cagr_api_id :=
355: per_ret_shd.g_old_rec.cagr_api_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
358: p_rec.cagr_api_param_id :=
359: per_ret_shd.g_old_rec.cagr_api_param_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
362: p_rec.cagr_entitlement_line_id :=
363: per_ret_shd.g_old_rec.cagr_entitlement_line_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
366: p_rec.freeze_flag :=
367: per_ret_shd.g_old_rec.freeze_flag;
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
370: p_rec.value :=
371: per_ret_shd.g_old_rec.value;
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
374: p_rec.units_of_measure :=
375: per_ret_shd.g_old_rec.units_of_measure;
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
378: p_rec.start_date :=
379: per_ret_shd.g_old_rec.start_date;
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
382: p_rec.end_date :=
383: per_ret_shd.g_old_rec.end_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
386: p_rec.parent_spine_id :=
387: per_ret_shd.g_old_rec.parent_spine_id;
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
390: p_rec.formula_id :=
391: per_ret_shd.g_old_rec.formula_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
394: p_rec.oipl_id :=
395: per_ret_shd.g_old_rec.oipl_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
398: p_rec.step_id :=
399: per_ret_shd.g_old_rec.step_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
402: p_rec.grade_spine_id :=
403: per_ret_shd.g_old_rec.grade_spine_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
406: p_rec.column_type :=
407: per_ret_shd.g_old_rec.column_type;
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
410: p_rec.column_size :=
411: per_ret_shd.g_old_rec.column_size;
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
414: p_rec.eligy_prfl_id :=
415: per_ret_shd.g_old_rec.eligy_prfl_id;
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
418: p_rec.cagr_entitlement_result_id :=
419: per_ret_shd.g_old_rec.cagr_entitlement_result_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
422: p_rec.business_group_id :=
423: per_ret_shd.g_old_rec.business_group_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
426: p_rec.flex_value_set_id :=
427: per_ret_shd.g_old_rec.flex_value_set_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: --
430: End convert_defs;
431: --
433: -- |---------------------------------< upd >----------------------------------|
434: -- ----------------------------------------------------------------------------
435: Procedure upd
436: (p_effective_date in date
437: ,p_rec in out nocopy per_ret_shd.g_rec_type
438: ) is
439: --
440: l_proc varchar2(72) := g_package||'upd';
441: --
443: hr_utility.set_location('Entering:'||l_proc, 5);
444: --
445: -- We must lock the row which we need to update.
446: --
447: per_ret_shd.lck
448: (p_rec.cagr_retained_right_id
449: ,p_rec.object_version_number
450: );
451: --
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';
492: --
493: Begin
494: hr_utility.set_location('Entering:'||l_proc, 5);
496: -- Call conversion function to turn arguments into the
497: -- l_rec structure.
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