[Home] [Help]
PACKAGE BODY: APPS.PER_PPS_SHD
Source
1 Package Body per_pps_shd as
2 /* $Header: peppsrhi.pkb 120.0 2005/05/31 15:03:02 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_pps_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------< return_api_dml_status >-------------------------|
12 -- ----------------------------------------------------------------------------
13 Function return_api_dml_status Return Boolean Is
14 --
15 Begin
16 --
17 Return (nvl(g_api_dml, false));
18 --
19 End return_api_dml_status;
20 --
21 -- ----------------------------------------------------------------------------
22 -- |---------------------------< constraint_error >---------------------------|
23 -- ----------------------------------------------------------------------------
24 Procedure constraint_error
25 (p_constraint_name in all_constraints.constraint_name%TYPE
26 ) Is
27 --
28 l_proc varchar2(72) := g_package||'constraint_error';
29 --
30 Begin
31 --
32 If (p_constraint_name = 'PER_PARENT_SPINES_FK1') Then
33 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
34 fnd_message.set_token('PROCEDURE', l_proc);
35 fnd_message.set_token('STEP','5');
36 fnd_message.raise_error;
37 ElsIf (p_constraint_name = 'PER_PARENT_SPINES_PK') Then
38 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
39 fnd_message.set_token('PROCEDURE', l_proc);
40 fnd_message.set_token('STEP','10');
41 fnd_message.raise_error;
42 ElsIf (p_constraint_name = 'PER_PARENT_SPINES_UK2') Then
43 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
44 fnd_message.set_token('PROCEDURE', l_proc);
45 fnd_message.set_token('STEP','15');
46 fnd_message.raise_error;
47 Else
48 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
49 fnd_message.set_token('PROCEDURE', l_proc);
50 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
51 fnd_message.raise_error;
52 End If;
53 --
54 End constraint_error;
55 --
56 -- ----------------------------------------------------------------------------
57 -- |-----------------------------< api_updating >-----------------------------|
58 -- ----------------------------------------------------------------------------
59 Function api_updating
60 (p_parent_spine_id in number
61 ,p_object_version_number in number
62 )
63 Return Boolean Is
64 --
65 --
66 -- Cursor selects the 'current' row from the HR Schema
67 --
68 Cursor C_Sel1 is
69 select
70 parent_spine_id
71 ,business_group_id
72 ,name
73 ,comments
74 ,increment_frequency
75 ,increment_period
76 ,last_automatic_increment_date
77 ,request_id
78 ,program_application_id
79 ,program_id
80 ,program_update_date
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 ,information_category
103 ,information1
104 ,information2
105 ,information3
106 ,information4
107 ,information5
108 ,information6
109 ,information7
110 ,information8
111 ,information9
112 ,information10
113 ,information11
114 ,information12
115 ,information13
116 ,information14
117 ,information15
118 ,information16
119 ,information17
120 ,information18
121 ,information19
122 ,information20
123 ,information21
124 ,information22
125 ,information23
126 ,information24
127 ,information25
128 ,information26
129 ,information27
130 ,information28
131 ,information29
132 ,information30
133 ,object_version_number
134 from per_parent_spines
135 where parent_spine_id = p_parent_spine_id;
136 --
137 l_fct_ret boolean;
138 --
139 Begin
140 --
141 If (p_parent_spine_id is null and
142 p_object_version_number is null
143 ) Then
144 --
145 -- One of the primary key arguments is null therefore we must
146 -- set the returning function value to false
147 --
148 l_fct_ret := false;
149 Else
150 If (p_parent_spine_id
151 = per_pps_shd.g_old_rec.parent_spine_id and
152 p_object_version_number
153 = per_pps_shd.g_old_rec.object_version_number
154 ) Then
155 --
156 -- The g_old_rec is current therefore we must
157 -- set the returning function to true
158 --
159 l_fct_ret := true;
160 Else
161 --
162 -- Select the current row into g_old_rec
163 --
164 Open C_Sel1;
165 Fetch C_Sel1 Into per_pps_shd.g_old_rec;
166 If C_Sel1%notfound Then
167 Close C_Sel1;
168 --
169 -- The primary key is invalid therefore we must error
170 --
171 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
172 fnd_message.raise_error;
173 End If;
174 Close C_Sel1;
175 If (p_object_version_number
176 <> per_pps_shd.g_old_rec.object_version_number) Then
177 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
178 fnd_message.raise_error;
179 End If;
180 l_fct_ret := true;
181 End If;
182 End If;
183 Return (l_fct_ret);
184 --
185 End api_updating;
186 --
187 -- ----------------------------------------------------------------------------
188 -- |---------------------------------< lck >----------------------------------|
189 -- ----------------------------------------------------------------------------
190 Procedure lck
191 (p_parent_spine_id in number
192 ,p_object_version_number in number
193 ) is
194 --
195 -- Cursor selects the 'current' row from the HR Schema
196 --
197 Cursor C_Sel1 is
198 select
199 parent_spine_id
200 ,business_group_id
201 ,name
202 ,comments
203 ,increment_frequency
204 ,increment_period
205 ,last_automatic_increment_date
206 ,request_id
207 ,program_application_id
208 ,program_id
209 ,program_update_date
210 ,attribute_category
211 ,attribute1
212 ,attribute2
213 ,attribute3
214 ,attribute4
215 ,attribute5
216 ,attribute6
217 ,attribute7
218 ,attribute8
219 ,attribute9
220 ,attribute10
221 ,attribute11
222 ,attribute12
223 ,attribute13
224 ,attribute14
225 ,attribute15
226 ,attribute16
227 ,attribute17
228 ,attribute18
229 ,attribute19
230 ,attribute20
231 ,information_category
232 ,information1
233 ,information2
234 ,information3
235 ,information4
236 ,information5
237 ,information6
238 ,information7
239 ,information8
240 ,information9
241 ,information10
242 ,information11
243 ,information12
244 ,information13
245 ,information14
246 ,information15
247 ,information16
248 ,information17
249 ,information18
250 ,information19
251 ,information20
252 ,information21
253 ,information22
254 ,information23
255 ,information24
256 ,information25
257 ,information26
258 ,information27
259 ,information28
260 ,information29
261 ,information30
262 ,object_version_number
263 from per_parent_spines
264 where parent_spine_id = p_parent_spine_id
265 for update nowait;
266 --
267 l_proc varchar2(72) := g_package||'lck';
268 --
269 Begin
270 hr_utility.set_location('Entering:'||l_proc, 5);
271 --
272 hr_api.mandatory_arg_error
273 (p_api_name => l_proc
274 ,p_argument => 'PARENT_SPINE_ID'
275 ,p_argument_value => p_parent_spine_id
276 );
277 hr_utility.set_location(l_proc,6);
278 hr_api.mandatory_arg_error
279 (p_api_name => l_proc
280 ,p_argument => 'OBJECT_VERSION_NUMBER'
281 ,p_argument_value => p_object_version_number
282 );
283 --
284 Open C_Sel1;
285 Fetch C_Sel1 Into per_pps_shd.g_old_rec;
286 If C_Sel1%notfound then
287 Close C_Sel1;
288 --
289 -- The primary key is invalid therefore we must error
290 --
291 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
292 fnd_message.raise_error;
293 End If;
294 Close C_Sel1;
295 If (p_object_version_number
296 <> per_pps_shd.g_old_rec.object_version_number) Then
297 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
298 fnd_message.raise_error;
299 End If;
300 --
301 hr_utility.set_location(' Leaving:'||l_proc, 10);
302 --
303 -- We need to trap the ORA LOCK exception
304 --
305 Exception
306 When HR_Api.Object_Locked then
307 --
308 -- The object is locked therefore we need to supply a meaningful
309 -- error message.
310 --
311 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
312 fnd_message.set_token('TABLE_NAME', 'per_parent_spines');
313 fnd_message.raise_error;
314 End lck;
315 --
316 -- ----------------------------------------------------------------------------
317 -- |-----------------------------< convert_args >-----------------------------|
318 -- ----------------------------------------------------------------------------
319 Function convert_args
320 (p_parent_spine_id in number
321 ,p_business_group_id in number
322 ,p_name in varchar2
323 ,p_comments in varchar2
324 ,p_increment_frequency in number
325 ,p_increment_period in varchar2
326 ,p_last_automatic_increment_dat in date
327 ,p_request_id in number
328 ,p_program_application_id in number
329 ,p_program_id in number
330 ,p_program_update_date in date
331 ,p_attribute_category in varchar2
332 ,p_attribute1 in varchar2
333 ,p_attribute2 in varchar2
334 ,p_attribute3 in varchar2
335 ,p_attribute4 in varchar2
336 ,p_attribute5 in varchar2
337 ,p_attribute6 in varchar2
338 ,p_attribute7 in varchar2
339 ,p_attribute8 in varchar2
340 ,p_attribute9 in varchar2
341 ,p_attribute10 in varchar2
342 ,p_attribute11 in varchar2
343 ,p_attribute12 in varchar2
344 ,p_attribute13 in varchar2
345 ,p_attribute14 in varchar2
346 ,p_attribute15 in varchar2
347 ,p_attribute16 in varchar2
348 ,p_attribute17 in varchar2
349 ,p_attribute18 in varchar2
350 ,p_attribute19 in varchar2
351 ,p_attribute20 in varchar2
352 ,p_information_category in varchar2
353 ,p_information1 in varchar2
354 ,p_information2 in varchar2
355 ,p_information3 in varchar2
356 ,p_information4 in varchar2
357 ,p_information5 in varchar2
358 ,p_information6 in varchar2
359 ,p_information7 in varchar2
360 ,p_information8 in varchar2
361 ,p_information9 in varchar2
362 ,p_information10 in varchar2
363 ,p_information11 in varchar2
364 ,p_information12 in varchar2
365 ,p_information13 in varchar2
366 ,p_information14 in varchar2
367 ,p_information15 in varchar2
368 ,p_information16 in varchar2
369 ,p_information17 in varchar2
370 ,p_information18 in varchar2
371 ,p_information19 in varchar2
372 ,p_information20 in varchar2
373 ,p_information21 in varchar2
374 ,p_information22 in varchar2
375 ,p_information23 in varchar2
376 ,p_information24 in varchar2
377 ,p_information25 in varchar2
378 ,p_information26 in varchar2
379 ,p_information27 in varchar2
380 ,p_information28 in varchar2
381 ,p_information29 in varchar2
382 ,p_information30 in varchar2
383 ,p_object_version_number in number
384 )
385 Return g_rec_type is
386 --
387 l_rec g_rec_type;
388 --
389 Begin
390 --
391 -- Convert arguments into local l_rec structure.
392 --
393 l_rec.parent_spine_id := p_parent_spine_id;
394 l_rec.business_group_id := p_business_group_id;
395 l_rec.name := p_name;
396 l_rec.comments := p_comments;
397 l_rec.increment_frequency := p_increment_frequency;
398 l_rec.increment_period := p_increment_period;
399 l_rec.last_automatic_increment_date := p_last_automatic_increment_dat;
400 l_rec.request_id := p_request_id;
401 l_rec.program_application_id := p_program_application_id;
402 l_rec.program_id := p_program_id;
403 l_rec.program_update_date := p_program_update_date;
404 l_rec.attribute_category := p_attribute_category;
405 l_rec.attribute1 := p_attribute1;
406 l_rec.attribute2 := p_attribute2;
407 l_rec.attribute3 := p_attribute3;
408 l_rec.attribute4 := p_attribute4;
409 l_rec.attribute5 := p_attribute5;
410 l_rec.attribute6 := p_attribute6;
411 l_rec.attribute7 := p_attribute7;
412 l_rec.attribute8 := p_attribute8;
413 l_rec.attribute9 := p_attribute9;
414 l_rec.attribute10 := p_attribute10;
415 l_rec.attribute11 := p_attribute11;
416 l_rec.attribute12 := p_attribute12;
417 l_rec.attribute13 := p_attribute13;
418 l_rec.attribute14 := p_attribute14;
419 l_rec.attribute15 := p_attribute15;
420 l_rec.attribute16 := p_attribute16;
421 l_rec.attribute17 := p_attribute17;
422 l_rec.attribute18 := p_attribute18;
423 l_rec.attribute19 := p_attribute19;
424 l_rec.attribute20 := p_attribute20;
425 l_rec.information_category := p_information_category;
426 l_rec.information1 := p_information1;
427 l_rec.information2 := p_information2;
428 l_rec.information3 := p_information3;
429 l_rec.information4 := p_information4;
430 l_rec.information5 := p_information5;
431 l_rec.information6 := p_information6;
432 l_rec.information7 := p_information7;
433 l_rec.information8 := p_information8;
434 l_rec.information9 := p_information9;
435 l_rec.information10 := p_information10;
436 l_rec.information11 := p_information11;
437 l_rec.information12 := p_information12;
438 l_rec.information13 := p_information13;
439 l_rec.information14 := p_information14;
440 l_rec.information15 := p_information15;
441 l_rec.information16 := p_information16;
442 l_rec.information17 := p_information17;
443 l_rec.information18 := p_information18;
444 l_rec.information19 := p_information19;
445 l_rec.information20 := p_information20;
446 l_rec.information21 := p_information21;
447 l_rec.information22 := p_information22;
448 l_rec.information23 := p_information23;
449 l_rec.information24 := p_information24;
450 l_rec.information25 := p_information25;
451 l_rec.information26 := p_information26;
452 l_rec.information27 := p_information27;
453 l_rec.information28 := p_information28;
454 l_rec.information29 := p_information29;
455 l_rec.information30 := p_information30;
456 l_rec.object_version_number := p_object_version_number;
457 --
458 -- Return the plsql record structure.
459 --
460 Return(l_rec);
461 --
462 End convert_args;
463 --
464 end per_pps_shd;