[Home] [Help]
1: Package Body per_add_ins as
2: /* $Header: peaddrhi.pkb 120.8 2011/11/15 11:36:00 sidsaxen ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_add_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_add_ins.g_address_id_i := p_address_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
29: End set_base_key_value;
30: --
276: --
277: Cursor C_Sel2 is
278: select null
279: from per_addresses
280: where address_id = per_add_ins.g_address_id_i;
281: --
282: l_date date;
283: l_last_update date;
284: --
289: --
290: Begin
291: hr_utility.set_location('Entering:'||l_proc, 10);
292: --
293: if per_add_ins.g_address_id_i is not null then
294: --
295: -- Verify registered primary key values not already in use
296: --
297: Open C_Sel2;
309: --
310: -- Use registered key values and clear globals
311: --
312: p_rec.address_id :=
313: per_add_ins.g_address_id_i;
314: per_add_ins.g_address_id_i := null;
315: else
316: --
317: -- Select the next sequence number
310: -- Use registered key values and clear globals
311: --
312: p_rec.address_id :=
313: per_add_ins.g_address_id_i;
314: per_add_ins.g_address_id_i := null;
315: else
316: --
317: -- Select the next sequence number
318: --
789: --
790: hr_utility.set_location(' Leaving:'||l_proc, 10);
791: End ins;
792: --
793: end per_add_ins;