72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy per_pse_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: per_pse_shd.g_api_dml := true; -- Set the api dml status
86: --
87: -- Insert the row into: per_pos_structure_elements
88: --
89: insert into per_pos_structure_elements
110: ,p_rec.program_update_date
111: ,p_rec.object_version_number
112: );
113: --
114: per_pse_shd.g_api_dml := false; -- Unset the api dml status
115: --
116: hr_utility.set_location(' Leaving:'||l_proc, 10);
117: Exception
118: When hr_api.check_integrity_violated Then
116: hr_utility.set_location(' Leaving:'||l_proc, 10);
117: Exception
118: When hr_api.check_integrity_violated Then
119: -- A check constraint has been violated
120: per_pse_shd.g_api_dml := false; -- Unset the api dml status
121: per_pse_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.parent_integrity_violated Then
124: -- Parent integrity has been violated
117: Exception
118: When hr_api.check_integrity_violated Then
119: -- A check constraint has been violated
120: per_pse_shd.g_api_dml := false; -- Unset the api dml status
121: per_pse_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.parent_integrity_violated Then
124: -- Parent integrity has been violated
125: per_pse_shd.g_api_dml := false; -- Unset the api dml status
121: per_pse_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.parent_integrity_violated Then
124: -- Parent integrity has been violated
125: per_pse_shd.g_api_dml := false; -- Unset the api dml status
126: per_pse_shd.constraint_error
127: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
128: When hr_api.unique_integrity_violated Then
129: -- Unique integrity has been violated
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.parent_integrity_violated Then
124: -- Parent integrity has been violated
125: per_pse_shd.g_api_dml := false; -- Unset the api dml status
126: per_pse_shd.constraint_error
127: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
128: When hr_api.unique_integrity_violated Then
129: -- Unique integrity has been violated
130: per_pse_shd.g_api_dml := false; -- Unset the api dml status
126: per_pse_shd.constraint_error
127: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
128: When hr_api.unique_integrity_violated Then
129: -- Unique integrity has been violated
130: per_pse_shd.g_api_dml := false; -- Unset the api dml status
131: per_pse_shd.constraint_error
132: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
133: When Others Then
134: per_pse_shd.g_api_dml := false; -- Unset the api dml status
127: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
128: When hr_api.unique_integrity_violated Then
129: -- Unique integrity has been violated
130: per_pse_shd.g_api_dml := false; -- Unset the api dml status
131: per_pse_shd.constraint_error
132: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
133: When Others Then
134: per_pse_shd.g_api_dml := false; -- Unset the api dml status
135: Raise;
130: per_pse_shd.g_api_dml := false; -- Unset the api dml status
131: per_pse_shd.constraint_error
132: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
133: When Others Then
134: per_pse_shd.g_api_dml := false; -- Unset the api dml status
135: Raise;
136: End insert_dml;
137: --
138: -- ----------------------------------------------------------------------------
172: --
173: -- {End Of Comments}
174: -- ----------------------------------------------------------------------------
175: Procedure pre_insert
176: (p_rec in out nocopy per_pse_shd.g_rec_type
177: ) is
178: --
179: l_proc varchar2(72) := g_package||'pre_insert';
180: --
225: --
226: -- {End Of Comments}
227: -- ----------------------------------------------------------------------------
228: Procedure post_insert
229: (p_rec in per_pse_shd.g_rec_type
230: ) is
231: --
232: l_proc varchar2(72) := g_package||'post_insert';
233: --
274: -- ----------------------------------------------------------------------------
275: -- |---------------------------------< ins >----------------------------------|
276: -- ----------------------------------------------------------------------------
277: Procedure ins
278: (p_rec in out nocopy per_pse_shd.g_rec_type
279: ,p_effective_date in date
280: ) is
281: --
282: l_proc varchar2(72) := g_package||'ins';
324: ,p_pos_structure_element_id out nocopy number
325: ,p_object_version_number out nocopy number
326: ) is
327: --
328: l_rec per_pse_shd.g_rec_type;
329: l_proc varchar2(72) := g_package||'ins';
330: --
331: Begin
332: hr_utility.set_location('Entering:'||l_proc, 5);
334: -- Call conversion function to turn arguments into the
335: -- p_rec structure.
336: --
337: l_rec :=
338: per_pse_shd.convert_args
339: (null
340: ,p_business_group_id
341: ,p_pos_structure_version_id
342: ,p_subordinate_position_id