[Home] [Help]
PACKAGE BODY: APPS.HR_PAT_BUS
Source
1 Package Body hr_pat_bus as
2 /* $Header: hrpatrhi.pkb 115.2 99/07/17 05:36:40 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hr_pat_bus.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< chk_pattern_name >---------------------------|
12 -- ----------------------------------------------------------------------------
13 procedure chk_pattern_name (
14 --
15 p_pattern_name in varchar2,
16 p_pattern_id in number default null,
17 p_object_version_number in number default null
18 ) is
19 --
20 l_proc varchar2(72) := g_package||'chk_pattern_name';
21 l_dummy integer (1) := null;
22 l_api_updating boolean := FALSE;
23 --
24 cursor csr_duplicate is
25 --
26 select 1
27 from hr_patterns
28 where upper (pattern_name) = upper (p_pattern_name)
29 and (p_pattern_id is null
30 or p_pattern_id <> pattern_id);
31 --
32 procedure check_parameters is
33 --
34 begin
35 --
36 hr_api.mandatory_arg_error
37 (p_api_name => l_proc,
38 p_argument => 'pattern_name',
39 p_argument_value => p_pattern_name);
40 --
41 end check_parameters;
42 --
43 begin
44 --
45 hr_utility.set_location ('Entering '||l_proc,1);
46 --
47 check_parameters;
48 --
49 -- Only perform check if we are not updating or if we are updating the
50 -- pattern name to something different from its present value.
51 --
52 l_api_updating := hr_pat_shd.api_updating (p_pattern_id=> p_pattern_id,
53 p_object_version_number=> p_object_version_number);
54 --
55 if ((l_api_updating and hr_pat_shd.g_old_rec.pattern_name <> p_pattern_name)
56 or (not l_api_updating))
57 then
58 --
59 -- Look for a duplicate pattern name
60 --
61 open csr_duplicate;
62 fetch csr_duplicate into l_dummy;
63 if csr_duplicate%found then
64 --
65 close csr_duplicate;
66 hr_utility.set_message (801,'HR_51081_PAT_UK01');
67 hr_utility.raise_error;
68 --
69 else
70 --
71 close csr_duplicate;
72 --
73 end if;
74 --
75 end if;
76 --
77 hr_utility.set_location ('Leaving '||l_proc,10);
78 --
79 end chk_pattern_name;
80 -- ----------------------------------------------------------------------------
81 -- |---------------------------< insert_validate >----------------------------|
82 -- ----------------------------------------------------------------------------
83 Procedure insert_validate(p_rec in hr_pat_shd.g_rec_type) is
84 --
85 l_proc varchar2(72) := g_package||'insert_validate';
86 --
87 Begin
88 hr_utility.set_location('Entering:'||l_proc, 5);
89 --
90 -- Call all supporting business operations
91 --
92 chk_pattern_name (p_pattern_name=> p_rec.pattern_name);
93 --
94 --
95 hr_utility.set_location(' Leaving:'||l_proc, 10);
96 End insert_validate;
97 --
98 -- ----------------------------------------------------------------------------
99 -- |---------------------------< update_validate >----------------------------|
100 -- ----------------------------------------------------------------------------
101 Procedure update_validate(p_rec in hr_pat_shd.g_rec_type) is
102 --
103 l_proc varchar2(72) := g_package||'update_validate';
104 --
105 Begin
106 hr_utility.set_location('Entering:'||l_proc, 5);
107 --
108 -- Call all supporting business operations
109 --
110 chk_pattern_name (p_pattern_name=> p_rec.pattern_name,
111 p_pattern_id=> p_rec.pattern_id,
112 p_object_version_number=> p_rec.object_version_number);
113 --
114 --
115 hr_utility.set_location(' Leaving:'||l_proc, 10);
116 End update_validate;
117 --
118 -- ----------------------------------------------------------------------------
119 -- |---------------------------< delete_validate >----------------------------|
120 -- ----------------------------------------------------------------------------
121 Procedure delete_validate(p_rec in hr_pat_shd.g_rec_type) is
122 --
123 l_proc varchar2(72) := g_package||'delete_validate';
124 --
125 Begin
126 hr_utility.set_location('Entering:'||l_proc, 5);
127 --
128 -- Call all supporting business operations
129 --
130 hr_utility.set_location(' Leaving:'||l_proc, 10);
131 End delete_validate;
132 --
133 end hr_pat_bus;