512: lp_taiv_rec okl_tai_pvt.taiv_rec_type;
513: xp_taiv_rec okl_tai_pvt.taiv_rec_type;
514: lp_tilv_rec okl_til_pvt.tilv_rec_type;
515: xp_tilv_rec okl_til_pvt.tilv_rec_type;
516: lp_tldv_rec okl_tld_pvt.tldv_rec_type;
517: xp_tldv_rec okl_tld_pvt.tldv_rec_type;
518:
519: BEGIN
520:
513: xp_taiv_rec okl_tai_pvt.taiv_rec_type;
514: lp_tilv_rec okl_til_pvt.tilv_rec_type;
515: xp_tilv_rec okl_til_pvt.tilv_rec_type;
516: lp_tldv_rec okl_tld_pvt.tldv_rec_type;
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 ');
631: CLOSE c_get_txd_obj_ver;
632:
633: lp_tldv_rec.amount :=p_negotiated_amount;
634:
635: okl_tld_pvt.update_row(
636: p_api_version => 1.0,
637: p_init_msg_list => 'F',
638: x_return_status => l_return_status,
639: x_msg_count => x_msg_count,
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)
651: END IF;
652: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
653: ELSE
654: FND_MSG_PUB.initialize;
655: END IF; -- for okl_tld_pvt
656:
657: -- R12 CHANGE- END
658:
659: END IF; -- for okl_txl_ar_inv_lns
725: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
726: ,x_return_status OUT NOCOPY VARCHAR2
727: ,x_msg_count OUT NOCOPY NUMBER
728: ,x_msg_data OUT NOCOPY VARCHAR2
729: ,p_tldv_rec IN okl_tld_pvt.tldv_rec_type
730: ,x_tldv_rec OUT NOCOPY okl_tld_pvt.tldv_rec_type )
731: IS
732: l_api_name CONSTANT VARCHAR2(30) := 'additional_tld_attr';
733: l_api_version CONSTANT NUMBER := 1.0;
726: ,x_return_status OUT NOCOPY VARCHAR2
727: ,x_msg_count OUT NOCOPY NUMBER
728: ,x_msg_data OUT NOCOPY VARCHAR2
729: ,p_tldv_rec IN okl_tld_pvt.tldv_rec_type
730: ,x_tldv_rec OUT NOCOPY okl_tld_pvt.tldv_rec_type )
731: IS
732: l_api_name CONSTANT VARCHAR2(30) := 'additional_tld_attr';
733: l_api_version CONSTANT NUMBER := 1.0;
734: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
896: lp_taiv_rec okl_tai_pvt.taiv_rec_type;
897: xp_taiv_rec okl_tai_pvt.taiv_rec_type;
898: lp_tilv_rec okl_til_pvt.tilv_rec_type;
899: xp_tilv_rec okl_til_pvt.tilv_rec_type;
900: lp_tldv_rec okl_tld_pvt.tldv_rec_type;
901: xp_tldv_rec okl_tld_pvt.tldv_rec_type;
902:
903: -- R12 Change - START
904: -- added contract header table to extract additional parameters to
897: xp_taiv_rec okl_tai_pvt.taiv_rec_type;
898: lp_tilv_rec okl_til_pvt.tilv_rec_type;
899: xp_tilv_rec okl_til_pvt.tilv_rec_type;
900: lp_tldv_rec okl_tld_pvt.tldv_rec_type;
901: xp_tldv_rec okl_tld_pvt.tldv_rec_type;
902:
903: -- R12 Change - START
904: -- added contract header table to extract additional parameters to
905: -- populate invoice headers table. Otherwise it is not transferring to AR.
1465: END IF;
1466: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1467: END IF;
1468:
1469: okl_tld_pvt.insert_row(
1470: p_api_version => 1.0,
1471: p_init_msg_list => OKL_API.G_FALSE,
1472: x_return_status => l_return_status,
1473: x_msg_count => x_msg_count,
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)
1485: END IF;
1486: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1487: ELSE
1488: FND_MSG_PUB.initialize;
1489: END IF; -- for okl_tld_pvt
1490: -- R12 Change - END
1491:
1492: END IF; -- for okl_txl_ar_inv_lns
1493: