[Home] [Help]
PACKAGE BODY: APPS.IRC_IPC_SHD
Source
1 Package Body irc_ipc_shd as
2 /* $Header: iripcrhi.pkb 120.0 2005/07/26 15:08:54 mbocutt noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' irc_ipc_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 = 'IRC_POSTING_CONTENTS_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_posting_content_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 posting_content_id
61 ,display_manager_info
62 ,display_recruiter_info
63 ,attribute_category
64 ,attribute1
65 ,attribute2
66 ,attribute3
67 ,attribute4
68 ,attribute5
69 ,attribute6
70 ,attribute7
71 ,attribute8
72 ,attribute9
73 ,attribute10
74 ,attribute11
75 ,attribute12
76 ,attribute13
77 ,attribute14
78 ,attribute15
79 ,attribute16
80 ,attribute17
81 ,attribute18
82 ,attribute19
83 ,attribute20
84 ,attribute21
85 ,attribute22
86 ,attribute23
87 ,attribute24
88 ,attribute25
89 ,attribute26
90 ,attribute27
91 ,attribute28
92 ,attribute29
93 ,attribute30
94 ,ipc_information_category
95 ,ipc_information1
96 ,ipc_information2
97 ,ipc_information3
98 ,ipc_information4
99 ,ipc_information5
100 ,ipc_information6
101 ,ipc_information7
102 ,ipc_information8
103 ,ipc_information9
104 ,ipc_information10
105 ,ipc_information11
106 ,ipc_information12
107 ,ipc_information13
108 ,ipc_information14
109 ,ipc_information15
110 ,ipc_information16
111 ,ipc_information17
112 ,ipc_information18
113 ,ipc_information19
114 ,ipc_information20
115 ,ipc_information21
116 ,ipc_information22
117 ,ipc_information23
118 ,ipc_information24
119 ,ipc_information25
120 ,ipc_information26
121 ,ipc_information27
122 ,ipc_information28
123 ,ipc_information29
124 ,ipc_information30
125 ,object_version_number
126 ,date_approved
127 ,recruiter_full_name
128 ,recruiter_email
129 ,recruiter_work_telephone
130 ,manager_full_name
131 ,manager_email
132 ,manager_work_telephone
133 from irc_posting_contents
134 where posting_content_id = p_posting_content_id;
135 --
136 l_fct_ret boolean;
137 --
138 Begin
139 --
140 If (p_posting_content_id is null and
141 p_object_version_number is null
142 ) Then
143 --
144 -- One of the primary key arguments is null therefore we must
145 -- set the returning function value to false
146 --
147 l_fct_ret := false;
148 Else
149 If (p_posting_content_id
150 = irc_ipc_shd.g_old_rec.posting_content_id and
151 p_object_version_number
152 = irc_ipc_shd.g_old_rec.object_version_number
153 ) Then
154 --
155 -- The g_old_rec is current therefore we must
156 -- set the returning function to true
157 --
158 l_fct_ret := true;
159 Else
160 --
161 -- Select the current row into g_old_rec
162 --
163 Open C_Sel1;
164 Fetch C_Sel1 Into irc_ipc_shd.g_old_rec;
165 If C_Sel1%notfound Then
166 Close C_Sel1;
167 --
168 -- The primary key is invalid therefore we must error
169 --
170 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
171 fnd_message.raise_error;
172 End If;
173 Close C_Sel1;
174 If (p_object_version_number
175 <> irc_ipc_shd.g_old_rec.object_version_number) Then
176 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
177 fnd_message.raise_error;
178 End If;
179 l_fct_ret := true;
180 End If;
181 End If;
182 Return (l_fct_ret);
183 --
184 End api_updating;
185 --
186 -- ----------------------------------------------------------------------------
187 -- |---------------------------------< lck >----------------------------------|
188 -- ----------------------------------------------------------------------------
189 Procedure lck
190 (p_posting_content_id in number
191 ,p_object_version_number in number
192 ) is
193 --
194 -- Cursor selects the 'current' row from the HR Schema
195 --
196 Cursor C_Sel1 is
197 select
198 posting_content_id
199 ,display_manager_info
200 ,display_recruiter_info
201 ,attribute_category
202 ,attribute1
203 ,attribute2
204 ,attribute3
205 ,attribute4
206 ,attribute5
207 ,attribute6
208 ,attribute7
209 ,attribute8
210 ,attribute9
211 ,attribute10
212 ,attribute11
213 ,attribute12
214 ,attribute13
215 ,attribute14
216 ,attribute15
217 ,attribute16
218 ,attribute17
219 ,attribute18
220 ,attribute19
221 ,attribute20
222 ,attribute21
223 ,attribute22
224 ,attribute23
225 ,attribute24
226 ,attribute25
227 ,attribute26
228 ,attribute27
229 ,attribute28
230 ,attribute29
231 ,attribute30
232 ,ipc_information_category
233 ,ipc_information1
234 ,ipc_information2
235 ,ipc_information3
236 ,ipc_information4
237 ,ipc_information5
238 ,ipc_information6
239 ,ipc_information7
240 ,ipc_information8
241 ,ipc_information9
242 ,ipc_information10
243 ,ipc_information11
244 ,ipc_information12
245 ,ipc_information13
246 ,ipc_information14
247 ,ipc_information15
248 ,ipc_information16
249 ,ipc_information17
250 ,ipc_information18
251 ,ipc_information19
252 ,ipc_information20
253 ,ipc_information21
254 ,ipc_information22
255 ,ipc_information23
256 ,ipc_information24
257 ,ipc_information25
258 ,ipc_information26
259 ,ipc_information27
260 ,ipc_information28
261 ,ipc_information29
262 ,ipc_information30
263 ,object_version_number
264 ,date_approved
265 ,recruiter_full_name
266 ,recruiter_email
267 ,recruiter_work_telephone
268 ,manager_full_name
269 ,manager_email
270 ,manager_work_telephone
271 from irc_posting_contents
272 where posting_content_id = p_posting_content_id
273 for update nowait;
274 --
275 l_proc varchar2(72) := g_package||'lck';
276 --
277 Begin
278 hr_utility.set_location('Entering:'||l_proc, 5);
279 --
280 hr_api.mandatory_arg_error
281 (p_api_name => l_proc
282 ,p_argument => 'POSTING_CONTENT_ID'
283 ,p_argument_value => p_posting_content_id
284 );
285 hr_utility.set_location(l_proc,6);
286 hr_api.mandatory_arg_error
287 (p_api_name => l_proc
288 ,p_argument => 'OBJECT_VERSION_NUMBER'
289 ,p_argument_value => p_object_version_number
290 );
291 --
292 Open C_Sel1;
293 Fetch C_Sel1 Into irc_ipc_shd.g_old_rec;
294 If C_Sel1%notfound then
295 Close C_Sel1;
296 --
297 -- The primary key is invalid therefore we must error
298 --
299 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
300 fnd_message.raise_error;
301 End If;
302 Close C_Sel1;
303 If (p_object_version_number
304 <> irc_ipc_shd.g_old_rec.object_version_number) Then
305 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
306 fnd_message.raise_error;
307 End If;
308 --
309 hr_utility.set_location(' Leaving:'||l_proc, 10);
310 --
311 -- We need to trap the ORA LOCK exception
312 --
313 Exception
314 When HR_Api.Object_Locked then
315 --
316 -- The object is locked therefore we need to supply a meaningful
317 -- error message.
318 --
319 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
320 fnd_message.set_token('TABLE_NAME', 'irc_posting_contents');
321 fnd_message.raise_error;
322 End lck;
323 --
324 -- ----------------------------------------------------------------------------
325 -- |-----------------------------< convert_args >-----------------------------|
326 -- ----------------------------------------------------------------------------
327 Function convert_args
328 (p_posting_content_id in number
329 ,p_display_manager_info in varchar2
330 ,p_display_recruiter_info in varchar2
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_attribute21 in varchar2
353 ,p_attribute22 in varchar2
354 ,p_attribute23 in varchar2
355 ,p_attribute24 in varchar2
356 ,p_attribute25 in varchar2
357 ,p_attribute26 in varchar2
358 ,p_attribute27 in varchar2
359 ,p_attribute28 in varchar2
360 ,p_attribute29 in varchar2
361 ,p_attribute30 in varchar2
362 ,p_ipc_information_category in varchar2
363 ,p_ipc_information1 in varchar2
364 ,p_ipc_information2 in varchar2
365 ,p_ipc_information3 in varchar2
366 ,p_ipc_information4 in varchar2
367 ,p_ipc_information5 in varchar2
368 ,p_ipc_information6 in varchar2
369 ,p_ipc_information7 in varchar2
370 ,p_ipc_information8 in varchar2
371 ,p_ipc_information9 in varchar2
372 ,p_ipc_information10 in varchar2
373 ,p_ipc_information11 in varchar2
374 ,p_ipc_information12 in varchar2
375 ,p_ipc_information13 in varchar2
376 ,p_ipc_information14 in varchar2
377 ,p_ipc_information15 in varchar2
378 ,p_ipc_information16 in varchar2
379 ,p_ipc_information17 in varchar2
380 ,p_ipc_information18 in varchar2
381 ,p_ipc_information19 in varchar2
382 ,p_ipc_information20 in varchar2
383 ,p_ipc_information21 in varchar2
384 ,p_ipc_information22 in varchar2
385 ,p_ipc_information23 in varchar2
386 ,p_ipc_information24 in varchar2
387 ,p_ipc_information25 in varchar2
388 ,p_ipc_information26 in varchar2
389 ,p_ipc_information27 in varchar2
390 ,p_ipc_information28 in varchar2
391 ,p_ipc_information29 in varchar2
392 ,p_ipc_information30 in varchar2
393 ,p_object_version_number in number
394 ,p_date_approved in date
395 ,p_recruiter_full_name in varchar2
396 ,p_recruiter_email in varchar2
397 ,p_recruiter_work_telephone in varchar2
398 ,p_manager_full_name in varchar2
399 ,p_manager_email in varchar2
400 ,p_manager_work_telephone in varchar2
401 )
402 Return g_rec_type is
403 --
404 l_rec g_rec_type;
405 --
406 Begin
407 --
408 -- Convert arguments into local l_rec structure.
409 --
410 l_rec.posting_content_id := p_posting_content_id;
411 l_rec.display_manager_info := p_display_manager_info;
412 l_rec.display_recruiter_info := p_display_recruiter_info;
413 l_rec.attribute_category := p_attribute_category;
414 l_rec.attribute1 := p_attribute1;
415 l_rec.attribute2 := p_attribute2;
416 l_rec.attribute3 := p_attribute3;
417 l_rec.attribute4 := p_attribute4;
418 l_rec.attribute5 := p_attribute5;
419 l_rec.attribute6 := p_attribute6;
420 l_rec.attribute7 := p_attribute7;
421 l_rec.attribute8 := p_attribute8;
422 l_rec.attribute9 := p_attribute9;
423 l_rec.attribute10 := p_attribute10;
424 l_rec.attribute11 := p_attribute11;
425 l_rec.attribute12 := p_attribute12;
426 l_rec.attribute13 := p_attribute13;
427 l_rec.attribute14 := p_attribute14;
428 l_rec.attribute15 := p_attribute15;
429 l_rec.attribute16 := p_attribute16;
430 l_rec.attribute17 := p_attribute17;
431 l_rec.attribute18 := p_attribute18;
432 l_rec.attribute19 := p_attribute19;
433 l_rec.attribute20 := p_attribute20;
434 l_rec.attribute21 := p_attribute21;
435 l_rec.attribute22 := p_attribute22;
436 l_rec.attribute23 := p_attribute23;
437 l_rec.attribute24 := p_attribute24;
438 l_rec.attribute25 := p_attribute25;
439 l_rec.attribute26 := p_attribute26;
440 l_rec.attribute27 := p_attribute27;
441 l_rec.attribute28 := p_attribute28;
442 l_rec.attribute29 := p_attribute29;
443 l_rec.attribute30 := p_attribute30;
444 l_rec.ipc_information_category := p_ipc_information_category;
445 l_rec.ipc_information1 := p_ipc_information1;
446 l_rec.ipc_information2 := p_ipc_information2;
447 l_rec.ipc_information3 := p_ipc_information3;
448 l_rec.ipc_information4 := p_ipc_information4;
449 l_rec.ipc_information5 := p_ipc_information5;
450 l_rec.ipc_information6 := p_ipc_information6;
451 l_rec.ipc_information7 := p_ipc_information7;
452 l_rec.ipc_information8 := p_ipc_information8;
453 l_rec.ipc_information9 := p_ipc_information9;
454 l_rec.ipc_information10 := p_ipc_information10;
455 l_rec.ipc_information11 := p_ipc_information11;
456 l_rec.ipc_information12 := p_ipc_information12;
457 l_rec.ipc_information13 := p_ipc_information13;
458 l_rec.ipc_information14 := p_ipc_information14;
459 l_rec.ipc_information15 := p_ipc_information15;
460 l_rec.ipc_information16 := p_ipc_information16;
461 l_rec.ipc_information17 := p_ipc_information17;
462 l_rec.ipc_information18 := p_ipc_information18;
463 l_rec.ipc_information19 := p_ipc_information19;
464 l_rec.ipc_information20 := p_ipc_information20;
465 l_rec.ipc_information21 := p_ipc_information21;
466 l_rec.ipc_information22 := p_ipc_information22;
467 l_rec.ipc_information23 := p_ipc_information23;
468 l_rec.ipc_information24 := p_ipc_information24;
469 l_rec.ipc_information25 := p_ipc_information25;
470 l_rec.ipc_information26 := p_ipc_information26;
471 l_rec.ipc_information27 := p_ipc_information27;
472 l_rec.ipc_information28 := p_ipc_information28;
473 l_rec.ipc_information29 := p_ipc_information29;
474 l_rec.ipc_information30 := p_ipc_information30;
475 l_rec.object_version_number := p_object_version_number;
476 l_rec.date_approved := p_date_approved;
477 l_rec.recruiter_full_name := p_recruiter_full_name;
478 l_rec.recruiter_email := p_recruiter_email;
479 l_rec.recruiter_work_telephone := p_recruiter_work_telephone;
480 l_rec.manager_full_name := p_manager_full_name;
481 l_rec.manager_email := p_manager_email;
482 l_rec.manager_work_telephone := p_manager_work_telephone ;
483 --
484 -- Return the plsql record structure.
485 --
486 Return(l_rec);
487 --
488 End convert_args;
489 --
490 end irc_ipc_shd;