1: Package body hxc_tkgq_ins as
2: /* $Header: hxctkgqrhi.pkb 120.2 2005/09/23 09:33:26 rchennur noship $ */
3: --
4: g_package varchar2(33) := ' hxc_tkgq_ins.'; -- Global package name
5: g_debug boolean := hr_utility.debug_enabled;
6: -- ----------------------------------------------------------------------------
7: -- |------------------------------< insert_dml >------------------------------|
8: -- ----------------------------------------------------------------------------
9: --
53: Begin
54:
55: if g_debug then
56: l_proc := g_package||'insert_dml';
57: hr_utility.set_location('Entering:'||l_proc, 5);
58: end if;
59: p_rec.object_version_number := 1; -- Initialise the object version
60: --
61: hxc_tkgq_shd.g_api_dml := true; -- Set the api dml status
91: --
92: hxc_tkgq_shd.g_api_dml := false; -- Unset the api dml status
93: --
94: if g_debug then
95: hr_utility.set_location(' Leaving:'||l_proc, 10);
96: end if;
97: Exception
98: When hr_api.check_integrity_violated Then
99: -- A check constraint has been violated
161: Begin
162:
163: if g_debug then
164: l_proc := g_package||'pre_insert';
165: hr_utility.set_location('Entering:'||l_proc, 5);
166: end if;
167: --
168: --
169: -- Select the next sequence number
172: Fetch C_Sel1 Into p_rec.tk_group_query_id;
173: Close C_Sel1;
174: --
175: if g_debug then
176: hr_utility.set_location(' Leaving:'||l_proc, 10);
177: end if;
178: End pre_insert;
179: --
180: -- ----------------------------------------------------------------------------
216: Begin
217:
218: if g_debug then
219: l_proc := g_package||'post_insert';
220: hr_utility.set_location('Entering:'||l_proc, 5);
221: end if;
222: begin
223: --
224: hxc_tkgq_rki.after_insert
246: --
247: end;
248: --
249: if g_debug then
250: hr_utility.set_location(' Leaving:'||l_proc, 10);
251: end if;
252: End post_insert;
253: --
254: -- ----------------------------------------------------------------------------
298: --
299: l_proc varchar2(72) ;
300: --
301: Begin
302: g_debug :=hr_utility.debug_enabled;
303: if g_debug then
304: l_proc := g_package||'ins';
305: hr_utility.set_location('Entering:'||l_proc, 5);
306: end if;
301: Begin
302: g_debug :=hr_utility.debug_enabled;
303: if g_debug then
304: l_proc := g_package||'ins';
305: hr_utility.set_location('Entering:'||l_proc, 5);
306: end if;
307: --
308: -- Call the supporting insert validate operations
309: --
325: (p_rec
326: );
327: --
328: if g_debug then
329: hr_utility.set_location('Leaving:'||l_proc, 20);
330: end if;
331: end ins;
332: --
333: -- ----------------------------------------------------------------------------
377: l_rec hxc_tkgq_shd.g_rec_type;
378: l_proc varchar2(72) ;
379: --
380: Begin
381: g_debug :=hr_utility.debug_enabled;
382: if g_debug then
383: l_proc := g_package||'ins';
384: hr_utility.set_location('Entering:'||l_proc, 5);
385: end if;
380: Begin
381: g_debug :=hr_utility.debug_enabled;
382: if g_debug then
383: l_proc := g_package||'ins';
384: hr_utility.set_location('Entering:'||l_proc, 5);
385: end if;
386: --
387: -- Call conversion function to turn arguments into the
388: -- p_rec structure.
410: p_tk_group_query_id := l_rec.tk_group_query_id;
411: p_object_version_number := l_rec.object_version_number;
412: --
413: if g_debug then
414: hr_utility.set_location(' Leaving:'||l_proc, 10);
415: end if;
416: End ins;
417: --
418: end hxc_tkgq_ins;