72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy per_psv_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_psv_shd.g_api_dml := true; -- Set the api dml status
86: --
87: -- Insert the row into: per_pos_structure_versions
88: --
89: insert into per_pos_structure_versions
114: ,p_rec.program_update_date
115: ,p_rec.object_version_number
116: );
117: --
118: per_psv_shd.g_api_dml := false; -- Unset the api dml status
119: --
120: hr_utility.set_location(' Leaving:'||l_proc, 10);
121: Exception
122: When hr_api.check_integrity_violated Then
120: hr_utility.set_location(' Leaving:'||l_proc, 10);
121: Exception
122: When hr_api.check_integrity_violated Then
123: -- A check constraint has been violated
124: per_psv_shd.g_api_dml := false; -- Unset the api dml status
125: per_psv_shd.constraint_error
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When hr_api.parent_integrity_violated Then
128: -- Parent integrity has been violated
121: Exception
122: When hr_api.check_integrity_violated Then
123: -- A check constraint has been violated
124: per_psv_shd.g_api_dml := false; -- Unset the api dml status
125: per_psv_shd.constraint_error
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When hr_api.parent_integrity_violated Then
128: -- Parent integrity has been violated
129: per_psv_shd.g_api_dml := false; -- Unset the api dml status
125: per_psv_shd.constraint_error
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When hr_api.parent_integrity_violated Then
128: -- Parent integrity has been violated
129: per_psv_shd.g_api_dml := false; -- Unset the api dml status
130: per_psv_shd.constraint_error
131: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
132: When hr_api.unique_integrity_violated Then
133: -- Unique integrity has been violated
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When hr_api.parent_integrity_violated Then
128: -- Parent integrity has been violated
129: per_psv_shd.g_api_dml := false; -- Unset the api dml status
130: per_psv_shd.constraint_error
131: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
132: When hr_api.unique_integrity_violated Then
133: -- Unique integrity has been violated
134: per_psv_shd.g_api_dml := false; -- Unset the api dml status
130: per_psv_shd.constraint_error
131: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
132: When hr_api.unique_integrity_violated Then
133: -- Unique integrity has been violated
134: per_psv_shd.g_api_dml := false; -- Unset the api dml status
135: per_psv_shd.constraint_error
136: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
137: When Others Then
138: per_psv_shd.g_api_dml := false; -- Unset the api dml status
131: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
132: When hr_api.unique_integrity_violated Then
133: -- Unique integrity has been violated
134: per_psv_shd.g_api_dml := false; -- Unset the api dml status
135: per_psv_shd.constraint_error
136: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
137: When Others Then
138: per_psv_shd.g_api_dml := false; -- Unset the api dml status
139: Raise;
134: per_psv_shd.g_api_dml := false; -- Unset the api dml status
135: per_psv_shd.constraint_error
136: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
137: When Others Then
138: per_psv_shd.g_api_dml := false; -- Unset the api dml status
139: Raise;
140: End insert_dml;
141: --
142: -- ----------------------------------------------------------------------------
176: --
177: -- {End Of Comments}
178: -- ----------------------------------------------------------------------------
179: Procedure pre_insert
180: (p_rec in out nocopy per_psv_shd.g_rec_type
181: ) is
182: --
183: Cursor C_Sel1 is select per_pos_structure_versions_s.nextval from sys.dual;
184: --
265: -- {End Of Comments}
266: -- ----------------------------------------------------------------------------
267: Procedure post_insert
268: (p_effective_date in date
269: ,p_rec in per_psv_shd.g_rec_type
270: ) is
271: --
272: l_proc varchar2(72) := g_package||'post_insert';
273: --
320: -- |---------------------------------< ins >----------------------------------|
321: -- ----------------------------------------------------------------------------
322: Procedure ins
323: (p_effective_date in date
324: ,p_rec in out nocopy per_psv_shd.g_rec_type
325: ,p_gap_warning out nocopy boolean) is
326: --
327: l_proc varchar2(72) := g_package||'ins';
328: --
373: ,p_object_version_number out nocopy number
374: ,p_gap_warning out nocopy boolean
375: ) is
376: --
377: l_rec per_psv_shd.g_rec_type;
378: l_proc varchar2(72) := g_package||'ins';
379: l_business_group_id number;
380: --
381: Begin
388: (p_position_structure_id => p_position_structure_id
389: ,p_business_group_id => l_business_group_id);
390:
391: l_rec :=
392: per_psv_shd.convert_args
393: (null
394: ,l_business_group_id
395: ,p_position_structure_id
396: ,p_date_from