DBA Data[Home] [Help]

PACKAGE BODY: APPS.HR_LEI_SHD

Source


1 Package Body hr_lei_shd as
2 /* $Header: hrleirhi.pkb 120.0.12000000.2 2007/08/13 08:41:45 ghshanka ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33)	:= '  hr_lei_shd.';  -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< constraint_error >---------------------------|
12 -- ----------------------------------------------------------------------------
13 Procedure constraint_error
14             (p_constraint_name in all_constraints.constraint_name%TYPE) Is
15 --
16   l_proc 	varchar2(72) := g_package||'constraint_error';
17 --
18 Begin
19   hr_utility.set_location('Entering:'||l_proc, 5);
20   --
21   If (p_constraint_name = 'HR_LOCATION_EXTRA_INFO_FK1') Then
22     hr_utility.set_message(800, 'HR_INV_INFO_TYPE');
23     hr_utility.raise_error;
24   ElsIf (p_constraint_name = 'HR_LOCATION_EXTRA_INFO_FK2') Then
25     hr_utility.set_message(800, 'HR_INV_LOCATION_ID');
26     hr_utility.raise_error;
27   ElsIf (p_constraint_name = 'HR_LOCATION_EXTRA_INFO_PK') Then
28     hr_utility.set_message(800, 'HR_ALL_PROCEDURE_FAIL');
29     hr_utility.set_message_token('PROCEDURE', l_proc);
30     hr_utility.set_message_token('STEP','15');
31     hr_utility.raise_error;
32   Else
33     hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
34     hr_utility.set_message_token('PROCEDURE', l_proc);
35     hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
36     hr_utility.raise_error;
37   End If;
38   --
39   hr_utility.set_location(' Leaving:'||l_proc, 10);
40 End constraint_error;
41 --
42 -- ----------------------------------------------------------------------------
43 -- |-----------------------------< api_updating >-----------------------------|
44 -- ----------------------------------------------------------------------------
45 Function api_updating
46   (
47   p_location_extra_info_id             in number,
48   p_object_version_number              in number
49   )      Return Boolean Is
50 --
51   --
52   -- Cursor selects the 'current' row from the HR Schema
53   --
54   Cursor C_Sel1 is
55     select
56 	location_extra_info_id,
57 	information_type,
58 	location_id,
59 	request_id,
60 	program_application_id,
61 	program_id,
62 	program_update_date,
63 	lei_attribute_category,
64 	lei_attribute1,
65 	lei_attribute2,
66 	lei_attribute3,
67 	lei_attribute4,
68 	lei_attribute5,
69 	lei_attribute6,
70 	lei_attribute7,
71 	lei_attribute8,
72 	lei_attribute9,
73 	lei_attribute10,
74 	lei_attribute11,
75 	lei_attribute12,
76 	lei_attribute13,
77 	lei_attribute14,
78 	lei_attribute15,
79 	lei_attribute16,
80 	lei_attribute17,
81 	lei_attribute18,
82 	lei_attribute19,
83 	lei_attribute20,
84 	lei_information_category,
85 	lei_information1,
86 	lei_information2,
87 	lei_information3,
88 	lei_information4,
89 	lei_information5,
90 	lei_information6,
91 	lei_information7,
92 	lei_information8,
93 	lei_information9,
94 	lei_information10,
95 	lei_information11,
96 	lei_information12,
97 	lei_information13,
98 	lei_information14,
99 	lei_information15,
100 	lei_information16,
101 	lei_information17,
102 	lei_information18,
103 	lei_information19,
104 	lei_information20,
105 	lei_information21,
106 	lei_information22,
107 	lei_information23,
108 	lei_information24,
109 	lei_information25,
110 	lei_information26,
111 	lei_information27,
112 	lei_information28,
113 	lei_information29,
114 	lei_information30,
115 	object_version_number
116     from	hr_location_extra_info
117     where	location_extra_info_id = p_location_extra_info_id;
118 --
119   l_proc	varchar2(72)	:= g_package||'api_updating';
120   l_fct_ret	boolean;
121 --
122 Begin
123   hr_utility.set_location('Entering:'||l_proc, 5);
124   --
125   If (
126 	p_location_extra_info_id is null and
127 	p_object_version_number is null
128      ) Then
129     --
130     -- One of the primary key arguments is null therefore we must
131     -- set the returning function value to false
132     --
133     l_fct_ret := false;
134   Else
135     If (
136 	p_location_extra_info_id = g_old_rec.location_extra_info_id and
137 	p_object_version_number = g_old_rec.object_version_number
138        ) Then
139       hr_utility.set_location(l_proc, 10);
140       --
141       -- The g_old_rec is current therefore we must
142       -- set the returning function to true
143       --
144       l_fct_ret := true;
145     Else
146       --
147       -- Select the current row into g_old_rec
148       --
149       Open C_Sel1;
150       Fetch C_Sel1 Into g_old_rec;
151       If C_Sel1%notfound Then
152         Close C_Sel1;
153         --
154         -- The primary key is invalid therefore we must error
155         --
156         hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
157         hr_utility.raise_error;
158       End If;
159       Close C_Sel1;
160       If (p_object_version_number <> g_old_rec.object_version_number) Then
161         hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
162         hr_utility.raise_error;
163       End If;
164       hr_utility.set_location(l_proc, 15);
165       l_fct_ret := true;
166     End If;
167   End If;
168   hr_utility.set_location(' Leaving:'||l_proc, 20);
169   Return (l_fct_ret);
170 --
171 End api_updating;
172 --
173 -- ----------------------------------------------------------------------------
174 -- |---------------------------------< lck >----------------------------------|
175 -- ----------------------------------------------------------------------------
176 Procedure lck
177   (
178   p_location_extra_info_id             in number,
179   p_object_version_number              in number
180   ) is
181 --
182 -- Cursor selects the 'current' row from the HR Schema
183 --
184   Cursor C_Sel1 is
185     select
186 	location_extra_info_id,
187 	information_type,
188 	location_id,
189 	request_id,
190 	program_application_id,
191 	program_id,
192 	program_update_date,
193 	lei_attribute_category,
194 	lei_attribute1,
195 	lei_attribute2,
196 	lei_attribute3,
197 	lei_attribute4,
198 	lei_attribute5,
199 	lei_attribute6,
200 	lei_attribute7,
201 	lei_attribute8,
202 	lei_attribute9,
203 	lei_attribute10,
204 	lei_attribute11,
205 	lei_attribute12,
206 	lei_attribute13,
207 	lei_attribute14,
208 	lei_attribute15,
209 	lei_attribute16,
210 	lei_attribute17,
211 	lei_attribute18,
212 	lei_attribute19,
213 	lei_attribute20,
214 	lei_information_category,
215 	lei_information1,
216 	lei_information2,
217 	lei_information3,
218 	lei_information4,
219 	lei_information5,
220 	lei_information6,
221 	lei_information7,
222 	lei_information8,
223 	lei_information9,
224 	lei_information10,
225 	lei_information11,
226 	lei_information12,
227 	lei_information13,
228 	lei_information14,
229 	lei_information15,
230 	lei_information16,
231 	lei_information17,
232 	lei_information18,
233 	lei_information19,
234 	lei_information20,
235 	lei_information21,
236 	lei_information22,
237 	lei_information23,
238 	lei_information24,
239 	lei_information25,
240 	lei_information26,
241 	lei_information27,
242 	lei_information28,
243 	lei_information29,
244 	lei_information30,
245 	object_version_number
246     from	hr_location_extra_info
247     where	location_extra_info_id = p_location_extra_info_id
248     for	update nowait;
249 --
250   l_proc	varchar2(72) := g_package||'lck';
251 --
252 Begin
253   hr_utility.set_location('Entering:'||l_proc, 5);
254   --
255   -- Add any mandatory argument checking here:
256   -- Example:
257   -- hr_api.mandatory_arg_error
258   --   (p_api_name       => l_proc,
259   --    p_argument       => 'object_version_number',
260   --    p_argument_value => p_object_version_number);
261   --
262   Open  C_Sel1;
263   Fetch C_Sel1 Into g_old_rec;
264   If C_Sel1%notfound then
265     Close C_Sel1;
266     --
267     -- The primary key is invalid therefore we must error
268     --
269     hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
270     hr_utility.raise_error;
271   End If;
272   Close C_Sel1;
273   If (p_object_version_number <> g_old_rec.object_version_number) Then
274         hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
275         hr_utility.raise_error;
276       End If;
277 --
278   hr_utility.set_location(' Leaving:'||l_proc, 10);
279 --
280 -- We need to trap the ORA LOCK exception
281 --
282 Exception
283   When HR_Api.Object_Locked then
284     --
285     -- The object is locked therefore we need to supply a meaningful
286     -- error message.
287     --
288     hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
289     hr_utility.set_message_token('TABLE_NAME', 'hr_location_extra_info');
290     hr_utility.raise_error;
291 End lck;
292 --
293 -- ----------------------------------------------------------------------------
294 -- |-----------------------------< convert_args >-----------------------------|
295 -- ----------------------------------------------------------------------------
296 Function convert_args
297 	(
298 	p_location_extra_info_id        in number,
299 	p_information_type              in varchar2,
300 	p_location_id                   in number,
301 	p_request_id                    in number,
302 	p_program_application_id        in number,
303 	p_program_id                    in number,
304 	p_program_update_date           in date,
305 	p_lei_attribute_category        in varchar2,
306 	p_lei_attribute1                in varchar2,
307 	p_lei_attribute2                in varchar2,
308 	p_lei_attribute3                in varchar2,
309 	p_lei_attribute4                in varchar2,
310 	p_lei_attribute5                in varchar2,
311 	p_lei_attribute6                in varchar2,
312 	p_lei_attribute7                in varchar2,
313 	p_lei_attribute8                in varchar2,
314 	p_lei_attribute9                in varchar2,
315 	p_lei_attribute10               in varchar2,
316 	p_lei_attribute11               in varchar2,
317 	p_lei_attribute12               in varchar2,
318 	p_lei_attribute13               in varchar2,
319 	p_lei_attribute14               in varchar2,
320 	p_lei_attribute15               in varchar2,
321 	p_lei_attribute16               in varchar2,
322 	p_lei_attribute17               in varchar2,
323 	p_lei_attribute18               in varchar2,
324 	p_lei_attribute19               in varchar2,
325 	p_lei_attribute20               in varchar2,
326 	p_lei_information_category      in varchar2,
327 	p_lei_information1              in varchar2,
328 	p_lei_information2              in varchar2,
329 	p_lei_information3              in varchar2,
330 	p_lei_information4              in varchar2,
331 	p_lei_information5              in varchar2,
332 	p_lei_information6              in varchar2,
333 	p_lei_information7              in varchar2,
334 	p_lei_information8              in varchar2,
335 	p_lei_information9              in varchar2,
336 	p_lei_information10             in varchar2,
337 	p_lei_information11             in varchar2,
338 	p_lei_information12             in varchar2,
339 	p_lei_information13             in varchar2,
340 	p_lei_information14             in varchar2,
341 	p_lei_information15             in varchar2,
342 	p_lei_information16             in varchar2,
343 	p_lei_information17             in varchar2,
344 	p_lei_information18             in varchar2,
345 	p_lei_information19             in varchar2,
346 	p_lei_information20             in varchar2,
347 	p_lei_information21             in varchar2,
348 	p_lei_information22             in varchar2,
349 	p_lei_information23             in varchar2,
350 	p_lei_information24             in varchar2,
351 	p_lei_information25             in varchar2,
352 	p_lei_information26             in varchar2,
353 	p_lei_information27             in varchar2,
354 	p_lei_information28             in varchar2,
355 	p_lei_information29             in varchar2,
356 	p_lei_information30             in varchar2,
357 	p_object_version_number         in number
358 	)
359 	Return g_rec_type is
360 --
361   l_rec	  g_rec_type;
362   l_proc  varchar2(72) := g_package||'convert_args';
363 --
364 Begin
365   --
366   hr_utility.set_location('Entering:'||l_proc, 5);
367   --
368   -- Convert arguments into local l_rec structure.
369   --
370   l_rec.location_extra_info_id           := p_location_extra_info_id;
371   l_rec.information_type                 := p_information_type;
372   l_rec.location_id                      := p_location_id;
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.lei_attribute_category           := p_lei_attribute_category;
378   l_rec.lei_attribute1                   := p_lei_attribute1;
379   l_rec.lei_attribute2                   := p_lei_attribute2;
380   l_rec.lei_attribute3                   := p_lei_attribute3;
381   l_rec.lei_attribute4                   := p_lei_attribute4;
382   l_rec.lei_attribute5                   := p_lei_attribute5;
383   l_rec.lei_attribute6                   := p_lei_attribute6;
384   l_rec.lei_attribute7                   := p_lei_attribute7;
385   l_rec.lei_attribute8                   := p_lei_attribute8;
386   l_rec.lei_attribute9                   := p_lei_attribute9;
387   l_rec.lei_attribute10                  := p_lei_attribute10;
388   l_rec.lei_attribute11                  := p_lei_attribute11;
389   l_rec.lei_attribute12                  := p_lei_attribute12;
390   l_rec.lei_attribute13                  := p_lei_attribute13;
391   l_rec.lei_attribute14                  := p_lei_attribute14;
392   l_rec.lei_attribute15                  := p_lei_attribute15;
393   l_rec.lei_attribute16                  := p_lei_attribute16;
394   l_rec.lei_attribute17                  := p_lei_attribute17;
395   l_rec.lei_attribute18                  := p_lei_attribute18;
396   l_rec.lei_attribute19                  := p_lei_attribute19;
397   l_rec.lei_attribute20                  := p_lei_attribute20;
398   l_rec.lei_information_category         := p_lei_information_category;
399   l_rec.lei_information1                 := p_lei_information1;
400   l_rec.lei_information2                 := p_lei_information2;
401   l_rec.lei_information3                 := p_lei_information3;
402   l_rec.lei_information4                 := p_lei_information4;
403   l_rec.lei_information5                 := p_lei_information5;
404   l_rec.lei_information6                 := p_lei_information6;
405   l_rec.lei_information7                 := p_lei_information7;
406   l_rec.lei_information8                 := p_lei_information8;
407   l_rec.lei_information9                 := p_lei_information9;
408   l_rec.lei_information10                := p_lei_information10;
409   l_rec.lei_information11                := p_lei_information11;
410   l_rec.lei_information12                := p_lei_information12;
411   l_rec.lei_information13                := p_lei_information13;
412   l_rec.lei_information14                := p_lei_information14;
413   l_rec.lei_information15                := p_lei_information15;
414   l_rec.lei_information16                := p_lei_information16;
415   l_rec.lei_information17                := p_lei_information17;
416   l_rec.lei_information18                := p_lei_information18;
417   l_rec.lei_information19                := p_lei_information19;
418   l_rec.lei_information20                := p_lei_information20;
419   l_rec.lei_information21                := p_lei_information21;
420   l_rec.lei_information22                := p_lei_information22;
421   l_rec.lei_information23                := p_lei_information23;
422   l_rec.lei_information24                := p_lei_information24;
423   l_rec.lei_information25                := p_lei_information25;
424   l_rec.lei_information26                := p_lei_information26;
425   l_rec.lei_information27                := p_lei_information27;
426   l_rec.lei_information28                := p_lei_information28;
427   l_rec.lei_information29                := p_lei_information29;
428   l_rec.lei_information30                := p_lei_information30;
429   l_rec.object_version_number            := p_object_version_number;
430   --
431   -- Return the plsql record structure.
432   --
433   hr_utility.set_location(' Leaving:'||l_proc, 10);
434   Return(l_rec);
435 --
436 End convert_args;
437 --
438 end hr_lei_shd;