[Home] [Help]
PACKAGE BODY: APPS.PQP_PCV_SHD
Source
1 Package Body pqp_pcv_shd as
2 /* $Header: pqpcvrhi.pkb 120.0 2005/05/29 01:55:22 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pqp_pcv_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< constraint_error >---------------------------|
12 -- ----------------------------------------------------------------------------
13 Procedure constraint_error
14 (p_constraint_name in all_constraints.constraint_name%TYPE
15 ) Is
16 --
17 l_proc varchar2(72) := g_package||'constraint_error';
18 --
19 Begin
20 --
21 If (p_constraint_name = 'PQP_CONFIGURATION_VALUES_PK') Then
22 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
23 fnd_message.set_token('PROCEDURE', l_proc);
24 fnd_message.set_token('STEP','5');
25 fnd_message.raise_error;
26 Else
27 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
30 fnd_message.raise_error;
31 End If;
32 --
33 End constraint_error;
34 --
35 -- ----------------------------------------------------------------------------
36 -- |-----------------------------< api_updating >-----------------------------|
37 -- ----------------------------------------------------------------------------
38 Function api_updating
39 (p_configuration_value_id in number
40 ,p_object_version_number in number
41 )
42 Return Boolean Is
43 --
44 --
45 -- Cursor selects the 'current' row from the HR Schema
46 --
47 Cursor C_Sel1 is
48 select
49 configuration_value_id
50 ,business_group_id
51 ,legislation_code
52 ,pcv_attribute_category
53 ,pcv_attribute1
54 ,pcv_attribute2
55 ,pcv_attribute3
56 ,pcv_attribute4
57 ,pcv_attribute5
58 ,pcv_attribute6
59 ,pcv_attribute7
60 ,pcv_attribute8
61 ,pcv_attribute9
62 ,pcv_attribute10
63 ,pcv_attribute11
64 ,pcv_attribute12
65 ,pcv_attribute13
66 ,pcv_attribute14
67 ,pcv_attribute15
68 ,pcv_attribute16
69 ,pcv_attribute17
70 ,pcv_attribute18
71 ,pcv_attribute19
72 ,pcv_attribute20
73 ,pcv_information_category
74 ,pcv_information1
75 ,pcv_information2
76 ,pcv_information3
77 ,pcv_information4
78 ,pcv_information5
79 ,pcv_information6
80 ,pcv_information7
81 ,pcv_information8
82 ,pcv_information9
83 ,pcv_information10
84 ,pcv_information11
85 ,pcv_information12
86 ,pcv_information13
87 ,pcv_information14
88 ,pcv_information15
89 ,pcv_information16
90 ,pcv_information17
91 ,pcv_information18
92 ,pcv_information19
93 ,pcv_information20
94 ,object_version_number
95 ,configuration_name
96 from pqp_configuration_values
97 where configuration_value_id = p_configuration_value_id;
98 --
99 l_fct_ret boolean;
100 --
101 Begin
102 --
103 If (p_configuration_value_id is null and
104 p_object_version_number is null
105 ) Then
106 --
107 -- One of the primary key arguments is null therefore we must
108 -- set the returning function value to false
109 --
110 l_fct_ret := false;
111 Else
112 If (p_configuration_value_id
113 = pqp_pcv_shd.g_old_rec.configuration_value_id and
114 p_object_version_number
115 = pqp_pcv_shd.g_old_rec.object_version_number
116 ) Then
117 --
118 -- The g_old_rec is current therefore we must
119 -- set the returning function to true
120 --
121 l_fct_ret := true;
122 Else
123 --
124 -- Select the current row into g_old_rec
125 --
126 Open C_Sel1;
127 Fetch C_Sel1 Into pqp_pcv_shd.g_old_rec;
128 If C_Sel1%notfound Then
129 Close C_Sel1;
130 --
131 -- The primary key is invalid therefore we must error
132 --
133 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
134 fnd_message.raise_error;
135 End If;
136 Close C_Sel1;
137 If (p_object_version_number
138 <> pqp_pcv_shd.g_old_rec.object_version_number) Then
139 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
140 fnd_message.raise_error;
141 End If;
142 l_fct_ret := true;
143 End If;
144 End If;
145 Return (l_fct_ret);
146 --
147 End api_updating;
148 --
149 -- ----------------------------------------------------------------------------
150 -- |---------------------------------< lck >----------------------------------|
151 -- ----------------------------------------------------------------------------
152 Procedure lck
153 (p_configuration_value_id in number
154 ,p_object_version_number in number
155 ) is
156 --
157 -- Cursor selects the 'current' row from the HR Schema
158 --
159 Cursor C_Sel1 is
160 select
161 configuration_value_id
162 ,business_group_id
163 ,legislation_code
164 ,pcv_attribute_category
165 ,pcv_attribute1
166 ,pcv_attribute2
167 ,pcv_attribute3
168 ,pcv_attribute4
169 ,pcv_attribute5
170 ,pcv_attribute6
171 ,pcv_attribute7
172 ,pcv_attribute8
173 ,pcv_attribute9
174 ,pcv_attribute10
175 ,pcv_attribute11
176 ,pcv_attribute12
177 ,pcv_attribute13
178 ,pcv_attribute14
179 ,pcv_attribute15
180 ,pcv_attribute16
181 ,pcv_attribute17
182 ,pcv_attribute18
183 ,pcv_attribute19
184 ,pcv_attribute20
185 ,pcv_information_category
186 ,pcv_information1
187 ,pcv_information2
188 ,pcv_information3
189 ,pcv_information4
190 ,pcv_information5
191 ,pcv_information6
192 ,pcv_information7
193 ,pcv_information8
194 ,pcv_information9
195 ,pcv_information10
196 ,pcv_information11
197 ,pcv_information12
198 ,pcv_information13
199 ,pcv_information14
200 ,pcv_information15
201 ,pcv_information16
202 ,pcv_information17
203 ,pcv_information18
204 ,pcv_information19
205 ,pcv_information20
206 ,object_version_number
207 ,configuration_name
208 from pqp_configuration_values
209 where configuration_value_id = p_configuration_value_id
210 for update nowait;
211 --
212 l_proc varchar2(72) := g_package||'lck';
213 --
214 Begin
215 hr_utility.set_location('Entering:'||l_proc, 5);
216 --
217 hr_api.mandatory_arg_error
218 (p_api_name => l_proc
219 ,p_argument => 'CONFIGURATION_VALUE_ID'
220 ,p_argument_value => p_configuration_value_id
221 );
222 hr_utility.set_location(l_proc,6);
223 hr_api.mandatory_arg_error
224 (p_api_name => l_proc
225 ,p_argument => 'OBJECT_VERSION_NUMBER'
226 ,p_argument_value => p_object_version_number
227 );
228 --
229 Open C_Sel1;
230 Fetch C_Sel1 Into pqp_pcv_shd.g_old_rec;
231 If C_Sel1%notfound then
232 Close C_Sel1;
233 --
234 -- The primary key is invalid therefore we must error
235 --
236 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
237 fnd_message.raise_error;
238 End If;
239 Close C_Sel1;
240 If (p_object_version_number
241 <> pqp_pcv_shd.g_old_rec.object_version_number) Then
242 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
243 fnd_message.raise_error;
244 End If;
245 --
246 hr_utility.set_location(' Leaving:'||l_proc, 10);
247 --
248 -- We need to trap the ORA LOCK exception
249 --
250 Exception
251 When HR_Api.Object_Locked then
252 --
253 -- The object is locked therefore we need to supply a meaningful
254 -- error message.
255 --
256 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
257 fnd_message.set_token('TABLE_NAME', 'pqp_configuration_values');
258 fnd_message.raise_error;
259 End lck;
260 --
261 -- ----------------------------------------------------------------------------
262 -- |-----------------------------< convert_args >-----------------------------|
263 -- ----------------------------------------------------------------------------
264 Function convert_args
265 (p_configuration_value_id in number
266 ,p_business_group_id in number
267 ,p_legislation_code in varchar2
268 ,p_pcv_attribute_category in varchar2
269 ,p_pcv_attribute1 in varchar2
270 ,p_pcv_attribute2 in varchar2
271 ,p_pcv_attribute3 in varchar2
272 ,p_pcv_attribute4 in varchar2
273 ,p_pcv_attribute5 in varchar2
274 ,p_pcv_attribute6 in varchar2
275 ,p_pcv_attribute7 in varchar2
276 ,p_pcv_attribute8 in varchar2
277 ,p_pcv_attribute9 in varchar2
278 ,p_pcv_attribute10 in varchar2
279 ,p_pcv_attribute11 in varchar2
280 ,p_pcv_attribute12 in varchar2
281 ,p_pcv_attribute13 in varchar2
282 ,p_pcv_attribute14 in varchar2
283 ,p_pcv_attribute15 in varchar2
284 ,p_pcv_attribute16 in varchar2
285 ,p_pcv_attribute17 in varchar2
286 ,p_pcv_attribute18 in varchar2
287 ,p_pcv_attribute19 in varchar2
288 ,p_pcv_attribute20 in varchar2
289 ,p_pcv_information_category in varchar2
290 ,p_pcv_information1 in varchar2
291 ,p_pcv_information2 in varchar2
292 ,p_pcv_information3 in varchar2
293 ,p_pcv_information4 in varchar2
294 ,p_pcv_information5 in varchar2
295 ,p_pcv_information6 in varchar2
296 ,p_pcv_information7 in varchar2
297 ,p_pcv_information8 in varchar2
298 ,p_pcv_information9 in varchar2
299 ,p_pcv_information10 in varchar2
300 ,p_pcv_information11 in varchar2
301 ,p_pcv_information12 in varchar2
302 ,p_pcv_information13 in varchar2
303 ,p_pcv_information14 in varchar2
304 ,p_pcv_information15 in varchar2
305 ,p_pcv_information16 in varchar2
306 ,p_pcv_information17 in varchar2
307 ,p_pcv_information18 in varchar2
308 ,p_pcv_information19 in varchar2
309 ,p_pcv_information20 in varchar2
310 ,p_object_version_number in number
311 ,p_configuration_name in varchar2
312 )
313 Return g_rec_type is
314 --
315 l_rec g_rec_type;
316 --
317 Begin
318 --
319 -- Convert arguments into local l_rec structure.
320 --
321 l_rec.configuration_value_id := p_configuration_value_id;
322 l_rec.business_group_id := p_business_group_id;
323 l_rec.legislation_code := p_legislation_code;
324 l_rec.pcv_attribute_category := p_pcv_attribute_category;
325 l_rec.pcv_attribute1 := p_pcv_attribute1;
326 l_rec.pcv_attribute2 := p_pcv_attribute2;
327 l_rec.pcv_attribute3 := p_pcv_attribute3;
328 l_rec.pcv_attribute4 := p_pcv_attribute4;
329 l_rec.pcv_attribute5 := p_pcv_attribute5;
330 l_rec.pcv_attribute6 := p_pcv_attribute6;
331 l_rec.pcv_attribute7 := p_pcv_attribute7;
332 l_rec.pcv_attribute8 := p_pcv_attribute8;
333 l_rec.pcv_attribute9 := p_pcv_attribute9;
334 l_rec.pcv_attribute10 := p_pcv_attribute10;
335 l_rec.pcv_attribute11 := p_pcv_attribute11;
336 l_rec.pcv_attribute12 := p_pcv_attribute12;
337 l_rec.pcv_attribute13 := p_pcv_attribute13;
338 l_rec.pcv_attribute14 := p_pcv_attribute14;
339 l_rec.pcv_attribute15 := p_pcv_attribute15;
340 l_rec.pcv_attribute16 := p_pcv_attribute16;
341 l_rec.pcv_attribute17 := p_pcv_attribute17;
342 l_rec.pcv_attribute18 := p_pcv_attribute18;
343 l_rec.pcv_attribute19 := p_pcv_attribute19;
344 l_rec.pcv_attribute20 := p_pcv_attribute20;
345 l_rec.pcv_information_category := p_pcv_information_category;
346 l_rec.pcv_information1 := p_pcv_information1;
347 l_rec.pcv_information2 := p_pcv_information2;
348 l_rec.pcv_information3 := p_pcv_information3;
349 l_rec.pcv_information4 := p_pcv_information4;
350 l_rec.pcv_information5 := p_pcv_information5;
351 l_rec.pcv_information6 := p_pcv_information6;
352 l_rec.pcv_information7 := p_pcv_information7;
353 l_rec.pcv_information8 := p_pcv_information8;
354 l_rec.pcv_information9 := p_pcv_information9;
355 l_rec.pcv_information10 := p_pcv_information10;
356 l_rec.pcv_information11 := p_pcv_information11;
357 l_rec.pcv_information12 := p_pcv_information12;
358 l_rec.pcv_information13 := p_pcv_information13;
359 l_rec.pcv_information14 := p_pcv_information14;
360 l_rec.pcv_information15 := p_pcv_information15;
361 l_rec.pcv_information16 := p_pcv_information16;
362 l_rec.pcv_information17 := p_pcv_information17;
363 l_rec.pcv_information18 := p_pcv_information18;
364 l_rec.pcv_information19 := p_pcv_information19;
365 l_rec.pcv_information20 := p_pcv_information20;
366 l_rec.object_version_number := p_object_version_number;
367 l_rec.configuration_name := p_configuration_name;
368
369 --
370 -- Return the plsql record structure.
371 --
372 Return(l_rec);
373 --
374 End convert_args;
375 --
376 end pqp_pcv_shd;