72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy per_pem_shd.g_rec_type
77: ) is
78: --
79: l_proc varchar2(72) := g_package||'insert_dml';
80: --
255: Exception
256: When hr_api.check_integrity_violated Then
257: -- A check constraint has been violated
258: --
259: per_pem_shd.constraint_error
260: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
261: When hr_api.parent_integrity_violated Then
262: -- Parent integrity has been violated
263: --
260: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
261: When hr_api.parent_integrity_violated Then
262: -- Parent integrity has been violated
263: --
264: per_pem_shd.constraint_error
265: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
266: When hr_api.unique_integrity_violated Then
267: -- Unique integrity has been violated
268: --
265: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
266: When hr_api.unique_integrity_violated Then
267: -- Unique integrity has been violated
268: --
269: per_pem_shd.constraint_error
270: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
271: When Others Then
272: --
273: Raise;
310: --
311: -- {End Of Comments}
312: -- ----------------------------------------------------------------------------
313: Procedure pre_insert
314: (p_rec in out nocopy per_pem_shd.g_rec_type
315: ) is
316: --
317: Cursor C_Sel1 is select per_previous_employers_s.nextval from sys.dual;
318: --
398: -- {End Of Comments}
399: -- ----------------------------------------------------------------------------
400: Procedure post_insert
401: (p_effective_date in date
402: ,p_rec in per_pem_shd.g_rec_type
403: ) is
404: --
405: l_proc varchar2(72) := g_package||'post_insert';
406: --
587: -- |---------------------------------< ins >----------------------------------|
588: -- ----------------------------------------------------------------------------
589: Procedure ins
590: (p_effective_date in date
591: ,p_rec in out nocopy per_pem_shd.g_rec_type
592: ) is
593: --
594: l_proc varchar2(72) := g_package||'ins';
595: --
722: between per.effective_start_date
723: and per.effective_end_date;
724: -- Bug Fix 3261422 End
725: --
726: l_rec per_pem_shd.g_rec_type;
727: l_proc varchar2(72) := g_package||'ins';
728: l_party_id number;
729: --
730: Begin
743: -- Call conversion function to turn arguments into the
744: -- p_rec structure.
745: --
746: l_rec :=
747: per_pem_shd.convert_args
748: (null
749: ,p_business_group_id
750: ,p_person_id
751: ,l_party_id