1: Package Body per_apr_ins as
2: /* $Header: peaprrhi.pkb 120.8.12010000.4 2008/08/06 08:57:14 ubhat 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: --
285: Cursor C_Sel2 is
286: Select null
287: from per_appraisals
288: where appraisal_id =
289: per_apr_ins.g_appraisal_id_i;
290: --
291: Begin
292: hr_utility.set_location('Entering:'||l_proc, 5);
293:
292: hr_utility.set_location('Entering:'||l_proc, 5);
293:
294:
295: -- Select the next sequence number
296: If (per_apr_ins.g_appraisal_id_i is not null)
297: then
298: --
299: -- Verify registered primary key values not already in use
300: --
312: Close C_Sel2;
313: --
314: -- Use registered key values and clear globals
315: --
316: p_rec.appraisal_id := per_apr_ins.g_appraisal_id_i;
317: per_apr_ins.g_appraisal_id_i := null;
318: Else
319:
320: Open C_Sel1;
313: --
314: -- Use registered key values and clear globals
315: --
316: p_rec.appraisal_id := per_apr_ins.g_appraisal_id_i;
317: per_apr_ins.g_appraisal_id_i := null;
318: Else
319:
320: Open C_Sel1;
321: Fetch C_Sel1 Into p_rec.appraisal_id;
683:
684: hr_utility.set_location(' Leaving:'||l_proc, 10);
685: End ins;
686:
687: end per_apr_ins;