72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy ben_psg_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: ben_psg_shd.g_api_dml := true; -- Set the api dml status
86: --
87: -- Insert the row into: ben_pil_assignment
88: --
89: insert into ben_pil_assignment
100: ,p_rec.offer_assignment_id
101: ,p_rec.object_version_number
102: );
103: --
104: ben_psg_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: ben_psg_shd.g_api_dml := false; -- Unset the api dml status
111: ben_psg_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: ben_psg_shd.g_api_dml := false; -- Unset the api dml status
111: ben_psg_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: ben_psg_shd.g_api_dml := false; -- Unset the api dml status
111: ben_psg_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: ben_psg_shd.g_api_dml := false; -- Unset the api dml status
116: ben_psg_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: ben_psg_shd.g_api_dml := false; -- Unset the api dml status
116: ben_psg_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: ben_psg_shd.g_api_dml := false; -- Unset the api dml status
116: ben_psg_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: ben_psg_shd.g_api_dml := false; -- Unset the api dml status
121: ben_psg_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When Others Then
124: ben_psg_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: ben_psg_shd.g_api_dml := false; -- Unset the api dml status
121: ben_psg_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When Others Then
124: ben_psg_shd.g_api_dml := false; -- Unset the api dml status
125: Raise;
120: ben_psg_shd.g_api_dml := false; -- Unset the api dml status
121: ben_psg_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When Others Then
124: ben_psg_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 ben_psg_shd.g_rec_type
167: ) is
168: --
169: Cursor C_Sel1 is select ben_pil_assignment_s.nextval from sys.dual;
170: --
249: --
250: -- {End Of Comments}
251: -- ----------------------------------------------------------------------------
252: Procedure post_insert
253: (p_rec in ben_psg_shd.g_rec_type
254: ) is
255: --
256: l_proc varchar2(72) := g_package||'post_insert';
257: --
288: -- ----------------------------------------------------------------------------
289: -- |---------------------------------< ins >----------------------------------|
290: -- ----------------------------------------------------------------------------
291: Procedure ins
292: (p_rec in out nocopy ben_psg_shd.g_rec_type
293: ) is
294: --
295: l_proc varchar2(72) := g_package||'ins';
296: --
336: ,p_pil_assignment_id out nocopy number
337: ,p_object_version_number out nocopy number
338: ) is
339: --
340: l_rec ben_psg_shd.g_rec_type;
341: l_proc varchar2(72) := g_package||'ins';
342: --
343: Begin
344: hr_utility.set_location('Entering:'||l_proc, 5);
346: -- Call conversion function to turn arguments into the
347: -- p_rec structure.
348: --
349: l_rec :=
350: ben_psg_shd.convert_args
351: (null
352: ,p_per_in_ler_id
353: ,p_applicant_assignment_id
354: ,p_offer_assignment_id