71: --
72: -- {End Of Comments}
73: -- ----------------------------------------------------------------------------
74: Procedure insert_dml
75: (p_rec in out nocopy per_pea_shd.g_rec_type,
76: p_effective_date in date) is
77: --
78: l_proc varchar2(72) := g_package||'insert_dml';
79: --
80: Begin
81: hr_utility.set_location('Entering:'||l_proc, 5);
82: p_rec.object_version_number := 1; -- Initialise the object version
83: --
84: per_pea_shd.g_api_dml := true; -- Set the api dml status
85: --
86: -- Insert the row into: per_person_analyses
87: --
88: insert into per_person_analyses
158: p_rec.attribute20,
159: p_rec.object_version_number
160: );
161: --
162: per_pea_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_pea_shd.g_api_dml := false; -- Unset the api dml status
169: per_pea_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_pea_shd.g_api_dml := false; -- Unset the api dml status
169: per_pea_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_pea_shd.g_api_dml := false; -- Unset the api dml status
169: per_pea_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_pea_shd.g_api_dml := false; -- Unset the api dml status
174: per_pea_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_pea_shd.g_api_dml := false; -- Unset the api dml status
174: per_pea_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_pea_shd.g_api_dml := false; -- Unset the api dml status
174: per_pea_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_pea_shd.g_api_dml := false; -- Unset the api dml status
179: per_pea_shd.constraint_error
180: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
181: When Others Then
182: per_pea_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_pea_shd.g_api_dml := false; -- Unset the api dml status
179: per_pea_shd.constraint_error
180: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
181: When Others Then
182: per_pea_shd.g_api_dml := false; -- Unset the api dml status
183: Raise;
178: per_pea_shd.g_api_dml := false; -- Unset the api dml status
179: per_pea_shd.constraint_error
180: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
181: When Others Then
182: per_pea_shd.g_api_dml := false; -- Unset the api dml status
183: Raise;
184: End insert_dml;
185: --
186: -- ----------------------------------------------------------------------------
220: --
221: -- {End Of Comments}
222: -- ----------------------------------------------------------------------------
223: Procedure pre_insert
224: (p_rec in out nocopy per_pea_shd.g_rec_type,
225: p_effective_date in date
226: ) is
227: --
228: l_proc varchar2(72) := g_package||'pre_insert';
303: --
304: -- {End Of Comments}
305: -- ----------------------------------------------------------------------------
306: Procedure post_insert
307: (p_rec in per_pea_shd.g_rec_type,
308: p_effective_date in date
309: ) is
310: --
311: l_proc varchar2(72) := g_package||'post_insert';
412: -- |---------------------------------< ins >----------------------------------|
413: -- ----------------------------------------------------------------------------
414: Procedure ins
415: (
416: p_rec in out nocopy per_pea_shd.g_rec_type,
417: p_effective_date in date,
418: p_validate in boolean default false
419: ) is
420: --
418: p_validate in boolean default false
419: ) is
420: --
421: l_proc varchar2(72) := g_package||'ins';
422: l_rec per_pea_shd.g_rec_type;
423: --
424: Begin
425: hr_utility.set_location('Entering:'||l_proc, 5);
426: --
518: p_effective_date in date,
519: p_validate in boolean default false
520: ) is
521: --
522: l_rec per_pea_shd.g_rec_type;
523: l_proc varchar2(72) := g_package||'ins';
524: --
525: Begin
526: hr_utility.set_location('Entering:'||l_proc, 5);
528: -- Call conversion function to turn arguments into the
529: -- p_rec structure.
530: --
531: l_rec :=
532: per_pea_shd.convert_args
533: (
534: null,
535: p_business_group_id,
536: p_analysis_criteria_id,