65: -- Internal Development Use Only.
66: --
67: -- {End Of Comments}
68: -- ----------------------------------------------------------------------------
69: Procedure insert_dml(p_rec in out nocopy ota_tsp_shd.g_rec_type) is
70: --
71: l_proc varchar2(72) := g_package||'insert_dml';
72: --
73: Begin
73: Begin
74: hr_utility.set_location('Entering:'||l_proc, 5);
75: p_rec.object_version_number := 1; -- Initialise the object version
76: --
77: ota_tsp_shd.g_api_dml := true; -- Set the api dml status
78: --
79: -- Insert the row into: ota_skill_provisions
80: --
81: insert into ota_skill_provisions
136: p_rec.tsp_information20,
137: p_rec.analysis_criteria_id
138: );
139: --
140: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
141: --
142: hr_utility.set_location(' Leaving:'||l_proc, 10);
143: Exception
144: When hr_api.check_integrity_violated Then
142: hr_utility.set_location(' Leaving:'||l_proc, 10);
143: Exception
144: When hr_api.check_integrity_violated Then
145: -- A check constraint has been violated
146: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
147: ota_tsp_shd.g_api_dml := true; -- Set the api dml status
148: ota_tsp_shd.constraint_error
149: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
150: When hr_api.parent_integrity_violated Then
143: Exception
144: When hr_api.check_integrity_violated Then
145: -- A check constraint has been violated
146: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
147: ota_tsp_shd.g_api_dml := true; -- Set the api dml status
148: ota_tsp_shd.constraint_error
149: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
150: When hr_api.parent_integrity_violated Then
151: -- Parent integrity has been violated
144: When hr_api.check_integrity_violated Then
145: -- A check constraint has been violated
146: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
147: ota_tsp_shd.g_api_dml := true; -- Set the api dml status
148: ota_tsp_shd.constraint_error
149: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
150: When hr_api.parent_integrity_violated Then
151: -- Parent integrity has been violated
152: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
148: ota_tsp_shd.constraint_error
149: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
150: When hr_api.parent_integrity_violated Then
151: -- Parent integrity has been violated
152: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
153: ota_tsp_shd.constraint_error
154: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
155: When hr_api.unique_integrity_violated Then
156: -- Unique integrity has been violated
149: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
150: When hr_api.parent_integrity_violated Then
151: -- Parent integrity has been violated
152: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
153: ota_tsp_shd.constraint_error
154: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
155: When hr_api.unique_integrity_violated Then
156: -- Unique integrity has been violated
157: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
153: ota_tsp_shd.constraint_error
154: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
155: When hr_api.unique_integrity_violated Then
156: -- Unique integrity has been violated
157: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
158: ota_tsp_shd.constraint_error
159: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
160: When Others Then
161: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
154: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
155: When hr_api.unique_integrity_violated Then
156: -- Unique integrity has been violated
157: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
158: ota_tsp_shd.constraint_error
159: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
160: When Others Then
161: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
162: Raise;
157: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
158: ota_tsp_shd.constraint_error
159: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
160: When Others Then
161: ota_tsp_shd.g_api_dml := false; -- Unset the api dml status
162: Raise;
163: End insert_dml;
164: --
165: -- ----------------------------------------------------------------------------
199: --
200: -- {End Of Comments}
201: -- ----------------------------------------------------------------------------
202: Procedure pre_insert
203: (p_rec in out nocopy ota_tsp_shd.g_rec_type
204: ) is
205: --
206: l_proc varchar2(72) := g_package||'pre_insert';
207: --
284: -- Internal Development Use Only.
285: --
286: -- {End Of Comments}
287: -- ----------------------------------------------------------------------------
288: Procedure post_insert(p_rec in ota_tsp_shd.g_rec_type) is
289: --
290: l_proc varchar2(72) := g_package||'post_insert';
291: --
292: Begin
299: -- |---------------------------------< ins >----------------------------------|
300: -- ----------------------------------------------------------------------------
301: Procedure ins
302: (
303: p_rec in out nocopy ota_tsp_shd.g_rec_type,
304: p_validate in boolean default false
305: ) is
306: --
307: l_proc varchar2(72) := g_package||'ins';
384: p_analysis_criteria_id in number,
385: p_validate in boolean default false
386: ) is
387: --
388: l_rec ota_tsp_shd.g_rec_type;
389: l_proc varchar2(72) := g_package||'ins';
390: --
391: Begin
392: hr_utility.set_location('Entering:'||l_proc, 5);
394: -- Call conversion function to turn arguments into the
395: -- p_rec structure.
396: --
397: l_rec :=
398: ota_tsp_shd.convert_args
399: (
400: null,
401: p_activity_version_id,
402: null,