[Home] [Help]
1: Package Body per_phn_ins as
2: /* $Header: pephnrhi.pkb 120.3 2010/05/18 12:11:28 sidsaxen ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_phn_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: --
22: --
23: Begin
24: hr_utility.set_location('Entering:'||l_proc, 10);
25: --
26: per_phn_ins.g_phone_id_i := p_phone_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
29: End set_base_key_value;
30: -- ----------------------------------------------------------------------------
225: --
226: Cursor C_Sel2 is
227: select null
228: from per_phones
229: where phone_id = per_phn_ins.g_phone_id_i;
230: --
231: Begin
232: hr_utility.set_location('Entering:'||l_proc, 5);
233: --
230: --
231: Begin
232: hr_utility.set_location('Entering:'||l_proc, 5);
233: --
234: if per_phn_ins.g_phone_id_i is not null then
235: --
236: -- Verify registered primary key values not already in use
237: --
238: Open C_Sel2;
250: --
251: -- Use registered key values and clear globals
252: --
253: p_rec.phone_id :=
254: per_phn_ins.g_phone_id_i;
255: per_phn_ins.g_phone_id_i := null;
256: else
257: --
258: -- Select the next sequence number
251: -- Use registered key values and clear globals
252: --
253: p_rec.phone_id :=
254: per_phn_ins.g_phone_id_i;
255: per_phn_ins.g_phone_id_i := null;
256: else
257: --
258: -- Select the next sequence number
259: --
550: --
551: hr_utility.set_location(' Leaving:'||l_proc, 10);
552: End ins;
553: --
554: end per_phn_ins;