120: --
121: -- {End Of Comments}
122: -- ----------------------------------------------------------------------------
123: Procedure insert_dml
124: (p_rec in out nocopy pay_egu_shd.g_rec_type
125: ) is
126: --
127: l_proc varchar2(72) := g_package||'insert_dml';
128: --
157: Exception
158: When hr_api.check_integrity_violated Then
159: -- A check constraint has been violated
160: --
161: pay_egu_shd.constraint_error
162: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
163: When hr_api.parent_integrity_violated Then
164: -- Parent integrity has been violated
165: --
162: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
163: When hr_api.parent_integrity_violated Then
164: -- Parent integrity has been violated
165: --
166: pay_egu_shd.constraint_error
167: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
168: When hr_api.unique_integrity_violated Then
169: -- Unique integrity has been violated
170: --
167: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
168: When hr_api.unique_integrity_violated Then
169: -- Unique integrity has been violated
170: --
171: pay_egu_shd.constraint_error
172: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
173: When Others Then
174: --
175: Raise;
212: --
213: -- {End Of Comments}
214: -- ----------------------------------------------------------------------------
215: Procedure pre_insert
216: (p_rec in out nocopy pay_egu_shd.g_rec_type
217: ) is
218: --
219: Cursor C_Sel1 is select pay_event_group_usages_s.nextval from sys.dual;
220: --
300: -- {End Of Comments}
301: -- ----------------------------------------------------------------------------
302: Procedure post_insert
303: (p_effective_date in date
304: ,p_rec in pay_egu_shd.g_rec_type
305: ) is
306: --
307: l_proc varchar2(72) := g_package||'post_insert';
308: --
324: -- |---------------------------------< ins >----------------------------------|
325: -- ----------------------------------------------------------------------------
326: Procedure ins
327: (p_effective_date in date
328: ,p_rec in out nocopy pay_egu_shd.g_rec_type
329: ) is
330: --
331: l_proc varchar2(72) := g_package||'ins';
332: --
376: ,p_event_group_usage_id out nocopy number
377: ,p_object_version_number out nocopy number
378: ) is
379: --
380: l_rec pay_egu_shd.g_rec_type;
381: l_proc varchar2(72) := g_package||'ins';
382: --
383: Begin
384: hr_utility.set_location('Entering:'||l_proc, 5);
386: -- Call conversion function to turn arguments into the
387: -- p_rec structure.
388: --
389: l_rec :=
390: pay_egu_shd.convert_args
391: (null
392: ,p_event_group_id
393: ,p_element_set_id
394: ,p_business_group_id