DBA Data[Home] [Help]

PACKAGE BODY: APPS.PQH_VLD_BUS

Source


1 Package Body pqh_vld_bus as
2 /* $Header: pqvldrhi.pkb 115.2 2002/12/13 00:33:20 rpasapul noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33) := '  pqh_vld_bus.';  -- Global package name
9 --
10 -- The following two global variables are only to be
11 -- used by the return_legislation_code function.
12 --
13 g_legislation_code            varchar2(150)  default null;
14 g_validation_id               number         default null;
15 --
16 --  ---------------------------------------------------------------------------
17 --  |----------------------< set_security_group_id >--------------------------|
18 --  ---------------------------------------------------------------------------
19 --
20 Procedure set_security_group_id
21   (p_validation_id                        in number
22   ,p_associated_column1                   in varchar2 default null
23   ) is
24   --
25   -- Declare cursor
26   --
27   cursor csr_sec_grp is
28     select pbg.security_group_id
29       from per_business_groups pbg
30          , pqh_fr_validations vld
31      where vld.validation_id = p_validation_id
32        and pbg.business_group_id = vld.business_group_id;
33   --
34   -- Declare local variables
35   --
36   l_security_group_id number;
37   l_proc              varchar2(72)  :=  g_package||'set_security_group_id';
38   --
39 begin
40   --
41   hr_utility.set_location('Entering:'|| l_proc, 10);
42   --
43   -- Ensure that all the mandatory parameter are not null
44   --
45   hr_api.mandatory_arg_error
46     (p_api_name           => l_proc
47     ,p_argument           => 'validation_id'
48     ,p_argument_value     => p_validation_id
49     );
50   --
51   open csr_sec_grp;
52   fetch csr_sec_grp into l_security_group_id;
53   --
54   if csr_sec_grp%notfound then
55      --
56      close csr_sec_grp;
57      --
58      -- The primary key is invalid therefore we must error
59      --
60      fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
61      hr_multi_message.add
62        (p_associated_column1
63         => nvl(p_associated_column1,'VALIDATION_ID')
64        );
65      --
66   else
67     close csr_sec_grp;
68     --
69     -- Set the security_group_id in CLIENT_INFO
70     --
71     hr_api.set_security_group_id
72       (p_security_group_id => l_security_group_id
73       );
74   end if;
75   --
76   hr_utility.set_location(' Leaving:'|| l_proc, 20);
77   --
78 end set_security_group_id;
79 --
80 --  ---------------------------------------------------------------------------
81 --  |---------------------< return_legislation_code >-------------------------|
82 --  ---------------------------------------------------------------------------
83 --
84 Function return_legislation_code
85   (p_validation_id                        in     number
86   )
87   Return Varchar2 Is
88   --
89   -- Declare cursor
90   --
91  cursor csr_leg_code is
92     select pbg.legislation_code
93       from per_business_groups pbg
94          , pqh_fr_validations vld
95      where vld.validation_id = p_validation_id
96        and pbg.business_group_id = vld.business_group_id;
97   --
98   -- Declare local variables
99   --
100   l_legislation_code  varchar2(150);
101   l_proc              varchar2(72)  :=  g_package||'return_legislation_code';
102   --
103 Begin
104   --
105   hr_utility.set_location('Entering:'|| l_proc, 10);
106   --
107   -- Ensure that all the mandatory parameter are not null
108   --
109   hr_api.mandatory_arg_error
110     (p_api_name           => l_proc
111     ,p_argument           => 'validation_id'
112     ,p_argument_value     => p_validation_id
113     );
114   --
115   if ( nvl(pqh_vld_bus.g_validation_id, hr_api.g_number)
116        = p_validation_id) then
117     --
118     -- The legislation code has already been found with a previous
119     -- call to this function. Just return the value in the global
120     -- variable.
121     --
122     l_legislation_code := pqh_vld_bus.g_legislation_code;
123     hr_utility.set_location(l_proc, 20);
124   else
125     --
126     -- The ID is different to the last call to this function
127     -- or this is the first call to this function.
128     --
129     open csr_leg_code;
130     fetch csr_leg_code into l_legislation_code;
131     --
132     if csr_leg_code%notfound then
133       --
134       -- The primary key is invalid therefore we must error
135       --
136       close csr_leg_code;
137       fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
138       fnd_message.raise_error;
139     end if;
140     hr_utility.set_location(l_proc,30);
141     --
142     -- Set the global variables so the values are
143     -- available for the next call to this function.
144     --
145     close csr_leg_code;
146     pqh_vld_bus.g_validation_id               := p_validation_id;
147     pqh_vld_bus.g_legislation_code  := l_legislation_code;
148   end if;
149   hr_utility.set_location(' Leaving:'|| l_proc, 40);
150   return l_legislation_code;
151 end return_legislation_code;
152 --
153 -- ----------------------------------------------------------------------------
154 -- |-----------------------< chk_non_updateable_args >------------------------|
155 -- ----------------------------------------------------------------------------
156 -- {Start Of Comments}
157 --
158 -- Description:
159 --   This procedure is used to ensure that non updateable attributes have
160 --   not been updated. If an attribute has been updated an error is generated.
161 --
162 -- Pre Conditions:
163 --   g_old_rec has been populated with details of the values currently in
164 --   the database.
165 --
166 -- In Arguments:
167 --   p_rec has been populated with the updated values the user would like the
168 --   record set to.
169 --
170 -- Post Success:
171 --   Processing continues if all the non updateable attributes have not
172 --   changed.
173 --
174 -- Post Failure:
175 --   An application error is raised if any of the non updatable attributes
176 --   have been altered.
177 --
178 -- {End Of Comments}
179 -- ----------------------------------------------------------------------------
180 Procedure chk_non_updateable_args
181   (p_effective_date               in date
182   ,p_rec in pqh_vld_shd.g_rec_type
183   ) IS
184 --
185   l_proc     varchar2(72) := g_package || 'chk_non_updateable_args';
186 --
187 Begin
188   --
189   -- Only proceed with the validation if a row exists for the current
190   -- record in the HR Schema.
191   --
192   IF NOT pqh_vld_shd.api_updating
193       (p_validation_id                     => p_rec.validation_id
194       ,p_object_version_number             => p_rec.object_version_number
195       ) THEN
196      fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
197      fnd_message.set_token('PROCEDURE ', l_proc);
198      fnd_message.set_token('STEP ', '5');
199      fnd_message.raise_error;
200   END IF;
201   --
202   -- Checks to ensure non-updateable args have
203   --            not been updated.
204   --
205 
206   If p_rec.BUSINESS_GROUP_ID <> pqh_vld_shd.g_old_rec.business_group_id then
207      hr_utility.set_message(8302, 'PQH_FR_BUS_NO_UPD');
208      fnd_message.raise_error;
209   End If;
210 
211     If p_rec.PERSON_ID <> pqh_vld_shd.g_old_rec.person_id then
212      hr_utility.set_message(8302, 'PQH_FR_BUS_NO_UPD');
213      fnd_message.raise_error;
214   End If;
215 
216 
217 
218 End chk_non_updateable_args;
219 --
220 -- ----------------------------------------------------------------------------
221 -- |---------------------------< insert_validate >----------------------------|
222 -- ----------------------------------------------------------------------------
223 Procedure insert_validate
224   (p_effective_date               in date
225   ,p_rec                          in pqh_vld_shd.g_rec_type
226   ) is
227 --
228   l_proc  varchar2(72) := g_package||'insert_validate';
229 --
230 Begin
231   hr_utility.set_location('Entering:'||l_proc, 5);
232   --
233   -- Call all supporting business operations
234   --
235   hr_api.validate_bus_grp_id
236     (p_business_group_id => p_rec.business_group_id
237     ,p_associated_column1 => pqh_vld_shd.g_tab_nam
238                               || '.BUSINESS_GROUP_ID');
239   --
240   -- After validating the set of important attributes,
241   -- if Multiple Message detection is enabled and at least
242   -- one error has been found then abort further validation.
243   --
244   hr_multi_message.end_validation_set;
245   --
246   -- Validate Dependent Attributes
247   --
248   --
249   hr_utility.set_location(' Leaving:'||l_proc, 10);
250 End insert_validate;
251 --
252 -- ----------------------------------------------------------------------------
253 -- |---------------------------< update_validate >----------------------------|
254 -- ----------------------------------------------------------------------------
255 Procedure update_validate
256   (p_effective_date               in date
257   ,p_rec                          in pqh_vld_shd.g_rec_type
258   ) is
259 --
260   l_proc  varchar2(72) := g_package||'update_validate';
261 --
262 Begin
263   hr_utility.set_location('Entering:'||l_proc, 5);
264   --
265   -- Call all supporting business operations
266   --
267   hr_api.validate_bus_grp_id
268     (p_business_group_id => p_rec.business_group_id
269     ,p_associated_column1 => pqh_vld_shd.g_tab_nam
270                               || '.BUSINESS_GROUP_ID');
271   --
272   -- After validating the set of important attributes,
273   -- if Multiple Message detection is enabled and at least
274   -- one error has been found then abort further validation.
275   --
276   hr_multi_message.end_validation_set;
277   --
278   -- Validate Dependent Attributes
279   --
280   chk_non_updateable_args
281     (p_effective_date              => p_effective_date
282       ,p_rec              => p_rec
283     );
284   --
285   --
286   hr_utility.set_location(' Leaving:'||l_proc, 10);
287 End update_validate;
288 --
289 -- ----------------------------------------------------------------------------
290 -- |---------------------------< delete_validate >----------------------------|
291 -- ----------------------------------------------------------------------------
292 Procedure delete_validate
293   (p_rec                          in pqh_vld_shd.g_rec_type
294   ) is
295 --
296   l_proc  varchar2(72) := g_package||'delete_validate';
297 --
298 Begin
299   hr_utility.set_location('Entering:'||l_proc, 5);
300   --
301   -- Call all supporting business operations
302   --
303   hr_utility.set_location(' Leaving:'||l_proc, 10);
304 End delete_validate;
305 --
306 end pqh_vld_bus;