55: -- Internal Table Handler Use Only.
56: --
57: -- {End Of Comments}
58: -- ----------------------------------------------------------------------------
59: Procedure insert_dml(p_rec in out nocopy hr_lei_shd.g_rec_type) is
60: --
61: l_proc varchar2(72) := g_package||'insert_dml';
62: --
63: Begin
63: Begin
64: hr_utility.set_location('Entering:'||l_proc, 5);
65: p_rec.object_version_number := 1; -- Initialise the object version
66: --
67: -- hr_lei_shd.g_api_dml := true; -- Set the api dml status
68: --
69: -- Insert the row into: hr_location_extra_info
70: --
71: insert into hr_location_extra_info
192: p_rec.lei_information30,
193: p_rec.object_version_number
194: );
195: --
196: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
197: --
198: hr_utility.set_location(' Leaving:'||l_proc, 10);
199: Exception
200: When hr_api.check_integrity_violated Then
198: hr_utility.set_location(' Leaving:'||l_proc, 10);
199: Exception
200: When hr_api.check_integrity_violated Then
201: -- A check constraint has been violated
202: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
203: hr_lei_shd.constraint_error
204: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
205: When hr_api.parent_integrity_violated Then
206: -- Parent integrity has been violated
199: Exception
200: When hr_api.check_integrity_violated Then
201: -- A check constraint has been violated
202: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
203: hr_lei_shd.constraint_error
204: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
205: When hr_api.parent_integrity_violated Then
206: -- Parent integrity has been violated
207: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
203: hr_lei_shd.constraint_error
204: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
205: When hr_api.parent_integrity_violated Then
206: -- Parent integrity has been violated
207: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
208: hr_lei_shd.constraint_error
209: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
210: When hr_api.unique_integrity_violated Then
211: -- Unique integrity has been violated
204: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
205: When hr_api.parent_integrity_violated Then
206: -- Parent integrity has been violated
207: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
208: hr_lei_shd.constraint_error
209: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
210: When hr_api.unique_integrity_violated Then
211: -- Unique integrity has been violated
212: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
208: hr_lei_shd.constraint_error
209: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
210: When hr_api.unique_integrity_violated Then
211: -- Unique integrity has been violated
212: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
213: hr_lei_shd.constraint_error
214: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
215: When Others Then
216: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
209: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
210: When hr_api.unique_integrity_violated Then
211: -- Unique integrity has been violated
212: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
213: hr_lei_shd.constraint_error
214: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
215: When Others Then
216: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
217: Raise;
212: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
213: hr_lei_shd.constraint_error
214: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
215: When Others Then
216: -- hr_lei_shd.g_api_dml := false; -- Unset the api dml status
217: Raise;
218: End insert_dml;
219: --
220: -- ----------------------------------------------------------------------------
253: -- Internal Table Handler Use Only.
254: --
255: -- {End Of Comments}
256: -- ----------------------------------------------------------------------------
257: Procedure pre_insert(p_rec in out nocopy hr_lei_shd.g_rec_type) is
258: --
259: l_proc varchar2(72) := g_package||'pre_insert';
260: --
261: Cursor C_Sel1 is select hr_location_extra_info_s.nextval from sys.dual;
304: -- Internal Table Handler Use Only.
305: --
306: -- {End Of Comments}
307: -- ----------------------------------------------------------------------------
308: Procedure post_insert(p_rec in hr_lei_shd.g_rec_type) is
309: --
310: l_proc varchar2(72) := g_package||'post_insert';
311: --
312: Begin
392: -- |---------------------------------< ins >----------------------------------|
393: -- ----------------------------------------------------------------------------
394: Procedure ins
395: (
396: p_rec in out nocopy hr_lei_shd.g_rec_type,
397: p_validate in boolean default false
398: ) is
399: --
400: l_proc varchar2(72) := g_package||'ins';
510: p_object_version_number out nocopy number,
511: p_validate in boolean default false
512: ) is
513: --
514: l_rec hr_lei_shd.g_rec_type;
515: l_proc varchar2(72) := g_package||'ins';
516: --
517: Begin
518: hr_utility.set_location('Entering:'||l_proc, 5);
520: -- Call conversion function to turn arguments into the
521: -- p_rec structure.
522: --
523: l_rec :=
524: hr_lei_shd.convert_args
525: (
526: null,
527: p_information_type,
528: p_location_id,