[Home] [Help]
PACKAGE BODY: APPS.PAY_EEI_MIG_SHD
Source
1 Package Body pay_eei_mig_shd as
2 /* $Header: pyeeimhi.pkb 120.0 2005/12/16 14:58:55 ndorai noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_eei_mig_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 = 'PAY_ELEMENT_TYPE_EXTRA_INFO_FK') 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 ElsIf (p_constraint_name = 'PAY_ELEMENT_TYPE_EXTRA_INFO_PK') Then
38 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
39 fnd_message.set_token('PROCEDURE', l_proc);
40 fnd_message.set_token('STEP','10');
41 fnd_message.raise_error;
42 Else
43 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
44 fnd_message.set_token('PROCEDURE', l_proc);
45 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
46 fnd_message.raise_error;
47 End If;
48 --
49 End constraint_error;
50 --
51 -- ----------------------------------------------------------------------------
52 -- |-----------------------------< api_updating >-----------------------------|
53 -- ----------------------------------------------------------------------------
54 Function api_updating
55 (p_element_type_extra_info_id in number
56 ,p_object_version_number in number
57 )
58 Return Boolean Is
59 --
60 --
61 -- Cursor selects the 'current' row from the HR Schema
62 --
63 Cursor C_Sel1 is
64 select
65 element_type_extra_info_id
66 ,element_type_id
67 ,information_type
68 ,request_id
69 ,program_application_id
70 ,program_id
71 ,program_update_date
72 ,eei_attribute_category
73 ,eei_attribute1
74 ,eei_attribute2
75 ,eei_attribute3
76 ,eei_attribute4
77 ,eei_attribute5
78 ,eei_attribute6
79 ,eei_attribute7
80 ,eei_attribute8
81 ,eei_attribute9
82 ,eei_attribute10
83 ,eei_attribute11
84 ,eei_attribute12
85 ,eei_attribute13
86 ,eei_attribute14
87 ,eei_attribute15
88 ,eei_attribute16
89 ,eei_attribute17
90 ,eei_attribute18
91 ,eei_attribute19
92 ,eei_attribute20
93 ,eei_information_category
94 ,eei_information1
95 ,eei_information2
96 ,eei_information3
97 ,eei_information4
98 ,eei_information5
99 ,eei_information6
100 ,eei_information7
101 ,eei_information8
102 ,eei_information9
103 ,eei_information10
104 ,eei_information11
105 ,eei_information12
106 ,eei_information13
107 ,eei_information14
108 ,eei_information15
109 ,eei_information16
110 ,eei_information17
111 ,eei_information18
112 ,eei_information19
113 ,eei_information20
114 ,eei_information21
115 ,eei_information22
116 ,eei_information23
117 ,eei_information24
118 ,eei_information25
119 ,eei_information26
120 ,eei_information27
121 ,eei_information28
122 ,eei_information29
123 ,eei_information30
124 ,object_version_number
125 from pay_element_type_extra_info
126 where element_type_extra_info_id = p_element_type_extra_info_id;
127 --
128 l_fct_ret boolean;
129 --
130 Begin
131 --
132 If (p_element_type_extra_info_id is null and
133 p_object_version_number is null
134 ) Then
135 --
136 -- One of the primary key arguments is null therefore we must
137 -- set the returning function value to false
138 --
139 l_fct_ret := false;
140 Else
141 If (p_element_type_extra_info_id
142 = pay_eei_mig_shd.g_old_rec.element_type_extra_info_id and
143 p_object_version_number
144 = pay_eei_mig_shd.g_old_rec.object_version_number
145 ) Then
146 --
147 -- The g_old_rec is current therefore we must
148 -- set the returning function to true
149 --
150 l_fct_ret := true;
151 Else
152 --
153 -- Select the current row into g_old_rec
154 --
155 Open C_Sel1;
156 Fetch C_Sel1 Into pay_eei_mig_shd.g_old_rec;
157 If C_Sel1%notfound Then
158 Close C_Sel1;
159 --
160 -- The primary key is invalid therefore we must error
161 --
162 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
163 fnd_message.raise_error;
164 End If;
165 Close C_Sel1;
166 If (p_object_version_number
167 <> pay_eei_mig_shd.g_old_rec.object_version_number) Then
168 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
169 fnd_message.raise_error;
170 End If;
171 l_fct_ret := true;
172 End If;
173 End If;
174 Return (l_fct_ret);
175 --
176 End api_updating;
177 --
178 -- ----------------------------------------------------------------------------
179 -- |---------------------------------< lck >----------------------------------|
180 -- ----------------------------------------------------------------------------
181 Procedure lck
182 (p_element_type_extra_info_id in number
183 ,p_object_version_number in number
184 ) is
185 --
186 -- Cursor selects the 'current' row from the HR Schema
187 --
188 Cursor C_Sel1 is
189 select
190 element_type_extra_info_id
191 ,element_type_id
192 ,information_type
193 ,request_id
194 ,program_application_id
195 ,program_id
196 ,program_update_date
197 ,eei_attribute_category
198 ,eei_attribute1
199 ,eei_attribute2
200 ,eei_attribute3
201 ,eei_attribute4
202 ,eei_attribute5
203 ,eei_attribute6
204 ,eei_attribute7
205 ,eei_attribute8
206 ,eei_attribute9
207 ,eei_attribute10
208 ,eei_attribute11
209 ,eei_attribute12
210 ,eei_attribute13
211 ,eei_attribute14
212 ,eei_attribute15
213 ,eei_attribute16
214 ,eei_attribute17
215 ,eei_attribute18
216 ,eei_attribute19
217 ,eei_attribute20
218 ,eei_information_category
219 ,eei_information1
220 ,eei_information2
221 ,eei_information3
222 ,eei_information4
223 ,eei_information5
224 ,eei_information6
225 ,eei_information7
226 ,eei_information8
227 ,eei_information9
228 ,eei_information10
229 ,eei_information11
230 ,eei_information12
231 ,eei_information13
232 ,eei_information14
233 ,eei_information15
234 ,eei_information16
235 ,eei_information17
236 ,eei_information18
237 ,eei_information19
238 ,eei_information20
239 ,eei_information21
240 ,eei_information22
241 ,eei_information23
242 ,eei_information24
243 ,eei_information25
244 ,eei_information26
245 ,eei_information27
246 ,eei_information28
247 ,eei_information29
248 ,eei_information30
249 ,object_version_number
250 from pay_element_type_extra_info
251 where element_type_extra_info_id = p_element_type_extra_info_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 => 'ELEMENT_TYPE_EXTRA_INFO_ID'
262 ,p_argument_value => p_element_type_extra_info_id
263 );
264 --
265 Open C_Sel1;
266 Fetch C_Sel1 Into pay_eei_mig_shd.g_old_rec;
267 If C_Sel1%notfound then
268 Close C_Sel1;
269 --
270 -- The primary key is invalid therefore we must error
271 --
272 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
273 fnd_message.raise_error;
274 End If;
275 Close C_Sel1;
276 If (p_object_version_number
277 <> pay_eei_mig_shd.g_old_rec.object_version_number) Then
278 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
279 fnd_message.raise_error;
280 End If;
281 --
282 hr_utility.set_location(' Leaving:'||l_proc, 10);
283 --
284 -- We need to trap the ORA LOCK exception
285 --
286 Exception
287 When HR_Api.Object_Locked then
288 --
289 -- The object is locked therefore we need to supply a meaningful
290 -- error message.
291 --
292 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
293 fnd_message.set_token('TABLE_NAME', 'pay_element_type_extra_info');
294 fnd_message.raise_error;
295 End lck;
296 --
297 -- ----------------------------------------------------------------------------
298 -- |-----------------------------< convert_args >-----------------------------|
299 -- ----------------------------------------------------------------------------
300 Function convert_args
301 (p_element_type_extra_info_id in number
302 ,p_element_type_id in number
303 ,p_information_type in varchar2
304 ,p_request_id in number
305 ,p_program_application_id in number
306 ,p_program_id in number
307 ,p_program_update_date in date
308 ,p_eei_attribute_category in varchar2
309 ,p_eei_attribute1 in varchar2
310 ,p_eei_attribute2 in varchar2
311 ,p_eei_attribute3 in varchar2
312 ,p_eei_attribute4 in varchar2
313 ,p_eei_attribute5 in varchar2
314 ,p_eei_attribute6 in varchar2
315 ,p_eei_attribute7 in varchar2
316 ,p_eei_attribute8 in varchar2
317 ,p_eei_attribute9 in varchar2
318 ,p_eei_attribute10 in varchar2
319 ,p_eei_attribute11 in varchar2
320 ,p_eei_attribute12 in varchar2
321 ,p_eei_attribute13 in varchar2
322 ,p_eei_attribute14 in varchar2
323 ,p_eei_attribute15 in varchar2
324 ,p_eei_attribute16 in varchar2
325 ,p_eei_attribute17 in varchar2
326 ,p_eei_attribute18 in varchar2
327 ,p_eei_attribute19 in varchar2
328 ,p_eei_attribute20 in varchar2
329 ,p_eei_information_category in varchar2
330 ,p_eei_information1 in varchar2
331 ,p_eei_information2 in varchar2
332 ,p_eei_information3 in varchar2
333 ,p_eei_information4 in varchar2
334 ,p_eei_information5 in varchar2
335 ,p_eei_information6 in varchar2
336 ,p_eei_information7 in varchar2
337 ,p_eei_information8 in varchar2
338 ,p_eei_information9 in varchar2
339 ,p_eei_information10 in varchar2
340 ,p_eei_information11 in varchar2
341 ,p_eei_information12 in varchar2
342 ,p_eei_information13 in varchar2
343 ,p_eei_information14 in varchar2
344 ,p_eei_information15 in varchar2
345 ,p_eei_information16 in varchar2
346 ,p_eei_information17 in varchar2
347 ,p_eei_information18 in varchar2
348 ,p_eei_information19 in varchar2
349 ,p_eei_information20 in varchar2
350 ,p_eei_information21 in varchar2
351 ,p_eei_information22 in varchar2
352 ,p_eei_information23 in varchar2
353 ,p_eei_information24 in varchar2
354 ,p_eei_information25 in varchar2
355 ,p_eei_information26 in varchar2
356 ,p_eei_information27 in varchar2
357 ,p_eei_information28 in varchar2
358 ,p_eei_information29 in varchar2
359 ,p_eei_information30 in varchar2
360 ,p_object_version_number in number
361 )
362 Return g_rec_type is
363 --
364 l_rec g_rec_type;
365 --
366 Begin
367 --
368 -- Convert arguments into local l_rec structure.
369 --
370 l_rec.element_type_extra_info_id := p_element_type_extra_info_id;
371 l_rec.element_type_id := p_element_type_id;
372 l_rec.information_type := p_information_type;
373 l_rec.request_id := p_request_id;
374 l_rec.program_application_id := p_program_application_id;
375 l_rec.program_id := p_program_id;
376 l_rec.program_update_date := p_program_update_date;
377 l_rec.eei_attribute_category := p_eei_attribute_category;
378 l_rec.eei_attribute1 := p_eei_attribute1;
379 l_rec.eei_attribute2 := p_eei_attribute2;
380 l_rec.eei_attribute3 := p_eei_attribute3;
381 l_rec.eei_attribute4 := p_eei_attribute4;
382 l_rec.eei_attribute5 := p_eei_attribute5;
383 l_rec.eei_attribute6 := p_eei_attribute6;
384 l_rec.eei_attribute7 := p_eei_attribute7;
385 l_rec.eei_attribute8 := p_eei_attribute8;
386 l_rec.eei_attribute9 := p_eei_attribute9;
387 l_rec.eei_attribute10 := p_eei_attribute10;
388 l_rec.eei_attribute11 := p_eei_attribute11;
389 l_rec.eei_attribute12 := p_eei_attribute12;
390 l_rec.eei_attribute13 := p_eei_attribute13;
391 l_rec.eei_attribute14 := p_eei_attribute14;
392 l_rec.eei_attribute15 := p_eei_attribute15;
393 l_rec.eei_attribute16 := p_eei_attribute16;
394 l_rec.eei_attribute17 := p_eei_attribute17;
395 l_rec.eei_attribute18 := p_eei_attribute18;
396 l_rec.eei_attribute19 := p_eei_attribute19;
397 l_rec.eei_attribute20 := p_eei_attribute20;
398 l_rec.eei_information_category := p_eei_information_category;
399 l_rec.eei_information1 := p_eei_information1;
400 l_rec.eei_information2 := p_eei_information2;
401 l_rec.eei_information3 := p_eei_information3;
402 l_rec.eei_information4 := p_eei_information4;
403 l_rec.eei_information5 := p_eei_information5;
404 l_rec.eei_information6 := p_eei_information6;
405 l_rec.eei_information7 := p_eei_information7;
406 l_rec.eei_information8 := p_eei_information8;
407 l_rec.eei_information9 := p_eei_information9;
408 l_rec.eei_information10 := p_eei_information10;
409 l_rec.eei_information11 := p_eei_information11;
410 l_rec.eei_information12 := p_eei_information12;
411 l_rec.eei_information13 := p_eei_information13;
412 l_rec.eei_information14 := p_eei_information14;
413 l_rec.eei_information15 := p_eei_information15;
414 l_rec.eei_information16 := p_eei_information16;
415 l_rec.eei_information17 := p_eei_information17;
416 l_rec.eei_information18 := p_eei_information18;
417 l_rec.eei_information19 := p_eei_information19;
418 l_rec.eei_information20 := p_eei_information20;
419 l_rec.eei_information21 := p_eei_information21;
420 l_rec.eei_information22 := p_eei_information22;
421 l_rec.eei_information23 := p_eei_information23;
422 l_rec.eei_information24 := p_eei_information24;
423 l_rec.eei_information25 := p_eei_information25;
424 l_rec.eei_information26 := p_eei_information26;
425 l_rec.eei_information27 := p_eei_information27;
426 l_rec.eei_information28 := p_eei_information28;
427 l_rec.eei_information29 := p_eei_information29;
428 l_rec.eei_information30 := p_eei_information30;
429 l_rec.object_version_number := p_object_version_number;
430 --
431 -- Return the plsql record structure.
432 --
433 Return(l_rec);
434 --
435 End convert_args;
436 --
437 end pay_eei_mig_shd;