54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_insert_dml
58: (p_rec in out nocopy ben_pei_shd.g_rec_type,
59: p_effective_date in date,
60: p_datetrack_mode in varchar2,
61: p_validation_start_date in date,
62: p_validation_end_date in date) is
67: select t.created_by,
68: t.creation_date
69: from ben_pl_extract_identifier_f t
70: where t.pl_extract_identifier_id = p_rec.pl_extract_identifier_id
71: and t.effective_start_date = ben_pei_shd.g_old_rec.effective_start_date
72: and t.effective_end_date = (p_validation_start_date - 1);
73: --
74: l_proc varchar2(72) := g_package||'dt_insert_dml';
75: l_created_by ben_pl_extract_identifier_f.created_by%TYPE;
124: l_last_updated_by := fnd_global.user_id;
125: l_last_update_login := fnd_global.login_id;
126: End If;
127: --
128: ben_pei_shd.g_api_dml := true; -- Set the api dml status
129: --
130: -- Insert the row into: ben_pl_f
131: --
132: insert into ben_pl_extract_identifier_f
179: ,p_rec.object_version_number
180: ,p_rec.business_group_id
181: );
182: --
183: ben_pei_shd.g_api_dml := false; -- Unset the api dml status
184: hr_utility.set_location(' Leaving:'||l_proc, 15);
185: --
186: Exception
187: When hr_api.check_integrity_violated Then
185: --
186: Exception
187: When hr_api.check_integrity_violated Then
188: -- A check constraint has been violated
189: ben_pei_shd.g_api_dml := false; -- Unset the api dml status
190: ben_pei_shd.constraint_error
191: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
192: When hr_api.unique_integrity_violated Then
193: -- Unique integrity has been violated
186: Exception
187: When hr_api.check_integrity_violated Then
188: -- A check constraint has been violated
189: ben_pei_shd.g_api_dml := false; -- Unset the api dml status
190: ben_pei_shd.constraint_error
191: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
192: When hr_api.unique_integrity_violated Then
193: -- Unique integrity has been violated
194: ben_pei_shd.g_api_dml := false; -- Unset the api dml status
190: ben_pei_shd.constraint_error
191: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
192: When hr_api.unique_integrity_violated Then
193: -- Unique integrity has been violated
194: ben_pei_shd.g_api_dml := false; -- Unset the api dml status
195: ben_pei_shd.constraint_error
196: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
197: When Others Then
198: ben_pei_shd.g_api_dml := false; -- Unset the api dml status
191: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
192: When hr_api.unique_integrity_violated Then
193: -- Unique integrity has been violated
194: ben_pei_shd.g_api_dml := false; -- Unset the api dml status
195: ben_pei_shd.constraint_error
196: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
197: When Others Then
198: ben_pei_shd.g_api_dml := false; -- Unset the api dml status
199: Raise;
194: ben_pei_shd.g_api_dml := false; -- Unset the api dml status
195: ben_pei_shd.constraint_error
196: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
197: When Others Then
198: ben_pei_shd.g_api_dml := false; -- Unset the api dml status
199: Raise;
200: End dt_insert_dml;
201: --
202: -- ----------------------------------------------------------------------------
202: -- ----------------------------------------------------------------------------
203: -- |------------------------------< insert_dml >------------------------------|
204: -- ----------------------------------------------------------------------------
205: Procedure insert_dml
206: (p_rec in out nocopy ben_pei_shd.g_rec_type,
207: p_effective_date in date,
208: p_datetrack_mode in varchar2,
209: p_validation_start_date in date,
210: p_validation_end_date in date) is
262: --
263: -- {End Of Comments}
264: -- ----------------------------------------------------------------------------
265: Procedure pre_insert
266: (p_rec in out nocopy ben_pei_shd.g_rec_type,
267: p_effective_date in date,
268: p_datetrack_mode in varchar2,
269: p_validation_start_date in date,
270: p_validation_end_date in date) is
317: --
318: -- {End Of Comments}
319: -- ----------------------------------------------------------------------------
320: Procedure post_insert
321: (p_rec in ben_pei_shd.g_rec_type,
322: p_effective_date in date,
323: p_datetrack_mode in varchar2,
324: p_validation_start_date in date,
325: p_validation_end_date in date) is
411: -- ----------------------------------------------------------------------------
412: Procedure ins_lck
413: (p_effective_date in date,
414: p_datetrack_mode in varchar2,
415: p_rec in ben_pei_shd.g_rec_type,
416: p_validation_start_date out nocopy date,
417: p_validation_end_date out nocopy date) is
418: --
419: l_proc varchar2(72) := g_package||'ins_lck';
449: -- |---------------------------------< ins >----------------------------------|
450: -- ----------------------------------------------------------------------------
451: Procedure ins
452: (
453: p_rec in out nocopy ben_pei_shd.g_rec_type,
454: p_effective_date in date
455: ) is
456: --
457: l_proc varchar2(72) := g_package||'ins';
534: p_object_version_number out nocopy number,
535: p_effective_date in date
536: ) is
537: --
538: l_rec ben_pei_shd.g_rec_type;
539: l_proc varchar2(72) := g_package||'ins';
540: --
541: Begin
542: hr_utility.set_location('Entering:'||l_proc, 5);
544: -- Call conversion function to turn arguments into the
545: -- p_rec structure.
546: --
547: l_rec :=
548: ben_pei_shd.convert_args
549: (
550: null
551: ,p_pl_id
552: ,p_plip_id