49: -- Internal Table Handler Use Only.
50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml(p_rec in out nocopy hr_cau_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: hr_cau_shd.g_api_dml := true; -- Set the api dml status
62: --
63: -- Insert the row into: hr_calendar_usages
64: --
65: insert into hr_calendar_usages
80: p_rec.end_date,
81: p_rec.object_version_number
82: );
83: --
84: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
85: --
86: hr_utility.set_location(' Leaving:'||l_proc, 10);
87: Exception
88: When hr_api.check_integrity_violated Then
86: hr_utility.set_location(' Leaving:'||l_proc, 10);
87: Exception
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
91: hr_cau_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
87: Exception
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
91: hr_cau_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
91: hr_cau_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
96: hr_cau_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
96: hr_cau_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
96: hr_cau_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
101: hr_cau_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
101: hr_cau_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
105: Raise;
100: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
101: hr_cau_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: hr_cau_shd.g_api_dml := false; -- Unset the api dml status
105: Raise;
106: End insert_dml;
107: --
108: -- ----------------------------------------------------------------------------
141: -- Internal Table Handler Use Only.
142: --
143: -- {End Of Comments}
144: -- ----------------------------------------------------------------------------
145: Procedure pre_insert(p_rec in out nocopy hr_cau_shd.g_rec_type) is
146: --
147: l_proc varchar2(72) := g_package||'pre_insert';
148: --
149: Cursor C_Sel1 is select hr_calendar_usages_s.nextval from sys.dual;
192: -- Internal Table Handler Use Only.
193: --
194: -- {End Of Comments}
195: -- ----------------------------------------------------------------------------
196: Procedure post_insert(p_rec in hr_cau_shd.g_rec_type) is
197: --
198: l_proc varchar2(72) := g_package||'post_insert';
199: --
200: Begin
207: -- |---------------------------------< ins >----------------------------------|
208: -- ----------------------------------------------------------------------------
209: Procedure ins
210: (
211: p_rec in out nocopy hr_cau_shd.g_rec_type,
212: p_validate in boolean default false
213: ) is
214: --
215: l_proc varchar2(72) := g_package||'ins';
272: p_object_version_number out nocopy number,
273: p_validate in boolean default false
274: ) is
275: --
276: l_rec hr_cau_shd.g_rec_type;
277: l_proc varchar2(72) := g_package||'ins';
278: --
279: Begin
280: hr_utility.set_location('Entering:'||l_proc, 5);
282: -- Call conversion function to turn arguments into the
283: -- p_rec structure.
284: --
285: l_rec :=
286: hr_cau_shd.convert_args
287: (
288: p_calendar_id,
289: null,
290: p_primary_key_value,