[Home] [Help]
PACKAGE BODY: APPS.PER_PJI_SHD
Source
1 Package Body per_pji_shd as
2 /* $Header: pepjirhi.pkb 115.8 2002/12/03 15:41:52 eumenyio ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_pji_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_PREV_JOB_EXTRA_INFO_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_previous_job_extra_info_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 previous_job_extra_info_id
50 ,previous_job_id
51 ,information_type
52 ,pji_attribute_category
53 ,pji_attribute1
54 ,pji_attribute2
55 ,pji_attribute3
56 ,pji_attribute4
57 ,pji_attribute5
58 ,pji_attribute6
59 ,pji_attribute7
60 ,pji_attribute8
61 ,pji_attribute9
62 ,pji_attribute10
63 ,pji_attribute11
64 ,pji_attribute12
65 ,pji_attribute13
66 ,pji_attribute14
67 ,pji_attribute15
68 ,pji_attribute16
69 ,pji_attribute17
70 ,pji_attribute18
71 ,pji_attribute19
72 ,pji_attribute20
73 ,pji_attribute21
74 ,pji_attribute22
75 ,pji_attribute23
76 ,pji_attribute24
77 ,pji_attribute25
78 ,pji_attribute26
79 ,pji_attribute27
80 ,pji_attribute28
81 ,pji_attribute29
82 ,pji_attribute30
83 ,pji_information_category
84 ,pji_information1
85 ,pji_information2
86 ,pji_information3
87 ,pji_information4
88 ,pji_information5
89 ,pji_information6
90 ,pji_information7
91 ,pji_information8
92 ,pji_information9
93 ,pji_information10
94 ,pji_information11
95 ,pji_information12
96 ,pji_information13
97 ,pji_information14
98 ,pji_information15
99 ,pji_information16
100 ,pji_information17
101 ,pji_information18
102 ,pji_information19
103 ,pji_information20
104 ,pji_information21
105 ,pji_information22
106 ,pji_information23
107 ,pji_information24
108 ,pji_information25
109 ,pji_information26
110 ,pji_information27
111 ,pji_information28
112 ,pji_information29
113 ,pji_information30
114 ,object_version_number
115 from per_prev_job_extra_info
116 where previous_job_extra_info_id = p_previous_job_extra_info_id;
117 --
118 l_fct_ret boolean;
119 --
120 Begin
121 --
122 If (p_previous_job_extra_info_id is null and
123 p_object_version_number is null
124 ) Then
125 --
126 -- One of the primary key arguments is null therefore we must
127 -- set the returning function value to false
128 --
129 l_fct_ret := false;
130 Else
131 If (p_previous_job_extra_info_id
132 = per_pji_shd.g_old_rec.previous_job_extra_info_id and
133 p_object_version_number
134 = per_pji_shd.g_old_rec.object_version_number
135 ) Then
136 --
137 -- The g_old_rec is current therefore we must
138 -- set the returning function to true
139 --
140 l_fct_ret := true;
141 Else
142 --
143 -- Select the current row into g_old_rec
144 --
145 Open C_Sel1;
146 Fetch C_Sel1 Into per_pji_shd.g_old_rec;
147 If C_Sel1%notfound Then
148 Close C_Sel1;
149 --
150 -- The primary key is invalid therefore we must error
151 --
152 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
153 fnd_message.raise_error;
154 End If;
155 Close C_Sel1;
156 If (p_object_version_number
157 <> per_pji_shd.g_old_rec.object_version_number) Then
158 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
159 fnd_message.raise_error;
160 End If;
161 l_fct_ret := true;
162 End If;
163 End If;
164 Return (l_fct_ret);
165 --
166 End api_updating;
167 --
168 -- ----------------------------------------------------------------------------
169 -- |---------------------------------< lck >----------------------------------|
170 -- ----------------------------------------------------------------------------
171 Procedure lck
172 (p_previous_job_extra_info_id in number
173 ,p_object_version_number in number
174 ) is
175 --
176 -- Cursor selects the 'current' row from the HR Schema
177 --
178 Cursor C_Sel1 is
179 select
180 previous_job_extra_info_id
181 ,previous_job_id
182 ,information_type
183 ,pji_attribute_category
184 ,pji_attribute1
185 ,pji_attribute2
186 ,pji_attribute3
187 ,pji_attribute4
188 ,pji_attribute5
189 ,pji_attribute6
190 ,pji_attribute7
191 ,pji_attribute8
192 ,pji_attribute9
193 ,pji_attribute10
194 ,pji_attribute11
195 ,pji_attribute12
196 ,pji_attribute13
197 ,pji_attribute14
198 ,pji_attribute15
199 ,pji_attribute16
200 ,pji_attribute17
201 ,pji_attribute18
202 ,pji_attribute19
203 ,pji_attribute20
204 ,pji_attribute21
205 ,pji_attribute22
206 ,pji_attribute23
207 ,pji_attribute24
208 ,pji_attribute25
209 ,pji_attribute26
210 ,pji_attribute27
211 ,pji_attribute28
212 ,pji_attribute29
213 ,pji_attribute30
214 ,pji_information_category
215 ,pji_information1
216 ,pji_information2
217 ,pji_information3
218 ,pji_information4
219 ,pji_information5
220 ,pji_information6
221 ,pji_information7
222 ,pji_information8
223 ,pji_information9
224 ,pji_information10
225 ,pji_information11
226 ,pji_information12
227 ,pji_information13
228 ,pji_information14
229 ,pji_information15
230 ,pji_information16
231 ,pji_information17
232 ,pji_information18
233 ,pji_information19
234 ,pji_information20
235 ,pji_information21
236 ,pji_information22
237 ,pji_information23
238 ,pji_information24
239 ,pji_information25
240 ,pji_information26
241 ,pji_information27
242 ,pji_information28
243 ,pji_information29
244 ,pji_information30
245 ,object_version_number
246 from per_prev_job_extra_info
247 where previous_job_extra_info_id = p_previous_job_extra_info_id
248 for update nowait;
249 --
250 l_proc varchar2(72) := g_package||'lck';
251 --
252 Begin
253 hr_utility.set_location('Entering:'||l_proc, 5);
254 --
255 hr_api.mandatory_arg_error
256 (p_api_name => l_proc
257 ,p_argument => 'PREVIOUS_JOB_EXTRA_INFO_ID'
258 ,p_argument_value => p_previous_job_extra_info_id
259 );
260 hr_utility.set_location(l_proc,6);
261 hr_api.mandatory_arg_error
262 (p_api_name => l_proc
263 ,p_argument => 'OBJECT_VERSION_NUMBER'
264 ,p_argument_value => p_object_version_number
265 );
266 --
267 Open C_Sel1;
268 Fetch C_Sel1 Into per_pji_shd.g_old_rec;
269 If C_Sel1%notfound then
270 Close C_Sel1;
271 --
272 -- The primary key is invalid therefore we must error
273 --
274 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
275 fnd_message.raise_error;
276 End If;
277 Close C_Sel1;
278 If (p_object_version_number
279 <> per_pji_shd.g_old_rec.object_version_number) Then
280 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
281 fnd_message.raise_error;
282 End If;
283 --
284 hr_utility.set_location(' Leaving:'||l_proc, 10);
285 --
286 -- We need to trap the ORA LOCK exception
287 --
288 Exception
289 When HR_Api.Object_Locked then
290 --
291 -- The object is locked therefore we need to supply a meaningful
292 -- error message.
293 --
294 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
295 fnd_message.set_token('TABLE_NAME', 'per_prev_job_extra_info');
296 fnd_message.raise_error;
297 End lck;
298 --
299 -- ----------------------------------------------------------------------------
300 -- |-----------------------------< convert_args >-----------------------------|
301 -- ----------------------------------------------------------------------------
302 Function convert_args
303 (p_previous_job_extra_info_id in number
304 ,p_previous_job_id in number
305 ,p_information_type in varchar2
306 ,p_pji_attribute_category in varchar2
307 ,p_pji_attribute1 in varchar2
308 ,p_pji_attribute2 in varchar2
309 ,p_pji_attribute3 in varchar2
310 ,p_pji_attribute4 in varchar2
311 ,p_pji_attribute5 in varchar2
312 ,p_pji_attribute6 in varchar2
313 ,p_pji_attribute7 in varchar2
314 ,p_pji_attribute8 in varchar2
315 ,p_pji_attribute9 in varchar2
316 ,p_pji_attribute10 in varchar2
317 ,p_pji_attribute11 in varchar2
318 ,p_pji_attribute12 in varchar2
319 ,p_pji_attribute13 in varchar2
320 ,p_pji_attribute14 in varchar2
321 ,p_pji_attribute15 in varchar2
322 ,p_pji_attribute16 in varchar2
323 ,p_pji_attribute17 in varchar2
324 ,p_pji_attribute18 in varchar2
325 ,p_pji_attribute19 in varchar2
326 ,p_pji_attribute20 in varchar2
327 ,p_pji_attribute21 in varchar2
328 ,p_pji_attribute22 in varchar2
329 ,p_pji_attribute23 in varchar2
330 ,p_pji_attribute24 in varchar2
331 ,p_pji_attribute25 in varchar2
332 ,p_pji_attribute26 in varchar2
333 ,p_pji_attribute27 in varchar2
334 ,p_pji_attribute28 in varchar2
335 ,p_pji_attribute29 in varchar2
336 ,p_pji_attribute30 in varchar2
337 ,p_pji_information_category in varchar2
338 ,p_pji_information1 in varchar2
339 ,p_pji_information2 in varchar2
340 ,p_pji_information3 in varchar2
341 ,p_pji_information4 in varchar2
342 ,p_pji_information5 in varchar2
343 ,p_pji_information6 in varchar2
344 ,p_pji_information7 in varchar2
345 ,p_pji_information8 in varchar2
346 ,p_pji_information9 in varchar2
347 ,p_pji_information10 in varchar2
348 ,p_pji_information11 in varchar2
349 ,p_pji_information12 in varchar2
350 ,p_pji_information13 in varchar2
351 ,p_pji_information14 in varchar2
352 ,p_pji_information15 in varchar2
353 ,p_pji_information16 in varchar2
354 ,p_pji_information17 in varchar2
355 ,p_pji_information18 in varchar2
356 ,p_pji_information19 in varchar2
357 ,p_pji_information20 in varchar2
358 ,p_pji_information21 in varchar2
359 ,p_pji_information22 in varchar2
360 ,p_pji_information23 in varchar2
361 ,p_pji_information24 in varchar2
362 ,p_pji_information25 in varchar2
363 ,p_pji_information26 in varchar2
364 ,p_pji_information27 in varchar2
365 ,p_pji_information28 in varchar2
366 ,p_pji_information29 in varchar2
367 ,p_pji_information30 in varchar2
368 ,p_object_version_number in number
369 )
370 Return g_rec_type is
371 --
372 l_rec g_rec_type;
373 --
374 Begin
375 --
376 -- Convert arguments into local l_rec structure.
377 --
378 l_rec.previous_job_extra_info_id := p_previous_job_extra_info_id;
379 l_rec.previous_job_id := p_previous_job_id;
380 l_rec.information_type := p_information_type;
381 l_rec.pji_attribute_category := p_pji_attribute_category;
382 l_rec.pji_attribute1 := p_pji_attribute1;
383 l_rec.pji_attribute2 := p_pji_attribute2;
384 l_rec.pji_attribute3 := p_pji_attribute3;
385 l_rec.pji_attribute4 := p_pji_attribute4;
386 l_rec.pji_attribute5 := p_pji_attribute5;
387 l_rec.pji_attribute6 := p_pji_attribute6;
388 l_rec.pji_attribute7 := p_pji_attribute7;
389 l_rec.pji_attribute8 := p_pji_attribute8;
390 l_rec.pji_attribute9 := p_pji_attribute9;
391 l_rec.pji_attribute10 := p_pji_attribute10;
392 l_rec.pji_attribute11 := p_pji_attribute11;
393 l_rec.pji_attribute12 := p_pji_attribute12;
394 l_rec.pji_attribute13 := p_pji_attribute13;
395 l_rec.pji_attribute14 := p_pji_attribute14;
396 l_rec.pji_attribute15 := p_pji_attribute15;
397 l_rec.pji_attribute16 := p_pji_attribute16;
398 l_rec.pji_attribute17 := p_pji_attribute17;
399 l_rec.pji_attribute18 := p_pji_attribute18;
400 l_rec.pji_attribute19 := p_pji_attribute19;
401 l_rec.pji_attribute20 := p_pji_attribute20;
402 l_rec.pji_attribute21 := p_pji_attribute21;
403 l_rec.pji_attribute22 := p_pji_attribute22;
404 l_rec.pji_attribute23 := p_pji_attribute23;
405 l_rec.pji_attribute24 := p_pji_attribute24;
406 l_rec.pji_attribute25 := p_pji_attribute25;
407 l_rec.pji_attribute26 := p_pji_attribute26;
408 l_rec.pji_attribute27 := p_pji_attribute27;
409 l_rec.pji_attribute28 := p_pji_attribute28;
410 l_rec.pji_attribute29 := p_pji_attribute29;
411 l_rec.pji_attribute30 := p_pji_attribute30;
412 l_rec.pji_information_category := p_pji_information_category;
413 l_rec.pji_information1 := p_pji_information1;
414 l_rec.pji_information2 := p_pji_information2;
415 l_rec.pji_information3 := p_pji_information3;
416 l_rec.pji_information4 := p_pji_information4;
417 l_rec.pji_information5 := p_pji_information5;
418 l_rec.pji_information6 := p_pji_information6;
419 l_rec.pji_information7 := p_pji_information7;
420 l_rec.pji_information8 := p_pji_information8;
421 l_rec.pji_information9 := p_pji_information9;
422 l_rec.pji_information10 := p_pji_information10;
423 l_rec.pji_information11 := p_pji_information11;
424 l_rec.pji_information12 := p_pji_information12;
425 l_rec.pji_information13 := p_pji_information13;
426 l_rec.pji_information14 := p_pji_information14;
427 l_rec.pji_information15 := p_pji_information15;
428 l_rec.pji_information16 := p_pji_information16;
429 l_rec.pji_information17 := p_pji_information17;
430 l_rec.pji_information18 := p_pji_information18;
431 l_rec.pji_information19 := p_pji_information19;
432 l_rec.pji_information20 := p_pji_information20;
433 l_rec.pji_information21 := p_pji_information21;
434 l_rec.pji_information22 := p_pji_information22;
435 l_rec.pji_information23 := p_pji_information23;
436 l_rec.pji_information24 := p_pji_information24;
437 l_rec.pji_information25 := p_pji_information25;
438 l_rec.pji_information26 := p_pji_information26;
439 l_rec.pji_information27 := p_pji_information27;
440 l_rec.pji_information28 := p_pji_information28;
441 l_rec.pji_information29 := p_pji_information29;
442 l_rec.pji_information30 := p_pji_information30;
443 l_rec.object_version_number := p_object_version_number;
444 --
445 -- Return the plsql record structure.
446 --
447 Return(l_rec);
448 --
449 End convert_args;
450 --
451 end per_pji_shd;