1: Package Body per_apt_ins as
2: /* $Header: peaptrhi.pkb 120.4.12010000.3 2008/08/06 08:57:55 ubhat ship $ */
3:
4: -- ---------------------------------------------------------------------------+
5: -- | Private Global Definitions |
4: -- ---------------------------------------------------------------------------+
5: -- | Private Global Definitions |
6: -- ---------------------------------------------------------------------------+
7:
8: g_package varchar2(33) := ' per_apt_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: --
23: --
24: Begin
25: hr_utility.set_location('Entering:'||l_proc, 10);
26: --
27: per_apt_ins.g_appraisal_template_id_i := p_appraisal_template_id;
28: --
29: hr_utility.set_location(' Leaving:'||l_proc, 20);
30: End set_base_key_value;
31: --
257: Cursor C_Sel1 is select per_appraisal_templates_s.nextval from sys.dual;
258:
259: Cursor C_Sel2 is
260: select null from per_appraisal_templates
261: where appraisal_template_id = per_apt_ins.g_appraisal_template_id_i;
262:
263: Begin
264: hr_utility.set_location('Entering:'||l_proc, 5);
265:
264: hr_utility.set_location('Entering:'||l_proc, 5);
265:
266:
267: -- Select the next sequence number
268: if (per_apt_ins.g_appraisal_template_id_i is not null ) then
269: Open C_Sel2;
270: Fetch C_Sel2 Into l_exists;
271: if C_Sel2%Found then
272: Close C_Sel2;
280: Close C_Sel2;
281: --
282: -- Use registered key values and clear globals
283: --
284: p_rec.appraisal_template_id := per_apt_ins.g_appraisal_template_id_i;
285: per_apt_ins.g_appraisal_template_id_i := null;
286:
287: Else
288: Open C_Sel1;
281: --
282: -- Use registered key values and clear globals
283: --
284: p_rec.appraisal_template_id := per_apt_ins.g_appraisal_template_id_i;
285: per_apt_ins.g_appraisal_template_id_i := null;
286:
287: Else
288: Open C_Sel1;
289: Fetch C_Sel1 Into p_rec.appraisal_template_id;
605:
606: hr_utility.set_location(' Leaving:'||l_proc, 10);
607: End ins;
608:
609: end per_apt_ins;