46: -- Internal Table Handler Use Only.
47: --
48: -- {End Of Comments}
49: -- ----------------------------------------------------------------------------
50: Procedure insert_dml(p_rec in out per_jbd_shd.g_rec_type) is
51: --
52: l_proc varchar2(72) := g_package||'insert_dml';
53: --
54: Begin
53: --
54: Begin
55: hr_utility.set_location('Entering:'||l_proc, 5);
56: --
57: per_jbd_shd.g_api_dml := true; -- Set the api dml status
58: --
59: -- Insert the row into: per_job_definitions
60: --
61: insert into per_job_definitions
134: p_rec.segment29,
135: p_rec.segment30
136: );
137: --
138: per_jbd_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: per_jbd_shd.g_api_dml := false; -- Unset the api dml status
145: per_jbd_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: per_jbd_shd.g_api_dml := false; -- Unset the api dml status
145: per_jbd_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: per_jbd_shd.g_api_dml := false; -- Unset the api dml status
145: per_jbd_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: per_jbd_shd.g_api_dml := false; -- Unset the api dml status
150: per_jbd_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: per_jbd_shd.g_api_dml := false; -- Unset the api dml status
150: per_jbd_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: per_jbd_shd.g_api_dml := false; -- Unset the api dml status
150: per_jbd_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: per_jbd_shd.g_api_dml := false; -- Unset the api dml status
155: per_jbd_shd.constraint_error
156: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
157: When Others Then
158: per_jbd_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: per_jbd_shd.g_api_dml := false; -- Unset the api dml status
155: per_jbd_shd.constraint_error
156: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
157: When Others Then
158: per_jbd_shd.g_api_dml := false; -- Unset the api dml status
159: Raise;
154: per_jbd_shd.g_api_dml := false; -- Unset the api dml status
155: per_jbd_shd.constraint_error
156: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
157: When Others Then
158: per_jbd_shd.g_api_dml := false; -- Unset the api dml status
159: Raise;
160: End insert_dml;
161: --
162: -- ----------------------------------------------------------------------------
195: -- Internal Table Handler Use Only.
196: --
197: -- {End Of Comments}
198: -- ----------------------------------------------------------------------------
199: Procedure pre_insert(p_rec in out per_jbd_shd.g_rec_type) is
200: --
201: l_proc varchar2(72) := g_package||'pre_insert';
202: --
203: Cursor C_Sel1 is select per_job_definitions_s.nextval from sys.dual;
246: -- Internal Table Handler Use Only.
247: --
248: -- {End Of Comments}
249: -- ----------------------------------------------------------------------------
250: Procedure post_insert(p_rec in per_jbd_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 per_jbd_shd.g_rec_type,
266: p_validate in boolean default false
267: ) is
268: --
269: l_proc varchar2(72) := g_package||'ins';
353: p_segment30 in varchar2 default null,
354: p_validate in boolean default false
355: ) is
356: --
357: l_rec per_jbd_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: per_jbd_shd.convert_args
368: (
369: null,
370: p_id_flex_num,
371: p_end_date_active,
462: hr_utility.set_location('Entering:'||l_proc, 5);
463: --
464: -- determine if a job combination exists
465: --
466: per_jbd_shd.segment_combination_check
467: (p_segment1 => p_segment1,
468: p_segment2 => p_segment2,
469: p_segment3 => p_segment3,
470: p_segment4 => p_segment4,