1: Package Body per_asn_ins as
2: /* $Header: peasnrhi.pkb 115.11 2003/09/01 08:19:06 bdivvela ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_asn_ins.'; -- Global package name
9: --
10: g_assessment_id_i number default null;
11: --
12: --
20: --
21: Begin
22: hr_utility.set_location('Entering:'||l_proc, 10);
23: --
24: per_asn_ins.g_assessment_id_i := p_assessment_id;
25: --
26: hr_utility.set_location(' Leaving:'||l_proc, 20);
27: End set_base_key_value;
28: --
221: Cursor C_Sel2 is
222: Select null
223: from per_assessments
224: where assessment_id =
225: per_asn_ins.g_assessment_id_i;
226: --
227:
228: Begin
229: hr_utility.set_location('Entering:'||l_proc, 5);
231: --
232: -- Select the next sequence number
233: --
234: -- Select the next sequence number
235: If (per_asn_ins.g_assessment_id_i is not null)
236: then
237: --
238: -- Verify registered primary key values not already in use
239: --
251: Close C_Sel2;
252: --
253: -- Use registered key values and clear globals
254: --
255: p_rec.assessment_id := per_asn_ins.g_assessment_id_i;
256: per_asn_ins.g_assessment_id_i := null;
257: Else
258:
259: Open C_Sel1;
252: --
253: -- Use registered key values and clear globals
254: --
255: p_rec.assessment_id := per_asn_ins.g_assessment_id_i;
256: per_asn_ins.g_assessment_id_i := null;
257: Else
258:
259: Open C_Sel1;
260: Fetch C_Sel1 Into p_rec.assessment_id;
540: --
541: hr_utility.set_location(' Leaving:'||l_proc, 10);
542: End ins;
543: --
544: end per_asn_ins;