[Home] [Help]
PACKAGE BODY: APPS.HR_ITP_SHD
Source
1 Package Body hr_itp_shd as
2 /* $Header: hritprhi.pkb 115.11 2003/12/03 07:01:45 adhunter noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hr_itp_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_ITEM_PROPERTIES_B_FK1') 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','5');
25 fnd_message.raise_error;
26 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK11') Then
27 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('STEP','10');
30 fnd_message.raise_error;
31 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK12') Then
32 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
33 fnd_message.set_token('PROCEDURE', l_proc);
34 fnd_message.set_token('STEP','15');
35 fnd_message.raise_error;
36 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK13') Then
37 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
38 fnd_message.set_token('PROCEDURE', l_proc);
39 fnd_message.set_token('STEP','20');
40 fnd_message.raise_error;
41 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK14') Then
42 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
43 fnd_message.set_token('PROCEDURE', l_proc);
44 fnd_message.set_token('STEP','25');
45 fnd_message.raise_error;
46 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK15') Then
47 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
48 fnd_message.set_token('PROCEDURE', l_proc);
49 fnd_message.set_token('STEP','30');
50 fnd_message.raise_error;
51 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK16') Then
52 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
53 fnd_message.set_token('PROCEDURE', l_proc);
54 fnd_message.set_token('STEP','35');
55 fnd_message.raise_error;
56 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK17') Then
57 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
58 fnd_message.set_token('PROCEDURE', l_proc);
59 fnd_message.set_token('STEP','40');
60 fnd_message.raise_error;
61 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK2') Then
62 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
63 fnd_message.set_token('PROCEDURE', l_proc);
64 fnd_message.set_token('STEP','45');
65 fnd_message.raise_error;
66 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK3') Then
67 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
68 fnd_message.set_token('PROCEDURE', l_proc);
69 fnd_message.set_token('STEP','50');
70 fnd_message.raise_error;
71 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK5') Then
72 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
73 fnd_message.set_token('PROCEDURE', l_proc);
74 fnd_message.set_token('STEP','55');
75 fnd_message.raise_error;
76 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK6') Then
77 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
78 fnd_message.set_token('PROCEDURE', l_proc);
79 fnd_message.set_token('STEP','60');
80 fnd_message.raise_error;
81 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK7') Then
82 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
83 fnd_message.set_token('PROCEDURE', l_proc);
84 fnd_message.set_token('STEP','65');
85 fnd_message.raise_error;
86 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK8') Then
87 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
88 fnd_message.set_token('PROCEDURE', l_proc);
89 fnd_message.set_token('STEP','70');
90 fnd_message.raise_error;
91 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_FK9') Then
92 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
93 fnd_message.set_token('PROCEDURE', l_proc);
94 fnd_message.set_token('STEP','75');
95 fnd_message.raise_error;
96 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_PK') Then
97 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
98 fnd_message.set_token('PROCEDURE', l_proc);
99 fnd_message.set_token('STEP','80');
100 fnd_message.raise_error;
101 ElsIf (p_constraint_name = 'HR_ITEM_PROPERTIES_B_UK') Then
102 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
103 fnd_message.set_token('PROCEDURE', l_proc);
104 fnd_message.set_token('STEP','85');
105 fnd_message.raise_error;
106 Else
107 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
108 fnd_message.set_token('PROCEDURE', l_proc);
109 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
110 fnd_message.raise_error;
111 End If;
112 --
113 End constraint_error;
114 --
115 -- ----------------------------------------------------------------------------
116 -- |-----------------------------< api_updating >-----------------------------|
117 -- ----------------------------------------------------------------------------
118 Function api_updating
119 (p_item_property_id in number
120 ,p_object_version_number in number
121 )
122 Return Boolean Is
123 --
124 --
125 -- Cursor selects the 'current' row from the HR Schema
126 --
127 Cursor C_Sel1 is
128 select
129 item_property_id
130 ,object_version_number
131 ,form_item_id
132 ,template_item_id
133 ,template_item_context_id
134 ,alignment
135 ,bevel
136 ,case_restriction
137 ,enabled
138 ,format_mask
139 ,height
140 ,information_formula_id
141 ,information_parameter_item_id1
142 ,information_parameter_item_id2
143 ,information_parameter_item_id3
144 ,information_parameter_item_id4
145 ,information_parameter_item_id5
146 ,insert_allowed
147 ,prompt_alignment_offset
148 ,prompt_display_style
149 ,prompt_edge
150 ,prompt_edge_alignment
151 ,prompt_edge_offset
152 ,prompt_text_alignment
153 ,query_allowed
154 ,required
155 ,update_allowed
156 ,validation_formula_id
157 ,validation_parameter_item_id1
158 ,validation_parameter_item_id2
159 ,validation_parameter_item_id3
160 ,validation_parameter_item_id4
161 ,validation_parameter_item_id5
162 ,visible
163 ,width
164 ,x_position
165 ,y_position
166 ,information_category
167 ,information1
168 ,information2
169 ,information3
170 ,information4
171 ,information5
172 ,information6
173 ,information7
174 ,information8
175 ,information9
176 ,information10
177 ,information11
178 ,information12
179 ,information13
180 ,information14
181 ,information15
182 ,information16
183 ,information17
184 ,information18
185 ,information19
186 ,information20
187 ,information21
188 ,information22
189 ,information23
190 ,information24
191 ,information25
192 ,information26
193 ,information27
194 ,information28
195 ,information29
196 ,information30
197 ,next_navigation_item_id
198 ,previous_navigation_item_id
199 from hr_item_properties_b
200 where item_property_id = p_item_property_id;
201 --
202 l_fct_ret boolean;
203 --
204 Begin
205 --
206 If (p_item_property_id is null and
207 p_object_version_number is null
208 ) Then
209 --
210 -- One of the primary key arguments is null therefore we must
211 -- set the returning function value to false
212 --
213 l_fct_ret := false;
214 Else
215 If (p_item_property_id
216 = hr_itp_shd.g_old_rec.item_property_id and
217 p_object_version_number
218 = hr_tdg_shd.g_old_rec.object_version_number
219 ) Then
220 --
221 -- The g_old_rec is current therefore we must
222 -- set the returning function to true
223 --
224 l_fct_ret := true;
225 Else
226 --
227 -- Select the current row into g_old_rec
228 --
229 Open C_Sel1;
230 Fetch C_Sel1 Into hr_itp_shd.g_old_rec;
231 If C_Sel1%notfound Then
232 Close C_Sel1;
233 --
234 -- The primary key is invalid therefore we must error
235 --
236 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
237 fnd_message.raise_error;
238 End If;
239 Close C_Sel1;
240 If (p_object_version_number
241 <> hr_tdg_shd.g_old_rec.object_version_number) Then
242 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
243 fnd_message.raise_error;
244 End If;
245
246 l_fct_ret := true;
247 End If;
248 End If;
249 Return (l_fct_ret);
250 --
251 End api_updating;
252 --
253 -- ----------------------------------------------------------------------------
254 -- |---------------------------------< lck >----------------------------------|
255 -- ----------------------------------------------------------------------------
256 Procedure lck
257 (p_item_property_id in number
258 ,p_object_version_number in number
259 ) is
260 --
261 -- Cursor selects the 'current' row from the HR Schema
262 --
263 Cursor C_Sel1 is
264 select
265 item_property_id
266 ,object_version_number
267 ,form_item_id
268 ,template_item_id
269 ,template_item_context_id
270 ,alignment
271 ,bevel
272 ,case_restriction
273 ,enabled
274 ,format_mask
275 ,height
276 ,information_formula_id
277 ,information_parameter_item_id1
278 ,information_parameter_item_id2
279 ,information_parameter_item_id3
280 ,information_parameter_item_id4
281 ,information_parameter_item_id5
282 ,insert_allowed
283 ,prompt_alignment_offset
284 ,prompt_display_style
285 ,prompt_edge
286 ,prompt_edge_alignment
287 ,prompt_edge_offset
288 ,prompt_text_alignment
289 ,query_allowed
290 ,required
291 ,update_allowed
292 ,validation_formula_id
293 ,validation_parameter_item_id1
294 ,validation_parameter_item_id2
295 ,validation_parameter_item_id3
296 ,validation_parameter_item_id4
297 ,validation_parameter_item_id5
298 ,visible
299 ,width
300 ,x_position
301 ,y_position
302 ,information_category
303 ,information1
304 ,information2
305 ,information3
306 ,information4
307 ,information5
308 ,information6
309 ,information7
310 ,information8
311 ,information9
312 ,information10
313 ,information11
314 ,information12
315 ,information13
316 ,information14
317 ,information15
318 ,information16
319 ,information17
320 ,information18
321 ,information19
322 ,information20
323 ,information21
324 ,information22
325 ,information23
326 ,information24
327 ,information25
328 ,information26
329 ,information27
330 ,information28
331 ,information29
332 ,information30
333 ,next_navigation_item_id
334 ,previous_navigation_item_id
335 from hr_item_properties_b
336 where item_property_id = p_item_property_id
337 for update nowait;
338 --
339 l_proc varchar2(72) := g_package||'lck';
340 --
341 Begin
342 hr_utility.set_location('Entering:'||l_proc, 5);
343 --
344 hr_api.mandatory_arg_error
345 (p_api_name => l_proc
346 ,p_argument => 'ITEM_PROPERTY_ID'
347 ,p_argument_value => p_item_property_id
348 );
349 --
350 hr_api.mandatory_arg_error
351 (p_api_name => l_proc
352 ,p_argument => 'object_version_number'
353 ,p_argument_value => p_object_version_number
354 );
355 Open C_Sel1;
356 Fetch C_Sel1 Into hr_itp_shd.g_old_rec;
357 If C_Sel1%notfound then
358 Close C_Sel1;
359 --
360 -- The primary key is invalid therefore we must error
361 --
362 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
363 fnd_message.raise_error;
364 End If;
365 Close C_Sel1;
366 --
367 If (p_object_version_number
368 <> hr_tdg_shd.g_old_rec.object_version_number) Then
369 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
370 fnd_message.raise_error;
371 End If;
372 --
373 hr_utility.set_location(' Leaving:'||l_proc, 10);
374 --
375 -- We need to trap the ORA LOCK exception
376 --
377 Exception
378 When HR_Api.Object_Locked then
379 --
380 -- The object is locked therefore we need to supply a meaningful
381 -- error message.
382 --
383 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
384 fnd_message.set_token('TABLE_NAME', 'hr_item_properties_b');
385 fnd_message.raise_error;
386 End lck;
387 --
388 -- ----------------------------------------------------------------------------
389 -- |-----------------------------< convert_args >-----------------------------|
390 -- ----------------------------------------------------------------------------
391 Function convert_args
392 (p_item_property_id in number
393 ,p_object_version_number in number
394 ,p_form_item_id in number
395 ,p_template_item_id in number
396 ,p_template_item_context_id in number
397 ,p_alignment in number
398 ,p_bevel in number
399 ,p_case_restriction in number
400 ,p_enabled in number
401 ,p_format_mask in varchar2
402 ,p_height in number
403 ,p_information_formula_id in number
404 ,p_information_param_item_id1 in number
405 ,p_information_param_item_id2 in number
406 ,p_information_param_item_id3 in number
407 ,p_information_param_item_id4 in number
408 ,p_information_param_item_id5 in number
409 ,p_insert_allowed in number
410 ,p_prompt_alignment_offset in number
411 ,p_prompt_display_style in number
412 ,p_prompt_edge in number
413 ,p_prompt_edge_alignment in number
414 ,p_prompt_edge_offset in number
415 ,p_prompt_text_alignment in number
416 ,p_query_allowed in number
417 ,p_required in number
418 ,p_update_allowed in number
419 ,p_validation_formula_id in number
420 ,p_validation_param_item_id1 in number
421 ,p_validation_param_item_id2 in number
422 ,p_validation_param_item_id3 in number
423 ,p_validation_param_item_id4 in number
424 ,p_validation_param_item_id5 in number
425 ,p_visible in number
426 ,p_width in number
427 ,p_x_position in number
428 ,p_y_position in number
429 ,p_information_category in varchar2
430 ,p_information1 in varchar2
431 ,p_information2 in varchar2
432 ,p_information3 in varchar2
433 ,p_information4 in varchar2
434 ,p_information5 in varchar2
435 ,p_information6 in varchar2
436 ,p_information7 in varchar2
437 ,p_information8 in varchar2
438 ,p_information9 in varchar2
439 ,p_information10 in varchar2
440 ,p_information11 in varchar2
441 ,p_information12 in varchar2
442 ,p_information13 in varchar2
443 ,p_information14 in varchar2
444 ,p_information15 in varchar2
445 ,p_information16 in varchar2
446 ,p_information17 in varchar2
447 ,p_information18 in varchar2
448 ,p_information19 in varchar2
449 ,p_information20 in varchar2
450 ,p_information21 in varchar2
451 ,p_information22 in varchar2
452 ,p_information23 in varchar2
453 ,p_information24 in varchar2
454 ,p_information25 in varchar2
455 ,p_information26 in varchar2
456 ,p_information27 in varchar2
457 ,p_information28 in varchar2
458 ,p_information29 in varchar2
459 ,p_information30 in varchar2
460 ,p_next_navigation_item_id in number
461 ,p_previous_navigation_item_id in number
462 )
463 Return g_rec_type is
464 --
465 l_rec g_rec_type;
466 --
467 Begin
468 --
469 -- Convert arguments into local l_rec structure.
470 --
471 l_rec.item_property_id := p_item_property_id;
472 l_rec.object_version_number := p_object_version_number;
473 l_rec.form_item_id := p_form_item_id;
474 l_rec.template_item_id := p_template_item_id;
475 l_rec.template_item_context_id := p_template_item_context_id;
476 l_rec.alignment := p_alignment;
477 l_rec.bevel := p_bevel;
478 l_rec.case_restriction := p_case_restriction;
479 l_rec.enabled := p_enabled;
480 l_rec.format_mask := p_format_mask;
481 l_rec.height := p_height;
482 l_rec.information_formula_id := p_information_formula_id;
483 l_rec.information_parameter_item_id1 := p_information_param_item_id1;
484 l_rec.information_parameter_item_id2 := p_information_param_item_id2;
485 l_rec.information_parameter_item_id3 := p_information_param_item_id3;
486 l_rec.information_parameter_item_id4 := p_information_param_item_id4;
487 l_rec.information_parameter_item_id5 := p_information_param_item_id5;
488 l_rec.insert_allowed := p_insert_allowed;
489 l_rec.prompt_alignment_offset := p_prompt_alignment_offset;
490 l_rec.prompt_display_style := p_prompt_display_style;
491 l_rec.prompt_edge := p_prompt_edge;
492 l_rec.prompt_edge_alignment := p_prompt_edge_alignment;
493 l_rec.prompt_edge_offset := p_prompt_edge_offset;
494 l_rec.prompt_text_alignment := p_prompt_text_alignment;
495 l_rec.query_allowed := p_query_allowed;
496 l_rec.required := p_required;
497 l_rec.update_allowed := p_update_allowed;
498 l_rec.validation_formula_id := p_validation_formula_id;
499 l_rec.validation_parameter_item_id1 := p_validation_param_item_id1;
500 l_rec.validation_parameter_item_id2 := p_validation_param_item_id2;
501 l_rec.validation_parameter_item_id3 := p_validation_param_item_id3;
502 l_rec.validation_parameter_item_id4 := p_validation_param_item_id4;
503 l_rec.validation_parameter_item_id5 := p_validation_param_item_id5;
504 l_rec.visible := p_visible;
505 l_rec.width := p_width;
506 l_rec.x_position := p_x_position;
507 l_rec.y_position := p_y_position;
508 l_rec.information_category := p_information_category;
509 l_rec.information1 := p_information1;
510 l_rec.information2 := p_information2;
511 l_rec.information3 := p_information3;
512 l_rec.information4 := p_information4;
513 l_rec.information5 := p_information5;
514 l_rec.information6 := p_information6;
515 l_rec.information7 := p_information7;
516 l_rec.information8 := p_information8;
517 l_rec.information9 := p_information9;
518 l_rec.information10 := p_information10;
519 l_rec.information11 := p_information11;
520 l_rec.information12 := p_information12;
521 l_rec.information13 := p_information13;
522 l_rec.information14 := p_information14;
523 l_rec.information15 := p_information15;
524 l_rec.information16 := p_information16;
525 l_rec.information17 := p_information17;
526 l_rec.information18 := p_information18;
527 l_rec.information19 := p_information19;
528 l_rec.information20 := p_information20;
529 l_rec.information21 := p_information21;
530 l_rec.information22 := p_information22;
531 l_rec.information23 := p_information23;
532 l_rec.information24 := p_information24;
533 l_rec.information25 := p_information25;
534 l_rec.information26 := p_information26;
535 l_rec.information27 := p_information27;
536 l_rec.information28 := p_information28;
537 l_rec.information29 := p_information29;
538 l_rec.information30 := p_information30;
539 l_rec.next_navigation_item_id := p_next_navigation_item_id;
540 l_rec.previous_navigation_item_id := p_previous_navigation_item_id;
541 --
542 -- Return the plsql record structure.
543 --
544 Return(l_rec);
545 --
546 End convert_args;
547 --
548 end hr_itp_shd;