1: Package Body per_ast_ins as
2: /* $Header: peastrhi.pkb 120.7.12010000.2 2008/10/20 14:11:39 kgowripe ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_ast_ins.'; -- Global package name
9: --
10: --
11: -- The following global variables are only to be used by
12: -- the set_base_key_value and pre_insert procedures.
24: --
25: Begin
26: hr_utility.set_location('Entering:'||l_proc, 10);
27: --
28: per_ast_ins.g_assessment_type_id_i := p_assessment_type_id;
29: --
30: hr_utility.set_location(' Leaving:'||l_proc, 20);
31: End set_base_key_value;
32: --
247: --
248: Cursor C_Sel1 is select per_assessment_types_s.nextval from sys.dual;
249: Cursor C_Sel2 is
250: select null from per_assessment_types
251: where assessment_type_id = per_ast_ins.g_assessment_type_id_i;
252:
253: --
254: --
255: Begin
256: hr_utility.set_location('Entering:'||l_proc, 5);
257: --
258: -- Select the next sequence number
259: --
260: if ( per_ast_ins.g_assessment_type_id_i is not null ) then
261:
262: Open C_Sel2;
263: Fetch C_Sel2 Into l_exists;
264: if C_Sel2%Found then
273: Close C_Sel2;
274: --
275: -- Use registered key values and clear globals
276: --
277: p_rec.assessment_type_id := per_ast_ins.g_assessment_type_id_i;
278: per_ast_ins.g_assessment_type_id_i := null;
279:
280: Else
281: Open C_Sel1;
274: --
275: -- Use registered key values and clear globals
276: --
277: p_rec.assessment_type_id := per_ast_ins.g_assessment_type_id_i;
278: per_ast_ins.g_assessment_type_id_i := null;
279:
280: Else
281: Open C_Sel1;
282: Fetch C_Sel1 Into p_rec.assessment_type_id;
574: --
575: hr_utility.set_location(' Leaving:'||l_proc, 10);
576: End ins;
577: --
578: end per_ast_ins;