[Home] [Help]
PACKAGE BODY: APPS.PER_JP_EXTRA_PERSON_RULES
Source
1 Package Body per_jp_extra_person_rules as
2 /* $Header: pejpexpr.pkb 120.1 2006/08/21 10:38:09 shisriva noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' per_jp_extra_person_rules.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |---------------------------< chk_kana_format >----------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure chk_kana_format
13 (p_last_name in varchar2
14 ,p_first_name in varchar2
15 ,p_previous_last_name in varchar2
16 ,p_person_type_id in number -- Added for Bug#3613987
17 ) is
18 --
19 -- Declare cursors and local variables
20 --
21 l_proc varchar2(72) := g_package||'chk_kana_format';
22 l_system_person_type per_person_types.system_person_type%type;
23 --
24 procedure local_chk_kana_format(p_input in varchar2
25 ,p_system_person_type in varchar2) is
26 l_input varchar2(255);
27 l_output varchar2(255);
28 l_rgeflg varchar2(1);
29 begin
30 if p_input is not null then
31 --
32 -- Bug#3613987
33 -- Added check for system_person_type and last_name
34 --
35 if not(p_input = fnd_message.get_string('PER','IRC_412108_UNKNOWN_NAME')
36 and
37 p_system_person_type = 'OTHER') then
38 l_input := p_input;
39 hr_chkfmt.checkformat(value => l_input
40 ,format => 'KANA'
41 ,output => l_output
42 ,minimum => NULL
43 ,maximum => NULL
44 ,nullok => 'N'
45 ,rgeflg => l_rgeflg
46 ,curcode => NULL);
47 end if;
48 --
49 end if;
50 end local_chk_kana_format;
51 begin
52 /* Bug Fix : 5452289 */
53 IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'JP') THEN
54 RETURN;
55 END IF;
56 --
57 hr_utility.set_location('Entering:'|| l_proc, 10);
58 --
59 -- Bug#3613987
60 -- Added check for system_person_type
61 --
62 select system_person_type
63 into l_system_person_type
64 from per_person_types
65 where person_type_id = p_person_type_id;
66 --
67 -- Validation in addition to Row Handlers
68 --
69 local_chk_kana_format(p_last_name, l_system_person_type);
70 local_chk_kana_format(p_first_name, l_system_person_type);
71 local_chk_kana_format(p_previous_last_name, l_system_person_type);
72 --
73 hr_utility.set_location('Leaving:'|| l_proc, 20);
74 end chk_kana_format;
75 --
76 end per_jp_extra_person_rules;