[Home] [Help]
PACKAGE BODY: APPS.PQH_PTE_SHD
Source
1 Package Body pqh_pte_shd as
2 /* $Header: pqpterhi.pkb 115.11 2002/12/12 23:13:54 sgoyal noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pqh_pte_shd.'; -- Global package name
9 --
10 --
11 -- ----------------------------------------------------------------------------
12 -- |---------------------------< constraint_error >---------------------------|
13 -- ----------------------------------------------------------------------------
17 l_proc varchar2(72) := g_package||'constraint_error';
14 Procedure constraint_error
15 (p_constraint_name in all_constraints.constraint_name%TYPE) Is
16 --
18 --
19 Begin
20 hr_utility.set_location('Entering:'||l_proc, 5);
21 --
22 If (p_constraint_name = 'PQH_PTX_EXTRA_INFO_FK1') Then
23 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
24 hr_utility.set_message_token('PROCEDURE', l_proc);
25 hr_utility.set_message_token('STEP','5');
26 hr_utility.raise_error;
27 ElsIf (p_constraint_name = 'PQH_PTX_EXTRA_INFO_FK2') Then
28 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29 hr_utility.set_message_token('PROCEDURE', l_proc);
30 hr_utility.set_message_token('STEP','10');
31 hr_utility.raise_error;
32 ElsIf (p_constraint_name = 'PQH_PTX_EXTRA_INFO_PK') Then
33 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34 hr_utility.set_message_token('PROCEDURE', l_proc);
35 hr_utility.set_message_token('STEP','15');
36 hr_utility.raise_error;
37 Else
38 hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
39 hr_utility.set_message_token('PROCEDURE', l_proc);
40 hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
41 hr_utility.raise_error;
42 End If;
43 --
44 hr_utility.set_location(' Leaving:'||l_proc, 10);
45 End constraint_error;
46 --
47 -- ----------------------------------------------------------------------------
48 -- |-----------------------------< api_updating >-----------------------------|
49 -- ----------------------------------------------------------------------------
50 Function api_updating
51 (
52 p_ptx_extra_info_id in number,
53 p_object_version_number in number
54 ) Return Boolean Is
55 --
56 --
57 -- Cursor selects the 'current' row from the HR Schema
58 --
59 Cursor C_Sel1 is
60 select
61 ptx_extra_info_id,
62 information_type,
63 position_transaction_id,
64 position_extra_info_id,
65 information_category,
66 information1,
67 information2,
68 information3,
69 information4,
70 information5,
71 information6,
72 information7,
73 information8,
74 information9,
75 information10,
76 information11,
77 information12,
78 information13,
79 information14,
80 information15,
81 information16,
82 information17,
83 information18,
84 information19,
85 information20,
86 information21,
87 information22,
88 information23,
89 information24,
90 information25,
91 information26,
92 information27,
93 information28,
94 information29,
95 information30,
96 attribute_category,
97 attribute1,
98 attribute2,
99 attribute3,
100 attribute4,
101 attribute5,
102 attribute6,
103 attribute7,
104 attribute8,
105 attribute9,
106 attribute10,
107 attribute11,
108 attribute12,
109 attribute13,
110 attribute14,
111 attribute15,
112 attribute16,
113 attribute17,
114 attribute18,
115 attribute19,
116 attribute20,
117 object_version_number
118 from pqh_ptx_extra_info
119 where ptx_extra_info_id = p_ptx_extra_info_id;
120 --
121 l_proc varchar2(72) := g_package||'api_updating';
122 l_fct_ret boolean;
123 --
124 Begin
125 hr_utility.set_location('Entering:'||l_proc, 5);
126 --
127 If (
128 p_ptx_extra_info_id is null and
129 p_object_version_number is null
130 ) Then
131 --
132 -- One of the primary key arguments is null therefore we must
133 -- set the returning function value to false
134 --
135 l_fct_ret := false;
136 Else
137 If (
138 p_ptx_extra_info_id = g_old_rec.ptx_extra_info_id and
139 p_object_version_number = g_old_rec.object_version_number
140 ) Then
141 hr_utility.set_location(l_proc, 10);
142 --
143 -- The g_old_rec is current therefore we must
144 -- set the returning function to true
145 --
146 l_fct_ret := true;
147 Else
148 --
149 -- Select the current row into g_old_rec
150 --
151 Open C_Sel1;
152 Fetch C_Sel1 Into g_old_rec;
153 If C_Sel1%notfound Then
154 Close C_Sel1;
155 --
156 -- The primary key is invalid therefore we must error
157 --
158 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
159 hr_utility.raise_error;
160 End If;
161 Close C_Sel1;
162 If (p_object_version_number <> g_old_rec.object_version_number) Then
163 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
164 hr_utility.raise_error;
165 End If;
166 hr_utility.set_location(l_proc, 15);
167 l_fct_ret := true;
168 End If;
169 End If;
170 hr_utility.set_location(' Leaving:'||l_proc, 20);
171 Return (l_fct_ret);
172 --
173 End api_updating;
174 --
175 -- ----------------------------------------------------------------------------
176 -- |---------------------------------< lck >----------------------------------|
177 -- ----------------------------------------------------------------------------
178 Procedure lck
179 (
180 p_ptx_extra_info_id in number,
181 p_object_version_number in number
182 ) is
183 --
184 -- Cursor selects the 'current' row from the HR Schema
185 --
186 Cursor C_Sel1 is
187 select ptx_extra_info_id,
188 information_type,
189 position_transaction_id,
190 position_extra_info_id,
191 information_category,
192 information1,
193 information2,
194 information3,
195 information4,
196 information5,
197 information6,
198 information7,
199 information8,
200 information9,
201 information10,
202 information11,
203 information12,
204 information13,
205 information14,
206 information15,
207 information16,
208 information17,
209 information18,
210 information19,
211 information20,
212 information21,
213 information22,
214 information23,
215 information24,
216 information25,
217 information26,
218 information27,
219 information28,
220 information29,
221 information30,
222 attribute_category,
223 attribute1,
224 attribute2,
225 attribute3,
226 attribute4,
227 attribute5,
228 attribute6,
229 attribute7,
230 attribute8,
231 attribute9,
232 attribute10,
233 attribute11,
234 attribute12,
235 attribute13,
236 attribute14,
237 attribute15,
238 attribute16,
239 attribute17,
240 attribute18,
241 attribute19,
245 where ptx_extra_info_id = p_ptx_extra_info_id
242 attribute20,
243 object_version_number
244 from pqh_ptx_extra_info
246 for update nowait;
247 --
248 l_proc varchar2(72) := g_package||'lck';
249 --
250 Begin
251 hr_utility.set_location('Entering:'||l_proc, 5);
252 --
253 -- Add any mandatory argument checking here:
254 -- Example:
255 -- hr_api.mandatory_arg_error
256 -- (p_api_name => l_proc,
257 -- p_argument => 'object_version_number',
258 -- p_argument_value => p_object_version_number);
259 --
260 Open C_Sel1;
261 Fetch C_Sel1 Into g_old_rec;
262 If C_Sel1%notfound then
263 Close C_Sel1;
264 --
265 -- The primary key is invalid therefore we must error
266 --
267 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
268 hr_utility.raise_error;
269 End If;
270 Close C_Sel1;
271 If (p_object_version_number <> g_old_rec.object_version_number) Then
272 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
273 hr_utility.raise_error;
274 End If;
275 --
276 hr_utility.set_location(' Leaving:'||l_proc, 10);
277 --
278 -- We need to trap the ORA LOCK exception
279 --
280 Exception
281 When HR_Api.Object_Locked then
282 --
283 -- The object is locked therefore we need to supply a meaningful
284 -- error message.
285 --
286 hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
287 hr_utility.set_message_token('TABLE_NAME', 'pqh_ptx_extra_info');
288 hr_utility.raise_error;
289 End lck;
290 --
291 -- ----------------------------------------------------------------------------
292 -- |-----------------------------< convert_args >-----------------------------|
293 -- ----------------------------------------------------------------------------
294 Function convert_args
295 (
296 p_ptx_extra_info_id in number,
297 p_information_type in varchar2,
298 p_position_transaction_id in number,
299 p_position_extra_info_id in number,
300 p_information_category in varchar2,
301 p_information1 in varchar2,
302 p_information2 in varchar2,
303 p_information3 in varchar2,
304 p_information4 in varchar2,
305 p_information5 in varchar2,
306 p_information6 in varchar2,
307 p_information7 in varchar2,
308 p_information8 in varchar2,
309 p_information9 in varchar2,
310 p_information10 in varchar2,
311 p_information11 in varchar2,
312 p_information12 in varchar2,
313 p_information13 in varchar2,
314 p_information14 in varchar2,
315 p_information15 in varchar2,
316 p_information16 in varchar2,
317 p_information17 in varchar2,
318 p_information18 in varchar2,
319 p_information19 in varchar2,
320 p_information20 in varchar2,
321 p_information21 in varchar2,
322 p_information22 in varchar2,
323 p_information23 in varchar2,
324 p_information24 in varchar2,
325 p_information25 in varchar2,
326 p_information26 in varchar2,
327 p_information27 in varchar2,
328 p_information28 in varchar2,
329 p_information29 in varchar2,
330 p_information30 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_object_version_number in number
353 )
354 Return g_rec_type is
355 --
356 l_rec g_rec_type;
357 l_proc varchar2(72) := g_package||'convert_args';
358 --
359 Begin
360 --
361 hr_utility.set_location('Entering:'||l_proc, 5);
362 --
363 -- Convert arguments into local l_rec structure.
364 --
365 l_rec.ptx_extra_info_id := p_ptx_extra_info_id;
366 l_rec.information_type := p_information_type;
367 l_rec.position_transaction_id := p_position_transaction_id;
368 l_rec.position_extra_info_id := p_position_extra_info_id;
369 l_rec.information_category := p_information_category;
370 l_rec.information1 := p_information1;
371 l_rec.information2 := p_information2;
372 l_rec.information3 := p_information3;
373 l_rec.information4 := p_information4;
374 l_rec.information5 := p_information5;
375 l_rec.information6 := p_information6;
376 l_rec.information7 := p_information7;
377 l_rec.information8 := p_information8;
378 l_rec.information9 := p_information9;
379 l_rec.information10 := p_information10;
380 l_rec.information11 := p_information11;
381 l_rec.information12 := p_information12;
382 l_rec.information13 := p_information13;
383 l_rec.information14 := p_information14;
384 l_rec.information15 := p_information15;
385 l_rec.information16 := p_information16;
386 l_rec.information17 := p_information17;
387 l_rec.information18 := p_information18;
388 l_rec.information19 := p_information19;
389 l_rec.information20 := p_information20;
390 l_rec.information21 := p_information21;
391 l_rec.information22 := p_information22;
392 l_rec.information23 := p_information23;
393 l_rec.information24 := p_information24;
394 l_rec.information25 := p_information25;
395 l_rec.information26 := p_information26;
396 l_rec.information27 := p_information27;
397 l_rec.information28 := p_information28;
398 l_rec.information29 := p_information29;
399 l_rec.information30 := p_information30;
400 l_rec.attribute_category := p_attribute_category;
401 l_rec.attribute1 := p_attribute1;
402 l_rec.attribute2 := p_attribute2;
403 l_rec.attribute3 := p_attribute3;
404 l_rec.attribute4 := p_attribute4;
405 l_rec.attribute5 := p_attribute5;
406 l_rec.attribute6 := p_attribute6;
407 l_rec.attribute7 := p_attribute7;
408 l_rec.attribute8 := p_attribute8;
409 l_rec.attribute9 := p_attribute9;
410 l_rec.attribute10 := p_attribute10;
411 l_rec.attribute11 := p_attribute11;
412 l_rec.attribute12 := p_attribute12;
413 l_rec.attribute13 := p_attribute13;
414 l_rec.attribute14 := p_attribute14;
415 l_rec.attribute15 := p_attribute15;
416 l_rec.attribute16 := p_attribute16;
417 l_rec.attribute17 := p_attribute17;
418 l_rec.attribute18 := p_attribute18;
419 l_rec.attribute19 := p_attribute19;
420 l_rec.attribute20 := p_attribute20;
421 l_rec.object_version_number := p_object_version_number;
422 --
423 -- Return the plsql record structure.
424 --
425 hr_utility.set_location(' Leaving:'||l_proc, 10);
426 Return(l_rec);
427 --
428 End convert_args;
429 --
430 end pqh_pte_shd;