[Home] [Help]
PACKAGE BODY: APPS.OKL_CS_PRINCIPAL_PAYDOWN_PUB
Source
1 package body OKL_CS_PRINCIPAL_PAYDOWN_PUB AS
2 /* $Header: OKLPPPDB.pls 120.3 2005/10/26 13:05:12 rkuttiya noship $ */
3
4
5 PROCEDURE create_working_copy(
6 p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2,
8 p_commit IN VARCHAR2,
9 x_return_status OUT NOCOPY VARCHAR2,
10 x_msg_count OUT NOCOPY NUMBER,
11 x_msg_data OUT NOCOPY VARCHAR2,
12 p_chr_id IN NUMBER,
13 x_chr_id OUT NOCOPY NUMBER)
14 AS
15
16 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
17 l_msg_count NUMBER;
18 l_msg_data VARCHAR2(2000);
19 l_chr_id NUMBER;
20
21 BEGIN
22
23
24
25
26
27
28 ------------ Call to Private Process API--------------
29
30 okl_cs_principal_paydown_pvt.create_working_copy (p_api_version => p_api_version,
31 p_init_msg_list => p_init_msg_list,
32 p_commit => p_commit,
33 p_chr_id => p_chr_id,
34 x_chr_id => x_chr_id,
35 x_return_status => l_return_status,
36 x_msg_count => l_msg_count,
37 x_msg_data => l_msg_data);
38
39 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
40 RAISE OKL_API.G_EXCEPTION_ERROR;
41 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
42 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
43 END IF;
44
45 ------------ End Call to Private Process API--------------
46
47
48
49
50
51
52
53 x_return_status := l_return_status;
54 x_msg_count := l_msg_count;
55 x_msg_data := l_msg_data;
56
57 EXCEPTION
58
59 WHEN OKL_API.G_EXCEPTION_ERROR THEN
60
61 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
62 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
63 p_data => x_msg_data);
64
65 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
66
67 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
68 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
69 p_data => x_msg_data);
70
71 WHEN OTHERS THEN
72
73 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
74 FND_MSG_PUB.ADD_EXC_MSG('okl_cs_principal_paydown_PUB','create_working_copy');
75 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
76 p_data => x_msg_data);
77
78 END create_working_copy;
79
80 PROCEDURE calculate(
81 p_api_version IN NUMBER,
82 p_init_msg_list IN VARCHAR2,
83 x_return_status OUT NOCOPY VARCHAR2,
84 x_msg_count OUT NOCOPY NUMBER,
85 x_msg_data OUT NOCOPY VARCHAR2,
86 p_trqv_tbl IN okl_trx_requests_pub.trqv_tbl_type,
87 x_trqv_tbl OUT NOCOPY okl_trx_requests_pub.trqv_tbl_type)
88 AS
89
90 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
91 l_msg_count NUMBER;
92 l_msg_data VARCHAR2(2000);
93 l_chr_id NUMBER;
94
95 BEGIN
96
97
98
99
100
101
102 ------------ Call to Private Process API--------------
103
104 okl_cs_principal_paydown_pvt.calculate (p_api_version => p_api_version,
105 p_init_msg_list => p_init_msg_list,
106 -- p_commit => p_commit,
107 x_return_status => l_return_status,
108 x_msg_count => l_msg_count,
109 x_msg_data => l_msg_data,
110 p_trqv_tbl => p_trqv_tbl,
111 x_trqv_tbl => x_trqv_tbl);
112
113 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
114 RAISE OKL_API.G_EXCEPTION_ERROR;
115 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
116 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117 END IF;
118
119 ------------ End Call to Private Process API--------------
120
121
122
123
124
125
126
127 x_return_status := l_return_status;
128 x_msg_count := l_msg_count;
129 x_msg_data := l_msg_data;
130
131 EXCEPTION
132
133 WHEN OKL_API.G_EXCEPTION_ERROR THEN
134
135 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
136 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
137 p_data => x_msg_data);
138
139 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
140
141 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
142 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
143 p_data => x_msg_data);
144
145 WHEN OTHERS THEN
146
147 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
148 FND_MSG_PUB.ADD_EXC_MSG('okl_cs_principal_paydown_PUB','calculate');
149 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
150 p_data => x_msg_data);
151
152 END calculate;
153
154 PROCEDURE update_ppd_request(
155 p_api_version IN NUMBER
156 ,p_init_msg_list IN VARCHAR2
157 ,x_return_status OUT NOCOPY VARCHAR2
158 ,x_msg_count OUT NOCOPY NUMBER
159 ,x_msg_data OUT NOCOPY VARCHAR2
160 ,p_trqv_rec IN okl_trx_requests_pub.trqv_rec_type
161 ,x_trqv_rec OUT NOCOPY okl_trx_requests_pub.trqv_rec_type)
162 AS
163
164 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
165 l_msg_count NUMBER;
166 l_msg_data VARCHAR2(2000);
167 l_chr_id NUMBER;
168
169 BEGIN
170
171
172
173
174
175
176 ------------ Call to Private Process API--------------
177
178 okl_cs_principal_paydown_pvt.update_ppd_request (p_api_version => p_api_version,
179 p_init_msg_list => p_init_msg_list,
180 x_return_status => l_return_status,
181 x_msg_count => l_msg_count,
182 x_msg_data => l_msg_data,
183 p_trqv_rec => p_trqv_rec,
184 x_trqv_rec => x_trqv_rec);
185
186 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
187 RAISE OKL_API.G_EXCEPTION_ERROR;
188 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
189 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
190 END IF;
191
192 ------------ End Call to Private Process API--------------
193
194
195
196
197
198
199
200 x_return_status := l_return_status;
201 x_msg_count := l_msg_count;
202 x_msg_data := l_msg_data;
203
204 EXCEPTION
205
206 WHEN OKL_API.G_EXCEPTION_ERROR THEN
207
208 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
209 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
210 p_data => x_msg_data);
211
212 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
213
214 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
215 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
216 p_data => x_msg_data);
217
218 WHEN OTHERS THEN
219
220 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
221 FND_MSG_PUB.ADD_EXC_MSG('okl_cs_principal_paydown_PUB','update_ppd_request');
222 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
223 p_data => x_msg_data);
224
225 END update_ppd_request;
226
227
228 PROCEDURE create_ppd_invoice (p_khr_id IN NUMBER,
229 p_ppd_amount IN NUMBER,
230 p_ppd_desc IN VARCHAR2,
231 p_syndication_code IN VARCHAR2,
232 p_factoring_code IN VARCHAR2,
233 x_tai_id OUT NOCOPY NUMBER,
234 x_return_status OUT NOCOPY VARCHAR2,
235 x_msg_count OUT NOCOPY NUMBER,
236 x_msg_data OUT NOCOPY VARCHAR2)
237 AS
238
239 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
240 l_msg_count NUMBER;
241 l_msg_data VARCHAR2(2000);
242 l_chr_id NUMBER;
243
244 BEGIN
245
246
247
248
249
250
251 ------------ Call to Private Process API--------------
252
253 okl_cs_principal_paydown_pvt.create_ppd_invoice (p_khr_id => p_khr_id,
254 p_ppd_amount => p_ppd_amount,
255 p_ppd_desc => p_ppd_desc,
256 p_syndication_code => p_syndication_code,
257 p_factoring_code => p_factoring_code,
258 x_tai_id => x_tai_id,
259 x_return_status => l_return_status,
260 x_msg_count => l_msg_count,
261 x_msg_data => l_msg_data);
262
263 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
264 RAISE OKL_API.G_EXCEPTION_ERROR;
265 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
266 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
267 END IF;
268
269 ------------ End Call to Private Process API--------------
270
271
272
273
274
275
276
277 x_return_status := l_return_status;
278 x_msg_count := l_msg_count;
279 x_msg_data := l_msg_data;
280
281 EXCEPTION
282
283 WHEN OKL_API.G_EXCEPTION_ERROR THEN
284
285 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
286 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
287 p_data => x_msg_data);
288
289 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
290
291 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
292 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
293 p_data => x_msg_data);
294
295 WHEN OTHERS THEN
296
297 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
298 FND_MSG_PUB.ADD_EXC_MSG('okl_cs_principal_paydown_PUB','create_ppd_invoice');
299 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
300 p_data => x_msg_data);
301
302 END create_ppd_invoice;
303
304
305
306 PROCEDURE cancel_ppd(
307 p_api_version IN NUMBER
308 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
309 ,x_return_status OUT NOCOPY VARCHAR2
310 ,x_msg_count OUT NOCOPY NUMBER
311 ,x_msg_data OUT NOCOPY VARCHAR2
312 ,p_khr_id IN NUMBER)
313 AS
314
315 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
316 l_msg_count NUMBER;
317 l_msg_data VARCHAR2(2000);
318 l_chr_id NUMBER;
319
320 BEGIN
321 ------------ Call to Private Process API--------------
322
323 okl_cs_principal_paydown_pvt.cancel_ppd (p_api_version => p_api_version,
324 p_init_msg_list => p_init_msg_list,
325 x_return_status => l_return_status,
326 x_msg_count => l_msg_count,
327 x_msg_data => l_msg_data,
328 p_khr_id => p_khr_id);
329
330 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
331 RAISE OKL_API.G_EXCEPTION_ERROR;
332 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
333 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
334 END IF;
335
336 ------------ End Call to Private Process API--------------
337 x_return_status := l_return_status;
338 x_msg_count := l_msg_count;
339 x_msg_data := l_msg_data;
340
341 EXCEPTION
342
343 WHEN OKL_API.G_EXCEPTION_ERROR THEN
344
345 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
346 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
347 p_data => x_msg_data);
348
349 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
350
351 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
352 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
353 p_data => x_msg_data);
354
355 WHEN OTHERS THEN
356
357 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
358 FND_MSG_PUB.ADD_EXC_MSG('OKL_CS_PRINCIPAL_PAYDOWN_PUB','cancel_ppd');
359 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
360 p_data => x_msg_data);
361 END cancel_ppd;
362
363
364 PROCEDURE invoice_apply_ppd(
365 p_api_version IN NUMBER
366 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
367 ,x_return_status OUT NOCOPY VARCHAR2
368 ,x_msg_count OUT NOCOPY NUMBER
369 ,x_msg_data OUT NOCOPY VARCHAR2
370 ,p_khr_id IN NUMBER
371 ,p_trx_id IN NUMBER)
372 AS
373
374 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
375 l_msg_count NUMBER;
376 l_msg_data VARCHAR2(2000);
377
378 BEGIN
379 ------------ Call to Private Process API--------------
380
381 okl_cs_principal_paydown_pvt.invoice_apply_ppd (p_api_version => p_api_version,
382 p_init_msg_list => p_init_msg_list,
383 x_return_status => l_return_status,
384 x_msg_count => l_msg_count,
385 x_msg_data => l_msg_data,
386 p_khr_id => p_khr_id,
387 p_trx_id => p_trx_id);
388
389 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
390 RAISE OKL_API.G_EXCEPTION_ERROR;
391 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
392 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
393 END IF;
394
395 ------------ End Call to Private Process API--------------
396 x_return_status := l_return_status;
397 x_msg_count := l_msg_count;
398 x_msg_data := l_msg_data;
399
400 EXCEPTION
401
402 WHEN OKL_API.G_EXCEPTION_ERROR THEN
403
404 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
405 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
406 p_data => x_msg_data);
407
408 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
409
410 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
411 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
412 p_data => x_msg_data);
413
414 WHEN OTHERS THEN
415
416 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
417 FND_MSG_PUB.ADD_EXC_MSG('OKL_CS_PRINCIPAL_PAYDOWN_PUB','invoice_apply_ppd');
418 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
419 p_data => x_msg_data);
420 END invoice_apply_ppd;
421
422
423 PROCEDURE process_ppd(
424 p_api_version IN NUMBER
425 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
426 ,x_return_status OUT NOCOPY VARCHAR2
427 ,x_msg_count OUT NOCOPY NUMBER
428 ,x_msg_data OUT NOCOPY VARCHAR2
429 ,p_ppd_request_id IN NUMBER)
430 AS
431
432 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
433 l_msg_count NUMBER;
434 l_msg_data VARCHAR2(2000);
435
436 BEGIN
437 ------------ Call to Private Process API--------------
438
439 okl_cs_principal_paydown_pvt.process_ppd (p_api_version => p_api_version,
440 p_init_msg_list => p_init_msg_list,
441 x_return_status => l_return_status,
442 x_msg_count => l_msg_count,
443 x_msg_data => l_msg_data,
444 p_ppd_request_id => p_ppd_request_id);
445
446 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
447 RAISE OKL_API.G_EXCEPTION_ERROR;
448 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
449 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
450 END IF;
451
452 ------------ End Call to Private Process API--------------
453 x_return_status := l_return_status;
454 x_msg_count := l_msg_count;
455 x_msg_data := l_msg_data;
456
457 EXCEPTION
458
459 WHEN OKL_API.G_EXCEPTION_ERROR THEN
460
461 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
462 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
463 p_data => x_msg_data);
464
465 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
466
467 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
468 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
469 p_data => x_msg_data);
470
471 WHEN OTHERS THEN
472
473 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
474 FND_MSG_PUB.ADD_EXC_MSG('OKL_CS_PRINCIPAL_PAYDOWN_PUB','process_ppd');
475 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
476 p_data => x_msg_data);
477 END process_ppd;
478
479 PROCEDURE process_lpd(
480 p_api_version IN NUMBER,
481 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
482 x_return_status OUT NOCOPY VARCHAR2,
483 x_msg_count OUT NOCOPY NUMBER,
484 x_msg_data OUT NOCOPY VARCHAR2,
485 p_ppd_request_id IN NUMBER)
486 AS
487
488 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
489 l_msg_count NUMBER;
490 l_msg_data VARCHAR2(2000);
491
492 BEGIN
493 ------------ Call to Private Process API--------------
494
495 okl_cs_principal_paydown_pvt.process_lpd (p_api_version => p_api_version,
496 p_init_msg_list => p_init_msg_list,
497 x_return_status => l_return_status,
498 x_msg_count => l_msg_count,
499 x_msg_data => l_msg_data,
500 p_ppd_request_id => p_ppd_request_id);
501
502 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
503 RAISE OKL_API.G_EXCEPTION_ERROR;
504 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
505 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
506 END IF;
507
508 ------------ End Call to Private Process API--------------
509 x_return_status := l_return_status;
510 x_msg_count := l_msg_count;
511 x_msg_data := l_msg_data;
512
513 EXCEPTION
514
515 WHEN OKL_API.G_EXCEPTION_ERROR THEN
516
517 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
518 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
519 p_data => x_msg_data);
520
521 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
522
523 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
524 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
525 p_data => x_msg_data);
526
527 WHEN OTHERS THEN
528
529 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
530 FND_MSG_PUB.ADD_EXC_MSG('OKL_CS_PRINCIPAL_PAYDOWN_PUB','process_ppd');
531 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
532 p_data => x_msg_data);
533 END process_lpd;
534
535 END OKL_CS_PRINCIPAL_PAYDOWN_PUB;