[Home] [Help]
PACKAGE BODY: APPS.OTA_TFL_API_SHD
Source
1 Package Body ota_tfl_api_shd as
2 /* $Header: ottfl01t.pkb 120.0 2005/05/29 07:41:43 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ota_tfl_api_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------< return_api_dml_status >-------------------------|
12 -- ----------------------------------------------------------------------------
13 Function return_api_dml_status Return Boolean Is
14 --
15 l_proc varchar2(72) := g_package||'return_api_dml_status';
16 --
17 Begin
18 hr_utility.set_location('Entering:'||l_proc, 5);
19 --
20 Return (nvl(g_api_dml, false));
21 --
22 hr_utility.set_location(' Leaving:'||l_proc, 10);
23 End return_api_dml_status;
24 --
25 -- ----------------------------------------------------------------------------
26 -- |---------------------------< constraint_error >---------------------------|
27 -- ----------------------------------------------------------------------------
28 Procedure constraint_error
29 (p_constraint_name in varchar2) Is
30 --
31 l_proc varchar2(72) := g_package||'constraint_error';
32 --
33 Begin
34 hr_utility.set_location('Entering:'||l_proc, 5);
35 --
36 If (p_constraint_name = 'OTA_FINANCE_LINES_FK1') Then
37 fnd_message.set_name('OTA','OTA_13369_TFL_INVALID_FK');
38 fnd_message.set_token('STEP','1');
39 fnd_message.raise_error;
40 ElsIf (p_constraint_name = 'OTA_FINANCE_LINES_FK2') Then
41 fnd_message.set_name('OTA','OTA_13369_TFL_INVALID_FK');
42 fnd_message.set_token('STEP','2');
43 fnd_message.raise_error;
44 ElsIf (p_constraint_name = 'OTA_FINANCE_LINES_FK3') Then
45 fnd_message.set_name('OTA','OTA_13369_TFL_INVALID_FK');
46 fnd_message.set_token('STEP','3');
47 fnd_message.raise_error;
48 ElsIf (p_constraint_name = 'OTA_FINANCE_LINES_FK4') Then
49 fnd_message.set_name('OTA','OTA_13369_TFL_INVALID_FK');
50 fnd_message.set_token('STEP','4');
51 fnd_message.raise_error;
52 ElsIf (p_constraint_name = 'OTA_FINANCE_LINES_FK5') Then
53 fnd_message.set_name('OTA','OTA_13369_TFL_INVALID_FK');
54 fnd_message.set_token('STEP','5');
55 fnd_message.raise_error;
56 ElsIf (p_constraint_name = 'OTA_FINANCE_LINES_PK') Then
57 fnd_message.set_name('OTA','');
58 fnd_message.raise_error;
59 ElsIf (p_constraint_name = 'OTA_TFL_CANCELLED_FLAG_CHK') Then
60 fnd_message.set_name('OTA','OTA_13255_TFH_INVALID_CANCEL');
61 fnd_message.raise_error;
62 ElsIf (p_constraint_name = 'OTA_TFL_LINE_TYPE_CHK') Then
63 fnd_message.set_name('OTA','OTA_13383_TFL_INVALID_TYPE');
64 fnd_message.raise_error;
65 ElsIf (p_constraint_name = 'OTA_TFL_TRANSFER_STATUS_CHK') Then
66 fnd_message.set_name('OTA','OTA_13232_TFH_INVALID_TRANS_ST');
67 fnd_message.raise_error;
68 ElsIf (p_constraint_name = 'OTA_TFL_V_AMOUNT_ATTRIBUTES') Then
69 fnd_message.set_name('OTA','OTA_13372_TFL_AMT_ATTRIBUTES');
70 fnd_message.set_token('STEP','1');
71 fnd_message.raise_error;
72 ElsIf (p_constraint_name = 'OTA_TFL_E_AMOUNT_ATTRIBUTES') Then
73 fnd_message.set_name('OTA','OTA_13372_TFL_AMT_ATTRIBUTES');
74 fnd_message.set_token('STEP','2');
75 fnd_message.raise_error;
76 ElsIf (p_constraint_name = 'OTA_TFL_P_AMOUNT_ATTRIBUTES') Then
77 fnd_message.set_name('OTA','OTA_13372_TFL_AMT_ATTRIBUTES');
78 fnd_message.set_token('STEP','3');
79 fnd_message.raise_error;
80 ElsIf (p_constraint_name = 'OTA_TFL_R_AMOUNT_ATTRIBUTES') Then
81 fnd_message.set_name('OTA','OTA_13372_TFL_AMT_ATTRIBUTES');
82 fnd_message.set_token('STEP','4');
83 fnd_message.raise_error;
84 ElsIf (p_constraint_name = 'OTA_TFL_O_AMOUNT_ATTRIBUTES') Then
85 fnd_message.set_name('OTA','OTA_13372_TFL_AMT_ATTRIBUTES');
86 fnd_message.set_token('STEP','5');
87 fnd_message.raise_error;
88 ElsIf (p_constraint_name = 'OTA_TFL_CHECK_ENROLL_ATTR') Then
89 fnd_message.set_name('OTA','OTA_13350_TFL_ENROLLMENT_ATTR');
90 fnd_message.raise_error;
91 ElsIf (p_constraint_name = 'OTA_TFL_CHECK_PRE_PURCH_ATTR') Then
92 fnd_message.set_name('OTA','OTA_13349_TFL_PRE_PURCH_ATTR');
93 fnd_message.raise_error;
94 ElsIf (p_constraint_name = 'OTA_TFL_CHECK_PAYMENT_ATTR') Then
95 fnd_message.set_name('OTA','OTA_13353_TFL_VENDOR_PAY_ATTR');
96 fnd_message.raise_error;
97 ElsIf (p_constraint_name = 'OTA_TFL_CHECK_OTHER_ATTR') Then
98 fnd_message.set_name('OTA','Invalid-attributes');
99 fnd_message.raise_error;
100 Else
101 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
102 hr_utility.set_message_token('PROCEDURE', l_proc);
103 hr_utility.set_message_token('STEP',p_constraint_name);
104 hr_utility.raise_error;
105 End If;
106 --
107 hr_utility.set_location(' Leaving:'||l_proc, 10);
108 End constraint_error;
109 --
110 -- ----------------------------------------------------------------------------
111 -- |-----------------------------< api_updating >-----------------------------|
112 -- ----------------------------------------------------------------------------
113 Function api_updating
114 (
115 p_finance_line_id in number,
116 p_object_version_number in number
117 ) Return Boolean Is
118 --
119 --
120 -- Cursor selects the 'current' row from the HR Schema
121 --
122 Cursor C_Sel1 is
123 select
124 finance_line_id,
125 finance_header_id,
126 cancelled_flag,
127 date_raised,
128 line_type,
129 object_version_number,
130 sequence_number,
131 transfer_status,
132 comments,
133 currency_code,
134 money_amount,
135 standard_amount,
136 trans_information_category,
137 trans_information1,
138 trans_information10,
139 trans_information11,
140 trans_information12,
141 trans_information13,
142 trans_information14,
143 trans_information15,
144 trans_information16,
145 trans_information17,
146 trans_information18,
147 trans_information19,
148 trans_information2,
149 trans_information20,
150 trans_information3,
151 trans_information4,
152 trans_information5,
153 trans_information6,
154 trans_information7,
155 trans_information8,
156 trans_information9,
157 transfer_date,
158 transfer_message,
159 unitary_amount,
160 booking_deal_id,
161 booking_id,
162 resource_allocation_id,
163 resource_booking_id,
164 tfl_information_category,
165 tfl_information1,
166 tfl_information2,
167 tfl_information3,
168 tfl_information4,
169 tfl_information5,
170 tfl_information6,
171 tfl_information7,
172 tfl_information8,
173 tfl_information9,
174 tfl_information10,
175 tfl_information11,
176 tfl_information12,
177 tfl_information13,
178 tfl_information14,
179 tfl_information15,
180 tfl_information16,
181 tfl_information17,
182 tfl_information18,
183 tfl_information19,
184 tfl_information20
185 from ota_finance_lines
186 where finance_line_id = p_finance_line_id;
187 --
188 l_proc varchar2(72) := g_package||'api_updating';
189 l_fct_ret boolean;
190 --
191 Begin
192 hr_utility.set_location('Entering:'||l_proc, 5);
193 --
194 If (
195 p_finance_line_id is null and
196 p_object_version_number is null
197 ) Then
198 --
199 -- One of the primary key arguments is null therefore we must
200 -- set the returning function value to false
201 --
202 l_fct_ret := false;
203 Else
204 If (
205 p_finance_line_id = g_old_rec.finance_line_id and
206 p_object_version_number = g_old_rec.object_version_number
207 ) Then
208 hr_utility.set_location(l_proc, 10);
209 --
210 -- The g_old_rec is current therefore we must
211 -- set the returning function to true
212 --
213 l_fct_ret := true;
214 Else
215 --
216 -- Select the current row into g_old_rec
217 --
218 Open C_Sel1;
219 Fetch C_Sel1 Into g_old_rec;
220 If C_Sel1%notfound Then
221 Close C_Sel1;
222 --
223 -- The primary key is invalid therefore we must error
224 --
225 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
226 hr_utility.raise_error;
227 End If;
228 Close C_Sel1;
229 If (p_object_version_number <> g_old_rec.object_version_number) Then
230 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
231 hr_utility.raise_error;
232 End If;
233 hr_utility.set_location(l_proc, 15);
234 l_fct_ret := true;
235 End If;
236 End If;
237 hr_utility.set_location(' Leaving:'||l_proc, 20);
238 Return (l_fct_ret);
239 --
240 End api_updating;
241 --
242 -- ----------------------------------------------------------------------------
243 -- |---------------------------------< lck >----------------------------------|
244 -- ----------------------------------------------------------------------------
245 Procedure lck
246 (
247 p_finance_line_id in number,
248 p_object_version_number in number
249 ) is
250 --
251 -- Cursor selects the 'current' row from the HR Schema
252 --
253 Cursor C_Sel1 is
254 select finance_line_id,
255 finance_header_id,
256 cancelled_flag,
257 date_raised,
258 line_type,
259 object_version_number,
260 sequence_number,
261 transfer_status,
262 comments,
263 currency_code,
264 money_amount,
265 standard_amount,
266 trans_information_category,
267 trans_information1,
268 trans_information10,
269 trans_information11,
270 trans_information12,
271 trans_information13,
272 trans_information14,
273 trans_information15,
274 trans_information16,
275 trans_information17,
276 trans_information18,
277 trans_information19,
278 trans_information2,
279 trans_information20,
280 trans_information3,
281 trans_information4,
282 trans_information5,
283 trans_information6,
284 trans_information7,
285 trans_information8,
286 trans_information9,
287 transfer_date,
288 transfer_message,
289 unitary_amount,
290 booking_deal_id,
291 booking_id,
292 resource_allocation_id,
293 resource_booking_id,
294 tfl_information_category,
295 tfl_information1,
296 tfl_information2,
297 tfl_information3,
298 tfl_information4,
299 tfl_information5,
300 tfl_information6,
301 tfl_information7,
302 tfl_information8,
303 tfl_information9,
304 tfl_information10,
305 tfl_information11,
306 tfl_information12,
307 tfl_information13,
308 tfl_information14,
309 tfl_information15,
310 tfl_information16,
311 tfl_information17,
312 tfl_information18,
313 tfl_information19,
314 tfl_information20
315 from ota_finance_lines
316 where finance_line_id = p_finance_line_id
317 for update nowait;
318 --
319 l_proc varchar2(72) := g_package||'lck';
320 --
321 Begin
322 hr_utility.set_location('Entering:'||l_proc, 5);
323 --
324 -- Add any mandatory argument checking here:
325 -- Example:
326 -- hr_api.mandatory_arg_error
327 -- (p_api_name => l_proc,
328 -- p_argument => 'object_version_number',
329 -- p_argument_value => p_object_version_number);
330 --
331 Open C_Sel1;
332 Fetch C_Sel1 Into g_old_rec;
333 If C_Sel1%notfound then
334 Close C_Sel1;
335 --
336 -- The primary key is invalid therefore we must error
337 --
338 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
339 hr_utility.raise_error;
340 End If;
341 Close C_Sel1;
342 If (p_object_version_number <> g_old_rec.object_version_number) Then
343 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
344 hr_utility.raise_error;
345 End If;
346 --
347 hr_utility.set_location(' Leaving:'||l_proc, 10);
348 --
349 -- We need to trap the ORA LOCK exception
350 --
351 Exception
352 When HR_Api.Object_Locked then
353 --
354 -- The object is locked therefore we need to supply a meaningful
355 -- error message.
356 --
357 hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
358 hr_utility.set_message_token('TABLE_NAME', 'ota_finance_lines');
359 hr_utility.raise_error;
360 End lck;
361 --
362 -- ----------------------------------------------------------------------------
363 -- |-----------------------------< convert_args >-----------------------------|
364 -- ----------------------------------------------------------------------------
365 Function convert_args
366 (
367 p_finance_line_id in number,
368 p_finance_header_id in number,
369 p_cancelled_flag in varchar2,
370 p_date_raised in date,
371 p_line_type in varchar2,
372 p_object_version_number in number,
373 p_sequence_number in number,
374 p_transfer_status in varchar2,
375 p_comments in varchar2,
376 p_currency_code in varchar2,
377 p_money_amount in number,
378 p_standard_amount in number,
379 p_trans_information_category in varchar2,
380 p_trans_information1 in varchar2,
381 p_trans_information10 in varchar2,
382 p_trans_information11 in varchar2,
383 p_trans_information12 in varchar2,
384 p_trans_information13 in varchar2,
385 p_trans_information14 in varchar2,
386 p_trans_information15 in varchar2,
387 p_trans_information16 in varchar2,
388 p_trans_information17 in varchar2,
389 p_trans_information18 in varchar2,
390 p_trans_information19 in varchar2,
391 p_trans_information2 in varchar2,
392 p_trans_information20 in varchar2,
393 p_trans_information3 in varchar2,
394 p_trans_information4 in varchar2,
395 p_trans_information5 in varchar2,
396 p_trans_information6 in varchar2,
397 p_trans_information7 in varchar2,
398 p_trans_information8 in varchar2,
399 p_trans_information9 in varchar2,
400 p_transfer_date in date,
401 p_transfer_message in varchar2,
402 p_unitary_amount in number,
403 p_booking_deal_id in number,
404 p_booking_id in number,
405 p_resource_allocation_id in number,
406 p_resource_booking_id in number,
407 p_tfl_information_category in varchar2,
408 p_tfl_information1 in varchar2,
409 p_tfl_information2 in varchar2,
410 p_tfl_information3 in varchar2,
411 p_tfl_information4 in varchar2,
412 p_tfl_information5 in varchar2,
413 p_tfl_information6 in varchar2,
414 p_tfl_information7 in varchar2,
415 p_tfl_information8 in varchar2,
416 p_tfl_information9 in varchar2,
417 p_tfl_information10 in varchar2,
418 p_tfl_information11 in varchar2,
419 p_tfl_information12 in varchar2,
420 p_tfl_information13 in varchar2,
421 p_tfl_information14 in varchar2,
422 p_tfl_information15 in varchar2,
423 p_tfl_information16 in varchar2,
424 p_tfl_information17 in varchar2,
425 p_tfl_information18 in varchar2,
426 p_tfl_information19 in varchar2,
427 p_tfl_information20 in varchar2
428 )
429 Return g_rec_type is
430 --
431 l_rec g_rec_type;
432 l_proc varchar2(72) := g_package||'convert_args';
433 --
434 Begin
435 --
436 hr_utility.set_location('Entering:'||l_proc, 5);
437 --
438 -- Convert arguments into local l_rec structure.
439 --
440 l_rec.finance_line_id := p_finance_line_id;
441 l_rec.finance_header_id := p_finance_header_id;
442 l_rec.cancelled_flag := p_cancelled_flag;
443 l_rec.date_raised := p_date_raised;
444 l_rec.line_type := p_line_type;
445 l_rec.object_version_number := p_object_version_number;
446 l_rec.sequence_number := p_sequence_number;
447 l_rec.transfer_status := p_transfer_status;
448 l_rec.comments := p_comments;
449 l_rec.currency_code := p_currency_code;
450 l_rec.money_amount := p_money_amount;
451 l_rec.standard_amount := p_standard_amount;
452 l_rec.trans_information_category := p_trans_information_category;
453 l_rec.trans_information1 := p_trans_information1;
454 l_rec.trans_information10 := p_trans_information10;
455 l_rec.trans_information11 := p_trans_information11;
456 l_rec.trans_information12 := p_trans_information12;
457 l_rec.trans_information13 := p_trans_information13;
458 l_rec.trans_information14 := p_trans_information14;
459 l_rec.trans_information15 := p_trans_information15;
460 l_rec.trans_information16 := p_trans_information16;
461 l_rec.trans_information17 := p_trans_information17;
462 l_rec.trans_information18 := p_trans_information18;
463 l_rec.trans_information19 := p_trans_information19;
464 l_rec.trans_information2 := p_trans_information2;
465 l_rec.trans_information20 := p_trans_information20;
466 l_rec.trans_information3 := p_trans_information3;
467 l_rec.trans_information4 := p_trans_information4;
468 l_rec.trans_information5 := p_trans_information5;
469 l_rec.trans_information6 := p_trans_information6;
470 l_rec.trans_information7 := p_trans_information7;
471 l_rec.trans_information8 := p_trans_information8;
472 l_rec.trans_information9 := p_trans_information9;
473 l_rec.transfer_date := p_transfer_date;
474 l_rec.transfer_message := p_transfer_message;
475 l_rec.unitary_amount := p_unitary_amount;
476 l_rec.booking_deal_id := p_booking_deal_id;
477 l_rec.booking_id := p_booking_id;
478 l_rec.resource_allocation_id := p_resource_allocation_id;
479 l_rec.resource_booking_id := p_resource_booking_id;
480 l_rec.tfl_information_category := p_tfl_information_category;
481 l_rec.tfl_information1 := p_tfl_information1;
482 l_rec.tfl_information2 := p_tfl_information2;
483 l_rec.tfl_information3 := p_tfl_information3;
484 l_rec.tfl_information4 := p_tfl_information4;
485 l_rec.tfl_information5 := p_tfl_information5;
486 l_rec.tfl_information6 := p_tfl_information6;
487 l_rec.tfl_information7 := p_tfl_information7;
488 l_rec.tfl_information8 := p_tfl_information8;
489 l_rec.tfl_information9 := p_tfl_information9;
490 l_rec.tfl_information10 := p_tfl_information10;
491 l_rec.tfl_information11 := p_tfl_information11;
492 l_rec.tfl_information12 := p_tfl_information12;
493 l_rec.tfl_information13 := p_tfl_information13;
494 l_rec.tfl_information14 := p_tfl_information14;
495 l_rec.tfl_information15 := p_tfl_information15;
496 l_rec.tfl_information16 := p_tfl_information16;
497 l_rec.tfl_information17 := p_tfl_information17;
498 l_rec.tfl_information18 := p_tfl_information18;
499 l_rec.tfl_information19 := p_tfl_information19;
500 l_rec.tfl_information20 := p_tfl_information20;
501 --
502 -- Return the plsql record structure.
503 --
504 hr_utility.set_location(' Leaving:'||l_proc, 10);
505 Return(l_rec);
506 --
507 End convert_args;
508 --
509 end ota_tfl_api_shd;