[Home] [Help]
PACKAGE BODY: APPS.PER_KR_VALIDATIONS_PKG
Source
1 PACKAGE BODY per_kr_validations_pkg as
2 /* $Header: pekrvald.pkb 120.0 2005/05/31 11:10:07 appldev noship $ */
3 FUNCTION check_kr_ni
4 (
5 p_national_identifier IN VARCHAR2
6 ,p_gender IN VARCHAR2
7 ,p_date_format IN VARCHAR2
8 ) RETURN VARCHAR2
9 IS
10 l_return_value VARCHAR2(255);
11 l_gender_digit VARCHAR2(1);
12 l_dummy DATE;
13 BEGIN
14 --
15 l_dummy := to_date(substr(p_national_identifier, 1, 6), p_date_format);
16 l_gender_digit := mod(substr(p_national_identifier, 8, 1), 2);
17 --
18 if not
19 ( ( p_gender = 'M' and l_gender_digit = 1 )
20 or
21 ( p_gender = 'F' and l_gender_digit = 0 )
22 )
23 then l_return_value := 'INVALID_ID';
24 else
25 l_return_value := p_national_identifier;
26 end if;
27 return l_return_value;
28 EXCEPTION
29 WHEN OTHERS THEN
30 l_return_value := 'INVALID_ID';
31 return l_return_value;
32 --
33 END check_kr_ni;
34 --
35 END per_kr_validations_pkg;