120: --
121: -- {End Of Comments}
122: -- ----------------------------------------------------------------------------
123: Procedure insert_dml
124: (p_rec in out nocopy pay_pba_shd.g_rec_type
125: ) is
126: --
127: l_proc varchar2(72) := g_package||'insert_dml';
128: --
152: Exception
153: When hr_api.check_integrity_violated Then
154: -- A check constraint has been violated
155: --
156: pay_pba_shd.constraint_error
157: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
158: When hr_api.parent_integrity_violated Then
159: -- Parent integrity has been violated
160: --
157: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
158: When hr_api.parent_integrity_violated Then
159: -- Parent integrity has been violated
160: --
161: pay_pba_shd.constraint_error
162: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
163: When hr_api.unique_integrity_violated Then
164: -- Unique integrity has been violated
165: --
162: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
163: When hr_api.unique_integrity_violated Then
164: -- Unique integrity has been violated
165: --
166: pay_pba_shd.constraint_error
167: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
168: When Others Then
169: --
170: Raise;
207: --
208: -- {End Of Comments}
209: -- ----------------------------------------------------------------------------
210: Procedure pre_insert
211: (p_rec in out nocopy pay_pba_shd.g_rec_type
212: ) is
213: --
214: Cursor C_Sel1 is select pay_balance_attributes_s.nextval from sys.dual;
215: --
294: --
295: -- {End Of Comments}
296: -- ----------------------------------------------------------------------------
297: Procedure post_insert
298: (p_rec in pay_pba_shd.g_rec_type
299: ) is
300: --
301: l_proc varchar2(72) := g_package||'post_insert';
302: --
339: -- ----------------------------------------------------------------------------
340: -- |---------------------------------< ins >----------------------------------|
341: -- ----------------------------------------------------------------------------
342: Procedure ins
343: (p_rec in out nocopy pay_pba_shd.g_rec_type
344: ) is
345: --
346: l_proc varchar2(72) := g_package||'ins';
347: --
387: ,p_business_group_id in number default null
388: ,p_balance_attribute_id out nocopy number
389: ) is
390: --
391: l_rec pay_pba_shd.g_rec_type;
392: l_proc varchar2(72) := g_package||'ins';
393: --
394: Begin
395: hr_utility.set_location('Entering:'||l_proc, 5);
397: -- Call conversion function to turn arguments into the
398: -- p_rec structure.
399: --
400: l_rec :=
401: pay_pba_shd.convert_args
402: (null
403: ,p_attribute_id
404: ,p_defined_balance_id
405: ,p_legislation_code