[Home] [Help]
PACKAGE BODY: APPS.HR_ORD_SHD
Source
1 Package Body hr_ord_shd as
2 /* $Header: hrordrhi.pkb 115.7 2002/12/04 06:20:03 hjonnala noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hr_ord_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_DE_ORGANIZATION_LINKS_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','15');
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_organization_link_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 organization_link_id
50 ,parent_organization_id
51 ,child_organization_id
52 ,business_group_id
53 ,org_link_information_category
54 ,org_link_information1
55 ,org_link_information2
56 ,org_link_information3
57 ,org_link_information4
58 ,org_link_information5
59 ,org_link_information6
60 ,org_link_information7
61 ,org_link_information8
62 ,org_link_information9
63 ,org_link_information10
64 ,org_link_information11
65 ,org_link_information12
66 ,org_link_information13
67 ,org_link_information14
68 ,org_link_information15
69 ,org_link_information16
70 ,org_link_information17
71 ,org_link_information18
72 ,org_link_information19
73 ,org_link_information20
74 ,org_link_information21
75 ,org_link_information22
76 ,org_link_information23
77 ,org_link_information24
78 ,org_link_information25
79 ,org_link_information26
80 ,org_link_information27
81 ,org_link_information28
82 ,org_link_information29
83 ,org_link_information30
84 ,attribute_category
85 ,attribute1
86 ,attribute2
87 ,attribute3
88 ,attribute4
89 ,attribute5
90 ,attribute6
91 ,attribute7
92 ,attribute8
93 ,attribute9
94 ,attribute10
95 ,attribute11
96 ,attribute12
97 ,attribute13
98 ,attribute14
99 ,attribute15
100 ,attribute16
101 ,attribute17
102 ,attribute18
103 ,attribute19
104 ,attribute20
105 ,attribute21
106 ,attribute22
107 ,attribute23
108 ,attribute24
109 ,attribute25
110 ,attribute26
111 ,attribute27
112 ,attribute28
113 ,attribute29
114 ,attribute30
115 ,object_version_number
116 ,org_link_type
117 from hr_de_organization_links
118 where organization_link_id = p_organization_link_id;
119 --
120 l_fct_ret boolean;
121 --
122 Begin
123 --
124 If (p_organization_link_id is null and
125 p_object_version_number is null
126 ) Then
127 --
128 -- One of the primary key arguments is null therefore we must
129 -- set the returning function value to false
130 --
131 l_fct_ret := false;
132 Else
133 If (p_organization_link_id
134 = hr_ord_shd.g_old_rec.organization_link_id and
135 p_object_version_number
136 = hr_ord_shd.g_old_rec.object_version_number
137 ) Then
138 --
139 -- The g_old_rec is current therefore we must
140 -- set the returning function to true
141 --
142 l_fct_ret := true;
143 Else
144 --
145 -- Select the current row into g_old_rec
146 --
147 Open C_Sel1;
148 Fetch C_Sel1 Into hr_ord_shd.g_old_rec;
149 If C_Sel1%notfound Then
150 Close C_Sel1;
151 --
152 -- The primary key is invalid therefore we must error
153 --
154 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
155 fnd_message.raise_error;
156 End If;
157 Close C_Sel1;
158 If (p_object_version_number
159 <> hr_ord_shd.g_old_rec.object_version_number) Then
160 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
161 fnd_message.raise_error;
162 End If;
163 l_fct_ret := true;
164 End If;
165 End If;
166 Return (l_fct_ret);
167 --
168 End api_updating;
169 --
170 -- ----------------------------------------------------------------------------
171 -- |---------------------------------< lck >----------------------------------|
172 -- ----------------------------------------------------------------------------
173 Procedure lck
174 (p_organization_link_id in number
175 ,p_object_version_number in number
176 ) is
177 --
178 -- Cursor selects the 'current' row from the HR Schema
179 --
180 Cursor C_Sel1 is
181 select
182 organization_link_id
183 ,parent_organization_id
184 ,child_organization_id
185 ,business_group_id
186 ,org_link_information_category
187 ,org_link_information1
188 ,org_link_information2
189 ,org_link_information3
190 ,org_link_information4
191 ,org_link_information5
192 ,org_link_information6
193 ,org_link_information7
194 ,org_link_information8
195 ,org_link_information9
196 ,org_link_information10
197 ,org_link_information11
198 ,org_link_information12
199 ,org_link_information13
200 ,org_link_information14
201 ,org_link_information15
202 ,org_link_information16
203 ,org_link_information17
204 ,org_link_information18
205 ,org_link_information19
206 ,org_link_information20
207 ,org_link_information21
208 ,org_link_information22
209 ,org_link_information23
210 ,org_link_information24
211 ,org_link_information25
212 ,org_link_information26
213 ,org_link_information27
214 ,org_link_information28
215 ,org_link_information29
216 ,org_link_information30
217 ,attribute_category
218 ,attribute1
219 ,attribute2
220 ,attribute3
221 ,attribute4
222 ,attribute5
223 ,attribute6
224 ,attribute7
225 ,attribute8
226 ,attribute9
227 ,attribute10
228 ,attribute11
229 ,attribute12
230 ,attribute13
231 ,attribute14
232 ,attribute15
233 ,attribute16
234 ,attribute17
235 ,attribute18
236 ,attribute19
237 ,attribute20
238 ,attribute21
239 ,attribute22
240 ,attribute23
241 ,attribute24
242 ,attribute25
243 ,attribute26
244 ,attribute27
245 ,attribute28
246 ,attribute29
247 ,attribute30
248 ,object_version_number
249 ,org_link_type
250 from hr_de_organization_links
251 where organization_link_id = p_organization_link_id
252 for update nowait;
253 --
254 l_proc varchar2(72) := g_package||'lck';
255 --
256 Begin
257 hr_utility.set_location('Entering:'||l_proc, 5);
258 --
259 hr_api.mandatory_arg_error
260 (p_api_name => l_proc
261 ,p_argument => 'ORGANIZATION_LINK_ID'
262 ,p_argument_value => p_organization_link_id
263 );
264 hr_utility.set_location(l_proc,6);
265 hr_api.mandatory_arg_error
266 (p_api_name => l_proc
267 ,p_argument => 'OBJECT_VERSION_NUMBER'
268 ,p_argument_value => p_object_version_number
269 );
270 --
271 Open C_Sel1;
272 Fetch C_Sel1 Into hr_ord_shd.g_old_rec;
273 If C_Sel1%notfound then
274 Close C_Sel1;
275 --
276 -- The primary key is invalid therefore we must error
277 --
278 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
279 fnd_message.raise_error;
280 End If;
281 Close C_Sel1;
282 If (p_object_version_number
283 <> hr_ord_shd.g_old_rec.object_version_number) Then
284 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
285 fnd_message.raise_error;
286 End If;
287 --
288 hr_utility.set_location(' Leaving:'||l_proc, 10);
289 --
290 -- We need to trap the ORA LOCK exception
291 --
292 Exception
293 When HR_Api.Object_Locked then
294 --
295 -- The object is locked therefore we need to supply a meaningful
296 -- error message.
297 --
298 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
299 fnd_message.set_token('TABLE_NAME', 'hr_de_organization_links');
300 fnd_message.raise_error;
301 End lck;
302 --
303 -- ----------------------------------------------------------------------------
304 -- |-----------------------------< convert_args >-----------------------------|
305 -- ----------------------------------------------------------------------------
306 Function convert_args
307 (p_organization_link_id in number
308 ,p_parent_organization_id in number
309 ,p_child_organization_id in number
310 ,p_business_group_id in number
311 ,p_org_link_information_categor in varchar2
312 ,p_org_link_information1 in varchar2
313 ,p_org_link_information2 in varchar2
314 ,p_org_link_information3 in varchar2
315 ,p_org_link_information4 in varchar2
316 ,p_org_link_information5 in varchar2
317 ,p_org_link_information6 in varchar2
318 ,p_org_link_information7 in varchar2
319 ,p_org_link_information8 in varchar2
320 ,p_org_link_information9 in varchar2
321 ,p_org_link_information10 in varchar2
322 ,p_org_link_information11 in varchar2
323 ,p_org_link_information12 in varchar2
324 ,p_org_link_information13 in varchar2
325 ,p_org_link_information14 in varchar2
326 ,p_org_link_information15 in varchar2
327 ,p_org_link_information16 in varchar2
328 ,p_org_link_information17 in varchar2
329 ,p_org_link_information18 in varchar2
330 ,p_org_link_information19 in varchar2
331 ,p_org_link_information20 in varchar2
332 ,p_org_link_information21 in varchar2
333 ,p_org_link_information22 in varchar2
334 ,p_org_link_information23 in varchar2
335 ,p_org_link_information24 in varchar2
336 ,p_org_link_information25 in varchar2
337 ,p_org_link_information26 in varchar2
338 ,p_org_link_information27 in varchar2
339 ,p_org_link_information28 in varchar2
340 ,p_org_link_information29 in varchar2
341 ,p_org_link_information30 in varchar2
342 ,p_attribute_category in varchar2
343 ,p_attribute1 in varchar2
344 ,p_attribute2 in varchar2
345 ,p_attribute3 in varchar2
346 ,p_attribute4 in varchar2
347 ,p_attribute5 in varchar2
348 ,p_attribute6 in varchar2
349 ,p_attribute7 in varchar2
350 ,p_attribute8 in varchar2
351 ,p_attribute9 in varchar2
352 ,p_attribute10 in varchar2
353 ,p_attribute11 in varchar2
354 ,p_attribute12 in varchar2
355 ,p_attribute13 in varchar2
356 ,p_attribute14 in varchar2
357 ,p_attribute15 in varchar2
358 ,p_attribute16 in varchar2
359 ,p_attribute17 in varchar2
360 ,p_attribute18 in varchar2
361 ,p_attribute19 in varchar2
362 ,p_attribute20 in varchar2
363 ,p_attribute21 in varchar2
364 ,p_attribute22 in varchar2
365 ,p_attribute23 in varchar2
366 ,p_attribute24 in varchar2
367 ,p_attribute25 in varchar2
368 ,p_attribute26 in varchar2
369 ,p_attribute27 in varchar2
370 ,p_attribute28 in varchar2
371 ,p_attribute29 in varchar2
372 ,p_attribute30 in varchar2
373 ,p_object_version_number in number
374 ,p_org_link_type in varchar2
375 )
376 Return g_rec_type is
377 --
378 l_rec g_rec_type;
379 --
380 Begin
381 --
382 -- Convert arguments into local l_rec structure.
383 --
384 l_rec.organization_link_id := p_organization_link_id;
385 l_rec.parent_organization_id := p_parent_organization_id;
386 l_rec.child_organization_id := p_child_organization_id;
387 l_rec.business_group_id := p_business_group_id;
388 l_rec.org_link_information_category := p_org_link_information_categor;
389 l_rec.org_link_information1 := p_org_link_information1;
390 l_rec.org_link_information2 := p_org_link_information2;
391 l_rec.org_link_information3 := p_org_link_information3;
392 l_rec.org_link_information4 := p_org_link_information4;
393 l_rec.org_link_information5 := p_org_link_information5;
394 l_rec.org_link_information6 := p_org_link_information6;
395 l_rec.org_link_information7 := p_org_link_information7;
396 l_rec.org_link_information8 := p_org_link_information8;
397 l_rec.org_link_information9 := p_org_link_information9;
398 l_rec.org_link_information10 := p_org_link_information10;
399 l_rec.org_link_information11 := p_org_link_information11;
400 l_rec.org_link_information12 := p_org_link_information12;
401 l_rec.org_link_information13 := p_org_link_information13;
402 l_rec.org_link_information14 := p_org_link_information14;
403 l_rec.org_link_information15 := p_org_link_information15;
404 l_rec.org_link_information16 := p_org_link_information16;
405 l_rec.org_link_information17 := p_org_link_information17;
406 l_rec.org_link_information18 := p_org_link_information18;
407 l_rec.org_link_information19 := p_org_link_information19;
408 l_rec.org_link_information20 := p_org_link_information20;
409 l_rec.org_link_information21 := p_org_link_information21;
410 l_rec.org_link_information22 := p_org_link_information22;
411 l_rec.org_link_information23 := p_org_link_information23;
412 l_rec.org_link_information24 := p_org_link_information24;
413 l_rec.org_link_information25 := p_org_link_information25;
414 l_rec.org_link_information26 := p_org_link_information26;
415 l_rec.org_link_information27 := p_org_link_information27;
416 l_rec.org_link_information28 := p_org_link_information28;
417 l_rec.org_link_information29 := p_org_link_information29;
418 l_rec.org_link_information30 := p_org_link_information30;
419 l_rec.attribute_category := p_attribute_category;
420 l_rec.attribute1 := p_attribute1;
421 l_rec.attribute2 := p_attribute2;
422 l_rec.attribute3 := p_attribute3;
423 l_rec.attribute4 := p_attribute4;
424 l_rec.attribute5 := p_attribute5;
425 l_rec.attribute6 := p_attribute6;
426 l_rec.attribute7 := p_attribute7;
427 l_rec.attribute8 := p_attribute8;
428 l_rec.attribute9 := p_attribute9;
429 l_rec.attribute10 := p_attribute10;
430 l_rec.attribute11 := p_attribute11;
431 l_rec.attribute12 := p_attribute12;
432 l_rec.attribute13 := p_attribute13;
433 l_rec.attribute14 := p_attribute14;
434 l_rec.attribute15 := p_attribute15;
435 l_rec.attribute16 := p_attribute16;
436 l_rec.attribute17 := p_attribute17;
437 l_rec.attribute18 := p_attribute18;
438 l_rec.attribute19 := p_attribute19;
439 l_rec.attribute20 := p_attribute20;
440 l_rec.attribute21 := p_attribute21;
441 l_rec.attribute22 := p_attribute22;
442 l_rec.attribute23 := p_attribute23;
443 l_rec.attribute24 := p_attribute24;
444 l_rec.attribute25 := p_attribute25;
445 l_rec.attribute26 := p_attribute26;
446 l_rec.attribute27 := p_attribute27;
447 l_rec.attribute28 := p_attribute28;
448 l_rec.attribute29 := p_attribute29;
449 l_rec.attribute30 := p_attribute30;
450 l_rec.object_version_number := p_object_version_number;
451 l_rec.org_link_type := p_org_link_type;
452 --
453 -- Return the plsql record structure.
454 --
455 Return(l_rec);
456 --
457 End convert_args;
458 --
459 end hr_ord_shd;