6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' hxc_rtr_bus.'; -- Global package name
9:
10: g_debug boolean := hr_utility.debug_enabled;
11: --
12: -- The following two global variables are only to be
13: -- used by the return_legislation_code function.
14: --
43: l_security_group_id number;
44: l_proc varchar2(72) ;
45: --
46: begin
47: g_debug := hr_utility.debug_enabled;
48:
49: --
50: if g_debug then
51: l_proc := g_package||'set_security_group_id';
48:
49: --
50: if g_debug then
51: l_proc := g_package||'set_security_group_id';
52: hr_utility.set_location('Entering:'|| l_proc, 10);
53: end if;
54: --
55: -- Ensure that all the mandatory parameter are not null
56: --
81: (p_security_group_id => l_security_group_id
82: );
83: --
84: if g_debug then
85: hr_utility.set_location(' Leaving:'|| l_proc, 20);
86: end if;
87: --
88: end set_security_group_id;
89: --
116: l_legislation_code varchar2(150);
117: l_proc varchar2(72) ;
118: --
119: Begin
120: g_debug := hr_utility.debug_enabled;
121:
122: --
123: if g_debug then
124: l_proc := g_package||'return_legislation_code';
121:
122: --
123: if g_debug then
124: l_proc := g_package||'return_legislation_code';
125: hr_utility.set_location('Entering:'|| l_proc, 10);
126: end if;
127: --
128: -- Ensure that all the mandatory parameter are not null
129: --
141: -- variable.
142: --
143: l_legislation_code := hxc_rtr_bus.g_legislation_code;
144: if g_debug then
145: hr_utility.set_location(l_proc, 20);
146: end if;
147: else
148: --
149: -- The ID is different to the last call to this function
160: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
161: fnd_message.raise_error;
162: end if;
163: if g_debug then
164: hr_utility.set_location(l_proc,30);
165: end if;
166: --
167: -- Set the global variables so the values are
168: -- available for the next call to this function.
171: hxc_rtr_bus.g_retrieval_rule_id := p_retrieval_rule_id;
172: hxc_rtr_bus.g_legislation_code := l_legislation_code;
173: end if;
174: if g_debug then
175: hr_utility.set_location(' Leaving:'|| l_proc, 40);
176: end if;
177: return l_legislation_code;
178: end return_legislation_code;
179: --
285: --
286: l_error varchar2(5) := NULL;
287: --
288: BEGIN
289: g_debug := hr_utility.debug_enabled;
290:
291: if g_debug then
292: l_proc := g_package||'chk_name';
293: hr_utility.set_location('Entering:'||l_proc, 5);
289: g_debug := hr_utility.debug_enabled;
290:
291: if g_debug then
292: l_proc := g_package||'chk_name';
293: hr_utility.set_location('Entering:'||l_proc, 5);
294: end if;
295: --
296: -- Raise error if name is NULL as it is a mandatory field.
297: --
297: --
298: IF p_name IS NULL
299: THEN
300: --
301: hr_utility.set_message(809, 'HXC_0089_RTR_RULE_NAME_MAND');
302: hr_utility.raise_error;
303: --
304: END IF;
305: if g_debug then
298: IF p_name IS NULL
299: THEN
300: --
301: hr_utility.set_message(809, 'HXC_0089_RTR_RULE_NAME_MAND');
302: hr_utility.raise_error;
303: --
304: END IF;
305: if g_debug then
306: hr_utility.set_location('Processing:'||l_proc, 10);
302: hr_utility.raise_error;
303: --
304: END IF;
305: if g_debug then
306: hr_utility.set_location('Processing:'||l_proc, 10);
307: end if;
308: --
309: -- Raise an error if the retrieval rule name is not unique
310: --
314: --
315: IF l_error IS NOT NULL
316: THEN
317: --
318: hr_utility.set_message(809, 'HXC_0090_RTR_DUP_RULE_NAME');
319: hr_utility.raise_error;
320: --
321: END IF;
322: --
315: IF l_error IS NOT NULL
316: THEN
317: --
318: hr_utility.set_message(809, 'HXC_0090_RTR_DUP_RULE_NAME');
319: hr_utility.raise_error;
320: --
321: END IF;
322: --
323: if g_debug then
320: --
321: END IF;
322: --
323: if g_debug then
324: hr_utility.set_location('Leaving:'||l_proc, 20);
325: end if;
326: --
327: END chk_name;
328: --
336: --
337: l_proc varchar2(72);
338: --
339: Begin
340: g_debug := hr_utility.debug_enabled;
341:
342: if g_debug then
343: l_proc := g_package||'insert_validate';
344: hr_utility.set_location('Entering:'||l_proc, 5);
340: g_debug := hr_utility.debug_enabled;
341:
342: if g_debug then
343: l_proc := g_package||'insert_validate';
344: hr_utility.set_location('Entering:'||l_proc, 5);
345: end if;
346: --
347: -- Call all supporting business operations
348: --
346: --
347: -- Call all supporting business operations
348: --
349: if g_debug then
350: hr_utility.set_location('Processing:'||l_proc, 10);
351: end if;
352: --
353: chk_name ( p_name => p_rec.name,
354: p_object_version_number => p_rec.object_version_number );
353: chk_name ( p_name => p_rec.name,
354: p_object_version_number => p_rec.object_version_number );
355: --
356: if g_debug then
357: hr_utility.set_location(' Leaving:'||l_proc, 10);
358: end if;
359: --
360: -- EDIT_HERE: As this table does not have a mandatory business_group_id
361: -- column, ensure client_info is populated by calling a suitable
365: -- "-- CLIENT_INFO not set. No lookup validation or joins to HR_LOOKUPS."
366: --
367: --
368: if g_debug then
369: hr_utility.set_location(' Leaving:'||l_proc, 10);
370: end if;
371: End insert_validate;
372: --
373: -- ----------------------------------------------------------------------------
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: --
390: -- Call all supporting business operations
391: --
392: hr_utility.set_location('Processing:'||l_proc, 10);
388: hr_utility.set_location('Entering:'||l_proc, 5);
389: --
390: -- Call all supporting business operations
391: --
392: hr_utility.set_location('Processing:'||l_proc, 10);
393: end if;
394: --
395: chk_name ( p_name => p_rec.name,
396: p_object_version_number => p_rec.object_version_number );
395: chk_name ( p_name => p_rec.name,
396: p_object_version_number => p_rec.object_version_number );
397: --
398: if g_debug then
399: hr_utility.set_location(' Leaving:'||l_proc, 10);
400: end if;
401: --
402: -- EDIT_HERE: As this table does not have a mandatory business_group_id
403: -- column, ensure client_info is populated by calling a suitable
412: );
413: --
414: --
415: if g_debug then
416: hr_utility.set_location(' Leaving:'||l_proc, 10);
417: end if;
418: End update_validate;
419: --
420: -- ----------------------------------------------------------------------------
426: --
427: l_proc varchar2(72);
428: --
429: Begin
430: g_debug := hr_utility.debug_enabled;
431:
432: if g_debug then
433: l_proc := g_package||'delete_validate';
434: hr_utility.set_location('Entering:'||l_proc, 5);
430: g_debug := hr_utility.debug_enabled;
431:
432: if g_debug then
433: l_proc := g_package||'delete_validate';
434: hr_utility.set_location('Entering:'||l_proc, 5);
435: --
436: -- Call all supporting business operations
437: --
438: hr_utility.set_location(' Leaving:'||l_proc, 10);
434: hr_utility.set_location('Entering:'||l_proc, 5);
435: --
436: -- Call all supporting business operations
437: --
438: hr_utility.set_location(' Leaving:'||l_proc, 10);
439: end if;
440: End delete_validate;
441: --
442: end hxc_rtr_bus;