51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pay_tdf_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
62: --
63: -- Increment the object version
64: p_rec.object_version_number := p_rec.object_version_number + 1;
65: --
66: pay_tdf_shd.g_api_dml := true; -- Set the api dml status
67: --
68: -- Update the pay_time_definitions Row
69: --
70: update pay_time_definitions
86: ,creator_type = p_rec.creator_type
87: ,object_version_number = p_rec.object_version_number
88: where time_definition_id = p_rec.time_definition_id;
89: --
90: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
91: --
92: hr_utility.set_location(' Leaving:'||l_proc, 10);
93: --
94: Exception
93: --
94: Exception
95: When hr_api.check_integrity_violated Then
96: -- A check constraint has been violated
97: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
98: pay_tdf_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.parent_integrity_violated Then
101: -- Parent integrity has been violated
94: Exception
95: When hr_api.check_integrity_violated Then
96: -- A check constraint has been violated
97: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
98: pay_tdf_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.parent_integrity_violated Then
101: -- Parent integrity has been violated
102: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
98: pay_tdf_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.parent_integrity_violated Then
101: -- Parent integrity has been violated
102: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
103: pay_tdf_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.unique_integrity_violated Then
106: -- Unique integrity has been violated
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.parent_integrity_violated Then
101: -- Parent integrity has been violated
102: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
103: pay_tdf_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.unique_integrity_violated Then
106: -- Unique integrity has been violated
107: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
103: pay_tdf_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.unique_integrity_violated Then
106: -- Unique integrity has been violated
107: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
108: pay_tdf_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When Others Then
111: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.unique_integrity_violated Then
106: -- Unique integrity has been violated
107: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
108: pay_tdf_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When Others Then
111: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
112: Raise;
107: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
108: pay_tdf_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When Others Then
111: pay_tdf_shd.g_api_dml := false; -- Unset the api dml status
112: Raise;
113: End update_dml;
114: --
115: -- ----------------------------------------------------------------------------
144: --
145: -- {End Of Comments}
146: -- ----------------------------------------------------------------------------
147: Procedure pre_update
148: (p_rec in pay_tdf_shd.g_rec_type
149: ) is
150: --
151: l_proc varchar2(72) := g_package||'pre_update';
152: --
189: -- {End Of Comments}
190: -- ----------------------------------------------------------------------------
191: Procedure post_update
192: (p_effective_date in date
193: ,p_rec in pay_tdf_shd.g_rec_type
194: ) is
195: --
196: l_proc varchar2(72) := g_package||'post_update';
197: --
233: => p_rec.creator_type
234: ,p_object_version_number
235: => p_rec.object_version_number
236: ,p_short_name_o
237: => pay_tdf_shd.g_old_rec.short_name
238: ,p_definition_name_o
239: => pay_tdf_shd.g_old_rec.definition_name
240: ,p_period_type_o
241: => pay_tdf_shd.g_old_rec.period_type
235: => p_rec.object_version_number
236: ,p_short_name_o
237: => pay_tdf_shd.g_old_rec.short_name
238: ,p_definition_name_o
239: => pay_tdf_shd.g_old_rec.definition_name
240: ,p_period_type_o
241: => pay_tdf_shd.g_old_rec.period_type
242: ,p_period_unit_o
243: => pay_tdf_shd.g_old_rec.period_unit
237: => pay_tdf_shd.g_old_rec.short_name
238: ,p_definition_name_o
239: => pay_tdf_shd.g_old_rec.definition_name
240: ,p_period_type_o
241: => pay_tdf_shd.g_old_rec.period_type
242: ,p_period_unit_o
243: => pay_tdf_shd.g_old_rec.period_unit
244: ,p_day_adjustment_o
245: => pay_tdf_shd.g_old_rec.day_adjustment
239: => pay_tdf_shd.g_old_rec.definition_name
240: ,p_period_type_o
241: => pay_tdf_shd.g_old_rec.period_type
242: ,p_period_unit_o
243: => pay_tdf_shd.g_old_rec.period_unit
244: ,p_day_adjustment_o
245: => pay_tdf_shd.g_old_rec.day_adjustment
246: ,p_dynamic_code_o
247: => pay_tdf_shd.g_old_rec.dynamic_code
241: => pay_tdf_shd.g_old_rec.period_type
242: ,p_period_unit_o
243: => pay_tdf_shd.g_old_rec.period_unit
244: ,p_day_adjustment_o
245: => pay_tdf_shd.g_old_rec.day_adjustment
246: ,p_dynamic_code_o
247: => pay_tdf_shd.g_old_rec.dynamic_code
248: ,p_business_group_id_o
249: => pay_tdf_shd.g_old_rec.business_group_id
243: => pay_tdf_shd.g_old_rec.period_unit
244: ,p_day_adjustment_o
245: => pay_tdf_shd.g_old_rec.day_adjustment
246: ,p_dynamic_code_o
247: => pay_tdf_shd.g_old_rec.dynamic_code
248: ,p_business_group_id_o
249: => pay_tdf_shd.g_old_rec.business_group_id
250: ,p_legislation_code_o
251: => pay_tdf_shd.g_old_rec.legislation_code
245: => pay_tdf_shd.g_old_rec.day_adjustment
246: ,p_dynamic_code_o
247: => pay_tdf_shd.g_old_rec.dynamic_code
248: ,p_business_group_id_o
249: => pay_tdf_shd.g_old_rec.business_group_id
250: ,p_legislation_code_o
251: => pay_tdf_shd.g_old_rec.legislation_code
252: ,p_definition_type_o
253: => pay_tdf_shd.g_old_rec.definition_type
247: => pay_tdf_shd.g_old_rec.dynamic_code
248: ,p_business_group_id_o
249: => pay_tdf_shd.g_old_rec.business_group_id
250: ,p_legislation_code_o
251: => pay_tdf_shd.g_old_rec.legislation_code
252: ,p_definition_type_o
253: => pay_tdf_shd.g_old_rec.definition_type
254: ,p_number_of_years_o
255: => pay_tdf_shd.g_old_rec.number_of_years
249: => pay_tdf_shd.g_old_rec.business_group_id
250: ,p_legislation_code_o
251: => pay_tdf_shd.g_old_rec.legislation_code
252: ,p_definition_type_o
253: => pay_tdf_shd.g_old_rec.definition_type
254: ,p_number_of_years_o
255: => pay_tdf_shd.g_old_rec.number_of_years
256: ,p_start_date_o
257: => pay_tdf_shd.g_old_rec.start_date
251: => pay_tdf_shd.g_old_rec.legislation_code
252: ,p_definition_type_o
253: => pay_tdf_shd.g_old_rec.definition_type
254: ,p_number_of_years_o
255: => pay_tdf_shd.g_old_rec.number_of_years
256: ,p_start_date_o
257: => pay_tdf_shd.g_old_rec.start_date
258: ,p_period_time_definition_id_o
259: => pay_tdf_shd.g_old_rec.period_time_definition_id
253: => pay_tdf_shd.g_old_rec.definition_type
254: ,p_number_of_years_o
255: => pay_tdf_shd.g_old_rec.number_of_years
256: ,p_start_date_o
257: => pay_tdf_shd.g_old_rec.start_date
258: ,p_period_time_definition_id_o
259: => pay_tdf_shd.g_old_rec.period_time_definition_id
260: ,p_creator_id_o
261: => pay_tdf_shd.g_old_rec.creator_id
255: => pay_tdf_shd.g_old_rec.number_of_years
256: ,p_start_date_o
257: => pay_tdf_shd.g_old_rec.start_date
258: ,p_period_time_definition_id_o
259: => pay_tdf_shd.g_old_rec.period_time_definition_id
260: ,p_creator_id_o
261: => pay_tdf_shd.g_old_rec.creator_id
262: ,p_creator_type_o
263: => pay_tdf_shd.g_old_rec.creator_type
257: => pay_tdf_shd.g_old_rec.start_date
258: ,p_period_time_definition_id_o
259: => pay_tdf_shd.g_old_rec.period_time_definition_id
260: ,p_creator_id_o
261: => pay_tdf_shd.g_old_rec.creator_id
262: ,p_creator_type_o
263: => pay_tdf_shd.g_old_rec.creator_type
264: ,p_object_version_number_o
265: => pay_tdf_shd.g_old_rec.object_version_number
259: => pay_tdf_shd.g_old_rec.period_time_definition_id
260: ,p_creator_id_o
261: => pay_tdf_shd.g_old_rec.creator_id
262: ,p_creator_type_o
263: => pay_tdf_shd.g_old_rec.creator_type
264: ,p_object_version_number_o
265: => pay_tdf_shd.g_old_rec.object_version_number
266: );
267: --
261: => pay_tdf_shd.g_old_rec.creator_id
262: ,p_creator_type_o
263: => pay_tdf_shd.g_old_rec.creator_type
264: ,p_object_version_number_o
265: => pay_tdf_shd.g_old_rec.object_version_number
266: );
267: --
268: exception
269: --
321: --
322: -- {End Of Comments}
323: -- ----------------------------------------------------------------------------
324: Procedure convert_defs
325: (p_rec in out nocopy pay_tdf_shd.g_rec_type
326: ) is
327: --
328: Begin
329: --
333: -- is being used then we must set to the 'current' argument value.
334: --
335: If (p_rec.short_name = hr_api.g_varchar2) then
336: p_rec.short_name :=
337: pay_tdf_shd.g_old_rec.short_name;
338: End If;
339: If (p_rec.definition_name = hr_api.g_varchar2) then
340: p_rec.definition_name :=
341: pay_tdf_shd.g_old_rec.definition_name;
337: pay_tdf_shd.g_old_rec.short_name;
338: End If;
339: If (p_rec.definition_name = hr_api.g_varchar2) then
340: p_rec.definition_name :=
341: pay_tdf_shd.g_old_rec.definition_name;
342: End If;
343: If (p_rec.period_type = hr_api.g_varchar2) then
344: p_rec.period_type :=
345: pay_tdf_shd.g_old_rec.period_type;
341: pay_tdf_shd.g_old_rec.definition_name;
342: End If;
343: If (p_rec.period_type = hr_api.g_varchar2) then
344: p_rec.period_type :=
345: pay_tdf_shd.g_old_rec.period_type;
346: End If;
347: If (p_rec.period_unit = hr_api.g_varchar2) then
348: p_rec.period_unit :=
349: pay_tdf_shd.g_old_rec.period_unit;
345: pay_tdf_shd.g_old_rec.period_type;
346: End If;
347: If (p_rec.period_unit = hr_api.g_varchar2) then
348: p_rec.period_unit :=
349: pay_tdf_shd.g_old_rec.period_unit;
350: End If;
351: If (p_rec.day_adjustment = hr_api.g_varchar2) then
352: p_rec.day_adjustment :=
353: pay_tdf_shd.g_old_rec.day_adjustment;
349: pay_tdf_shd.g_old_rec.period_unit;
350: End If;
351: If (p_rec.day_adjustment = hr_api.g_varchar2) then
352: p_rec.day_adjustment :=
353: pay_tdf_shd.g_old_rec.day_adjustment;
354: End If;
355: If (p_rec.dynamic_code = hr_api.g_varchar2) then
356: p_rec.dynamic_code :=
357: pay_tdf_shd.g_old_rec.dynamic_code;
353: pay_tdf_shd.g_old_rec.day_adjustment;
354: End If;
355: If (p_rec.dynamic_code = hr_api.g_varchar2) then
356: p_rec.dynamic_code :=
357: pay_tdf_shd.g_old_rec.dynamic_code;
358: End If;
359: If (p_rec.business_group_id = hr_api.g_number) then
360: p_rec.business_group_id :=
361: pay_tdf_shd.g_old_rec.business_group_id;
357: pay_tdf_shd.g_old_rec.dynamic_code;
358: End If;
359: If (p_rec.business_group_id = hr_api.g_number) then
360: p_rec.business_group_id :=
361: pay_tdf_shd.g_old_rec.business_group_id;
362: End If;
363: If (p_rec.legislation_code = hr_api.g_varchar2) then
364: p_rec.legislation_code :=
365: pay_tdf_shd.g_old_rec.legislation_code;
361: pay_tdf_shd.g_old_rec.business_group_id;
362: End If;
363: If (p_rec.legislation_code = hr_api.g_varchar2) then
364: p_rec.legislation_code :=
365: pay_tdf_shd.g_old_rec.legislation_code;
366: End If;
367: If (p_rec.definition_type = hr_api.g_varchar2) then
368: p_rec.definition_type :=
369: pay_tdf_shd.g_old_rec.definition_type;
365: pay_tdf_shd.g_old_rec.legislation_code;
366: End If;
367: If (p_rec.definition_type = hr_api.g_varchar2) then
368: p_rec.definition_type :=
369: pay_tdf_shd.g_old_rec.definition_type;
370: End If;
371: If (p_rec.number_of_years = hr_api.g_number) then
372: p_rec.number_of_years :=
373: pay_tdf_shd.g_old_rec.number_of_years;
369: pay_tdf_shd.g_old_rec.definition_type;
370: End If;
371: If (p_rec.number_of_years = hr_api.g_number) then
372: p_rec.number_of_years :=
373: pay_tdf_shd.g_old_rec.number_of_years;
374: End If;
375: If (p_rec.start_date = hr_api.g_date) then
376: p_rec.start_date :=
377: pay_tdf_shd.g_old_rec.start_date;
373: pay_tdf_shd.g_old_rec.number_of_years;
374: End If;
375: If (p_rec.start_date = hr_api.g_date) then
376: p_rec.start_date :=
377: pay_tdf_shd.g_old_rec.start_date;
378: End If;
379: If (p_rec.period_time_definition_id = hr_api.g_number) then
380: p_rec.period_time_definition_id :=
381: pay_tdf_shd.g_old_rec.period_time_definition_id;
377: pay_tdf_shd.g_old_rec.start_date;
378: End If;
379: If (p_rec.period_time_definition_id = hr_api.g_number) then
380: p_rec.period_time_definition_id :=
381: pay_tdf_shd.g_old_rec.period_time_definition_id;
382: End If;
383: If (p_rec.creator_id = hr_api.g_number) then
384: p_rec.creator_id :=
385: pay_tdf_shd.g_old_rec.creator_id;
381: pay_tdf_shd.g_old_rec.period_time_definition_id;
382: End If;
383: If (p_rec.creator_id = hr_api.g_number) then
384: p_rec.creator_id :=
385: pay_tdf_shd.g_old_rec.creator_id;
386: End If;
387: If (p_rec.creator_type = hr_api.g_varchar2) then
388: p_rec.creator_type :=
389: pay_tdf_shd.g_old_rec.creator_type;
385: pay_tdf_shd.g_old_rec.creator_id;
386: End If;
387: If (p_rec.creator_type = hr_api.g_varchar2) then
388: p_rec.creator_type :=
389: pay_tdf_shd.g_old_rec.creator_type;
390: End If;
391: --
392: End convert_defs;
393: --
395: -- |---------------------------------< upd >----------------------------------|
396: -- ----------------------------------------------------------------------------
397: Procedure upd
398: (p_effective_date in date
399: ,p_rec in out nocopy pay_tdf_shd.g_rec_type
400: ,p_regenerate_periods out nocopy boolean
401: ,p_delete_periods out nocopy boolean
402: ) is
403: --
407: hr_utility.set_location('Entering:'||l_proc, 5);
408: --
409: -- We must lock the row which we need to update.
410: --
411: pay_tdf_shd.lck
412: (p_rec.time_definition_id
413: ,p_rec.object_version_number
414: );
415: --
473: ,p_creator_id in number default hr_api.g_number
474: ,p_creator_type in varchar2 default hr_api.g_varchar2
475: ) is
476: --
477: l_rec pay_tdf_shd.g_rec_type;
478: l_proc varchar2(72) := g_package||'upd';
479: --
480: Begin
481: hr_utility.set_location('Entering:'||l_proc, 5);
483: -- Call conversion function to turn arguments into the
484: -- l_rec structure.
485: --
486: l_rec :=
487: pay_tdf_shd.convert_args
488: (p_time_definition_id
489: ,p_short_name
490: ,p_definition_name
491: ,p_period_type