72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy ghr_ccl_shd.g_rec_type
77: ) is
78: --
79: l_proc varchar2(72) := g_package||'insert_dml';
80: --
120: Exception
121: When hr_api.check_integrity_violated Then
122: -- A check constraint has been violated
123: --
124: ghr_ccl_shd.constraint_error
125: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
126: When hr_api.parent_integrity_violated Then
127: -- Parent integrity has been violated
128: --
125: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
126: When hr_api.parent_integrity_violated Then
127: -- Parent integrity has been violated
128: --
129: ghr_ccl_shd.constraint_error
130: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
131: When hr_api.unique_integrity_violated Then
132: -- Unique integrity has been violated
133: --
130: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
131: When hr_api.unique_integrity_violated Then
132: -- Unique integrity has been violated
133: --
134: ghr_ccl_shd.constraint_error
135: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
136: When Others Then
137: --
138: Raise;
175: --
176: -- {End Of Comments}
177: -- ----------------------------------------------------------------------------
178: Procedure pre_insert
179: (p_rec in out nocopy ghr_ccl_shd.g_rec_type
180: ) is
181: --
182: Cursor C_Sel1 is select ghr_compl_claims_s.nextval from sys.dual;
183: --
263: -- {End Of Comments}
264: -- ----------------------------------------------------------------------------
265: Procedure post_insert
266: (p_effective_date in date
267: ,p_rec in ghr_ccl_shd.g_rec_type
268: ) is
269: --
270: l_proc varchar2(72) := g_package||'post_insert';
271: --
304: -- |---------------------------------< ins >----------------------------------|
305: -- ----------------------------------------------------------------------------
306: Procedure ins
307: (p_effective_date in date
308: ,p_rec in out nocopy ghr_ccl_shd.g_rec_type
309: ) is
310: --
311: l_proc varchar2(72) := g_package||'ins';
312: --
355: ,p_compl_claim_id out nocopy number
356: ,p_object_version_number out nocopy number
357: ) is
358: --
359: l_rec ghr_ccl_shd.g_rec_type;
360: l_proc varchar2(72) := g_package||'ins';
361: --
362: Begin
363: hr_utility.set_location('Entering:'||l_proc, 5);
365: -- Call conversion function to turn arguments into the
366: -- p_rec structure.
367: --
368: l_rec :=
369: ghr_ccl_shd.convert_args
370: (null
371: ,p_complaint_id
372: ,p_claim
373: ,p_incident_date