345: l_ss_no VARCHAR2(10);
346: BEGIN
347: l_ss_no := hr_ni_chk_pkg.chk_nat_id_format(p_org_info,'DDDDDDD-A');
348: IF l_ss_no ='0' THEN
349: hr_utility.set_message(800, 'HR_HU_INVALID_SS_NO');
350: hr_utility.raise_error;
351: END IF;
352: END validate_ss_no;
353: ---------------------------------------------------------------
346: BEGIN
347: l_ss_no := hr_ni_chk_pkg.chk_nat_id_format(p_org_info,'DDDDDDD-A');
348: IF l_ss_no ='0' THEN
349: hr_utility.set_message(800, 'HR_HU_INVALID_SS_NO');
350: hr_utility.raise_error;
351: END IF;
352: END validate_ss_no;
353: ---------------------------------------------------------------
354: PROCEDURE validate_tax_no(p_org_info VARCHAR2) is
354: PROCEDURE validate_tax_no(p_org_info VARCHAR2) is
355: l_tax_no VARCHAR2(15);
356: BEGIN
357: IF p_org_info = '00000000-0-00' THEN
358: hr_utility.set_message(800, 'HR_HU_INVALID_TAX_NO');
359: hr_utility.raise_error;
360: END IF;
361:
362: IF (instr(p_org_info,'-',1,1) <> 9 OR instr(p_org_info,'-',1,2) <> 11) THEN
355: l_tax_no VARCHAR2(15);
356: BEGIN
357: IF p_org_info = '00000000-0-00' THEN
358: hr_utility.set_message(800, 'HR_HU_INVALID_TAX_NO');
359: hr_utility.raise_error;
360: END IF;
361:
362: IF (instr(p_org_info,'-',1,1) <> 9 OR instr(p_org_info,'-',1,2) <> 11) THEN
363: hr_utility.set_message(800, 'HR_HU_INVALID_TAX_NO');
359: hr_utility.raise_error;
360: END IF;
361:
362: IF (instr(p_org_info,'-',1,1) <> 9 OR instr(p_org_info,'-',1,2) <> 11) THEN
363: hr_utility.set_message(800, 'HR_HU_INVALID_TAX_NO');
364: hr_utility.raise_error;
365: END IF;
366:
367: l_tax_no := hr_ni_chk_pkg.chk_nat_id_format(p_org_info,'DDDDDDDD-D-DD');
360: END IF;
361:
362: IF (instr(p_org_info,'-',1,1) <> 9 OR instr(p_org_info,'-',1,2) <> 11) THEN
363: hr_utility.set_message(800, 'HR_HU_INVALID_TAX_NO');
364: hr_utility.raise_error;
365: END IF;
366:
367: l_tax_no := hr_ni_chk_pkg.chk_nat_id_format(p_org_info,'DDDDDDDD-D-DD');
368: IF l_tax_no ='0' THEN
365: END IF;
366:
367: l_tax_no := hr_ni_chk_pkg.chk_nat_id_format(p_org_info,'DDDDDDDD-D-DD');
368: IF l_tax_no ='0' THEN
369: hr_utility.set_message(800, 'HR_HU_INVALID_TAX_NO');
370: hr_utility.raise_error;
371: END IF;
372: END validate_tax_no;
373: ---------------------------------------------------------------
366:
367: l_tax_no := hr_ni_chk_pkg.chk_nat_id_format(p_org_info,'DDDDDDDD-D-DD');
368: IF l_tax_no ='0' THEN
369: hr_utility.set_message(800, 'HR_HU_INVALID_TAX_NO');
370: hr_utility.raise_error;
371: END IF;
372: END validate_tax_no;
373: ---------------------------------------------------------------
374: PROCEDURE validate_cs_no(p_org_info4 VARCHAR2
377: l_cs_no VARCHAR2(8);
378: BEGIN
379: l_cs_no := substr(p_org_info4,1,8);
380: IF l_cs_no <> p_org_info5 THEN
381: hr_utility.set_message(800, 'HR_HU_INVALID_CS_NO');
382: hr_utility.raise_error;
383: END IF;
384: END validate_cs_no;
385: -----------------------------------------------------------------
378: BEGIN
379: l_cs_no := substr(p_org_info4,1,8);
380: IF l_cs_no <> p_org_info5 THEN
381: hr_utility.set_message(800, 'HR_HU_INVALID_CS_NO');
382: hr_utility.raise_error;
383: END IF;
384: END validate_cs_no;
385: -----------------------------------------------------------------
386:
408: AND p_identifier = pp.per_information2
409: AND pp.business_group_id = p_business_group_id);
410: --
411: IF l_status = 'Y' THEN
412: hr_utility.set_message(800, 'HR_HU_NI_UNIQUE_WARNING');
413: hr_utility.set_message_token('NI_NUMBER',hr_general.decode_lookup('HU_FORM_LABELS','TAX_ID_NO'));
414: hr_utility.raise_error;
415: END IF;
416: --
409: AND pp.business_group_id = p_business_group_id);
410: --
411: IF l_status = 'Y' THEN
412: hr_utility.set_message(800, 'HR_HU_NI_UNIQUE_WARNING');
413: hr_utility.set_message_token('NI_NUMBER',hr_general.decode_lookup('HU_FORM_LABELS','TAX_ID_NO'));
414: hr_utility.raise_error;
415: END IF;
416: --
417: EXCEPTION
410: --
411: IF l_status = 'Y' THEN
412: hr_utility.set_message(800, 'HR_HU_NI_UNIQUE_WARNING');
413: hr_utility.set_message_token('NI_NUMBER',hr_general.decode_lookup('HU_FORM_LABELS','TAX_ID_NO'));
414: hr_utility.raise_error;
415: END IF;
416: --
417: EXCEPTION
418: WHEN NO_DATA_FOUND THEN NULL;