1: Package Body ben_cpg_ins as
2: /* $Header: becpgrhi.pkb 120.0 2005/05/28 01:13 appldev noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ben_cpg_ins.'; -- Global package name
9: g_debug boolean := hr_utility.debug_enabled;
10: --
11: -- The following global variables are only to be used by
12: -- the set_base_key_value and pre_insert procedures.
29: if g_debug then
30: hr_utility.set_location('Entering:'||l_proc, 10);
31: end if;
32: --
33: ben_cpg_ins.g_group_per_in_ler_id_i := p_group_per_in_ler_id;
34: ben_cpg_ins.g_group_pl_id_i := p_group_pl_id;
35: ben_cpg_ins.g_group_oipl_id_i := p_group_oipl_id;
36: --
37: if g_debug then
30: hr_utility.set_location('Entering:'||l_proc, 10);
31: end if;
32: --
33: ben_cpg_ins.g_group_per_in_ler_id_i := p_group_per_in_ler_id;
34: ben_cpg_ins.g_group_pl_id_i := p_group_pl_id;
35: ben_cpg_ins.g_group_oipl_id_i := p_group_oipl_id;
36: --
37: if g_debug then
38: hr_utility.set_location(' Leaving:'||l_proc, 20);
31: end if;
32: --
33: ben_cpg_ins.g_group_per_in_ler_id_i := p_group_per_in_ler_id;
34: ben_cpg_ins.g_group_pl_id_i := p_group_pl_id;
35: ben_cpg_ins.g_group_oipl_id_i := p_group_oipl_id;
36: --
37: if g_debug then
38: hr_utility.set_location(' Leaving:'||l_proc, 20);
39: end if;
246: Cursor C_Sel2 is
247: Select null
248: from ben_cwb_person_groups
249: where group_per_in_ler_id =
250: ben_cpg_ins.g_group_per_in_ler_id_i
251: or group_pl_id =
252: ben_cpg_ins.g_group_pl_id_i
253: or group_oipl_id =
254: ben_cpg_ins.g_group_oipl_id_i;
248: from ben_cwb_person_groups
249: where group_per_in_ler_id =
250: ben_cpg_ins.g_group_per_in_ler_id_i
251: or group_pl_id =
252: ben_cpg_ins.g_group_pl_id_i
253: or group_oipl_id =
254: ben_cpg_ins.g_group_oipl_id_i;
255: --
256: l_proc varchar2(72) := g_package||'pre_insert';
250: ben_cpg_ins.g_group_per_in_ler_id_i
251: or group_pl_id =
252: ben_cpg_ins.g_group_pl_id_i
253: or group_oipl_id =
254: ben_cpg_ins.g_group_oipl_id_i;
255: --
256: l_proc varchar2(72) := g_package||'pre_insert';
257: l_exists varchar2(1);
258: --
260: if g_debug then
261: hr_utility.set_location('Entering:'||l_proc, 5);
262: end if;
263: --
264: If (ben_cpg_ins.g_group_per_in_ler_id_i is not null or
265: ben_cpg_ins.g_group_pl_id_i is not null or
266: ben_cpg_ins.g_group_oipl_id_i is not null) Then
267: --
268: -- Verify registered primary key values not already in use
261: hr_utility.set_location('Entering:'||l_proc, 5);
262: end if;
263: --
264: If (ben_cpg_ins.g_group_per_in_ler_id_i is not null or
265: ben_cpg_ins.g_group_pl_id_i is not null or
266: ben_cpg_ins.g_group_oipl_id_i is not null) Then
267: --
268: -- Verify registered primary key values not already in use
269: --
262: end if;
263: --
264: If (ben_cpg_ins.g_group_per_in_ler_id_i is not null or
265: ben_cpg_ins.g_group_pl_id_i is not null or
266: ben_cpg_ins.g_group_oipl_id_i is not null) Then
267: --
268: -- Verify registered primary key values not already in use
269: --
270: Open C_Sel2;
282: --
283: -- Use registered key values and clear globals
284: --
285: p_rec.group_per_in_ler_id :=
286: ben_cpg_ins.g_group_per_in_ler_id_i;
287: ben_cpg_ins.g_group_per_in_ler_id_i := null;
288: p_rec.group_pl_id :=
289: ben_cpg_ins.g_group_pl_id_i;
290: ben_cpg_ins.g_group_pl_id_i := null;
283: -- Use registered key values and clear globals
284: --
285: p_rec.group_per_in_ler_id :=
286: ben_cpg_ins.g_group_per_in_ler_id_i;
287: ben_cpg_ins.g_group_per_in_ler_id_i := null;
288: p_rec.group_pl_id :=
289: ben_cpg_ins.g_group_pl_id_i;
290: ben_cpg_ins.g_group_pl_id_i := null;
291: p_rec.group_oipl_id :=
285: p_rec.group_per_in_ler_id :=
286: ben_cpg_ins.g_group_per_in_ler_id_i;
287: ben_cpg_ins.g_group_per_in_ler_id_i := null;
288: p_rec.group_pl_id :=
289: ben_cpg_ins.g_group_pl_id_i;
290: ben_cpg_ins.g_group_pl_id_i := null;
291: p_rec.group_oipl_id :=
292: ben_cpg_ins.g_group_oipl_id_i;
293: ben_cpg_ins.g_group_oipl_id_i := null;
286: ben_cpg_ins.g_group_per_in_ler_id_i;
287: ben_cpg_ins.g_group_per_in_ler_id_i := null;
288: p_rec.group_pl_id :=
289: ben_cpg_ins.g_group_pl_id_i;
290: ben_cpg_ins.g_group_pl_id_i := null;
291: p_rec.group_oipl_id :=
292: ben_cpg_ins.g_group_oipl_id_i;
293: ben_cpg_ins.g_group_oipl_id_i := null;
294: Else
288: p_rec.group_pl_id :=
289: ben_cpg_ins.g_group_pl_id_i;
290: ben_cpg_ins.g_group_pl_id_i := null;
291: p_rec.group_oipl_id :=
292: ben_cpg_ins.g_group_oipl_id_i;
293: ben_cpg_ins.g_group_oipl_id_i := null;
294: Else
295: -- Commented out the following code as it is not required.
296: null;
289: ben_cpg_ins.g_group_pl_id_i;
290: ben_cpg_ins.g_group_pl_id_i := null;
291: p_rec.group_oipl_id :=
292: ben_cpg_ins.g_group_oipl_id_i;
293: ben_cpg_ins.g_group_oipl_id_i := null;
294: Else
295: -- Commented out the following code as it is not required.
296: null;
297: /* --
468: hr_multi_message.end_validation_set;
469: --
470: -- Call the supporting pre-insert operation
471: --
472: ben_cpg_ins.pre_insert(p_rec);
473: --
474: -- Insert the row
475: --
476: ben_cpg_ins.insert_dml(p_rec);
472: ben_cpg_ins.pre_insert(p_rec);
473: --
474: -- Insert the row
475: --
476: ben_cpg_ins.insert_dml(p_rec);
477: --
478: -- Call the supporting post-insert operation
479: --
480: ben_cpg_ins.post_insert
476: ben_cpg_ins.insert_dml(p_rec);
477: --
478: -- Call the supporting post-insert operation
479: --
480: ben_cpg_ins.post_insert
481: (p_rec
482: );
483: --
484: -- Call to raise any errors on multi-message list
588: --
589: -- Having converted the arguments into the ben_cpg_rec
590: -- plsql record structure we call the corresponding record business process.
591: --
592: ben_cpg_ins.ins
593: (l_rec
594: );
595: --
596: p_object_version_number := l_rec.object_version_number;
599: hr_utility.set_location(' Leaving:'||l_proc, 10);
600: end if;
601: End ins;
602: --
603: end ben_cpg_ins;