[Home] [Help]
PACKAGE BODY: APPS.PER_ABC_SHD
Source
1 Package Body per_abc_shd as
2 /* $Header: peabcrhi.pkb 120.1 2005/09/28 05:04:54 snukala noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_abc_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_ABSENCE_CASES_PK') 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 Else
38 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
39 fnd_message.set_token('PROCEDURE', l_proc);
40 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
41 fnd_message.raise_error;
42 End If;
43 --
44 End constraint_error;
45 --
46 -- ----------------------------------------------------------------------------
47 -- |-----------------------------< api_updating >-----------------------------|
48 -- ----------------------------------------------------------------------------
49 Function api_updating
50 (p_absence_case_id in number
51 ,p_object_version_number in number
52 )
53 Return Boolean Is
54 --
55 --
56 -- Cursor selects the 'current' row from the HR Schema
57 --
58 Cursor C_Sel1 is
59 select
60 absence_case_id
61 ,name
62 ,person_id
63 ,incident_id
64 ,absence_category
65 ,ac_information_category
66 ,ac_information1
67 ,ac_information2
68 ,ac_information3
69 ,ac_information4
70 ,ac_information5
71 ,ac_information6
72 ,ac_information7
73 ,ac_information8
74 ,ac_information9
75 ,ac_information10
76 ,ac_information11
77 ,ac_information12
78 ,ac_information13
79 ,ac_information14
80 ,ac_information15
81 ,ac_information16
82 ,ac_information17
83 ,ac_information18
84 ,ac_information19
85 ,ac_information20
86 ,ac_information21
87 ,ac_information22
88 ,ac_information23
89 ,ac_information24
90 ,ac_information25
91 ,ac_information26
92 ,ac_information27
93 ,ac_information28
94 ,ac_information29
95 ,ac_information30
96 ,ac_attribute_category
97 ,attribute1
98 ,attribute2
99 ,attribute3
100 ,attribute4
101 ,attribute5
102 ,attribute6
103 ,attribute7
104 ,attribute8
105 ,attribute9
106 ,attribute10
107 ,attribute11
108 ,attribute12
109 ,attribute13
110 ,attribute14
111 ,attribute15
112 ,attribute16
113 ,attribute17
114 ,attribute18
115 ,attribute19
116 ,attribute20
117 ,attribute21
118 ,attribute22
119 ,attribute23
120 ,attribute24
121 ,attribute25
122 ,attribute26
123 ,attribute27
124 ,attribute28
125 ,attribute29
126 ,attribute30
127 ,object_version_number
128 ,business_group_id
129 ,comments
130 from per_absence_cases
131 where absence_case_id = p_absence_case_id;
132 --
133 l_fct_ret boolean;
134 --
135 Begin
136 --
137 If (p_absence_case_id is null and
138 p_object_version_number is null
139 ) Then
140 --
141 -- One of the primary key arguments is null therefore we must
142 -- set the returning function value to false
143 --
144 l_fct_ret := false;
145 Else
146 If (p_absence_case_id
147 = per_abc_shd.g_old_rec.absence_case_id and
148 p_object_version_number
149 = per_abc_shd.g_old_rec.object_version_number
150 ) Then
151 --
152 -- The g_old_rec is current therefore we must
153 -- set the returning function to true
154 --
155 l_fct_ret := true;
156 Else
157 --
158 -- Select the current row into g_old_rec
159 --
160 Open C_Sel1;
161 Fetch C_Sel1 Into per_abc_shd.g_old_rec;
162 If C_Sel1%notfound Then
163 Close C_Sel1;
164 --
165 -- The primary key is invalid therefore we must error
166 --
167 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
168 fnd_message.raise_error;
169 End If;
170 Close C_Sel1;
171 If (p_object_version_number
172 <> per_abc_shd.g_old_rec.object_version_number) Then
173 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
174 fnd_message.raise_error;
175 End If;
176 l_fct_ret := true;
177 End If;
178 End If;
179 Return (l_fct_ret);
180 --
181 End api_updating;
182 --
183 -- ----------------------------------------------------------------------------
184 -- |---------------------------------< lck >----------------------------------|
185 -- ----------------------------------------------------------------------------
186 Procedure lck
187 (p_absence_case_id in number
188 ,p_object_version_number in number
189 ) is
190 --
191 -- Cursor selects the 'current' row from the HR Schema
192 --
193 Cursor C_Sel1 is
194 select
195 absence_case_id
196 ,name
197 ,person_id
198 ,incident_id
199 ,absence_category
200 ,ac_information_category
201 ,ac_information1
202 ,ac_information2
203 ,ac_information3
204 ,ac_information4
205 ,ac_information5
206 ,ac_information6
207 ,ac_information7
208 ,ac_information8
209 ,ac_information9
210 ,ac_information10
211 ,ac_information11
212 ,ac_information12
213 ,ac_information13
214 ,ac_information14
215 ,ac_information15
216 ,ac_information16
217 ,ac_information17
218 ,ac_information18
219 ,ac_information19
220 ,ac_information20
221 ,ac_information21
222 ,ac_information22
223 ,ac_information23
224 ,ac_information24
225 ,ac_information25
226 ,ac_information26
227 ,ac_information27
228 ,ac_information28
229 ,ac_information29
230 ,ac_information30
231 ,ac_attribute_category
232 ,attribute1
233 ,attribute2
234 ,attribute3
235 ,attribute4
236 ,attribute5
237 ,attribute6
238 ,attribute7
239 ,attribute8
240 ,attribute9
241 ,attribute10
242 ,attribute11
243 ,attribute12
244 ,attribute13
245 ,attribute14
246 ,attribute15
247 ,attribute16
248 ,attribute17
249 ,attribute18
250 ,attribute19
251 ,attribute20
252 ,attribute21
253 ,attribute22
254 ,attribute23
255 ,attribute24
256 ,attribute25
257 ,attribute26
258 ,attribute27
259 ,attribute28
260 ,attribute29
261 ,attribute30
262 ,object_version_number
263 ,business_group_id
264 ,comments
265 from per_absence_cases
266 where absence_case_id = p_absence_case_id
267 for update nowait;
268 --
269 l_proc varchar2(72) := g_package||'lck';
270 --
271 Begin
272 hr_utility.set_location('Entering:'||l_proc, 5);
273 --
274 hr_api.mandatory_arg_error
275 (p_api_name => l_proc
276 ,p_argument => 'ABSENCE_CASE_ID'
277 ,p_argument_value => p_absence_case_id
278 );
279 hr_utility.set_location(l_proc,6);
280 hr_api.mandatory_arg_error
281 (p_api_name => l_proc
282 ,p_argument => 'OBJECT_VERSION_NUMBER'
283 ,p_argument_value => p_object_version_number
284 );
285 --
286 Open C_Sel1;
287 Fetch C_Sel1 Into per_abc_shd.g_old_rec;
288 If C_Sel1%notfound then
289 Close C_Sel1;
290 --
291 -- The primary key is invalid therefore we must error
292 --
293 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
294 fnd_message.raise_error;
295 End If;
296 Close C_Sel1;
297 If (p_object_version_number
298 <> per_abc_shd.g_old_rec.object_version_number) Then
299 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
300 fnd_message.raise_error;
301 End If;
302 --
303 hr_utility.set_location(' Leaving:'||l_proc, 10);
304 --
305 -- We need to trap the ORA LOCK exception
306 --
307 Exception
308 When HR_Api.Object_Locked then
309 --
310 -- The object is locked therefore we need to supply a meaningful
311 -- error message.
312 --
313 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
314 fnd_message.set_token('TABLE_NAME', 'per_absence_cases');
315 fnd_message.raise_error;
316 End lck;
317 --
318 -- ----------------------------------------------------------------------------
319 -- |-----------------------------< convert_args >-----------------------------|
320 -- ----------------------------------------------------------------------------
321 Function convert_args
322 (p_absence_case_id in number
323 ,p_name in varchar2
324 ,p_person_id in number
325 ,p_incident_id in varchar2
326 ,p_absence_category in varchar2
327 ,p_ac_information_category in varchar2
328 ,p_ac_information1 in varchar2
329 ,p_ac_information2 in varchar2
330 ,p_ac_information3 in varchar2
331 ,p_ac_information4 in varchar2
332 ,p_ac_information5 in varchar2
333 ,p_ac_information6 in varchar2
334 ,p_ac_information7 in varchar2
335 ,p_ac_information8 in varchar2
336 ,p_ac_information9 in varchar2
337 ,p_ac_information10 in varchar2
338 ,p_ac_information11 in varchar2
339 ,p_ac_information12 in varchar2
340 ,p_ac_information13 in varchar2
341 ,p_ac_information14 in varchar2
342 ,p_ac_information15 in varchar2
343 ,p_ac_information16 in varchar2
344 ,p_ac_information17 in varchar2
345 ,p_ac_information18 in varchar2
346 ,p_ac_information19 in varchar2
347 ,p_ac_information20 in varchar2
348 ,p_ac_information21 in varchar2
349 ,p_ac_information22 in varchar2
350 ,p_ac_information23 in varchar2
351 ,p_ac_information24 in varchar2
352 ,p_ac_information25 in varchar2
353 ,p_ac_information26 in varchar2
354 ,p_ac_information27 in varchar2
355 ,p_ac_information28 in varchar2
356 ,p_ac_information29 in varchar2
357 ,p_ac_information30 in varchar2
358 ,p_ac_attribute_category in varchar2
359 ,p_attribute1 in varchar2
360 ,p_attribute2 in varchar2
361 ,p_attribute3 in varchar2
362 ,p_attribute4 in varchar2
363 ,p_attribute5 in varchar2
364 ,p_attribute6 in varchar2
365 ,p_attribute7 in varchar2
366 ,p_attribute8 in varchar2
367 ,p_attribute9 in varchar2
368 ,p_attribute10 in varchar2
369 ,p_attribute11 in varchar2
370 ,p_attribute12 in varchar2
371 ,p_attribute13 in varchar2
372 ,p_attribute14 in varchar2
373 ,p_attribute15 in varchar2
374 ,p_attribute16 in varchar2
375 ,p_attribute17 in varchar2
376 ,p_attribute18 in varchar2
377 ,p_attribute19 in varchar2
378 ,p_attribute20 in varchar2
379 ,p_attribute21 in varchar2
380 ,p_attribute22 in varchar2
381 ,p_attribute23 in varchar2
382 ,p_attribute24 in varchar2
383 ,p_attribute25 in varchar2
384 ,p_attribute26 in varchar2
385 ,p_attribute27 in varchar2
386 ,p_attribute28 in varchar2
387 ,p_attribute29 in varchar2
388 ,p_attribute30 in varchar2
389 ,p_object_version_number in number
390 ,p_business_group_id in number
391 ,p_comments in varchar2
392 )
393 Return g_rec_type is
394 --
395 l_rec g_rec_type;
396 --
397 Begin
398 --
399 -- Convert arguments into local l_rec structure.
400 --
401 l_rec.absence_case_id := p_absence_case_id;
402 l_rec.name := p_name;
403 l_rec.person_id := p_person_id;
404 l_rec.incident_id := p_incident_id;
405 l_rec.absence_category := p_absence_category;
406 l_rec.ac_information_category := p_ac_information_category;
407 l_rec.ac_information1 := p_ac_information1;
408 l_rec.ac_information2 := p_ac_information2;
409 l_rec.ac_information3 := p_ac_information3;
410 l_rec.ac_information4 := p_ac_information4;
411 l_rec.ac_information5 := p_ac_information5;
412 l_rec.ac_information6 := p_ac_information6;
413 l_rec.ac_information7 := p_ac_information7;
414 l_rec.ac_information8 := p_ac_information8;
415 l_rec.ac_information9 := p_ac_information9;
416 l_rec.ac_information10 := p_ac_information10;
417 l_rec.ac_information11 := p_ac_information11;
418 l_rec.ac_information12 := p_ac_information12;
419 l_rec.ac_information13 := p_ac_information13;
420 l_rec.ac_information14 := p_ac_information14;
421 l_rec.ac_information15 := p_ac_information15;
422 l_rec.ac_information16 := p_ac_information16;
423 l_rec.ac_information17 := p_ac_information17;
424 l_rec.ac_information18 := p_ac_information18;
425 l_rec.ac_information19 := p_ac_information19;
426 l_rec.ac_information20 := p_ac_information20;
427 l_rec.ac_information21 := p_ac_information21;
428 l_rec.ac_information22 := p_ac_information22;
429 l_rec.ac_information23 := p_ac_information23;
430 l_rec.ac_information24 := p_ac_information24;
431 l_rec.ac_information25 := p_ac_information25;
432 l_rec.ac_information26 := p_ac_information26;
433 l_rec.ac_information27 := p_ac_information27;
434 l_rec.ac_information28 := p_ac_information28;
435 l_rec.ac_information29 := p_ac_information29;
436 l_rec.ac_information30 := p_ac_information30;
437 l_rec.ac_attribute_category := p_ac_attribute_category;
438 l_rec.attribute1 := p_attribute1;
439 l_rec.attribute2 := p_attribute2;
440 l_rec.attribute3 := p_attribute3;
441 l_rec.attribute4 := p_attribute4;
442 l_rec.attribute5 := p_attribute5;
443 l_rec.attribute6 := p_attribute6;
444 l_rec.attribute7 := p_attribute7;
445 l_rec.attribute8 := p_attribute8;
446 l_rec.attribute9 := p_attribute9;
447 l_rec.attribute10 := p_attribute10;
448 l_rec.attribute11 := p_attribute11;
449 l_rec.attribute12 := p_attribute12;
450 l_rec.attribute13 := p_attribute13;
451 l_rec.attribute14 := p_attribute14;
452 l_rec.attribute15 := p_attribute15;
453 l_rec.attribute16 := p_attribute16;
454 l_rec.attribute17 := p_attribute17;
455 l_rec.attribute18 := p_attribute18;
456 l_rec.attribute19 := p_attribute19;
457 l_rec.attribute20 := p_attribute20;
458 l_rec.attribute21 := p_attribute21;
459 l_rec.attribute22 := p_attribute22;
460 l_rec.attribute23 := p_attribute23;
461 l_rec.attribute24 := p_attribute24;
462 l_rec.attribute25 := p_attribute25;
463 l_rec.attribute26 := p_attribute26;
464 l_rec.attribute27 := p_attribute27;
465 l_rec.attribute28 := p_attribute28;
466 l_rec.attribute29 := p_attribute29;
467 l_rec.attribute30 := p_attribute30;
468 l_rec.object_version_number := p_object_version_number;
469 l_rec.business_group_id := p_business_group_id;
470 l_rec.comments := p_comments;
471 --
472 -- Return the plsql record structure.
473 --
474 Return(l_rec);
475 --
476 End convert_args;
477 --
478 end per_abc_shd;