[Home] [Help]
1: Package Body per_pmp_ins as
2: /* $Header: pepmprhi.pkb 120.8 2006/07/28 22:03:57 svittal noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_pmp_ins.'; -- Global package name
9: --
10: -- The following global variables are only to be used by
11: -- the set_base_key_value and pre_insert procedures.
12: --
22: --
23: Begin
24: hr_utility.set_location('Entering:'||l_proc, 10);
25: --
26: per_pmp_ins.g_plan_id_i := p_plan_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
29: End set_base_key_value;
30: --
285: Cursor C_Sel2 is
286: Select null
287: from per_perf_mgmt_plans
288: where plan_id =
289: per_pmp_ins.g_plan_id_i;
290: --
291: l_proc varchar2(72) := g_package||'pre_insert';
292: l_exists varchar2(1);
293: --
293: --
294: Begin
295: hr_utility.set_location('Entering:'||l_proc, 5);
296: --
297: If (per_pmp_ins.g_plan_id_i is not null) Then
298: --
299: -- Verify registered primary key values not already in use
300: --
301: Open C_Sel2;
313: --
314: -- Use registered key values and clear globals
315: --
316: p_rec.plan_id :=
317: per_pmp_ins.g_plan_id_i;
318: per_pmp_ins.g_plan_id_i := null;
319: Else
320: --
321: -- No registerd key values, so select the next sequence number
314: -- Use registered key values and clear globals
315: --
316: p_rec.plan_id :=
317: per_pmp_ins.g_plan_id_i;
318: per_pmp_ins.g_plan_id_i := null;
319: Else
320: --
321: -- No registerd key values, so select the next sequence number
322: --
547: hr_multi_message.end_validation_set;
548: --
549: -- Call the supporting pre-insert operation
550: --
551: per_pmp_ins.pre_insert(p_rec);
552: --
553: -- Insert the row
554: --
555: per_pmp_ins.insert_dml(p_rec);
551: per_pmp_ins.pre_insert(p_rec);
552: --
553: -- Insert the row
554: --
555: per_pmp_ins.insert_dml(p_rec);
556: --
557: -- Call the supporting post-insert operation
558: --
559: per_pmp_ins.post_insert
555: per_pmp_ins.insert_dml(p_rec);
556: --
557: -- Call the supporting post-insert operation
558: --
559: per_pmp_ins.post_insert
560: (p_effective_date
561: ,p_rec
562: ,p_duplicate_name_warning
563: ,p_no_life_events_warning
721: --
722: -- Having converted the arguments into the per_pmp_rec
723: -- plsql record structure we call the corresponding record business process.
724: --
725: per_pmp_ins.ins
726: (p_effective_date
727: ,l_rec
728: ,p_duplicate_name_warning
729: ,p_no_life_events_warning
739: hr_utility.set_location(' Leaving:'||l_proc, 10);
740:
741: End ins;
742: --
743: end per_pmp_ins;