[Home] [Help]
1: Package Body ota_tdb_ins as
2: /* $Header: ottdb01t.pkb 120.30 2011/02/07 11:01:05 shwnayak ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ota_tdb_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: ota_tdb_ins.g_booking_id_i := p_booking_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
29: End set_base_key_value;
30: --
313: Cursor C_Sel2 is
314: Select null
315: from ota_delegate_bookings
316: where booking_id =
317: ota_tdb_ins.g_booking_id_i;
318: --
319: l_exists varchar2(1);
320: --
321: Begin
320: --
321: Begin
322: hr_utility.set_location('Entering:'||l_proc, 5);
323:
324: If (ota_tdb_ins.g_booking_id_i is not null) Then
325: --
326: -- Verify registered primary key values not already in use
327: --
328: Open C_Sel2;
340: --
341: -- Use registered key values and clear globals
342: --
343: p_rec.booking_id :=
344: ota_tdb_ins.g_booking_id_i;
345: ota_tdb_ins.g_booking_id_i := null;
346: Else
347: --
348: -- No registerd key values, so select the next sequence number
341: -- Use registered key values and clear globals
342: --
343: p_rec.booking_id :=
344: ota_tdb_ins.g_booking_id_i;
345: ota_tdb_ins.g_booking_id_i := null;
346: Else
347: --
348: -- No registerd key values, so select the next sequence number
349: --
711: --
712: hr_utility.set_location(' Leaving:'||l_proc, 10);
713: End ins;
714: --
715: end ota_tdb_ins;
716: