72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy pqh_los_shd.g_rec_type
77: ) is
78: --
79: l_proc varchar2(72) := g_package||'insert_dml';
80: --
245: Exception
246: When hr_api.check_integrity_violated Then
247: -- A check constraint has been violated
248: --
249: pqh_los_shd.constraint_error
250: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
251: When hr_api.parent_integrity_violated Then
252: -- Parent integrity has been violated
253: --
250: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
251: When hr_api.parent_integrity_violated Then
252: -- Parent integrity has been violated
253: --
254: pqh_los_shd.constraint_error
255: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
256: When hr_api.unique_integrity_violated Then
257: -- Unique integrity has been violated
258: --
255: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
256: When hr_api.unique_integrity_violated Then
257: -- Unique integrity has been violated
258: --
259: pqh_los_shd.constraint_error
260: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
261: When Others Then
262: --
263: Raise;
300: --
301: -- {End Of Comments}
302: -- ----------------------------------------------------------------------------
303: Procedure pre_insert
304: (p_rec in out nocopy pqh_los_shd.g_rec_type
305: ) is
306: --
307: Cursor C_Sel1 is select pqh_situations_s.nextval from sys.dual;
308: --
388: -- {End Of Comments}
389: -- ----------------------------------------------------------------------------
390: Procedure post_insert
391: (p_effective_date in date
392: ,p_rec in pqh_los_shd.g_rec_type
393: ) is
394: --
395: l_proc varchar2(72) := g_package||'post_insert';
396: --
567: -- |---------------------------------< ins >----------------------------------|
568: -- ----------------------------------------------------------------------------
569: Procedure ins
570: (p_effective_date in date
571: ,p_rec in out nocopy pqh_los_shd.g_rec_type
572: ) is
573: --
574: l_proc varchar2(72) := g_package||'ins';
575: --
687: ,p_situation_id out nocopy number
688: ,p_object_version_number out nocopy number
689: ) is
690: --
691: l_rec pqh_los_shd.g_rec_type;
692: l_proc varchar2(72) := g_package||'ins';
693: --
694: Begin
695: hr_utility.set_location('Entering:'||l_proc, 5);
697: -- Call conversion function to turn arguments into the
698: -- p_rec structure.
699: --
700: l_rec :=
701: pqh_los_shd.convert_args
702: (null
703: ,p_situation
704: ,p_effective_start_date
705: ,p_effective_end_date