72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy irc_rav_shd.g_rec_type
77: ) is
78: --
79: l_proc varchar2(72) := g_package||'insert_dml';
80: --
81: Begin
82: hr_utility.set_location('Entering:'||l_proc, 5);
83: p_rec.object_version_number := 1; -- Initialise the object version
84: --
85: irc_rav_shd.g_api_dml := true; -- Set the api dml status
86: --
87: -- Insert the row into: irc_vac_rec_area_values
88: --
89: insert into irc_vac_rec_area_values
100: ,p_rec.hierarchy_name
101: ,p_rec.object_version_number
102: );
103: --
104: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
105: --
106: hr_utility.set_location(' Leaving:'||l_proc, 10);
107: Exception
108: When hr_api.check_integrity_violated Then
106: hr_utility.set_location(' Leaving:'||l_proc, 10);
107: Exception
108: When hr_api.check_integrity_violated Then
109: -- A check constraint has been violated
110: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
111: irc_rav_shd.constraint_error
112: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.parent_integrity_violated Then
114: -- Parent integrity has been violated
107: Exception
108: When hr_api.check_integrity_violated Then
109: -- A check constraint has been violated
110: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
111: irc_rav_shd.constraint_error
112: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.parent_integrity_violated Then
114: -- Parent integrity has been violated
115: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
111: irc_rav_shd.constraint_error
112: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.parent_integrity_violated Then
114: -- Parent integrity has been violated
115: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
116: irc_rav_shd.constraint_error
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When hr_api.unique_integrity_violated Then
119: -- Unique integrity has been violated
112: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.parent_integrity_violated Then
114: -- Parent integrity has been violated
115: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
116: irc_rav_shd.constraint_error
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When hr_api.unique_integrity_violated Then
119: -- Unique integrity has been violated
120: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
116: irc_rav_shd.constraint_error
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When hr_api.unique_integrity_violated Then
119: -- Unique integrity has been violated
120: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
121: irc_rav_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When Others Then
124: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When hr_api.unique_integrity_violated Then
119: -- Unique integrity has been violated
120: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
121: irc_rav_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When Others Then
124: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
125: Raise;
120: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
121: irc_rav_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When Others Then
124: irc_rav_shd.g_api_dml := false; -- Unset the api dml status
125: Raise;
126: End insert_dml;
127: --
128: -- ----------------------------------------------------------------------------
162: --
163: -- {End Of Comments}
164: -- ----------------------------------------------------------------------------
165: Procedure pre_insert
166: (p_rec in out nocopy irc_rav_shd.g_rec_type
167: ) is
168: --
169: Cursor C_Sel1 is select irc_vac_rec_area_values_s.nextval from sys.dual;
170: --
250: -- {End Of Comments}
251: -- ----------------------------------------------------------------------------
252: Procedure post_insert
253: (p_effective_date in date
254: ,p_rec in irc_rav_shd.g_rec_type
255: ) is
256: --
257: l_proc varchar2(72) := g_package||'post_insert';
258: --
291: -- |---------------------------------< ins >----------------------------------|
292: -- ----------------------------------------------------------------------------
293: Procedure ins
294: (p_effective_date in date
295: ,p_rec in out nocopy irc_rav_shd.g_rec_type
296: ) is
297: --
298: l_proc varchar2(72) := g_package||'ins';
299: --
342: ,p_vac_rec_area_id out nocopy number
343: ,p_object_version_number out nocopy number
344: ) is
345: --
346: l_rec irc_rav_shd.g_rec_type;
347: l_proc varchar2(72) := g_package||'ins';
348: --
349: Begin
350: hr_utility.set_location('Entering:'||l_proc, 5);
352: -- Call conversion function to turn arguments into the
353: -- p_rec structure.
354: --
355: l_rec :=
356: irc_rav_shd.convert_args
357: (null
358: ,p_vacancy_id
359: ,p_hierarchy_version_id
360: ,p_hierarchy_name