1: PACKAGE BODY per_in_extra_asg_info_leg_hook AS
2: /* $Header: peinlhae.pkb 120.2 2006/05/27 18:45:26 statkar noship $ */
3: p_token_name pay_in_utils.char_tab_type;
4: p_token_value pay_in_utils.char_tab_type;
5: g_package CONSTANT VARCHAR2(100) := 'per_in_extra_asg_info_leg_hook.';
6: g_debug BOOLEAN ;
7: --
1: PACKAGE BODY per_in_extra_asg_info_leg_hook AS
2: /* $Header: peinlhae.pkb 120.2 2006/05/27 18:45:26 statkar noship $ */
3: p_token_name pay_in_utils.char_tab_type;
4: p_token_value pay_in_utils.char_tab_type;
5: g_package CONSTANT VARCHAR2(100) := 'per_in_extra_asg_info_leg_hook.';
6: g_debug BOOLEAN ;
7: --
8: --------------------------------------------------------------------------
70: BEGIN
71:
72: l_procedure := g_package ||'check_asg_extra_info_insert';
73: g_debug := hr_utility.debug_enabled;
74: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
75:
76: IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'IN') THEN
77: pay_in_utils.trace('IN Legislation not installed. Not performing the validations','20');
78: RETURN;
73: g_debug := hr_utility.debug_enabled;
74: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
75:
76: IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'IN') THEN
77: pay_in_utils.trace('IN Legislation not installed. Not performing the validations','20');
78: RETURN;
79: END IF;
80:
81: l_message_name := 'SUCCESS';
78: RETURN;
79: END IF;
80:
81: l_message_name := 'SUCCESS';
82: pay_in_utils.set_location(g_debug,l_procedure,30);
83:
84: check_asg_extra_info_int(
85: p_assignment_id => p_assignment_id
86: ,p_aei_information_category => p_aei_information_category
117: ,p_message => l_message_name
118: ,p_token_name => p_token_name
119: ,p_token_value => p_token_value);
120:
121: pay_in_utils.set_location(g_debug,l_procedure,40);
122:
123: IF l_message_name <> 'HR_7207_API_MANDATORY_ARG' THEN
124: pay_in_utils.raise_message(800, l_message_name, p_token_name, p_token_value);
125: ELSE
120:
121: pay_in_utils.set_location(g_debug,l_procedure,40);
122:
123: IF l_message_name <> 'HR_7207_API_MANDATORY_ARG' THEN
124: pay_in_utils.raise_message(800, l_message_name, p_token_name, p_token_value);
125: ELSE
126: pay_in_utils.raise_message(801, l_message_name, p_token_name, p_token_value);
127: END IF;
128:
122:
123: IF l_message_name <> 'HR_7207_API_MANDATORY_ARG' THEN
124: pay_in_utils.raise_message(800, l_message_name, p_token_name, p_token_value);
125: ELSE
126: pay_in_utils.raise_message(801, l_message_name, p_token_name, p_token_value);
127: END IF;
128:
129: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,50);
130:
125: ELSE
126: pay_in_utils.raise_message(801, l_message_name, p_token_name, p_token_value);
127: END IF;
128:
129: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,50);
130:
131: END check_asg_extra_info_insert;
132:
133: --------------------------------------------------------------------------
263:
264:
265: l_procedure := g_package ||'check_asg_extra_info_update';
266: g_debug := hr_utility.debug_enabled;
267: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
268:
269: IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'IN') THEN
270: pay_in_utils.trace('IN Legislation not installed. Not performing the validations','20');
271: RETURN;
266: g_debug := hr_utility.debug_enabled;
267: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
268:
269: IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'IN') THEN
270: pay_in_utils.trace('IN Legislation not installed. Not performing the validations','20');
271: RETURN;
272: END IF;
273:
274: l_message_name := 'SUCCESS';
271: RETURN;
272: END IF;
273:
274: l_message_name := 'SUCCESS';
275: pay_in_utils.set_location(g_debug,l_procedure,30);
276:
277: OPEN get_assignment_id;
278: FETCH get_assignment_id INTO l_assignment_id
279: ,l_aei_information1
307: ,l_aei_information29
308: ,l_aei_information30;
309: CLOSE get_assignment_id;
310:
311: pay_in_utils.set_location(g_debug,l_procedure,40);
312:
313: IF p_aei_information1 <> hr_api.g_varchar2 THEN
314: l_aei_information1 := p_aei_information1;
315: END IF;
400: IF p_aei_information30 <> hr_api.g_varchar2 THEN
401: l_aei_information30 := p_aei_information30;
402: END IF;
403:
404: pay_in_utils.set_location(g_debug,l_procedure,50);
405: check_asg_extra_info_int(
406: p_assignment_id => l_assignment_id
407: ,p_assignment_extra_info_id => p_assignment_extra_info_id
408: ,p_aei_information_category => p_aei_information_category
438: ,p_aei_information30 => l_aei_information30
439: ,p_message => l_message_name
440: ,p_token_name => p_token_name
441: ,p_token_value => p_token_value);
442: pay_in_utils.set_location(g_debug,l_procedure,60);
443: IF l_message_name <> 'HR_7207_API_MANDATORY_ARG' THEN
444: pay_in_utils.raise_message(800, l_message_name, p_token_name, p_token_value);
445: ELSE
446: pay_in_utils.raise_message(801, l_message_name, p_token_name, p_token_value);
440: ,p_token_name => p_token_name
441: ,p_token_value => p_token_value);
442: pay_in_utils.set_location(g_debug,l_procedure,60);
443: IF l_message_name <> 'HR_7207_API_MANDATORY_ARG' THEN
444: pay_in_utils.raise_message(800, l_message_name, p_token_name, p_token_value);
445: ELSE
446: pay_in_utils.raise_message(801, l_message_name, p_token_name, p_token_value);
447: END IF;
448: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,70);
442: pay_in_utils.set_location(g_debug,l_procedure,60);
443: IF l_message_name <> 'HR_7207_API_MANDATORY_ARG' THEN
444: pay_in_utils.raise_message(800, l_message_name, p_token_name, p_token_value);
445: ELSE
446: pay_in_utils.raise_message(801, l_message_name, p_token_name, p_token_value);
447: END IF;
448: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,70);
449:
450:
444: pay_in_utils.raise_message(800, l_message_name, p_token_name, p_token_value);
445: ELSE
446: pay_in_utils.raise_message(801, l_message_name, p_token_name, p_token_value);
447: END IF;
448: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,70);
449:
450:
451: END check_asg_extra_info_update;
452:
508: ,p_aei_information28 IN VARCHAR2
509: ,p_aei_information29 IN VARCHAR2
510: ,p_aei_information30 IN VARCHAR2
511: ,p_message OUT NOCOPY VARCHAR2
512: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
513: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type) IS
514: CURSOR cur_check_unique_record_ins
515: IS
516: SELECT 1
509: ,p_aei_information29 IN VARCHAR2
510: ,p_aei_information30 IN VARCHAR2
511: ,p_message OUT NOCOPY VARCHAR2
512: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
513: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type) IS
514: CURSOR cur_check_unique_record_ins
515: IS
516: SELECT 1
517: FROM PER_ASSIGNMENT_EXTRA_INFO
537: BEGIN
538: p_message := 'SUCCESS';
539: l_procedure := g_package ||'check_asg_extra_info_int';
540: g_debug := hr_utility.debug_enabled ;
541: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
542:
543: IF p_aei_information_category = 'PER_IN_PF_REMARKS'
544: OR p_aei_information_category = 'PER_IN_ESI_REMARKS' THEN
545: --
547: OPEN cur_check_unique_record_ins;
548: FETCH cur_check_unique_record_ins INTO l_temp;
549: CLOSE cur_check_unique_record_ins;
550:
551: pay_in_utils.set_location(g_debug,l_procedure,20);
552:
553: IF l_temp = 1 THEN
554: p_message := 'PER_IN_MULTIPLE_REMARKS';
555: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,30);
551: pay_in_utils.set_location(g_debug,l_procedure,20);
552:
553: IF l_temp = 1 THEN
554: p_message := 'PER_IN_MULTIPLE_REMARKS';
555: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,30);
556: RETURN;
557: END IF;
558:
559: ELSIF p_assignment_extra_info_id IS NOT NULL THEN
560: OPEN cur_check_unique_record_upd;
561: FETCH cur_check_unique_record_upd INTO l_temp;
562: CLOSE cur_check_unique_record_upd;
563:
564: pay_in_utils.set_location(g_debug,l_procedure,40);
565:
566: IF l_temp = 1 THEN
567: p_message := 'PER_IN_MULTIPLE_REMARKS';
568: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,50);
564: pay_in_utils.set_location(g_debug,l_procedure,40);
565:
566: IF l_temp = 1 THEN
567: p_message := 'PER_IN_MULTIPLE_REMARKS';
568: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,50);
569: RETURN;
570: END IF;
571:
572: END IF;
569: RETURN;
570: END IF;
571:
572: END IF;
573: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,60);
574:
575: END IF;
576:
577: END check_asg_extra_info_int;