49: -- Internal Table Handler Use Only.
50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml(p_rec in out nocopy per_est_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_est_shd.g_api_dml := true; -- Set the api dml status
62: --
63: -- Insert the row into: per_establishments
64: --
65: insert into per_establishments
158: p_rec.est_information20 ,
159: p_rec.object_version_number
160: );
161: --
162: per_est_shd.g_api_dml := false; -- Unset the api dml status
163: --
164: hr_utility.set_location(' Leaving:'||l_proc, 10);
165: Exception
166: When hr_api.check_integrity_violated Then
164: hr_utility.set_location(' Leaving:'||l_proc, 10);
165: Exception
166: When hr_api.check_integrity_violated Then
167: -- A check constraint has been violated
168: per_est_shd.g_api_dml := false; -- Unset the api dml status
169: per_est_shd.constraint_error
170: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
171: When hr_api.parent_integrity_violated Then
172: -- Parent integrity has been violated
165: Exception
166: When hr_api.check_integrity_violated Then
167: -- A check constraint has been violated
168: per_est_shd.g_api_dml := false; -- Unset the api dml status
169: per_est_shd.constraint_error
170: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
171: When hr_api.parent_integrity_violated Then
172: -- Parent integrity has been violated
173: per_est_shd.g_api_dml := false; -- Unset the api dml status
169: per_est_shd.constraint_error
170: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
171: When hr_api.parent_integrity_violated Then
172: -- Parent integrity has been violated
173: per_est_shd.g_api_dml := false; -- Unset the api dml status
174: per_est_shd.constraint_error
175: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
176: When hr_api.unique_integrity_violated Then
177: -- Unique integrity has been violated
170: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
171: When hr_api.parent_integrity_violated Then
172: -- Parent integrity has been violated
173: per_est_shd.g_api_dml := false; -- Unset the api dml status
174: per_est_shd.constraint_error
175: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
176: When hr_api.unique_integrity_violated Then
177: -- Unique integrity has been violated
178: per_est_shd.g_api_dml := false; -- Unset the api dml status
174: per_est_shd.constraint_error
175: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
176: When hr_api.unique_integrity_violated Then
177: -- Unique integrity has been violated
178: per_est_shd.g_api_dml := false; -- Unset the api dml status
179: per_est_shd.constraint_error
180: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
181: When Others Then
182: per_est_shd.g_api_dml := false; -- Unset the api dml status
175: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
176: When hr_api.unique_integrity_violated Then
177: -- Unique integrity has been violated
178: per_est_shd.g_api_dml := false; -- Unset the api dml status
179: per_est_shd.constraint_error
180: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
181: When Others Then
182: per_est_shd.g_api_dml := false; -- Unset the api dml status
183: Raise;
178: per_est_shd.g_api_dml := false; -- Unset the api dml status
179: per_est_shd.constraint_error
180: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
181: When Others Then
182: per_est_shd.g_api_dml := false; -- Unset the api dml status
183: Raise;
184: End insert_dml;
185: --
186: -- ----------------------------------------------------------------------------
219: -- Internal Table Handler Use Only.
220: --
221: -- {End Of Comments}
222: -- ----------------------------------------------------------------------------
223: Procedure pre_insert(p_rec in out nocopy per_est_shd.g_rec_type) is
224: --
225: l_proc varchar2(72) := g_package||'pre_insert';
226: --
227: cursor c1 is
271: -- Internal Table Handler Use Only.
272: --
273: -- {End Of Comments}
274: -- ----------------------------------------------------------------------------
275: Procedure post_insert(p_rec in per_est_shd.g_rec_type) is
276: --
277: l_proc varchar2(72) := g_package||'post_insert';
278: --
279: Begin
345: -- |---------------------------------< ins >----------------------------------|
346: -- ----------------------------------------------------------------------------
347: Procedure ins
348: (
349: p_rec in out nocopy per_est_shd.g_rec_type,
350: p_validate in boolean default false
351: ) is
352: --
353: l_proc varchar2(72) := g_package||'ins';
449: p_object_version_number out nocopy number,
450: p_validate in boolean default false
451: ) is
452: --
453: l_rec per_est_shd.g_rec_type;
454: l_proc varchar2(72) := g_package||'ins';
455: --
456: Begin
457: hr_utility.set_location('Entering:'||l_proc, 5);
459: -- Call conversion function to turn arguments into the
460: -- p_rec structure.
461: --
462: l_rec :=
463: per_est_shd.convert_args
464: (
465: null,
466: p_name,
467: p_location,