72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy pqh_bre_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: pqh_bre_shd.g_api_dml := true; -- Set the api dml status
86: --
87: -- Insert the row into: pqh_bdgt_pool_realloctions
88: --
89: insert into pqh_bdgt_pool_realloctions
116: ,p_rec.start_date
117: ,p_rec.end_date
118: );
119: --
120: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
121: --
122: hr_utility.set_location(' Leaving:'||l_proc, 10);
123: Exception
124: When hr_api.check_integrity_violated Then
122: hr_utility.set_location(' Leaving:'||l_proc, 10);
123: Exception
124: When hr_api.check_integrity_violated Then
125: -- A check constraint has been violated
126: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
127: pqh_bre_shd.constraint_error
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When hr_api.parent_integrity_violated Then
130: -- Parent integrity has been violated
123: Exception
124: When hr_api.check_integrity_violated Then
125: -- A check constraint has been violated
126: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
127: pqh_bre_shd.constraint_error
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When hr_api.parent_integrity_violated Then
130: -- Parent integrity has been violated
131: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
127: pqh_bre_shd.constraint_error
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When hr_api.parent_integrity_violated Then
130: -- Parent integrity has been violated
131: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
132: pqh_bre_shd.constraint_error
133: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
134: When hr_api.unique_integrity_violated Then
135: -- Unique integrity has been violated
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When hr_api.parent_integrity_violated Then
130: -- Parent integrity has been violated
131: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
132: pqh_bre_shd.constraint_error
133: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
134: When hr_api.unique_integrity_violated Then
135: -- Unique integrity has been violated
136: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
132: pqh_bre_shd.constraint_error
133: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
134: When hr_api.unique_integrity_violated Then
135: -- Unique integrity has been violated
136: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
137: pqh_bre_shd.constraint_error
138: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
139: When Others Then
140: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
133: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
134: When hr_api.unique_integrity_violated Then
135: -- Unique integrity has been violated
136: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
137: pqh_bre_shd.constraint_error
138: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
139: When Others Then
140: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
141: Raise;
136: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
137: pqh_bre_shd.constraint_error
138: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
139: When Others Then
140: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
141: Raise;
142: End insert_dml;
143: --
144: -- ----------------------------------------------------------------------------
178: --
179: -- {End Of Comments}
180: -- ----------------------------------------------------------------------------
181: Procedure pre_insert
182: (p_rec in out nocopy pqh_bre_shd.g_rec_type
183: ) is
184: --
185: Cursor C_Sel1 is select pqh_bdgt_pool_realloctions_s.nextval from sys.dual;
186: --
266: -- {End Of Comments}
267: -- ----------------------------------------------------------------------------
268: Procedure post_insert
269: (p_effective_date in date
270: ,p_rec in pqh_bre_shd.g_rec_type
271: ) is
272: --
273: l_proc varchar2(72) := g_package||'post_insert';
274: --
323: -- |---------------------------------< ins >----------------------------------|
324: -- ----------------------------------------------------------------------------
325: Procedure ins
326: (p_effective_date in date
327: ,p_rec in out nocopy pqh_bre_shd.g_rec_type
328: ) is
329: --
330: l_proc varchar2(72) := g_package||'ins';
331: --
382: ,p_reallocation_id out nocopy number
383: ,p_object_version_number out nocopy number
384: ) is
385: --
386: l_rec pqh_bre_shd.g_rec_type;
387: l_proc varchar2(72) := g_package||'ins';
388: --
389: Begin
390: hr_utility.set_location('Entering:'||l_proc, 5);
392: -- Call conversion function to turn arguments into the
393: -- p_rec structure.
394: --
395: l_rec :=
396: pqh_bre_shd.convert_args
397: (null
398: ,p_position_id
399: ,p_pool_id
400: ,p_reallocation_amt