1: PACKAGE BODY OKC_CVM_PVT AS
2: /* $Header: OKCSCVMB.pls 120.2 2006/05/24 23:06:54 tweichen noship $ */
3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
1528: x_msg_data OUT NOCOPY VARCHAR2,
1529: p_cvmv_rec IN cvmv_rec_type,
1530: x_cvmv_rec OUT NOCOPY cvmv_rec_type) IS
1531: BEGIN
1532: OKC_CVM_PVT.insert_row(
1533: p_api_version,
1534: p_init_msg_list,
1535: x_return_status,
1536: x_msg_count,
1550: p_cvmv_rec IN cvmv_rec_type,
1551: x_cvmv_rec OUT NOCOPY cvmv_rec_type) IS
1552:
1553: v_trans_id VARCHAR2(100);
1554: l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
1555: BEGIN
1556: IF (l_debug = 'Y') THEN
1557: okc_debug.Set_Indentation('OKC_CVM_PVT');
1558: okc_debug.log('1000: Entered update_contract_version, g_defer_min_vers_upd='||g_defer_min_vers_upd, 2);
1553: v_trans_id VARCHAR2(100);
1554: l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
1555: BEGIN
1556: IF (l_debug = 'Y') THEN
1557: okc_debug.Set_Indentation('OKC_CVM_PVT');
1558: okc_debug.log('1000: Entered update_contract_version, g_defer_min_vers_upd='||g_defer_min_vers_upd, 2);
1559: END IF;
1560:
1561: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1583: l_cvmv_rec.major_version := OKC_API.G_MISS_NUM;
1584: -- Major version update is not allowed
1585:
1586: -- update contract version number
1587: OKC_CVM_PVT.update_row(
1588: p_api_version,
1589: p_init_msg_list,
1590: x_return_status,
1591: x_msg_count,
1612: x_msg_data OUT NOCOPY VARCHAR2,
1613: p_cvmv_rec IN cvmv_rec_type,
1614: x_cvmv_rec OUT NOCOPY cvmv_rec_type) IS
1615:
1616: l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
1617: l_major_version NUMBER;
1618: l_not_found BOOLEAN := FALSE;
1619:
1620: Cursor l_cvmv_csr(p_chr_id NUMBER) Is
1641: --
1642: l_cvmv_rec.major_version := l_major_version + 1;
1643: l_cvmv_rec.minor_version := -1;
1644:
1645: OKC_CVM_PVT.update_row(
1646: p_api_version,
1647: p_init_msg_list,
1648: x_return_status,
1649: x_msg_count,
1666: x_msg_data OUT NOCOPY VARCHAR2,
1667: p_cvmv_rec IN cvmv_rec_type) IS
1668: BEGIN
1669:
1670: OKC_CVM_PVT.delete_row(
1671: p_api_version,
1672: p_init_msg_list,
1673: x_return_status,
1674: x_msg_count,
1692: IS
1693: BEGIN
1694:
1695: IF (l_debug = 'Y') THEN
1696: okc_debug.Set_Indentation('OKC_CVM_PVT');
1697: okc_debug.log('8000: Entered defer_minor_version_update, p_defer='||p_defer||' ,g_defer_min_vers_upd='||g_defer_min_vers_upd, 2);
1698: END IF;
1699:
1700: IF (FND_API.G_TRUE = p_defer) THEN
1715: l_init_msg_list VARCHAR2(1) := 'F';
1716: x_return_status VARCHAR2(1);
1717: x_msg_count NUMBER;
1718: x_msg_data VARCHAR2(2000);
1719: x_out_rec OKC_CVM_PVT.cvmv_rec_type;
1720: l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
1721: BEGIN
1722:
1723: IF (l_debug = 'Y') THEN
1716: x_return_status VARCHAR2(1);
1717: x_msg_count NUMBER;
1718: x_msg_data VARCHAR2(2000);
1719: x_out_rec OKC_CVM_PVT.cvmv_rec_type;
1720: l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
1721: BEGIN
1722:
1723: IF (l_debug = 'Y') THEN
1724: okc_debug.Set_Indentation('OKC_CVM_PVT');
1720: l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
1721: BEGIN
1722:
1723: IF (l_debug = 'Y') THEN
1724: okc_debug.Set_Indentation('OKC_CVM_PVT');
1725: okc_debug.log('9000: Entered Update_Minor_Version(p_chr_id), p_chr_id='||p_chr_id, 2);
1726: END IF;
1727:
1728: -- initialize return status
1730:
1731: -- assign/populate contract header id
1732: l_cvmv_rec.chr_id := p_chr_id;
1733:
1734: OKC_CVM_PVT.update_contract_version(
1735: p_api_version => l_api_version,
1736: p_init_msg_list => l_init_msg_list,
1737: x_return_status => x_return_status,
1738: x_msg_count => x_msg_count,
1768:
1769: END Update_Minor_Version;
1770:
1771:
1772: END OKC_CVM_PVT;