1: Package Body ota_nhs_ins as
2: /* $Header: otnhsrhi.pkb 120.2 2011/06/22 09:15:20 smahanka ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ota_nhs_ins.'; -- Global package name
9: --
10: --
11: -- The following global variables are only to be used by
12: -- the set_base_key_value and pre_insert procedures.
23: --
24: Begin
25: hr_utility.set_location('Entering:'||l_proc, 10);
26: --
27: ota_nhs_ins.g_nota_history_id_i := p_nota_history_id;
28: --
29: hr_utility.set_location(' Leaving:'||l_proc, 20);
30: End set_base_key_value;
31: --
241: Cursor C_Sel2 is
242: Select null
243: from ota_notrng_histories
244: where nota_history_id =
245: ota_nhs_ins.g_nota_history_id_i;
246: --
247: l_exists varchar2(1);
248: l_proc varchar2(72) := g_package||'pre_insert';
249: --
249: --
250: Begin
251: hr_utility.set_location('Entering:'||l_proc, 5);
252: --
253: If (ota_nhs_ins.g_nota_history_id_i is not null) Then
254: --
255: -- Verify registered primary key values not already in use
256: --
257: Open C_Sel2;
269: --
270: -- Use registered key values and clear globals
271: --
272: p_rec.nota_history_id :=
273: ota_nhs_ins.g_nota_history_id_i;
274: ota_nhs_ins.g_nota_history_id_i := null;
275: Else
276: --
277: -- No registerd key values, so select the next sequence number
270: -- Use registered key values and clear globals
271: --
272: p_rec.nota_history_id :=
273: ota_nhs_ins.g_nota_history_id_i;
274: ota_nhs_ins.g_nota_history_id_i := null;
275: Else
276: --
277: -- No registerd key values, so select the next sequence number
278: --
577: --
578: hr_utility.set_location(' Leaving:'||l_proc, 10);
579: End ins;
580: --
581: end ota_nhs_ins;