4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7:
8: g_debug boolean := hr_utility.debug_enabled;
9:
10: CURSOR csr_chk_ref_integ ( p_time_category_id NUMBER ) IS
11: SELECT DISTINCT ter.time_entry_rule_id
12: , dfcu.application_column_name
150:
151: l_dup_time_category varchar2(5) := NULL;
152:
153: BEGIN
154: g_debug := hr_utility.debug_enabled;
155:
156: if g_debug then
157: l_proc := g_package||'chk_time_category';
158: hr_utility.set_location('Entering:'||l_proc, 5);
154: g_debug := hr_utility.debug_enabled;
155:
156: if g_debug then
157: l_proc := g_package||'chk_time_category';
158: hr_utility.set_location('Entering:'||l_proc, 5);
159: end if;
160:
161: -- check that the time category code is unique
162:
166:
167: IF l_dup_time_category IS NOT NULL
168: THEN
169:
170: hr_utility.set_message(809, 'HXC_HTC_DUPLICATE_TC');
171: hr_utility.raise_error;
172:
173: END IF;
174:
167: IF l_dup_time_category IS NOT NULL
168: THEN
169:
170: hr_utility.set_message(809, 'HXC_HTC_DUPLICATE_TC');
171: hr_utility.raise_error;
172:
173: END IF;
174:
175: --
173: END IF;
174:
175: --
176: if g_debug then
177: hr_utility.set_location('Leaving:'||l_proc, 20);
178: end if;
179: --
180: END chk_time_category;
181:
278:
279: l_exists VARCHAR2(6) := NULL;
280:
281: BEGIN
282: g_debug := hr_utility.debug_enabled;
283:
284: if g_debug then
285: l_proc := g_package||'chk_delete';
286: hr_utility.set_location('Entering:'||l_proc, 5);
282: g_debug := hr_utility.debug_enabled;
283:
284: if g_debug then
285: l_proc := g_package||'chk_delete';
286: hr_utility.set_location('Entering:'||l_proc, 5);
287: end if;
288:
289: -- check that time_category is not being used by another time category
290:
292: FETCH csr_chk_tcc INTO l_exists;
293: CLOSE csr_chk_tcc;
294:
295: if g_debug then
296: hr_utility.set_location('Processing: '||l_proc, 10);
297: end if;
298:
299: IF l_exists IS NOT NULL
300: THEN
298:
299: IF l_exists IS NOT NULL
300: THEN
301:
302: hr_utility.set_message(809, 'HXC_HTC_TC_IN_USE');
303: hr_utility.raise_error;
304:
305: END IF;
306:
299: IF l_exists IS NOT NULL
300: THEN
301:
302: hr_utility.set_message(809, 'HXC_HTC_TC_IN_USE');
303: hr_utility.raise_error;
304:
305: END IF;
306:
307: if g_debug then
304:
305: END IF;
306:
307: if g_debug then
308: hr_utility.set_location('Processing: '||l_proc,20);
309: end if;
310:
311: -- check to see that this time category is not being referenced in any
312: -- of the seeded formula or other formula which have been coded using
314:
315: IF ( NOT hxc_htc_bus.chk_tc_ref_integrity ( p_time_category_id ) )
316: THEN
317:
318: hr_utility.set_message(809, 'HXC_HTC_TC_IN_USE');
319: hr_utility.raise_error;
320:
321: END IF;
322:
315: IF ( NOT hxc_htc_bus.chk_tc_ref_integrity ( p_time_category_id ) )
316: THEN
317:
318: hr_utility.set_message(809, 'HXC_HTC_TC_IN_USE');
319: hr_utility.raise_error;
320:
321: END IF;
322:
323: END chk_delete;
331: --
332: l_proc varchar2(72);
333: --
334: Begin
335: g_debug := hr_utility.debug_enabled;
336:
337: if g_debug then
338: l_proc := g_package||'insert_validate';
339: hr_utility.set_location('Entering:'||l_proc, 5);
335: g_debug := hr_utility.debug_enabled;
336:
337: if g_debug then
338: l_proc := g_package||'insert_validate';
339: hr_utility.set_location('Entering:'||l_proc, 5);
340: end if;
341: --
342: -- Call all supporting business operations
343: --
366: p_time_category_name => p_rec.time_category_name
367: ,p_time_category_id => p_rec.time_category_id );
368: --
369: if g_debug then
370: hr_utility.set_location(' Leaving:'||l_proc, 10);
371: end if;
372: End insert_validate;
373: --
374: -- ----------------------------------------------------------------------------
380: --
381: l_proc varchar2(72);
382: --
383: Begin
384: g_debug := hr_utility.debug_enabled;
385:
386: if g_debug then
387: l_proc := g_package||'update_validate';
388: hr_utility.set_location('Entering:'||l_proc, 5);
384: g_debug := hr_utility.debug_enabled;
385:
386: if g_debug then
387: l_proc := g_package||'update_validate';
388: hr_utility.set_location('Entering:'||l_proc, 5);
389: end if;
390: --
391: -- Call all supporting business operations
392: --
421: );
422: --
423: --
424: if g_debug then
425: hr_utility.set_location(' Leaving:'||l_proc, 10);
426: end if;
427: End update_validate;
428: --
429: -- ----------------------------------------------------------------------------
435: --
436: l_proc varchar2(72);
437: --
438: Begin
439: g_debug := hr_utility.debug_enabled;
440:
441: if g_debug then
442: l_proc := g_package||'delete_validate';
443: hr_utility.set_location('Entering:'||l_proc, 5);
439: g_debug := hr_utility.debug_enabled;
440:
441: if g_debug then
442: l_proc := g_package||'delete_validate';
443: hr_utility.set_location('Entering:'||l_proc, 5);
444: end if;
445: --
446: -- Call all supporting business operations
447: --
447: --
448: chk_delete ( p_time_category_id => p_rec.time_category_id );
449: --
450: if g_debug then
451: hr_utility.set_location(' Leaving:'||l_proc, 10);
452: end if;
453: End delete_validate;
454: --
455: end hxc_htc_bus;