APPS.PER_CN_VALIDATIONS_PKG dependencies on PER_CN_VALIDATIONS_PKG

Line 1: package body PER_CN_VALIDATIONS_PKG as

1: package body PER_CN_VALIDATIONS_PKG as
2: /* $Header: percnval.pkb 115.1 2002/11/20 07:21:18 mkandasa noship $ */
3: --------------------------------------------------------------------------------
4:
5: /*

Line 49: hr_utility.set_location('PER_CN_VALIDATIONS_PKG.calculate_check_digit',1);

45: l_weight number :=0;
46: l_sum number :=0;
47: l_chk_dgt number :=0;
48: begin
49: hr_utility.set_location('PER_CN_VALIDATIONS_PKG.calculate_check_digit',1);
50: for l_pos in 2 .. 18
51: loop
52: l_digit := to_number(substr(p_national_identifier,19 - l_pos,1)) ;
53: l_weight := weight(l_pos);

Line 65: hr_utility.set_location('PER_CN_VALIDATIONS_PKG.calculate_check_digit',2);

61: return to_char(l_chk_dgt);
62: else
63: return 'X';
64: end if;
65: hr_utility.set_location('PER_CN_VALIDATIONS_PKG.calculate_check_digit',2);
66: end calculate_check_digit;
67:
68:
69: --This function used to validate the national Identifier number entered

Line 88: hr_utility.set_location('PER_CN_VALIDATIONS_PKG.validate_national_identifier',1);

84: l_ni_chk_dgt char;
85:
86:
87: Begin
88: hr_utility.set_location('PER_CN_VALIDATIONS_PKG.validate_national_identifier',1);
89: l_status := 0;
90: if ( length(p_national_identifier) = 18 ) then
91: begin
92: l_gender :=mod( to_number(substr(p_national_identifier,17,1)),2);

Line 122: hr_utility.set_location('PER_CN_VALIDATIONS_PKG.validate_national_identifier',1);

118: elsif ( nvl(l_ni_chk_dgt,'#') <> nvl( l_cal_chk_dgt, '#' )) then
119: l_status := -3;
120: end if;
121:
122: hr_utility.set_location('PER_CN_VALIDATIONS_PKG.validate_national_identifier',1);
123: -- If there is an error then l_stauts will be less than zero else it will be zero.
124: return l_status;
125:
126: End validate_national_identifier;

Line 128: End PER_CN_VALIDATIONS_PKG;

124: return l_status;
125:
126: End validate_national_identifier;
127:
128: End PER_CN_VALIDATIONS_PKG;