[Home] [Help]
1: Package Body hr_trn_ins as
2: /* $Header: hrtrnrhi.pkb 120.2 2005/09/21 04:59:16 hpandya noship $ */
3:
4: --
5: -- ----------------------------------------------------------------------------
5: -- ----------------------------------------------------------------------------
6: -- | Private Global Definitions |
7: -- ----------------------------------------------------------------------------
8: --
9: g_package varchar2(33) := ' hr_trn_ins.'; -- Global package name
10:
11: -- The following global variables are only to be used by
12: -- the set_base_key_value and pre_insert procedures.
13: --
24: --
25: Begin
26: hr_utility.set_location('Entering:'||l_proc, 10);
27: --
28: hr_trn_ins.g_transaction_id_i := p_transaction_id;
29: --
30: hr_utility.set_location(' Leaving:'||l_proc, 20);
31: End set_base_key_value;
32:
219:
220: Cursor C_Sel2 is
221: select null
222: from hr_api_transactions
223: where transaction_id = hr_trn_ins.g_transaction_id_i;
224: --
225: Begin
226: hr_utility.set_location('Entering:'||l_proc, 5);
227:
224: --
225: Begin
226: hr_utility.set_location('Entering:'||l_proc, 5);
227:
228: If hr_trn_ins.g_transaction_id_i is not null then
229: --
230: -- Verify registered primary key values not already in use
231: --
232: Open C_Sel2;
243: Close C_Sel2;
244: --
245: -- Use registered key values and clear globals
246: --
247: p_rec.transaction_id := hr_trn_ins.g_transaction_id_i;
248: hr_trn_ins.g_transaction_id_i := null;
249: --
250: else
251: --
244: --
245: -- Use registered key values and clear globals
246: --
247: p_rec.transaction_id := hr_trn_ins.g_transaction_id_i;
248: hr_trn_ins.g_transaction_id_i := null;
249: --
250: else
251: --
252: --
530: --
531: hr_utility.set_location(' Leaving:'||l_proc, 10);
532: End ins;
533:
534: end hr_trn_ins;