164: BEGIN
165: IF (p_identifier_type='DNI') THEN
166: l_value := check_DNI(p_identifier_value);
167: IF l_value <> 'Y' THEN
168: hr_utility.set_message(800, 'HR_ES_INVALID_DNI');
169: hr_utility.raise_error;
170: END IF;
171: ELSIF(p_identifier_type='NIE') THEN
172: l_value := check_NIE(p_identifier_value);
165: IF (p_identifier_type='DNI') THEN
166: l_value := check_DNI(p_identifier_value);
167: IF l_value <> 'Y' THEN
168: hr_utility.set_message(800, 'HR_ES_INVALID_DNI');
169: hr_utility.raise_error;
170: END IF;
171: ELSIF(p_identifier_type='NIE') THEN
172: l_value := check_NIE(p_identifier_value);
173: IF l_value <> 'Y' THEN
170: END IF;
171: ELSIF(p_identifier_type='NIE') THEN
172: l_value := check_NIE(p_identifier_value);
173: IF l_value <> 'Y' THEN
174: hr_utility.set_message(800, 'HR_ES_INVALID_NIE');
175: hr_utility.raise_error;
176: END IF;
177: ELSIF(p_identifier_type NOT IN('DNI','NIE')
178: AND p_identifier_value IS NOT NULL) THEN
171: ELSIF(p_identifier_type='NIE') THEN
172: l_value := check_NIE(p_identifier_value);
173: IF l_value <> 'Y' THEN
174: hr_utility.set_message(800, 'HR_ES_INVALID_NIE');
175: hr_utility.raise_error;
176: END IF;
177: ELSIF(p_identifier_type NOT IN('DNI','NIE')
178: AND p_identifier_value IS NOT NULL) THEN
179: l_value := 'Y';
304: AND p_identifier_value = pp.per_information3
305: AND p_identifier_type = pp.per_information2
306: AND pp.business_group_id = p_business_group_id);
307: --
308: hr_utility.set_message(801,'HR_ES_NI_UNIQUE_WARNING');
309: hr_utility.set_message_token('NI_NUMBER',hr_general.decode_lookup('ES_FORM_LABELS','IDENTIFIER_VALUE'));
310: RAISE local_warning;
311: --
312: EXCEPTION
305: AND p_identifier_type = pp.per_information2
306: AND pp.business_group_id = p_business_group_id);
307: --
308: hr_utility.set_message(801,'HR_ES_NI_UNIQUE_WARNING');
309: hr_utility.set_message_token('NI_NUMBER',hr_general.decode_lookup('ES_FORM_LABELS','IDENTIFIER_VALUE'));
310: RAISE local_warning;
311: --
312: EXCEPTION
313: WHEN NO_DATA_FOUND THEN NULL;
311: --
312: EXCEPTION
313: WHEN NO_DATA_FOUND THEN NULL;
314: WHEN local_warning THEN
315: hr_utility.set_warning;
316: END;
317: EXCEPTION
318: WHEN NO_DATA_FOUND THEN
319: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
315: hr_utility.set_warning;
316: END;
317: EXCEPTION
318: WHEN NO_DATA_FOUND THEN
319: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
320: hr_utility.set_message_token('PROCEDURE','CHECK_IDENTIFIER_UNIQUE');
321: hr_utility.set_message_token('STEP','1');
322: hr_utility.raise_error;
323: WHEN local_warning THEN
316: END;
317: EXCEPTION
318: WHEN NO_DATA_FOUND THEN
319: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
320: hr_utility.set_message_token('PROCEDURE','CHECK_IDENTIFIER_UNIQUE');
321: hr_utility.set_message_token('STEP','1');
322: hr_utility.raise_error;
323: WHEN local_warning THEN
324: hr_utility.set_warning;
317: EXCEPTION
318: WHEN NO_DATA_FOUND THEN
319: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
320: hr_utility.set_message_token('PROCEDURE','CHECK_IDENTIFIER_UNIQUE');
321: hr_utility.set_message_token('STEP','1');
322: hr_utility.raise_error;
323: WHEN local_warning THEN
324: hr_utility.set_warning;
325: END check_identifier_unique;
318: WHEN NO_DATA_FOUND THEN
319: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
320: hr_utility.set_message_token('PROCEDURE','CHECK_IDENTIFIER_UNIQUE');
321: hr_utility.set_message_token('STEP','1');
322: hr_utility.raise_error;
323: WHEN local_warning THEN
324: hr_utility.set_warning;
325: END check_identifier_unique;
326:
320: hr_utility.set_message_token('PROCEDURE','CHECK_IDENTIFIER_UNIQUE');
321: hr_utility.set_message_token('STEP','1');
322: hr_utility.raise_error;
323: WHEN local_warning THEN
324: hr_utility.set_warning;
325: END check_identifier_unique;
326:
327: --------------------------------------------------------------------------------
328: -- PROCEDURE validate_cif
363: END IF;
364: END LOOP;
365:
366: IF l_formula_mesg = 'INVALID_ID' THEN
367: hr_utility.set_message(800,'HR_ES_INVALID_CIF');
368: hr_utility.raise_error;
369: END IF;
370: END validate_cif;
371: --------------------------------------------------------------------------------
364: END LOOP;
365:
366: IF l_formula_mesg = 'INVALID_ID' THEN
367: hr_utility.set_message(800,'HR_ES_INVALID_CIF');
368: hr_utility.raise_error;
369: END IF;
370: END validate_cif;
371: --------------------------------------------------------------------------------
372: -- FUNCTION validate_cac_lookup
429: END IF;
430: END LOOP;
431:
432: IF l_formula_mesg = 'INVALID_ID' THEN
433: hr_utility.set_message(800,'HR_ES_INVALID_CAC');
434: hr_utility.raise_error;
435: END IF;
436: END validate_cac;
437: --------------------------------------------------------------------------------
430: END LOOP;
431:
432: IF l_formula_mesg = 'INVALID_ID' THEN
433: hr_utility.set_message(800,'HR_ES_INVALID_CAC');
434: hr_utility.raise_error;
435: END IF;
436: END validate_cac;
437: --------------------------------------------------------------------------------
438: -- PROCEDURE unique_cac
489: CLOSE get_cac_statutory;
490: END IF;
491:
492: IF l_check_cac = 'x' or l_check_cac1 = 'x' THEN
493: hr_utility.set_message(800,'HR_ES_CAC_UNIQUE_ERROR');
494: hr_utility.raise_error;
495: END IF;
496: --
497: END unique_cac;
490: END IF;
491:
492: IF l_check_cac = 'x' or l_check_cac1 = 'x' THEN
493: hr_utility.set_message(800,'HR_ES_CAC_UNIQUE_ERROR');
494: hr_utility.raise_error;
495: END IF;
496: --
497: END unique_cac;
498:
530: CLOSE get_ss_code;
531: END IF;
532:
533: IF l_check_ss = 'x' THEN
534: hr_utility.set_message(800,'HR_ES_SS_UNIQUE_ERROR');
535: hr_utility.raise_error;
536: END IF;
537:
538: END unique_ss;
531: END IF;
532:
533: IF l_check_ss = 'x' THEN
534: hr_utility.set_message(800,'HR_ES_SS_UNIQUE_ERROR');
535: hr_utility.raise_error;
536: END IF;
537:
538: END unique_ss;
539: --------------------------------------------------------------------------------
563: OPEN get_cif;
564: FETCH get_cif INTO l_check_cif;
565: CLOSE get_cif;
566: IF l_check_cif = 'x' THEN
567: hr_utility.set_message(800,'HR_ES_CIF_UNIQUE_ERROR');
568: hr_utility.raise_error;
569: END IF;
570: END unique_cif;
571: --------------------------------------------------------------------------------
564: FETCH get_cif INTO l_check_cif;
565: CLOSE get_cif;
566: IF l_check_cif = 'x' THEN
567: hr_utility.set_message(800,'HR_ES_CIF_UNIQUE_ERROR');
568: hr_utility.raise_error;
569: END IF;
570: END unique_cif;
571: --------------------------------------------------------------------------------
572: -- PROCEDURE validate_wc_sec_ref
597: CLOSE csr_chk_wc_sec_ref;
598:
599: IF l_check_ref = 'x' THEN
600: IF p_context = 'ES_WORK_CENTER_REF' THEN
601: hr_utility.set_message(800,'HR_ES_INVALID_REFERENCE');
602: hr_utility.set_message_token(800,'VALUE'
603: ,hr_general.decode_lookup('ES_FORM_LABELS','WORK_CENTER'));
604: hr_utility.raise_error;
605: ELSIF p_context = 'ES_SECTION_REF' THEN
598:
599: IF l_check_ref = 'x' THEN
600: IF p_context = 'ES_WORK_CENTER_REF' THEN
601: hr_utility.set_message(800,'HR_ES_INVALID_REFERENCE');
602: hr_utility.set_message_token(800,'VALUE'
603: ,hr_general.decode_lookup('ES_FORM_LABELS','WORK_CENTER'));
604: hr_utility.raise_error;
605: ELSIF p_context = 'ES_SECTION_REF' THEN
606: hr_utility.set_message(800,'HR_ES_INVALID_REFERENCE');
600: IF p_context = 'ES_WORK_CENTER_REF' THEN
601: hr_utility.set_message(800,'HR_ES_INVALID_REFERENCE');
602: hr_utility.set_message_token(800,'VALUE'
603: ,hr_general.decode_lookup('ES_FORM_LABELS','WORK_CENTER'));
604: hr_utility.raise_error;
605: ELSIF p_context = 'ES_SECTION_REF' THEN
606: hr_utility.set_message(800,'HR_ES_INVALID_REFERENCE');
607: hr_utility.set_message_token(800,'VALUE'
608: ,hr_general.decode_lookup('ES_FORM_LABELS','SECTION'));
602: hr_utility.set_message_token(800,'VALUE'
603: ,hr_general.decode_lookup('ES_FORM_LABELS','WORK_CENTER'));
604: hr_utility.raise_error;
605: ELSIF p_context = 'ES_SECTION_REF' THEN
606: hr_utility.set_message(800,'HR_ES_INVALID_REFERENCE');
607: hr_utility.set_message_token(800,'VALUE'
608: ,hr_general.decode_lookup('ES_FORM_LABELS','SECTION'));
609: hr_utility.raise_error;
610: END IF;
603: ,hr_general.decode_lookup('ES_FORM_LABELS','WORK_CENTER'));
604: hr_utility.raise_error;
605: ELSIF p_context = 'ES_SECTION_REF' THEN
606: hr_utility.set_message(800,'HR_ES_INVALID_REFERENCE');
607: hr_utility.set_message_token(800,'VALUE'
608: ,hr_general.decode_lookup('ES_FORM_LABELS','SECTION'));
609: hr_utility.raise_error;
610: END IF;
611: END IF;
605: ELSIF p_context = 'ES_SECTION_REF' THEN
606: hr_utility.set_message(800,'HR_ES_INVALID_REFERENCE');
607: hr_utility.set_message_token(800,'VALUE'
608: ,hr_general.decode_lookup('ES_FORM_LABELS','SECTION'));
609: hr_utility.raise_error;
610: END IF;
611: END IF;
612:
613: END validate_wc_sec_ref;
632: AND information1 IS NOT NULL);
633: --
634: EXCEPTION
635: WHEN NO_DATA_FOUND THEN
636: hr_utility.set_message(800,'HR_ES_STAT_TERM_REASON_MISSING');
637: hr_utility.set_warning;
638: END;
639: END check_leaving_reason;
640: --------------------------------------------------------------------------------
633: --
634: EXCEPTION
635: WHEN NO_DATA_FOUND THEN
636: hr_utility.set_message(800,'HR_ES_STAT_TERM_REASON_MISSING');
637: hr_utility.set_warning;
638: END;
639: END check_leaving_reason;
640: --------------------------------------------------------------------------------
641: -- FUNCTION check_SSI
811: l_colon_position := INSTR(p_token1,':');
812: l_token_name := SUBSTR(p_token1,1,l_colon_position-1);
813: l_token_value := SUBSTR(p_token1,l_colon_position+1,LENGTH(p_token1));
814: fnd_message.set_token(l_token_name, l_token_value);
815: hr_utility.set_location('. Token1: '||l_token_name||'. Value: '||l_token_value,50);
816: END IF;
817:
818: IF p_token2 is not null then
819: /* Obtain token 2 name and value */
820: l_colon_position := INSTR(p_token2,':');
821: l_token_name := SUBSTR(p_token2,1,l_colon_position-1);
822: l_token_value := SUBSTR(p_token2,l_colon_position+1,LENGTH(p_token2));
823: fnd_message.set_token(l_token_name, l_token_value);
824: hr_utility.set_location('. Token2: '||l_token_name||'. Value: '||l_token_value,60);
825: END IF;
826:
827: IF p_token3 is not null then
828: /* Obtain token 3 name and value */
829: l_colon_position := INSTR(p_token3,':');
830: l_token_name := SUBSTR(p_token3,1,l_colon_position-1);
831: l_token_value := SUBSTR(p_token3,l_colon_position+1,LENGTH(p_token3));
832: fnd_message.set_token(l_token_name, l_token_value);
833: hr_utility.set_location('. Token3: '||l_token_name||'. Value: '||l_token_value,70);
834: END IF;
835:
836: l_message := SUBSTRb(fnd_message.get,1,254);
837:
852: BEGIN
853: --
854: BEGIN
855: --
856: hr_utility.trace('Inside get_table_value'||bus_group_id||' '||ptab_name||' '||pcol_name||' '||prow_value||' '||peffective_date);
857: l_ret:= hruserdt.get_table_value(bus_group_id
858: ,ptab_name
859: ,pcol_name
860: ,prow_value
864: WHEN NO_DATA_FOUND THEN
865: l_ret:='0';
866: END;
867: --
868: hr_utility.trace('l_ret '||l_ret);
869: RETURN to_number(l_ret);
870: --
871: END get_table_value;
872: --
884: BEGIN
885: --
886: BEGIN
887: --
888: hr_utility.trace('Inside get_table_value'||bus_group_id||' '||ptab_name||' '||pcol_name||' '||prow_value||' '||peffective_date);
889: l_ret:= hruserdt.get_table_value(bus_group_id
890: ,ptab_name
891: ,pcol_name
892: ,prow_value
896: WHEN NO_DATA_FOUND THEN
897: l_ret:='0';
898: END;
899: --
900: hr_utility.trace('l_ret '||l_ret);
901: RETURN to_number(l_ret);
902: --
903: END get_table_value_date;
904: --
916: BEGIN
917: --
918: BEGIN
919: --
920: hr_utility.trace('Inside get_table_value_char'||bus_group_id||' '||ptab_name||' '||pcol_name||' '||prow_value||' '||peffective_date);
921: l_ret:= hruserdt.get_table_value(bus_group_id
922: ,ptab_name
923: ,pcol_name
924: ,prow_value
923: ,pcol_name
924: ,prow_value
925: ,peffective_date);
926: --
927: hr_utility.trace('l_ret '||l_ret);
928: EXCEPTION
929: WHEN NO_DATA_FOUND THEN
930: l_ret:='-1';
931: END;