[Home] [Help]
PACKAGE BODY: APPS.OKL_PAY_CURE_REFUNDS_PUB
Source
1 PACKAGE BODY OKL_PAY_CURE_REFUNDS_PUB as
2 /* $Header: OKLPPCRB.pls 120.2 2006/08/11 10:46:32 gboomina noship $ */
3
4 G_MODULE VARCHAR2(255) := 'okl.stream.esg.okl_esg_transport_pvt';
5 G_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6 G_IS_DEBUG_STATEMENT_ON BOOLEAN;
7
8 PROCEDURE create_refund_hdr
9 ( p_api_version IN NUMBER
10 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE
11 ,p_commit IN VARCHAR2 DEFAULT OKC_API.G_FALSE
12 ,p_pay_cure_refunds_rec IN pay_cure_refunds_rec_type
13 ,x_cure_refund_header_id OUT NOCOPY NUMBER
14 ,x_return_status OUT NOCOPY VARCHAR2
15 ,x_msg_count OUT NOCOPY NUMBER
16 ,x_msg_data OUT NOCOPY VARCHAR2
17 )IS
18
19 l_api_version NUMBER := 1;
20 l_init_msg_list VARCHAR2(1);
21 l_return_status VARCHAR2(1);
22 l_msg_count NUMBER ;
23 l_msg_data VARCHAR2(32627);
24 l_cure_refund_header_id okl_cure_refund_headers_b.cure_refund_header_id%type;
25 l_pay_cure_refunds_rec pay_cure_refunds_rec_type
26 :=p_pay_cure_refunds_rec;
27 l_api_name CONSTANT VARCHAR2(50) := 'CREATE_REFUND_HDR';
28 l_api_name_full CONSTANT VARCHAR2(150):= g_pkg_name || '.' || l_api_name;
29
30 BEGIN
31
32 SAVEPOINT CREATE_REFUND_HDR;
33
34 -- Standard call to check for call compatibility.
35 IF NOT FND_API.Compatible_API_Call ( l_api_version,
36 p_api_version,
37 l_api_name,
38 G_PKG_NAME)
39 THEN
40 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41 END IF;
42
43 -- Initialize message list if p_init_msg_list is set to TRUE.
44 IF FND_API.to_Boolean( p_init_msg_list )
45 THEN
46 FND_MSG_PUB.initialize;
47 END IF;
48
49 IF PG_DEBUG < 11 THEN
50 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
51 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling '||
52 'okl_pay_cure_refunds_pvt.CREATE_REFUND_HDR');
53 END IF;
54 END IF;
55
56 l_return_status := FND_API.G_RET_STS_SUCCESS;
57
58 okl_pay_cure_refunds_pvt.CREATE_REFUND_HDR(
59 p_api_version => l_api_version
60 ,p_init_msg_list => p_init_msg_list
61 ,p_commit => p_commit
62 ,x_return_status => l_return_status
63 ,x_msg_count => l_msg_count
64 ,x_msg_data => l_msg_data
65 ,p_pay_cure_refunds_rec => l_pay_cure_refunds_rec
66 ,x_cure_refund_header_id => l_cure_refund_header_id);
67
68 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
69 RAISE Fnd_Api.G_EXC_ERROR;
70 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
71 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
72 ELSE
73 IF PG_DEBUG < 11 THEN
74 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
75 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'okl_pay_cure_refunds_pvt.CREATE_REFUND_HDR'
76 ||l_return_status || 'refund_id' ||l_cure_refund_header_id);
77 END IF;
78 END IF;
79 x_cure_refund_header_id :=l_cure_refund_header_id;
80 x_return_status :=l_return_status;
81 END IF;
82
83 -- Standard check for p_commit
84 IF FND_API.to_Boolean( p_commit )
85 THEN
86 COMMIT WORK;
87 END IF;
88
89 FND_MSG_PUB.Count_And_Get
90 ( p_count => x_msg_count,
91 p_data => x_msg_data
92 );
93
94
95
96
97 EXCEPTION
98
99 WHEN Fnd_Api.G_EXC_ERROR THEN
100 ROLLBACK TO CREATE_REFUND_HDR;
101 x_return_status := Fnd_Api.G_RET_STS_ERROR;
102 x_msg_count := l_msg_count ;
103 x_msg_data := l_msg_data ;
104 Fnd_Msg_Pub.count_and_get(
105 p_count => x_msg_count
106 ,p_data => x_msg_data);
107 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
108 ROLLBACK TO CREATE_REFUND_HDR;
109 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
110 x_msg_count := l_msg_count ;
111 x_msg_data := l_msg_data ;
112 Fnd_Msg_Pub.count_and_get(
113 p_count => x_msg_count
114 ,p_data => x_msg_data);
115 WHEN OTHERS THEN
116 ROLLBACK TO CREATE_REFUND_HDR;
117 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
118 x_msg_count := l_msg_count ;
119 x_msg_data := l_msg_data ;
120 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PUB','CREATE_REFUND_HDR');
121 Fnd_Msg_Pub.count_and_get(
122 p_count => x_msg_count
123 ,p_data => x_msg_data);
124 END create_refund_hdr;
125
126 PROCEDURE delete_refund_hdr
127 ( p_api_version IN NUMBER
128 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE
129 ,p_commit IN VARCHAR2 DEFAULT OKC_API.G_FALSE
130 ,p_refund_header_id IN NUMBER
131 ,x_return_status OUT NOCOPY VARCHAR2
132 ,x_msg_count OUT NOCOPY NUMBER
133 ,x_msg_data OUT NOCOPY VARCHAR2
134 ) IS
135 l_api_version NUMBER := 1;
136 l_init_msg_list VARCHAR2(1);
137 l_return_status VARCHAR2(1);
138 l_msg_count NUMBER ;
139 l_msg_data VARCHAR2(32627);
140 l_api_name CONSTANT VARCHAR2(50) := 'DELETE_REFUND_HDR';
141 l_api_name_full CONSTANT VARCHAR2(150):= g_pkg_name || '.' || l_api_name;
142
143 BEGIN
144
145 SAVEPOINT DELETE_REFUND_HDR;
146 -- Standard call to check for call compatibility.
147 IF NOT FND_API.Compatible_API_Call ( l_api_version,
148 p_api_version,
149 l_api_name,
150 G_PKG_NAME)
151 THEN
152 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153 END IF;
154
155 -- Initialize message list if p_init_msg_list is set to TRUE.
156 IF FND_API.to_Boolean( p_init_msg_list )
157 THEN
158 FND_MSG_PUB.initialize;
159 END IF;
160
161 IF PG_DEBUG < 11 THEN
162 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
163 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling '||
164 'okl_pay_cure_refunds_pvt.DELETE_REFUND_HDR');
165 END IF;
166 END IF;
167
168 l_return_status := FND_API.G_RET_STS_SUCCESS;
169
170 okl_pay_cure_refunds_pvt.DELETE_REFUND_HDR(
171 p_api_version => l_api_version
172 ,p_init_msg_list => p_init_msg_list
173 ,p_commit => p_commit
174 ,x_return_status => l_return_status
175 ,x_msg_count => l_msg_count
176 ,x_msg_data => l_msg_data
177 ,p_refund_header_id => p_refund_header_id);
178
179 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
180 RAISE Fnd_Api.G_EXC_ERROR;
181 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
182 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
183 ELSE
184 IF PG_DEBUG < 11 THEN
185 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
186 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'success - delete refund batch');
187 END IF;
188 END IF;
189 x_return_status :=l_return_status;
190 END IF;
191
192 -- Standard check for p_commit
193 IF FND_API.to_Boolean( p_commit )
194 THEN
195 COMMIT WORK;
196 END IF;
197
198 FND_MSG_PUB.Count_And_Get
199 ( p_count => x_msg_count,
200 p_data => x_msg_data
201 );
202
203
204 EXCEPTION
205
206 WHEN Fnd_Api.G_EXC_ERROR THEN
207 ROLLBACK TO DELETE_REFUND_HDR;
208 x_return_status := Fnd_Api.G_RET_STS_ERROR;
209 x_msg_count := l_msg_count ;
210 x_msg_data := l_msg_data ;
211 Fnd_Msg_Pub.count_and_get(
212 p_count => x_msg_count
213 ,p_data => x_msg_data);
214 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
215 ROLLBACK TO DELETE_REFUND_HDR;
216 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
217 x_msg_count := l_msg_count ;
218 x_msg_data := l_msg_data ;
219 Fnd_Msg_Pub.count_and_get(
220 p_count => x_msg_count
221 ,p_data => x_msg_data);
222 WHEN OTHERS THEN
223 ROLLBACK TO DELETE_REFUND_HDR;
224 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
225 x_msg_count := l_msg_count ;
226 x_msg_data := l_msg_data ;
227 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PUB','DELETE_REFUND_HDR');
228 Fnd_Msg_Pub.count_and_get(
229 p_count => x_msg_count
230 ,p_data => x_msg_data);
231
232
233 END delete_refund_hdr;
234
235 PROCEDURE update_refund_hdr
236 ( p_api_version IN NUMBER
237 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE
238 ,p_commit IN VARCHAR2 DEFAULT OKC_API.G_FALSE
239 ,p_pay_cure_refunds_rec IN pay_cure_refunds_rec_type
240 ,x_return_status OUT NOCOPY VARCHAR2
241 ,x_msg_count OUT NOCOPY NUMBER
242 ,x_msg_data OUT NOCOPY VARCHAR2
243 ) IS
244
245
246 l_api_version NUMBER := 1;
247 l_init_msg_list VARCHAR2(1);
248 l_return_status VARCHAR2(1);
249 l_msg_count NUMBER ;
250 l_msg_data VARCHAR2(32627);
251 l_api_name CONSTANT VARCHAR2(50) := 'UPDATE_REFUND_HDR';
252 l_api_name_full CONSTANT VARCHAR2(150):= g_pkg_name || '.' || l_api_name;
253 l_pay_cure_refunds_rec pay_cure_refunds_rec_type
254 :=p_pay_cure_refunds_rec;
255
256 BEGIN
257
258 SAVEPOINT UPDATE_REFUND_HDR;
259
260 -- Standard call to check for call compatibility.
261 IF NOT FND_API.Compatible_API_Call ( l_api_version,
262 p_api_version,
263 l_api_name,
264 G_PKG_NAME)
265 THEN
266 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267 END IF;
268
269 -- Initialize message list if p_init_msg_list is set to TRUE.
270 IF FND_API.to_Boolean( p_init_msg_list )
271 THEN
272 FND_MSG_PUB.initialize;
273 END IF;
274
275 IF PG_DEBUG < 11 THEN
276 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
277 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling '||
278 'okl_pay_cure_refunds_pvt.UPDATE_REFUND_HDR');
279 END IF;
280 END IF;
281
282 l_return_status := FND_API.G_RET_STS_SUCCESS;
283
284 okl_pay_cure_refunds_pvt.UPDATE_REFUND_HDR(
285 p_api_version => l_api_version
286 ,p_init_msg_list => p_init_msg_list
287 ,p_commit => p_commit
288 ,x_return_status => l_return_status
289 ,x_msg_count => l_msg_count
290 ,x_msg_data => l_msg_data
291 ,p_pay_cure_refunds_rec => l_pay_cure_refunds_rec);
292
293
294 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
295 RAISE Fnd_Api.G_EXC_ERROR;
296 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
297 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
298 ELSE
299 IF PG_DEBUG < 11 THEN
300 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
301 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'okl_pay_cure_refunds_pvt.UPDATE_REFUND_HDR'
302 ||l_return_status );
303 END IF;
304 END IF;
305 x_return_status :=l_return_status;
306 END IF;
307
308 -- Standard check for p_commit
309 IF FND_API.to_Boolean( p_commit )
310 THEN
311 COMMIT WORK;
312 END IF;
313
314 FND_MSG_PUB.Count_And_Get
315 ( p_count => x_msg_count,
316 p_data => x_msg_data
317 );
318
319 EXCEPTION
320 WHEN Fnd_Api.G_EXC_ERROR THEN
321 ROLLBACK TO UPDATE_REFUND_HDR;
322 x_return_status := Fnd_Api.G_RET_STS_ERROR;
323 x_msg_count := l_msg_count ;
324 x_msg_data := l_msg_data ;
325 Fnd_Msg_Pub.count_and_get(
326 p_count => x_msg_count
327 ,p_data => x_msg_data);
328 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
329 ROLLBACK TO UPDATE_REFUND_HDR;
330 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
331 x_msg_count := l_msg_count ;
332 x_msg_data := l_msg_data ;
333 Fnd_Msg_Pub.count_and_get(
334 p_count => x_msg_count
335 ,p_data => x_msg_data);
336 WHEN OTHERS THEN
337 ROLLBACK TO UPDATE_REFUND_HDR;
338 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
339 x_msg_count := l_msg_count ;
340 x_msg_data := l_msg_data ;
341 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PUB','UPDATE_REFUND_HDR');
342 Fnd_Msg_Pub.count_and_get(
343 p_count => x_msg_count
344 ,p_data => x_msg_data);
345
346 END update_refund_hdr;
347
348 PROCEDURE submit_cure_refund_hdr
349 ( p_api_version IN NUMBER
350 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE
351 ,p_commit IN VARCHAR2 DEFAULT OKC_API.G_FALSE
352 ,p_refund_header_id IN NUMBER
353 ,x_return_status OUT NOCOPY VARCHAR2
354 ,x_msg_count OUT NOCOPY NUMBER
355 ,x_msg_data OUT NOCOPY VARCHAR2
356 ) IS
357
358 l_api_version NUMBER := 1;
359 l_init_msg_list VARCHAR2(1);
360 l_return_status VARCHAR2(1);
361 l_msg_count NUMBER ;
362 l_msg_data VARCHAR2(32627);
363 l_api_name CONSTANT VARCHAR2(50) := 'SUBMIT_CURE_REFUND_HDR';
364 l_api_name_full CONSTANT VARCHAR2(150):= g_pkg_name || '.' || l_api_name;
365
366 BEGIN
367
368 SAVEPOINT SUBMIT_CURE_REFUND_HDR;
369
370 -- Standard call to check for call compatibility.
371 IF NOT FND_API.Compatible_API_Call ( l_api_version,
372 p_api_version,
373 l_api_name,
374 G_PKG_NAME)
375 THEN
376 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
377 END IF;
378
379 -- Initialize message list if p_init_msg_list is set to TRUE.
380 IF FND_API.to_Boolean( p_init_msg_list )
381 THEN
382 FND_MSG_PUB.initialize;
383 END IF;
384
385 IF PG_DEBUG < 11 THEN
386 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
387 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling '||
388 'okl_pay_cure_refunds_pvt.SUBMIT_CURE_REFUND_HDR');
389 END IF;
390 END IF;
391
392 l_return_status := FND_API.G_RET_STS_SUCCESS;
393
394 okl_pay_cure_refunds_pvt.SUBMIT_CURE_REFUND_HDR(
395 p_api_version => l_api_version
396 ,p_init_msg_list => p_init_msg_list
397 ,p_commit => p_commit
398 ,x_return_status => l_return_status
399 ,x_msg_count => l_msg_count
400 ,x_msg_data => l_msg_data
401 ,p_refund_header_id => p_refund_header_id);
402
403 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
404 RAISE Fnd_Api.G_EXC_ERROR;
405 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
406 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
407 ELSE
408 IF PG_DEBUG < 11 THEN
409 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
410 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'success - changed status to ENETRED');
411 END IF;
412 END IF;
413 x_return_status :=l_return_status;
414 END IF;
415
416 -- Standard check for p_commit
417 IF FND_API.to_Boolean( p_commit )
418 THEN
419 COMMIT WORK;
420 END IF;
421
422 FND_MSG_PUB.Count_And_Get
423 ( p_count => x_msg_count,
424 p_data => x_msg_data
425 );
426
427
428 EXCEPTION
429
430 WHEN Fnd_Api.G_EXC_ERROR THEN
431 ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
432 x_return_status := Fnd_Api.G_RET_STS_ERROR;
433 x_msg_count := l_msg_count ;
434 x_msg_data := l_msg_data ;
435 Fnd_Msg_Pub.count_and_get(
436 p_count => x_msg_count
437 ,p_data => x_msg_data);
438 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
439 ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
440 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
441 x_msg_count := l_msg_count ;
442 x_msg_data := l_msg_data ;
443 Fnd_Msg_Pub.count_and_get(
444 p_count => x_msg_count
445 ,p_data => x_msg_data);
446 WHEN OTHERS THEN
447 ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
448 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
449 x_msg_count := l_msg_count ;
450 x_msg_data := l_msg_data ;
451 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PUB','SUBMIT_CURE_REFUND_HDR');
452 Fnd_Msg_Pub.count_and_get(
453 p_count => x_msg_count
454 ,p_data => x_msg_data);
455
456 END submit_cure_refund_hdr;
457
458 PROCEDURE approve_cure_refunds
459 ( p_api_version IN NUMBER
460 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE
461 ,p_commit IN VARCHAR2 DEFAULT OKC_API.G_FALSE
462 ,p_refund_header_id IN NUMBER
463 ,x_return_status OUT NOCOPY VARCHAR2
464 ,x_msg_count OUT NOCOPY NUMBER
465 ,x_msg_data OUT NOCOPY VARCHAR2
466 )
467 IS
468
469 l_api_version NUMBER := 1;
470 l_init_msg_list VARCHAR2(1);
471 l_return_status VARCHAR2(1);
472 l_msg_count NUMBER ;
473 l_msg_data VARCHAR2(32627);
474 l_api_name CONSTANT VARCHAR2(50) := 'APPROVE_CURE_REFUNDS';
475 l_api_name_full CONSTANT VARCHAR2(150):= g_pkg_name || '.' || l_api_name;
476
477 BEGIN
478
479 SAVEPOINT APPROVE_CURE_REFUNDS;
480 -- Standard call to check for call compatibility.
481 IF NOT FND_API.Compatible_API_Call ( l_api_version,
482
483 p_api_version,
484 l_api_name,
485 G_PKG_NAME)
486 THEN
487 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488 END IF;
489
490 -- Initialize message list if p_init_msg_list is set to TRUE.
491 IF FND_API.to_Boolean( p_init_msg_list )
492 THEN
493 FND_MSG_PUB.initialize;
494 END IF;
495
496 IF PG_DEBUG < 11 THEN
497 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
498 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling '||
499 'okl_pay_cure_refunds_pvt.SUBMIT_CURE_REFUNDS');
500 END IF;
501 END IF;
502
503 l_return_status := FND_API.G_RET_STS_SUCCESS;
504
505 okl_pay_cure_refunds_pvt.APPROVE_CURE_REFUNDS(
506 p_api_version => l_api_version
507 ,p_init_msg_list => p_init_msg_list
508 ,p_commit => p_commit
509 ,x_return_status => l_return_status
510 ,x_msg_count => l_msg_count
511 ,x_msg_data => l_msg_data
512 ,p_refund_header_id => p_refund_header_id
513 );
514
515 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
516 RAISE Fnd_Api.G_EXC_ERROR;
517 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
518 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
519 ELSE
520 IF PG_DEBUG < 11 THEN
521 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
522 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'success - CREATED cure refunds');
523 END IF;
524 END IF;
525 x_return_status :=l_return_status;
526 END IF;
527
528
529 -- Standard check for p_commit
530 IF FND_API.to_Boolean( p_commit )
531 THEN
532 COMMIT WORK;
533 END IF;
534
535 FND_MSG_PUB.Count_And_Get
536 ( p_count => x_msg_count,
537 p_data => x_msg_data
538 );
539
540 EXCEPTION
541
542 WHEN Fnd_Api.G_EXC_ERROR THEN
543 ROLLBACK TO APPROVE_CURE_REFUNDS;
544 x_return_status := Fnd_Api.G_RET_STS_ERROR;
545 x_msg_count := l_msg_count ;
546 x_msg_data := l_msg_data ;
547 Fnd_Msg_Pub.count_and_get(
548 p_count => x_msg_count
549 ,p_data => x_msg_data);
550 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
551 ROLLBACK TO APPROVE_CURE_REFUNDS;
552 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
553 x_msg_count := l_msg_count ;
554 x_msg_data := l_msg_data ;
555 Fnd_Msg_Pub.count_and_get(
556 p_count => x_msg_count
557 ,p_data => x_msg_data);
558 WHEN OTHERS THEN
559 ROLLBACK TO APPROVE_CURE_REFUNDS;
560 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
561 x_msg_count := l_msg_count ;
562 x_msg_data := l_msg_data ;
563 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PUB','APPROVE_CURE_REFUNDS');
564 Fnd_Msg_Pub.count_and_get(
565 p_count => x_msg_count
566 ,p_data => x_msg_data);
567
568 END approve_cure_refunds;
569
570
571
572
573 PROCEDURE submit_cure_refunds
574 ( p_api_version IN NUMBER
575 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE
576 ,p_commit IN VARCHAR2 DEFAULT OKC_API.G_FALSE
577 ,p_status IN VARCHAR2
578 ,p_refund_header_id IN NUMBER
579 ,x_return_status OUT NOCOPY VARCHAR2
580 ,x_msg_count OUT NOCOPY NUMBER
581 ,x_msg_data OUT NOCOPY VARCHAR2)
582 IS
583
584 l_api_version NUMBER := 1;
585 l_init_msg_list VARCHAR2(1);
586 l_return_status VARCHAR2(1);
587 l_msg_count NUMBER ;
588 l_msg_data VARCHAR2(32627);
589 l_api_name CONSTANT VARCHAR2(50) := 'SUBMIT_CURE_REFUNDS';
590 l_api_name_full CONSTANT VARCHAR2(150):= g_pkg_name || '.' || l_api_name;
591
592 BEGIN
593
594 SAVEPOINT SUBMIT_CURE_REFUNDS;
595 -- Standard call to check for call compatibility.
596 IF NOT FND_API.Compatible_API_Call ( l_api_version,
597
598 p_api_version,
599 l_api_name,
600 G_PKG_NAME)
601 THEN
602 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
603 END IF;
604
605 -- Initialize message list if p_init_msg_list is set to TRUE.
606 IF FND_API.to_Boolean( p_init_msg_list )
607 THEN
608 FND_MSG_PUB.initialize;
609 END IF;
610
611 IF PG_DEBUG < 11 THEN
612 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
613 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling '||
614 'okl_pay_cure_refunds_pvt.SUBMIT_CURE_REFUNDS');
615 END IF;
616 END IF;
617
618 l_return_status := FND_API.G_RET_STS_SUCCESS;
619
620 okl_pay_cure_refunds_pvt.SUBMIT_CURE_REFUNDS(
621 p_api_version => l_api_version
622 ,p_init_msg_list => p_init_msg_list
623 ,p_commit => p_commit
624 ,p_status =>p_status
625 ,x_return_status => l_return_status
626 ,x_msg_count => l_msg_count
627 ,x_msg_data => l_msg_data
628 ,p_refund_header_id => p_refund_header_id
629 );
630
631 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
632 RAISE Fnd_Api.G_EXC_ERROR;
633 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
634 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
635 ELSE
636 IF PG_DEBUG < 11 THEN
637 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
638 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'success - CREATED cure refunds');
639 END IF;
640 END IF;
641 x_return_status :=l_return_status;
642 END IF;
643
644
645 -- Standard check for p_commit
646 IF FND_API.to_Boolean( p_commit )
647 THEN
648 COMMIT WORK;
649 END IF;
650
651 FND_MSG_PUB.Count_And_Get
652 ( p_count => x_msg_count,
653 p_data => x_msg_data
654 );
655
656 EXCEPTION
657
658 WHEN Fnd_Api.G_EXC_ERROR THEN
659 ROLLBACK TO SUBMIT_CURE_REFUNDS;
660 x_return_status := Fnd_Api.G_RET_STS_ERROR;
661 x_msg_count := l_msg_count ;
662 x_msg_data := l_msg_data ;
663 Fnd_Msg_Pub.count_and_get(
664 p_count => x_msg_count
665 ,p_data => x_msg_data);
666 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
667 ROLLBACK TO SUBMIT_CURE_REFUNDS;
668 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
669 x_msg_count := l_msg_count ;
670 x_msg_data := l_msg_data ;
671 Fnd_Msg_Pub.count_and_get(
672 p_count => x_msg_count
673 ,p_data => x_msg_data);
674 WHEN OTHERS THEN
675 ROLLBACK TO SUBMIT_CURE_REFUNDS;
676 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
677 x_msg_count := l_msg_count ;
678 x_msg_data := l_msg_data ;
679 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PUB','SUBMIT_CURE_REFUNDS');
680 Fnd_Msg_Pub.count_and_get(
681 p_count => x_msg_count
682 ,p_data => x_msg_data);
683
684 END SUBMIT_cure_refunds;
685
686
687 PROCEDURE create_refund_headers
688 ( p_api_version IN NUMBER
689 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE
690 ,p_commit IN VARCHAR2 DEFAULT OKC_API.G_FALSE
691 ,p_pay_cure_refunds_rec IN pay_cure_refunds_rec_type
692 ,x_cure_refund_header_id OUT NOCOPY NUMBER
693 ,x_return_status OUT NOCOPY VARCHAR2
694 ,x_msg_count OUT NOCOPY NUMBER
695 ,x_msg_data OUT NOCOPY VARCHAR2
696 )IS
697
698 l_api_version NUMBER := 1;
699 l_init_msg_list VARCHAR2(1);
700 l_return_status VARCHAR2(1);
701 l_msg_count NUMBER ;
702 l_msg_data VARCHAR2(32627);
703 l_cure_refund_header_id okl_cure_refund_headers_b.cure_refund_header_id%type;
704 l_pay_cure_refunds_rec pay_cure_refunds_rec_type
705 :=p_pay_cure_refunds_rec;
706 l_api_name CONSTANT VARCHAR2(50) := 'CREATE_REFUND_headers';
707 l_api_name_full CONSTANT VARCHAR2(150):= g_pkg_name || '.' || l_api_name;
708
709 BEGIN
710
711 SAVEPOINT CREATE_REFUND_HEADERS;
712
713 -- Standard call to check for call compatibility.
714 IF NOT FND_API.Compatible_API_Call ( l_api_version,
715 p_api_version,
716 l_api_name,
717 G_PKG_NAME)
718 THEN
719 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
720 END IF;
721
722 -- Initialize message list if p_init_msg_list is set to TRUE.
723 IF FND_API.to_Boolean( p_init_msg_list )
724 THEN
725 FND_MSG_PUB.initialize;
726 END IF;
727
728 IF PG_DEBUG < 11 THEN
729 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
730 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling '||
731 'okl_pay_cure_refunds_pvt.CREATE_REFUND_headers');
732 END IF;
733 END IF;
734
735 l_return_status := FND_API.G_RET_STS_SUCCESS;
736
737 okl_pay_cure_refunds_pvt.CREATE_REFUND_headers(
738 p_api_version => l_api_version
739 ,p_init_msg_list => p_init_msg_list
740 ,p_commit => p_commit
741 ,x_return_status => l_return_status
742 ,x_msg_count => l_msg_count
743 ,x_msg_data => l_msg_data
744 ,p_pay_cure_refunds_rec => l_pay_cure_refunds_rec
745 ,x_cure_refund_header_id => l_cure_refund_header_id);
746
747 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
748 RAISE Fnd_Api.G_EXC_ERROR;
749 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
750 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
751 ELSE
752 IF PG_DEBUG < 11 THEN
753 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
754 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'okl_pay_cure_refunds_pvt.CREATE_REFUND_headers'
755 ||l_return_status || 'refund_id' ||l_cure_refund_header_id);
756 END IF;
757 END IF;
758 x_cure_refund_header_id :=l_cure_refund_header_id;
759 x_return_status :=l_return_status;
760 END IF;
761
762 -- Standard check for p_commit
763 IF FND_API.to_Boolean( p_commit )
764 THEN
765 COMMIT WORK;
766 END IF;
767
768 FND_MSG_PUB.Count_And_Get
769 ( p_count => x_msg_count,
770 p_data => x_msg_data
771 );
772
773
774
775
776 EXCEPTION
777
778 WHEN Fnd_Api.G_EXC_ERROR THEN
779 ROLLBACK TO CREATE_REFUND_HEADERS;
780 x_return_status := Fnd_Api.G_RET_STS_ERROR;
781 x_msg_count := l_msg_count ;
782 x_msg_data := l_msg_data ;
783 Fnd_Msg_Pub.count_and_get(
784 p_count => x_msg_count
785 ,p_data => x_msg_data);
786 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
787 ROLLBACK TO CREATE_REFUND_HEADERS;
788 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
789 x_msg_count := l_msg_count ;
790 x_msg_data := l_msg_data ;
791 Fnd_Msg_Pub.count_and_get(
792 p_count => x_msg_count
793 ,p_data => x_msg_data);
794 WHEN OTHERS THEN
795 ROLLBACK TO CREATE_REFUND_HEADERS;
796 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
797 x_msg_count := l_msg_count ;
798 x_msg_data := l_msg_data ;
799 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PUB','CREATE_REFUND_HEADERS');
800 Fnd_Msg_Pub.count_and_get(
801 p_count => x_msg_count
802 ,p_data => x_msg_data);
803 END create_refund_headers;
804
805
806 PROCEDURE UPDATE_REFUND_HEADERS
807 ( p_api_version IN NUMBER
808 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE
809 ,p_commit IN VARCHAR2 DEFAULT OKC_API.G_FALSE
810 ,p_pay_cure_refunds_rec IN pay_cure_refunds_rec_type
811 ,x_return_status OUT NOCOPY VARCHAR2
812 ,x_msg_count OUT NOCOPY NUMBER
813 ,x_msg_data OUT NOCOPY VARCHAR2
814 ) IS
815
816
817 l_api_version NUMBER := 1;
818 l_init_msg_list VARCHAR2(1);
819 l_return_status VARCHAR2(1);
820 l_msg_count NUMBER ;
821 l_msg_data VARCHAR2(32627);
822 l_api_name CONSTANT VARCHAR2(50) := 'UPDATE_REFUND_HEADERS';
823 l_api_name_full CONSTANT VARCHAR2(150):= g_pkg_name || '.' || l_api_name;
824 l_pay_cure_refunds_rec pay_cure_refunds_rec_type
825 :=p_pay_cure_refunds_rec;
826
827 BEGIN
828
829 SAVEPOINT UPDATE_REFUND_HEADERS;
830
831 -- Standard call to check for call compatibility.
832 IF NOT FND_API.Compatible_API_Call ( l_api_version,
833 p_api_version,
834 l_api_name,
835 G_PKG_NAME)
836 THEN
837 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
838 END IF;
839
840 -- Initialize message list if p_init_msg_list is set to TRUE.
841 IF FND_API.to_Boolean( p_init_msg_list )
842 THEN
843 FND_MSG_PUB.initialize;
844 END IF;
845
846 IF PG_DEBUG < 11 THEN
847 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
848 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling '||
849 'okl_pay_cure_refunds_pvt.UPDATE_REFUND_HEADERS');
850 END IF;
851 END IF;
852
853 l_return_status := FND_API.G_RET_STS_SUCCESS;
854
855 okl_pay_cure_refunds_pvt.UPDATE_REFUND_HEADERS(
856 p_api_version => l_api_version
857 ,p_init_msg_list => p_init_msg_list
858 ,p_commit => p_commit
859 ,x_return_status => l_return_status
860 ,x_msg_count => l_msg_count
861 ,x_msg_data => l_msg_data
862 ,p_pay_cure_refunds_rec => l_pay_cure_refunds_rec);
863
864
865 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
866 RAISE Fnd_Api.G_EXC_ERROR;
867 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
868 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
869 ELSE
870 IF PG_DEBUG < 11 THEN
871 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
872 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'okl_pay_cure_refunds_pvt.UPDATE_REFUND_HEADERS'
873 ||l_return_status );
874 END IF;
875 END IF;
876 x_return_status :=l_return_status;
877 END IF;
878
879 -- Standard check for p_commit
880 IF FND_API.to_Boolean( p_commit )
881 THEN
882 COMMIT WORK;
883 END IF;
884
885 FND_MSG_PUB.Count_And_Get
886 ( p_count => x_msg_count,
887 p_data => x_msg_data
888 );
889
890 EXCEPTION
891 WHEN Fnd_Api.G_EXC_ERROR THEN
892 ROLLBACK TO UPDATE_REFUND_HEADERS;
893 x_return_status := Fnd_Api.G_RET_STS_ERROR;
894 x_msg_count := l_msg_count ;
895 x_msg_data := l_msg_data ;
896 Fnd_Msg_Pub.count_and_get(
897 p_count => x_msg_count
898 ,p_data => x_msg_data);
899 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
900 ROLLBACK TO UPDATE_REFUND_HEADERS;
901 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
902 x_msg_count := l_msg_count ;
903 x_msg_data := l_msg_data ;
904 Fnd_Msg_Pub.count_and_get(
905 p_count => x_msg_count
906 ,p_data => x_msg_data);
907 WHEN OTHERS THEN
908 ROLLBACK TO UPDATE_REFUND_HEADERS;
909 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
910 x_msg_count := l_msg_count ;
911 x_msg_data := l_msg_data ;
912 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PUB','UPDATE_REFUND_HEADERS');
913 Fnd_Msg_Pub.count_and_get(
914 p_count => x_msg_count
915 ,p_data => x_msg_data);
916
917 END UPDATE_REFUND_HEADERS;
918
919 PROCEDURE CREATE_REFUND_DETAILS
920 ( p_api_version IN NUMBER
921 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE
922 ,p_commit IN VARCHAR2 DEFAULT OKC_API.G_FALSE
923 ,p_pay_cure_refunds_tbl IN pay_cure_refunds_tbl_type
924 ,x_return_status OUT NOCOPY VARCHAR2
925 ,x_msg_count OUT NOCOPY NUMBER
926 ,x_msg_data OUT NOCOPY VARCHAR2
927 ) IS
928
929
930 l_api_version NUMBER := 1;
931 l_init_msg_list VARCHAR2(1);
932 l_return_status VARCHAR2(1);
933 l_msg_count NUMBER ;
934 l_msg_data VARCHAR2(32627);
935 l_api_name CONSTANT VARCHAR2(50) := 'CREATE_REFUND_DETAILS';
936 l_api_name_full CONSTANT VARCHAR2(150):= g_pkg_name || '.' || l_api_name;
937 l_pay_cure_refunds_tbl pay_cure_refunds_tbl_type
938 :=p_pay_cure_refunds_tbl;
939
940 BEGIN
941
942 SAVEPOINT CREATE_REFUND_DETAILS;
943
944 -- Standard call to check for call compatibility.
945 IF NOT FND_API.Compatible_API_Call ( l_api_version,
946 p_api_version,
947 l_api_name,
948 G_PKG_NAME)
949 THEN
950 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
951 END IF;
952
953 -- Initialize message list if p_init_msg_list is set to TRUE.
954 IF FND_API.to_Boolean( p_init_msg_list )
955 THEN
956 FND_MSG_PUB.initialize;
957 END IF;
958
959 IF PG_DEBUG < 11 THEN
960 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
961 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling '||
962 'okl_pay_cure_refunds_pvt.CREATE_REFUND_DETAILS');
963 END IF;
964 END IF;
965
966 l_return_status := FND_API.G_RET_STS_SUCCESS;
967
968 okl_pay_cure_refunds_pvt.CREATE_REFUND_DETAILS(
969 p_api_version => l_api_version
970 ,p_init_msg_list => p_init_msg_list
971 ,p_commit => p_commit
972 ,x_return_status => l_return_status
973 ,x_msg_count => l_msg_count
974 ,x_msg_data => l_msg_data
975 ,p_pay_cure_refunds_tbl => l_pay_cure_refunds_tbl);
976
977
978 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
979 RAISE Fnd_Api.G_EXC_ERROR;
980 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
981 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
982 ELSE
983 IF PG_DEBUG < 11 THEN
984 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
985 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'okl_pay_cure_refunds_pvt.CREATE_REFUND_DETAILS'
986 ||l_return_status );
987 END IF;
988 END IF;
989 x_return_status :=l_return_status;
990 END IF;
991
992 -- Standard check for p_commit
993 IF FND_API.to_Boolean( p_commit )
994 THEN
995 COMMIT WORK;
996 END IF;
997
998 FND_MSG_PUB.Count_And_Get
999 ( p_count => x_msg_count,
1000 p_data => x_msg_data
1001 );
1002
1003 EXCEPTION
1004 WHEN Fnd_Api.G_EXC_ERROR THEN
1005 ROLLBACK TO CREATE_REFUND_DETAILS;
1006 x_return_status := Fnd_Api.G_RET_STS_ERROR;
1007 x_msg_count := l_msg_count ;
1008 x_msg_data := l_msg_data ;
1009 Fnd_Msg_Pub.count_and_get(
1010 p_count => x_msg_count
1011 ,p_data => x_msg_data);
1012 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1013 ROLLBACK TO CREATE_REFUND_DETAILS;
1014 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1015 x_msg_count := l_msg_count ;
1016 x_msg_data := l_msg_data ;
1017 Fnd_Msg_Pub.count_and_get(
1018 p_count => x_msg_count
1019 ,p_data => x_msg_data);
1020 WHEN OTHERS THEN
1021 ROLLBACK TO CREATE_REFUND_DETAILS;
1022 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1023 x_msg_count := l_msg_count ;
1024 x_msg_data := l_msg_data ;
1025 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PUB','CREATE_REFUND_DETAILS');
1026 Fnd_Msg_Pub.count_and_get(
1027 p_count => x_msg_count
1028 ,p_data => x_msg_data);
1029
1030 END CREATE_REFUND_DETAILS;
1031
1032
1033 PROCEDURE UPDATE_REFUND_DETAILS
1034 ( p_api_version IN NUMBER
1035 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE
1036 ,p_commit IN VARCHAR2 DEFAULT OKC_API.G_FALSE
1037 ,p_pay_cure_refunds_tbl IN pay_cure_refunds_tbl_type
1038 ,x_return_status OUT NOCOPY VARCHAR2
1039 ,x_msg_count OUT NOCOPY NUMBER
1040 ,x_msg_data OUT NOCOPY VARCHAR2
1041 ) IS
1042
1043
1044 l_api_version NUMBER := 1;
1045 l_init_msg_list VARCHAR2(1);
1046 l_return_status VARCHAR2(1);
1047 l_msg_count NUMBER ;
1048 l_msg_data VARCHAR2(32627);
1049 l_api_name CONSTANT VARCHAR2(50) := 'UPDATE_REFUND_DETAILS';
1050 l_api_name_full CONSTANT VARCHAR2(150):= g_pkg_name || '.' || l_api_name;
1051 l_pay_cure_refunds_tbl pay_cure_refunds_tbl_type
1052 :=p_pay_cure_refunds_tbl;
1053
1054 BEGIN
1055
1056 SAVEPOINT UPDATE_REFUND_DETAILS;
1057
1058 -- Standard call to check for call compatibility.
1059 IF NOT FND_API.Compatible_API_Call ( l_api_version,
1060 p_api_version,
1061 l_api_name,
1062 G_PKG_NAME)
1063 THEN
1064 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1065 END IF;
1066
1067 -- Initialize message list if p_init_msg_list is set to TRUE.
1068 IF FND_API.to_Boolean( p_init_msg_list )
1069 THEN
1070 FND_MSG_PUB.initialize;
1071 END IF;
1072
1073 IF PG_DEBUG < 11 THEN
1074 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1075 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling '||
1076 'okl_pay_cure_refunds_pvt.UPDATE_REFUND_DETAILS');
1077 END IF;
1078 END IF;
1079
1080 l_return_status := FND_API.G_RET_STS_SUCCESS;
1081
1082 okl_pay_cure_refunds_pvt.UPDATE_REFUND_DETAILS(
1083 p_api_version => l_api_version
1084 ,p_init_msg_list => p_init_msg_list
1085 ,p_commit => p_commit
1086 ,x_return_status => l_return_status
1087 ,x_msg_count => l_msg_count
1088 ,x_msg_data => l_msg_data
1089 ,p_pay_cure_refunds_tbl => l_pay_cure_refunds_tbl);
1090
1091
1092 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
1093 RAISE Fnd_Api.G_EXC_ERROR;
1094 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
1095 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1096 ELSE
1097 IF PG_DEBUG < 11 THEN
1098 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1099 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'okl_pay_cure_refunds_pvt.UPDATE_REFUND_DETAILS'
1100 ||l_return_status );
1101 END IF;
1102 END IF;
1103 x_return_status :=l_return_status;
1104 END IF;
1105
1106 -- Standard check for p_commit
1107 IF FND_API.to_Boolean( p_commit )
1108 THEN
1109 COMMIT WORK;
1110 END IF;
1111
1112 FND_MSG_PUB.Count_And_Get
1113 ( p_count => x_msg_count,
1114 p_data => x_msg_data
1115 );
1116
1117 EXCEPTION
1118 WHEN Fnd_Api.G_EXC_ERROR THEN
1119 ROLLBACK TO UPDATE_REFUND_DETAILS;
1120 x_return_status := Fnd_Api.G_RET_STS_ERROR;
1121 x_msg_count := l_msg_count ;
1122 x_msg_data := l_msg_data ;
1123 Fnd_Msg_Pub.count_and_get(
1124 p_count => x_msg_count
1125 ,p_data => x_msg_data);
1126 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1127 ROLLBACK TO UPDATE_REFUND_DETAILS;
1128 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1129 x_msg_count := l_msg_count ;
1130 x_msg_data := l_msg_data ;
1131 Fnd_Msg_Pub.count_and_get(
1132 p_count => x_msg_count
1133 ,p_data => x_msg_data);
1134 WHEN OTHERS THEN
1135 ROLLBACK TO UPDATE_REFUND_DETAILS;
1136 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1137 x_msg_count := l_msg_count ;
1138 x_msg_data := l_msg_data ;
1139 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PUB','UPDATE_REFUND_DETAILS');
1140 Fnd_Msg_Pub.count_and_get(
1141 p_count => x_msg_count
1142 ,p_data => x_msg_data);
1143
1144 END UPDATE_REFUND_DETAILS;
1145
1146 PROCEDURE DELETE_REFUND_DETAILS
1147 ( p_api_version IN NUMBER
1148 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE
1149 ,p_commit IN VARCHAR2 DEFAULT OKC_API.G_FALSE
1150 ,p_pay_cure_refunds_tbl IN pay_cure_refunds_tbl_type
1151 ,x_return_status OUT NOCOPY VARCHAR2
1152 ,x_msg_count OUT NOCOPY NUMBER
1153 ,x_msg_data OUT NOCOPY VARCHAR2
1154 ) IS
1155
1156
1157 l_api_version NUMBER := 1;
1158 l_init_msg_list VARCHAR2(1);
1159 l_return_status VARCHAR2(1);
1160 l_msg_count NUMBER ;
1161 l_msg_data VARCHAR2(32627);
1162 l_api_name CONSTANT VARCHAR2(50) := 'DELETE_REFUND_DETAILS';
1163 l_api_name_full CONSTANT VARCHAR2(150):= g_pkg_name || '.' || l_api_name;
1164 l_pay_cure_refunds_tbl pay_cure_refunds_tbl_type
1165 :=p_pay_cure_refunds_tbl;
1166
1167 BEGIN
1168
1169 SAVEPOINT DELETE_REFUND_DETAILS;
1170
1171 -- Standard call to check for call compatibility.
1172 IF NOT FND_API.Compatible_API_Call ( l_api_version,
1173 p_api_version,
1174 l_api_name,
1175 G_PKG_NAME)
1176 THEN
1177 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1178 END IF;
1179
1180 -- Initialize message list if p_init_msg_list is set to TRUE.
1181 IF FND_API.to_Boolean( p_init_msg_list )
1182 THEN
1183 FND_MSG_PUB.initialize;
1184 END IF;
1185
1186 IF PG_DEBUG < 11 THEN
1187 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1188 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling '||
1189 'okl_pay_cure_refunds_pvt.DELETE_REFUND_DETAILS');
1190 END IF;
1191 END IF;
1192
1193 l_return_status := FND_API.G_RET_STS_SUCCESS;
1194
1195 okl_pay_cure_refunds_pvt.DELETE_REFUND_DETAILS(
1196 p_api_version => l_api_version
1197 ,p_init_msg_list => p_init_msg_list
1198 ,p_commit => p_commit
1199 ,x_return_status => l_return_status
1200 ,x_msg_count => l_msg_count
1201 ,x_msg_data => l_msg_data
1202 ,p_pay_cure_refunds_tbl => l_pay_cure_refunds_tbl);
1203
1204
1205 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
1206 RAISE Fnd_Api.G_EXC_ERROR;
1207 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
1208 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1209 ELSE
1210 IF PG_DEBUG < 11 THEN
1211 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1212 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'okl_pay_cure_refunds_pvt.DELETE_REFUND_DETAILS'
1213 ||l_return_status );
1214 END IF;
1215 END IF;
1216 x_return_status :=l_return_status;
1217 END IF;
1218
1219 -- Standard check for p_commit
1220 IF FND_API.to_Boolean( p_commit )
1221 THEN
1222 COMMIT WORK;
1223 END IF;
1224
1225 FND_MSG_PUB.Count_And_Get
1226 ( p_count => x_msg_count,
1227 p_data => x_msg_data
1228 );
1229
1230 EXCEPTION
1231 WHEN Fnd_Api.G_EXC_ERROR THEN
1232 ROLLBACK TO DELETE_REFUND_DETAILS;
1233 x_return_status := Fnd_Api.G_RET_STS_ERROR;
1234 x_msg_count := l_msg_count ;
1235 x_msg_data := l_msg_data ;
1236 Fnd_Msg_Pub.count_and_get(
1237 p_count => x_msg_count
1238 ,p_data => x_msg_data);
1239 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1240 ROLLBACK TO DELETE_REFUND_DETAILS;
1241 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1242 x_msg_count := l_msg_count ;
1243 x_msg_data := l_msg_data ;
1244 Fnd_Msg_Pub.count_and_get(
1245 p_count => x_msg_count
1246 ,p_data => x_msg_data);
1247 WHEN OTHERS THEN
1248 ROLLBACK TO DELETE_REFUND_DETAILS;
1249 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1250 x_msg_count := l_msg_count ;
1251 x_msg_data := l_msg_data ;
1252 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PUB','DELETE_REFUND_DETAILS');
1253 Fnd_Msg_Pub.count_and_get(
1254 p_count => x_msg_count
1255 ,p_data => x_msg_data);
1256
1257 END DELETE_REFUND_DETAILS;
1258
1259
1260 end OKL_PAY_CURE_REFUNDS_PUB;