69: --
70: -- {End Of Comments}
71: -- ----------------------------------------------------------------------------
72: Procedure insert_dml
73: (p_rec in out nocopy per_abs_shd.g_rec_type
74: ) is
75: --
76: l_proc varchar2(72) := g_package||'insert_dml';
77: --
78: Begin
79: hr_utility.set_location('Entering:'||l_proc, 5);
80: p_rec.object_version_number := 1; -- Initialise the object version
81: --
82: per_abs_shd.g_api_dml := true; -- Set the api dml status
83: --
84: -- Insert the row into: per_absence_attendances
85: --
86: insert into per_absence_attendances
263: ,p_rec.object_version_number
264: ,p_rec.absence_case_id
265: );
266: --
267: per_abs_shd.g_api_dml := false; -- Unset the api dml status
268: --
269: hr_utility.set_location(' Leaving:'||l_proc, 10);
270: Exception
271: When hr_api.check_integrity_violated Then
269: hr_utility.set_location(' Leaving:'||l_proc, 10);
270: Exception
271: When hr_api.check_integrity_violated Then
272: -- A check constraint has been violated
273: per_abs_shd.g_api_dml := false; -- Unset the api dml status
274: per_abs_shd.constraint_error
275: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
276: When hr_api.parent_integrity_violated Then
277: -- Parent integrity has been violated
270: Exception
271: When hr_api.check_integrity_violated Then
272: -- A check constraint has been violated
273: per_abs_shd.g_api_dml := false; -- Unset the api dml status
274: per_abs_shd.constraint_error
275: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
276: When hr_api.parent_integrity_violated Then
277: -- Parent integrity has been violated
278: per_abs_shd.g_api_dml := false; -- Unset the api dml status
274: per_abs_shd.constraint_error
275: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
276: When hr_api.parent_integrity_violated Then
277: -- Parent integrity has been violated
278: per_abs_shd.g_api_dml := false; -- Unset the api dml status
279: per_abs_shd.constraint_error
280: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
281: When hr_api.unique_integrity_violated Then
282: -- Unique integrity has been violated
275: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
276: When hr_api.parent_integrity_violated Then
277: -- Parent integrity has been violated
278: per_abs_shd.g_api_dml := false; -- Unset the api dml status
279: per_abs_shd.constraint_error
280: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
281: When hr_api.unique_integrity_violated Then
282: -- Unique integrity has been violated
283: per_abs_shd.g_api_dml := false; -- Unset the api dml status
279: per_abs_shd.constraint_error
280: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
281: When hr_api.unique_integrity_violated Then
282: -- Unique integrity has been violated
283: per_abs_shd.g_api_dml := false; -- Unset the api dml status
284: per_abs_shd.constraint_error
285: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
286: When Others Then
287: per_abs_shd.g_api_dml := false; -- Unset the api dml status
280: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
281: When hr_api.unique_integrity_violated Then
282: -- Unique integrity has been violated
283: per_abs_shd.g_api_dml := false; -- Unset the api dml status
284: per_abs_shd.constraint_error
285: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
286: When Others Then
287: per_abs_shd.g_api_dml := false; -- Unset the api dml status
288: Raise;
283: per_abs_shd.g_api_dml := false; -- Unset the api dml status
284: per_abs_shd.constraint_error
285: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
286: When Others Then
287: per_abs_shd.g_api_dml := false; -- Unset the api dml status
288: Raise;
289: End insert_dml;
290: --
291: -- ----------------------------------------------------------------------------
325: --
326: -- {End Of Comments}
327: -- ----------------------------------------------------------------------------
328: Procedure pre_insert
329: (p_rec in out nocopy per_abs_shd.g_rec_type
330: ,p_effective_date in date
331: ) is
332: --
333: l_proc varchar2(72) := g_package||'pre_insert';
426: -- and hours may not necessarily be system derived, but are set
427: -- to global variables regardless).
428: --
429: p_rec.occurrence := l_occurrence;
430: p_rec.absence_hours := per_abs_shd.g_absence_hours;
431: p_rec.absence_days := per_abs_shd.g_absence_days;
432:
433:
434: hr_utility.set_location(' Leaving:'||l_proc, 50);
427: -- to global variables regardless).
428: --
429: p_rec.occurrence := l_occurrence;
430: p_rec.absence_hours := per_abs_shd.g_absence_hours;
431: p_rec.absence_days := per_abs_shd.g_absence_days;
432:
433:
434: hr_utility.set_location(' Leaving:'||l_proc, 50);
435:
468: -- {End Of Comments}
469: -- ----------------------------------------------------------------------------
470: Procedure post_insert
471: (p_effective_date in date
472: ,p_rec in per_abs_shd.g_rec_type
473: ) is
474: --
475: l_proc varchar2(72) := g_package||'post_insert';
476: --
676: -- |---------------------------------< ins >----------------------------------|
677: -- ----------------------------------------------------------------------------
678: Procedure ins
679: (p_effective_date in date
680: ,p_rec in out nocopy per_abs_shd.g_rec_type
681: ,p_dur_dys_less_warning out nocopy boolean
682: ,p_dur_hrs_less_warning out nocopy boolean
683: ,p_exceeds_pto_entit_warning out nocopy boolean
684: ,p_exceeds_run_total_warning out nocopy boolean
830: ,p_abs_day_after_warning out nocopy boolean
831: ,p_dur_overwritten_warning out nocopy boolean
832: ) is
833: --
834: l_rec per_abs_shd.g_rec_type;
835: l_proc varchar2(72) := g_package||'ins';
836: l_absence_days number;
837: l_absence_hours number;
838: --
842: -- Call conversion function to turn arguments into the
843: -- p_rec structure.
844: --
845: l_rec :=
846: per_abs_shd.convert_args
847: (null
848: ,p_business_group_id
849: ,p_absence_attendance_type_id
850: ,p_abs_attendance_reason_id