19: l_error exception;
20: l_argument varchar2(30);
21: --
22: Begin
23: hr_utility.set_location('Entering:'||l_proc, 10);
24: --
25: -- Only proceed with validation if a row exists for
26: -- the current record in the HR Schema
27: --
27: --
28: if not hr_amd_shd.api_updating
29: (p_api_module_id => p_rec.api_module_id
30: ) then
31: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
32: hr_utility.set_message_token('PROCEDURE', l_proc);
33: hr_utility.set_message_token('STEP', '20');
34: end if;
35: hr_utility.set_location(l_proc, 30);
28: if not hr_amd_shd.api_updating
29: (p_api_module_id => p_rec.api_module_id
30: ) then
31: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
32: hr_utility.set_message_token('PROCEDURE', l_proc);
33: hr_utility.set_message_token('STEP', '20');
34: end if;
35: hr_utility.set_location(l_proc, 30);
36: --
29: (p_api_module_id => p_rec.api_module_id
30: ) then
31: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
32: hr_utility.set_message_token('PROCEDURE', l_proc);
33: hr_utility.set_message_token('STEP', '20');
34: end if;
35: hr_utility.set_location(l_proc, 30);
36: --
37: if nvl(p_rec.api_module_type, hr_api.g_varchar2) <>
31: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
32: hr_utility.set_message_token('PROCEDURE', l_proc);
33: hr_utility.set_message_token('STEP', '20');
34: end if;
35: hr_utility.set_location(l_proc, 30);
36: --
37: if nvl(p_rec.api_module_type, hr_api.g_varchar2) <>
38: nvl(hr_amd_shd.g_old_rec.api_module_type
39: ,hr_api.g_varchar2
50: l_argument := 'legislation_code';
51: raise l_error;
52: end if;
53: --
54: hr_utility.set_location(l_proc, 40);
55: exception
56: when l_error then
57: hr_api.argument_changed_error
58: (p_api_name => l_proc
59: ,p_argument => l_argument
60: );
61: when others then
62: raise;
63: hr_utility.set_location(' Leaving:'||l_proc, 50);
64: end chk_non_updateable_args;
65: --
66: -- -----------------------------------------------------------------
67: -- |-----------------------< chk_api_module_type >-------------------------|
97: l_proc varchar2(72) := g_package||' chk_api_module_type';
98: l_api_updating boolean;
99: --
100: begin
101: hr_utility.set_location('Entering: '||l_proc,5);
102: --
103: --------------------------------
104: -- Check module type not null --
105: --------------------------------
116: p_lookup_code => p_api_module_type) then
117: hr_amd_shd.constraint_error('HR_API_MODULES_CK1');
118: end if;
119:
120: hr_utility.set_location('Leaving: '||l_proc,10);
121: end chk_api_module_type;
122: --
123: --
124: --
169: where ham.module_name = p_module_name
170: and ham.api_module_type = p_api_module_type;
171:
172: begin
173: hr_utility.set_location('Entering: '||l_proc,5);
174:
175: -- check if the module is being updated or inserted.
176: l_api_updating := hr_amd_shd.api_updating
177: (p_api_module_id => p_api_module_id);
193: -- Check that the module name has been entered in upper case --
194: ---------------------------------------------------------------
195:
196: if( p_module_name <> upper(l_module_name) ) then
197: hr_utility.set_message(800, 'PER_52118_AMD_MOD_NAME_NOT_UPP');
198: hr_utility.raise_error;
199: end if;
200:
201: --------------------------------------------------------
194: ---------------------------------------------------------------
195:
196: if( p_module_name <> upper(l_module_name) ) then
197: hr_utility.set_message(800, 'PER_52118_AMD_MOD_NAME_NOT_UPP');
198: hr_utility.raise_error;
199: end if;
200:
201: --------------------------------------------------------
202: -- Check for unique Module name and module type combo --
210: end if;
211:
212: close csr_valid_combo;
213: end if;
214: hr_utility.set_location('Leaving: '||l_proc,10);
215: end chk_module_name;
216: --
217: --
218: --
263: and (legislation_package is not null
264: or legislation_function is not null) ;
265: --
266: begin
267: hr_utility.set_location('Entering: '||l_proc,5);
268:
269: ----------------------------------------
270: -- Check data within bus grp not null --
271: ----------------------------------------
297: open csr_legislation_data;
298: fetch csr_legislation_data into l_exists;
299: if csr_legislation_data%found then
300: close csr_legislation_data;
301: hr_utility.set_message(800, 'PER_74019_LEG_CODE');
302: hr_utility.raise_error;
303: end if;
304: hr_utility.set_location('Entering: '||l_proc,7);
305: close csr_legislation_data;
298: fetch csr_legislation_data into l_exists;
299: if csr_legislation_data%found then
300: close csr_legislation_data;
301: hr_utility.set_message(800, 'PER_74019_LEG_CODE');
302: hr_utility.raise_error;
303: end if;
304: hr_utility.set_location('Entering: '||l_proc,7);
305: close csr_legislation_data;
306: end if;
300: close csr_legislation_data;
301: hr_utility.set_message(800, 'PER_74019_LEG_CODE');
302: hr_utility.raise_error;
303: end if;
304: hr_utility.set_location('Entering: '||l_proc,7);
305: close csr_legislation_data;
306: end if;
307: --
308: end if;
306: end if;
307: --
308: end if;
309: --
310: hr_utility.set_location('Leaving: '||l_proc,10);
311: end chk_data_within_business_group;
312: --
313: --
314: --
353:
354: --
355: --
356: begin
357: hr_utility.set_location('Entering: '||l_proc,5);
358:
359: --------------------------------
360: -- Check legislation code is valid --
361: --------------------------------
364: fetch csr_valid_legislation_code into l_territory_code;
365:
366: if csr_valid_legislation_code%notfound then
367: close csr_valid_legislation_code;
368: hr_utility.set_message(800,'PER_52123_AMD_LEG_CODE_INV');
369: hr_utility.raise_error;
370: end if; -- End cursor if
371:
372: close csr_valid_legislation_code;
365:
366: if csr_valid_legislation_code%notfound then
367: close csr_valid_legislation_code;
368: hr_utility.set_message(800,'PER_52123_AMD_LEG_CODE_INV');
369: hr_utility.raise_error;
370: end if; -- End cursor if
371:
372: close csr_valid_legislation_code;
373: end if; -- end check
371:
372: close csr_valid_legislation_code;
373: end if; -- end check
374:
375: hr_utility.set_location('Leaving: '||l_proc,10);
376: end chk_legislation_code;
377: --
378: --
379: --
414: l_module_package varchar2(30) := p_module_package;
415: l_api_updating boolean;
416: --
417: begin
418: hr_utility.set_location('Entering: '||l_proc,5);
419: -- Check if module is being updated
420: l_api_updating := hr_amd_shd.api_updating
421: (p_api_module_id => p_api_module_id);
422:
431: -- Check the Module Package and Module Type Combo is valid --
432: -------------------------------------------------------------
433:
434: if p_api_module_type = 'BP' and p_module_package is null then
435: hr_utility.set_message(800, 'PER_52124_AMD_MOD_PACK_INV1');
436: hr_utility.raise_error;
437: elsif p_api_module_type = 'RH' and p_module_package is not null then
438: hr_utility.set_message(800, 'PER_52125_AMD_MOD_PACK_INV2');
439: hr_utility.raise_error;
432: -------------------------------------------------------------
433:
434: if p_api_module_type = 'BP' and p_module_package is null then
435: hr_utility.set_message(800, 'PER_52124_AMD_MOD_PACK_INV1');
436: hr_utility.raise_error;
437: elsif p_api_module_type = 'RH' and p_module_package is not null then
438: hr_utility.set_message(800, 'PER_52125_AMD_MOD_PACK_INV2');
439: hr_utility.raise_error;
440: end if;
434: if p_api_module_type = 'BP' and p_module_package is null then
435: hr_utility.set_message(800, 'PER_52124_AMD_MOD_PACK_INV1');
436: hr_utility.raise_error;
437: elsif p_api_module_type = 'RH' and p_module_package is not null then
438: hr_utility.set_message(800, 'PER_52125_AMD_MOD_PACK_INV2');
439: hr_utility.raise_error;
440: end if;
441:
442: ---------------------------------------------------------------
435: hr_utility.set_message(800, 'PER_52124_AMD_MOD_PACK_INV1');
436: hr_utility.raise_error;
437: elsif p_api_module_type = 'RH' and p_module_package is not null then
438: hr_utility.set_message(800, 'PER_52125_AMD_MOD_PACK_INV2');
439: hr_utility.raise_error;
440: end if;
441:
442: ---------------------------------------------------------------
443: -- Check that the module name has been entered in upper case --
443: -- Check that the module name has been entered in upper case --
444: ---------------------------------------------------------------
445:
446: if( p_module_package <> upper(l_module_package) ) then
447: hr_utility.set_message(800, 'PER_52120_AMD_MOD_PACK_NOT_UPP');
448: hr_utility.raise_error;
449: end if;
450: end if;
451:
444: ---------------------------------------------------------------
445:
446: if( p_module_package <> upper(l_module_package) ) then
447: hr_utility.set_message(800, 'PER_52120_AMD_MOD_PACK_NOT_UPP');
448: hr_utility.raise_error;
449: end if;
450: end if;
451:
452: hr_utility.set_location('Leaving: '||l_proc,10);
448: hr_utility.raise_error;
449: end if;
450: end if;
451:
452: hr_utility.set_location('Leaving: '||l_proc,10);
453: end chk_module_package;
454: --
455: --
456: -- -----------------------------------------------------------------
491: where hah.api_module_id = p_api_module_id;
492: --
493: --
494: begin
495: hr_utility.set_location('Entering: '||l_proc,5);
496:
497: -- We don't have to check for valid module id as this is done by the lck proc
498: --------------------------------------
499: -- Check if module has any children --
503: fetch csr_check_for_child into l_api_module_id;
504:
505: if csr_check_for_child%found then
506: close csr_check_for_child;
507: hr_utility.set_message(800,'PER_52155_AMD_CANNOT_DEL_ROW');
508: hr_utility.raise_error;
509: end if;
510:
511: close csr_check_for_child;
504:
505: if csr_check_for_child%found then
506: close csr_check_for_child;
507: hr_utility.set_message(800,'PER_52155_AMD_CANNOT_DEL_ROW');
508: hr_utility.raise_error;
509: end if;
510:
511: close csr_check_for_child;
512:
509: end if;
510:
511: close csr_check_for_child;
512:
513: hr_utility.set_location('Leaving: '||l_proc,10);
514: end chk_delete;
515: --
516: --
517: -- ----------------------------------------------------------------------------
522: --
523: l_proc varchar2(72) := g_package||'insert_validate';
524: --
525: Begin
526: hr_utility.set_location('Entering:'||l_proc, 5);
527: --
528: -- As this data is not within the context of a business group
529: -- the set_security_group_id procedure has zero passed
530: -- to it as the default security_group_id.
531: --
532: hr_api.set_security_group_id(p_security_group_id => 0);
533: --
534: --
535: hr_utility.set_location('Entering:'||l_proc, 7);
536: --
537: -- Call all supporting business operations
538: --
539: -- Validate Module Type
568: (p_api_module_id => p_rec.api_module_id,
569: p_api_module_type => p_rec.api_module_type,
570: p_module_package => p_rec.module_package
571: );
572: hr_utility.set_location(' Leaving:'||l_proc, 10);
573: End insert_validate;
574: --
575: -- ----------------------------------------------------------------------------
576: -- -----------------------------< update_validate >----------------------------|
580: --
581: l_proc varchar2(72) := g_package||'update_validate';
582: --
583: Begin
584: hr_utility.set_location('Entering:'||l_proc, 5);
585: --
586: -- As this data is not within the context of a business group
587: -- the set_security_group_id procedure has zero passed
588: -- to it as the default security_group_id.
590: hr_api.set_security_group_id(p_security_group_id => 0);
591: --
592: -- Check that all non-updateable args have in fact not been modified.
593: --
594: hr_utility.set_location('Entering:'||l_proc, 7);
595: --
596: hr_amd_bus.chk_non_updateable_args(p_rec => p_rec);
597: --
598: -- Call all supporting business operations
618: p_module_package => p_rec.module_package
619: );
620: --
621: --
622: hr_utility.set_location(' Leaving:'||l_proc, 10);
623: End update_validate;
624: --
625: -- ----------------------------------------------------------------------------
626: -- |---------------------------< delete_validate >----------------------------|
629: --
630: l_proc varchar2(72) := g_package||'delete_validate';
631: --
632: Begin
633: hr_utility.set_location('Entering:'||l_proc, 5);
634: --
635: -- Call all supporting business operations
636: chk_delete(p_api_module_id => p_rec.api_module_id);
637: --
634: --
635: -- Call all supporting business operations
636: chk_delete(p_api_module_id => p_rec.api_module_id);
637: --
638: hr_utility.set_location(' Leaving:'||l_proc, 10);
639: End delete_validate;
640: --
641: end hr_amd_bus;