49: -- Internal Row Handler Use Only.
50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml(p_rec in out nocopy per_prv_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: per_prv_shd.g_api_dml := true; -- Set the api dml status
62: --
63: -- Insert the row into: per_performance_reviews
64: --
65: insert into per_performance_reviews
142: p_rec.attribute30,
143: p_rec.object_version_number
144: );
145: --
146: per_prv_shd.g_api_dml := false; -- Unset the api dml status
147: --
148: hr_utility.set_location(' Leaving:'||l_proc, 10);
149: Exception
150: When hr_api.check_integrity_violated Then
148: hr_utility.set_location(' Leaving:'||l_proc, 10);
149: Exception
150: When hr_api.check_integrity_violated Then
151: -- A check constraint has been violated
152: per_prv_shd.g_api_dml := false; -- Unset the api dml status
153: per_prv_shd.constraint_error
154: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
155: When hr_api.parent_integrity_violated Then
156: -- Parent integrity has been violated
149: Exception
150: When hr_api.check_integrity_violated Then
151: -- A check constraint has been violated
152: per_prv_shd.g_api_dml := false; -- Unset the api dml status
153: per_prv_shd.constraint_error
154: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
155: When hr_api.parent_integrity_violated Then
156: -- Parent integrity has been violated
157: per_prv_shd.g_api_dml := false; -- Unset the api dml status
153: per_prv_shd.constraint_error
154: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
155: When hr_api.parent_integrity_violated Then
156: -- Parent integrity has been violated
157: per_prv_shd.g_api_dml := false; -- Unset the api dml status
158: per_prv_shd.constraint_error
159: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
160: When hr_api.unique_integrity_violated Then
161: -- Unique integrity has been violated
154: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
155: When hr_api.parent_integrity_violated Then
156: -- Parent integrity has been violated
157: per_prv_shd.g_api_dml := false; -- Unset the api dml status
158: per_prv_shd.constraint_error
159: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
160: When hr_api.unique_integrity_violated Then
161: -- Unique integrity has been violated
162: per_prv_shd.g_api_dml := false; -- Unset the api dml status
158: per_prv_shd.constraint_error
159: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
160: When hr_api.unique_integrity_violated Then
161: -- Unique integrity has been violated
162: per_prv_shd.g_api_dml := false; -- Unset the api dml status
163: per_prv_shd.constraint_error
164: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
165: When Others Then
166: per_prv_shd.g_api_dml := false; -- Unset the api dml status
159: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
160: When hr_api.unique_integrity_violated Then
161: -- Unique integrity has been violated
162: per_prv_shd.g_api_dml := false; -- Unset the api dml status
163: per_prv_shd.constraint_error
164: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
165: When Others Then
166: per_prv_shd.g_api_dml := false; -- Unset the api dml status
167: Raise;
162: per_prv_shd.g_api_dml := false; -- Unset the api dml status
163: per_prv_shd.constraint_error
164: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
165: When Others Then
166: per_prv_shd.g_api_dml := false; -- Unset the api dml status
167: Raise;
168: End insert_dml;
169: --
170: -- ----------------------------------------------------------------------------
203: -- Internal Row Handler Use Only.
204: --
205: -- {End Of Comments}
206: -- ----------------------------------------------------------------------------
207: Procedure pre_insert(p_rec in out nocopy per_prv_shd.g_rec_type) is
208: --
209: l_proc varchar2(72) := g_package||'pre_insert';
210: --
211: cursor c_next_id is
255: -- Internal Row Handler Use Only.
256: --
257: -- {End Of Comments}
258: -- ----------------------------------------------------------------------------
259: Procedure post_insert(p_rec in per_prv_shd.g_rec_type) is
260: --
261: l_proc varchar2(72) := g_package||'post_insert';
262: --
263: Begin
330: -- |---------------------------------< ins >----------------------------------|
331: -- ----------------------------------------------------------------------------
332: Procedure ins
333: (
334: p_rec in out nocopy per_prv_shd.g_rec_type
335: ,p_next_review_date_warning out nocopy boolean
336: ,p_validate in boolean
337: ) is
338: --
427: p_validate in boolean default false,
428: p_next_review_date_warning out nocopy boolean
429: ) is
430: --
431: l_rec per_prv_shd.g_rec_type;
432: l_proc varchar2(72) := g_package||'ins';
433: --
434: Begin
435: hr_utility.set_location('Entering:'||l_proc, 5);
437: -- Call conversion function to turn arguments into the
438: -- p_rec structure.
439: --
440: l_rec :=
441: per_prv_shd.convert_args
442: (
443: null,
444: p_person_id,
445: p_event_id,