6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' hxc_htr_bus.'; -- Global package name
9:
10: g_debug boolean := hr_utility.debug_enabled;
11: --
12: -- ----------------------------------------------------------------------------
13: -- |-----------------------< chk_name >---------------------------------------|
14: -- ----------------------------------------------------------------------------
55: --
56: l_dup_name varchar2(5) := NULL;
57: --
58: BEGIN
59: g_debug := hr_utility.debug_enabled;
60:
61: if g_debug then
62: l_proc := g_package||'chk_name';
63: hr_utility.set_location('Entering:'||l_proc, 5);
59: g_debug := hr_utility.debug_enabled;
60:
61: if g_debug then
62: l_proc := g_package||'chk_name';
63: hr_utility.set_location('Entering:'||l_proc, 5);
64: end if;
65: --
66: -- check that the name has been entered
67: --
67: --
68: IF p_name IS NULL
69: THEN
70: --
71: hr_utility.set_message(809, 'HXC_0065_HTR_NAME_MAND');
72: hr_utility.raise_error;
73: --
74: END IF;
75: if g_debug then
68: IF p_name IS NULL
69: THEN
70: --
71: hr_utility.set_message(809, 'HXC_0065_HTR_NAME_MAND');
72: hr_utility.raise_error;
73: --
74: END IF;
75: if g_debug then
76: hr_utility.set_location('Processing:'||l_proc, 10);
72: hr_utility.raise_error;
73: --
74: END IF;
75: if g_debug then
76: hr_utility.set_location('Processing:'||l_proc, 10);
77: end if;
78: --
79: -- check that the name is unique
80: --
84: --
85: IF l_dup_name IS NOT NULL
86: THEN
87: --
88: hr_utility.set_message(809, 'HXC_0066_HTR_DUP_NAME');
89: hr_utility.raise_error;
90: --
91: END IF;
92: --
85: IF l_dup_name IS NOT NULL
86: THEN
87: --
88: hr_utility.set_message(809, 'HXC_0066_HTR_DUP_NAME');
89: hr_utility.raise_error;
90: --
91: END IF;
92: --
93: if g_debug then
90: --
91: END IF;
92: --
93: if g_debug then
94: hr_utility.set_location('Leaving:'||l_proc, 20);
95: end if;
96: --
97: END chk_name;
98: --
138: CLOSE csr_chk_app_id;
139:
140: IF ( l_invalid_id = 'Y' )
141: THEN
142: hr_utility.set_message(809, 'HXC_0068_HTR_APP_ID_INVLD');
143: hr_utility.raise_error;
144: END IF;
145: --
146: END chk_application_id;
139:
140: IF ( l_invalid_id = 'Y' )
141: THEN
142: hr_utility.set_message(809, 'HXC_0068_HTR_APP_ID_INVLD');
143: hr_utility.raise_error;
144: END IF;
145: --
146: END chk_application_id;
147: --
229: CLOSE csr_chk_ret;
230:
231: IF ( l_used_elsewhere = 'Y' )
232: THEN
233: hr_utility.set_message(809, 'HXC_0069_HTR_IN_USE');
234: hr_utility.raise_error;
235: END IF;
236:
237: OPEN csr_chk_rrc;
230:
231: IF ( l_used_elsewhere = 'Y' )
232: THEN
233: hr_utility.set_message(809, 'HXC_0069_HTR_IN_USE');
234: hr_utility.raise_error;
235: END IF;
236:
237: OPEN csr_chk_rrc;
238: FETCH csr_chk_rrc INTO l_used_elsewhere;
239: CLOSE csr_chk_rrc;
240:
241: IF ( l_used_elsewhere = 'Y' )
242: THEN
243: hr_utility.set_message(809, 'HXC_0069_HTR_IN_USE');
244: hr_utility.raise_error;
245: END IF;
246:
247: OPEN csr_chk_apc;
240:
241: IF ( l_used_elsewhere = 'Y' )
242: THEN
243: hr_utility.set_message(809, 'HXC_0069_HTR_IN_USE');
244: hr_utility.raise_error;
245: END IF;
246:
247: OPEN csr_chk_apc;
248: FETCH csr_chk_apc INTO l_used_elsewhere;
249: CLOSE csr_chk_apc;
250:
251: IF ( l_used_elsewhere = 'Y' )
252: THEN
253: hr_utility.set_message(809, 'HXC_0069_HTR_IN_USE');
254: hr_utility.raise_error;
255: END IF;
256:
257: OPEN csr_chk_daru;
250:
251: IF ( l_used_elsewhere = 'Y' )
252: THEN
253: hr_utility.set_message(809, 'HXC_0069_HTR_IN_USE');
254: hr_utility.raise_error;
255: END IF;
256:
257: OPEN csr_chk_daru;
258: FETCH csr_chk_daru INTO l_used_elsewhere;
259: CLOSE csr_chk_daru;
260:
261: IF ( l_used_elsewhere = 'Y' )
262: THEN
263: hr_utility.set_message(809, 'HXC_0069_HTR_IN_USE');
264: hr_utility.raise_error;
265: END IF;
266:
267: OPEN csr_chk_ac;
260:
261: IF ( l_used_elsewhere = 'Y' )
262: THEN
263: hr_utility.set_message(809, 'HXC_0069_HTR_IN_USE');
264: hr_utility.raise_error;
265: END IF;
266:
267: OPEN csr_chk_ac;
268: FETCH csr_chk_ac INTO l_used_elsewhere;
269: CLOSE csr_chk_ac;
270:
271: IF ( l_used_elsewhere = 'Y' )
272: THEN
273: hr_utility.set_message(809, 'HXC_0069_HTR_IN_USE');
274: hr_utility.raise_error;
275: END IF;
276:
277: OPEN csr_chk_asc;
270:
271: IF ( l_used_elsewhere = 'Y' )
272: THEN
273: hr_utility.set_message(809, 'HXC_0069_HTR_IN_USE');
274: hr_utility.raise_error;
275: END IF;
276:
277: OPEN csr_chk_asc;
278: FETCH csr_chk_asc INTO l_used_elsewhere;
279: CLOSE csr_chk_asc;
280:
281: IF ( l_used_elsewhere = 'Y' )
282: THEN
283: hr_utility.set_message(809, 'HXC_0069_HTR_IN_USE');
284: hr_utility.raise_error;
285: END IF;
286:
287: END chk_delete;
280:
281: IF ( l_used_elsewhere = 'Y' )
282: THEN
283: hr_utility.set_message(809, 'HXC_0069_HTR_IN_USE');
284: hr_utility.raise_error;
285: END IF;
286:
287: END chk_delete;
288:
357: --
358: l_proc varchar2(72);
359: --
360: Begin
361: g_debug := hr_utility.debug_enabled;
362:
363: if g_debug then
364: l_proc := g_package||'insert_validate';
365: hr_utility.set_location('Entering:'||l_proc, 5);
361: g_debug := hr_utility.debug_enabled;
362:
363: if g_debug then
364: l_proc := g_package||'insert_validate';
365: hr_utility.set_location('Entering:'||l_proc, 5);
366: end if;
367: --
368: -- Call all supporting business operations
369: --
375: -- CLIENT_INFO not set. No lookup validation or joins to HR_LOOKUPS.
376: --
377: --
378: if g_debug then
379: hr_utility.set_location(' Leaving:'||l_proc, 10);
380: end if;
381: End insert_validate;
382: --
383: -- ----------------------------------------------------------------------------
390: --
391: l_proc varchar2(72);
392: --
393: Begin
394: g_debug := hr_utility.debug_enabled;
395:
396: if g_debug then
397: l_proc := g_package||'update_validate';
398: hr_utility.set_location('Entering:'||l_proc, 5);
394: g_debug := hr_utility.debug_enabled;
395:
396: if g_debug then
397: l_proc := g_package||'update_validate';
398: hr_utility.set_location('Entering:'||l_proc, 5);
399: end if;
400: --
401: -- Call all supporting business operations
402: --
413: );
414: --
415: --
416: if g_debug then
417: hr_utility.set_location(' Leaving:'||l_proc, 10);
418: end if;
419: End update_validate;
420: --
421: -- ----------------------------------------------------------------------------
427: --
428: l_proc varchar2(72);
429: --
430: Begin
431: g_debug := hr_utility.debug_enabled;
432:
433: if g_debug then
434: l_proc := g_package||'delete_validate';
435: hr_utility.set_location('Entering:'||l_proc, 5);
431: g_debug := hr_utility.debug_enabled;
432:
433: if g_debug then
434: l_proc := g_package||'delete_validate';
435: hr_utility.set_location('Entering:'||l_proc, 5);
436: end if;
437: --
438: -- Call all supporting business operations
439: --
439: --
440: hxc_htr_bus.chk_delete ( p_time_recipient_id => p_rec.time_recipient_id );
441:
442: if g_debug then
443: hr_utility.set_location(' Leaving:'||l_proc, 10);
444: end if;
445: End delete_validate;
446: --
447: end hxc_htr_bus;