5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' hxc_hac_ins.'; -- Global package name
9: g_debug boolean := hr_utility.debug_enabled;
10: --
11: -- ----------------------------------------------------------------------------
12: -- |------------------------------< insert_dml >------------------------------|
13: -- ----------------------------------------------------------------------------
59: --
60: Begin
61: if g_debug then
62: l_proc := g_package||'insert_dml';
63: hr_utility.set_location('Entering:'||l_proc, 5);
64: end if;
65: p_rec.object_version_number := 1; -- Initialise the object version
66: --
67: hxc_hac_shd.g_api_dml := true; -- Set the api dml status
115: --
116: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
117: --
118: if g_debug then
119: hr_utility.set_location(' Leaving:'||l_proc, 10);
120: end if;
121: Exception
122: When hr_api.check_integrity_violated Then
123: -- A check constraint has been violated
186: --
187: Begin
188: if g_debug then
189: l_proc := g_package||'pre_insert';
190: hr_utility.set_location('Entering:'||l_proc, 5);
191: end if;
192: --
193: --
194: -- Select the next sequence number
197: Fetch C_Sel1 Into p_rec.approval_comp_id;
198: Close C_Sel1;
199: --
200: if g_debug then
201: hr_utility.set_location(' Leaving:'||l_proc, 10);
202: end if;
203: End pre_insert;
204: --
205: -- ----------------------------------------------------------------------------
243: --
244: Begin
245: if g_debug then
246: l_proc := g_package||'post_insert';
247: hr_utility.set_location('Entering:'||l_proc, 5);
248: end if;
249: begin
250: --
251:
299: --
300: end;
301: --
302: if g_debug then
303: hr_utility.set_location(' Leaving:'||l_proc, 10);
304: end if;
305: End post_insert;
306: --
307: -- ----------------------------------------------------------------------------
314: --
315: l_proc varchar2(72);
316: --
317: Begin
318: g_debug:=hr_utility.debug_enabled;
319: if g_debug then
320: l_proc := g_package||'ins';
321: hr_utility.set_location('Entering:'||l_proc, 5);
322: end if;
317: Begin
318: g_debug:=hr_utility.debug_enabled;
319: if g_debug then
320: l_proc := g_package||'ins';
321: hr_utility.set_location('Entering:'||l_proc, 5);
322: end if;
323: --
324: -- Call the supporting insert validate operations
325: --
343: ,p_rec
344: );
345: --
346: if g_debug then
347: hr_utility.set_location('Leaving:'||l_proc, 20);
348: end if;
349: end ins;
350: --
351: -- ----------------------------------------------------------------------------
373: l_rec hxc_hac_shd.g_rec_type;
374: l_proc varchar2(72);
375: --
376: Begin
377: g_debug:=hr_utility.debug_enabled;
378: if g_debug then
379: l_proc := g_package||'ins';
380: hr_utility.set_location('Entering:'||l_proc, 5);
381: end if;
376: Begin
377: g_debug:=hr_utility.debug_enabled;
378: if g_debug then
379: l_proc := g_package||'ins';
380: hr_utility.set_location('Entering:'||l_proc, 5);
381: end if;
382: --
383: -- Call conversion function to turn arguments into the
384: -- p_rec structure.
416: p_approval_comp_id := l_rec.approval_comp_id;
417: p_object_version_number := l_rec.object_version_number;
418: --
419: if g_debug then
420: hr_utility.set_location(' Leaving:'||l_proc, 10);
421: end if;
422: End ins;
423: --
424: end hxc_hac_ins;