[Home] [Help]
PACKAGE BODY: APPS.PER_PGV_SHD
Source
1 Package Body per_pgv_shd as
2 /* $Header: pepgvrhi.pkb 115.11 2004/06/10 23:41:52 vissingh noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_pgv_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 = 'PER_GEN_HIERARCHY_VER_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 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_hierarchy_version_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 hierarchy_version_id
50 ,business_group_id
51 ,version_number
52 ,hierarchy_id
53 ,date_from
54 ,date_to
55 ,status
56 ,validate_flag
57 ,request_id
58 ,program_application_id
59 ,program_id
60 ,program_update_date
61 ,object_version_number
62 ,attribute_category
63 ,attribute1
64 ,attribute2
65 ,attribute3
66 ,attribute4
67 ,attribute5
68 ,attribute6
69 ,attribute7
70 ,attribute8
71 ,attribute9
72 ,attribute10
73 ,attribute11
74 ,attribute12
75 ,attribute13
76 ,attribute14
77 ,attribute15
78 ,attribute16
79 ,attribute17
80 ,attribute18
81 ,attribute19
82 ,attribute20
83 ,attribute21
84 ,attribute22
85 ,attribute23
86 ,attribute24
87 ,attribute25
88 ,attribute26
89 ,attribute27
90 ,attribute28
91 ,attribute29
92 ,attribute30
93 ,information_category
94 ,information1
95 ,information2
96 ,information3
97 ,information4
98 ,information5
99 ,information6
100 ,information7
101 ,information8
102 ,information9
103 ,information10
104 ,information11
105 ,information12
106 ,information13
107 ,information14
108 ,information15
109 ,information16
110 ,information17
111 ,information18
112 ,information19
113 ,information20
114 ,information21
115 ,information22
116 ,information23
117 ,information24
118 ,information25
119 ,information26
120 ,information27
121 ,information28
122 ,information29
123 ,information30
124 from per_gen_hierarchy_versions
125 where hierarchy_version_id = p_hierarchy_version_id;
126 --
127 l_fct_ret boolean;
128 --
129 Begin
130 --
131 If (p_hierarchy_version_id is null and
132 p_object_version_number is null
133 ) Then
134 --
135 -- One of the primary key arguments is null therefore we must
136 -- set the returning function value to false
137 --
138 l_fct_ret := false;
139 Else
140 If (p_hierarchy_version_id
141 = per_pgv_shd.g_old_rec.hierarchy_version_id and
142 p_object_version_number
143 = per_pgv_shd.g_old_rec.object_version_number
144 ) Then
145 --
146 -- The g_old_rec is current therefore we must
147 -- set the returning function to true
148 --
149 l_fct_ret := true;
150 Else
151 --
152 -- Select the current row into g_old_rec
153 --
154 Open C_Sel1;
155 Fetch C_Sel1 Into per_pgv_shd.g_old_rec;
156 If C_Sel1%notfound Then
157 Close C_Sel1;
158 --
159 -- The primary key is invalid therefore we must error
160 --
161 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
162 fnd_message.raise_error;
163 End If;
164 Close C_Sel1;
165 If (p_object_version_number
166 <> per_pgv_shd.g_old_rec.object_version_number) Then
167 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
168 fnd_message.raise_error;
169 End If;
170 l_fct_ret := true;
171 End If;
172 End If;
173 Return (l_fct_ret);
174 --
175 End api_updating;
176 --
177 -- ----------------------------------------------------------------------------
178 -- |---------------------------------< lck >----------------------------------|
179 -- ----------------------------------------------------------------------------
180 Procedure lck
181 (p_hierarchy_version_id in number
182 ,p_object_version_number in number
183 ) is
184 --
185 -- Cursor selects the 'current' row from the HR Schema
186 --
187 Cursor C_Sel1 is
188 select
189 hierarchy_version_id
190 ,business_group_id
191 ,version_number
192 ,hierarchy_id
193 ,date_from
194 ,date_to
195 ,status
196 ,validate_flag
197 ,request_id
198 ,program_application_id
199 ,program_id
200 ,program_update_date
201 ,object_version_number
202 ,attribute_category
203 ,attribute1
204 ,attribute2
205 ,attribute3
206 ,attribute4
207 ,attribute5
208 ,attribute6
209 ,attribute7
210 ,attribute8
211 ,attribute9
212 ,attribute10
213 ,attribute11
214 ,attribute12
215 ,attribute13
216 ,attribute14
217 ,attribute15
218 ,attribute16
219 ,attribute17
220 ,attribute18
221 ,attribute19
222 ,attribute20
223 ,attribute21
224 ,attribute22
225 ,attribute23
226 ,attribute24
227 ,attribute25
228 ,attribute26
229 ,attribute27
230 ,attribute28
231 ,attribute29
232 ,attribute30
233 ,information_category
234 ,information1
235 ,information2
236 ,information3
237 ,information4
238 ,information5
239 ,information6
240 ,information7
241 ,information8
242 ,information9
243 ,information10
244 ,information11
245 ,information12
246 ,information13
247 ,information14
248 ,information15
249 ,information16
250 ,information17
251 ,information18
252 ,information19
253 ,information20
254 ,information21
255 ,information22
256 ,information23
257 ,information24
258 ,information25
259 ,information26
260 ,information27
261 ,information28
262 ,information29
263 ,information30
264 from per_gen_hierarchy_versions
265 where hierarchy_version_id = p_hierarchy_version_id
266 for update nowait;
267 --
268 l_proc varchar2(72) := g_package||'lck';
269 --
270 Begin
271 hr_utility.set_location('Entering:'||l_proc, 5);
272 --
273 hr_api.mandatory_arg_error
274 (p_api_name => l_proc
275 ,p_argument => 'HIERARCHY_VERSION_ID'
276 ,p_argument_value => p_hierarchy_version_id
277 );
278 --
279 Open C_Sel1;
280 Fetch C_Sel1 Into per_pgv_shd.g_old_rec;
281 If C_Sel1%notfound then
282 Close C_Sel1;
283 --
284 -- The primary key is invalid therefore we must error
285 --
286 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
287 fnd_message.raise_error;
288 End If;
289 Close C_Sel1;
290 If (p_object_version_number
291 <> per_pgv_shd.g_old_rec.object_version_number) Then
292 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
293 fnd_message.raise_error;
294 End If;
295 --
296 hr_utility.set_location(' Leaving:'||l_proc, 10);
297 --
298 -- We need to trap the ORA LOCK exception
299 --
300 Exception
301 When HR_Api.Object_Locked then
302 --
303 -- The object is locked therefore we need to supply a meaningful
304 -- error message.
305 --
306 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
307 fnd_message.set_token('TABLE_NAME', 'per_gen_hierarchy_versions');
308 fnd_message.raise_error;
309 End lck;
310 --
311 -- ----------------------------------------------------------------------------
312 -- |-----------------------------< convert_args >-----------------------------|
313 -- ----------------------------------------------------------------------------
314 Function convert_args
315 (p_hierarchy_version_id in number
316 ,p_business_group_id in number
317 ,p_version_number in number
318 ,p_hierarchy_id in number
319 ,p_date_from in date
320 ,p_date_to in date
321 ,p_status in varchar2
322 ,p_validate_flag in varchar2
323 ,p_request_id in number
324 ,p_program_application_id in number
325 ,p_program_id in number
326 ,p_program_update_date in date
327 ,p_object_version_number in number
328 ,p_attribute_category in varchar2
329 ,p_attribute1 in varchar2
330 ,p_attribute2 in varchar2
331 ,p_attribute3 in varchar2
332 ,p_attribute4 in varchar2
333 ,p_attribute5 in varchar2
334 ,p_attribute6 in varchar2
335 ,p_attribute7 in varchar2
336 ,p_attribute8 in varchar2
337 ,p_attribute9 in varchar2
338 ,p_attribute10 in varchar2
339 ,p_attribute11 in varchar2
340 ,p_attribute12 in varchar2
341 ,p_attribute13 in varchar2
342 ,p_attribute14 in varchar2
343 ,p_attribute15 in varchar2
344 ,p_attribute16 in varchar2
345 ,p_attribute17 in varchar2
346 ,p_attribute18 in varchar2
347 ,p_attribute19 in varchar2
348 ,p_attribute20 in varchar2
349 ,p_attribute21 in varchar2
350 ,p_attribute22 in varchar2
351 ,p_attribute23 in varchar2
352 ,p_attribute24 in varchar2
353 ,p_attribute25 in varchar2
354 ,p_attribute26 in varchar2
355 ,p_attribute27 in varchar2
356 ,p_attribute28 in varchar2
357 ,p_attribute29 in varchar2
358 ,p_attribute30 in varchar2
359 ,p_information_category in varchar2
360 ,p_information1 in varchar2
361 ,p_information2 in varchar2
362 ,p_information3 in varchar2
363 ,p_information4 in varchar2
364 ,p_information5 in varchar2
365 ,p_information6 in varchar2
366 ,p_information7 in varchar2
367 ,p_information8 in varchar2
368 ,p_information9 in varchar2
369 ,p_information10 in varchar2
370 ,p_information11 in varchar2
371 ,p_information12 in varchar2
372 ,p_information13 in varchar2
373 ,p_information14 in varchar2
374 ,p_information15 in varchar2
375 ,p_information16 in varchar2
376 ,p_information17 in varchar2
377 ,p_information18 in varchar2
378 ,p_information19 in varchar2
379 ,p_information20 in varchar2
380 ,p_information21 in varchar2
381 ,p_information22 in varchar2
382 ,p_information23 in varchar2
383 ,p_information24 in varchar2
384 ,p_information25 in varchar2
385 ,p_information26 in varchar2
386 ,p_information27 in varchar2
387 ,p_information28 in varchar2
388 ,p_information29 in varchar2
389 ,p_information30 in varchar2
390 )
391 Return g_rec_type is
392 --
393 l_rec g_rec_type;
394 --
395 Begin
396 --
397 -- Convert arguments into local l_rec structure.
398 --
399 l_rec.hierarchy_version_id := p_hierarchy_version_id;
400 l_rec.business_group_id := p_business_group_id;
401 l_rec.version_number := p_version_number;
402 l_rec.hierarchy_id := p_hierarchy_id;
403 l_rec.date_from := p_date_from;
404 l_rec.date_to := p_date_to;
405 l_rec.status := p_status;
406 l_rec.validate_flag := p_validate_flag;
407 l_rec.request_id := p_request_id;
408 l_rec.program_application_id := p_program_application_id;
409 l_rec.program_id := p_program_id;
410 l_rec.program_update_date := p_program_update_date;
411 l_rec.object_version_number := p_object_version_number;
412 l_rec.attribute_category := p_attribute_category;
413 l_rec.attribute1 := p_attribute1;
414 l_rec.attribute2 := p_attribute2;
415 l_rec.attribute3 := p_attribute3;
416 l_rec.attribute4 := p_attribute4;
417 l_rec.attribute5 := p_attribute5;
418 l_rec.attribute6 := p_attribute6;
419 l_rec.attribute7 := p_attribute7;
420 l_rec.attribute8 := p_attribute8;
421 l_rec.attribute9 := p_attribute9;
422 l_rec.attribute10 := p_attribute10;
423 l_rec.attribute11 := p_attribute11;
424 l_rec.attribute12 := p_attribute12;
425 l_rec.attribute13 := p_attribute13;
426 l_rec.attribute14 := p_attribute14;
427 l_rec.attribute15 := p_attribute15;
428 l_rec.attribute16 := p_attribute16;
429 l_rec.attribute17 := p_attribute17;
430 l_rec.attribute18 := p_attribute18;
431 l_rec.attribute19 := p_attribute19;
432 l_rec.attribute20 := p_attribute20;
433 l_rec.attribute21 := p_attribute21;
434 l_rec.attribute22 := p_attribute22;
435 l_rec.attribute23 := p_attribute23;
436 l_rec.attribute24 := p_attribute24;
437 l_rec.attribute25 := p_attribute25;
438 l_rec.attribute26 := p_attribute26;
439 l_rec.attribute27 := p_attribute27;
440 l_rec.attribute28 := p_attribute28;
441 l_rec.attribute29 := p_attribute29;
442 l_rec.attribute30 := p_attribute30;
443 l_rec.information_category := p_information_category;
444 l_rec.information1 := p_information1;
445 l_rec.information2 := p_information2;
446 l_rec.information3 := p_information3;
447 l_rec.information4 := p_information4;
448 l_rec.information5 := p_information5;
449 l_rec.information6 := p_information6;
450 l_rec.information7 := p_information7;
451 l_rec.information8 := p_information8;
452 l_rec.information9 := p_information9;
453 l_rec.information10 := p_information10;
454 l_rec.information11 := p_information11;
455 l_rec.information12 := p_information12;
456 l_rec.information13 := p_information13;
457 l_rec.information14 := p_information14;
458 l_rec.information15 := p_information15;
459 l_rec.information16 := p_information16;
460 l_rec.information17 := p_information17;
461 l_rec.information18 := p_information18;
462 l_rec.information19 := p_information19;
463 l_rec.information20 := p_information20;
464 l_rec.information21 := p_information21;
465 l_rec.information22 := p_information22;
466 l_rec.information23 := p_information23;
467 l_rec.information24 := p_information24;
468 l_rec.information25 := p_information25;
469 l_rec.information26 := p_information26;
470 l_rec.information27 := p_information27;
471 l_rec.information28 := p_information28;
472 l_rec.information29 := p_information29;
473 l_rec.information30 := p_information30;
474 --
475 -- Return the plsql record structure.
476 --
477 Return(l_rec);
478 --
479 End convert_args;
480 --
481 end per_pgv_shd;