5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' hxc_has_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_has_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_has_bus.g_approval_style_id := p_approval_style_id;
169: hxc_has_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: --
287: --
288: l_error varchar2(5) := NULL;
289: --
290: BEGIN
291: g_debug:=hr_utility.debug_enabled;
292: if g_debug then
293: l_proc := g_package||'chk_name';
294: hr_utility.set_location('Entering:'||l_proc, 5);
295: end if;
290: BEGIN
291: g_debug:=hr_utility.debug_enabled;
292: if g_debug then
293: l_proc := g_package||'chk_name';
294: hr_utility.set_location('Entering:'||l_proc, 5);
295: end if;
296: --
297: -- Raise error if name is NULL as it is a mandatory field.
298: --
298: --
299: IF p_name IS NULL
300: THEN
301: --
302: hr_utility.set_message(809, 'HXC_0150_HAS_APR_STL_NAME_MAND');
303: hr_utility.raise_error;
304: --
305: END IF;
306: if g_debug then
299: IF p_name IS NULL
300: THEN
301: --
302: hr_utility.set_message(809, 'HXC_0150_HAS_APR_STL_NAME_MAND');
303: hr_utility.raise_error;
304: --
305: END IF;
306: if g_debug then
307: hr_utility.set_location('Processing:'||l_proc, 10);
303: hr_utility.raise_error;
304: --
305: END IF;
306: if g_debug then
307: hr_utility.set_location('Processing:'||l_proc, 10);
308: end if;
309: --
310: -- Raise an error if the approval style name is not unique
311: --
315: --
316: IF l_error IS NOT NULL
317: THEN
318: --
319: hr_utility.set_message(809, 'HXC_0151_HAS_DUP_APR_STL');
320: hr_utility.raise_error;
321: --
322: END IF;
323: --
316: IF l_error IS NOT NULL
317: THEN
318: --
319: hr_utility.set_message(809, 'HXC_0151_HAS_DUP_APR_STL');
320: hr_utility.raise_error;
321: --
322: END IF;
323: --
324: if g_debug then
321: --
322: END IF;
323: --
324: if g_debug then
325: hr_utility.set_location('Leaving:'||l_proc, 20);
326: end if;
327: --
328: END chk_name;
329: --
372: l_exists_attribute1 VARCHAR2(6) := NULL;
373: l_exists_attribute2 VARCHAR2(6) := NULL;
374: --
375: BEGIN
376: g_debug:=hr_utility.debug_enabled;
377: if g_debug then
378: l_proc := g_package||'chk_delete';
379: hr_utility.set_location('Entering:'||l_proc, 5);
380: end if;
375: BEGIN
376: g_debug:=hr_utility.debug_enabled;
377: if g_debug then
378: l_proc := g_package||'chk_delete';
379: hr_utility.set_location('Entering:'||l_proc, 5);
380: end if;
381: --
382: -- check that approval style is not being used
383: --
384: /*OPEN csr_chk_hph;
385: FETCH csr_chk_hph INTO l_exists;
386: CLOSE csr_chk_hph;*/
387: if g_debug then
388: hr_utility.set_location('Calling num_hierarchy_occurances: '||l_proc, 10);
389: end if;
390: l_exists_attribute1 := HXC_PREFERENCE_EVALUATION.num_hierarchy_occurances
391: ('TS_PER_APPROVAL_STYLE'
392: ,1
395: ('TS_PER_APPROVAL_STYLE'
396: ,2
397: ,TO_CHAR(p_approval_style_id));
398: if g_debug then
399: hr_utility.set_location('After calling num_hierarchy_occurances:'||l_proc,20);
400: end if;
401: --
402: if g_debug then
403: hr_utility.set_location('Processing: '||l_proc, 10);
399: hr_utility.set_location('After calling num_hierarchy_occurances:'||l_proc,20);
400: end if;
401: --
402: if g_debug then
403: hr_utility.set_location('Processing: '||l_proc, 10);
404: end if;
405: --
406: IF l_exists_attribute1 <> 0 or l_exists_attribute2 <> 0 THEN
407: --
404: end if;
405: --
406: IF l_exists_attribute1 <> 0 or l_exists_attribute2 <> 0 THEN
407: --
408: hr_utility.set_message(809, 'HXC_366240_APS_IN_PREF');
409: hr_utility.raise_error;
410: --
411: END IF;
412: --
405: --
406: IF l_exists_attribute1 <> 0 or l_exists_attribute2 <> 0 THEN
407: --
408: hr_utility.set_message(809, 'HXC_366240_APS_IN_PREF');
409: hr_utility.raise_error;
410: --
411: END IF;
412: --
413: if g_debug then
410: --
411: END IF;
412: --
413: if g_debug then
414: hr_utility.set_location('Entering:'||l_proc, 5);
415: end if;
416: --
417: END chk_delete;
418: --
464:
465: --
466: --
467: begin
468: g_debug:=hr_utility.debug_enabled;
469: if g_debug then
470: l_proc := g_package||'chk_legislation_code';
471: hr_utility.set_location('Entering: '||l_proc,5);
472: end if;
467: begin
468: g_debug:=hr_utility.debug_enabled;
469: if g_debug then
470: l_proc := g_package||'chk_legislation_code';
471: hr_utility.set_location('Entering: '||l_proc,5);
472: end if;
473: --------------------------------
474: -- Check legislation code is valid --
475: --------------------------------
478: open csr_valid_legislation_code;
479: fetch csr_valid_legislation_code into l_territory_code;
480: if csr_valid_legislation_code%notfound then
481: close csr_valid_legislation_code;
482: hr_utility.set_message(800,'PER_52123_AMD_LEG_CODE_INV');
483: hr_utility.raise_error;
484: end if; -- End cursor if
485: close csr_valid_legislation_code;
486:
479: fetch csr_valid_legislation_code into l_territory_code;
480: if csr_valid_legislation_code%notfound then
481: close csr_valid_legislation_code;
482: hr_utility.set_message(800,'PER_52123_AMD_LEG_CODE_INV');
483: hr_utility.raise_error;
484: end if; -- End cursor if
485: close csr_valid_legislation_code;
486:
487: if p_business_group_id is not null then
488: open csr_valid_bg_lc;
489: fetch csr_valid_bg_lc into l_lc;
490: if csr_valid_bg_lc%notfound then
491: close csr_valid_bg_lc;
492: hr_utility.set_message(800,'PER_52123_AMD_LEG_CODE_INV');
493: hr_utility.raise_error;
494: end if; -- End cursor if
495: close csr_valid_bg_lc;
496: end if;
489: fetch csr_valid_bg_lc into l_lc;
490: if csr_valid_bg_lc%notfound then
491: close csr_valid_bg_lc;
492: hr_utility.set_message(800,'PER_52123_AMD_LEG_CODE_INV');
493: hr_utility.raise_error;
494: end if; -- End cursor if
495: close csr_valid_bg_lc;
496: end if;
497:
497:
498: end if; -- end check
499:
500: if g_debug then
501: hr_utility.set_location('Leaving: '||l_proc,10);
502: end if;
503: end chk_legislation_code;
504: --
505: -- -------------------------------------------------------------------------
533: ) IS
534: Begin
535: IF not(p_run_recipient_extensions IS NULL OR p_run_recipient_extensions IN ('Y','N'))
536: THEN
537: hr_utility.set_message(809,'HXC_VALUE_RECIPIENT_EXTENSIONS');
538: hr_utility.raise_error;
539: END IF;
540: END chk_run_recipient_extensions;
541: --
534: Begin
535: IF not(p_run_recipient_extensions IS NULL OR p_run_recipient_extensions IN ('Y','N'))
536: THEN
537: hr_utility.set_message(809,'HXC_VALUE_RECIPIENT_EXTENSIONS');
538: hr_utility.raise_error;
539: END IF;
540: END chk_run_recipient_extensions;
541: --
542: -- -------------------------------------------------------------------------
573: open crs_admin_role;
574: fetch crs_admin_role into l_admin_role;
575: IF NOT(p_admin_role IS NULL OR crs_admin_role%found)
576: THEN
577: hr_utility.set_message(809,'HXC_ADMIN_ROLE');
578: hr_utility.raise_error;
579: END IF;
580: close crs_admin_role;
581: END chk_admin_role;
574: fetch crs_admin_role into l_admin_role;
575: IF NOT(p_admin_role IS NULL OR crs_admin_role%found)
576: THEN
577: hr_utility.set_message(809,'HXC_ADMIN_ROLE');
578: hr_utility.raise_error;
579: END IF;
580: close crs_admin_role;
581: END chk_admin_role;
582: --
614: open crs_error_admin_role;
615: fetch crs_error_admin_role into l_error_admin_role;
616: IF NOT(p_error_admin_role IS NULL OR crs_error_admin_role%found)
617: THEN
618: hr_utility.set_message(809,'HXC_ERROR_ADMIN_ROLE');
619: hr_utility.raise_error;
620: END IF;
621: close crs_error_admin_role;
622: END chk_error_admin_role;
615: fetch crs_error_admin_role into l_error_admin_role;
616: IF NOT(p_error_admin_role IS NULL OR crs_error_admin_role%found)
617: THEN
618: hr_utility.set_message(809,'HXC_ERROR_ADMIN_ROLE');
619: hr_utility.raise_error;
620: END IF;
621: close crs_error_admin_role;
622: END chk_error_admin_role;
623:
631: --
632: l_proc varchar2(72);
633: --
634: Begin
635: g_debug:=hr_utility.debug_enabled;
636: if g_debug then
637: l_proc := g_package||'insert_validate';
638: hr_utility.set_location('Entering:'||l_proc, 5);
639: end if;
634: Begin
635: g_debug:=hr_utility.debug_enabled;
636: if g_debug then
637: l_proc := g_package||'insert_validate';
638: hr_utility.set_location('Entering:'||l_proc, 5);
639: end if;
640: --
641: -- Call all supporting business operations
642: --
640: --
641: -- Call all supporting business operations
642: --
643: if g_debug then
644: hr_utility.set_location('Processing:'||l_proc, 10);
645: end if;
646: --
647: chk_name ( p_name => p_rec.name,
648: p_object_version_number => p_rec.object_version_number );
647: chk_name ( p_name => p_rec.name,
648: p_object_version_number => p_rec.object_version_number );
649: --
650: if g_debug then
651: hr_utility.set_location(' Leaving:'||l_proc, 10);
652: end if;
653: --
654: if p_rec.business_group_id is not null then
655: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
678: -- "-- CLIENT_INFO not set. No lookup validation or joins to HR_LOOKUPS."
679: --
680: --
681: if g_debug then
682: hr_utility.set_location(' Leaving:'||l_proc, 10);
683: end if;
684: End insert_validate;
685: --
686: -- ----------------------------------------------------------------------------
692: --
693: l_proc varchar2(72);
694: --
695: Begin
696: g_debug:=hr_utility.debug_enabled;
697: if g_debug then
698: l_proc := g_package||'update_validate';
699: hr_utility.set_location('Entering:'||l_proc, 5);
700: end if;
695: Begin
696: g_debug:=hr_utility.debug_enabled;
697: if g_debug then
698: l_proc := g_package||'update_validate';
699: hr_utility.set_location('Entering:'||l_proc, 5);
700: end if;
701: --
702: -- Call all supporting business operations
703: --
701: --
702: -- Call all supporting business operations
703: --
704: if g_debug then
705: hr_utility.set_location('Processing:'||l_proc, 10);
706: end if;
707: --
708: chk_name ( p_name => p_rec.name,
709: p_object_version_number => p_rec.object_version_number );
708: chk_name ( p_name => p_rec.name,
709: p_object_version_number => p_rec.object_version_number );
710: --
711: if g_debug then
712: hr_utility.set_location(' Leaving:'||l_proc, 10);
713: end if;
714: --
715: --
716: -- EDIT_HERE: As this table does not have a mandatory business_group_id
743: --Validate error_admin_role
744: chk_error_admin_role
745: (p_error_admin_role => p_rec.error_admin_role);
746: if g_debug then
747: hr_utility.set_location(' Leaving:'||l_proc, 10);
748: end if;
749: End update_validate;
750: --
751: -- ----------------------------------------------------------------------------
757: --
758: l_proc varchar2(72);
759: --
760: Begin
761: g_debug:=hr_utility.debug_enabled;
762: if g_debug then
763: l_proc := g_package||'delete_validate';
764: hr_utility.set_location('Entering:'||l_proc, 5);
765: end if;
760: Begin
761: g_debug:=hr_utility.debug_enabled;
762: if g_debug then
763: l_proc := g_package||'delete_validate';
764: hr_utility.set_location('Entering:'||l_proc, 5);
765: end if;
766: --
767: -- Call all supporting business operations
768: --
771: p_approval_style_id => p_rec.approval_style_id
772: );
773: --
774: if g_debug then
775: hr_utility.set_location(' Leaving:'||l_proc, 10);
776: end if;
777: End delete_validate;
778: --
779: end hxc_has_bus;