[Home] [Help]
PACKAGE BODY: APPS.HR_DEI_SHD
Source
1 Package Body hr_dei_shd as
2 /* $Header: hrdeirhi.pkb 120.1 2005/09/09 08:32:49 kramajey noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hr_dei_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 = 'HR_DOCUMENT_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_document_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 document_extra_info_id
50 ,person_id
51 ,document_type_id
52 ,document_number
53 ,date_from
54 ,date_to
55 ,issued_by
56 ,issued_at
57 ,issued_date
58 ,issuing_authority
59 ,verified_by
60 ,verified_date
61 ,related_object_name
62 ,related_object_id_col
63 ,related_object_id
64 ,dei_attribute_category
65 ,dei_attribute1
66 ,dei_attribute2
67 ,dei_attribute3
68 ,dei_attribute4
69 ,dei_attribute5
70 ,dei_attribute6
71 ,dei_attribute7
72 ,dei_attribute8
73 ,dei_attribute9
74 ,dei_attribute10
75 ,dei_attribute11
76 ,dei_attribute12
77 ,dei_attribute13
78 ,dei_attribute14
79 ,dei_attribute15
80 ,dei_attribute16
81 ,dei_attribute17
82 ,dei_attribute18
83 ,dei_attribute19
84 ,dei_attribute20
85 ,dei_attribute21
86 ,dei_attribute22
87 ,dei_attribute23
88 ,dei_attribute24
89 ,dei_attribute25
90 ,dei_attribute26
91 ,dei_attribute27
92 ,dei_attribute28
93 ,dei_attribute29
94 ,dei_attribute30
95 ,dei_information_category
96 ,dei_information1
97 ,dei_information2
98 ,dei_information3
99 ,dei_information4
100 ,dei_information5
101 ,dei_information6
102 ,dei_information7
103 ,dei_information8
104 ,dei_information9
105 ,dei_information10
106 ,dei_information11
107 ,dei_information12
108 ,dei_information13
109 ,dei_information14
110 ,dei_information15
111 ,dei_information16
112 ,dei_information17
113 ,dei_information18
114 ,dei_information19
115 ,dei_information20
116 ,dei_information21
117 ,dei_information22
118 ,dei_information23
119 ,dei_information24
120 ,dei_information25
121 ,dei_information26
122 ,dei_information27
123 ,dei_information28
124 ,dei_information29
125 ,dei_information30
126 ,request_id
127 ,program_application_id
128 ,program_id
129 ,program_update_date
130 ,object_version_number
131 from hr_document_extra_info
132 where document_extra_info_id = p_document_extra_info_id;
133 --
134 l_fct_ret boolean;
135 --
136 Begin
137 --
138 If (p_document_extra_info_id is null and
139 p_object_version_number is null
140 ) Then
141 --
142 -- One of the primary key arguments is null therefore we must
143 -- set the returning function value to false
144 --
145 l_fct_ret := false;
146 Else
147 If (p_document_extra_info_id
148 = hr_dei_shd.g_old_rec.document_extra_info_id and
149 p_object_version_number
150 = hr_dei_shd.g_old_rec.object_version_number
151 ) Then
152 --
153 -- The g_old_rec is current therefore we must
154 -- set the returning function to true
155 --
156 l_fct_ret := true;
157 Else
158 --
159 -- Select the current row into g_old_rec
160 --
161 Open C_Sel1;
162 Fetch C_Sel1 Into hr_dei_shd.g_old_rec;
163 If C_Sel1%notfound Then
164 Close C_Sel1;
165 --
166 -- The primary key is invalid therefore we must error
167 --
168 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
169 fnd_message.raise_error;
170 End If;
171 Close C_Sel1;
172 If (p_object_version_number
173 <> hr_dei_shd.g_old_rec.object_version_number) Then
174 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
175 fnd_message.raise_error;
176 End If;
177 l_fct_ret := true;
178 End If;
179 End If;
180 Return (l_fct_ret);
181 --
182 End api_updating;
183 --
184 -- ----------------------------------------------------------------------------
185 -- |---------------------------------< lck >----------------------------------|
186 -- ----------------------------------------------------------------------------
187 Procedure lck
188 (p_document_extra_info_id in number
189 ,p_object_version_number in number
190 ) is
191 --
192 -- Cursor selects the 'current' row from the HR Schema
193 --
194 Cursor C_Sel1 is
195 select
196 document_extra_info_id
197 ,person_id
198 ,document_type_id
199 ,document_number
200 ,date_from
201 ,date_to
202 ,issued_by
203 ,issued_at
204 ,issued_date
205 ,issuing_authority
206 ,verified_by
207 ,verified_date
208 ,related_object_name
209 ,related_object_id_col
210 ,related_object_id
211 ,dei_attribute_category
212 ,dei_attribute1
213 ,dei_attribute2
214 ,dei_attribute3
215 ,dei_attribute4
216 ,dei_attribute5
217 ,dei_attribute6
218 ,dei_attribute7
219 ,dei_attribute8
220 ,dei_attribute9
221 ,dei_attribute10
222 ,dei_attribute11
223 ,dei_attribute12
224 ,dei_attribute13
225 ,dei_attribute14
226 ,dei_attribute15
227 ,dei_attribute16
228 ,dei_attribute17
229 ,dei_attribute18
230 ,dei_attribute19
231 ,dei_attribute20
232 ,dei_attribute21
233 ,dei_attribute22
234 ,dei_attribute23
235 ,dei_attribute24
236 ,dei_attribute25
237 ,dei_attribute26
238 ,dei_attribute27
239 ,dei_attribute28
240 ,dei_attribute29
241 ,dei_attribute30
242 ,dei_information_category
243 ,dei_information1
244 ,dei_information2
245 ,dei_information3
246 ,dei_information4
247 ,dei_information5
248 ,dei_information6
249 ,dei_information7
250 ,dei_information8
251 ,dei_information9
252 ,dei_information10
253 ,dei_information11
254 ,dei_information12
255 ,dei_information13
256 ,dei_information14
257 ,dei_information15
258 ,dei_information16
259 ,dei_information17
260 ,dei_information18
261 ,dei_information19
262 ,dei_information20
263 ,dei_information21
264 ,dei_information22
265 ,dei_information23
266 ,dei_information24
267 ,dei_information25
268 ,dei_information26
269 ,dei_information27
270 ,dei_information28
271 ,dei_information29
272 ,dei_information30
273 ,request_id
274 ,program_application_id
275 ,program_id
276 ,program_update_date
277 ,object_version_number
278 from hr_document_extra_info
279 where document_extra_info_id = p_document_extra_info_id
280 for update nowait;
281 --
282 l_proc varchar2(72) := g_package||'lck';
283 --
284 Begin
285 hr_utility.set_location('Entering:'||l_proc, 5);
286 --
287 hr_api.mandatory_arg_error
288 (p_api_name => l_proc
289 ,p_argument => 'DOCUMENT_EXTRA_INFO_ID'
290 ,p_argument_value => p_document_extra_info_id
291 );
292 hr_utility.set_location(l_proc,6);
293 hr_api.mandatory_arg_error
294 (p_api_name => l_proc
295 ,p_argument => 'OBJECT_VERSION_NUMBER'
296 ,p_argument_value => p_object_version_number
297 );
298 --
299 Open C_Sel1;
300 Fetch C_Sel1 Into hr_dei_shd.g_old_rec;
301 If C_Sel1%notfound then
302 Close C_Sel1;
303 --
304 -- The primary key is invalid therefore we must error
305 --
306 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
307 fnd_message.raise_error;
308 End If;
309 Close C_Sel1;
310 If (p_object_version_number
311 <> hr_dei_shd.g_old_rec.object_version_number) Then
312 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
313 fnd_message.raise_error;
314 End If;
315 --
316 hr_utility.set_location(' Leaving:'||l_proc, 10);
317 --
318 -- We need to trap the ORA LOCK exception
319 --
320 Exception
321 When HR_Api.Object_Locked then
322 --
323 -- The object is locked therefore we need to supply a meaningful
324 -- error message.
325 --
326 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
327 fnd_message.set_token('TABLE_NAME', 'hr_document_extra_info');
328 fnd_message.raise_error;
329 End lck;
330 --
331 -- ----------------------------------------------------------------------------
332 -- |-----------------------------< convert_args >-----------------------------|
333 -- ----------------------------------------------------------------------------
334 Function convert_args
335 (p_document_extra_info_id in number
336 ,p_person_id in number
337 ,p_document_type_id in number
338 ,p_document_number in varchar2
339 ,p_date_from in date
340 ,p_date_to in date
341 ,p_issued_by in varchar2
342 ,p_issued_at in varchar2
343 ,p_issued_date in date
344 ,p_issuing_authority in varchar2
345 ,p_verified_by in number
346 ,p_verified_date in date
347 ,p_related_object_name in varchar2
348 ,p_related_object_id_col in varchar2
349 ,p_related_object_id in number
350 ,p_dei_attribute_category in varchar2
351 ,p_dei_attribute1 in varchar2
352 ,p_dei_attribute2 in varchar2
353 ,p_dei_attribute3 in varchar2
354 ,p_dei_attribute4 in varchar2
355 ,p_dei_attribute5 in varchar2
356 ,p_dei_attribute6 in varchar2
357 ,p_dei_attribute7 in varchar2
358 ,p_dei_attribute8 in varchar2
359 ,p_dei_attribute9 in varchar2
360 ,p_dei_attribute10 in varchar2
361 ,p_dei_attribute11 in varchar2
362 ,p_dei_attribute12 in varchar2
363 ,p_dei_attribute13 in varchar2
364 ,p_dei_attribute14 in varchar2
365 ,p_dei_attribute15 in varchar2
366 ,p_dei_attribute16 in varchar2
367 ,p_dei_attribute17 in varchar2
368 ,p_dei_attribute18 in varchar2
369 ,p_dei_attribute19 in varchar2
370 ,p_dei_attribute20 in varchar2
371 ,p_dei_attribute21 in varchar2
372 ,p_dei_attribute22 in varchar2
373 ,p_dei_attribute23 in varchar2
374 ,p_dei_attribute24 in varchar2
375 ,p_dei_attribute25 in varchar2
376 ,p_dei_attribute26 in varchar2
377 ,p_dei_attribute27 in varchar2
378 ,p_dei_attribute28 in varchar2
379 ,p_dei_attribute29 in varchar2
380 ,p_dei_attribute30 in varchar2
381 ,p_dei_information_category in varchar2
382 ,p_dei_information1 in varchar2
383 ,p_dei_information2 in varchar2
384 ,p_dei_information3 in varchar2
385 ,p_dei_information4 in varchar2
386 ,p_dei_information5 in varchar2
387 ,p_dei_information6 in varchar2
388 ,p_dei_information7 in varchar2
389 ,p_dei_information8 in varchar2
390 ,p_dei_information9 in varchar2
391 ,p_dei_information10 in varchar2
392 ,p_dei_information11 in varchar2
393 ,p_dei_information12 in varchar2
394 ,p_dei_information13 in varchar2
395 ,p_dei_information14 in varchar2
396 ,p_dei_information15 in varchar2
397 ,p_dei_information16 in varchar2
398 ,p_dei_information17 in varchar2
399 ,p_dei_information18 in varchar2
400 ,p_dei_information19 in varchar2
401 ,p_dei_information20 in varchar2
402 ,p_dei_information21 in varchar2
403 ,p_dei_information22 in varchar2
404 ,p_dei_information23 in varchar2
405 ,p_dei_information24 in varchar2
406 ,p_dei_information25 in varchar2
407 ,p_dei_information26 in varchar2
408 ,p_dei_information27 in varchar2
409 ,p_dei_information28 in varchar2
410 ,p_dei_information29 in varchar2
411 ,p_dei_information30 in varchar2
412 ,p_request_id in number
413 ,p_program_application_id in number
414 ,p_program_id in number
415 ,p_program_update_date in date
416 ,p_object_version_number in number
417 )
418 Return g_rec_type is
419 --
420 l_rec g_rec_type;
421 --
422 Begin
423 --
424 -- Convert arguments into local l_rec structure.
425 --
426 l_rec.document_extra_info_id := p_document_extra_info_id;
427 l_rec.person_id := p_person_id;
428 l_rec.document_type_id := p_document_type_id;
429 l_rec.document_number := p_document_number;
430 l_rec.date_from := p_date_from;
431 l_rec.date_to := p_date_to;
432 l_rec.issued_by := p_issued_by;
433 l_rec.issued_at := p_issued_at;
434 l_rec.issued_date := p_issued_date;
435 l_rec.issuing_authority := p_issuing_authority;
436 l_rec.verified_by := p_verified_by;
437 l_rec.verified_date := p_verified_date;
438 l_rec.related_object_name := p_related_object_name;
439 l_rec.related_object_id_col := p_related_object_id_col;
440 l_rec.related_object_id := p_related_object_id;
441 l_rec.dei_attribute_category := p_dei_attribute_category;
442 l_rec.dei_attribute1 := p_dei_attribute1;
443 l_rec.dei_attribute2 := p_dei_attribute2;
444 l_rec.dei_attribute3 := p_dei_attribute3;
445 l_rec.dei_attribute4 := p_dei_attribute4;
446 l_rec.dei_attribute5 := p_dei_attribute5;
447 l_rec.dei_attribute6 := p_dei_attribute6;
448 l_rec.dei_attribute7 := p_dei_attribute7;
449 l_rec.dei_attribute8 := p_dei_attribute8;
450 l_rec.dei_attribute9 := p_dei_attribute9;
451 l_rec.dei_attribute10 := p_dei_attribute10;
452 l_rec.dei_attribute11 := p_dei_attribute11;
453 l_rec.dei_attribute12 := p_dei_attribute12;
454 l_rec.dei_attribute13 := p_dei_attribute13;
455 l_rec.dei_attribute14 := p_dei_attribute14;
456 l_rec.dei_attribute15 := p_dei_attribute15;
457 l_rec.dei_attribute16 := p_dei_attribute16;
458 l_rec.dei_attribute17 := p_dei_attribute17;
459 l_rec.dei_attribute18 := p_dei_attribute18;
460 l_rec.dei_attribute19 := p_dei_attribute19;
461 l_rec.dei_attribute20 := p_dei_attribute20;
462 l_rec.dei_attribute21 := p_dei_attribute21;
463 l_rec.dei_attribute22 := p_dei_attribute22;
464 l_rec.dei_attribute23 := p_dei_attribute23;
465 l_rec.dei_attribute24 := p_dei_attribute24;
466 l_rec.dei_attribute25 := p_dei_attribute25;
467 l_rec.dei_attribute26 := p_dei_attribute26;
468 l_rec.dei_attribute27 := p_dei_attribute27;
469 l_rec.dei_attribute28 := p_dei_attribute28;
470 l_rec.dei_attribute29 := p_dei_attribute29;
471 l_rec.dei_attribute30 := p_dei_attribute30;
472 l_rec.dei_information_category := p_dei_information_category;
473 l_rec.dei_information1 := p_dei_information1;
474 l_rec.dei_information2 := p_dei_information2;
475 l_rec.dei_information3 := p_dei_information3;
476 l_rec.dei_information4 := p_dei_information4;
477 l_rec.dei_information5 := p_dei_information5;
478 l_rec.dei_information6 := p_dei_information6;
479 l_rec.dei_information7 := p_dei_information7;
480 l_rec.dei_information8 := p_dei_information8;
481 l_rec.dei_information9 := p_dei_information9;
482 l_rec.dei_information10 := p_dei_information10;
483 l_rec.dei_information11 := p_dei_information11;
484 l_rec.dei_information12 := p_dei_information12;
485 l_rec.dei_information13 := p_dei_information13;
486 l_rec.dei_information14 := p_dei_information14;
487 l_rec.dei_information15 := p_dei_information15;
488 l_rec.dei_information16 := p_dei_information16;
489 l_rec.dei_information17 := p_dei_information17;
490 l_rec.dei_information18 := p_dei_information18;
491 l_rec.dei_information19 := p_dei_information19;
492 l_rec.dei_information20 := p_dei_information20;
493 l_rec.dei_information21 := p_dei_information21;
494 l_rec.dei_information22 := p_dei_information22;
495 l_rec.dei_information23 := p_dei_information23;
496 l_rec.dei_information24 := p_dei_information24;
497 l_rec.dei_information25 := p_dei_information25;
498 l_rec.dei_information26 := p_dei_information26;
499 l_rec.dei_information27 := p_dei_information27;
500 l_rec.dei_information28 := p_dei_information28;
501 l_rec.dei_information29 := p_dei_information29;
502 l_rec.dei_information30 := p_dei_information30;
503 l_rec.request_id := p_request_id;
504 l_rec.program_application_id := p_program_application_id;
505 l_rec.program_id := p_program_id;
506 l_rec.program_update_date := p_program_update_date;
507 l_rec.object_version_number := p_object_version_number;
508 --
509 -- Return the plsql record structure.
510 --
511 Return(l_rec);
512 --
513 End convert_args;
514 --
515 end hr_dei_shd;