49: -- Internal Row Handler Use Only.
50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml(p_rec in out nocopy pay_pap_shd.g_rec_type) is
54: --
55: l_proc varchar2(72) := g_package||'insert_dml';
56: --
57: Begin
57: Begin
58: hr_utility.set_location('Entering:'||l_proc, 5);
59: p_rec.object_version_number := 1; -- Initialise the object version
60: --
61: pay_pap_shd.g_api_dml := true; -- Set the api dml status
62: --
63: -- Insert the row into: pay_accrual_plans
64: --
65: insert into pay_accrual_plans
178: p_rec.information30
179:
180: );
181: --
182: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
183: --
184: hr_utility.set_location(' Leaving:'||l_proc, 10);
185: Exception
186: When hr_api.check_integrity_violated Then
184: hr_utility.set_location(' Leaving:'||l_proc, 10);
185: Exception
186: When hr_api.check_integrity_violated Then
187: -- A check constraint has been violated
188: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
189: pay_pap_shd.constraint_error
190: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
191: When hr_api.parent_integrity_violated Then
192: -- Parent integrity has been violated
185: Exception
186: When hr_api.check_integrity_violated Then
187: -- A check constraint has been violated
188: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
189: pay_pap_shd.constraint_error
190: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
191: When hr_api.parent_integrity_violated Then
192: -- Parent integrity has been violated
193: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
189: pay_pap_shd.constraint_error
190: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
191: When hr_api.parent_integrity_violated Then
192: -- Parent integrity has been violated
193: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
194: pay_pap_shd.constraint_error
195: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
196: When hr_api.unique_integrity_violated Then
197: -- Unique integrity has been violated
190: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
191: When hr_api.parent_integrity_violated Then
192: -- Parent integrity has been violated
193: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
194: pay_pap_shd.constraint_error
195: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
196: When hr_api.unique_integrity_violated Then
197: -- Unique integrity has been violated
198: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
194: pay_pap_shd.constraint_error
195: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
196: When hr_api.unique_integrity_violated Then
197: -- Unique integrity has been violated
198: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
199: pay_pap_shd.constraint_error
200: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
201: When Others Then
202: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
195: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
196: When hr_api.unique_integrity_violated Then
197: -- Unique integrity has been violated
198: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
199: pay_pap_shd.constraint_error
200: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
201: When Others Then
202: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
203: Raise;
198: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
199: pay_pap_shd.constraint_error
200: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
201: When Others Then
202: pay_pap_shd.g_api_dml := false; -- Unset the api dml status
203: Raise;
204: End insert_dml;
205: --
206: -- ----------------------------------------------------------------------------
239: -- Internal Row Handler Use Only.
240: --
241: -- {End Of Comments}
242: -- ----------------------------------------------------------------------------
243: Procedure pre_insert(p_rec in out nocopy pay_pap_shd.g_rec_type) is
244: --
245: l_proc varchar2(72) := g_package||'pre_insert';
246:
247: Cursor C_Sel1 is select pay_accrual_plans_s.nextval from sys.dual;
291: -- Internal Row Handler Use Only.
292: --
293: -- {End Of Comments}
294: -- ----------------------------------------------------------------------------
295: Procedure post_insert(p_rec in pay_pap_shd.g_rec_type) is
296: --
297: l_proc varchar2(72) := g_package||'post_insert';
298: --
299: Begin
383: -- |---------------------------------< ins >----------------------------------|
384: -- ----------------------------------------------------------------------------
385: PROCEDURE ins
386: (p_effective_date IN DATE
387: ,p_rec IN OUT NOCOPY pay_pap_shd.g_rec_type
388: ,p_check_accrual_ff OUT NOCOPY BOOLEAN)
389: IS
390:
391: l_proc varchar2(72) := g_package||'ins';
489: ,p_object_version_number OUT NOCOPY NUMBER
490: ,p_check_accrual_ff OUT NOCOPY BOOLEAN)
491: IS
492:
493: l_rec pay_pap_shd.g_rec_type;
494: l_proc varchar2(72) := g_package||'ins';
495:
496: BEGIN
497:
501: -- Call conversion function to turn arguments into the
502: -- p_rec structure.
503: --
504: l_rec :=
505: pay_pap_shd.convert_args
506: (
507: null,
508: p_business_group_id,
509: p_accrual_plan_element_type_id,