[Home] [Help]
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy per_res_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
81: Exception
82: When hr_api.check_integrity_violated Then
83: -- A check constraint has been violated
84: --
85: per_res_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.parent_integrity_violated Then
88: -- Parent integrity has been violated
89: --
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.parent_integrity_violated Then
88: -- Parent integrity has been violated
89: --
90: per_res_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.unique_integrity_violated Then
93: -- Unique integrity has been violated
94: --
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.unique_integrity_violated Then
93: -- Unique integrity has been violated
94: --
95: per_res_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When Others Then
98: --
99: Raise;
131: --
132: -- {End Of Comments}
133: -- ----------------------------------------------------------------------------
134: Procedure pre_update
135: (p_rec in per_res_shd.g_rec_type
136: ) is
137: --
138: l_proc varchar2(72) := g_package||'pre_update';
139: --
176: -- {End Of Comments}
177: -- ----------------------------------------------------------------------------
178: Procedure post_update
179: (p_effective_date in date
180: ,p_rec in per_res_shd.g_rec_type
181: ) is
182: --
183: l_proc varchar2(72) := g_package||'post_update';
184: --
193: ,p_beneficial_flag => p_rec.beneficial_flag
194: ,p_chosen_flag => p_rec.chosen_flag
195: ,p_object_version_number => p_rec.object_version_number
196: ,p_assignment_id_o
197: => per_res_shd.g_old_rec.assignment_id
198: ,p_start_date_o
199: => per_res_shd.g_old_rec.start_date
200: ,p_end_date_o
201: => per_res_shd.g_old_rec.end_date
195: ,p_object_version_number => p_rec.object_version_number
196: ,p_assignment_id_o
197: => per_res_shd.g_old_rec.assignment_id
198: ,p_start_date_o
199: => per_res_shd.g_old_rec.start_date
200: ,p_end_date_o
201: => per_res_shd.g_old_rec.end_date
202: ,p_collective_agreement_id_o
203: => per_res_shd.g_old_rec.collective_agreement_id
197: => per_res_shd.g_old_rec.assignment_id
198: ,p_start_date_o
199: => per_res_shd.g_old_rec.start_date
200: ,p_end_date_o
201: => per_res_shd.g_old_rec.end_date
202: ,p_collective_agreement_id_o
203: => per_res_shd.g_old_rec.collective_agreement_id
204: ,p_cagr_entitlement_item_id_o
205: => per_res_shd.g_old_rec.cagr_entitlement_item_id
199: => per_res_shd.g_old_rec.start_date
200: ,p_end_date_o
201: => per_res_shd.g_old_rec.end_date
202: ,p_collective_agreement_id_o
203: => per_res_shd.g_old_rec.collective_agreement_id
204: ,p_cagr_entitlement_item_id_o
205: => per_res_shd.g_old_rec.cagr_entitlement_item_id
206: ,p_element_type_id_o
207: => per_res_shd.g_old_rec.element_type_id
201: => per_res_shd.g_old_rec.end_date
202: ,p_collective_agreement_id_o
203: => per_res_shd.g_old_rec.collective_agreement_id
204: ,p_cagr_entitlement_item_id_o
205: => per_res_shd.g_old_rec.cagr_entitlement_item_id
206: ,p_element_type_id_o
207: => per_res_shd.g_old_rec.element_type_id
208: ,p_input_value_id_o
209: => per_res_shd.g_old_rec.input_value_id
203: => per_res_shd.g_old_rec.collective_agreement_id
204: ,p_cagr_entitlement_item_id_o
205: => per_res_shd.g_old_rec.cagr_entitlement_item_id
206: ,p_element_type_id_o
207: => per_res_shd.g_old_rec.element_type_id
208: ,p_input_value_id_o
209: => per_res_shd.g_old_rec.input_value_id
210: ,p_cagr_api_id_o
211: => per_res_shd.g_old_rec.cagr_api_id
205: => per_res_shd.g_old_rec.cagr_entitlement_item_id
206: ,p_element_type_id_o
207: => per_res_shd.g_old_rec.element_type_id
208: ,p_input_value_id_o
209: => per_res_shd.g_old_rec.input_value_id
210: ,p_cagr_api_id_o
211: => per_res_shd.g_old_rec.cagr_api_id
212: ,p_cagr_api_param_id_o
213: => per_res_shd.g_old_rec.cagr_api_param_id
207: => per_res_shd.g_old_rec.element_type_id
208: ,p_input_value_id_o
209: => per_res_shd.g_old_rec.input_value_id
210: ,p_cagr_api_id_o
211: => per_res_shd.g_old_rec.cagr_api_id
212: ,p_cagr_api_param_id_o
213: => per_res_shd.g_old_rec.cagr_api_param_id
214: ,p_category_name_o
215: => per_res_shd.g_old_rec.category_name
209: => per_res_shd.g_old_rec.input_value_id
210: ,p_cagr_api_id_o
211: => per_res_shd.g_old_rec.cagr_api_id
212: ,p_cagr_api_param_id_o
213: => per_res_shd.g_old_rec.cagr_api_param_id
214: ,p_category_name_o
215: => per_res_shd.g_old_rec.category_name
216: ,p_cagr_entitlement_id_o
217: => per_res_shd.g_old_rec.cagr_entitlement_id
211: => per_res_shd.g_old_rec.cagr_api_id
212: ,p_cagr_api_param_id_o
213: => per_res_shd.g_old_rec.cagr_api_param_id
214: ,p_category_name_o
215: => per_res_shd.g_old_rec.category_name
216: ,p_cagr_entitlement_id_o
217: => per_res_shd.g_old_rec.cagr_entitlement_id
218: ,p_cagr_entitlement_line_id_o
219: => per_res_shd.g_old_rec.cagr_entitlement_line_id
213: => per_res_shd.g_old_rec.cagr_api_param_id
214: ,p_category_name_o
215: => per_res_shd.g_old_rec.category_name
216: ,p_cagr_entitlement_id_o
217: => per_res_shd.g_old_rec.cagr_entitlement_id
218: ,p_cagr_entitlement_line_id_o
219: => per_res_shd.g_old_rec.cagr_entitlement_line_id
220: ,p_value_o
221: => per_res_shd.g_old_rec.value
215: => per_res_shd.g_old_rec.category_name
216: ,p_cagr_entitlement_id_o
217: => per_res_shd.g_old_rec.cagr_entitlement_id
218: ,p_cagr_entitlement_line_id_o
219: => per_res_shd.g_old_rec.cagr_entitlement_line_id
220: ,p_value_o
221: => per_res_shd.g_old_rec.value
222: ,p_units_of_measure_o
223: => per_res_shd.g_old_rec.units_of_measure
217: => per_res_shd.g_old_rec.cagr_entitlement_id
218: ,p_cagr_entitlement_line_id_o
219: => per_res_shd.g_old_rec.cagr_entitlement_line_id
220: ,p_value_o
221: => per_res_shd.g_old_rec.value
222: ,p_units_of_measure_o
223: => per_res_shd.g_old_rec.units_of_measure
224: ,p_range_from_o
225: => per_res_shd.g_old_rec.range_from
219: => per_res_shd.g_old_rec.cagr_entitlement_line_id
220: ,p_value_o
221: => per_res_shd.g_old_rec.value
222: ,p_units_of_measure_o
223: => per_res_shd.g_old_rec.units_of_measure
224: ,p_range_from_o
225: => per_res_shd.g_old_rec.range_from
226: ,p_range_to_o
227: => per_res_shd.g_old_rec.range_to
221: => per_res_shd.g_old_rec.value
222: ,p_units_of_measure_o
223: => per_res_shd.g_old_rec.units_of_measure
224: ,p_range_from_o
225: => per_res_shd.g_old_rec.range_from
226: ,p_range_to_o
227: => per_res_shd.g_old_rec.range_to
228: ,p_grade_spine_id_o
229: => per_res_shd.g_old_rec.grade_spine_id
223: => per_res_shd.g_old_rec.units_of_measure
224: ,p_range_from_o
225: => per_res_shd.g_old_rec.range_from
226: ,p_range_to_o
227: => per_res_shd.g_old_rec.range_to
228: ,p_grade_spine_id_o
229: => per_res_shd.g_old_rec.grade_spine_id
230: ,p_parent_spine_id_o
231: => per_res_shd.g_old_rec.parent_spine_id
225: => per_res_shd.g_old_rec.range_from
226: ,p_range_to_o
227: => per_res_shd.g_old_rec.range_to
228: ,p_grade_spine_id_o
229: => per_res_shd.g_old_rec.grade_spine_id
230: ,p_parent_spine_id_o
231: => per_res_shd.g_old_rec.parent_spine_id
232: ,p_step_id_o
233: => per_res_shd.g_old_rec.step_id
227: => per_res_shd.g_old_rec.range_to
228: ,p_grade_spine_id_o
229: => per_res_shd.g_old_rec.grade_spine_id
230: ,p_parent_spine_id_o
231: => per_res_shd.g_old_rec.parent_spine_id
232: ,p_step_id_o
233: => per_res_shd.g_old_rec.step_id
234: ,p_from_step_id_o
235: => per_res_shd.g_old_rec.from_step_id
229: => per_res_shd.g_old_rec.grade_spine_id
230: ,p_parent_spine_id_o
231: => per_res_shd.g_old_rec.parent_spine_id
232: ,p_step_id_o
233: => per_res_shd.g_old_rec.step_id
234: ,p_from_step_id_o
235: => per_res_shd.g_old_rec.from_step_id
236: ,p_to_step_id_o
237: => per_res_shd.g_old_rec.to_step_id
231: => per_res_shd.g_old_rec.parent_spine_id
232: ,p_step_id_o
233: => per_res_shd.g_old_rec.step_id
234: ,p_from_step_id_o
235: => per_res_shd.g_old_rec.from_step_id
236: ,p_to_step_id_o
237: => per_res_shd.g_old_rec.to_step_id
238: ,p_beneficial_flag_o
239: => per_res_shd.g_old_rec.beneficial_flag
233: => per_res_shd.g_old_rec.step_id
234: ,p_from_step_id_o
235: => per_res_shd.g_old_rec.from_step_id
236: ,p_to_step_id_o
237: => per_res_shd.g_old_rec.to_step_id
238: ,p_beneficial_flag_o
239: => per_res_shd.g_old_rec.beneficial_flag
240: ,p_oipl_id_o
241: => per_res_shd.g_old_rec.oipl_id
235: => per_res_shd.g_old_rec.from_step_id
236: ,p_to_step_id_o
237: => per_res_shd.g_old_rec.to_step_id
238: ,p_beneficial_flag_o
239: => per_res_shd.g_old_rec.beneficial_flag
240: ,p_oipl_id_o
241: => per_res_shd.g_old_rec.oipl_id
242: ,p_chosen_flag_o
243: => per_res_shd.g_old_rec.chosen_flag
237: => per_res_shd.g_old_rec.to_step_id
238: ,p_beneficial_flag_o
239: => per_res_shd.g_old_rec.beneficial_flag
240: ,p_oipl_id_o
241: => per_res_shd.g_old_rec.oipl_id
242: ,p_chosen_flag_o
243: => per_res_shd.g_old_rec.chosen_flag
244: ,p_column_type_o
245: => per_res_shd.g_old_rec.column_type
239: => per_res_shd.g_old_rec.beneficial_flag
240: ,p_oipl_id_o
241: => per_res_shd.g_old_rec.oipl_id
242: ,p_chosen_flag_o
243: => per_res_shd.g_old_rec.chosen_flag
244: ,p_column_type_o
245: => per_res_shd.g_old_rec.column_type
246: ,p_column_size_o
247: => per_res_shd.g_old_rec.column_size
241: => per_res_shd.g_old_rec.oipl_id
242: ,p_chosen_flag_o
243: => per_res_shd.g_old_rec.chosen_flag
244: ,p_column_type_o
245: => per_res_shd.g_old_rec.column_type
246: ,p_column_size_o
247: => per_res_shd.g_old_rec.column_size
248: ,p_cagr_request_id_o
249: => per_res_shd.g_old_rec.cagr_request_id
243: => per_res_shd.g_old_rec.chosen_flag
244: ,p_column_type_o
245: => per_res_shd.g_old_rec.column_type
246: ,p_column_size_o
247: => per_res_shd.g_old_rec.column_size
248: ,p_cagr_request_id_o
249: => per_res_shd.g_old_rec.cagr_request_id
250: ,p_business_group_id_o
251: => per_res_shd.g_old_rec.business_group_id
245: => per_res_shd.g_old_rec.column_type
246: ,p_column_size_o
247: => per_res_shd.g_old_rec.column_size
248: ,p_cagr_request_id_o
249: => per_res_shd.g_old_rec.cagr_request_id
250: ,p_business_group_id_o
251: => per_res_shd.g_old_rec.business_group_id
252: ,p_legislation_code_o
253: => per_res_shd.g_old_rec.legislation_code
247: => per_res_shd.g_old_rec.column_size
248: ,p_cagr_request_id_o
249: => per_res_shd.g_old_rec.cagr_request_id
250: ,p_business_group_id_o
251: => per_res_shd.g_old_rec.business_group_id
252: ,p_legislation_code_o
253: => per_res_shd.g_old_rec.legislation_code
254: ,p_eligy_prfl_id_o
255: => per_res_shd.g_old_rec.eligy_prfl_id
249: => per_res_shd.g_old_rec.cagr_request_id
250: ,p_business_group_id_o
251: => per_res_shd.g_old_rec.business_group_id
252: ,p_legislation_code_o
253: => per_res_shd.g_old_rec.legislation_code
254: ,p_eligy_prfl_id_o
255: => per_res_shd.g_old_rec.eligy_prfl_id
256: ,p_formula_id_o
257: => per_res_shd.g_old_rec.formula_id
251: => per_res_shd.g_old_rec.business_group_id
252: ,p_legislation_code_o
253: => per_res_shd.g_old_rec.legislation_code
254: ,p_eligy_prfl_id_o
255: => per_res_shd.g_old_rec.eligy_prfl_id
256: ,p_formula_id_o
257: => per_res_shd.g_old_rec.formula_id
258: ,p_object_version_number_o
259: => per_res_shd.g_old_rec.object_version_number
253: => per_res_shd.g_old_rec.legislation_code
254: ,p_eligy_prfl_id_o
255: => per_res_shd.g_old_rec.eligy_prfl_id
256: ,p_formula_id_o
257: => per_res_shd.g_old_rec.formula_id
258: ,p_object_version_number_o
259: => per_res_shd.g_old_rec.object_version_number
260: );
261: null;
255: => per_res_shd.g_old_rec.eligy_prfl_id
256: ,p_formula_id_o
257: => per_res_shd.g_old_rec.formula_id
258: ,p_object_version_number_o
259: => per_res_shd.g_old_rec.object_version_number
260: );
261: null;
262: --
263: exception
317: --
318: -- {End Of Comments}
319: -- ----------------------------------------------------------------------------
320: Procedure convert_defs
321: (p_rec in out nocopy per_res_shd.g_rec_type
322: ) is
323: --
324: Begin
325: --
329: -- is being used then we must set to the 'current' argument value.
330: --
331: If (p_rec.assignment_id = hr_api.g_number) then
332: p_rec.assignment_id :=
333: per_res_shd.g_old_rec.assignment_id;
334: End If;
335: If (p_rec.start_date = hr_api.g_date) then
336: p_rec.start_date :=
337: per_res_shd.g_old_rec.start_date;
333: per_res_shd.g_old_rec.assignment_id;
334: End If;
335: If (p_rec.start_date = hr_api.g_date) then
336: p_rec.start_date :=
337: per_res_shd.g_old_rec.start_date;
338: End If;
339: If (p_rec.end_date = hr_api.g_date) then
340: p_rec.end_date :=
341: per_res_shd.g_old_rec.end_date;
337: per_res_shd.g_old_rec.start_date;
338: End If;
339: If (p_rec.end_date = hr_api.g_date) then
340: p_rec.end_date :=
341: per_res_shd.g_old_rec.end_date;
342: End If;
343: If (p_rec.collective_agreement_id = hr_api.g_number) then
344: p_rec.collective_agreement_id :=
345: per_res_shd.g_old_rec.collective_agreement_id;
341: per_res_shd.g_old_rec.end_date;
342: End If;
343: If (p_rec.collective_agreement_id = hr_api.g_number) then
344: p_rec.collective_agreement_id :=
345: per_res_shd.g_old_rec.collective_agreement_id;
346: End If;
347: If (p_rec.cagr_entitlement_item_id = hr_api.g_number) then
348: p_rec.cagr_entitlement_item_id :=
349: per_res_shd.g_old_rec.cagr_entitlement_item_id;
345: per_res_shd.g_old_rec.collective_agreement_id;
346: End If;
347: If (p_rec.cagr_entitlement_item_id = hr_api.g_number) then
348: p_rec.cagr_entitlement_item_id :=
349: per_res_shd.g_old_rec.cagr_entitlement_item_id;
350: End If;
351: If (p_rec.element_type_id = hr_api.g_number) then
352: p_rec.element_type_id :=
353: per_res_shd.g_old_rec.element_type_id;
349: per_res_shd.g_old_rec.cagr_entitlement_item_id;
350: End If;
351: If (p_rec.element_type_id = hr_api.g_number) then
352: p_rec.element_type_id :=
353: per_res_shd.g_old_rec.element_type_id;
354: End If;
355: If (p_rec.input_value_id = hr_api.g_number) then
356: p_rec.input_value_id :=
357: per_res_shd.g_old_rec.input_value_id;
353: per_res_shd.g_old_rec.element_type_id;
354: End If;
355: If (p_rec.input_value_id = hr_api.g_number) then
356: p_rec.input_value_id :=
357: per_res_shd.g_old_rec.input_value_id;
358: End If;
359: If (p_rec.cagr_api_id = hr_api.g_number) then
360: p_rec.cagr_api_id :=
361: per_res_shd.g_old_rec.cagr_api_id;
357: per_res_shd.g_old_rec.input_value_id;
358: End If;
359: If (p_rec.cagr_api_id = hr_api.g_number) then
360: p_rec.cagr_api_id :=
361: per_res_shd.g_old_rec.cagr_api_id;
362: End If;
363: If (p_rec.cagr_api_param_id = hr_api.g_number) then
364: p_rec.cagr_api_param_id :=
365: per_res_shd.g_old_rec.cagr_api_param_id;
361: per_res_shd.g_old_rec.cagr_api_id;
362: End If;
363: If (p_rec.cagr_api_param_id = hr_api.g_number) then
364: p_rec.cagr_api_param_id :=
365: per_res_shd.g_old_rec.cagr_api_param_id;
366: End If;
367: If (p_rec.category_name = hr_api.g_varchar2) then
368: p_rec.category_name :=
369: per_res_shd.g_old_rec.category_name;
365: per_res_shd.g_old_rec.cagr_api_param_id;
366: End If;
367: If (p_rec.category_name = hr_api.g_varchar2) then
368: p_rec.category_name :=
369: per_res_shd.g_old_rec.category_name;
370: End If;
371: If (p_rec.cagr_entitlement_id = hr_api.g_number) then
372: p_rec.cagr_entitlement_id :=
373: per_res_shd.g_old_rec.cagr_entitlement_id;
369: per_res_shd.g_old_rec.category_name;
370: End If;
371: If (p_rec.cagr_entitlement_id = hr_api.g_number) then
372: p_rec.cagr_entitlement_id :=
373: per_res_shd.g_old_rec.cagr_entitlement_id;
374: End If;
375: If (p_rec.cagr_entitlement_line_id = hr_api.g_number) then
376: p_rec.cagr_entitlement_line_id :=
377: per_res_shd.g_old_rec.cagr_entitlement_line_id;
373: per_res_shd.g_old_rec.cagr_entitlement_id;
374: End If;
375: If (p_rec.cagr_entitlement_line_id = hr_api.g_number) then
376: p_rec.cagr_entitlement_line_id :=
377: per_res_shd.g_old_rec.cagr_entitlement_line_id;
378: End If;
379: If (p_rec.value = hr_api.g_varchar2) then
380: p_rec.value :=
381: per_res_shd.g_old_rec.value;
377: per_res_shd.g_old_rec.cagr_entitlement_line_id;
378: End If;
379: If (p_rec.value = hr_api.g_varchar2) then
380: p_rec.value :=
381: per_res_shd.g_old_rec.value;
382: End If;
383: If (p_rec.units_of_measure = hr_api.g_varchar2) then
384: p_rec.units_of_measure :=
385: per_res_shd.g_old_rec.units_of_measure;
381: per_res_shd.g_old_rec.value;
382: End If;
383: If (p_rec.units_of_measure = hr_api.g_varchar2) then
384: p_rec.units_of_measure :=
385: per_res_shd.g_old_rec.units_of_measure;
386: End If;
387: If (p_rec.range_from = hr_api.g_varchar2) then
388: p_rec.range_from :=
389: per_res_shd.g_old_rec.range_from;
385: per_res_shd.g_old_rec.units_of_measure;
386: End If;
387: If (p_rec.range_from = hr_api.g_varchar2) then
388: p_rec.range_from :=
389: per_res_shd.g_old_rec.range_from;
390: End If;
391: If (p_rec.range_to = hr_api.g_varchar2) then
392: p_rec.range_to :=
393: per_res_shd.g_old_rec.range_to;
389: per_res_shd.g_old_rec.range_from;
390: End If;
391: If (p_rec.range_to = hr_api.g_varchar2) then
392: p_rec.range_to :=
393: per_res_shd.g_old_rec.range_to;
394: End If;
395: If (p_rec.grade_spine_id = hr_api.g_number) then
396: p_rec.grade_spine_id :=
397: per_res_shd.g_old_rec.grade_spine_id;
393: per_res_shd.g_old_rec.range_to;
394: End If;
395: If (p_rec.grade_spine_id = hr_api.g_number) then
396: p_rec.grade_spine_id :=
397: per_res_shd.g_old_rec.grade_spine_id;
398: End If;
399: If (p_rec.parent_spine_id = hr_api.g_number) then
400: p_rec.parent_spine_id :=
401: per_res_shd.g_old_rec.parent_spine_id;
397: per_res_shd.g_old_rec.grade_spine_id;
398: End If;
399: If (p_rec.parent_spine_id = hr_api.g_number) then
400: p_rec.parent_spine_id :=
401: per_res_shd.g_old_rec.parent_spine_id;
402: End If;
403: If (p_rec.step_id = hr_api.g_number) then
404: p_rec.step_id :=
405: per_res_shd.g_old_rec.step_id;
401: per_res_shd.g_old_rec.parent_spine_id;
402: End If;
403: If (p_rec.step_id = hr_api.g_number) then
404: p_rec.step_id :=
405: per_res_shd.g_old_rec.step_id;
406: End If;
407: If (p_rec.from_step_id = hr_api.g_number) then
408: p_rec.from_step_id :=
409: per_res_shd.g_old_rec.from_step_id;
405: per_res_shd.g_old_rec.step_id;
406: End If;
407: If (p_rec.from_step_id = hr_api.g_number) then
408: p_rec.from_step_id :=
409: per_res_shd.g_old_rec.from_step_id;
410: End If;
411: If (p_rec.to_step_id = hr_api.g_number) then
412: p_rec.to_step_id :=
413: per_res_shd.g_old_rec.to_step_id;
409: per_res_shd.g_old_rec.from_step_id;
410: End If;
411: If (p_rec.to_step_id = hr_api.g_number) then
412: p_rec.to_step_id :=
413: per_res_shd.g_old_rec.to_step_id;
414: End If;
415: If (p_rec.beneficial_flag = hr_api.g_varchar2) then
416: p_rec.beneficial_flag :=
417: per_res_shd.g_old_rec.beneficial_flag;
413: per_res_shd.g_old_rec.to_step_id;
414: End If;
415: If (p_rec.beneficial_flag = hr_api.g_varchar2) then
416: p_rec.beneficial_flag :=
417: per_res_shd.g_old_rec.beneficial_flag;
418: End If;
419: If (p_rec.oipl_id = hr_api.g_number) then
420: p_rec.oipl_id :=
421: per_res_shd.g_old_rec.oipl_id;
417: per_res_shd.g_old_rec.beneficial_flag;
418: End If;
419: If (p_rec.oipl_id = hr_api.g_number) then
420: p_rec.oipl_id :=
421: per_res_shd.g_old_rec.oipl_id;
422: End If;
423: If (p_rec.chosen_flag = hr_api.g_varchar2) then
424: p_rec.chosen_flag :=
425: per_res_shd.g_old_rec.chosen_flag;
421: per_res_shd.g_old_rec.oipl_id;
422: End If;
423: If (p_rec.chosen_flag = hr_api.g_varchar2) then
424: p_rec.chosen_flag :=
425: per_res_shd.g_old_rec.chosen_flag;
426: End If;
427: If (p_rec.column_type = hr_api.g_varchar2) then
428: p_rec.column_type :=
429: per_res_shd.g_old_rec.column_type;
425: per_res_shd.g_old_rec.chosen_flag;
426: End If;
427: If (p_rec.column_type = hr_api.g_varchar2) then
428: p_rec.column_type :=
429: per_res_shd.g_old_rec.column_type;
430: End If;
431: If (p_rec.column_size = hr_api.g_number) then
432: p_rec.column_size :=
433: per_res_shd.g_old_rec.column_size;
429: per_res_shd.g_old_rec.column_type;
430: End If;
431: If (p_rec.column_size = hr_api.g_number) then
432: p_rec.column_size :=
433: per_res_shd.g_old_rec.column_size;
434: End If;
435: If (p_rec.business_group_id = hr_api.g_number) then
436: p_rec.business_group_id :=
437: per_res_shd.g_old_rec.business_group_id;
433: per_res_shd.g_old_rec.column_size;
434: End If;
435: If (p_rec.business_group_id = hr_api.g_number) then
436: p_rec.business_group_id :=
437: per_res_shd.g_old_rec.business_group_id;
438: End If;
439: If (p_rec.legislation_code = hr_api.g_varchar2) then
440: p_rec.legislation_code :=
441: per_res_shd.g_old_rec.legislation_code;
437: per_res_shd.g_old_rec.business_group_id;
438: End If;
439: If (p_rec.legislation_code = hr_api.g_varchar2) then
440: p_rec.legislation_code :=
441: per_res_shd.g_old_rec.legislation_code;
442: End If;
443: If (p_rec.eligy_prfl_id = hr_api.g_number) then
444: p_rec.eligy_prfl_id :=
445: per_res_shd.g_old_rec.eligy_prfl_id;
441: per_res_shd.g_old_rec.legislation_code;
442: End If;
443: If (p_rec.eligy_prfl_id = hr_api.g_number) then
444: p_rec.eligy_prfl_id :=
445: per_res_shd.g_old_rec.eligy_prfl_id;
446: End If;
447: If (p_rec.formula_id = hr_api.g_number) then
448: p_rec.formula_id :=
449: per_res_shd.g_old_rec.formula_id;
445: per_res_shd.g_old_rec.eligy_prfl_id;
446: End If;
447: If (p_rec.formula_id = hr_api.g_number) then
448: p_rec.formula_id :=
449: per_res_shd.g_old_rec.formula_id;
450: End If;
451: --
452: End convert_defs;
453: --
455: -- |---------------------------------< upd >----------------------------------|
456: -- ----------------------------------------------------------------------------
457: Procedure upd
458: (p_effective_date in date
459: ,p_rec in out nocopy per_res_shd.g_rec_type
460: ) is
461: --
462: l_proc varchar2(72) := g_package||'upd';
463: --
465: hr_utility.set_location('Entering:'||l_proc, 5);
466: --
467: -- We must lock the row which we need to update.
468: --
469: per_res_shd.lck
470: (p_rec.cagr_entitlement_result_id
471: ,p_rec.object_version_number
472: );
473: --
508: ,p_object_version_number in out nocopy number
509: ,p_chosen_flag in varchar2 default hr_api.g_varchar2
510: ) is
511: --
512: l_rec per_res_shd.g_rec_type;
513: l_proc varchar2(72) := g_package||'upd';
514: --
515: Begin
516: hr_utility.set_location('Entering:'||l_proc, 5);
518: -- Call conversion function to turn arguments into the
519: -- l_rec structure.
520: --
521: l_rec :=
522: per_res_shd.convert_args
523: (p_cagr_entitlement_result_id
524: ,hr_api.g_number
525: ,hr_api.g_date
526: ,hr_api.g_date