1: Package Body per_apr_ins as
2: /* $Header: peaprrhi.pkb 120.29.12020000.2 2012/07/05 00:47:21 amnaraya ship $ */
3:
4: -- ---------------------------------------------------------------------------+
5: -- | Private Global Definitions |
4: -- ---------------------------------------------------------------------------+
5: -- | Private Global Definitions |
6: -- ---------------------------------------------------------------------------+
7:
8: g_package varchar2(33) := ' per_apr_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_apr_ins.g_appraisal_id_i := p_appraisal_id;
28: --
29: hr_utility.set_location(' Leaving:'||l_proc, 20);
30: End set_base_key_value;
31: --
289: Cursor C_Sel2 is
290: Select null
291: from per_appraisals
292: where appraisal_id =
293: per_apr_ins.g_appraisal_id_i;
294: --
295: Begin
296: hr_utility.set_location('Entering:'||l_proc, 5);
297:
296: hr_utility.set_location('Entering:'||l_proc, 5);
297:
298:
299: -- Select the next sequence number
300: If (per_apr_ins.g_appraisal_id_i is not null)
301: then
302: --
303: -- Verify registered primary key values not already in use
304: --
316: Close C_Sel2;
317: --
318: -- Use registered key values and clear globals
319: --
320: p_rec.appraisal_id := per_apr_ins.g_appraisal_id_i;
321: per_apr_ins.g_appraisal_id_i := null;
322: Else
323:
324: Open C_Sel1;
317: --
318: -- Use registered key values and clear globals
319: --
320: p_rec.appraisal_id := per_apr_ins.g_appraisal_id_i;
321: per_apr_ins.g_appraisal_id_i := null;
322: Else
323:
324: Open C_Sel1;
325: Fetch C_Sel1 Into p_rec.appraisal_id;
693:
694: hr_utility.set_location(' Leaving:'||l_proc, 10);
695: End ins;
696:
697: end per_apr_ins;