5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' hxc_had_bus.'; -- Global package name
9: g_debug boolean :=hr_utility.debug_enabled;
10: --
11: -- The following two global variables are only to be
12: -- used by the return_legislation_code function.
13: --
43: l_proc varchar2(72);
44: --
45: begin
46: --
47: g_debug:=hr_utility.debug_enabled;
48: if g_debug then
49: l_proc := g_package||'set_security_group_id';
50: hr_utility.set_location('Entering:'|| l_proc, 10);
51: end if;
46: --
47: g_debug:=hr_utility.debug_enabled;
48: if g_debug then
49: l_proc := g_package||'set_security_group_id';
50: hr_utility.set_location('Entering:'|| l_proc, 10);
51: end if;
52: --
53: -- Ensure that all the mandatory parameter are not null
54: --
79: (p_security_group_id => l_security_group_id
80: );
81: --
82: if g_debug then
83: hr_utility.set_location(' Leaving:'|| l_proc, 20);
84: end if;
85: --
86: end set_security_group_id;
87: --
115: l_proc varchar2(72) ;
116: --
117: Begin
118: --
119: g_debug:=hr_utility.debug_enabled;
120: if g_debug then
121: l_proc := g_package||'return_legislation_code';
122: hr_utility.set_location('Entering:'|| l_proc, 10);
123: end if;
118: --
119: g_debug:=hr_utility.debug_enabled;
120: if g_debug then
121: l_proc := g_package||'return_legislation_code';
122: hr_utility.set_location('Entering:'|| l_proc, 10);
123: end if;
124: --
125: -- Ensure that all the mandatory parameter are not null
126: --
138: -- variable.
139: --
140: l_legislation_code := hxc_had_bus.g_legislation_code;
141: if g_debug then
142: hr_utility.set_location(l_proc, 20);
143: end if;
144: else
145: --
146: -- The ID is different to the last call to this function
157: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
158: fnd_message.raise_error;
159: end if;
160: if g_debug then
161: hr_utility.set_location(l_proc,30);
162: end if;
163: --
164: -- Set the global variables so the values are
165: -- available for the next call to this function.
168: hxc_had_bus.g_alias_definition_id := p_alias_definition_id;
169: hxc_had_bus.g_legislation_code := l_legislation_code;
170: end if;
171: if g_debug then
172: hr_utility.set_location(' Leaving:'|| l_proc, 40);
173: end if;
174: return l_legislation_code;
175: end return_legislation_code;
176: --
286: --
287: l_dup_name varchar2(5) := NULL;
288: --
289: BEGIN
290: g_debug:=hr_utility.debug_enabled;
291: if g_debug then
292: l_proc := g_package||'chk_name';
293: hr_utility.set_location('Entering:'||l_proc, 5);
294: end if;
289: BEGIN
290: g_debug:=hr_utility.debug_enabled;
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: -- check that the name has been entered
297: --
297: --
298: IF p_name IS NULL
299: THEN
300: --
301: hr_utility.set_message(809, 'HXC_ALIAS_NAME_DEFN_MAND');
302: hr_utility.raise_error;
303: --
304: END IF;
305: --
298: IF p_name IS NULL
299: THEN
300: --
301: hr_utility.set_message(809, 'HXC_ALIAS_NAME_DEFN_MAND');
302: hr_utility.raise_error;
303: --
304: END IF;
305: --
306:
306:
307: --IF p_tc_field IS NULL
308: --THEN
309: --
310: -- hr_utility.set_message(809, 'HXC_ALIAS_TC_FIELD_MAND');
311: -- hr_utility.raise_error;
312: --
313: --END IF;
314:
307: --IF p_tc_field IS NULL
308: --THEN
309: --
310: -- hr_utility.set_message(809, 'HXC_ALIAS_TC_FIELD_MAND');
311: -- hr_utility.raise_error;
312: --
313: --END IF;
314:
315: --
313: --END IF;
314:
315: --
316: if g_debug then
317: hr_utility.set_location('Processing:'||l_proc, 10);
318: end if;
319: --
320: -- check that the name is unique
321: --
325: --
326: IF l_dup_name IS NOT NULL
327: THEN
328: --
329: hr_utility.set_message(809, 'HXC_ALIAS_NAME_DEFN_UNIQUE');
330: hr_utility.raise_error;
331: --
332: END IF;
333: --
326: IF l_dup_name IS NOT NULL
327: THEN
328: --
329: hr_utility.set_message(809, 'HXC_ALIAS_NAME_DEFN_UNIQUE');
330: hr_utility.raise_error;
331: --
332: END IF;
333: --
334: if g_debug then
331: --
332: END IF;
333: --
334: if g_debug then
335: hr_utility.set_location('Leaving:'||l_proc, 20);
336: end if;
337: --
338: END chk_name;
339: --
390: OR hph.attribute10 = TO_CHAR(p_alias_definition_id) )
391: AND hph1.pref_hierarchy_id = hph.top_level_parent_id;
392: --
393: BEGIN
394: g_debug:=hr_utility.debug_enabled;
395: if g_debug then
396: l_proc := g_package||'chk_delete';
397: hr_utility.set_location('Entering:'||l_proc, 5);
398: end if;
393: BEGIN
394: g_debug:=hr_utility.debug_enabled;
395: if g_debug then
396: l_proc := g_package||'chk_delete';
397: hr_utility.set_location('Entering:'||l_proc, 5);
398: end if;
399: --
400: --check that Timecard Alias is not being used
401: --
400: --check that Timecard Alias is not being used
401: --
402:
403: if g_debug then
404: hr_utility.set_location('Opening Cursor: '||l_proc, 10);
405: end if;
406:
407: /*l_exists_attribute1 := HXC_PREFERENCE_EVALUATION.num_hierarchy_occurances
408: ('TC_W_TCRD_ALIASES'
412: ('TC_W_TCRD_ALIASES'
413: ,2
414: ,TO_CHAR(p_alias_definition_id));
415: if g_debug then
416: hr_utility.set_location('After calling num_hierarchy_occurances:'||l_proc,20);
417: end if;
418:
419: --
420: IF l_exists_attribute1 <> 0 OR l_exists_attribute2 <> 0 THEN
418:
419: --
420: IF l_exists_attribute1 <> 0 OR l_exists_attribute2 <> 0 THEN
421: --
422: hr_utility.set_message(809, 'HXC_HEG_ALT_NAME_IN_USE');
423: hr_utility.raise_error;
424: --
425: END IF;
426: */
419: --
420: IF l_exists_attribute1 <> 0 OR l_exists_attribute2 <> 0 THEN
421: --
422: hr_utility.set_message(809, 'HXC_HEG_ALT_NAME_IN_USE');
423: hr_utility.raise_error;
424: --
425: END IF;
426: */
427:
430: close get_num_hierarchy_occurances;
431:
432: IF l_num_count <> 0 THEN
433: --
434: hr_utility.set_message(809, 'HXC_HEG_ALT_NAME_IN_USE');
435: hr_utility.raise_error;
436: --
437: END IF;
438:
431:
432: IF l_num_count <> 0 THEN
433: --
434: hr_utility.set_message(809, 'HXC_HEG_ALT_NAME_IN_USE');
435: hr_utility.raise_error;
436: --
437: END IF;
438:
439: hxc_time_category_utils_pkg.alias_definition_ref_int_chk ( p_alias_definition_id );
439: hxc_time_category_utils_pkg.alias_definition_ref_int_chk ( p_alias_definition_id );
440:
441: --
442: if g_debug then
443: hr_utility.set_location('Entering:'||l_proc, 5);
444: end if;
445: --
446: END chk_delete;
447:
493:
494: --
495: --
496: begin
497: g_debug:=hr_utility.debug_enabled;
498: if g_debug then
499: l_proc := g_package||'chk_legislation_code';
500: hr_utility.set_location('Entering: '||l_proc,5);
501: end if;
496: begin
497: g_debug:=hr_utility.debug_enabled;
498: if g_debug then
499: l_proc := g_package||'chk_legislation_code';
500: hr_utility.set_location('Entering: '||l_proc,5);
501: end if;
502: --------------------------------
503: -- Check legislation code is valid --
504: --------------------------------
507: open csr_valid_legislation_code;
508: fetch csr_valid_legislation_code into l_territory_code;
509: if csr_valid_legislation_code%notfound then
510: close csr_valid_legislation_code;
511: hr_utility.set_message(800,'PER_52123_AMD_LEG_CODE_INV');
512: hr_utility.raise_error;
513: end if; -- End cursor if
514: close csr_valid_legislation_code;
515:
508: fetch csr_valid_legislation_code into l_territory_code;
509: if csr_valid_legislation_code%notfound then
510: close csr_valid_legislation_code;
511: hr_utility.set_message(800,'PER_52123_AMD_LEG_CODE_INV');
512: hr_utility.raise_error;
513: end if; -- End cursor if
514: close csr_valid_legislation_code;
515:
516: if p_business_group_id is not null then
517: open csr_valid_bg_lc;
518: fetch csr_valid_bg_lc into l_lc;
519: if csr_valid_bg_lc%notfound then
520: close csr_valid_bg_lc;
521: hr_utility.set_message(800,'PER_52123_AMD_LEG_CODE_INV');
522: hr_utility.raise_error;
523: end if; -- End cursor if
524: close csr_valid_bg_lc;
525: end if;
518: fetch csr_valid_bg_lc into l_lc;
519: if csr_valid_bg_lc%notfound then
520: close csr_valid_bg_lc;
521: hr_utility.set_message(800,'PER_52123_AMD_LEG_CODE_INV');
522: hr_utility.raise_error;
523: end if; -- End cursor if
524: close csr_valid_bg_lc;
525: end if;
526:
526:
527: end if; -- end check
528:
529: if g_debug then
530: hr_utility.set_location('Leaving: '||l_proc,10);
531: end if;
532: end chk_legislation_code;
533: --
534: --
576: --
577: l_context_name varchar2(7) := NULL;
578: --
579: BEGIN
580: g_debug:=hr_utility.debug_enabled;
581: if g_debug then
582: l_proc := g_package||'chk_context';
583: hr_utility.set_location('Entering:'||l_proc, 5);
584: end if;
579: BEGIN
580: g_debug:=hr_utility.debug_enabled;
581: if g_debug then
582: l_proc := g_package||'chk_context';
583: hr_utility.set_location('Entering:'||l_proc, 5);
584: end if;
585: --
586: -- check that the name has been entered
587: --
587: --
588: IF p_context_name IS NULL
589: THEN
590: --
591: hr_utility.set_message(809, 'HXC_ALIAS_CONTEXT_MAND');
592: hr_utility.raise_error;
593: --
594: END IF;
595: --
588: IF p_context_name IS NULL
589: THEN
590: --
591: hr_utility.set_message(809, 'HXC_ALIAS_CONTEXT_MAND');
592: hr_utility.raise_error;
593: --
594: END IF;
595: --
596: if g_debug then
593: --
594: END IF;
595: --
596: if g_debug then
597: hr_utility.set_location('Processing:'||l_proc, 10);
598: end if;
599: --
600: -- check that the name is unique
601: --
605: --
606: IF l_context_name IS NULL
607: THEN
608: --
609: hr_utility.set_message(809, 'HXC_ALIAS_CONTEXT_INVALID');
610: hr_utility.raise_error;
611: --
612: END IF;
613: --
606: IF l_context_name IS NULL
607: THEN
608: --
609: hr_utility.set_message(809, 'HXC_ALIAS_CONTEXT_INVALID');
610: hr_utility.raise_error;
611: --
612: END IF;
613: --
614: if g_debug then
611: --
612: END IF;
613: --
614: if g_debug then
615: hr_utility.set_location('Leaving:'||l_proc, 20);
616: end if;
617: --
618: END chk_context;
619: -- ----------------------------------------------------------------------------
625: --
626: l_proc varchar2(72);
627: --
628: Begin
629: g_debug:=hr_utility.debug_enabled;
630: if g_debug then
631: l_proc := g_package||'insert_validate';
632: hr_utility.set_location('Entering:'||l_proc, 5);
633: end if;
628: Begin
629: g_debug:=hr_utility.debug_enabled;
630: if g_debug then
631: l_proc := g_package||'insert_validate';
632: hr_utility.set_location('Entering:'||l_proc, 5);
633: end if;
634: --
635: -- Call all supporting business operations
636: --
663: (p_business_group_id => p_rec.business_group_id,
664: p_legislation_code => p_rec.legislation_code);
665: --
666: if g_debug then
667: hr_utility.set_location(' Leaving:'||l_proc, 10);
668: end if;
669: End insert_validate;
670: --
671: -- ----------------------------------------------------------------------------
677: --
678: l_proc varchar2(72);
679: --
680: Begin
681: g_debug:=hr_utility.debug_enabled;
682: if g_debug then
683: l_proc := g_package||'update_validate';
684: hr_utility.set_location('Entering:'||l_proc, 5);
685: end if;
680: Begin
681: g_debug:=hr_utility.debug_enabled;
682: if g_debug then
683: l_proc := g_package||'update_validate';
684: hr_utility.set_location('Entering:'||l_proc, 5);
685: end if;
686: --
687: -- Call all supporting business operations
688: --
718: p_legislation_code => p_rec.legislation_code);
719: --
720: --
721: if g_debug then
722: hr_utility.set_location(' Leaving:'||l_proc, 10);
723: end if;
724: End update_validate;
725: --
726: -- ----------------------------------------------------------------------------
732: --
733: l_proc varchar2(72);
734: --
735: Begin
736: g_debug:=hr_utility.debug_enabled;
737: if g_debug then
738: l_proc := g_package||'delete_validate';
739: hr_utility.set_location('Entering:'||l_proc, 5);
740: end if;
735: Begin
736: g_debug:=hr_utility.debug_enabled;
737: if g_debug then
738: l_proc := g_package||'delete_validate';
739: hr_utility.set_location('Entering:'||l_proc, 5);
740: end if;
741: --
742: -- Call all supporting business operations
743: --
744: chk_delete
745: ( p_alias_definition_id => p_rec.alias_definition_id);
746: --
747: if g_debug then
748: hr_utility.set_location(' Leaving:'||l_proc, 10);
749: end if;
750: End delete_validate;
751: --
752: end hxc_had_bus;