[Home] [Help]
PACKAGE BODY: APPS.PAY_PRF_SHD
Source
1 Package Body pay_prf_shd as
2 /* $Header: pyprfrhi.pkb 120.0 2005/05/29 07:49:05 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_prf_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 = 'PAY_RANGE_TABLE_UK1') 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 ElsIf (p_constraint_name = 'PAY_RANGE_TABLE_PK') Then
27 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('STEP','10');
30 fnd_message.raise_error;
31 ElsIf (p_constraint_name = 'PAY_RANGE_TABLE_UK2') Then
32 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
33 fnd_message.set_token('PROCEDURE', l_proc);
34 fnd_message.set_token('STEP','15');
35 fnd_message.raise_error;
36 ElsIf (p_constraint_name = 'PERIOD_FREQ_F_NN') Then
37 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
38 fnd_message.set_token('PROCEDURE', l_proc);
39 fnd_message.set_token('STEP','20');
40 fnd_message.raise_error;
41 ElsIf (p_constraint_name = 'RANGE_TABLE_F_NN') Then
42 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
43 fnd_message.set_token('PROCEDURE', l_proc);
44 fnd_message.set_token('STEP','25');
45 fnd_message.raise_error;
46 Else
47 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
48 fnd_message.set_token('PROCEDURE', l_proc);
49 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
50 fnd_message.raise_error;
51 End If;
52 --
53 End constraint_error;
54 --
55 -- ----------------------------------------------------------------------------
56 -- |-----------------------------< api_updating >-----------------------------|
57 -- ----------------------------------------------------------------------------
58 Function api_updating
59 (p_range_table_id in number
60 ,p_object_version_number in number
61 )
62 Return Boolean Is
63 --
64 --
65 -- Cursor selects the 'current' row from the HR Schema
66 --
67 Cursor C_Sel1 is
68 select
69 range_table_id
70 ,effective_start_date
71 ,effective_end_date
72 ,range_table_number
73 ,row_value_uom
74 ,period_frequency
75 ,earnings_type
76 ,business_group_id
77 ,legislation_code
78 ,last_updated_login
79 ,created_date
80 ,object_version_number
81 ,attribute_category
82 ,attribute1
83 ,attribute2
84 ,attribute3
85 ,attribute4
86 ,attribute5
87 ,attribute6
88 ,attribute7
89 ,attribute8
90 ,attribute9
91 ,attribute10
92 ,attribute11
93 ,attribute12
94 ,attribute13
95 ,attribute14
96 ,attribute15
97 ,attribute16
98 ,attribute17
99 ,attribute18
100 ,attribute19
101 ,attribute20
102 ,attribute21
103 ,attribute22
104 ,attribute23
105 ,attribute24
106 ,attribute25
107 ,attribute26
108 ,attribute27
109 ,attribute28
110 ,attribute29
111 ,attribute30
112 ,ran_information_category
113 ,ran_information1
114 ,ran_information2
115 ,ran_information3
116 ,ran_information4
117 ,ran_information5
118 ,ran_information6
119 ,ran_information7
120 ,ran_information8
121 ,ran_information9
122 ,ran_information10
123 ,ran_information11
124 ,ran_information12
125 ,ran_information13
126 ,ran_information14
127 ,ran_information15
128 ,ran_information16
129 ,ran_information17
130 ,ran_information18
131 ,ran_information19
132 ,ran_information20
133 ,ran_information21
134 ,ran_information22
135 ,ran_information23
136 ,ran_information24
137 ,ran_information25
138 ,ran_information26
139 ,ran_information27
140 ,ran_information28
141 ,ran_information29
142 ,ran_information30
143 from pay_range_tables_f
144 where range_table_id = p_range_table_id;
145 --
146 l_fct_ret boolean;
147 --
148 Begin
149 --
150 If (p_range_table_id is null and
151 p_object_version_number is null
152 ) Then
153 --
154 -- One of the primary key arguments is null therefore we must
155 -- set the returning function value to false
156 --
157 l_fct_ret := false;
158 Else
159 If (p_range_table_id
160 = pay_prf_shd.g_old_rec.range_table_id and
161 p_object_version_number
162 = pay_prf_shd.g_old_rec.object_version_number
163 ) Then
164 --
165 -- The g_old_rec is current therefore we must
166 -- set the returning function to true
167 --
168 l_fct_ret := true;
169 Else
170 --
171 -- Select the current row into g_old_rec
172 --
173 Open C_Sel1;
174 Fetch C_Sel1 Into pay_prf_shd.g_old_rec;
175 If C_Sel1%notfound Then
176 Close C_Sel1;
177 --
178 -- The primary key is invalid therefore we must error
179 --
180 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
181 fnd_message.raise_error;
182 End If;
183 Close C_Sel1;
184 If (p_object_version_number
185 <> pay_prf_shd.g_old_rec.object_version_number) Then
186 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
187 fnd_message.raise_error;
188 End If;
189 l_fct_ret := true;
190 End If;
191 End If;
192 Return (l_fct_ret);
193 --
194 End api_updating;
195 --
196 -- ----------------------------------------------------------------------------
197 -- |---------------------------------< lck >----------------------------------|
198 -- ----------------------------------------------------------------------------
199 Procedure lck
200 (p_range_table_id in number
201 ,p_object_version_number in number
202 ) is
203 --
204 -- Cursor selects the 'current' row from the HR Schema
205 --
206 Cursor C_Sel1 is
207 select
208 range_table_id
209 ,effective_start_date
210 ,effective_end_date
211 ,range_table_number
212 ,row_value_uom
213 ,period_frequency
214 ,earnings_type
215 ,business_group_id
216 ,legislation_code
217 ,last_updated_login
218 ,created_date
219 ,object_version_number
220 ,attribute_category
221 ,attribute1
222 ,attribute2
223 ,attribute3
224 ,attribute4
225 ,attribute5
226 ,attribute6
227 ,attribute7
228 ,attribute8
229 ,attribute9
230 ,attribute10
231 ,attribute11
232 ,attribute12
233 ,attribute13
234 ,attribute14
235 ,attribute15
236 ,attribute16
237 ,attribute17
238 ,attribute18
239 ,attribute19
240 ,attribute20
241 ,attribute21
242 ,attribute22
243 ,attribute23
244 ,attribute24
245 ,attribute25
246 ,attribute26
247 ,attribute27
248 ,attribute28
249 ,attribute29
250 ,attribute30
251 ,ran_information_category
252 ,ran_information1
253 ,ran_information2
254 ,ran_information3
255 ,ran_information4
256 ,ran_information5
257 ,ran_information6
258 ,ran_information7
259 ,ran_information8
260 ,ran_information9
261 ,ran_information10
262 ,ran_information11
263 ,ran_information12
264 ,ran_information13
265 ,ran_information14
266 ,ran_information15
267 ,ran_information16
268 ,ran_information17
269 ,ran_information18
270 ,ran_information19
271 ,ran_information20
272 ,ran_information21
273 ,ran_information22
274 ,ran_information23
275 ,ran_information24
276 ,ran_information25
277 ,ran_information26
278 ,ran_information27
279 ,ran_information28
280 ,ran_information29
281 ,ran_information30
282 from pay_range_tables_f
283 where range_table_id = p_range_table_id
284 for update nowait;
285 --
286 l_proc varchar2(72) := g_package||'lck';
287 --
288 Begin
289 hr_utility.set_location('Entering:'||l_proc, 5);
290 --
291 hr_api.mandatory_arg_error
292 (p_api_name => l_proc
293 ,p_argument => 'RANGE_TABLE_ID'
294 ,p_argument_value => p_range_table_id
295 );
296 hr_utility.set_location(l_proc,6);
297 hr_api.mandatory_arg_error
298 (p_api_name => l_proc
299 ,p_argument => 'OBJECT_VERSION_NUMBER'
300 ,p_argument_value => p_object_version_number
301 );
302 --
303 Open C_Sel1;
304 Fetch C_Sel1 Into pay_prf_shd.g_old_rec;
305 If C_Sel1%notfound then
306 Close C_Sel1;
307 --
308 -- The primary key is invalid therefore we must error
309 --
310 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
311 fnd_message.raise_error;
312 End If;
313 Close C_Sel1;
314 If (p_object_version_number
315 <> pay_prf_shd.g_old_rec.object_version_number) Then
316 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
317 fnd_message.raise_error;
318 End If;
319 --
320 hr_utility.set_location(' Leaving:'||l_proc, 10);
321 --
322 -- We need to trap the ORA LOCK exception
323 --
324 Exception
325 When HR_Api.Object_Locked then
326 --
327 -- The object is locked therefore we need to supply a meaningful
328 -- error message.
329 --
330 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
331 fnd_message.set_token('TABLE_NAME', 'pay_range_tables_f');
332 fnd_message.raise_error;
333 End lck;
334 --
335 -- ----------------------------------------------------------------------------
336 -- |-----------------------------< convert_args >-----------------------------|
337 -- ----------------------------------------------------------------------------
338 Function convert_args
339 (p_range_table_id in number
340 ,p_effective_start_date in date
341 ,p_effective_end_date in date
342 ,p_range_table_number in number
343 ,p_row_value_uom in varchar2
344 ,p_period_frequency in varchar2
345 ,p_earnings_type in varchar2
346 ,p_business_group_id in number
347 ,p_legislation_code in varchar2
348 ,p_last_updated_login in number
349 ,p_created_date in date
350 ,p_object_version_number in number
351 ,p_attribute_category in varchar2
352 ,p_attribute1 in varchar2
353 ,p_attribute2 in varchar2
354 ,p_attribute3 in varchar2
355 ,p_attribute4 in varchar2
356 ,p_attribute5 in varchar2
357 ,p_attribute6 in varchar2
358 ,p_attribute7 in varchar2
359 ,p_attribute8 in varchar2
360 ,p_attribute9 in varchar2
361 ,p_attribute10 in varchar2
362 ,p_attribute11 in varchar2
363 ,p_attribute12 in varchar2
364 ,p_attribute13 in varchar2
365 ,p_attribute14 in varchar2
366 ,p_attribute15 in varchar2
367 ,p_attribute16 in varchar2
368 ,p_attribute17 in varchar2
369 ,p_attribute18 in varchar2
370 ,p_attribute19 in varchar2
371 ,p_attribute20 in varchar2
372 ,p_attribute21 in varchar2
373 ,p_attribute22 in varchar2
374 ,p_attribute23 in varchar2
375 ,p_attribute24 in varchar2
376 ,p_attribute25 in varchar2
377 ,p_attribute26 in varchar2
378 ,p_attribute27 in varchar2
379 ,p_attribute28 in varchar2
380 ,p_attribute29 in varchar2
381 ,p_attribute30 in varchar2
382 ,p_ran_information_category in varchar2
383 ,p_ran_information1 in varchar2
384 ,p_ran_information2 in varchar2
385 ,p_ran_information3 in varchar2
386 ,p_ran_information4 in varchar2
387 ,p_ran_information5 in varchar2
388 ,p_ran_information6 in varchar2
389 ,p_ran_information7 in varchar2
390 ,p_ran_information8 in varchar2
391 ,p_ran_information9 in varchar2
392 ,p_ran_information10 in varchar2
393 ,p_ran_information11 in varchar2
394 ,p_ran_information12 in varchar2
395 ,p_ran_information13 in varchar2
396 ,p_ran_information14 in varchar2
397 ,p_ran_information15 in varchar2
398 ,p_ran_information16 in varchar2
399 ,p_ran_information17 in varchar2
400 ,p_ran_information18 in varchar2
401 ,p_ran_information19 in varchar2
402 ,p_ran_information20 in varchar2
403 ,p_ran_information21 in varchar2
404 ,p_ran_information22 in varchar2
408 ,p_ran_information26 in varchar2
405 ,p_ran_information23 in varchar2
406 ,p_ran_information24 in varchar2
407 ,p_ran_information25 in varchar2
409 ,p_ran_information27 in varchar2
410 ,p_ran_information28 in varchar2
411 ,p_ran_information29 in varchar2
412 ,p_ran_information30 in varchar2
413 )
414 Return g_rec_type is
415 --
416 l_rec g_rec_type;
417 --
418 Begin
419 --
420 -- Convert arguments into local l_rec structure.
421 --
422 l_rec.range_table_id := p_range_table_id;
423 l_rec.effective_start_date := p_effective_start_date;
424 l_rec.effective_end_date := p_effective_end_date;
425 l_rec.range_table_number := p_range_table_number;
426 l_rec.row_value_uom := p_row_value_uom;
427 l_rec.period_frequency := p_period_frequency;
428 l_rec.earnings_type := p_earnings_type;
429 l_rec.business_group_id := p_business_group_id;
430 l_rec.legislation_code := p_legislation_code;
431 l_rec.last_updated_login := p_last_updated_login;
432 l_rec.created_date := p_created_date;
433 l_rec.object_version_number := p_object_version_number;
434 l_rec.attribute_category := p_attribute_category;
435 l_rec.attribute1 := p_attribute1;
436 l_rec.attribute2 := p_attribute2;
437 l_rec.attribute3 := p_attribute3;
438 l_rec.attribute4 := p_attribute4;
439 l_rec.attribute5 := p_attribute5;
440 l_rec.attribute6 := p_attribute6;
441 l_rec.attribute7 := p_attribute7;
442 l_rec.attribute8 := p_attribute8;
443 l_rec.attribute9 := p_attribute9;
444 l_rec.attribute10 := p_attribute10;
445 l_rec.attribute11 := p_attribute11;
446 l_rec.attribute12 := p_attribute12;
447 l_rec.attribute13 := p_attribute13;
448 l_rec.attribute14 := p_attribute14;
449 l_rec.attribute15 := p_attribute15;
450 l_rec.attribute16 := p_attribute16;
451 l_rec.attribute17 := p_attribute17;
452 l_rec.attribute18 := p_attribute18;
453 l_rec.attribute19 := p_attribute19;
454 l_rec.attribute20 := p_attribute20;
455 l_rec.attribute21 := p_attribute21;
456 l_rec.attribute22 := p_attribute22;
457 l_rec.attribute23 := p_attribute23;
458 l_rec.attribute24 := p_attribute24;
459 l_rec.attribute25 := p_attribute25;
460 l_rec.attribute26 := p_attribute26;
461 l_rec.attribute27 := p_attribute27;
462 l_rec.attribute28 := p_attribute28;
463 l_rec.attribute29 := p_attribute29;
464 l_rec.attribute30 := p_attribute30;
465 l_rec.ran_information_category := p_ran_information_category;
466 l_rec.ran_information1 := p_ran_information1;
467 l_rec.ran_information2 := p_ran_information2;
468 l_rec.ran_information3 := p_ran_information3;
469 l_rec.ran_information4 := p_ran_information4;
470 l_rec.ran_information5 := p_ran_information5;
471 l_rec.ran_information6 := p_ran_information6;
472 l_rec.ran_information7 := p_ran_information7;
473 l_rec.ran_information8 := p_ran_information8;
474 l_rec.ran_information9 := p_ran_information9;
475 l_rec.ran_information10 := p_ran_information10;
476 l_rec.ran_information11 := p_ran_information11;
477 l_rec.ran_information12 := p_ran_information12;
478 l_rec.ran_information13 := p_ran_information13;
479 l_rec.ran_information14 := p_ran_information14;
480 l_rec.ran_information15 := p_ran_information15;
481 l_rec.ran_information16 := p_ran_information16;
482 l_rec.ran_information17 := p_ran_information17;
483 l_rec.ran_information18 := p_ran_information18;
484 l_rec.ran_information19 := p_ran_information19;
485 l_rec.ran_information20 := p_ran_information20;
486 l_rec.ran_information21 := p_ran_information21;
487 l_rec.ran_information22 := p_ran_information22;
488 l_rec.ran_information23 := p_ran_information23;
489 l_rec.ran_information24 := p_ran_information24;
490 l_rec.ran_information25 := p_ran_information25;
491 l_rec.ran_information26 := p_ran_information26;
492 l_rec.ran_information27 := p_ran_information27;
493 l_rec.ran_information28 := p_ran_information28;
494 l_rec.ran_information29 := p_ran_information29;
495 l_rec.ran_information30 := p_ran_information30;
496 --
497 -- Return the plsql record structure.
498 --
499 Return(l_rec);
500 --
501 End convert_args;
502 --
503 end pay_prf_shd;