[Home] [Help]
1: Package Body per_pyp_ins as
2: /* $Header: pepyprhi.pkb 120.24 2011/09/28 10:47:13 akaranam ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_pyp_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_pyp_ins.g_pay_proposal_id_i := p_pay_proposal_id;
27: --
28: hr_utility.set_location(' leaving:'||l_proc, 20);
29: end set_base_key_value;
30: --
239: cursor c_sel2 is
240: select null
241: from per_pay_proposals
242: where pay_proposal_id =
243: per_pyp_ins.g_pay_proposal_id_i;
244: --
245: l_exists varchar2(1);
246: --
247: Begin
246: --
247: Begin
248: hr_utility.set_location('entering:'||l_proc, 5);
249: --
250: if (per_pyp_ins.g_pay_proposal_id_i is not null) then
251: --
252: -- verify registered primary key values not already in use
253: --
254: open c_sel2;
265: close c_sel2;
266: --
267: -- use registered key values and clear globals
268: --
269: p_rec.pay_proposal_id := per_pyp_ins.g_pay_proposal_id_i;
270: --
271: per_pyp_ins.g_pay_proposal_id_i := null;
272: else
273: --
267: -- use registered key values and clear globals
268: --
269: p_rec.pay_proposal_id := per_pyp_ins.g_pay_proposal_id_i;
270: --
271: per_pyp_ins.g_pay_proposal_id_i := null;
272: else
273: --
274: -- no registerd key values, so select the next sequence number
275: --
750: --
751: hr_utility.set_location(' Leaving:'||l_proc, 10);
752: End ins;
753: --
754: end per_pyp_ins;