85: --
86: -- {End Of Comments}
87: -- ----------------------------------------------------------------------------
88: Procedure insert_dml
89: (p_rec in out nocopy pqh_sts_shd.g_rec_type
90: ) is
91: --
92: l_proc varchar2(72) := g_package||'insert_dml';
93: --
186: Exception
187: When hr_api.check_integrity_violated Then
188: -- A check constraint has been violated
189: --
190: pqh_sts_shd.constraint_error
191: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
192: When hr_api.parent_integrity_violated Then
193: -- Parent integrity has been violated
194: --
191: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
192: When hr_api.parent_integrity_violated Then
193: -- Parent integrity has been violated
194: --
195: pqh_sts_shd.constraint_error
196: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
197: When hr_api.unique_integrity_violated Then
198: -- Unique integrity has been violated
199: --
196: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
197: When hr_api.unique_integrity_violated Then
198: -- Unique integrity has been violated
199: --
200: pqh_sts_shd.constraint_error
201: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
202: When Others Then
203: --
204: Raise;
241: --
242: -- {End Of Comments}
243: -- ----------------------------------------------------------------------------
244: Procedure pre_insert
245: (p_rec in out nocopy pqh_sts_shd.g_rec_type
246: ) is
247: --
248: Cursor C_Sel1 is select pqh_fr_stat_situations_s.nextval from sys.dual;
249: --
337: -- {End Of Comments}
338: -- ----------------------------------------------------------------------------
339: Procedure post_insert
340: (p_effective_date in date
341: ,p_rec in pqh_sts_shd.g_rec_type
342: ) is
343: --
344: l_proc varchar2(72) := g_package||'post_insert';
345: --
442: -- |---------------------------------< ins >----------------------------------|
443: -- ----------------------------------------------------------------------------
444: Procedure ins
445: (p_effective_date in date
446: ,p_rec in out nocopy pqh_sts_shd.g_rec_type
447: ) is
448: --
449: l_proc varchar2(72) := g_package||'ins';
450: --
532: ,p_statutory_situation_id out nocopy number
533: ,p_object_version_number out nocopy number
534: ) is
535: --
536: l_rec pqh_sts_shd.g_rec_type;
537: l_proc varchar2(72) := g_package||'ins';
538: --
539: Begin
540:
549: -- Call conversion function to turn arguments into the
550: -- p_rec structure.
551: --
552: l_rec :=
553: pqh_sts_shd.convert_args
554: (null
555: ,p_business_group_id
556: ,p_situation_name
557: ,p_type_of_ps