[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_AMORTIZE_PUB
Source
1 PACKAGE BODY OKL_AM_AMORTIZE_PUB AS
2 /* $Header: OKLPTATB.pls 120.4 2005/10/30 03:36:17 appldev noship $ */
3
4 PROCEDURE create_offlease_asset_trx( p_api_version IN NUMBER,
5 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
6 x_return_status OUT NOCOPY VARCHAR2,
7 x_msg_count OUT NOCOPY NUMBER,
8 x_msg_data OUT NOCOPY VARCHAR2,
9 p_kle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
10 p_early_termination_yn IN VARCHAR2,
11 p_quote_eff_date IN DATE DEFAULT NULL, -- rmunjulu EDAT Added parameter
12 p_quote_accpt_date IN DATE DEFAULT NULL) -- rmunjulu EDAT Added parameter
13 IS
14
15 l_api_version NUMBER ;
16 l_init_msg_list VARCHAR2(1) ;
17 l_return_status VARCHAR2(1);
18 l_msg_count NUMBER ;
19 l_msg_data VARCHAR2(2000);
20 lp_early_termination_yn VARCHAR2(1);
21 lp_kle_id NUMBER;
22
23 -- rmunjulu EDAT
24 l_quote_eff_date DATE;
25 l_quote_accpt_date DATE;
26
27 BEGIN
28 SAVEPOINT trx_create_offlease_asset_trx;
29
30 l_api_version := p_api_version ;
31 l_init_msg_list := p_init_msg_list ;
32 l_return_status := x_return_status ;
33 l_msg_count := x_msg_count ;
34 l_msg_data := x_msg_data ;
35 lp_kle_id := p_kle_id;
36 lp_early_termination_yn := p_early_termination_yn;
37
38 -- rmunjulu EDAT Initialize
39 l_quote_eff_date := p_quote_eff_date;
40 l_quote_accpt_date := p_quote_accpt_date;
41
42
43
44 -- call the insert of pvt
45
46 OKL_AM_AMORTIZE_PVT.create_offlease_asset_trx( p_api_version => l_api_version
47 ,p_init_msg_list => l_init_msg_list
48 ,x_msg_data => l_msg_data
49 ,x_msg_count => l_msg_count
50 ,x_return_status => l_return_status
51 ,p_kle_id => lp_kle_id
52 ,p_early_termination_yn => lp_early_termination_yn
53 ,p_quote_eff_date => l_quote_eff_date -- rmunjulu EDAT Pass additional parameters
54 ,p_quote_accpt_date => l_quote_accpt_date) ; -- rmunjulu EDAT Pass additional parameters
55
56 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
57 RAISE FND_API.G_EXC_ERROR;
58 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
59 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60 END IF;
61
62
63
64
65
66 --Assign value to OUT variables
67
68 x_return_status := l_return_status ;
69 x_msg_count := l_msg_count ;
70 x_msg_data := l_msg_data ;
71
72 EXCEPTION
73
74 WHEN FND_API.G_EXC_ERROR THEN
75 ROLLBACK TO trx_create_offlease_asset_trx;
76 x_return_status := FND_API.G_RET_STS_ERROR;
77 x_msg_count := l_msg_count ;
78 x_msg_data := l_msg_data ;
79 FND_MSG_PUB.count_and_get(
80 p_count => x_msg_count
81 ,p_data => x_msg_data);
82 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
83 ROLLBACK TO trx_create_offlease_asset_trx;
84 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85 x_msg_count := l_msg_count ;
86 x_msg_data := l_msg_data ;
87 FND_MSG_PUB.count_and_get(
88 p_count => x_msg_count
89 ,p_data => x_msg_data);
90 WHEN OTHERS THEN
91 ROLLBACK TO trx_create_offlease_asset_trx;
92 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
93 x_msg_count := l_msg_count ;
94 x_msg_data := l_msg_data ;
95 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_AMORTIZE_PUB','create_offlease_asset_trx');
96 FND_MSG_PUB.count_and_get(
97 p_count => x_msg_count
98 ,p_data => x_msg_data);
99 END create_offlease_asset_trx;
100
101
102 PROCEDURE create_offlease_asset_trx( p_api_version IN NUMBER,
103 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
104 x_return_status OUT NOCOPY VARCHAR2,
105 x_msg_count OUT NOCOPY NUMBER,
106 x_msg_data OUT NOCOPY VARCHAR2,
107 p_contract_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
108 p_early_termination_yn IN VARCHAR2,
109 p_quote_eff_date IN DATE DEFAULT NULL, -- rmunjulu EDAT Added parameter
110 p_quote_accpt_date IN DATE DEFAULT NULL) -- rmunjulu EDAT Added parameter
111 IS
112
113 l_api_version NUMBER ;
114 l_init_msg_list VARCHAR2(1) ;
115 l_return_status VARCHAR2(1);
116 l_msg_count NUMBER ;
117 l_msg_data VARCHAR2(2000);
118 lp_early_termination_yn VARCHAR2(1);
119 lp_contract_id NUMBER;
120
121 -- rmunjulu EDAT
122 l_quote_eff_date DATE;
123 l_quote_accpt_date DATE;
124
125 BEGIN
126 SAVEPOINT trx_create_offlease_asset_trx;
127
128 l_api_version := p_api_version ;
129 l_init_msg_list := p_init_msg_list ;
130 l_return_status := x_return_status ;
131 l_msg_count := x_msg_count ;
132 l_msg_data := x_msg_data ;
133 lp_contract_id := p_contract_id;
134 lp_early_termination_yn := p_early_termination_yn;
135
136 -- rmunjulu EDAT Initialize
137 l_quote_eff_date := p_quote_eff_date;
138 l_quote_accpt_date := p_quote_accpt_date;
139
140
141 -- call the insert of pvt
142
143 OKL_AM_AMORTIZE_PVT.create_offlease_asset_trx( p_api_version => l_api_version
144 ,p_init_msg_list => l_init_msg_list
145 ,x_msg_data => l_msg_data
146 ,x_msg_count => l_msg_count
147 ,x_return_status => l_return_status
148 ,p_contract_id => lp_contract_id
149 ,p_early_termination_yn => lp_early_termination_yn
150 ,p_quote_eff_date => l_quote_eff_date -- rmunjulu EDAT Pass additional parameters
151 ,p_quote_accpt_date => l_quote_accpt_date) ; -- rmunjulu EDAT Pass additional parameters
152
153
154 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
155 RAISE FND_API.G_EXC_ERROR;
156 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
157 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158 END IF;
159
160
161
162
163
164 --Assign value to OUT variables
165
166 x_return_status := l_return_status ;
167 x_msg_count := l_msg_count ;
168 x_msg_data := l_msg_data ;
169
170 EXCEPTION
171
172 WHEN FND_API.G_EXC_ERROR THEN
173 ROLLBACK TO trx_create_offlease_asset_trx;
174 x_return_status := FND_API.G_RET_STS_ERROR;
175 x_msg_count := l_msg_count ;
176 x_msg_data := l_msg_data ;
177 FND_MSG_PUB.count_and_get(
178 p_count => x_msg_count
179 ,p_data => x_msg_data);
180 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
181 ROLLBACK TO trx_create_offlease_asset_trx;
182 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
183 x_msg_count := l_msg_count ;
184 x_msg_data := l_msg_data ;
185 FND_MSG_PUB.count_and_get(
186 p_count => x_msg_count
187 ,p_data => x_msg_data);
188 WHEN OTHERS THEN
189 ROLLBACK TO trx_create_offlease_asset_trx;
190 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
191 x_msg_count := l_msg_count ;
192 x_msg_data := l_msg_data ;
193 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_AMORTIZE_PUB','create_offlease_asset_trx');
194 FND_MSG_PUB.count_and_get(
195 p_count => x_msg_count
196 ,p_data => x_msg_data);
197 END create_offlease_asset_trx;
198
199 PROCEDURE update_offlease_asset_trx( p_api_version IN NUMBER,
200 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
201 x_return_status OUT NOCOPY VARCHAR2,
202 x_msg_count OUT NOCOPY NUMBER,
203 x_msg_data OUT NOCOPY VARCHAR2,
204 p_header_rec IN thpv_rec_type,
205 p_lines_rec IN tlpv_rec_type) AS
206
207 l_api_version NUMBER ;
208 l_init_msg_list VARCHAR2(1) ;
209 l_return_status VARCHAR2(1);
210 l_msg_count NUMBER ;
211 l_msg_data VARCHAR2(2000);
212 lp_header_rec thpv_rec_type;
213 lp_lines_rec tlpv_rec_type;
214
215 BEGIN
216 SAVEPOINT trx_update_offlease_asset_trx;
217
218 l_api_version := p_api_version ;
219 l_init_msg_list := p_init_msg_list ;
220 l_return_status := x_return_status ;
221 l_msg_count := x_msg_count ;
222 l_msg_data := x_msg_data ;
223 lp_header_rec := p_header_rec;
224 lp_lines_rec := p_lines_rec;
225
226
227
228
229 -- call the insert of pvt
230
231 OKL_AM_AMORTIZE_PVT.update_offlease_asset_trx( p_api_version => l_api_version
232 ,p_init_msg_list => l_init_msg_list
233 ,x_msg_data => l_msg_data
234 ,x_msg_count => l_msg_count
235 ,x_return_status => l_return_status
236 ,p_header_rec => lp_header_rec,
237 p_lines_rec => lp_lines_rec) ;
238
239 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
240 RAISE FND_API.G_EXC_ERROR;
241 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
242 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243 END IF;
244
245
246
247
248
249 --Assign value to OUT variables
250
251 x_return_status := l_return_status ;
252 x_msg_count := l_msg_count ;
253 x_msg_data := l_msg_data ;
254
255 EXCEPTION
256
257 WHEN FND_API.G_EXC_ERROR THEN
258 ROLLBACK TO trx_update_offlease_asset_trx;
259 x_return_status := FND_API.G_RET_STS_ERROR;
260 x_msg_count := l_msg_count ;
261 x_msg_data := l_msg_data ;
262 FND_MSG_PUB.count_and_get(
263 p_count => x_msg_count
264 ,p_data => x_msg_data);
265 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
266 ROLLBACK TO trx_update_offlease_asset_trx;
267 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
268 x_msg_count := l_msg_count ;
269 x_msg_data := l_msg_data ;
270 FND_MSG_PUB.count_and_get(
271 p_count => x_msg_count
272 ,p_data => x_msg_data);
273 WHEN OTHERS THEN
274 ROLLBACK TO trx_update_offlease_asset_trx;
275 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
276 x_msg_count := l_msg_count ;
277 x_msg_data := l_msg_data ;
278 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_AMORTIZE_PUB','update_offlease_asset_trx');
279 FND_MSG_PUB.count_and_get(
280 p_count => x_msg_count
281 ,p_data => x_msg_data);
282 END update_offlease_asset_trx;
283
284
285
286 PROCEDURE update_offlease_asset_trx( p_api_version IN NUMBER,
287 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
288 x_return_status OUT NOCOPY VARCHAR2,
289 x_msg_count OUT NOCOPY NUMBER,
290 x_msg_data OUT NOCOPY VARCHAR2,
291 p_header_tbl IN thpv_tbl_type,
292 p_lines_tbl IN tlpv_tbl_type,
293 x_record_status OUT NOCOPY VARCHAR2) AS
294
295 l_api_version NUMBER ;
296 l_init_msg_list VARCHAR2(1) ;
297 l_return_status VARCHAR2(1);
298 l_record_status varchar2(1);
299 l_msg_count NUMBER ;
300 l_msg_data VARCHAR2(2000);
301 lp_lines_tbl tlpv_tbl_type;
302 lp_header_tbl thpv_tbl_type ;
303 lx_record_status VARCHAR2(1);
304
305 BEGIN
306 SAVEPOINT trx_update_offlease_asset_trx;
307
308 l_api_version := p_api_version ;
309 l_init_msg_list := p_init_msg_list ;
310 l_return_status := x_return_status ;
311 l_record_status := x_record_status;
312 l_msg_count := x_msg_count ;
313 l_msg_data := x_msg_data ;
314 lp_header_tbl := p_header_tbl;
315 lp_lines_tbl := p_lines_tbl;
316 lx_record_status := x_record_status;
317
318
319
320 -- call the insert of pvt
321
322 OKL_AM_AMORTIZE_PVT.update_offlease_asset_trx( p_api_version => l_api_version
323 ,p_init_msg_list => l_init_msg_list
324 ,x_msg_data => l_msg_data
325 ,x_msg_count => l_msg_count
326 ,x_return_status => l_return_status
327 ,p_header_tbl => lp_header_tbl,
328 p_lines_tbl => lp_lines_tbl,
329 x_record_status => lx_record_status) ;
330
331 IF (l_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
332 IF (l_record_status <> FND_API.G_RET_STS_SUCCESS) THEN
333 -- assign the overall status to l_return_status
334 l_return_status := l_record_status;
335 END IF;
336 ELSIF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
337 RAISE FND_API.G_EXC_ERROR;
338 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
339 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
340 END IF;
341
342
343
344
345
346 --Assign value to OUT variables
347
348 x_return_status := l_return_status ;
349 x_msg_count := l_msg_count ;
350 x_msg_data := l_msg_data ;
351 x_record_status := lx_record_status;
352 EXCEPTION
353
354 WHEN FND_API.G_EXC_ERROR THEN
355 ROLLBACK TO trx_update_offlease_asset_trx;
356 x_return_status := FND_API.G_RET_STS_ERROR;
357 x_msg_count := l_msg_count ;
358 x_msg_data := l_msg_data ;
359 FND_MSG_PUB.count_and_get(
360 p_count => x_msg_count
361 ,p_data => x_msg_data);
362 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
363 ROLLBACK TO trx_update_offlease_asset_trx;
364 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
365 x_msg_count := l_msg_count ;
366 x_msg_data := l_msg_data ;
367 FND_MSG_PUB.count_and_get(
368 p_count => x_msg_count
369 ,p_data => x_msg_data);
370 WHEN OTHERS THEN
371 ROLLBACK TO trx_update_offlease_asset_trx;
372 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
373 x_msg_count := l_msg_count ;
374 x_msg_data := l_msg_data ;
375 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_AMORTIZE_PUB','update_offlease_asset_trx');
376 FND_MSG_PUB.count_and_get(
377 p_count => x_msg_count
378 ,p_data => x_msg_data);
379 END update_offlease_asset_trx;
380
381
382 -- Start of comments
383 --
384 -- Procedure Name : update_depreciation
385 -- Description : Published API for update of Depreciation method and Salvage value
386 -- Business Rules : This API will do validations which are done from screen and then call the
387 -- screen level api for additional validations and updates
388 -- Parameters :
389 -- Version : 1.0
390 -- History : RMUNJULU 3608615 Added
391 -- End of comments
392 PROCEDURE update_depreciation(
393 p_api_version IN NUMBER,
394 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
395 x_return_status OUT NOCOPY VARCHAR2,
396 x_msg_count OUT NOCOPY NUMBER,
397 x_msg_data OUT NOCOPY VARCHAR2,
398 p_deprn_rec IN deprn_rec_type) IS
399
400 l_api_version NUMBER ;
401 l_init_msg_list VARCHAR2(1) ;
402 l_return_status VARCHAR2(1);
403 l_record_status varchar2(1);
404 l_msg_count NUMBER ;
405 l_msg_data VARCHAR2(2000);
406 lp_deprn_rec deprn_rec_type;
407
408
409 BEGIN
410
411 SAVEPOINT trx_update_deprn;
412
413 l_api_version := p_api_version ;
414 l_init_msg_list := p_init_msg_list ;
415 l_return_status := x_return_status ;
416 l_msg_count := x_msg_count ;
417 l_msg_data := x_msg_data ;
418 lp_deprn_rec := p_deprn_rec;
419
420 -- Call PVT proc
421 OKL_AM_AMORTIZE_PVT.update_depreciation(
422 p_api_version => l_api_version,
423 p_init_msg_list => l_init_msg_list,
424 x_return_status => l_return_status,
425 x_msg_count => l_msg_count,
426 x_msg_data => l_msg_data,
427 p_deprn_rec => lp_deprn_rec);
428
429 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
430 RAISE FND_API.G_EXC_ERROR;
431 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
432 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
433 END IF;
434
435 x_return_status := l_return_status ;
436 x_msg_count := l_msg_count ;
437 x_msg_data := l_msg_data ;
438
439 EXCEPTION
440
441 WHEN FND_API.G_EXC_ERROR THEN
442 ROLLBACK TO trx_update_deprn;
443 x_return_status := FND_API.G_RET_STS_ERROR;
444 x_msg_count := l_msg_count ;
445 x_msg_data := l_msg_data ;
446 FND_MSG_PUB.count_and_get(
447 p_count => x_msg_count
448 ,p_data => x_msg_data);
449 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
450 ROLLBACK TO trx_update_deprn;
451 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
452 x_msg_count := l_msg_count ;
453 x_msg_data := l_msg_data ;
454 FND_MSG_PUB.count_and_get(
455 p_count => x_msg_count
456 ,p_data => x_msg_data);
457 WHEN OTHERS THEN
458 ROLLBACK TO trx_update_deprn;
459 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
460 x_msg_count := l_msg_count ;
461 x_msg_data := l_msg_data ;
462 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_AMORTIZE_PUB','update_depreciation');
463 FND_MSG_PUB.count_and_get(
464 p_count => x_msg_count
465 ,p_data => x_msg_data);
466
467 END update_depreciation;
468
469
470 END OKL_AM_AMORTIZE_PUB;