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;