49: -- Internal Development Use Only.
50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml(p_rec in out ota_tpl_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: ota_tpl_shd.g_api_dml := true; -- Set the api dml status
62: --
63: -- Insert the row into: ota_price_lists
64: --
65: insert into ota_price_lists
134: p_rec.tpl_information19,
135: p_rec.tpl_information20
136: );
137: --
138: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
139: --
140: hr_utility.set_location(' Leaving:'||l_proc, 10);
141: Exception
142: When hr_api.check_integrity_violated Then
140: hr_utility.set_location(' Leaving:'||l_proc, 10);
141: Exception
142: When hr_api.check_integrity_violated Then
143: -- A check constraint has been violated
144: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
145: ota_tpl_shd.constraint_error
146: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
147: When hr_api.parent_integrity_violated Then
148: -- Parent integrity has been violated
141: Exception
142: When hr_api.check_integrity_violated Then
143: -- A check constraint has been violated
144: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
145: ota_tpl_shd.constraint_error
146: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
147: When hr_api.parent_integrity_violated Then
148: -- Parent integrity has been violated
149: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
145: ota_tpl_shd.constraint_error
146: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
147: When hr_api.parent_integrity_violated Then
148: -- Parent integrity has been violated
149: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
150: ota_tpl_shd.constraint_error
151: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
152: When hr_api.unique_integrity_violated Then
153: -- Unique integrity has been violated
146: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
147: When hr_api.parent_integrity_violated Then
148: -- Parent integrity has been violated
149: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
150: ota_tpl_shd.constraint_error
151: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
152: When hr_api.unique_integrity_violated Then
153: -- Unique integrity has been violated
154: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
150: ota_tpl_shd.constraint_error
151: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
152: When hr_api.unique_integrity_violated Then
153: -- Unique integrity has been violated
154: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
155: ota_tpl_shd.constraint_error
156: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
157: When Others Then
158: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
151: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
152: When hr_api.unique_integrity_violated Then
153: -- Unique integrity has been violated
154: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
155: ota_tpl_shd.constraint_error
156: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
157: When Others Then
158: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
159: Raise;
154: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
155: ota_tpl_shd.constraint_error
156: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
157: When Others Then
158: ota_tpl_shd.g_api_dml := false; -- Unset the api dml status
159: Raise;
160: End insert_dml;
161: --
162: -- ----------------------------------------------------------------------------
195: -- Internal Development Use Only.
196: --
197: -- {End Of Comments}
198: -- ----------------------------------------------------------------------------
199: Procedure pre_insert(p_rec in out ota_tpl_shd.g_rec_type) is
200: --
201: l_proc varchar2(72) := g_package||'pre_insert';
202: --
203: Cursor C_Sel1 is select ota_price_lists_s.nextval from sys.dual;
246: -- Internal Development Use Only.
247: --
248: -- {End Of Comments}
249: -- ----------------------------------------------------------------------------
250: Procedure post_insert(p_rec in ota_tpl_shd.g_rec_type) is
251: --
252: l_proc varchar2(72) := g_package||'post_insert';
253: --
254: Begin
261: -- |---------------------------------< ins >----------------------------------|
262: -- ----------------------------------------------------------------------------
263: Procedure ins
264: (
265: p_rec in out ota_tpl_shd.g_rec_type,
266: p_validate in boolean default false
267: ) is
268: --
269: l_proc varchar2(72) := g_package||'ins';
353: p_tpl_information20 in varchar2 default null,
354: p_validate in boolean default false
355: ) is
356: --
357: l_rec ota_tpl_shd.g_rec_type;
358: l_proc varchar2(72) := g_package||'ins';
359: --
360: Begin
361: hr_utility.set_location('Entering:'||l_proc, 5);
363: -- Call conversion function to turn arguments into the
364: -- p_rec structure.
365: --
366: l_rec :=
367: ota_tpl_shd.convert_args
368: (
369: null,
370: p_business_group_id,
371: p_currency_code,