1: PACKAGE BODY OKL_CURE_RECON_PVT AS
2: /* $Header: OKLRRCOB.pls 120.16 2008/05/12 10:08:39 akrangan noship $ */
3:
4: G_MODULE VARCHAR2(255) := 'okl.cure.request.OKL_CURE_RECON_PVT';
5: G_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6: G_IS_DEBUG_STATEMENT_ON BOOLEAN;
7:
8: --private procedure
9:
186: xp_crtv_rec OKL_crt_pvt.crtv_rec_type;
187:
188: BEGIN
189:
190: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : START ');
191:
192: IF (G_DEBUG_ENABLED = 'Y') THEN
193: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
194: END IF;
189:
190: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : START ');
191:
192: IF (G_DEBUG_ENABLED = 'Y') THEN
193: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
194: END IF;
195:
196: SAVEPOINT UPDATE_CRT;
197: IF (G_IS_DEBUG_STATEMENT_ON = true)
195:
196: SAVEPOINT UPDATE_CRT;
197: IF (G_IS_DEBUG_STATEMENT_ON = true)
198: THEN
199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'start update_cure_reports');
200: END IF;
201:
202: x_return_status := FND_API.G_RET_STS_SUCCESS;
203:
212: OPEN c_get_obj_ver(p_report_id);
213: FETCH c_get_obj_ver INTO lp_crtv_rec.object_version_number;
214: CLOSE c_get_obj_ver;
215:
216: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : lp_crtv_rec.cure_report_id : '||lp_crtv_rec.cure_report_id);
217: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : lp_crtv_rec.approval_status : '||lp_crtv_rec.approval_status);
218:
219: okl_cure_reports_pub.update_cure_reports(
220: p_api_version =>1.0
213: FETCH c_get_obj_ver INTO lp_crtv_rec.object_version_number;
214: CLOSE c_get_obj_ver;
215:
216: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : lp_crtv_rec.cure_report_id : '||lp_crtv_rec.cure_report_id);
217: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : lp_crtv_rec.approval_status : '||lp_crtv_rec.approval_status);
218:
219: okl_cure_reports_pub.update_cure_reports(
220: p_api_version =>1.0
221: ,p_init_msg_list =>FND_API.G_FALSE
224: ,x_msg_data =>l_msg_data
225: ,p_crtv_rec =>lp_crtv_rec
226: ,x_crtv_rec =>xp_crtv_rec);
227:
228: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : okl_cure_reports_pub.update_cure_reports : '||l_return_status);
229:
230: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
231: THEN
232: Get_Messages (l_msg_count,l_message);
231: THEN
232: Get_Messages (l_msg_count,l_message);
233: IF (G_IS_DEBUG_STATEMENT_ON = true)
234: THEN
235: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error is :' ||l_message);
236: END IF;
237: raise FND_API.G_EXC_ERROR;
238: ELSE
239: IF (G_IS_DEBUG_STATEMENT_ON = true)
237: raise FND_API.G_EXC_ERROR;
238: ELSE
239: IF (G_IS_DEBUG_STATEMENT_ON = true)
240: THEN
241: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updated cure reports table ');
242: END IF;
243: FND_MSG_PUB.initialize;
244: END IF;
245:
249: );
250:
251: IF (G_IS_DEBUG_STATEMENT_ON = true)
252: THEN
253: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
254: , G_MODULE,
255: ' End of Procedure => OKL_PAY_RECON_PVT.UPDATE_CRT');
256: END IF;
257:
254: , G_MODULE,
255: ' End of Procedure => OKL_PAY_RECON_PVT.UPDATE_CRT');
256: END IF;
257:
258: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : END ');
259:
260: EXCEPTION
261: WHEN Fnd_Api.G_EXC_ERROR THEN
262: ROLLBACK TO UPDATE_CRT;
318: l_id2 VARCHAR2(200);
319:
320: BEGIN
321:
322: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : START ');
323:
324: IF (G_DEBUG_ENABLED = 'Y')
325: THEN
326: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
322: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : START ');
323:
324: IF (G_DEBUG_ENABLED = 'Y')
325: THEN
326: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
327: END IF;
328:
329: SAVEPOINT UPDATE_CAM;
330:
329: SAVEPOINT UPDATE_CAM;
330:
331: IF (G_IS_DEBUG_STATEMENT_ON = true)
332: THEN
333: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'start update_cure amounts');
334: END IF;
335: x_return_status := FND_API.G_RET_STS_SUCCESS;
336:
337: -- update Cure amounts table set error message,so this will be prefixed before
358: ,x_id1 => l_id1
359: ,x_id2 => l_id2
360: ,x_value => l_rule_value);
361:
362: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : okl_contract_info.get_rule_value : '||l_return_status);
363:
364: IF l_return_status =FND_Api.G_RET_STS_SUCCESS
365: THEN
366: IF (l_rule_value = 'Yes')
366: IF (l_rule_value = 'Yes')
367: THEN
368: IF (G_IS_DEBUG_STATEMENT_ON = true)
369: THEN
370: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
371: , G_MODULE
372: ,' Short fund rule is applicable');
373: END IF;
374: lp_camv_rec.short_fund_amount := nvl(l_cure_amount,0)
384: lp_camv_rec.cure_amount_id :=p_cam_tbl(i).cam_id;
385: lp_camv_rec.negotiated_amount :=p_cam_tbl(i).negotiated_amount;
386: lp_camv_rec.crt_id :=p_report_id;
387:
388: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.cure_amount_id : '||lp_camv_rec.cure_amount_id);
389: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.negotiated_amount : '||lp_camv_rec.negotiated_amount);
390: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.crt_id : '||lp_camv_rec.crt_id);
391:
392: --jsanju 09/24/03
385: lp_camv_rec.negotiated_amount :=p_cam_tbl(i).negotiated_amount;
386: lp_camv_rec.crt_id :=p_report_id;
387:
388: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.cure_amount_id : '||lp_camv_rec.cure_amount_id);
389: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.negotiated_amount : '||lp_camv_rec.negotiated_amount);
390: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.crt_id : '||lp_camv_rec.crt_id);
391:
392: --jsanju 09/24/03
393: -- new column in cure amounts table ,indicating what action has been done.
386: lp_camv_rec.crt_id :=p_report_id;
387:
388: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.cure_amount_id : '||lp_camv_rec.cure_amount_id);
389: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.negotiated_amount : '||lp_camv_rec.negotiated_amount);
390: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.crt_id : '||lp_camv_rec.crt_id);
391:
392: --jsanju 09/24/03
393: -- new column in cure amounts table ,indicating what action has been done.
394: -- possible values are 'CURE','REPURCHASE' & 'DONOTPROCESS'
399: ELSE
400: lp_camv_rec.process := 'CURE';
401: END IF;
402:
403: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.process : '||lp_camv_rec.process);
404:
405: okl_cure_amounts_pub.update_cure_amounts(
406: p_api_version =>1.0
407: ,p_init_msg_list =>FND_API.G_FALSE
410: ,x_msg_data =>l_msg_data
411: ,p_camv_rec =>lp_camv_rec
412: ,x_camv_rec =>xp_camv_rec);
413:
414: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : okl_cure_amounts_pub.update_cure_amounts : '||l_return_status);
415:
416: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
417: THEN
418: Get_Messages (l_msg_count,l_message);
417: THEN
418: Get_Messages (l_msg_count,l_message);
419: IF (G_IS_DEBUG_STATEMENT_ON = true)
420: THEN
421: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error is :' ||l_message);
422: END IF;
423: raise FND_API.G_EXC_ERROR;
424: ELSE
425: IF (G_IS_DEBUG_STATEMENT_ON = true)
423: raise FND_API.G_EXC_ERROR;
424: ELSE
425: IF (G_IS_DEBUG_STATEMENT_ON = true)
426: THEN
427: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updated cure amounts table ');
428: END IF;
429: END IF;
430:
431: END LOOP;
436: p_data => x_msg_data
437: );
438:
439: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
440: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
441: , G_MODULE
442: ,' End of Procedure => OKL_PAY_RECON_PVT.UPDATE_CAM');
443:
444: END IF;
442: ,' End of Procedure => OKL_PAY_RECON_PVT.UPDATE_CAM');
443:
444: END IF;
445:
446: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : END ');
447:
448: EXCEPTION
449: WHEN Fnd_Api.G_EXC_ERROR THEN
450: ROLLBACK TO UPDATE_CAM;
517: xp_tldv_rec okl_tld_pvt.tldv_rec_type;
518:
519: BEGIN
520:
521: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : START ');
522: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_tai_id : '||p_tai_id);
523: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_trx_status : '||p_trx_status);
524: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_invoice_date : '||p_invoice_date);
525: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_negotiated_amount : '||p_negotiated_amount);
518:
519: BEGIN
520:
521: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : START ');
522: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_tai_id : '||p_tai_id);
523: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_trx_status : '||p_trx_status);
524: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_invoice_date : '||p_invoice_date);
525: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_negotiated_amount : '||p_negotiated_amount);
526:
519: BEGIN
520:
521: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : START ');
522: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_tai_id : '||p_tai_id);
523: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_trx_status : '||p_trx_status);
524: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_invoice_date : '||p_invoice_date);
525: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_negotiated_amount : '||p_negotiated_amount);
526:
527: SAVEPOINT UPDATE_INVOICE_HDR_LINES;
520:
521: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : START ');
522: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_tai_id : '||p_tai_id);
523: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_trx_status : '||p_trx_status);
524: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_invoice_date : '||p_invoice_date);
525: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_negotiated_amount : '||p_negotiated_amount);
526:
527: SAVEPOINT UPDATE_INVOICE_HDR_LINES;
528:
521: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : START ');
522: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_tai_id : '||p_tai_id);
523: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_trx_status : '||p_trx_status);
524: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_invoice_date : '||p_invoice_date);
525: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_negotiated_amount : '||p_negotiated_amount);
526:
527: SAVEPOINT UPDATE_INVOICE_HDR_LINES;
528:
529: IF (G_IS_DEBUG_STATEMENT_ON = true)
527: SAVEPOINT UPDATE_INVOICE_HDR_LINES;
528:
529: IF (G_IS_DEBUG_STATEMENT_ON = true)
530: THEN
531: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
532: , G_MODULE
533: , 'start UPDATE_INVOICE_HDR_LINES');
534: END IF;
535: x_return_status := FND_API.G_RET_STS_SUCCESS;
566: x_msg_data => l_msg_data,
567: p_taiv_rec => lp_taiv_rec,
568: x_taiv_rec => xp_taiv_rec);
569:
570: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : okl_trx_ar_invoices_pub.update_trx_ar_invoices : '||l_return_status);
571:
572: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
573: THEN
574: Get_Messages (l_msg_count,l_message);
573: THEN
574: Get_Messages (l_msg_count,l_message);
575: IF (G_IS_DEBUG_STATEMENT_ON = true)
576: THEN
577: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
578: , G_MODULE
579: ,'Error in updating okl_trx_ar_invoices_b '||l_message);
580: END IF;
581: raise FND_API.G_EXC_ERROR;
604: x_msg_data => l_msg_data,
605: p_tilv_rec => lp_tilv_rec,
606: x_tilv_rec => xp_tilv_rec);
607:
608: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : okl_txl_ar_inv_lns_pub.update_txl_ar_inv_lns : '||l_return_status);
609:
610: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
611: THEN
612: Get_Messages (l_msg_count,l_message);
611: THEN
612: Get_Messages (l_msg_count,l_message);
613: IF (G_IS_DEBUG_STATEMENT_ON = true)
614: THEN
615: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
616: , G_MODULE
617: ,'Error in updating okl_txl_ar_inv_lns '||l_message);
618: END IF;
619: raise FND_API.G_EXC_ERROR;
640: x_msg_data => x_msg_data,
641: p_tldv_rec => lp_tldv_rec,
642: x_tldv_rec => xp_tldv_rec);
643:
644: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : okl_tld_pvt.update_row : '||l_return_status);
645:
646: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS)
647: THEN
648: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR)
666: );
667:
668: IF (G_IS_DEBUG_STATEMENT_ON = true)
669: THEN
670: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
671: , G_MODULE
672: ,' End of Procedure => OKL_PAY_RECON_PVT.UPDATE_INVOICE_HDR_LINES');
673: END IF;
674:
671: , G_MODULE
672: ,' End of Procedure => OKL_PAY_RECON_PVT.UPDATE_INVOICE_HDR_LINES');
673: END IF;
674:
675: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : END ');
676:
677: EXCEPTION
678: WHEN Fnd_Api.G_EXC_ERROR
679: THEN
755: BEGIN
756: -- Set API savepoint
757: SAVEPOINT additional_tld_attr;
758: IF (G_DEBUG_ENABLED = 'Y') THEN
759: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
760: END IF;
761:
762: --Print Input Variables
763: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
760: END IF;
761:
762: --Print Input Variables
763: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
764: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_tldv_rec.id :'||p_tldv_rec.id);
765: END IF;
766: -- Check for call compatibility
767: IF (NOT FND_API.Compatible_API_Call (l_api_version,
768: p_api_version,
1007: l_bill_to_address_id NUMBER;
1008:
1009: BEGIN
1010:
1011: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : START ');
1012: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_cam_id : '||p_cam_id);
1013: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_trx_status : '||p_trx_status);
1014: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_invoice_date : '||p_invoice_date);
1015: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_negotiated_amount : '||p_negotiated_amount);
1008:
1009: BEGIN
1010:
1011: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : START ');
1012: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_cam_id : '||p_cam_id);
1013: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_trx_status : '||p_trx_status);
1014: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_invoice_date : '||p_invoice_date);
1015: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_negotiated_amount : '||p_negotiated_amount);
1016:
1009: BEGIN
1010:
1011: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : START ');
1012: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_cam_id : '||p_cam_id);
1013: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_trx_status : '||p_trx_status);
1014: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_invoice_date : '||p_invoice_date);
1015: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_negotiated_amount : '||p_negotiated_amount);
1016:
1017: SAVEPOINT INSERT_INVOICE_HDR_LINES;
1010:
1011: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : START ');
1012: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_cam_id : '||p_cam_id);
1013: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_trx_status : '||p_trx_status);
1014: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_invoice_date : '||p_invoice_date);
1015: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_negotiated_amount : '||p_negotiated_amount);
1016:
1017: SAVEPOINT INSERT_INVOICE_HDR_LINES;
1018: IF (G_IS_DEBUG_STATEMENT_ON = true)
1011: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : START ');
1012: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_cam_id : '||p_cam_id);
1013: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_trx_status : '||p_trx_status);
1014: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_invoice_date : '||p_invoice_date);
1015: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_negotiated_amount : '||p_negotiated_amount);
1016:
1017: SAVEPOINT INSERT_INVOICE_HDR_LINES;
1018: IF (G_IS_DEBUG_STATEMENT_ON = true)
1019: THEN
1016:
1017: SAVEPOINT INSERT_INVOICE_HDR_LINES;
1018: IF (G_IS_DEBUG_STATEMENT_ON = true)
1019: THEN
1020: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
1021: , G_MODULE
1022: , 'start INSERT_INVOICE_HDR_LINES');
1023: END IF;
1024: x_return_status := FND_API.G_RET_STS_SUCCESS;
1065: END IF;
1066:
1067: -- vdamerla end: added the code to get the currency conversion details
1068:
1069: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.khr_id : '||lp_taiv_rec.khr_id);
1070: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_code : '||lp_taiv_rec.currency_code);
1071: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_type : '||lp_taiv_rec.currency_conversion_type);
1072: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_rate : '||lp_taiv_rec.currency_conversion_rate);
1073: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_date : '||lp_taiv_rec.currency_conversion_date);
1066:
1067: -- vdamerla end: added the code to get the currency conversion details
1068:
1069: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.khr_id : '||lp_taiv_rec.khr_id);
1070: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_code : '||lp_taiv_rec.currency_code);
1071: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_type : '||lp_taiv_rec.currency_conversion_type);
1072: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_rate : '||lp_taiv_rec.currency_conversion_rate);
1073: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_date : '||lp_taiv_rec.currency_conversion_date);
1074: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.org_id : '||lp_taiv_rec.org_id);
1067: -- vdamerla end: added the code to get the currency conversion details
1068:
1069: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.khr_id : '||lp_taiv_rec.khr_id);
1070: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_code : '||lp_taiv_rec.currency_code);
1071: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_type : '||lp_taiv_rec.currency_conversion_type);
1072: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_rate : '||lp_taiv_rec.currency_conversion_rate);
1073: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_date : '||lp_taiv_rec.currency_conversion_date);
1074: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.org_id : '||lp_taiv_rec.org_id);
1075:
1068:
1069: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.khr_id : '||lp_taiv_rec.khr_id);
1070: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_code : '||lp_taiv_rec.currency_code);
1071: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_type : '||lp_taiv_rec.currency_conversion_type);
1072: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_rate : '||lp_taiv_rec.currency_conversion_rate);
1073: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_date : '||lp_taiv_rec.currency_conversion_date);
1074: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.org_id : '||lp_taiv_rec.org_id);
1075:
1076: IF (G_IS_DEBUG_STATEMENT_ON = true)
1069: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.khr_id : '||lp_taiv_rec.khr_id);
1070: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_code : '||lp_taiv_rec.currency_code);
1071: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_type : '||lp_taiv_rec.currency_conversion_type);
1072: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_rate : '||lp_taiv_rec.currency_conversion_rate);
1073: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_date : '||lp_taiv_rec.currency_conversion_date);
1074: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.org_id : '||lp_taiv_rec.org_id);
1075:
1076: IF (G_IS_DEBUG_STATEMENT_ON = true)
1077: THEN
1070: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_code : '||lp_taiv_rec.currency_code);
1071: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_type : '||lp_taiv_rec.currency_conversion_type);
1072: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_rate : '||lp_taiv_rec.currency_conversion_rate);
1073: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_date : '||lp_taiv_rec.currency_conversion_date);
1074: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.org_id : '||lp_taiv_rec.org_id);
1075:
1076: IF (G_IS_DEBUG_STATEMENT_ON = true)
1077: THEN
1078: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'khrid '||lp_taiv_rec.khr_id);
1074: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.org_id : '||lp_taiv_rec.org_id);
1075:
1076: IF (G_IS_DEBUG_STATEMENT_ON = true)
1077: THEN
1078: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'khrid '||lp_taiv_rec.khr_id);
1079: END IF;
1080:
1081: IF lp_taiv_rec.khr_id IS NULL
1082: THEN
1090: OPEN get_trx_id;
1091: FETCH get_trx_id INTO lp_taiv_rec.try_id;
1092: CLOSE get_trx_id;
1093:
1094: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.try_id : '||lp_taiv_rec.try_id);
1095:
1096: IF (G_IS_DEBUG_STATEMENT_ON = true)
1097: THEN
1098: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'trxid '||lp_taiv_rec.try_id);
1094: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.try_id : '||lp_taiv_rec.try_id);
1095:
1096: IF (G_IS_DEBUG_STATEMENT_ON = true)
1097: THEN
1098: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'trxid '||lp_taiv_rec.try_id);
1099: END IF;
1100:
1101: IF lp_taiv_rec.try_id IS NULL
1102: THEN
1116: x_primary_sty_id => x_primary_sty_id);
1117:
1118: lp_tilv_rec.sty_id := x_primary_sty_id;
1119:
1120: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_tilv_rec.sty_id : '||lp_tilv_rec.sty_id);
1121:
1122: IF (G_IS_DEBUG_STATEMENT_ON = true)
1123: THEN
1124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'sty_id '||lp_tilv_rec.sty_id);
1120: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_tilv_rec.sty_id : '||lp_tilv_rec.sty_id);
1121:
1122: IF (G_IS_DEBUG_STATEMENT_ON = true)
1123: THEN
1124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'sty_id '||lp_tilv_rec.sty_id);
1125: END IF;
1126:
1127: IF lp_tilv_rec.sty_id IS NULL
1128: THEN
1140: OPEN c_program_id(lp_taiv_rec.khr_id);
1141: FETCH c_program_id INTO l_program_id;
1142: CLOSE c_program_id;
1143:
1144: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : l_program_id : '||l_program_id);
1145:
1146: IF l_program_id IS NULL
1147: THEN
1148: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1153: END IF;
1154:
1155: IF (G_IS_DEBUG_STATEMENT_ON = true)
1156: THEN
1157: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'program Id' ||l_program_id);
1158: END IF;
1159:
1160: -- New code for bill to address START
1161: OPEN bill_to_csr (l_program_id);
1161: OPEN bill_to_csr (l_program_id);
1162: FETCH bill_to_csr INTO l_bill_to_address_id;
1163: CLOSE bill_to_csr;
1164:
1165: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : l_bill_to_address_id : '||l_bill_to_address_id);
1166:
1167: IF trunc(l_bill_to_address_id) IS NULL
1168: THEN
1169: IF (G_IS_DEBUG_STATEMENT_ON = true)
1167: IF trunc(l_bill_to_address_id) IS NULL
1168: THEN
1169: IF (G_IS_DEBUG_STATEMENT_ON = true)
1170: THEN
1171: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Retrieval of Bill To Address Id failed');
1172: END IF;
1173: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1174: p_msg_name => 'OKL_REQUIRED_VALUE',
1175: p_token1 => 'COL_NAME',
1180: l_btc_id :=l_bill_to_address_id;
1181:
1182: IF (G_IS_DEBUG_STATEMENT_ON = true)
1183: THEN
1184: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Bill to address id from rule is ' || l_btc_id);
1185: END IF;
1186:
1187: -- *****************************************************
1188: -- Extract Customer, Bill To and Payment Term from rules
1195: lp_taiv_rec.ibt_id := l_site_use_rec.cust_acct_site_id;
1196: lp_taiv_rec.ixx_id := l_site_use_rec.cust_account_id;
1197: lp_taiv_rec.irt_id := l_site_use_rec.payment_term_id;
1198:
1199: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.ibt_id : '||lp_taiv_rec.ibt_id);
1200: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.ixx_id : '||lp_taiv_rec.ixx_id);
1201: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.irt_id : '||lp_taiv_rec.irt_id);
1202:
1203: IF lp_taiv_rec.irt_id IS NULL OR lp_taiv_rec.irt_id = FND_API.G_MISS_NUM
1196: lp_taiv_rec.ixx_id := l_site_use_rec.cust_account_id;
1197: lp_taiv_rec.irt_id := l_site_use_rec.payment_term_id;
1198:
1199: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.ibt_id : '||lp_taiv_rec.ibt_id);
1200: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.ixx_id : '||lp_taiv_rec.ixx_id);
1201: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.irt_id : '||lp_taiv_rec.irt_id);
1202:
1203: IF lp_taiv_rec.irt_id IS NULL OR lp_taiv_rec.irt_id = FND_API.G_MISS_NUM
1204: THEN
1197: lp_taiv_rec.irt_id := l_site_use_rec.payment_term_id;
1198:
1199: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.ibt_id : '||lp_taiv_rec.ibt_id);
1200: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.ixx_id : '||lp_taiv_rec.ixx_id);
1201: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.irt_id : '||lp_taiv_rec.irt_id);
1202:
1203: IF lp_taiv_rec.irt_id IS NULL OR lp_taiv_rec.irt_id = FND_API.G_MISS_NUM
1204: THEN
1205: IF (G_IS_DEBUG_STATEMENT_ON = true)
1203: IF lp_taiv_rec.irt_id IS NULL OR lp_taiv_rec.irt_id = FND_API.G_MISS_NUM
1204: THEN
1205: IF (G_IS_DEBUG_STATEMENT_ON = true)
1206: THEN
1207: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'value of irt' ||lp_taiv_rec.irt_id);
1208: END IF;
1209: OPEN l_std_terms_csr ( l_site_use_rec.cust_account_id,
1210: l_btc_id);
1211: FETCH l_std_terms_csr
1232: END IF;
1233:
1234: IF (G_IS_DEBUG_STATEMENT_ON = true)
1235: THEN
1236: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'value of irt--->' ||lp_taiv_rec.irt_id);
1237: END IF;
1238:
1239: IF lp_taiv_rec.irt_id IS NULL OR lp_taiv_rec.irt_id = FND_API.G_MISS_NUM
1240: THEN
1262: THEN
1263: lp_taiv_rec.irm_id :=l_id1;
1264: IF (G_IS_DEBUG_STATEMENT_ON = true)
1265: THEN
1266: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Payment method from rule is ' || l_id1);
1267: END IF;
1268: ELSE
1269: IF (G_IS_DEBUG_STATEMENT_ON = true)
1270: THEN
1267: END IF;
1268: ELSE
1269: IF (G_IS_DEBUG_STATEMENT_ON = true)
1270: THEN
1271: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Retrieval of Payment Method Id failed');
1272: END IF;
1273: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1274: p_msg_name => 'OKL_REQUIRED_VALUE',
1275: p_token1 => 'COL_NAME',
1280: OPEN l_rcpt_mthd_csr (l_id1);
1281: FETCH l_rcpt_mthd_csr INTO lp_taiv_rec.irm_id;
1282: CLOSE l_rcpt_mthd_csr;
1283:
1284: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.irm_id : '||lp_taiv_rec.irm_id);
1285:
1286: IF lp_taiv_rec.irm_id IS NULL OR lp_taiv_rec.irm_id = FND_API.G_MISS_NUM
1287: THEN
1288: IF (G_IS_DEBUG_STATEMENT_ON = true)
1286: IF lp_taiv_rec.irm_id IS NULL OR lp_taiv_rec.irm_id = FND_API.G_MISS_NUM
1287: THEN
1288: IF (G_IS_DEBUG_STATEMENT_ON = true)
1289: THEN
1290: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'receipt method id is not found');
1291: END IF;
1292: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1293: p_msg_name => 'OKL_REQUIRED_VALUE',
1294: p_token1 => 'COL_NAME',
1316: open ra_cust_csr;
1317: fetch ra_cust_csr into lp_taiv_rec.cust_trx_type_id;
1318: close ra_cust_csr;
1319:
1320: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.cust_trx_type_id : '||lp_taiv_rec.cust_trx_type_id);
1321: -- R12 Changes - END
1322:
1323: IF (G_IS_DEBUG_STATEMENT_ON = true)
1324: THEN
1321: -- R12 Changes - END
1322:
1323: IF (G_IS_DEBUG_STATEMENT_ON = true)
1324: THEN
1325: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1326: G_MODULE,
1327: 'taiv_rec.cpy_id' ||lp_taiv_rec.cpy_id ||
1328: ' taiv_rec.try_id' ||lp_taiv_rec.try_id||
1329: ' taiv_rec.khr_id' ||lp_taiv_rec.khr_id||
1342: x_msg_data => l_msg_data,
1343: p_taiv_rec => lp_taiv_rec,
1344: x_taiv_rec => xp_taiv_rec);
1345:
1346: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : okl_trx_ar_invoices_pub.INSERT_trx_ar_invoices : '||l_return_status);
1347:
1348: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
1349: THEN
1350: Get_Messages (l_msg_count,l_message);
1349: THEN
1350: Get_Messages (l_msg_count,l_message);
1351: IF (G_IS_DEBUG_STATEMENT_ON = true)
1352: THEN
1353: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1354: G_MODULE,
1355: 'Error in updating okl_trx_ar_invoices_b '||l_message);
1356: END IF;
1357: raise FND_API.G_EXC_ERROR;
1376: -- R12 Change - END
1377:
1378: IF (G_IS_DEBUG_STATEMENT_ON = true)
1379: THEN
1380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1381: G_MODULE,
1382: 'tilv_rec.tai_id' ||lp_tilv_rec.tai_id||
1383: 'tilv_rec.amount' ||lp_tilv_rec.amount||
1384: 'tilv_rec.sty_id' ||lp_tilv_rec.sty_id);
1391: x_msg_data => l_msg_data,
1392: p_tilv_rec => lp_tilv_rec,
1393: x_tilv_rec => xp_tilv_rec);
1394:
1395: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns : '||l_return_status);
1396:
1397: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
1398: THEN
1399: Get_Messages (l_msg_count,l_message);
1398: THEN
1399: Get_Messages (l_msg_count,l_message);
1400: IF (G_IS_DEBUG_STATEMENT_ON = true)
1401: THEN
1402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1403: G_MODULE,
1404: 'Error in updating okl_txl_ar_inv_lns '||l_message);
1405: END IF;
1406: raise FND_API.G_EXC_ERROR;
1433: ,p_sty_id => lp_tldv_rec.STY_ID
1434: ,x_invoice_format_type => lp_tldv_rec.invoice_format_type
1435: ,x_invoice_format_line_type => lp_tldv_rec.invoice_format_line_type);
1436:
1437: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : okl_internal_billing_pvt.Get_Invoice_format : '||l_return_status);
1438:
1439: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
1440: THEN
1441: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1452: x_msg_data => x_msg_data,
1453: p_tldv_rec => lp_tldv_rec,
1454: x_tldv_rec => xp_tldv_rec);
1455:
1456: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : additional_tld_attr : '||l_return_status);
1457:
1458: lp_tldv_rec := xp_tldv_rec;
1459:
1460: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS)
1474: x_msg_data => x_msg_data,
1475: p_tldv_rec => lp_tldv_rec,
1476: x_tldv_rec => xp_tldv_rec);
1477:
1478: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : okl_tld_pvt.insert_row : '||l_return_status);
1479:
1480: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS)
1481: THEN
1482: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR)
1496: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1497: p_data => x_msg_data );
1498:
1499: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1500: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
1501: , G_MODULE
1502: ,' End of Procedure => OKL_PAY_RECON_PVT.INSERT_INVOICE_HDR_LINES');
1503: END IF;
1504:
1501: , G_MODULE
1502: ,' End of Procedure => OKL_PAY_RECON_PVT.INSERT_INVOICE_HDR_LINES');
1503: END IF;
1504:
1505: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : END ');
1506:
1507: EXCEPTION
1508:
1509: WHEN Fnd_Api.G_EXC_ERROR THEN
1562: l_err_msg VARCHAR2(2000);
1563:
1564: BEGIN
1565:
1566: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : TERMINATE_QUOTE : START ');
1567:
1568: SAVEPOINT TERMINATE_QUOTE;
1569: IF (G_IS_DEBUG_STATEMENT_ON = true)
1570: THEN
1567:
1568: SAVEPOINT TERMINATE_QUOTE;
1569: IF (G_IS_DEBUG_STATEMENT_ON = true)
1570: THEN
1571: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'start TERMINATE_QUOTE');
1572: END IF;
1573: x_return_status := FND_API.G_RET_STS_SUCCESS;
1574:
1575: --set error message,so this will be prefixed before the actual message, so it
1582: CLOSE c_get_qte_id;
1583:
1584: lp_term_rec.accepted_yn := 'Y';
1585:
1586: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : TERMINATE_QUOTE : lp_term_rec.id : '||lp_term_rec.id);
1587:
1588: OKL_AM_TERMNT_QUOTE_PUB.TERMINATE_QUOTE(
1589: p_api_version => 1.0
1590: ,p_init_msg_list => 'T'
1594: ,p_term_rec => lp_term_rec
1595: ,x_term_rec => lx_term_rec
1596: ,x_err_msg => l_err_msg);
1597:
1598: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : TERMINATE_QUOTE : OKL_AM_TERMNT_QUOTE_PUB.TERMINATE_QUOTE : '||l_return_status);
1599:
1600: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
1601: THEN
1602: Get_Messages (l_msg_count,l_message);
1601: THEN
1602: Get_Messages (l_msg_count,l_message);
1603: IF (G_IS_DEBUG_STATEMENT_ON = true)
1604: THEN
1605: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1606: G_MODULE,
1607: 'Error in updating okl_trx_ar_invoices_b '||l_message);
1608: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1609: G_MODULE,
1604: THEN
1605: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1606: G_MODULE,
1607: 'Error in updating okl_trx_ar_invoices_b '||l_message);
1608: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1609: G_MODULE,
1610: 'Error from the API : ' ||l_err_msg);
1611: END IF;
1612: raise FND_API.G_EXC_ERROR;
1615: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1616: p_data => x_msg_data );
1617: IF (G_IS_DEBUG_STATEMENT_ON = true)
1618: THEN
1619: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1620: G_MODULE,
1621: ' End of Procedure =>OKL_PAY_RECON_PVT.TERMINATE_QUOTE');
1622: END IF;
1623:
1620: G_MODULE,
1621: ' End of Procedure =>OKL_PAY_RECON_PVT.TERMINATE_QUOTE');
1622: END IF;
1623:
1624: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : TERMINATE_QUOTE : END ');
1625:
1626: EXCEPTION
1627: WHEN Fnd_Api.G_EXC_ERROR THEN
1628: ROLLBACK TO TERMINATE_QUOTE;
1675: l_tai_id okl_trx_ar_invoices_b.id%TYPE;
1676: l_process OKL_CURE_AMOUNTS.process%TYPE;
1677: BEGIN
1678:
1679: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_TAI_TIL : START ');
1680:
1681: IF (G_DEBUG_ENABLED = 'Y')
1682: THEN
1683: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1679: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_TAI_TIL : START ');
1680:
1681: IF (G_DEBUG_ENABLED = 'Y')
1682: THEN
1683: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1684: END IF;
1685:
1686: SAVEPOINT UPDATE_TAI_TIL;
1687: IF (G_IS_DEBUG_STATEMENT_ON = true)
1685:
1686: SAVEPOINT UPDATE_TAI_TIL;
1687: IF (G_IS_DEBUG_STATEMENT_ON = true)
1688: THEN
1689: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'start UPDATE_TAI_TIL');
1690: END IF;
1691: x_return_status := FND_API.G_RET_STS_SUCCESS;
1692:
1693: -- if cpy_id is populated then we will update the TAI tables
1748: THEN
1749: Get_Messages (l_msg_count,l_message);
1750: IF (G_IS_DEBUG_STATEMENT_ON = true)
1751: THEN
1752: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1753: G_MODULE,
1754: 'Error in update tai_til :' ||l_message);
1755: END IF;
1756: raise FND_API.G_EXC_ERROR;
1771: THEN
1772: Get_Messages (l_msg_count,l_message);
1773: IF (G_IS_DEBUG_STATEMENT_ON = true)
1774: THEN
1775: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1776: G_MODULE,
1777: 'Error in Termination of Quote :' ||l_message);
1778: END IF;
1779: raise FND_API.G_EXC_ERROR;
1787: p_data => x_msg_data);
1788:
1789: IF (G_IS_DEBUG_STATEMENT_ON = true)
1790: THEN
1791: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1792: G_MODULE,
1793: ' End of Procedure =>OKL_PAY_RECON_PVT.UPDATE_TAI_TIL');
1794: END IF;
1795:
1792: G_MODULE,
1793: ' End of Procedure =>OKL_PAY_RECON_PVT.UPDATE_TAI_TIL');
1794: END IF;
1795:
1796: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_TAI_TIL : END ');
1797:
1798: EXCEPTION
1799: WHEN Fnd_Api.G_EXC_ERROR THEN
1800: ROLLBACK TO UPDATE_TAI_TIL;
1839: || l_api_name;
1840:
1841: BEGIN
1842:
1843: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : START ');
1844: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : p_report_id : '||p_report_id);
1845: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : p_invoice_date : '||p_invoice_date);
1846:
1847: IF (G_DEBUG_ENABLED = 'Y') THEN
1840:
1841: BEGIN
1842:
1843: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : START ');
1844: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : p_report_id : '||p_report_id);
1845: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : p_invoice_date : '||p_invoice_date);
1846:
1847: IF (G_DEBUG_ENABLED = 'Y') THEN
1848: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1841: BEGIN
1842:
1843: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : START ');
1844: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : p_report_id : '||p_report_id);
1845: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : p_invoice_date : '||p_invoice_date);
1846:
1847: IF (G_DEBUG_ENABLED = 'Y') THEN
1848: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1849: END IF;
1844: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : p_report_id : '||p_report_id);
1845: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : p_invoice_date : '||p_invoice_date);
1846:
1847: IF (G_DEBUG_ENABLED = 'Y') THEN
1848: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1849: END IF;
1850:
1851: -- step 1 create TAI ab
1852: -- step 2 update CAM
1859:
1860: SAVEPOINT UPDATE_INVOICES;
1861: IF (G_IS_DEBUG_STATEMENT_ON = true)
1862: THEN
1863: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'start UPDATE_INVOICES');
1864: END IF;
1865: x_return_status := FND_API.G_RET_STS_SUCCESS;
1866:
1867: UPDATE_TAI_TIL(p_cam_tbl =>p_cam_tbl,
1875: THEN
1876: Get_Messages (l_msg_count,l_message);
1877: IF (G_IS_DEBUG_STATEMENT_ON = true)
1878: THEN
1879: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1880: G_MODULE,
1881: 'Error in updating cure amounts:'||l_message);
1882: END IF;
1883: raise FND_API.G_EXC_ERROR;
1893: THEN
1894: Get_Messages (l_msg_count,l_message);
1895: IF (G_IS_DEBUG_STATEMENT_ON = true)
1896: THEN
1897: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1898: G_MODULE,
1899: 'Error in updating cure amounts:'||l_message);
1900: END IF;
1901: raise FND_API.G_EXC_ERROR;
1911: THEN
1912: Get_Messages (l_msg_count,l_message);
1913: IF (G_IS_DEBUG_STATEMENT_ON = true)
1914: THEN
1915: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error is :' ||l_message);
1916: END IF;
1917: raise FND_API.G_EXC_ERROR;
1918: ELSE
1919: IF (G_IS_DEBUG_STATEMENT_ON = true)
1917: raise FND_API.G_EXC_ERROR;
1918: ELSE
1919: IF (G_IS_DEBUG_STATEMENT_ON = true)
1920: THEN
1921: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updated cure reports table ');
1922: END IF;
1923: END IF;
1924:
1925: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1926: p_data => x_msg_data );
1927:
1928: IF (G_IS_DEBUG_STATEMENT_ON = true)
1929: THEN
1930: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
1931: G_MODULE,
1932: ' End of Procedure =>OKL_PAY_RECON_PVT.update_invoices');
1933: END IF;
1934:
1931: G_MODULE,
1932: ' End of Procedure =>OKL_PAY_RECON_PVT.update_invoices');
1933: END IF;
1934:
1935: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : END ');
1936:
1937: EXCEPTION
1938: WHEN Fnd_Api.G_EXC_ERROR THEN
1939: ROLLBACK TO UPDATE_INVOICES;
2117: --Bug# 4622198 :For special accounting treatment - END
2118:
2119: BEGIN
2120:
2121: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : START ');
2122:
2123: IF (G_DEBUG_ENABLED = 'Y') THEN
2124: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2125: END IF;
2120:
2121: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : START ');
2122:
2123: IF (G_DEBUG_ENABLED = 'Y') THEN
2124: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2125: END IF;
2126:
2127: SAVEPOINT CREATE_ACCOUNTING;
2128: IF (G_IS_DEBUG_STATEMENT_ON = true)
2126:
2127: SAVEPOINT CREATE_ACCOUNTING;
2128: IF (G_IS_DEBUG_STATEMENT_ON = true)
2129: THEN
2130: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'start submit_cure_invoices');
2131: END IF;
2132: x_return_status := FND_API.G_RET_STS_SUCCESS;
2133:
2134: FOR i in p_cam_tbl.FIRST..p_cam_tbl.LAST
2145: ELSE
2146: l_process :='CURE';
2147: END IF;
2148:
2149: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_process : '||l_process);
2150:
2151: IF l_process ='CURE'
2152: THEN
2153: OPEN get_product_id(p_cam_tbl(i).cam_id);
2164: raise FND_API.G_EXC_ERROR;
2165: END IF;
2166:
2167: l_factoring_synd := get_factor_synd(l_khr_id);
2168: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_factoring_synd : '||l_factoring_synd);
2169:
2170: OPEN c_get_Accounting(p_cam_tbl(i).cam_id);
2171: FETCH c_get_Accounting
2172: INTO l_tai_id
2185: l_tmpl_identify_tbl(1).SYNDICATION_CODE := NULL;
2186: l_tmpl_identify_tbl(1).FACTORING_CODE := NULL;
2187: l_tmpl_identify_tbl(1).MEMO_YN := 'N';
2188: l_tmpl_identify_tbl(1).PRIOR_YEAR_YN := 'N';
2189: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_tmpl_identify_tbl(1).transaction_type_id : '||l_tmpl_identify_tbl(1).transaction_type_id);
2190: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_tmpl_identify_tbl(1).stream_type_id : '||l_tmpl_identify_tbl(1).stream_type_id);
2191:
2192: l_dist_info_tbl(1).source_id := l_line_id;
2193: l_dist_info_tbl(1).source_table := 'OKL_TXD_AR_LN_DTLS_B';
2186: l_tmpl_identify_tbl(1).FACTORING_CODE := NULL;
2187: l_tmpl_identify_tbl(1).MEMO_YN := 'N';
2188: l_tmpl_identify_tbl(1).PRIOR_YEAR_YN := 'N';
2189: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_tmpl_identify_tbl(1).transaction_type_id : '||l_tmpl_identify_tbl(1).transaction_type_id);
2190: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_tmpl_identify_tbl(1).stream_type_id : '||l_tmpl_identify_tbl(1).stream_type_id);
2191:
2192: l_dist_info_tbl(1).source_id := l_line_id;
2193: l_dist_info_tbl(1).source_table := 'OKL_TXD_AR_LN_DTLS_B';
2194: l_dist_info_tbl(1).accounting_date := l_date_invoiced;
2194: l_dist_info_tbl(1).accounting_date := l_date_invoiced;
2195: l_dist_info_tbl(1).gl_reversal_flag :='N';
2196: l_dist_info_tbl(1).post_to_gl :='N';
2197: l_dist_info_tbl(1).contract_id :=l_khr_id;
2198: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).source_id : '||l_dist_info_tbl(1).source_id);
2199: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).source_table : '||l_dist_info_tbl(1).source_table);
2200: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).accounting_date : '||l_dist_info_tbl(1).accounting_date);
2201: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).contract_id : '||l_dist_info_tbl(1).contract_id);
2202:
2195: l_dist_info_tbl(1).gl_reversal_flag :='N';
2196: l_dist_info_tbl(1).post_to_gl :='N';
2197: l_dist_info_tbl(1).contract_id :=l_khr_id;
2198: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).source_id : '||l_dist_info_tbl(1).source_id);
2199: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).source_table : '||l_dist_info_tbl(1).source_table);
2200: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).accounting_date : '||l_dist_info_tbl(1).accounting_date);
2201: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).contract_id : '||l_dist_info_tbl(1).contract_id);
2202:
2203: -- New Accounting call Start set accounting call required values
2196: l_dist_info_tbl(1).post_to_gl :='N';
2197: l_dist_info_tbl(1).contract_id :=l_khr_id;
2198: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).source_id : '||l_dist_info_tbl(1).source_id);
2199: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).source_table : '||l_dist_info_tbl(1).source_table);
2200: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).accounting_date : '||l_dist_info_tbl(1).accounting_date);
2201: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).contract_id : '||l_dist_info_tbl(1).contract_id);
2202:
2203: -- New Accounting call Start set accounting call required values
2204: -- Fetch the functional currency
2197: l_dist_info_tbl(1).contract_id :=l_khr_id;
2198: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).source_id : '||l_dist_info_tbl(1).source_id);
2199: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).source_table : '||l_dist_info_tbl(1).source_table);
2200: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).accounting_date : '||l_dist_info_tbl(1).accounting_date);
2201: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).contract_id : '||l_dist_info_tbl(1).contract_id);
2202:
2203: -- New Accounting call Start set accounting call required values
2204: -- Fetch the functional currency
2205:
2249: l_dist_info_tbl(1).amount:= okl_accounting_util.cross_currency_round_amount
2250: (p_amount => l_amount,
2251: p_currency_code => l_contract_currency);
2252:
2253: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_dist_info_tbl(1).amount : '||l_dist_info_tbl(1).amount);
2254:
2255: --set error message,so this will be prefixed before the
2256: --actual message, so it makes more sense than displaying an
2257: -- OKL message.
2273: raise FND_API.G_EXC_ERROR;
2274: ELSE
2275: IF (G_IS_DEBUG_STATEMENT_ON = true)
2276: THEN
2277: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
2278: G_MODULE,
2279: 'l_acc_gen_primary_key_tbl'
2280: --||l_acc_gen_primary_key_tbl(1).count
2281: ||l_acc_gen_primary_key_tbl(1).primary_key_column
2343: x_fact_synd_code => l_fact_synd_code,
2344: x_inv_acct_code => l_inv_acct_code
2345: );
2346:
2347: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : OKL_SECURITIZATION_PVT.Check_Khr_ia_associated : '||x_return_status);
2348:
2349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
2350: THEN
2351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2355: END IF;
2356:
2357: l_tmpl_identify_tbl(1).factoring_synd_flag := l_fact_synd_code;
2358: l_tmpl_identify_tbl(1).investor_code := l_inv_acct_code;
2359: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_tmpl_identify_tbl(1).factoring_synd_flag : '||l_tmpl_identify_tbl(1).factoring_synd_flag);
2360: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_tmpl_identify_tbl(1).investor_code : '||l_tmpl_identify_tbl(1).investor_code);
2361:
2362:
2363: --Bug# 4622198 :For special accounting treatment - END
2356:
2357: l_tmpl_identify_tbl(1).factoring_synd_flag := l_fact_synd_code;
2358: l_tmpl_identify_tbl(1).investor_code := l_inv_acct_code;
2359: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_tmpl_identify_tbl(1).factoring_synd_flag : '||l_tmpl_identify_tbl(1).factoring_synd_flag);
2360: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : l_tmpl_identify_tbl(1).investor_code : '||l_tmpl_identify_tbl(1).investor_code);
2361:
2362:
2363: --Bug# 4622198 :For special accounting treatment - END
2364:
2398: x_amount_tbl => l_amount_tbl,
2399: p_trx_header_id => l_tai_id,
2400: p_trx_header_table => 'OKL_TRX_AR_INVOICES_B');
2401:
2402: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : okl_account_dist_pvt.create_accounting_dist : '||l_return_status);
2403:
2404: -- R12 CHANGE - END
2405:
2406: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
2407: THEN
2408: Get_Messages (l_msg_count,l_message);
2409: IF (G_IS_DEBUG_STATEMENT_ON = true)
2410: THEN
2411: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2412: END IF;
2413: raise FND_API.G_EXC_ERROR;
2414: ELSE
2415: IF (G_IS_DEBUG_STATEMENT_ON = true)
2413: raise FND_API.G_EXC_ERROR;
2414: ELSE
2415: IF (G_IS_DEBUG_STATEMENT_ON = true)
2416: THEN
2417: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'count of l_template_tbl'||l_template_tbl.count);
2418: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'count of l_amount_tbl'||l_amount_tbl.count);
2419: END IF;
2420: FND_MSG_PUB.initialize;
2421: END IF;
2414: ELSE
2415: IF (G_IS_DEBUG_STATEMENT_ON = true)
2416: THEN
2417: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'count of l_template_tbl'||l_template_tbl.count);
2418: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'count of l_amount_tbl'||l_amount_tbl.count);
2419: END IF;
2420: FND_MSG_PUB.initialize;
2421: END IF;
2422: END IF ;-- IF p.cam.tbl(i).Process ='CURE'
2423: END LOOP;
2424:
2425: IF (G_IS_DEBUG_STATEMENT_ON = true)
2426: THEN
2427: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
2428: G_MODULE,
2429: 'after accounting dist '||l_return_status);
2430: END IF;
2431:
2432: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2433: p_data => x_msg_data );
2434: IF (G_IS_DEBUG_STATEMENT_ON = true)
2435: THEN
2436: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
2437: G_MODULE,
2438: ' End of Procedure =>OKL_PAY_RECON_PVT.CREATE_ACCOUNTING');
2439: END IF;
2440:
2437: G_MODULE,
2438: ' End of Procedure =>OKL_PAY_RECON_PVT.CREATE_ACCOUNTING');
2439: END IF;
2440:
2441: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : END ');
2442:
2443: EXCEPTION
2444: WHEN Fnd_Api.G_EXC_ERROR THEN
2445: ROLLBACK TO CREATE_ACCOUNTING;
2485: l_api_name_full CONSTANT VARCHAR2(150):= g_pkg_name || '.'|| l_api_name;
2486:
2487: BEGIN
2488:
2489: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : SUBMIT_INVOICES : START ');
2490:
2491: IF (G_DEBUG_ENABLED = 'Y') THEN
2492: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2493: END IF;
2488:
2489: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : SUBMIT_INVOICES : START ');
2490:
2491: IF (G_DEBUG_ENABLED = 'Y') THEN
2492: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2493: END IF;
2494:
2495: SAVEPOINT SUBMIT_INVOICES;
2496: IF (G_IS_DEBUG_STATEMENT_ON = true)
2494:
2495: SAVEPOINT SUBMIT_INVOICES;
2496: IF (G_IS_DEBUG_STATEMENT_ON = true)
2497: THEN
2498: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'start submit_cure_invoices');
2499: END IF;
2500: x_return_status := FND_API.G_RET_STS_SUCCESS;
2501:
2502: UPDATE_TAI_TIL(p_cam_tbl =>p_cam_tbl,
2505: x_return_status =>l_return_status,
2506: x_msg_count =>l_msg_count,
2507: x_msg_data =>l_msg_data);
2508:
2509: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : SUBMIT_INVOICES : UPDATE_TAI_TIL : '||l_return_status);
2510:
2511: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
2512: THEN
2513: Get_Messages (l_msg_count,l_message);
2512: THEN
2513: Get_Messages (l_msg_count,l_message);
2514: IF (G_IS_DEBUG_STATEMENT_ON = true)
2515: THEN
2516: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
2517: G_MODULE,
2518: 'Error in updating cure amounts:'||l_message);
2519: END IF;
2520: raise FND_API.G_EXC_ERROR;
2524: x_return_status =>l_return_status,
2525: x_msg_count =>l_msg_count,
2526: x_msg_data =>l_msg_data);
2527:
2528: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : SUBMIT_INVOICES : CREATE_ACCOUNTING : '||l_return_status);
2529:
2530: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
2531: THEN
2532: Get_Messages (l_msg_count,l_message);
2531: THEN
2532: Get_Messages (l_msg_count,l_message);
2533: IF (G_IS_DEBUG_STATEMENT_ON = true)
2534: THEN
2535: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
2536: G_MODULE,
2537: 'Error in Creating distributions'||l_message);
2538: END IF;
2539: raise FND_API.G_EXC_ERROR;
2544: x_return_status =>l_return_status,
2545: x_msg_count =>l_msg_count,
2546: x_msg_data =>l_msg_data);
2547:
2548: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : SUBMIT_INVOICES : UPDATE_CAM : '||l_return_status);
2549:
2550: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
2551: THEN
2552: Get_Messages (l_msg_count,l_message);
2551: THEN
2552: Get_Messages (l_msg_count,l_message);
2553: IF (G_IS_DEBUG_STATEMENT_ON = true)
2554: THEN
2555: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
2556: G_MODULE,
2557: 'Error in updating cure amounts:'||l_message);
2558: END IF;
2559: raise FND_API.G_EXC_ERROR;
2564: x_return_status =>l_return_status,
2565: x_msg_count =>l_msg_count,
2566: x_msg_data =>l_msg_data);
2567:
2568: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : SUBMIT_INVOICES : UPDATE_CRT : '||l_return_status);
2569:
2570: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
2571: THEN
2572: Get_Messages (l_msg_count,l_message);
2571: THEN
2572: Get_Messages (l_msg_count,l_message);
2573: IF (G_IS_DEBUG_STATEMENT_ON = true)
2574: THEN
2575: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error is :' ||l_message);
2576: END IF;
2577: raise FND_API.G_EXC_ERROR;
2578: ELSE
2579: IF (G_IS_DEBUG_STATEMENT_ON = true)
2577: raise FND_API.G_EXC_ERROR;
2578: ELSE
2579: IF (G_IS_DEBUG_STATEMENT_ON = true)
2580: THEN
2581: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updated cure reports table ');
2582: END IF;
2583: END IF;
2584:
2585: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2586: p_data => x_msg_data );
2587:
2588: IF (G_IS_DEBUG_STATEMENT_ON = true)
2589: THEN
2590: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
2591: G_MODULE,
2592: ' End of Procedure => OKL_PAY_RECON_PVT.submit_Cure_invoices');
2593:
2594: END IF;
2592: ' End of Procedure => OKL_PAY_RECON_PVT.submit_Cure_invoices');
2593:
2594: END IF;
2595:
2596: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : SUBMIT_INVOICES : END ');
2597:
2598: EXCEPTION
2599: WHEN Fnd_Api.G_EXC_ERROR THEN
2600: ROLLBACK TO SUBMIT_INVOICES;
2642: l_message VARCHAR2(32627);
2643:
2644: BEGIN
2645:
2646: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CURE_INVOICE : START ');
2647:
2648: IF (G_DEBUG_ENABLED = 'Y')
2649: THEN
2650: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2646: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CURE_INVOICE : START ');
2647:
2648: IF (G_DEBUG_ENABLED = 'Y')
2649: THEN
2650: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2651: END IF;
2652:
2653: SAVEPOINT UPDATE_CURE_INVOICE_PVT;
2654: x_return_status := FND_API.G_RET_STS_SUCCESS;
2656: IF p_operation ='UPDATE'
2657: THEN
2658: IF (G_IS_DEBUG_STATEMENT_ON = true)
2659: THEN
2660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Operation is Update');
2661: END IF;
2662: Update_invoices (p_cam_tbl =>p_cam_tbl,
2663: p_report_id =>p_report_id,
2664: p_invoice_date =>p_invoice_date,
2665: x_return_status =>l_return_status,
2666: x_msg_count =>l_msg_count,
2667: x_msg_data =>l_msg_data);
2668:
2669: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CURE_INVOICE : Update_invoices : '||l_return_status);
2670:
2671: ELSE
2672: IF (G_IS_DEBUG_STATEMENT_ON = true)
2673: THEN
2670:
2671: ELSE
2672: IF (G_IS_DEBUG_STATEMENT_ON = true)
2673: THEN
2674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Operation is Submit');
2675: END IF;
2676: submit_invoices(p_cam_tbl =>p_cam_tbl,
2677: p_report_id =>p_report_id,
2678: --p_invoice_date =>SYSDATE,
2680: x_return_status =>l_return_status,
2681: x_msg_count =>l_msg_count,
2682: x_msg_data =>l_msg_data);
2683:
2684: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CURE_INVOICE : submit_invoices : '||l_return_status);
2685: END IF;
2686:
2687: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS)
2688: THEN
2688: THEN
2689: Get_Messages (l_msg_count,l_message);
2690: IF (G_IS_DEBUG_STATEMENT_ON = true)
2691: THEN
2692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error is :' ||l_message);
2693: END IF;
2694: raise FND_API.G_EXC_ERROR;
2695: ELSE
2696: IF (G_IS_DEBUG_STATEMENT_ON = true)
2694: raise FND_API.G_EXC_ERROR;
2695: ELSE
2696: IF (G_IS_DEBUG_STATEMENT_ON = true)
2697: THEN
2698: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Invoices updated');
2699: END IF;
2700: END IF;
2701:
2702: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2703: p_data => x_msg_data);
2704:
2705: IF (G_IS_DEBUG_STATEMENT_ON = true)
2706: THEN
2707: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
2708: G_MODULE,
2709: ' End of Procedure => OKL_PAY_RECON_PVT.update_Cure_invoices');
2710: END IF;
2711:
2708: G_MODULE,
2709: ' End of Procedure => OKL_PAY_RECON_PVT.update_Cure_invoices');
2710: END IF;
2711:
2712: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CURE_INVOICE : END ');
2713:
2714: EXCEPTION
2715: WHEN Fnd_Api.G_EXC_ERROR THEN
2716: ROLLBACK TO UPDATE_CURE_INVOICE_PVT;