[Home] [Help]
1404: l_cspv_rec.last_update_login;
1405: l_no_data_found := OKL_SLCTD_OPTNS_CSR%NOTFOUND;
1406: CLOSE OKL_SLCTD_OPTNS_CSR;
1407:
1408: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1409: IF (l_no_data_found) THEN
1410: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
1411: x_return_status := OKL_API.G_RET_STS_ERROR;
1412: END IF;
1406: CLOSE OKL_SLCTD_OPTNS_CSR;
1407:
1408: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1409: IF (l_no_data_found) THEN
1410: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
1411: x_return_status := OKL_API.G_RET_STS_ERROR;
1412: END IF;
1413:
1414: RETURN(l_cspv_rec);
1407:
1408: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1409: IF (l_no_data_found) THEN
1410: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
1411: x_return_status := OKL_API.G_RET_STS_ERROR;
1412: END IF;
1413:
1414: RETURN(l_cspv_rec);
1415: END get_cspv_rec;
1424: ) RETURN ppydv_rec_type IS
1425: l_ppydv_rec ppydv_rec_type;
1426: l_row_notfound BOOLEAN := TRUE;
1427: BEGIN
1428: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1429: l_ppydv_rec := get_ppydv_rec(p_ppydv_rec, l_row_notfound);
1430: IF (l_row_notfound) THEN
1431: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
1432: x_return_status := OKL_API.G_RET_STS_ERROR;
1427: BEGIN
1428: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1429: l_ppydv_rec := get_ppydv_rec(p_ppydv_rec, l_row_notfound);
1430: IF (l_row_notfound) THEN
1431: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
1432: x_return_status := OKL_API.G_RET_STS_ERROR;
1433: END IF;
1434: RETURN(l_ppydv_rec);
1435: END get_ppydv_rec;
1428: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1429: l_ppydv_rec := get_ppydv_rec(p_ppydv_rec, l_row_notfound);
1430: IF (l_row_notfound) THEN
1431: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
1432: x_return_status := OKL_API.G_RET_STS_ERROR;
1433: END IF;
1434: RETURN(l_ppydv_rec);
1435: END get_ppydv_rec;
1436: -----------------------------------------------------------
1459: l_get_pphv_rec pphv_rec_type;
1460: l_pphv_rec pphv_rec_type;
1461: lx_pphv_rec pphv_rec_type;
1462:
1463: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1464: l_api_name CONSTANT varchar2(30) := 'COPY_PARTY_PYMT_HDR';
1465: l_api_version CONSTANT NUMBER := 1.0;
1466:
1467: Begin
1464: l_api_name CONSTANT varchar2(30) := 'COPY_PARTY_PYMT_HDR';
1465: l_api_version CONSTANT NUMBER := 1.0;
1466:
1467: Begin
1468: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1469: -- Call start_activity to create savepoint, check compatibility
1470: -- and initialize message list
1471: x_return_status := OKL_API.START_ACTIVITY (
1472: l_api_name
1467: Begin
1468: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1469: -- Call start_activity to create savepoint, check compatibility
1470: -- and initialize message list
1471: x_return_status := OKL_API.START_ACTIVITY (
1472: l_api_name
1473: ,p_init_msg_list
1474: ,'_PVT'
1475: ,x_return_status);
1473: ,p_init_msg_list
1474: ,'_PVT'
1475: ,x_return_status);
1476: -- Check if activity started successfully
1477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1480: RAISE OKL_API.G_EXCEPTION_ERROR;
1481: END IF;
1474: ,'_PVT'
1475: ,x_return_status);
1476: -- Check if activity started successfully
1477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1480: RAISE OKL_API.G_EXCEPTION_ERROR;
1481: END IF;
1482:
1475: ,x_return_status);
1476: -- Check if activity started successfully
1477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1480: RAISE OKL_API.G_EXCEPTION_ERROR;
1481: END IF;
1482:
1483: l_get_pphv_rec.id := p_pph_id;
1476: -- Check if activity started successfully
1477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1480: RAISE OKL_API.G_EXCEPTION_ERROR;
1481: END IF;
1482:
1483: l_get_pphv_rec.id := p_pph_id;
1484: l_pphv_rec := get_pphv_rec(p_pphv_rec => l_get_pphv_rec,
1485: x_return_status => x_return_status);
1486: l_pphv_rec.dnz_chr_id := p_chr_id;
1487: l_pphv_rec.cle_id := p_cle_id;
1488:
1489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1492: RAISE OKL_API.G_EXCEPTION_ERROR;
1493: END IF;
1486: l_pphv_rec.dnz_chr_id := p_chr_id;
1487: l_pphv_rec.cle_id := p_cle_id;
1488:
1489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1492: RAISE OKL_API.G_EXCEPTION_ERROR;
1493: END IF;
1494:
1487: l_pphv_rec.cle_id := p_cle_id;
1488:
1489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1492: RAISE OKL_API.G_EXCEPTION_ERROR;
1493: END IF;
1494:
1495: OKL_LDB_PVT.insert_row
1488:
1489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1492: RAISE OKL_API.G_EXCEPTION_ERROR;
1493: END IF;
1494:
1495: OKL_LDB_PVT.insert_row
1496: (p_api_version => p_api_version,
1500: x_msg_data => x_msg_data,
1501: p_pphv_rec => l_pphv_rec,
1502: x_pphv_rec => lx_pphv_rec);
1503:
1504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1507: RAISE OKL_API.G_EXCEPTION_ERROR;
1508: END IF;
1501: p_pphv_rec => l_pphv_rec,
1502: x_pphv_rec => lx_pphv_rec);
1503:
1504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1507: RAISE OKL_API.G_EXCEPTION_ERROR;
1508: END IF;
1509: x_pph_id := lx_pphv_rec.id;
1502: x_pphv_rec => lx_pphv_rec);
1503:
1504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1507: RAISE OKL_API.G_EXCEPTION_ERROR;
1508: END IF;
1509: x_pph_id := lx_pphv_rec.id;
1510:
1503:
1504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1507: RAISE OKL_API.G_EXCEPTION_ERROR;
1508: END IF;
1509: x_pph_id := lx_pphv_rec.id;
1510:
1511: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1507: RAISE OKL_API.G_EXCEPTION_ERROR;
1508: END IF;
1509: x_pph_id := lx_pphv_rec.id;
1510:
1511: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1512:
1513: EXCEPTION
1514:
1515: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1511: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1512:
1513: EXCEPTION
1514:
1515: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1516: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1517: l_api_name,
1518: G_PKG_NAME,
1519: 'OKL_API.G_RET_STS_ERROR',
1512:
1513: EXCEPTION
1514:
1515: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1516: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1517: l_api_name,
1518: G_PKG_NAME,
1519: 'OKL_API.G_RET_STS_ERROR',
1520: x_msg_count,
1515: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1516: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1517: l_api_name,
1518: G_PKG_NAME,
1519: 'OKL_API.G_RET_STS_ERROR',
1520: x_msg_count,
1521: x_msg_data,
1522: '_PVT');
1523: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1519: 'OKL_API.G_RET_STS_ERROR',
1520: x_msg_count,
1521: x_msg_data,
1522: '_PVT');
1523: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1524: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1525: l_api_name,
1526: G_PKG_NAME,
1527: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1520: x_msg_count,
1521: x_msg_data,
1522: '_PVT');
1523: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1524: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1525: l_api_name,
1526: G_PKG_NAME,
1527: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1528: x_msg_count,
1523: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1524: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1525: l_api_name,
1526: G_PKG_NAME,
1527: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1528: x_msg_count,
1529: x_msg_data,
1530: '_PVT');
1531: WHEN OTHERS THEN
1528: x_msg_count,
1529: x_msg_data,
1530: '_PVT');
1531: WHEN OTHERS THEN
1532: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1533: l_api_name,
1534: G_PKG_NAME,
1535: 'OTHERS',
1536: x_msg_count,
1559: x_msg_data OUT NOCOPY VARCHAR2,
1560: p_pyd_id IN NUMBER,
1561: p_cpl_id IN NUMBER,
1562: --furong 4350255
1563: p_pph_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
1564: --furong 4350255
1565: x_pyd_id OUT NOCOPY NUMBER,
1566: --Bug# 8677460
1567: p_rebook_yn IN VARCHAR2 DEFAULT 'N') IS
1569: l_get_ppydv_rec ppydv_rec_type;
1570: l_ppydv_rec ppydv_rec_type;
1571: lx_ppydv_rec ppydv_rec_type;
1572:
1573: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1574: l_api_name CONSTANT varchar2(30) := 'COPY_PARTY_PYMT_DTLS';
1575: l_api_version CONSTANT NUMBER := 1.0;
1576:
1577: Begin
1574: l_api_name CONSTANT varchar2(30) := 'COPY_PARTY_PYMT_DTLS';
1575: l_api_version CONSTANT NUMBER := 1.0;
1576:
1577: Begin
1578: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1579: -- Call start_activity to create savepoint, check compatibility
1580: -- and initialize message list
1581: x_return_status := OKL_API.START_ACTIVITY (
1582: l_api_name
1577: Begin
1578: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1579: -- Call start_activity to create savepoint, check compatibility
1580: -- and initialize message list
1581: x_return_status := OKL_API.START_ACTIVITY (
1582: l_api_name
1583: ,p_init_msg_list
1584: ,'_PVT'
1585: ,x_return_status);
1583: ,p_init_msg_list
1584: ,'_PVT'
1585: ,x_return_status);
1586: -- Check if activity started successfully
1587: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1590: RAISE OKL_API.G_EXCEPTION_ERROR;
1591: END IF;
1584: ,'_PVT'
1585: ,x_return_status);
1586: -- Check if activity started successfully
1587: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1590: RAISE OKL_API.G_EXCEPTION_ERROR;
1591: END IF;
1592:
1585: ,x_return_status);
1586: -- Check if activity started successfully
1587: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1590: RAISE OKL_API.G_EXCEPTION_ERROR;
1591: END IF;
1592:
1593: l_get_ppydv_rec.id := p_pyd_id;
1586: -- Check if activity started successfully
1587: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1590: RAISE OKL_API.G_EXCEPTION_ERROR;
1591: END IF;
1592:
1593: l_get_ppydv_rec.id := p_pyd_id;
1594: l_ppydv_rec := get_ppydv_rec(p_ppydv_rec => l_get_ppydv_rec,
1593: l_get_ppydv_rec.id := p_pyd_id;
1594: l_ppydv_rec := get_ppydv_rec(p_ppydv_rec => l_get_ppydv_rec,
1595: x_return_status => x_return_status);
1596:
1597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1599: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1600: RAISE OKL_API.G_EXCEPTION_ERROR;
1601: END IF;
1594: l_ppydv_rec := get_ppydv_rec(p_ppydv_rec => l_get_ppydv_rec,
1595: x_return_status => x_return_status);
1596:
1597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1599: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1600: RAISE OKL_API.G_EXCEPTION_ERROR;
1601: END IF;
1602:
1595: x_return_status => x_return_status);
1596:
1597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1599: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1600: RAISE OKL_API.G_EXCEPTION_ERROR;
1601: END IF;
1602:
1603: --create party payment details
1596:
1597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1599: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1600: RAISE OKL_API.G_EXCEPTION_ERROR;
1601: END IF;
1602:
1603: --create party payment details
1604: l_ppydv_rec.cpl_id := p_cpl_id;
1617: x_msg_data => x_msg_data,
1618: p_ppydv_rec => l_ppydv_rec,
1619: x_ppydv_rec => lx_ppydv_rec);
1620:
1621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1624: RAISE OKL_API.G_EXCEPTION_ERROR;
1625: END IF;
1618: p_ppydv_rec => l_ppydv_rec,
1619: x_ppydv_rec => lx_ppydv_rec);
1620:
1621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1624: RAISE OKL_API.G_EXCEPTION_ERROR;
1625: END IF;
1626: x_pyd_id := lx_ppydv_rec.id;
1619: x_ppydv_rec => lx_ppydv_rec);
1620:
1621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1624: RAISE OKL_API.G_EXCEPTION_ERROR;
1625: END IF;
1626: x_pyd_id := lx_ppydv_rec.id;
1627:
1620:
1621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1624: RAISE OKL_API.G_EXCEPTION_ERROR;
1625: END IF;
1626: x_pyd_id := lx_ppydv_rec.id;
1627:
1628: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1624: RAISE OKL_API.G_EXCEPTION_ERROR;
1625: END IF;
1626: x_pyd_id := lx_ppydv_rec.id;
1627:
1628: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1629:
1630: EXCEPTION
1631:
1632: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1628: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1629:
1630: EXCEPTION
1631:
1632: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1633: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1634: l_api_name,
1635: G_PKG_NAME,
1636: 'OKL_API.G_RET_STS_ERROR',
1629:
1630: EXCEPTION
1631:
1632: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1633: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1634: l_api_name,
1635: G_PKG_NAME,
1636: 'OKL_API.G_RET_STS_ERROR',
1637: x_msg_count,
1632: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1633: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1634: l_api_name,
1635: G_PKG_NAME,
1636: 'OKL_API.G_RET_STS_ERROR',
1637: x_msg_count,
1638: x_msg_data,
1639: '_PVT');
1640: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1636: 'OKL_API.G_RET_STS_ERROR',
1637: x_msg_count,
1638: x_msg_data,
1639: '_PVT');
1640: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1641: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1642: l_api_name,
1643: G_PKG_NAME,
1644: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1637: x_msg_count,
1638: x_msg_data,
1639: '_PVT');
1640: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1641: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1642: l_api_name,
1643: G_PKG_NAME,
1644: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1645: x_msg_count,
1640: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1641: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1642: l_api_name,
1643: G_PKG_NAME,
1644: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1645: x_msg_count,
1646: x_msg_data,
1647: '_PVT');
1648: WHEN OTHERS THEN
1645: x_msg_count,
1646: x_msg_data,
1647: '_PVT');
1648: WHEN OTHERS THEN
1649: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1650: l_api_name,
1651: G_PKG_NAME,
1652: 'OTHERS',
1653: x_msg_count,
1669: l_get_kplv_rec kplv_rec_type;
1670: l_kplv_rec kplv_rec_type;
1671: lx_kplv_rec kplv_rec_type;
1672:
1673: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1674: l_api_name CONSTANT varchar2(30) := 'COPY_OKL_K_PARTY_ROLES';
1675: l_api_version CONSTANT NUMBER := 1.0;
1676:
1677: Begin
1674: l_api_name CONSTANT varchar2(30) := 'COPY_OKL_K_PARTY_ROLES';
1675: l_api_version CONSTANT NUMBER := 1.0;
1676:
1677: Begin
1678: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1679: -- Call start_activity to create savepoint, check compatibility
1680: -- and initialize message list
1681: x_return_status := OKL_API.START_ACTIVITY (
1682: l_api_name
1677: Begin
1678: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1679: -- Call start_activity to create savepoint, check compatibility
1680: -- and initialize message list
1681: x_return_status := OKL_API.START_ACTIVITY (
1682: l_api_name
1683: ,p_init_msg_list
1684: ,'_PVT'
1685: ,x_return_status);
1683: ,p_init_msg_list
1684: ,'_PVT'
1685: ,x_return_status);
1686: -- Check if activity started successfully
1687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1689: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1690: RAISE OKL_API.G_EXCEPTION_ERROR;
1691: END IF;
1684: ,'_PVT'
1685: ,x_return_status);
1686: -- Check if activity started successfully
1687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1689: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1690: RAISE OKL_API.G_EXCEPTION_ERROR;
1691: END IF;
1692:
1685: ,x_return_status);
1686: -- Check if activity started successfully
1687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1689: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1690: RAISE OKL_API.G_EXCEPTION_ERROR;
1691: END IF;
1692:
1693: l_get_kplv_rec.id := p_kpl_id;
1686: -- Check if activity started successfully
1687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1689: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1690: RAISE OKL_API.G_EXCEPTION_ERROR;
1691: END IF;
1692:
1693: l_get_kplv_rec.id := p_kpl_id;
1694: l_kplv_rec := get_kplv_rec(p_kplv_rec => l_get_kplv_rec,
1694: l_kplv_rec := get_kplv_rec(p_kplv_rec => l_get_kplv_rec,
1695: x_return_status => x_return_status);
1696: l_kplv_rec.id := p_cpl_id;
1697:
1698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1701: RAISE OKL_API.G_EXCEPTION_ERROR;
1702: END IF;
1695: x_return_status => x_return_status);
1696: l_kplv_rec.id := p_cpl_id;
1697:
1698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1701: RAISE OKL_API.G_EXCEPTION_ERROR;
1702: END IF;
1703:
1696: l_kplv_rec.id := p_cpl_id;
1697:
1698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1701: RAISE OKL_API.G_EXCEPTION_ERROR;
1702: END IF;
1703:
1704: OKL_KPL_PVT.insert_row
1697:
1698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1701: RAISE OKL_API.G_EXCEPTION_ERROR;
1702: END IF;
1703:
1704: OKL_KPL_PVT.insert_row
1705: (p_api_version => p_api_version,
1709: x_msg_data => x_msg_data,
1710: p_kplv_rec => l_kplv_rec,
1711: x_kplv_rec => lx_kplv_rec);
1712:
1713: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1715: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1716: RAISE OKL_API.G_EXCEPTION_ERROR;
1717: END IF;
1710: p_kplv_rec => l_kplv_rec,
1711: x_kplv_rec => lx_kplv_rec);
1712:
1713: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1715: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1716: RAISE OKL_API.G_EXCEPTION_ERROR;
1717: END IF;
1718: x_kpl_id := lx_kplv_rec.id;
1711: x_kplv_rec => lx_kplv_rec);
1712:
1713: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1715: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1716: RAISE OKL_API.G_EXCEPTION_ERROR;
1717: END IF;
1718: x_kpl_id := lx_kplv_rec.id;
1719:
1712:
1713: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1715: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1716: RAISE OKL_API.G_EXCEPTION_ERROR;
1717: END IF;
1718: x_kpl_id := lx_kplv_rec.id;
1719:
1720: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1716: RAISE OKL_API.G_EXCEPTION_ERROR;
1717: END IF;
1718: x_kpl_id := lx_kplv_rec.id;
1719:
1720: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1721:
1722: EXCEPTION
1723:
1724: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1720: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1721:
1722: EXCEPTION
1723:
1724: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1725: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1726: l_api_name,
1727: G_PKG_NAME,
1728: 'OKL_API.G_RET_STS_ERROR',
1721:
1722: EXCEPTION
1723:
1724: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1725: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1726: l_api_name,
1727: G_PKG_NAME,
1728: 'OKL_API.G_RET_STS_ERROR',
1729: x_msg_count,
1724: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1725: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1726: l_api_name,
1727: G_PKG_NAME,
1728: 'OKL_API.G_RET_STS_ERROR',
1729: x_msg_count,
1730: x_msg_data,
1731: '_PVT');
1732: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1728: 'OKL_API.G_RET_STS_ERROR',
1729: x_msg_count,
1730: x_msg_data,
1731: '_PVT');
1732: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1733: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1734: l_api_name,
1735: G_PKG_NAME,
1736: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1729: x_msg_count,
1730: x_msg_data,
1731: '_PVT');
1732: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1733: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1734: l_api_name,
1735: G_PKG_NAME,
1736: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1737: x_msg_count,
1732: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1733: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1734: l_api_name,
1735: G_PKG_NAME,
1736: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1737: x_msg_count,
1738: x_msg_data,
1739: '_PVT');
1740: WHEN OTHERS THEN
1737: x_msg_count,
1738: x_msg_data,
1739: '_PVT');
1740: WHEN OTHERS THEN
1741: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1742: l_api_name,
1743: G_PKG_NAME,
1744: 'OTHERS',
1745: x_msg_count,
1761: -- End of comments
1762: --------------------------------------------------------------------------------
1763: Procedure Catchup_okl_contract_line(
1764: p_api_version IN NUMBER,
1765: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1766: x_return_status OUT NOCOPY VARCHAR2,
1767: x_msg_count OUT NOCOPY NUMBER,
1768: x_msg_data OUT NOCOPY VARCHAR2,
1769: p_clev_id IN NUMBER,
1772: x_klev_rec OUT NOCOPY klev_rec_type,
1773: --Bug# 8677460
1774: p_rebook_yn IN VARCHAR2 DEFAULT 'N') is
1775:
1776: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1777: l_api_name CONSTANT VARCHAR2(30) := 'CATCHUP_OKL_CONTRACT_LINE';
1778: l_api_version CONSTANT NUMBER := 1.0;
1779: l_clev_rec clev_rec_type;
1780: l_clev_rec_out clev_rec_type;
1785: -- Catch up shadow for Contract Lines
1786: l_clev_rec := get_clev_rec(p_clev_id => p_klev_id);
1787: -- get the newly created line record
1788: /*
1789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1792: RAISE OKL_API.G_EXCEPTION_ERROR;
1793: END IF;
1786: l_clev_rec := get_clev_rec(p_clev_id => p_klev_id);
1787: -- get the newly created line record
1788: /*
1789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1792: RAISE OKL_API.G_EXCEPTION_ERROR;
1793: END IF;
1794: */
1787: -- get the newly created line record
1788: /*
1789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1792: RAISE OKL_API.G_EXCEPTION_ERROR;
1793: END IF;
1794: */
1795: l_klev_rec := get_klev_rec(p_klev_id => p_clev_id);
1788: /*
1789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1792: RAISE OKL_API.G_EXCEPTION_ERROR;
1793: END IF;
1794: */
1795: l_klev_rec := get_klev_rec(p_klev_id => p_clev_id);
1796: --get klev record to copy from
1816: p_klev_rec => l_klev_rec,
1817: x_clev_rec => l_clev_rec_out,
1818: x_klev_rec => x_klev_rec);
1819: -- check return status
1820: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1821: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1822: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1823: raise OKL_API.G_EXCEPTION_ERROR;
1824: End If;
1817: x_clev_rec => l_clev_rec_out,
1818: x_klev_rec => x_klev_rec);
1819: -- check return status
1820: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1821: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1822: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1823: raise OKL_API.G_EXCEPTION_ERROR;
1824: End If;
1825:
1818: x_klev_rec => x_klev_rec);
1819: -- check return status
1820: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1821: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1822: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1823: raise OKL_API.G_EXCEPTION_ERROR;
1824: End If;
1825:
1826: --Call End Activity
1819: -- check return status
1820: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1821: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1822: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1823: raise OKL_API.G_EXCEPTION_ERROR;
1824: End If;
1825:
1826: --Call End Activity
1827: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1823: raise OKL_API.G_EXCEPTION_ERROR;
1824: End If;
1825:
1826: --Call End Activity
1827: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1828: x_msg_data => x_msg_data);
1829: EXCEPTION
1830: when OKL_API.G_EXCEPTION_ERROR then
1831: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1826: --Call End Activity
1827: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1828: x_msg_data => x_msg_data);
1829: EXCEPTION
1830: when OKL_API.G_EXCEPTION_ERROR then
1831: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1832: p_api_name => l_api_name,
1833: p_pkg_name => g_pkg_name,
1834: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1827: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1828: x_msg_data => x_msg_data);
1829: EXCEPTION
1830: when OKL_API.G_EXCEPTION_ERROR then
1831: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1832: p_api_name => l_api_name,
1833: p_pkg_name => g_pkg_name,
1834: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1835: x_msg_count => x_msg_count,
1830: when OKL_API.G_EXCEPTION_ERROR then
1831: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1832: p_api_name => l_api_name,
1833: p_pkg_name => g_pkg_name,
1834: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1835: x_msg_count => x_msg_count,
1836: x_msg_data => x_msg_data,
1837: p_api_type => g_api_type);
1838:
1835: x_msg_count => x_msg_count,
1836: x_msg_data => x_msg_data,
1837: p_api_type => g_api_type);
1838:
1839: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1840: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1841: p_api_name => l_api_name,
1842: p_pkg_name => g_pkg_name,
1843: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1836: x_msg_data => x_msg_data,
1837: p_api_type => g_api_type);
1838:
1839: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1840: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1841: p_api_name => l_api_name,
1842: p_pkg_name => g_pkg_name,
1843: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1844: x_msg_count => x_msg_count,
1839: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1840: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1841: p_api_name => l_api_name,
1842: p_pkg_name => g_pkg_name,
1843: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1844: x_msg_count => x_msg_count,
1845: x_msg_data => x_msg_data,
1846: p_api_type => g_api_type);
1847:
1845: x_msg_data => x_msg_data,
1846: p_api_type => g_api_type);
1847:
1848: when OTHERS then
1849: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1850: p_api_name => l_api_name,
1851: p_pkg_name => g_pkg_name,
1852: p_exc_name => 'OTHERS',
1853: x_msg_count => x_msg_count,
1897: -- End of comments
1898: --------------------------------------------------------------------------------
1899: PROCEDURE copy_components(
1900: p_api_version IN NUMBER,
1901: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1902: x_return_status OUT NOCOPY VARCHAR2,
1903: x_msg_count OUT NOCOPY NUMBER,
1904: x_msg_data OUT NOCOPY VARCHAR2,
1905: p_from_chr_id IN NUMBER,
1914: p_prospect IN VARCHAR2,
1915: p_components_tbl IN api_components_tbl,
1916: p_lines_tbl IN api_lines_tbl,
1917: x_chr_id OUT NOCOPY NUMBER) is
1918: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1919: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_COMPONENTS';
1920: l_api_version CONSTANT NUMBER := 1.0;
1921:
1922: l_components_tbl api_components_tbl_okc;
1922: l_components_tbl api_components_tbl_okc;
1923: l_lines_tbl api_lines_tbl_okc;
1924: begin
1925: -----
1926: --Call OKL_API.START_ACTIVITY to set savepoints
1927: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
1928: G_PKG_NAME,
1929: p_init_msg_list,
1930: G_API_VERSION,
1923: l_lines_tbl api_lines_tbl_okc;
1924: begin
1925: -----
1926: --Call OKL_API.START_ACTIVITY to set savepoints
1927: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
1928: G_PKG_NAME,
1929: p_init_msg_list,
1930: G_API_VERSION,
1931: p_api_version,
1931: p_api_version,
1932: G_SCOPE,
1933: x_return_status);
1934:
1935: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1937: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1938: RAISE OKL_API.G_EXCEPTION_ERROR;
1939: END IF;
1932: G_SCOPE,
1933: x_return_status);
1934:
1935: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1937: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1938: RAISE OKL_API.G_EXCEPTION_ERROR;
1939: END IF;
1940:
1933: x_return_status);
1934:
1935: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1937: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1938: RAISE OKL_API.G_EXCEPTION_ERROR;
1939: END IF;
1940:
1941: l_components_tbl := migrate_components_tbl(p_components_tbl);
1934:
1935: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1937: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1938: RAISE OKL_API.G_EXCEPTION_ERROR;
1939: END IF;
1940:
1941: l_components_tbl := migrate_components_tbl(p_components_tbl);
1942: l_lines_tbl := migrate_lines_tbl(p_lines_tbl);
1961: p_lines_tbl => l_lines_tbl,
1962: x_chr_id => x_chr_id);
1963:
1964: -- check return status
1965: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1966: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1967: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1968: raise OKL_API.G_EXCEPTION_ERROR;
1969: End If;
1962: x_chr_id => x_chr_id);
1963:
1964: -- check return status
1965: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1966: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1967: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1968: raise OKL_API.G_EXCEPTION_ERROR;
1969: End If;
1970:
1963:
1964: -- check return status
1965: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1966: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1967: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1968: raise OKL_API.G_EXCEPTION_ERROR;
1969: End If;
1970:
1971: --Call End Activity
1964: -- check return status
1965: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1966: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1967: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1968: raise OKL_API.G_EXCEPTION_ERROR;
1969: End If;
1970:
1971: --Call End Activity
1972: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1968: raise OKL_API.G_EXCEPTION_ERROR;
1969: End If;
1970:
1971: --Call End Activity
1972: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1973: x_msg_data => x_msg_data);
1974: EXCEPTION
1975: when OKL_API.G_EXCEPTION_ERROR then
1976: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1971: --Call End Activity
1972: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1973: x_msg_data => x_msg_data);
1974: EXCEPTION
1975: when OKL_API.G_EXCEPTION_ERROR then
1976: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1977: p_api_name => l_api_name,
1978: p_pkg_name => g_pkg_name,
1979: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1972: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1973: x_msg_data => x_msg_data);
1974: EXCEPTION
1975: when OKL_API.G_EXCEPTION_ERROR then
1976: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1977: p_api_name => l_api_name,
1978: p_pkg_name => g_pkg_name,
1979: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1980: x_msg_count => x_msg_count,
1975: when OKL_API.G_EXCEPTION_ERROR then
1976: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1977: p_api_name => l_api_name,
1978: p_pkg_name => g_pkg_name,
1979: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1980: x_msg_count => x_msg_count,
1981: x_msg_data => x_msg_data,
1982: p_api_type => g_api_type);
1983:
1980: x_msg_count => x_msg_count,
1981: x_msg_data => x_msg_data,
1982: p_api_type => g_api_type);
1983:
1984: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1985: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1986: p_api_name => l_api_name,
1987: p_pkg_name => g_pkg_name,
1988: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1981: x_msg_data => x_msg_data,
1982: p_api_type => g_api_type);
1983:
1984: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1985: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1986: p_api_name => l_api_name,
1987: p_pkg_name => g_pkg_name,
1988: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1989: x_msg_count => x_msg_count,
1984: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1985: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1986: p_api_name => l_api_name,
1987: p_pkg_name => g_pkg_name,
1988: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1989: x_msg_count => x_msg_count,
1990: x_msg_data => x_msg_data,
1991: p_api_type => g_api_type);
1992:
1990: x_msg_data => x_msg_data,
1991: p_api_type => g_api_type);
1992:
1993: when OTHERS then
1994: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1995: p_api_name => l_api_name,
1996: p_pkg_name => g_pkg_name,
1997: p_exc_name => 'OTHERS',
1998: x_msg_count => x_msg_count,
2279: -- Get SLH Rule from OLD Contract
2280: --
2281: Okl_Rule_Apis_Pvt.Get_Contract_Rules(
2282: p_api_version => 1.0,
2283: p_init_msg_list => Okl_Api.G_FALSE,
2284: p_rgpv_rec => l_old_rgpv_rec,
2285: --Bug# 3124577: 11.5.10 Rule Migration
2286: p_rdf_code => 'LASLH',
2287: --p_rdf_code => 'SLH',
2449: p_old_rgp_id => l_old_lalevl_id,
2450: p_new_rgp_id => l_new_lalevl_id
2451: );
2452: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2453: RAISE Okl_Api.G_EXCEPTION_ERROR;
2454: END IF;
2455: END LOOP;
2456:
2457: EXCEPTION
2535: p_old_rgp_id => l_old_lalevl_id,
2536: p_new_rgp_id => l_new_lalevl_id
2537: );
2538: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2539: raise OKL_API.G_EXCEPTION_ERROR;
2540: END IF;
2541: END LOOP;
2542:
2543: EXCEPTION
2594: l_source_cle_id OKC_K_LINES_B.ID%TYPE;
2595: l_chr_id OKC_K_HEADERS_B.ID%TYPE;
2596:
2597: Begin
2598: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2599: l_chr_id := p_chr_id;
2600: OPEN abnd_tls_csr(p_copied_chr_id => l_chr_id);
2601: LOOP
2602: FETCH abnd_tls_csr into l_cle_id, l_source_cle_id;
2607: x_return_status => x_return_status,
2608: x_msg_count => x_msg_count,
2609: x_msg_data => x_msg_data,
2610: p_line_id => l_cle_id);
2611: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
2612: RAISE G_EXCEPTION_HALT_PROCESS;
2613: End If;
2614: END LOOP;
2615: CLOSE abnd_tls_csr;
2624: x_return_status => x_return_status,
2625: x_msg_count => x_msg_count,
2626: x_msg_data => x_msg_data,
2627: p_line_id => l_cle_id);
2628: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
2629: RAISE G_EXCEPTION_HALT_PROCESS;
2630: End If;
2631: END LOOP;
2632: CLOSE abnd_sls_csr;
2646: End If;
2647: If abnd_sls_csr%ISOPEN Then
2648: CLOSE abnd_sls_csr;
2649: End If;
2650: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2651: End cleanup_abandoned_lines;
2652:
2653: --
2654: --Bug# 2522268 End
2692: l_source_cle_id OKC_K_LINES_B.ID%TYPE;
2693: l_chr_id OKC_K_HEADERS_B.ID%TYPE;
2694:
2695: Begin
2696: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2697: l_chr_id := p_chr_id;
2698: OPEN roll_tls_csr(p_copied_chr_id => l_chr_id);
2699: LOOP
2700: FETCH roll_tls_csr into l_cle_id, l_source_cle_id;
2705: x_return_status => x_return_status,
2706: x_msg_count => x_msg_count,
2707: x_msg_data => x_msg_data,
2708: p_line_id => l_cle_id);
2709: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
2710: RAISE G_EXCEPTION_HALT_PROCESS;
2711: End If;
2712: END LOOP;
2713: CLOSE roll_tls_csr;
2722: WHEN OTHERS Then
2723: If roll_tls_csr%ISOPEN Then
2724: CLOSE roll_tls_csr;
2725: End If;
2726: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2727: End cleanup_rollover_lines;
2728:
2729:
2730: -- bug 3630858
2741: -- End of comments
2742: --------------------------------------------------------------------------------
2743: PROCEDURE copy_product_options
2744: (p_api_version IN NUMBER,
2745: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2746: x_return_status OUT NOCOPY VARCHAR2,
2747: x_msg_count OUT NOCOPY NUMBER,
2748: x_msg_data OUT NOCOPY VARCHAR2,
2749: p_new_khr_id IN NUMBER,
2750: p_cspv_id IN NUMBER,
2751: x_cspv_id OUT NOCOPY NUMBER
2752: ) IS
2753: --local variables
2754: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2755: l_api_name CONSTANT VARCHAR2(30) := 'COPY_PRODUCT_OPTIONS';
2756: l_api_version CONSTANT NUMBER := 1.0;
2757: l_cspv_id NUMBER;
2758: p_cspv_rec cspv_rec_type;
2760: lx_cspv_rec cspv_rec_type;
2761:
2762:
2763: Begin
2764: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2765: -- Call start_activity to create savepoint, check compatibility
2766: -- and initialize message list
2767: x_return_status := OKL_API.START_ACTIVITY (
2768: l_api_name
2763: Begin
2764: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2765: -- Call start_activity to create savepoint, check compatibility
2766: -- and initialize message list
2767: x_return_status := OKL_API.START_ACTIVITY (
2768: l_api_name
2769: ,p_init_msg_list
2770: ,'_PVT'
2771: ,x_return_status);
2769: ,p_init_msg_list
2770: ,'_PVT'
2771: ,x_return_status);
2772: -- Check if activity started successfully
2773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2776: RAISE OKL_API.G_EXCEPTION_ERROR;
2777: END IF;
2770: ,'_PVT'
2771: ,x_return_status);
2772: -- Check if activity started successfully
2773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2776: RAISE OKL_API.G_EXCEPTION_ERROR;
2777: END IF;
2778:
2771: ,x_return_status);
2772: -- Check if activity started successfully
2773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2776: RAISE OKL_API.G_EXCEPTION_ERROR;
2777: END IF;
2778:
2779: l_cspv_id := p_cspv_id;
2772: -- Check if activity started successfully
2773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2776: RAISE OKL_API.G_EXCEPTION_ERROR;
2777: END IF;
2778:
2779: l_cspv_id := p_cspv_id;
2780: l_cspv_rec := get_cspv_rec(p_cspv_rec_id => l_cspv_id,
2780: l_cspv_rec := get_cspv_rec(p_cspv_rec_id => l_cspv_id,
2781: x_return_status => x_return_status
2782: );
2783:
2784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2787: RAISE OKL_API.G_EXCEPTION_ERROR;
2788: END IF;
2781: x_return_status => x_return_status
2782: );
2783:
2784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2787: RAISE OKL_API.G_EXCEPTION_ERROR;
2788: END IF;
2789:
2782: );
2783:
2784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2787: RAISE OKL_API.G_EXCEPTION_ERROR;
2788: END IF;
2789:
2790: --create selected product options
2783:
2784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2787: RAISE OKL_API.G_EXCEPTION_ERROR;
2788: END IF;
2789:
2790: --create selected product options
2791: l_cspv_rec.khr_id := p_new_khr_id;
2799: x_msg_data => x_msg_data,
2800: p_cspv_rec => l_cspv_rec,
2801: x_cspv_rec => lx_cspv_rec);
2802:
2803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2806: RAISE OKL_API.G_EXCEPTION_ERROR;
2807: END IF;
2800: p_cspv_rec => l_cspv_rec,
2801: x_cspv_rec => lx_cspv_rec);
2802:
2803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2806: RAISE OKL_API.G_EXCEPTION_ERROR;
2807: END IF;
2808:
2801: x_cspv_rec => lx_cspv_rec);
2802:
2803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2806: RAISE OKL_API.G_EXCEPTION_ERROR;
2807: END IF;
2808:
2809: x_cspv_id := lx_cspv_rec.id;
2802:
2803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2806: RAISE OKL_API.G_EXCEPTION_ERROR;
2807: END IF;
2808:
2809: x_cspv_id := lx_cspv_rec.id;
2810:
2807: END IF;
2808:
2809: x_cspv_id := lx_cspv_rec.id;
2810:
2811: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2812:
2813: EXCEPTION
2814:
2815: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2811: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2812:
2813: EXCEPTION
2814:
2815: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2816: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2817: l_api_name,
2818: G_PKG_NAME,
2819: 'OKL_API.G_RET_STS_ERROR',
2812:
2813: EXCEPTION
2814:
2815: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2816: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2817: l_api_name,
2818: G_PKG_NAME,
2819: 'OKL_API.G_RET_STS_ERROR',
2820: x_msg_count,
2815: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2816: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2817: l_api_name,
2818: G_PKG_NAME,
2819: 'OKL_API.G_RET_STS_ERROR',
2820: x_msg_count,
2821: x_msg_data,
2822: '_PVT');
2823: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2819: 'OKL_API.G_RET_STS_ERROR',
2820: x_msg_count,
2821: x_msg_data,
2822: '_PVT');
2823: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2824: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2825: l_api_name,
2826: G_PKG_NAME,
2827: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2820: x_msg_count,
2821: x_msg_data,
2822: '_PVT');
2823: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2824: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2825: l_api_name,
2826: G_PKG_NAME,
2827: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2828: x_msg_count,
2823: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2824: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2825: l_api_name,
2826: G_PKG_NAME,
2827: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2828: x_msg_count,
2829: x_msg_data,
2830: '_PVT');
2831: WHEN OTHERS THEN
2828: x_msg_count,
2829: x_msg_data,
2830: '_PVT');
2831: WHEN OTHERS THEN
2832: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2833: l_api_name,
2834: G_PKG_NAME,
2835: 'OTHERS',
2836: x_msg_count,
2855: -- End of comments
2856: --------------------------------------------------------------------------------
2857: PROCEDURE copy_contract(
2858: p_api_version IN NUMBER,
2859: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2860: x_return_status OUT NOCOPY VARCHAR2,
2861: x_msg_count OUT NOCOPY NUMBER,
2862: x_msg_data OUT NOCOPY VARCHAR2,
2863: p_commit IN VARCHAR2 DEFAULT 'F',
2869: p_copy_lines_yn IN VARCHAR2,
2870: p_override_org IN VARCHAR2 DEFAULT 'N',
2871: x_chr_id OUT NOCOPY NUMBER) IS
2872: --local variables
2873: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2874: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_CONTRACT';
2875: l_api_version CONSTANT NUMBER := 1.0;
2876: l_chrv_rec chrv_rec_type;
2877: l_chrv_rec_out chrv_rec_type;
2959: --Bug# 3143522
2960: -----------------------
2961: Begin
2962: -----
2963: --Call OKL_API.START_ACTIVITY to set savepoints
2964: --dbms_output.put_line('before call to start activity '||to_char(p_chr_id));
2965: --dbms_output.put_line(l_api_name||G_SCOPE);
2966: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
2967: G_PKG_NAME,
2962: -----
2963: --Call OKL_API.START_ACTIVITY to set savepoints
2964: --dbms_output.put_line('before call to start activity '||to_char(p_chr_id));
2965: --dbms_output.put_line(l_api_name||G_SCOPE);
2966: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
2967: G_PKG_NAME,
2968: p_init_msg_list,
2969: G_API_VERSION,
2970: p_api_version,
2970: p_api_version,
2971: G_SCOPE,
2972: x_return_status);
2973: --dbms_output.put_line('after call to start activity '||to_char(p_chr_id));
2974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2977: RAISE OKL_API.G_EXCEPTION_ERROR;
2978: END IF;
2971: G_SCOPE,
2972: x_return_status);
2973: --dbms_output.put_line('after call to start activity '||to_char(p_chr_id));
2974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2977: RAISE OKL_API.G_EXCEPTION_ERROR;
2978: END IF;
2979: --Call OKC_COPY_CONTRACT_PUB.Copy_Contract
2972: x_return_status);
2973: --dbms_output.put_line('after call to start activity '||to_char(p_chr_id));
2974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2977: RAISE OKL_API.G_EXCEPTION_ERROR;
2978: END IF;
2979: --Call OKC_COPY_CONTRACT_PUB.Copy_Contract
2980: --dbms_output.put_line('before okc_copy p_chr_id '||to_char(p_chr_id));
2973: --dbms_output.put_line('after call to start activity '||to_char(p_chr_id));
2974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2977: RAISE OKL_API.G_EXCEPTION_ERROR;
2978: END IF;
2979: --Call OKC_COPY_CONTRACT_PUB.Copy_Contract
2980: --dbms_output.put_line('before okc_copy p_chr_id '||to_char(p_chr_id));
2981: OKC_COPY_CONTRACT_PUB.copy_contract(
2998:
2999: --dbms_output.put_line('Chr id after copy to okc header '||to_char(x_chr_id));
3000: --dbms_output.put_line('Return Status copy to okc header '||l_return_status||' '||x_msg_data);
3001: -- check return status
3002: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3003: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3004: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3005: raise OKL_API.G_EXCEPTION_ERROR;
3006: End If;
2999: --dbms_output.put_line('Chr id after copy to okc header '||to_char(x_chr_id));
3000: --dbms_output.put_line('Return Status copy to okc header '||l_return_status||' '||x_msg_data);
3001: -- check return status
3002: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3003: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3004: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3005: raise OKL_API.G_EXCEPTION_ERROR;
3006: End If;
3007: --------------------------------------------------------------------------------
3000: --dbms_output.put_line('Return Status copy to okc header '||l_return_status||' '||x_msg_data);
3001: -- check return status
3002: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3003: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3004: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3005: raise OKL_API.G_EXCEPTION_ERROR;
3006: End If;
3007: --------------------------------------------------------------------------------
3008: --Catch Up Shadow for Contract Header :
3001: -- check return status
3002: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3003: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3004: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3005: raise OKL_API.G_EXCEPTION_ERROR;
3006: End If;
3007: --------------------------------------------------------------------------------
3008: --Catch Up Shadow for Contract Header :
3009: l_chr_id_2 := x_chr_id;
3012: --dbms_output.put_line(' chr id after fetch '||l_chrv_rec.id);
3013: --dbms_output.put_line(' khr id after fetch '||l_khrv_rec.id);
3014: --If OKL does not have a shadow do not proceed to
3015: --catchup on shadow
3016: If l_khrv_rec.id = OKL_API.G_MISS_NUM then
3017: null;
3018: Else
3019: l_khrv_rec.id := x_chr_id;
3020: -- Create record into okl_contract_header
3023: p_init_msg_list => p_init_msg_list,
3024: x_return_status => l_return_status,
3025: x_msg_count => x_msg_count,
3026: x_msg_data => x_msg_data,
3027: p_restricted_update => OKL_API.G_FALSE,
3028: p_chrv_rec => l_chrv_rec,
3029: p_khrv_rec => l_khrv_rec,
3030: x_chrv_rec => l_chrv_rec_out,
3031: x_khrv_rec => l_khrv_rec_out);
3031: x_khrv_rec => l_khrv_rec_out);
3032: --dbms_output.put_line('return status '||l_return_status);
3033: --dbms_output.put_line('After create okl record okc hdr id'||to_char(l_chrv_rec_out.id));
3034: -- check return status
3035: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3036: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3038: raise OKL_API.G_EXCEPTION_ERROR;
3039: End If;
3032: --dbms_output.put_line('return status '||l_return_status);
3033: --dbms_output.put_line('After create okl record okc hdr id'||to_char(l_chrv_rec_out.id));
3034: -- check return status
3035: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3036: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3038: raise OKL_API.G_EXCEPTION_ERROR;
3039: End If;
3040:
3033: --dbms_output.put_line('After create okl record okc hdr id'||to_char(l_chrv_rec_out.id));
3034: -- check return status
3035: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3036: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3038: raise OKL_API.G_EXCEPTION_ERROR;
3039: End If;
3040:
3041: --------------------------------------------------------------------------------------
3034: -- check return status
3035: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3036: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3038: raise OKL_API.G_EXCEPTION_ERROR;
3039: End If;
3040:
3041: --------------------------------------------------------------------------------------
3042: --BUG# 3143522 : 11.5.10 Subsidies - copy party payment details
3061: x_pyd_id => lx_pyd_id);
3062:
3063:
3064:
3065: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3067: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068: RAISE OKL_API.G_EXCEPTION_ERROR;
3069: END IF;
3062:
3063:
3064:
3065: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3067: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068: RAISE OKL_API.G_EXCEPTION_ERROR;
3069: END IF;
3070:
3063:
3064:
3065: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3067: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068: RAISE OKL_API.G_EXCEPTION_ERROR;
3069: END IF;
3070:
3071: End Loop;
3064:
3065: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3067: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068: RAISE OKL_API.G_EXCEPTION_ERROR;
3069: END IF;
3070:
3071: End Loop;
3072: Close l_hdrpyd_csr;
3094: x_clev_rec => l_clev_rec_out,
3095: x_klev_rec => l_klev_rec_out
3096: );
3097: -- check return status
3098: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3099: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3100: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3101: raise OKL_API.G_EXCEPTION_ERROR;
3102: End If;
3095: x_klev_rec => l_klev_rec_out
3096: );
3097: -- check return status
3098: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3099: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3100: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3101: raise OKL_API.G_EXCEPTION_ERROR;
3102: End If;
3103:
3096: );
3097: -- check return status
3098: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3099: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3100: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3101: raise OKL_API.G_EXCEPTION_ERROR;
3102: End If;
3103:
3104: --------------------------------------------------------------------------------------
3097: -- check return status
3098: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3099: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3100: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3101: raise OKL_API.G_EXCEPTION_ERROR;
3102: End If;
3103:
3104: --------------------------------------------------------------------------------------
3105: --BUG# 3143522 : 11.5.10 Subsidies - copy party payment details
3126: x_pyd_id => lx_pyd_id);
3127:
3128:
3129:
3130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3133: RAISE OKL_API.G_EXCEPTION_ERROR;
3134: END IF;
3127:
3128:
3129:
3130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3133: RAISE OKL_API.G_EXCEPTION_ERROR;
3134: END IF;
3135:
3128:
3129:
3130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3133: RAISE OKL_API.G_EXCEPTION_ERROR;
3134: END IF;
3135:
3136: End Loop;
3129:
3130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3133: RAISE OKL_API.G_EXCEPTION_ERROR;
3134: END IF;
3135:
3136: End Loop;
3137: Close l_clepyd_csr;
3150: x_return_status => x_return_Status,
3151: x_msg_count => x_msg_count,
3152: x_msg_data => x_msg_data,
3153: p_chr_id => x_chr_id);
3154: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3155: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3156: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3157: raise OKL_API.G_EXCEPTION_ERROR;
3158: End If;
3151: x_msg_count => x_msg_count,
3152: x_msg_data => x_msg_data,
3153: p_chr_id => x_chr_id);
3154: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3155: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3156: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3157: raise OKL_API.G_EXCEPTION_ERROR;
3158: End If;
3159: --
3152: x_msg_data => x_msg_data,
3153: p_chr_id => x_chr_id);
3154: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3155: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3156: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3157: raise OKL_API.G_EXCEPTION_ERROR;
3158: End If;
3159: --
3160: --Bug# 2522268 End
3153: p_chr_id => x_chr_id);
3154: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3155: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3156: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3157: raise OKL_API.G_EXCEPTION_ERROR;
3158: End If;
3159: --
3160: --Bug# 2522268 End
3161: --
3176: );
3177:
3178:
3179: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3180: RAISE OKL_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: --Call OKC_COPY_CONTRACT_PUB.Copy_Components
3183: -- do not do this again as this might already be done as part of OKC_COPY_CONTRACT
3184: /*
3201: p_components_tbl => p_components_tbl,
3202: p_lines_tbl => p_lines_tbl,
3203: x_chr_id => l_chr_id);
3204: -- check return status
3205: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3207: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3208: raise OKL_API.G_EXCEPTION_ERROR;
3209: End If;
3202: p_lines_tbl => p_lines_tbl,
3203: x_chr_id => l_chr_id);
3204: -- check return status
3205: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3207: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3208: raise OKL_API.G_EXCEPTION_ERROR;
3209: End If;
3210: */
3203: x_chr_id => l_chr_id);
3204: -- check return status
3205: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3207: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3208: raise OKL_API.G_EXCEPTION_ERROR;
3209: End If;
3210: */
3211:
3204: -- check return status
3205: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3207: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3208: raise OKL_API.G_EXCEPTION_ERROR;
3209: End If;
3210: */
3211:
3212:
3231: p_cspv_id => l_cspv_id,
3232: x_cspv_id => lx_cspv_id
3233: );
3234:
3235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3232: x_cspv_id => lx_cspv_id
3233: );
3234:
3235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240:
3233: );
3234:
3235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240:
3241: End Loop;
3234:
3235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240:
3241: End Loop;
3242: Close l_product_options_csr;
3241: End Loop;
3242: Close l_product_options_csr;
3243:
3244: --Call End Activity
3245: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3246: EXCEPTION
3247: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3248: If l_hdrpyd_csr%ISOPEN then
3249: close l_hdrpyd_csr;
3243:
3244: --Call End Activity
3245: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3246: EXCEPTION
3247: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3248: If l_hdrpyd_csr%ISOPEN then
3249: close l_hdrpyd_csr;
3250: End If;
3251: If l_clepyd_csr%ISOPEN then
3251: If l_clepyd_csr%ISOPEN then
3252: close l_clepyd_csr;
3253: End If;
3254: --dbms_output.put_line('identified error');
3255: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3256: (substr(l_api_name,1,26),
3257: G_PKG_NAME,
3258: 'OKL_API.G_RET_STS_ERROR',
3259: x_msg_count,
3254: --dbms_output.put_line('identified error');
3255: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3256: (substr(l_api_name,1,26),
3257: G_PKG_NAME,
3258: 'OKL_API.G_RET_STS_ERROR',
3259: x_msg_count,
3260: x_msg_data,
3261: G_SCOPE);
3262: -- Resetting the global transaction id.
3260: x_msg_data,
3261: G_SCOPE);
3262: -- Resetting the global transaction id.
3263: okc_cvm_pvt.g_trans_id := 'XXX';
3264: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3265: If l_hdrpyd_csr%ISOPEN then
3266: close l_hdrpyd_csr;
3267: End If;
3268: If l_clepyd_csr%ISOPEN then
3270: End If;
3271:
3272:
3273: --dbms_output.put_line('unexpected error :'||l_api_name||G_SCOPE);
3274: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3275: (substr(l_api_name,1,26),
3276: G_PKG_NAME,
3277: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3278: x_msg_count,
3273: --dbms_output.put_line('unexpected error :'||l_api_name||G_SCOPE);
3274: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3275: (substr(l_api_name,1,26),
3276: G_PKG_NAME,
3277: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3278: x_msg_count,
3279: x_msg_data,
3280: G_SCOPE);
3281: -- Resetting the global transaction id.
3294: End If;
3295:
3296: --dbms_output.put_line('when others error');
3297: --dbms_output.put_line('Error '||SQLERRM);
3298: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3299: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3300: (substr(l_api_name,1,26),
3301: G_PKG_NAME,
3302: 'OTHERS',
3295:
3296: --dbms_output.put_line('when others error');
3297: --dbms_output.put_line('Error '||SQLERRM);
3298: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3299: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3300: (substr(l_api_name,1,26),
3301: G_PKG_NAME,
3302: 'OTHERS',
3303: x_msg_count,
3319: -- End of comments
3320: --------------------------------------------------------------------------------
3321: Procedure copy_contract_lines(
3322: p_api_version IN NUMBER,
3323: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3324: x_return_status OUT NOCOPY VARCHAR2,
3325: x_msg_count OUT NOCOPY NUMBER,
3326: x_msg_data OUT NOCOPY VARCHAR2,
3327: p_from_cle_id IN NUMBER,
3332: p_copy_line_party_yn IN VARCHAR2,
3333: p_renew_ref_yn IN VARCHAR2,
3334: x_cle_id OUT NOCOPY NUMBER) is
3335:
3336: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3337: l_cle_id NUMBER := OKL_API.G_MISS_NUM;
3338: l_cle_id_out NUMBER := OKL_API.G_MISS_NUM;
3339: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_CONTRACT_LINES';
3340: l_api_version CONSTANT NUMBER := 1.0;
3333: p_renew_ref_yn IN VARCHAR2,
3334: x_cle_id OUT NOCOPY NUMBER) is
3335:
3336: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3337: l_cle_id NUMBER := OKL_API.G_MISS_NUM;
3338: l_cle_id_out NUMBER := OKL_API.G_MISS_NUM;
3339: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_CONTRACT_LINES';
3340: l_api_version CONSTANT NUMBER := 1.0;
3341: l_clev_rec_out clev_rec_type;
3334: x_cle_id OUT NOCOPY NUMBER) is
3335:
3336: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3337: l_cle_id NUMBER := OKL_API.G_MISS_NUM;
3338: l_cle_id_out NUMBER := OKL_API.G_MISS_NUM;
3339: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_CONTRACT_LINES';
3340: l_api_version CONSTANT NUMBER := 1.0;
3341: l_clev_rec_out clev_rec_type;
3342: x_klev_rec_out klev_rec_type;
3466: Begin
3467: ------
3468: -- call START_ACTIVITY to create savepoint, check compatibility
3469: -- and initialize message list
3470: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
3471: G_PKG_NAME,
3472: p_init_msg_list,
3473: G_API_VERSION,
3474: p_api_version,
3473: G_API_VERSION,
3474: p_api_version,
3475: G_SCOPE,
3476: x_return_status);
3477: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3474: p_api_version,
3475: G_SCOPE,
3476: x_return_status);
3477: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: --Call OKC_COPY_CONTRACT_PUB.copy_contract_lines
3475: G_SCOPE,
3476: x_return_status);
3477: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: --Call OKC_COPY_CONTRACT_PUB.copy_contract_lines
3483: OKC_COPY_CONTRACT_PUB.copy_contract_lines(p_api_version => P_api_version,
3476: x_return_status);
3477: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: --Call OKC_COPY_CONTRACT_PUB.copy_contract_lines
3483: OKC_COPY_CONTRACT_PUB.copy_contract_lines(p_api_version => P_api_version,
3484: p_init_msg_list => p_init_msg_list,
3494: p_renew_ref_yn => p_renew_ref_yn,
3495: x_cle_id => x_cle_id);
3496:
3497: -- check return status
3498: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3499: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3500: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3501: raise OKL_API.G_EXCEPTION_ERROR;
3502: End If;
3495: x_cle_id => x_cle_id);
3496:
3497: -- check return status
3498: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3499: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3500: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3501: raise OKL_API.G_EXCEPTION_ERROR;
3502: End If;
3503:
3496:
3497: -- check return status
3498: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3499: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3500: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3501: raise OKL_API.G_EXCEPTION_ERROR;
3502: End If;
3503:
3504: -- Get Old Chr id from New Chr id
3497: -- check return status
3498: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3499: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3500: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3501: raise OKL_API.G_EXCEPTION_ERROR;
3502: End If;
3503:
3504: -- Get Old Chr id from New Chr id
3505: OPEN old_chr_csr(p_from_cle_id);
3504: -- Get Old Chr id from New Chr id
3505: OPEN old_chr_csr(p_from_cle_id);
3506: FETCH old_chr_csr INTO l_old_chr_id;
3507: IF old_chr_csr%NOTFOUND THEN
3508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3509: END IF;
3510: CLOSE old_chr_csr;
3511:
3512: --Bug# 4899328
3516: IF l_new_chr_id IS NULL AND p_to_cle_id IS NOT NULL THEN
3517: OPEN old_chr_csr(p_to_cle_id);
3518: FETCH old_chr_csr INTO l_new_chr_id;
3519: IF old_chr_csr%NOTFOUND THEN
3520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3521: END IF;
3522: CLOSE old_chr_csr;
3523: END IF;
3524: --Bug# 4899328
3529: OPEN chr_csr(p_chr_id => l_old_chr_id);
3530: FETCH chr_csr INTO l_rbk_chr_orig_source_code, l_rbk_chr_orig_system_id1;
3531: CLOSE chr_csr;
3532:
3533: IF ( NVL(l_rbk_chr_orig_source_code,OKL_API.G_MISS_CHAR) = 'OKL_REBOOK' AND
3534: NVL(l_rbk_chr_orig_system_id1,OKL_API.G_MISS_NUM) = l_new_chr_id ) THEN
3535: l_rebook_yn := 'Y';
3536: END IF;
3537: --Bug# 8677460
3530: FETCH chr_csr INTO l_rbk_chr_orig_source_code, l_rbk_chr_orig_system_id1;
3531: CLOSE chr_csr;
3532:
3533: IF ( NVL(l_rbk_chr_orig_source_code,OKL_API.G_MISS_CHAR) = 'OKL_REBOOK' AND
3534: NVL(l_rbk_chr_orig_system_id1,OKL_API.G_MISS_NUM) = l_new_chr_id ) THEN
3535: l_rebook_yn := 'Y';
3536: END IF;
3537: --Bug# 8677460
3538:
3556: p_rebook_yn => l_rebook_yn
3557: );
3558:
3559: -- check return status
3560: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3561: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3562: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3563: raise OKL_API.G_EXCEPTION_ERROR;
3564: End If;
3557: );
3558:
3559: -- check return status
3560: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3561: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3562: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3563: raise OKL_API.G_EXCEPTION_ERROR;
3564: End If;
3565: --------------------------------------------------------------------------------
3558:
3559: -- check return status
3560: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3561: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3562: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3563: raise OKL_API.G_EXCEPTION_ERROR;
3564: End If;
3565: --------------------------------------------------------------------------------
3566: --bug# 3143522 : fixed as part of this -payments can be at subline level
3559: -- check return status
3560: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3561: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3562: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3563: raise OKL_API.G_EXCEPTION_ERROR;
3564: End If;
3565: --------------------------------------------------------------------------------
3566: --bug# 3143522 : fixed as part of this -payments can be at subline level
3567: --------------------------------------------------------------------------------
3574: p_new_cle_id => c_lines_rec.id, -- Bug 2376998
3575: p_new_chr_id => l_new_chr_id --Bug# 4899328
3576: );
3577: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3578: RAISE OKL_API.G_EXCEPTION_ERROR;
3579: END IF;
3580: --------------------------------------------------------------------------------------
3581: --BUG# 3143522 : 11.5.10 Subsidies - copy party payment details
3582: --------------------------------------------------------------------------------------
3601: p_cle_id => c_lines_rec.id,
3602: p_pph_id => l_old_hdr_id,
3603: x_pph_id => l_new_hdr_id);
3604:
3605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3608: RAISE OKL_API.G_EXCEPTION_ERROR;
3609: END IF;
3602: p_pph_id => l_old_hdr_id,
3603: x_pph_id => l_new_hdr_id);
3604:
3605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3608: RAISE OKL_API.G_EXCEPTION_ERROR;
3609: END IF;
3610:
3603: x_pph_id => l_new_hdr_id);
3604:
3605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3608: RAISE OKL_API.G_EXCEPTION_ERROR;
3609: END IF;
3610:
3611: --Check dtls exists for this hdr, if yes, do the copy --
3604:
3605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3608: RAISE OKL_API.G_EXCEPTION_ERROR;
3609: END IF;
3610:
3611: --Check dtls exists for this hdr, if yes, do the copy --
3612: OPEN l_clepyd_pt_csr (p_new_chr_id => c_lines_rec.dnz_chr_id,
3631: x_pyd_id => lx_pt_pyd_id,
3632: --Bug# 8677460
3633: p_rebook_yn => l_rebook_yn);
3634:
3635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3638: RAISE OKL_API.G_EXCEPTION_ERROR;
3639: END IF;
3632: --Bug# 8677460
3633: p_rebook_yn => l_rebook_yn);
3634:
3635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3638: RAISE OKL_API.G_EXCEPTION_ERROR;
3639: END IF;
3640:
3633: p_rebook_yn => l_rebook_yn);
3634:
3635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3638: RAISE OKL_API.G_EXCEPTION_ERROR;
3639: END IF;
3640:
3641: END IF; --l_pt_pyd_id IS NOT NULL ...--
3634:
3635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3638: RAISE OKL_API.G_EXCEPTION_ERROR;
3639: END IF;
3640:
3641: END IF; --l_pt_pyd_id IS NOT NULL ...--
3642:
3669: p_pyd_id => l_pyd_id,
3670: p_cpl_id => l_cpl_id,
3671: x_pyd_id => lx_pyd_id);
3672:
3673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3676: RAISE OKL_API.G_EXCEPTION_ERROR;
3677: END IF;
3670: p_cpl_id => l_cpl_id,
3671: x_pyd_id => lx_pyd_id);
3672:
3673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3676: RAISE OKL_API.G_EXCEPTION_ERROR;
3677: END IF;
3678:
3671: x_pyd_id => lx_pyd_id);
3672:
3673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3676: RAISE OKL_API.G_EXCEPTION_ERROR;
3677: END IF;
3678:
3679: End Loop;
3672:
3673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3676: RAISE OKL_API.G_EXCEPTION_ERROR;
3677: END IF;
3678:
3679: End Loop;
3680: Close l_clepyd_csr;
3697: -- Get Old Chr id from New Chr id
3698: --OPEN old_chr_csr(p_from_cle_id);
3699: --FETCH old_chr_csr INTO l_old_chr_id;
3700: --IF old_chr_csr%NOTFOUND THEN
3701: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3702: --END IF;
3703: --CLOSE old_chr_csr;
3704:
3705: --link_slh_sll(
3712: --);
3713:
3714:
3715: --IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3716: --RAISE OKL_API.G_EXCEPTION_ERROR;
3717: --END IF;
3718:
3719: ---------Commented as this code has been moved up to run for all sub-lines too-----*/
3720:
3718:
3719: ---------Commented as this code has been moved up to run for all sub-lines too-----*/
3720:
3721: --Call End Activity
3722: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3723: EXCEPTION
3724:
3725: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3726: If l_clepyd_csr%ISOPEN then
3721: --Call End Activity
3722: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3723: EXCEPTION
3724:
3725: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3726: If l_clepyd_csr%ISOPEN then
3727: close l_clepyd_csr;
3728: End If;
3729: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3725: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3726: If l_clepyd_csr%ISOPEN then
3727: close l_clepyd_csr;
3728: End If;
3729: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3730: (substr(l_api_name,1,26),
3731: G_PKG_NAME,
3732: 'OKL_API.G_RET_STS_ERROR',
3733: x_msg_count,
3728: End If;
3729: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3730: (substr(l_api_name,1,26),
3731: G_PKG_NAME,
3732: 'OKL_API.G_RET_STS_ERROR',
3733: x_msg_count,
3734: x_msg_data,
3735: G_SCOPE);
3736: -- Resetting the global transaction id.
3734: x_msg_data,
3735: G_SCOPE);
3736: -- Resetting the global transaction id.
3737: okc_cvm_pvt.g_trans_id := 'XXX';
3738: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3739: If l_clepyd_csr%ISOPEN then
3740: close l_clepyd_csr;
3741: End If;
3742:
3739: If l_clepyd_csr%ISOPEN then
3740: close l_clepyd_csr;
3741: End If;
3742:
3743: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3744: (substr(l_api_name,1,26),
3745: G_PKG_NAME,
3746: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3747: x_msg_count,
3742:
3743: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3744: (substr(l_api_name,1,26),
3745: G_PKG_NAME,
3746: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3747: x_msg_count,
3748: x_msg_data,
3749: G_SCOPE);
3750: -- Resetting the global transaction id.
3754: close l_clepyd_csr;
3755: End If;
3756:
3757: -- store SQL error message on message stack for caller
3758: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3759: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3760: (substr(l_api_name,1,26),
3761: G_PKG_NAME,
3762: 'OTHERS',
3755: End If;
3756:
3757: -- store SQL error message on message stack for caller
3758: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3759: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3760: (substr(l_api_name,1,26),
3761: G_PKG_NAME,
3762: 'OTHERS',
3763: x_msg_count,
3780: -- End of comments
3781: --------------------------------------------------------------------------------
3782: PROCEDURE copy_rules(
3783: p_api_version IN NUMBER,
3784: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3785: x_return_status OUT NOCOPY VARCHAR2,
3786: x_msg_count OUT NOCOPY NUMBER,
3787: x_msg_data OUT NOCOPY VARCHAR2,
3788: p_rgp_id IN NUMBER,
3785: x_return_status OUT NOCOPY VARCHAR2,
3786: x_msg_count OUT NOCOPY NUMBER,
3787: x_msg_data OUT NOCOPY VARCHAR2,
3788: p_rgp_id IN NUMBER,
3789: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3790: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3791: p_to_template_yn IN VARCHAR2,
3792: x_rgp_id OUT NOCOPY NUMBER) is
3793: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3786: x_msg_count OUT NOCOPY NUMBER,
3787: x_msg_data OUT NOCOPY VARCHAR2,
3788: p_rgp_id IN NUMBER,
3789: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3790: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3791: p_to_template_yn IN VARCHAR2,
3792: x_rgp_id OUT NOCOPY NUMBER) is
3793: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3794: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_RULES';
3789: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3790: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3791: p_to_template_yn IN VARCHAR2,
3792: x_rgp_id OUT NOCOPY NUMBER) is
3793: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3794: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_RULES';
3795: l_api_version CONSTANT NUMBER := 1.0;
3796: begin
3797: -----
3796: begin
3797: -----
3798: -- call START_ACTIVITY to create savepoint, check compatibility
3799: -- and initialize message list
3800: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
3801: G_PKG_NAME,
3802: p_init_msg_list,
3803: G_API_VERSION,
3804: p_api_version,
3803: G_API_VERSION,
3804: p_api_version,
3805: G_SCOPE,
3806: x_return_status);
3807: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3809: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3810: RAISE OKL_API.G_EXCEPTION_ERROR;
3811: END IF;
3804: p_api_version,
3805: G_SCOPE,
3806: x_return_status);
3807: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3809: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3810: RAISE OKL_API.G_EXCEPTION_ERROR;
3811: END IF;
3812: --call OKC_COPY_CONTRACT_PUB.copy_rules
3805: G_SCOPE,
3806: x_return_status);
3807: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3809: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3810: RAISE OKL_API.G_EXCEPTION_ERROR;
3811: END IF;
3812: --call OKC_COPY_CONTRACT_PUB.copy_rules
3813: OKC_COPY_CONTRACT_PUB.copy_rules(
3806: x_return_status);
3807: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3809: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3810: RAISE OKL_API.G_EXCEPTION_ERROR;
3811: END IF;
3812: --call OKC_COPY_CONTRACT_PUB.copy_rules
3813: OKC_COPY_CONTRACT_PUB.copy_rules(
3814: p_api_version => p_api_version,
3822: p_to_template_yn => p_to_template_yn,
3823: x_rgp_id => x_rgp_id
3824: );
3825: -- check return status
3826: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3827: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3828: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3829: raise OKL_API.G_EXCEPTION_ERROR;
3830: End If;
3823: x_rgp_id => x_rgp_id
3824: );
3825: -- check return status
3826: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3827: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3828: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3829: raise OKL_API.G_EXCEPTION_ERROR;
3830: End If;
3831: --Call End Activity
3824: );
3825: -- check return status
3826: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3827: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3828: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3829: raise OKL_API.G_EXCEPTION_ERROR;
3830: End If;
3831: --Call End Activity
3832: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3825: -- check return status
3826: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3827: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3828: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3829: raise OKL_API.G_EXCEPTION_ERROR;
3830: End If;
3831: --Call End Activity
3832: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3833: EXCEPTION
3828: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3829: raise OKL_API.G_EXCEPTION_ERROR;
3830: End If;
3831: --Call End Activity
3832: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3833: EXCEPTION
3834: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3835: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3836: (substr(l_api_name,1,26),
3830: End If;
3831: --Call End Activity
3832: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3833: EXCEPTION
3834: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3835: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3836: (substr(l_api_name,1,26),
3837: G_PKG_NAME,
3838: 'OKL_API.G_RET_STS_ERROR',
3831: --Call End Activity
3832: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3833: EXCEPTION
3834: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3835: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3836: (substr(l_api_name,1,26),
3837: G_PKG_NAME,
3838: 'OKL_API.G_RET_STS_ERROR',
3839: x_msg_count,
3834: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3835: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3836: (substr(l_api_name,1,26),
3837: G_PKG_NAME,
3838: 'OKL_API.G_RET_STS_ERROR',
3839: x_msg_count,
3840: x_msg_data,
3841: G_SCOPE);
3842: -- Resetting the global transaction id.
3840: x_msg_data,
3841: G_SCOPE);
3842: -- Resetting the global transaction id.
3843: okc_cvm_pvt.g_trans_id := 'XXX';
3844: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3845: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3846: (substr(l_api_name,1,26),
3847: G_PKG_NAME,
3848: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3841: G_SCOPE);
3842: -- Resetting the global transaction id.
3843: okc_cvm_pvt.g_trans_id := 'XXX';
3844: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3845: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3846: (substr(l_api_name,1,26),
3847: G_PKG_NAME,
3848: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3849: x_msg_count,
3844: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3845: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3846: (substr(l_api_name,1,26),
3847: G_PKG_NAME,
3848: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3849: x_msg_count,
3850: x_msg_data,
3851: G_SCOPE);
3852: -- Resetting the global transaction id.
3852: -- Resetting the global transaction id.
3853: okc_cvm_pvt.g_trans_id := 'XXX';
3854: WHEN OTHERS THEN
3855: -- store SQL error message on message stack for caller
3856: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3857: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3858: (substr(l_api_name,1,26),
3859: G_PKG_NAME,
3860: 'OTHERS',
3853: okc_cvm_pvt.g_trans_id := 'XXX';
3854: WHEN OTHERS THEN
3855: -- store SQL error message on message stack for caller
3856: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3857: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3858: (substr(l_api_name,1,26),
3859: G_PKG_NAME,
3860: 'OTHERS',
3861: x_msg_count,
3879: --------------------------------------------------------------------------------
3880:
3881: PROCEDURE copy_party_roles(
3882: p_api_version IN NUMBER,
3883: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3884: x_return_status OUT NOCOPY VARCHAR2,
3885: x_msg_count OUT NOCOPY NUMBER,
3886: x_msg_data OUT NOCOPY VARCHAR2,
3887: p_cpl_id IN NUMBER,
3884: x_return_status OUT NOCOPY VARCHAR2,
3885: x_msg_count OUT NOCOPY NUMBER,
3886: x_msg_data OUT NOCOPY VARCHAR2,
3887: p_cpl_id IN NUMBER,
3888: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3889: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3890: P_rle_code IN VARCHAR2,
3891: x_cpl_id OUT NOCOPY NUMBER) IS
3892:
3885: x_msg_count OUT NOCOPY NUMBER,
3886: x_msg_data OUT NOCOPY VARCHAR2,
3887: p_cpl_id IN NUMBER,
3888: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3889: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3890: P_rle_code IN VARCHAR2,
3891: x_cpl_id OUT NOCOPY NUMBER) IS
3892:
3893: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_PARTY_ROLES';
3890: P_rle_code IN VARCHAR2,
3891: x_cpl_id OUT NOCOPY NUMBER) IS
3892:
3893: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_PARTY_ROLES';
3894: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3895:
3896: -------------------------------------------------------
3897: --Bug# 3143522 : 11.5.10 Subsidies - copy of OKL shadow
3898: -------------------------------------------------------
3917:
3918: lx_kpl_id okl_k_party_roles.ID%TYPE;
3919:
3920: BEGIN
3921: l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
3922: G_PKG_NAME,
3923: p_init_msg_list,
3924: G_API_VERSION,
3925: p_api_version,
3924: G_API_VERSION,
3925: p_api_version,
3926: G_SCOPE,
3927: x_return_status);
3928: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3931: RAISE OKL_API.G_EXCEPTION_ERROR;
3932: END IF;
3925: p_api_version,
3926: G_SCOPE,
3927: x_return_status);
3928: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3931: RAISE OKL_API.G_EXCEPTION_ERROR;
3932: END IF;
3933:
3926: G_SCOPE,
3927: x_return_status);
3928: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3931: RAISE OKL_API.G_EXCEPTION_ERROR;
3932: END IF;
3933:
3934: OKC_COPY_CONTRACT_PUB.copy_party_roles(
3927: x_return_status);
3928: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3931: RAISE OKL_API.G_EXCEPTION_ERROR;
3932: END IF;
3933:
3934: OKC_COPY_CONTRACT_PUB.copy_party_roles(
3935: p_api_version => p_api_version,
3942: p_chr_id => p_chr_id,
3943: p_rle_code => p_rle_code,
3944: x_cpl_id => x_cpl_id);
3945:
3946: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3949: RAISE OKL_API.G_EXCEPTION_ERROR;
3950: END IF;
3943: p_rle_code => p_rle_code,
3944: x_cpl_id => x_cpl_id);
3945:
3946: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3949: RAISE OKL_API.G_EXCEPTION_ERROR;
3950: END IF;
3951:
3944: x_cpl_id => x_cpl_id);
3945:
3946: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3949: RAISE OKL_API.G_EXCEPTION_ERROR;
3950: END IF;
3951:
3952: -------------------------------------------------------
3945:
3946: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3949: RAISE OKL_API.G_EXCEPTION_ERROR;
3950: END IF;
3951:
3952: -------------------------------------------------------
3953: --Bug# 3143522 : 11.5.10 Subsidies - copy of OKL shadow
3971: x_pyd_id => lx_pyd_id);
3972:
3973:
3974:
3975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3978: RAISE OKL_API.G_EXCEPTION_ERROR;
3979: END IF;
3972:
3973:
3974:
3975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3978: RAISE OKL_API.G_EXCEPTION_ERROR;
3979: END IF;
3980: End Loop;
3973:
3974:
3975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3978: RAISE OKL_API.G_EXCEPTION_ERROR;
3979: END IF;
3980: End Loop;
3981: Close l_pyd_csr;
3974:
3975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3978: RAISE OKL_API.G_EXCEPTION_ERROR;
3979: END IF;
3980: End Loop;
3981: Close l_pyd_csr;
3982:
3992: p_kpl_id => l_kpl_rec.id,
3993: p_cpl_id => x_cpl_id,
3994: x_kpl_id => lx_kpl_id);
3995:
3996: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3997: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3998: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3999: RAISE OKL_API.G_EXCEPTION_ERROR;
4000: END IF;
3993: p_cpl_id => x_cpl_id,
3994: x_kpl_id => lx_kpl_id);
3995:
3996: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3997: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3998: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3999: RAISE OKL_API.G_EXCEPTION_ERROR;
4000: END IF;
4001: End Loop;
3994: x_kpl_id => lx_kpl_id);
3995:
3996: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3997: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3998: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3999: RAISE OKL_API.G_EXCEPTION_ERROR;
4000: END IF;
4001: End Loop;
4002: --Bug# 4558486
3995:
3996: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3997: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3998: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3999: RAISE OKL_API.G_EXCEPTION_ERROR;
4000: END IF;
4001: End Loop;
4002: --Bug# 4558486
4003:
4000: END IF;
4001: End Loop;
4002: --Bug# 4558486
4003:
4004: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4005:
4006: EXCEPTION
4007: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4008: If l_pyd_csr%ISOPEN then
4003:
4004: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4005:
4006: EXCEPTION
4007: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4008: If l_pyd_csr%ISOPEN then
4009: close l_pyd_csr;
4010: End If;
4011: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4007: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4008: If l_pyd_csr%ISOPEN then
4009: close l_pyd_csr;
4010: End If;
4011: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4012: (substr(l_api_name,1,26),
4013: G_PKG_NAME,
4014: 'OKL_API.G_RET_STS_ERROR',
4015: x_msg_count,
4010: End If;
4011: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4012: (substr(l_api_name,1,26),
4013: G_PKG_NAME,
4014: 'OKL_API.G_RET_STS_ERROR',
4015: x_msg_count,
4016: x_msg_data,
4017: G_SCOPE);
4018: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4014: 'OKL_API.G_RET_STS_ERROR',
4015: x_msg_count,
4016: x_msg_data,
4017: G_SCOPE);
4018: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4019: If l_pyd_csr%ISOPEN then
4020: close l_pyd_csr;
4021: End If;
4022: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4018: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4019: If l_pyd_csr%ISOPEN then
4020: close l_pyd_csr;
4021: End If;
4022: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4023: (substr(l_api_name,1,26),
4024: G_PKG_NAME,
4025: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4026: x_msg_count,
4021: End If;
4022: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4023: (substr(l_api_name,1,26),
4024: G_PKG_NAME,
4025: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4026: x_msg_count,
4027: x_msg_data,
4028: G_SCOPE);
4029: WHEN OTHERS THEN
4030: If l_pyd_csr%ISOPEN then
4031: close l_pyd_csr;
4032: End If;
4033: -- store SQL error message on message stack for caller
4034: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4035: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4036: (substr(l_api_name,1,26),
4037: G_PKG_NAME,
4038: 'OTHERS',
4031: close l_pyd_csr;
4032: End If;
4033: -- store SQL error message on message stack for caller
4034: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4035: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4036: (substr(l_api_name,1,26),
4037: G_PKG_NAME,
4038: 'OTHERS',
4039: x_msg_count,
4054: -- End of comments
4055: --------------------------------------------------------------------------------
4056: PROCEDURE copy_articles(
4057: p_api_version IN NUMBER,
4058: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4059: x_return_status OUT NOCOPY VARCHAR2,
4060: x_msg_count OUT NOCOPY NUMBER,
4061: x_msg_data OUT NOCOPY VARCHAR2,
4062: p_cat_id IN NUMBER,
4059: x_return_status OUT NOCOPY VARCHAR2,
4060: x_msg_count OUT NOCOPY NUMBER,
4061: x_msg_data OUT NOCOPY VARCHAR2,
4062: p_cat_id IN NUMBER,
4063: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4064: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4065: p_sav_sav_release IN VARCHAR2 DEFAULT NULL,
4066: x_cat_id OUT NOCOPY NUMBER) IS
4067:
4060: x_msg_count OUT NOCOPY NUMBER,
4061: x_msg_data OUT NOCOPY VARCHAR2,
4062: p_cat_id IN NUMBER,
4063: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4064: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4065: p_sav_sav_release IN VARCHAR2 DEFAULT NULL,
4066: x_cat_id OUT NOCOPY NUMBER) IS
4067:
4068:
4066: x_cat_id OUT NOCOPY NUMBER) IS
4067:
4068:
4069: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_ARTICLES';
4070: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4071: BEGIN
4072: l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
4073: G_PKG_NAME,
4074: p_init_msg_list,
4068:
4069: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_ARTICLES';
4070: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4071: BEGIN
4072: l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
4073: G_PKG_NAME,
4074: p_init_msg_list,
4075: G_API_VERSION,
4076: p_api_version,
4075: G_API_VERSION,
4076: p_api_version,
4077: G_SCOPE,
4078: x_return_status);
4079: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4081: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4082: RAISE OKL_API.G_EXCEPTION_ERROR;
4083: END IF;
4076: p_api_version,
4077: G_SCOPE,
4078: x_return_status);
4079: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4081: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4082: RAISE OKL_API.G_EXCEPTION_ERROR;
4083: END IF;
4084:
4077: G_SCOPE,
4078: x_return_status);
4079: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4081: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4082: RAISE OKL_API.G_EXCEPTION_ERROR;
4083: END IF;
4084:
4085: OKC_COPY_CONTRACT_PUB.copy_articles(
4078: x_return_status);
4079: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4081: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4082: RAISE OKL_API.G_EXCEPTION_ERROR;
4083: END IF;
4084:
4085: OKC_COPY_CONTRACT_PUB.copy_articles(
4086: p_api_version => p_api_version,
4093: p_chr_id => p_chr_id,
4094: p_sav_sav_release => p_sav_sav_release,
4095: x_cat_id => x_cat_id);
4096:
4097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4100: RAISE OKL_API.G_EXCEPTION_ERROR;
4101: END IF;
4094: p_sav_sav_release => p_sav_sav_release,
4095: x_cat_id => x_cat_id);
4096:
4097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4100: RAISE OKL_API.G_EXCEPTION_ERROR;
4101: END IF;
4102:
4095: x_cat_id => x_cat_id);
4096:
4097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4100: RAISE OKL_API.G_EXCEPTION_ERROR;
4101: END IF;
4102:
4103: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4096:
4097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4100: RAISE OKL_API.G_EXCEPTION_ERROR;
4101: END IF;
4102:
4103: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4104:
4099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4100: RAISE OKL_API.G_EXCEPTION_ERROR;
4101: END IF;
4102:
4103: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4104:
4105: EXCEPTION
4106: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4107: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4102:
4103: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4104:
4105: EXCEPTION
4106: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4107: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4108: (substr(l_api_name,1,26),
4109: G_PKG_NAME,
4110: 'OKL_API.G_RET_STS_ERROR',
4103: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4104:
4105: EXCEPTION
4106: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4107: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4108: (substr(l_api_name,1,26),
4109: G_PKG_NAME,
4110: 'OKL_API.G_RET_STS_ERROR',
4111: x_msg_count,
4106: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4107: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4108: (substr(l_api_name,1,26),
4109: G_PKG_NAME,
4110: 'OKL_API.G_RET_STS_ERROR',
4111: x_msg_count,
4112: x_msg_data,
4113: G_SCOPE);
4114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4110: 'OKL_API.G_RET_STS_ERROR',
4111: x_msg_count,
4112: x_msg_data,
4113: G_SCOPE);
4114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4115: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4116: (substr(l_api_name,1,26),
4117: G_PKG_NAME,
4118: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4111: x_msg_count,
4112: x_msg_data,
4113: G_SCOPE);
4114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4115: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4116: (substr(l_api_name,1,26),
4117: G_PKG_NAME,
4118: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4119: x_msg_count,
4114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4115: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4116: (substr(l_api_name,1,26),
4117: G_PKG_NAME,
4118: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4119: x_msg_count,
4120: x_msg_data,
4121: G_SCOPE);
4122: WHEN OTHERS THEN
4120: x_msg_data,
4121: G_SCOPE);
4122: WHEN OTHERS THEN
4123: -- store SQL error message on message stack for caller
4124: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4125: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4126: (substr(l_api_name,1,26),
4127: G_PKG_NAME,
4128: 'OTHERS',
4121: G_SCOPE);
4122: WHEN OTHERS THEN
4123: -- store SQL error message on message stack for caller
4124: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4125: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4126: (substr(l_api_name,1,26),
4127: G_PKG_NAME,
4128: 'OTHERS',
4129: x_msg_count,
4144: -- End of comments
4145: --------------------------------------------------------------------------------
4146: PROCEDURE copy_latest_articles(
4147: p_api_version IN NUMBER,
4148: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4149: x_return_status OUT NOCOPY VARCHAR2,
4150: x_msg_count OUT NOCOPY NUMBER,
4151: x_msg_data OUT NOCOPY VARCHAR2,
4152: p_cat_id IN NUMBER,
4149: x_return_status OUT NOCOPY VARCHAR2,
4150: x_msg_count OUT NOCOPY NUMBER,
4151: x_msg_data OUT NOCOPY VARCHAR2,
4152: p_cat_id IN NUMBER,
4153: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4154: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4155: x_cat_id OUT NOCOPY NUMBER) IS
4156:
4157:
4150: x_msg_count OUT NOCOPY NUMBER,
4151: x_msg_data OUT NOCOPY VARCHAR2,
4152: p_cat_id IN NUMBER,
4153: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4154: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4155: x_cat_id OUT NOCOPY NUMBER) IS
4156:
4157:
4158: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_LATEST_ARTICLES';
4155: x_cat_id OUT NOCOPY NUMBER) IS
4156:
4157:
4158: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_LATEST_ARTICLES';
4159: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4160: BEGIN
4161: l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
4162: G_PKG_NAME,
4163: p_init_msg_list,
4157:
4158: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_LATEST_ARTICLES';
4159: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4160: BEGIN
4161: l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
4162: G_PKG_NAME,
4163: p_init_msg_list,
4164: G_API_VERSION,
4165: p_api_version,
4164: G_API_VERSION,
4165: p_api_version,
4166: G_SCOPE,
4167: x_return_status);
4168: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4170: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4171: RAISE OKL_API.G_EXCEPTION_ERROR;
4172: END IF;
4165: p_api_version,
4166: G_SCOPE,
4167: x_return_status);
4168: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4170: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4171: RAISE OKL_API.G_EXCEPTION_ERROR;
4172: END IF;
4173:
4166: G_SCOPE,
4167: x_return_status);
4168: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4170: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4171: RAISE OKL_API.G_EXCEPTION_ERROR;
4172: END IF;
4173:
4174: OKC_COPY_CONTRACT_PUB.copy_latest_articles(
4167: x_return_status);
4168: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4170: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4171: RAISE OKL_API.G_EXCEPTION_ERROR;
4172: END IF;
4173:
4174: OKC_COPY_CONTRACT_PUB.copy_latest_articles(
4175: p_api_version => p_api_version,
4181: p_cle_id => p_cle_id,
4182: p_chr_id => p_chr_id,
4183: x_cat_id => x_cat_id);
4184:
4185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4188: RAISE OKL_API.G_EXCEPTION_ERROR;
4189: END IF;
4182: p_chr_id => p_chr_id,
4183: x_cat_id => x_cat_id);
4184:
4185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4188: RAISE OKL_API.G_EXCEPTION_ERROR;
4189: END IF;
4190:
4183: x_cat_id => x_cat_id);
4184:
4185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4188: RAISE OKL_API.G_EXCEPTION_ERROR;
4189: END IF;
4190:
4191: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4184:
4185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4188: RAISE OKL_API.G_EXCEPTION_ERROR;
4189: END IF;
4190:
4191: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4192:
4187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4188: RAISE OKL_API.G_EXCEPTION_ERROR;
4189: END IF;
4190:
4191: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4192:
4193: EXCEPTION
4194: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4195: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4190:
4191: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4192:
4193: EXCEPTION
4194: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4195: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4196: (substr(l_api_name,1,26),
4197: G_PKG_NAME,
4198: 'OKL_API.G_RET_STS_ERROR',
4191: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4192:
4193: EXCEPTION
4194: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4195: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4196: (substr(l_api_name,1,26),
4197: G_PKG_NAME,
4198: 'OKL_API.G_RET_STS_ERROR',
4199: x_msg_count,
4194: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4195: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4196: (substr(l_api_name,1,26),
4197: G_PKG_NAME,
4198: 'OKL_API.G_RET_STS_ERROR',
4199: x_msg_count,
4200: x_msg_data,
4201: G_SCOPE);
4202: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4198: 'OKL_API.G_RET_STS_ERROR',
4199: x_msg_count,
4200: x_msg_data,
4201: G_SCOPE);
4202: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4203: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4204: (substr(l_api_name,1,26),
4205: G_PKG_NAME,
4206: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4199: x_msg_count,
4200: x_msg_data,
4201: G_SCOPE);
4202: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4203: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4204: (substr(l_api_name,1,26),
4205: G_PKG_NAME,
4206: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4207: x_msg_count,
4202: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4203: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4204: (substr(l_api_name,1,26),
4205: G_PKG_NAME,
4206: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4207: x_msg_count,
4208: x_msg_data,
4209: G_SCOPE);
4210: WHEN OTHERS THEN
4208: x_msg_data,
4209: G_SCOPE);
4210: WHEN OTHERS THEN
4211: -- store SQL error message on message stack for caller
4212: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4213: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4214: (substr(l_api_name,1,26),
4215: G_PKG_NAME,
4216: 'OTHERS',
4209: G_SCOPE);
4210: WHEN OTHERS THEN
4211: -- store SQL error message on message stack for caller
4212: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4213: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4214: (substr(l_api_name,1,26),
4215: G_PKG_NAME,
4216: 'OTHERS',
4217: x_msg_count,
4343: -- to added Syndication 'OKX_LEASE' also
4344: -- This will also be pushed into Copy_Asset_Lines
4345: --------------------------------------------------------------------------------
4346: Procedure link_cov_asst( p_api_version IN NUMBER,
4347: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4348: x_return_status OUT NOCOPY VARCHAR2,
4349: x_msg_count OUT NOCOPY NUMBER,
4350: x_msg_data OUT NOCOPY VARCHAR2,
4351: p_orig_lnk_cle_id IN NUMBER,
4377: l_cimv_rec OKL_OKC_MIGRATION_PVT.cimv_rec_type;
4378: lx_cimv_rec OKL_OKC_MIGRATION_PVT.cimv_rec_type;
4379:
4380: Begin
4381: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4382: l_new_lnk_cim_id := p_new_lnk_cim_id;
4383:
4384: If p_object_code in ('OKL_USAGE','OKX_LEASE') then --for covered usage contract and syndicated contract
4385:
4383:
4384: If p_object_code in ('OKL_USAGE','OKX_LEASE') then --for covered usage contract and syndicated contract
4385:
4386: l_cimv_rec.id := l_new_lnk_cim_id;
4387: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
4388: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
4389: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
4390:
4391: Else --for covered asset
4384: If p_object_code in ('OKL_USAGE','OKX_LEASE') then --for covered usage contract and syndicated contract
4385:
4386: l_cimv_rec.id := l_new_lnk_cim_id;
4387: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
4388: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
4389: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
4390:
4391: Else --for covered asset
4392:
4385:
4386: l_cimv_rec.id := l_new_lnk_cim_id;
4387: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
4388: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
4389: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
4390:
4391: Else --for covered asset
4392:
4393: Open l_orig_ast_csr(p_orig_lnk_cle_id => p_orig_lnk_cle_id,
4395: Fetch l_orig_ast_csr into l_new_cle_id;
4396: IF l_orig_ast_csr%NOTFOUND Then
4397: --null out the new link
4398: l_cimv_rec.id := l_new_lnk_cim_id;
4399: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
4400: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
4401: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
4402: ELSE
4403: --update the new link with new asset
4396: IF l_orig_ast_csr%NOTFOUND Then
4397: --null out the new link
4398: l_cimv_rec.id := l_new_lnk_cim_id;
4399: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
4400: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
4401: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
4402: ELSE
4403: --update the new link with new asset
4404: l_cimv_rec.id := l_new_lnk_cim_id;
4397: --null out the new link
4398: l_cimv_rec.id := l_new_lnk_cim_id;
4399: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
4400: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
4401: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
4402: ELSE
4403: --update the new link with new asset
4404: l_cimv_rec.id := l_new_lnk_cim_id;
4405: l_cimv_rec.object1_id1 := to_char(l_new_cle_id);
4422: When Others then
4423: If l_orig_ast_csr%ISOPEN Then
4424: Close l_orig_ast_csr;
4425: End If;
4426: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4427:
4428: End link_cov_asst;
4429: --------------------------------------------------------------------------------
4430: -- Start of comments
4440: -- End of comments
4441: --------------------------------------------------------------------------------
4442: Procedure reset_contract_status
4443: (p_api_version IN NUMBER,
4444: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4445: x_return_status OUT NOCOPY VARCHAR2,
4446: x_msg_count OUT NOCOPY NUMBER,
4447: x_msg_data OUT NOCOPY VARCHAR2,
4448: p_chr_id IN NUMBER,
4448: p_chr_id IN NUMBER,
4449: p_status IN VARCHAR2,
4450: p_cascade_lines IN VARCHAR2) IS
4451: BEGIN
4452: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4453: -- Now call the stored program to update status of contact
4454: okl_contract_status_pub.update_contract_status
4455: (p_api_version => p_api_version,
4456: p_init_msg_list => p_init_msg_list,
4459: x_msg_data => x_msg_data,
4460: p_khr_status => p_status,
4461: p_chr_id => p_chr_id);
4462:
4463: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) Then
4464: Raise G_EXCEPTION_HALT_PROCESS;
4465: End If;
4466:
4467:
4476: p_chr_id => p_chr_id);
4477: End If;
4478: */
4479:
4480: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) Then
4481: Raise G_EXCEPTION_HALT_PROCESS;
4482: End If;
4483:
4484: EXCEPTION
4484: EXCEPTION
4485: WHEN G_EXCEPTION_HALT_PROCESS Then
4486: Null;
4487: When OTHERS Then
4488: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4489: END reset_contract_status;
4490: --End Bug# 2555692
4491:
4492: --------------------------------------------------------------------------------
4503: -- End of comments
4504: --------------------------------------------------------------------------------
4505: PROCEDURE delete_yields(
4506: p_api_version IN NUMBER,
4507: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4508: x_return_status OUT NOCOPY VARCHAR2,
4509: x_msg_count OUT NOCOPY NUMBER,
4510: x_msg_data OUT NOCOPY VARCHAR2,
4511: p_chr_id IN NUMBER,
4513: p_trans_type IN VARCHAR2
4514: ) IS
4515:
4516: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_YIELDS';
4517: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4518:
4519: l_chrv_rec chrv_rec_type;
4520: l_khrv_rec khrv_rec_type;
4521: l_khrv_qry_rec khrv_rec_type;
4551: and cle.id = kle.id;
4552:
4553: BEGIN
4554:
4555: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4556: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
4557: G_PKG_NAME,
4558: p_init_msg_list,
4559: G_API_VERSION,
4552:
4553: BEGIN
4554:
4555: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4556: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
4557: G_PKG_NAME,
4558: p_init_msg_list,
4559: G_API_VERSION,
4560: p_api_version,
4559: G_API_VERSION,
4560: p_api_version,
4561: G_SCOPE,
4562: x_return_status);
4563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4566: RAISE OKL_API.G_EXCEPTION_ERROR;
4567: END IF;
4560: p_api_version,
4561: G_SCOPE,
4562: x_return_status);
4563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4566: RAISE OKL_API.G_EXCEPTION_ERROR;
4567: END IF;
4568:
4561: G_SCOPE,
4562: x_return_status);
4563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4566: RAISE OKL_API.G_EXCEPTION_ERROR;
4567: END IF;
4568:
4569: l_khrv_qry_rec := get_khrv_rec(p_chr_id);
4562: x_return_status);
4563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4566: RAISE OKL_API.G_EXCEPTION_ERROR;
4567: END IF;
4568:
4569: l_khrv_qry_rec := get_khrv_rec(p_chr_id);
4570:
4621: p_khrv_rec => l_khrv_rec,
4622: x_chrv_rec => lx_chrv_rec,
4623: x_khrv_rec => lx_khrv_rec);
4624:
4625: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4627: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4628: RAISE OKL_API.G_EXCEPTION_ERROR;
4629: END IF;
4622: x_chrv_rec => lx_chrv_rec,
4623: x_khrv_rec => lx_khrv_rec);
4624:
4625: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4627: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4628: RAISE OKL_API.G_EXCEPTION_ERROR;
4629: END IF;
4630:
4623: x_khrv_rec => lx_khrv_rec);
4624:
4625: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4627: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4628: RAISE OKL_API.G_EXCEPTION_ERROR;
4629: END IF;
4630:
4631: END IF;
4624:
4625: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4627: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4628: RAISE OKL_API.G_EXCEPTION_ERROR;
4629: END IF;
4630:
4631: END IF;
4632:
4683: p_klev_rec => l_klev_rec,
4684: x_clev_rec => lx_clev_rec,
4685: x_klev_rec => lx_klev_rec);
4686:
4687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_ERROR;
4691: END IF;
4684: x_clev_rec => lx_clev_rec,
4685: x_klev_rec => lx_klev_rec);
4686:
4687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_ERROR;
4691: END IF;
4692:
4685: x_klev_rec => lx_klev_rec);
4686:
4687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_ERROR;
4691: END IF;
4692:
4693: END IF;
4686:
4687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_ERROR;
4691: END IF;
4692:
4693: END IF;
4694: END LOOP;
4692:
4693: END IF;
4694: END LOOP;
4695:
4696: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4697:
4698: EXCEPTION
4699: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4700: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4695:
4696: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4697:
4698: EXCEPTION
4699: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4700: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4701: (substr(l_api_name,1,26),
4702: G_PKG_NAME,
4703: 'OKL_API.G_RET_STS_ERROR',
4696: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4697:
4698: EXCEPTION
4699: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4700: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4701: (substr(l_api_name,1,26),
4702: G_PKG_NAME,
4703: 'OKL_API.G_RET_STS_ERROR',
4704: x_msg_count,
4699: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4700: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4701: (substr(l_api_name,1,26),
4702: G_PKG_NAME,
4703: 'OKL_API.G_RET_STS_ERROR',
4704: x_msg_count,
4705: x_msg_data,
4706: G_SCOPE);
4707: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4703: 'OKL_API.G_RET_STS_ERROR',
4704: x_msg_count,
4705: x_msg_data,
4706: G_SCOPE);
4707: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4708: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4709: (substr(l_api_name,1,26),
4710: G_PKG_NAME,
4711: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4704: x_msg_count,
4705: x_msg_data,
4706: G_SCOPE);
4707: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4708: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4709: (substr(l_api_name,1,26),
4710: G_PKG_NAME,
4711: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4712: x_msg_count,
4707: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4708: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4709: (substr(l_api_name,1,26),
4710: G_PKG_NAME,
4711: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4712: x_msg_count,
4713: x_msg_data,
4714: G_SCOPE);
4715: WHEN OTHERS THEN
4713: x_msg_data,
4714: G_SCOPE);
4715: WHEN OTHERS THEN
4716: -- store SQL error message on message stack for caller
4717: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4718: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4719: (substr(l_api_name,1,26),
4720: G_PKG_NAME,
4721: 'OTHERS',
4714: G_SCOPE);
4715: WHEN OTHERS THEN
4716: -- store SQL error message on message stack for caller
4717: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4718: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4719: (substr(l_api_name,1,26),
4720: G_PKG_NAME,
4721: 'OTHERS',
4722: x_msg_count,
4921: l_rebook_date := r.date_transaction_occurred;
4922: END LOOP;
4923: print('In copy_var_int_rate_params: l_rebook_date=' || l_rebook_date);
4924: IF (l_rebook_date is NULL) THEN
4925: RAISE OKL_API.G_EXCEPTION_ERROR;
4926: END IF;
4927: END IF;
4928: */
4929: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5137: END IF;
5138:
5139: EXCEPTION WHEN OTHERS THEN
5140:
5141: --x_return_status := OKL_API.G_RET_STS_ERROR;
5142: /* DEBUG */
5143: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5144: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
5145: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing copy_var_int_rate_params:l_kkhr_id_tab.count=' || l_kkhr_id_tab.COUNT || ' ...');
5211: -- End of comments
5212: --------------------------------------------------------------------------------
5213: PROCEDURE copy_lease_contract_new(
5214: p_api_version IN NUMBER,
5215: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5216: x_return_status OUT NOCOPY VARCHAR2,
5217: x_msg_count OUT NOCOPY NUMBER,
5218: x_msg_data OUT NOCOPY VARCHAR2,
5219: p_commit IN VARCHAR2 DEFAULT 'F',
5309: l_new_object1_id1 VARCHAR2(40);
5310: l_contract_process VARCHAR2(30);
5311: l_parameter_list wf_parameter_list_t;
5312: l_event_name wf_events.name%TYPE := NULL;
5313: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
5314: l_business_event_name wf_events.name%TYPE := NULL;
5315:
5316: l_contract_number okc_k_headers_b.contract_number%TYPE;
5317: l_copied_id NUMBER;
7670: END LOOP;
7671:
7672: EXCEPTION WHEN OTHERS THEN
7673:
7674: x_return_status := OKL_API.G_RET_STS_ERROR;
7675: /*OKL_API.set_message(p_app_name => 'OKL',
7676: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
7677: p_token1 => 'ASSET_NUMBER',
7678: p_token1_value => 'sort_bid_mapping_tab');*/
7671:
7672: EXCEPTION WHEN OTHERS THEN
7673:
7674: x_return_status := OKL_API.G_RET_STS_ERROR;
7675: /*OKL_API.set_message(p_app_name => 'OKL',
7676: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
7677: p_token1 => 'ASSET_NUMBER',
7678: p_token1_value => 'sort_bid_mapping_tab');*/
7679: /* DEBUG */
7908: end loop;*/
7909:
7910: EXCEPTION WHEN OTHERS THEN
7911:
7912: x_return_status := OKL_API.G_RET_STS_ERROR;
7913: /*OKL_API.set_message(p_app_name => 'OKL',
7914: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
7915: p_token1 => 'ASSET_NUMBER',
7916: p_token1_value => 'sort_cle_lse_mapping_tab');*/
7909:
7910: EXCEPTION WHEN OTHERS THEN
7911:
7912: x_return_status := OKL_API.G_RET_STS_ERROR;
7913: /*OKL_API.set_message(p_app_name => 'OKL',
7914: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
7915: p_token1 => 'ASSET_NUMBER',
7916: p_token1_value => 'sort_cle_lse_mapping_tab');*/
7917: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8074: END LOOP;
8075:
8076: EXCEPTION WHEN OTHERS THEN
8077:
8078: x_return_status := OKL_API.G_RET_STS_ERROR;
8079: /*OKL_API.set_message(p_app_name => 'OKL',
8080: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8081: p_token1 => 'ASSET_NUMBER',
8082: p_token1_value => 'sort_cid_mapping_tab');*/
8075:
8076: EXCEPTION WHEN OTHERS THEN
8077:
8078: x_return_status := OKL_API.G_RET_STS_ERROR;
8079: /*OKL_API.set_message(p_app_name => 'OKL',
8080: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8081: p_token1 => 'ASSET_NUMBER',
8082: p_token1_value => 'sort_cid_mapping_tab');*/
8083: /* DEBUG */
8247:
8248:
8249: EXCEPTION WHEN OTHERS THEN
8250:
8251: x_return_status := OKL_API.G_RET_STS_ERROR;
8252: /*OKL_API.set_message(p_app_name => 'OKL',
8253: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8254: p_token1 => 'ASSET_NUMBER',
8255: p_token1_value => 'do_sort');*/
8248:
8249: EXCEPTION WHEN OTHERS THEN
8250:
8251: x_return_status := OKL_API.G_RET_STS_ERROR;
8252: /*OKL_API.set_message(p_app_name => 'OKL',
8253: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8254: p_token1 => 'ASSET_NUMBER',
8255: p_token1_value => 'do_sort');*/
8256: /* DEBUG */
8295: After the spec in okl_copy_asset_pvt spec has been changed to
8296: expose this function */
8297: FUNCTION generate_asset_number(x_asset_number OUT NOCOPY OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE)
8298: RETURN VARCHAR2 IS
8299: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
8300: ln_dummy1 NUMBER := 0;
8301: ln_dummy2 NUMBER := 0;
8302: ln_dummy3 NUMBER := 0;
8303: lv_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE;
8300: ln_dummy1 NUMBER := 0;
8301: ln_dummy2 NUMBER := 0;
8302: ln_dummy3 NUMBER := 0;
8303: lv_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE;
8304: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
8305: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
8306: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
8307: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
8308:
8338: OPEN c_asset_no;
8339: FETCH c_asset_no INTO x_asset_number;
8340: IF (c_asset_no%NOTFOUND) THEN
8341: x_return_status := OKC_API.G_RET_STS_ERROR;
8342: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8343: p_msg_name => g_unexpected_error,
8344: p_token1 => g_sqlcode_token,
8345: p_token1_value => SQLCODE,
8346: p_token2 => g_sqlerrm_token,
8378: OPEN c_asset_no;
8379: FETCH c_asset_no INTO x_asset_number;
8380: IF (c_asset_no%NOTFOUND) THEN
8381: x_return_status := OKC_API.G_RET_STS_ERROR;
8382: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8383: p_msg_name => g_unexpected_error,
8384: p_token1 => g_sqlcode_token,
8385: p_token1_value => SQLCODE,
8386: p_token2 => g_sqlerrm_token,
8407: IF c_okx_assets_v%ISOPEN THEN
8408: CLOSE c_okx_assets_v;
8409: END IF;
8410: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8411: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8412: p_msg_name => g_unexpected_error,
8413: p_token1 => g_sqlcode_token,
8414: p_token1_value => SQLCODE,
8415: p_token2 => g_sqlerrm_token,
8610: end loop; */
8611:
8612: EXCEPTION WHEN OTHERS THEN
8613:
8614: x_return_status := OKL_API.G_RET_STS_ERROR;
8615: /*OKL_API.set_message(p_app_name => 'OKL',
8616: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8617: p_token1 => 'ASSET_NUMBER',
8618: p_token1_value => 'sort_cle_mapping_tab');*/
8611:
8612: EXCEPTION WHEN OTHERS THEN
8613:
8614: x_return_status := OKL_API.G_RET_STS_ERROR;
8615: /*OKL_API.set_message(p_app_name => 'OKL',
8616: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8617: p_token1 => 'ASSET_NUMBER',
8618: p_token1_value => 'sort_cle_mapping_tab');*/
8619: /* DEBUG */
8778: END LOOP;
8779:
8780: EXCEPTION WHEN OTHERS THEN
8781:
8782: x_return_status := OKL_API.G_RET_STS_ERROR;
8783: /*OKL_API.set_message(p_app_name => 'OKL',
8784: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8785: p_token1 => 'ASSET_NUMBER',
8786: p_token1_value => 'sort_aid_mapping_tab');*/
8779:
8780: EXCEPTION WHEN OTHERS THEN
8781:
8782: x_return_status := OKL_API.G_RET_STS_ERROR;
8783: /*OKL_API.set_message(p_app_name => 'OKL',
8784: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8785: p_token1 => 'ASSET_NUMBER',
8786: p_token1_value => 'sort_aid_mapping_tab');*/
8787: /* DEBUG */
8953: END LOOP;
8954:
8955: EXCEPTION WHEN OTHERS THEN
8956:
8957: x_return_status := OKL_API.G_RET_STS_ERROR;
8958: /*OKL_API.set_message(p_app_name => 'OKL',
8959: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8960: p_token1 => 'ASSET_NUMBER',
8961: p_token1_value => 'do_id_mapping_sort');*/
8954:
8955: EXCEPTION WHEN OTHERS THEN
8956:
8957: x_return_status := OKL_API.G_RET_STS_ERROR;
8958: /*OKL_API.set_message(p_app_name => 'OKL',
8959: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8960: p_token1 => 'ASSET_NUMBER',
8961: p_token1_value => 'do_id_mapping_sort');*/
8962: /* DEBUG */
9154: LOOP
9155: -- Populate l_aid_mapping_tab
9156: l_aid_mapping_tab(l_asset_counter).old_id := l_olname_tab3(i);
9157: l_ret_status := generate_asset_number(l_new_asset_name);
9158: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9160: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9161: RAISE OKL_API.G_EXCEPTION_ERROR;
9162: END IF;
9155: -- Populate l_aid_mapping_tab
9156: l_aid_mapping_tab(l_asset_counter).old_id := l_olname_tab3(i);
9157: l_ret_status := generate_asset_number(l_new_asset_name);
9158: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9160: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9161: RAISE OKL_API.G_EXCEPTION_ERROR;
9162: END IF;
9163:
9156: l_aid_mapping_tab(l_asset_counter).old_id := l_olname_tab3(i);
9157: l_ret_status := generate_asset_number(l_new_asset_name);
9158: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9160: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9161: RAISE OKL_API.G_EXCEPTION_ERROR;
9162: END IF;
9163:
9164: l_aid_mapping_tab(l_asset_counter).new_id := l_new_asset_name;
9157: l_ret_status := generate_asset_number(l_new_asset_name);
9158: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9160: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9161: RAISE OKL_API.G_EXCEPTION_ERROR;
9162: END IF;
9163:
9164: l_aid_mapping_tab(l_asset_counter).new_id := l_new_asset_name;
9165:
9230: END IF;
9231:
9232: EXCEPTION WHEN OTHERS THEN
9233:
9234: x_return_status := OKL_API.G_RET_STS_ERROR;
9235: /*OKL_API.set_message(p_app_name => 'OKL',
9236: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
9237: p_token1 => 'ASSET_NUMBER',
9238: p_token1_value => 'insert_okc_k_lines_tl');*/
9231:
9232: EXCEPTION WHEN OTHERS THEN
9233:
9234: x_return_status := OKL_API.G_RET_STS_ERROR;
9235: /*OKL_API.set_message(p_app_name => 'OKL',
9236: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
9237: p_token1 => 'ASSET_NUMBER',
9238: p_token1_value => 'insert_okc_k_lines_tl');*/
9239: /* DEBUG */
9340: IF (l_new_asset_name = '-1') THEN
9341: l_ret_status := generate_asset_number(
9342: l_new_asset_name
9343: );
9344: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9345: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9346: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9347: RAISE OKL_API.G_EXCEPTION_ERROR;
9348: END IF;
9341: l_ret_status := generate_asset_number(
9342: l_new_asset_name
9343: );
9344: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9345: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9346: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9347: RAISE OKL_API.G_EXCEPTION_ERROR;
9348: END IF;
9349: END IF;
9342: l_new_asset_name
9343: );
9344: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9345: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9346: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9347: RAISE OKL_API.G_EXCEPTION_ERROR;
9348: END IF;
9349: END IF;
9350: ELSE
9343: );
9344: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9345: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9346: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9347: RAISE OKL_API.G_EXCEPTION_ERROR;
9348: END IF;
9349: END IF;
9350: ELSE
9351: l_ret_status := generate_asset_number(
9350: ELSE
9351: l_ret_status := generate_asset_number(
9352: l_new_asset_name
9353: );
9354: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9356: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9357: RAISE OKL_API.G_EXCEPTION_ERROR;
9358: END IF;
9351: l_ret_status := generate_asset_number(
9352: l_new_asset_name
9353: );
9354: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9356: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9357: RAISE OKL_API.G_EXCEPTION_ERROR;
9358: END IF;
9359: END IF;
9352: l_new_asset_name
9353: );
9354: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9356: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9357: RAISE OKL_API.G_EXCEPTION_ERROR;
9358: END IF;
9359: END IF;
9360: l_done_generating := TRUE;
9353: );
9354: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9356: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9357: RAISE OKL_API.G_EXCEPTION_ERROR;
9358: END IF;
9359: END IF;
9360: l_done_generating := TRUE;
9361: END IF;
9512: END IF;
9513:
9514: EXCEPTION WHEN OTHERS THEN
9515:
9516: x_return_status := OKL_API.G_RET_STS_ERROR;
9517: /*OKL_API.set_message(p_app_name => 'OKL',
9518: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
9519: p_token1 => 'ASSET_NUMBER',
9520: p_token1_value => 'insert_okc_k_headers_tl');*/
9513:
9514: EXCEPTION WHEN OTHERS THEN
9515:
9516: x_return_status := OKL_API.G_RET_STS_ERROR;
9517: /*OKL_API.set_message(p_app_name => 'OKL',
9518: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
9519: p_token1 => 'ASSET_NUMBER',
9520: p_token1_value => 'insert_okc_k_headers_tl');*/
9521: /* DEBUG */
9795: l_id_tab(i) := p_new_id;
9796:
9797: validate_amd_code(x_return_status, l_amd_code_tab(i));
9798: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
9799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9800: END IF;
9801:
9802: END LOOP;
9803:
9866: END IF;
9867:
9868: EXCEPTION WHEN OTHERS THEN
9869:
9870: x_return_status := OKL_API.G_RET_STS_ERROR;
9871: /*OKL_API.set_message(p_app_name => 'OKL',
9872: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
9873: p_token1 => 'ASSET_NUMBER',
9874: p_token1_value => 'insert_okl_k_headers');*/
9867:
9868: EXCEPTION WHEN OTHERS THEN
9869:
9870: x_return_status := OKL_API.G_RET_STS_ERROR;
9871: /*OKL_API.set_message(p_app_name => 'OKL',
9872: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
9873: p_token1 => 'ASSET_NUMBER',
9874: p_token1_value => 'insert_okl_k_headers');*/
9875: /* DEBUG */
10100: /*
10101: okl_quote_plans_pvt.modify_quote_structure(
10102: p_api_version => p_api_version,
10103: p_init_msg_list => p_init_msg_list,
10104: p_transaction_control => OKL_API.G_FALSE,
10105: p_chr_id => p_new_id,
10106: p_modify_reason_code => 'COPY_QUOTE',
10107: x_chr_id => l_quote_chr_id,
10108: x_return_status => l_return_status,
10108: x_return_status => l_return_status,
10109: x_msg_count => x_msg_count,
10110: x_msg_data => x_msg_data
10111: );
10112: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10114: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
10115: RAISE OKL_API.G_EXCEPTION_ERROR;
10116: END IF;
10109: x_msg_count => x_msg_count,
10110: x_msg_data => x_msg_data
10111: );
10112: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10114: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
10115: RAISE OKL_API.G_EXCEPTION_ERROR;
10116: END IF;
10117: */
10110: x_msg_data => x_msg_data
10111: );
10112: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10114: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
10115: RAISE OKL_API.G_EXCEPTION_ERROR;
10116: END IF;
10117: */
10118:
10111: );
10112: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10114: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
10115: RAISE OKL_API.G_EXCEPTION_ERROR;
10116: END IF;
10117: */
10118:
10119: END IF;
10118:
10119: END IF;
10120: EXCEPTION WHEN OTHERS THEN
10121:
10122: x_return_status := OKL_API.G_RET_STS_ERROR;
10123: /*OKL_API.set_message(p_app_name => 'OKL',
10124: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
10125: p_token1 => 'ASSET_NUMBER',
10126: p_token1_value => 'insert_okl_slctd_optns');*/
10119: END IF;
10120: EXCEPTION WHEN OTHERS THEN
10121:
10122: x_return_status := OKL_API.G_RET_STS_ERROR;
10123: /*OKL_API.set_message(p_app_name => 'OKL',
10124: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
10125: p_token1 => 'ASSET_NUMBER',
10126: p_token1_value => 'insert_okl_slctd_optns');*/
10127: /* DEBUG */
10303: END LOOP;
10304:
10305: EXCEPTION WHEN OTHERS THEN
10306:
10307: x_return_status := OKL_API.G_RET_STS_ERROR;
10308: /*OKL_API.set_message(p_app_name => 'OKL',
10309: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
10310: p_token1 => 'ASSET_NUMBER',
10311: p_token1_value => 'sort_osid_mapping_tab');*/
10304:
10305: EXCEPTION WHEN OTHERS THEN
10306:
10307: x_return_status := OKL_API.G_RET_STS_ERROR;
10308: /*OKL_API.set_message(p_app_name => 'OKL',
10309: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
10310: p_token1 => 'ASSET_NUMBER',
10311: p_token1_value => 'sort_osid_mapping_tab');*/
10312: /* DEBUG */
10496: END LOOP;
10497:
10498: EXCEPTION WHEN OTHERS THEN
10499:
10500: x_return_status := OKL_API.G_RET_STS_ERROR;
10501: /*OKL_API.set_message(p_app_name => 'OKL',
10502: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
10503: p_token1 => 'ASSET_NUMBER',
10504: p_token1_value => 'sort_okl_k_lines_rec');*/
10497:
10498: EXCEPTION WHEN OTHERS THEN
10499:
10500: x_return_status := OKL_API.G_RET_STS_ERROR;
10501: /*OKL_API.set_message(p_app_name => 'OKL',
10502: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
10503: p_token1 => 'ASSET_NUMBER',
10504: p_token1_value => 'sort_okl_k_lines_rec');*/
10505: /* DEBUG */
11055: IF (l_new_id = -1) THEN
11056: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11057: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_id_tab(l_okl_k_lines_counter));
11058: END IF;
11059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11060: --raise_application_error(-20001, 'Can not find mapping id');
11061: END IF;
11062: l_id_tab(l_okl_k_lines_counter) := l_new_id;
11063: l_osid_mapping_tab(l_okl_k_lines_counter).id := l_id_tab(l_okl_k_lines_counter);
11067: /*if (l_kle_id_tab(l_okl_k_lines_counter) is not null) then
11068: l_new_kle_id := find_mapping_id(l_kle_id_tab(l_okl_k_lines_counter));
11069: if (l_new_kle_id = -1) then
11070: print('ERROR : Mapping kle_id not found for ' || l_kle_id_tab(l_okl_k_lines_counter));
11071: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11072: end if;
11073: l_kle_id_tab(l_okl_k_lines_counter) := l_new_kle_id;
11074: end if; */
11075:
11373: END IF;
11374:
11375: EXCEPTION WHEN OTHERS THEN
11376:
11377: x_return_status := OKL_API.G_RET_STS_ERROR;
11378: /*OKL_API.set_message(p_app_name => 'OKL',
11379: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
11380: p_token1 => 'ASSET_NUMBER',
11381: p_token1_value => 'insert_okl_k_lines');*/
11374:
11375: EXCEPTION WHEN OTHERS THEN
11376:
11377: x_return_status := OKL_API.G_RET_STS_ERROR;
11378: /*OKL_API.set_message(p_app_name => 'OKL',
11379: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
11380: p_token1 => 'ASSET_NUMBER',
11381: p_token1_value => 'insert_okl_k_lines');*/
11382: /* DEBUG */
11673: END LOOP;
11674:
11675: EXCEPTION WHEN OTHERS THEN
11676:
11677: x_return_status := OKL_API.G_RET_STS_ERROR;
11678: /*OKL_API.set_message(p_app_name => 'OKL',
11679: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
11680: p_token1 => 'ASSET_NUMBER',
11681: p_token1_value => 'do_sort_party_mapping_id');*/
11674:
11675: EXCEPTION WHEN OTHERS THEN
11676:
11677: x_return_status := OKL_API.G_RET_STS_ERROR;
11678: /*OKL_API.set_message(p_app_name => 'OKL',
11679: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
11680: p_token1 => 'ASSET_NUMBER',
11681: p_token1_value => 'do_sort_party_mapping_id');*/
11682: /* DEBUG */
11828: END IF;
11829:
11830: EXCEPTION WHEN OTHERS THEN
11831:
11832: x_return_status := OKL_API.G_RET_STS_ERROR;
11833: /* DEBUG */
11834: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11835: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
11836: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing prepare_okl_party_roles:l_plid_tab.count=' || l_plid_tab.COUNT || ' ...');
11956: END IF;
11957:
11958: EXCEPTION WHEN OTHERS THEN
11959:
11960: x_return_status := OKL_API.G_RET_STS_ERROR;
11961: /*OKL_API.set_message(p_app_name => 'OKL',
11962: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
11963: p_token1 => 'ASSET_NUMBER',
11964: p_token1_value => 'prepare_party_roles_tl');*/
11957:
11958: EXCEPTION WHEN OTHERS THEN
11959:
11960: x_return_status := OKL_API.G_RET_STS_ERROR;
11961: /*OKL_API.set_message(p_app_name => 'OKL',
11962: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
11963: p_token1 => 'ASSET_NUMBER',
11964: p_token1_value => 'prepare_party_roles_tl');*/
11965: /* DEBUG */
12156: END IF;
12157:
12158: EXCEPTION WHEN OTHERS THEN
12159:
12160: x_return_status := OKL_API.G_RET_STS_ERROR;
12161: /*OKL_API.set_message(p_app_name => 'OKL',
12162: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
12163: p_token1 => 'ASSET_NUMBER',
12164: p_token1_value => 'prepare_contacts');*/
12157:
12158: EXCEPTION WHEN OTHERS THEN
12159:
12160: x_return_status := OKL_API.G_RET_STS_ERROR;
12161: /*OKL_API.set_message(p_app_name => 'OKL',
12162: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
12163: p_token1 => 'ASSET_NUMBER',
12164: p_token1_value => 'prepare_contacts');*/
12165: /* DEBUG */
12350: END LOOP;
12351:
12352: EXCEPTION WHEN OTHERS THEN
12353:
12354: --x_return_status := OKL_API.G_RET_STS_ERROR;
12355: /* DEBUG */
12356: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
12357: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
12358: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing sort_phid_mapping_tab:l_phid_mapping_tab N=' || N || ' ...');
12455: IF (l_new_cle_id = -1) THEN
12456: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
12457: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: CLE_ID to NEW_CLE_ID mapping not found');
12458: END IF;
12459: RAISE OKL_API.G_EXCEPTION_ERROR;
12460: END IF;
12461: l_phcle_id_tab(l_party_payment_hdr_counter) := l_new_cle_id;
12462: END IF;
12463:
12727: END IF;
12728:
12729: EXCEPTION WHEN OTHERS THEN
12730:
12731: x_return_status := OKL_API.G_RET_STS_ERROR;
12732: /*OKL_API.set_message(p_app_name => 'OKL',
12733: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
12734: p_token1 => 'ASSET_NUMBER',
12735: p_token1_value => 'prepare_party_payment_dtls');*/
12728:
12729: EXCEPTION WHEN OTHERS THEN
12730:
12731: x_return_status := OKL_API.G_RET_STS_ERROR;
12732: /*OKL_API.set_message(p_app_name => 'OKL',
12733: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
12734: p_token1 => 'ASSET_NUMBER',
12735: p_token1_value => 'prepare_party_payment_dtls');*/
12736: /* DEBUG */
12927: END LOOP;
12928:
12929: EXCEPTION WHEN OTHERS THEN
12930:
12931: x_return_status := OKL_API.G_RET_STS_ERROR;
12932: /*OKL_API.set_message(p_app_name => 'OKL',
12933: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
12934: p_token1 => 'ASSET_NUMBER',
12935: p_token1_value => 'sort_vid_mapping_tab');*/
12928:
12929: EXCEPTION WHEN OTHERS THEN
12930:
12931: x_return_status := OKL_API.G_RET_STS_ERROR;
12932: /*OKL_API.set_message(p_app_name => 'OKL',
12933: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
12934: p_token1 => 'ASSET_NUMBER',
12935: p_token1_value => 'sort_vid_mapping_tab');*/
12936: /* DEBUG */
13167: IF (l_new_cle_id = -1) THEN
13168: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
13169: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_cle_id_tab(l_loop_counter));
13170: END IF;
13171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13172: END IF;
13173: l_cle_id_tab(l_loop_counter) := l_new_cle_id;
13174: END IF;
13175:
13336: END IF;
13337:
13338: EXCEPTION WHEN OTHERS THEN
13339:
13340: x_return_status := OKL_API.G_RET_STS_ERROR;
13341: /*OKL_API.set_message(p_app_name => 'OKL',
13342: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13343: p_token1 => 'ASSET_NUMBER',
13344: p_token1_value => 'insert_okc_k_party_roles');*/
13337:
13338: EXCEPTION WHEN OTHERS THEN
13339:
13340: x_return_status := OKL_API.G_RET_STS_ERROR;
13341: /*OKL_API.set_message(p_app_name => 'OKL',
13342: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13343: p_token1 => 'ASSET_NUMBER',
13344: p_token1_value => 'insert_okc_k_party_roles');*/
13345: /* DEBUG */
13536: END LOOP;
13537:
13538: EXCEPTION WHEN OTHERS THEN
13539:
13540: x_return_status := OKL_API.G_RET_STS_ERROR;
13541: /*OKL_API.set_message(p_app_name => 'OKL',
13542: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13543: p_token1 => 'ASSET_NUMBER',
13544: p_token1_value => 'sort_rid_mapping_tab');*/
13537:
13538: EXCEPTION WHEN OTHERS THEN
13539:
13540: x_return_status := OKL_API.G_RET_STS_ERROR;
13541: /*OKL_API.set_message(p_app_name => 'OKL',
13542: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13543: p_token1 => 'ASSET_NUMBER',
13544: p_token1_value => 'sort_rid_mapping_tab');*/
13545: /* DEBUG */
13703: END LOOP;
13704:
13705: EXCEPTION WHEN OTHERS THEN
13706:
13707: x_return_status := OKL_API.G_RET_STS_ERROR;
13708: /*OKL_API.set_message(p_app_name => 'OKL',
13709: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13710: p_token1 => 'ASSET_NUMBER',
13711: p_token1_value => 'sort_rrid_mapping_tab');*/
13704:
13705: EXCEPTION WHEN OTHERS THEN
13706:
13707: x_return_status := OKL_API.G_RET_STS_ERROR;
13708: /*OKL_API.set_message(p_app_name => 'OKL',
13709: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13710: p_token1 => 'ASSET_NUMBER',
13711: p_token1_value => 'sort_rrid_mapping_tab');*/
13712: /* DEBUG */
13807: END IF;
13808:
13809: EXCEPTION WHEN OTHERS THEN
13810:
13811: x_return_status := OKL_API.G_RET_STS_ERROR;
13812: /*OKL_API.set_message(p_app_name => 'OKL',
13813: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13814: p_token1 => 'ASSET_NUMBER',
13815: p_token1_value => 'prepare_rule_groups_tl');*/
13808:
13809: EXCEPTION WHEN OTHERS THEN
13810:
13811: x_return_status := OKL_API.G_RET_STS_ERROR;
13812: /*OKL_API.set_message(p_app_name => 'OKL',
13813: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13814: p_token1 => 'ASSET_NUMBER',
13815: p_token1_value => 'prepare_rule_groups_tl');*/
13816: /* DEBUG */
13916: END IF;
13917:
13918: EXCEPTION WHEN OTHERS THEN
13919:
13920: x_return_status := OKL_API.G_RET_STS_ERROR;
13921: /*OKL_API.set_message(p_app_name => 'OKL',
13922: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13923: p_token1 => 'ASSET_NUMBER',
13924: p_token1_value => 'insert_okc_rules_tl');*/
13917:
13918: EXCEPTION WHEN OTHERS THEN
13919:
13920: x_return_status := OKL_API.G_RET_STS_ERROR;
13921: /*OKL_API.set_message(p_app_name => 'OKL',
13922: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13923: p_token1 => 'ASSET_NUMBER',
13924: p_token1_value => 'insert_okc_rules_tl');*/
13925: /* DEBUG */
14199: -- Do not set Re-lease asset Flag to 'N' for Rebook and Re-lease copy
14200: -- contracts
14201: -- Start : Bug #15992711
14202: -- Do not set Re-lease asset Flag to 'N' for Re-lease copy
14203: /*IF ( NVL(l_orig_system_source_code,OKL_API.G_MISS_CHAR) IN ('OKL_REBOOK','OKL_RELEASE'))
14204: THEN
14205: NULL;
14206: ELSE
14207: IF ( l_rrrule_information_cate_tab(l_rules_b_counter) = 'LARLES') THEN
14208: l_rrrule_information1_tab(l_rules_b_counter) := 'N';
14209: END IF;
14210: END IF;
14211: -- gboomina Bug 5362977 - End*/
14212: IF ( NVL(l_orig_system_source_code,OKL_API.G_MISS_CHAR) IN ('OKL_RELEASE'))
14213: THEN
14214: NULL;
14215: ELSE
14216: IF ( l_rrrule_information_cate_tab(l_rules_b_counter) = 'LARLES') THEN
14273: IF (l_new_id = -1) THEN
14274: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
14275: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_rrobject2_id1_tab(i));
14276: END IF;
14277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14278: END IF;
14279: l_rrobject2_id1_tab(i) := l_new_id;
14280: --print('object2_id1:l_new_id=' || l_new_id);
14281: EXCEPTION WHEN OTHERS THEN
14345: END IF;
14346:
14347: EXCEPTION WHEN OTHERS THEN
14348:
14349: x_return_status := OKL_API.G_RET_STS_ERROR;
14350: /*OKL_API.set_message(p_app_name => 'OKL',
14351: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14352: p_token1 => 'ASSET_NUMBER',
14353: p_token1_value => 'insert_okc_rules_b');*/
14346:
14347: EXCEPTION WHEN OTHERS THEN
14348:
14349: x_return_status := OKL_API.G_RET_STS_ERROR;
14350: /*OKL_API.set_message(p_app_name => 'OKL',
14351: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14352: p_token1 => 'ASSET_NUMBER',
14353: p_token1_value => 'insert_okc_rules_b');*/
14354: /* DEBUG */
14565: END LOOP;
14566:
14567: EXCEPTION WHEN OTHERS THEN
14568:
14569: x_return_status := OKL_API.G_RET_STS_ERROR;
14570: /*OKL_API.set_message(p_app_name => 'OKL',
14571: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14572: p_token1 => 'ASSET_NUMBER',
14573: p_token1_value => 'sort_tid_mapping_tab');*/
14566:
14567: EXCEPTION WHEN OTHERS THEN
14568:
14569: x_return_status := OKL_API.G_RET_STS_ERROR;
14570: /*OKL_API.set_message(p_app_name => 'OKL',
14571: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14572: p_token1 => 'ASSET_NUMBER',
14573: p_token1_value => 'sort_tid_mapping_tab');*/
14574: /* DEBUG */
14694: IF (l_new_cle_id = -1) THEN
14695: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
14696: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_rcle_id_tab(l_rule_groups_b_counter));
14697: END IF;
14698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14699: END IF;
14700: l_rcle_id_tab(l_rule_groups_b_counter) := l_new_cle_id;
14701: END IF;
14702:
14795: END IF;
14796:
14797: EXCEPTION WHEN OTHERS THEN
14798:
14799: x_return_status := OKL_API.G_RET_STS_ERROR;
14800: /*OKL_API.set_message(p_app_name => 'OKL',
14801: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14802: p_token1 => 'ASSET_NUMBER',
14803: p_token1_value => 'insert_okc_rule_groups');*/
14796:
14797: EXCEPTION WHEN OTHERS THEN
14798:
14799: x_return_status := OKL_API.G_RET_STS_ERROR;
14800: /*OKL_API.set_message(p_app_name => 'OKL',
14801: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14802: p_token1 => 'ASSET_NUMBER',
14803: p_token1_value => 'insert_okc_rule_groups');*/
14804: /* DEBUG */
14987: END LOOP;
14988:
14989: EXCEPTION WHEN OTHERS THEN
14990:
14991: x_return_status := OKL_API.G_RET_STS_ERROR;
14992: /*OKL_API.set_message(p_app_name => 'OKL',
14993: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14994: p_token1 => 'ASSET_NUMBER',
14995: p_token1_value => 'sort_oid_mapping_tab');*/
14988:
14989: EXCEPTION WHEN OTHERS THEN
14990:
14991: x_return_status := OKL_API.G_RET_STS_ERROR;
14992: /*OKL_API.set_message(p_app_name => 'OKL',
14993: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14994: p_token1 => 'ASSET_NUMBER',
14995: p_token1_value => 'sort_oid_mapping_tab');*/
14996: /* DEBUG */
15187:
15188:
15189: EXCEPTION WHEN OTHERS THEN
15190:
15191: x_return_status := OKL_API.G_RET_STS_ERROR;
15192: /*OKL_API.set_message(p_app_name => 'OKL',
15193: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15194: p_token1 => 'ASSET_NUMBER',
15195: p_token1_value => 'sort_okc_k_items_rec');*/
15188:
15189: EXCEPTION WHEN OTHERS THEN
15190:
15191: x_return_status := OKL_API.G_RET_STS_ERROR;
15192: /*OKL_API.set_message(p_app_name => 'OKL',
15193: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15194: p_token1 => 'ASSET_NUMBER',
15195: p_token1_value => 'sort_okc_k_items_rec');*/
15196: /* DEBUG */
15293: IF (l_new_cle_id = -1) THEN
15294: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15295: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping cle id not found for ' || l_icle_id_tab(l_items_counter));
15296: END IF;
15297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15298: END IF;
15299: l_icle_id_tab(l_items_counter) := l_new_cle_id;
15300: END IF;
15301:
15321: IF (l_new_object1_id1 = -1) THEN
15322: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15323: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping object1_id not found for ' || l_iobject1_id1_tab(l_items_counter));
15324: END IF;
15325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15326: END IF;
15327: l_iobject1_id1_tab(l_items_counter) := l_new_object1_id1;
15328: END IF;
15329: END IF;
15402: END IF;
15403:
15404: EXCEPTION WHEN OTHERS THEN
15405:
15406: x_return_status := OKL_API.G_RET_STS_ERROR;
15407: /*OKL_API.set_message(p_app_name => 'OKL',
15408: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15409: p_token1 => 'ASSET_NUMBER',
15410: p_token1_value => 'insert_okc_k_items');*/
15403:
15404: EXCEPTION WHEN OTHERS THEN
15405:
15406: x_return_status := OKL_API.G_RET_STS_ERROR;
15407: /*OKL_API.set_message(p_app_name => 'OKL',
15408: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15409: p_token1 => 'ASSET_NUMBER',
15410: p_token1_value => 'insert_okc_k_items');*/
15411: /* DEBUG */
15566: END LOOP;
15567:
15568: EXCEPTION WHEN OTHERS THEN
15569:
15570: x_return_status := OKL_API.G_RET_STS_ERROR;
15571: /*OKL_API.set_message(p_app_name => 'OKL',
15572: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15573: p_token1 => 'ASSET_NUMBER',
15574: p_token1_value => 'sort_trx_id_mapping_tab');*/
15567:
15568: EXCEPTION WHEN OTHERS THEN
15569:
15570: x_return_status := OKL_API.G_RET_STS_ERROR;
15571: /*OKL_API.set_message(p_app_name => 'OKL',
15572: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15573: p_token1 => 'ASSET_NUMBER',
15574: p_token1_value => 'sort_trx_id_mapping_tab');*/
15575: /* DEBUG */
15733: END LOOP;
15734:
15735: EXCEPTION WHEN OTHERS THEN
15736:
15737: x_return_status := OKL_API.G_RET_STS_ERROR;
15738: /*OKL_API.set_message(p_app_name => 'OKL',
15739: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15740: p_token1 => 'ASSET_NUMBER',
15741: p_token1_value => 'sort_trx_id_mapping_tab2');*/
15734:
15735: EXCEPTION WHEN OTHERS THEN
15736:
15737: x_return_status := OKL_API.G_RET_STS_ERROR;
15738: /*OKL_API.set_message(p_app_name => 'OKL',
15739: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15740: p_token1 => 'ASSET_NUMBER',
15741: p_token1_value => 'sort_trx_id_mapping_tab2');*/
15742: /* DEBUG */
15899: END LOOP;
15900:
15901: EXCEPTION WHEN OTHERS THEN
15902:
15903: x_return_status := OKL_API.G_RET_STS_ERROR;
15904: /*OKL_API.set_message(p_app_name => 'OKL',
15905: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15906: p_token1 => 'ASSET_NUMBER',
15907: p_token1_value => 'sort_txl_id_mapping_tab');*/
15900:
15901: EXCEPTION WHEN OTHERS THEN
15902:
15903: x_return_status := OKL_API.G_RET_STS_ERROR;
15904: /*OKL_API.set_message(p_app_name => 'OKL',
15905: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15906: p_token1 => 'ASSET_NUMBER',
15907: p_token1_value => 'sort_txl_id_mapping_tab');*/
15908: /* DEBUG */
16023: END IF;
16024:
16025: EXCEPTION WHEN OTHERS THEN
16026:
16027: x_return_status := OKL_API.G_RET_STS_ERROR;
16028: /*OKL_API.set_message(p_app_name => 'OKL',
16029: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16030: p_token1 => 'ASSET_NUMBER',
16031: p_token1_value => 'insert_okl_txl_assets_tl');*/
16024:
16025: EXCEPTION WHEN OTHERS THEN
16026:
16027: x_return_status := OKL_API.G_RET_STS_ERROR;
16028: /*OKL_API.set_message(p_app_name => 'OKL',
16029: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16030: p_token1 => 'ASSET_NUMBER',
16031: p_token1_value => 'insert_okl_txl_assets_tl');*/
16032: /* DEBUG */
16135: END IF;
16136: END IF;
16137: EXCEPTION WHEN OTHERS THEN
16138:
16139: x_return_status := OKL_API.G_RET_STS_ERROR;
16140: /*OKL_API.set_message(p_app_name => 'OKL',
16141: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16142: p_token1 => 'ASSET_NUMBER',
16143: p_token1_value => 'insert_okl_txd_assets_tl');*/
16136: END IF;
16137: EXCEPTION WHEN OTHERS THEN
16138:
16139: x_return_status := OKL_API.G_RET_STS_ERROR;
16140: /*OKL_API.set_message(p_app_name => 'OKL',
16141: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16142: p_token1 => 'ASSET_NUMBER',
16143: p_token1_value => 'insert_okl_txd_assets_tl');*/
16144: /* DEBUG */
16377: END LOOP;
16378: END IF;
16379: EXCEPTION WHEN OTHERS THEN
16380:
16381: x_return_status := OKL_API.G_RET_STS_ERROR;
16382: /*OKL_API.set_message(p_app_name => 'OKL',
16383: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16384: p_token1 => 'ASSET_NUMBER',
16385: p_token1_value => 'insert_okl_txd_assets_b');*/
16378: END IF;
16379: EXCEPTION WHEN OTHERS THEN
16380:
16381: x_return_status := OKL_API.G_RET_STS_ERROR;
16382: /*OKL_API.set_message(p_app_name => 'OKL',
16383: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16384: p_token1 => 'ASSET_NUMBER',
16385: p_token1_value => 'insert_okl_txd_assets_b');*/
16386: /* DEBUG */
16576: END LOOP;
16577:
16578: EXCEPTION WHEN OTHERS THEN
16579:
16580: x_return_status := OKL_API.G_RET_STS_ERROR;
16581: /*OKL_API.set_message(p_app_name => 'OKL',
16582: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16583: p_token1 => 'ASSET_NUMBER',
16584: p_token1_value => 'sort_dbid_mapping_tab');*/
16577:
16578: EXCEPTION WHEN OTHERS THEN
16579:
16580: x_return_status := OKL_API.G_RET_STS_ERROR;
16581: /*OKL_API.set_message(p_app_name => 'OKL',
16582: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16583: p_token1 => 'ASSET_NUMBER',
16584: p_token1_value => 'sort_dbid_mapping_tab');*/
16585: /* DEBUG */
16775: IF (l_new_tas_id = -1) THEN
16776: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
16777: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_tbtas_id_tab(l_txl_assets_b_counter));
16778: END IF;
16779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16780: END IF;
16781: l_tbtas_id_tab(l_txl_assets_b_counter) := l_new_tas_id;
16782:
16783: l_tbilo_id_tab(l_txl_assets_b_counter) := l_tbilo_id_tab2(i);
16791: IF (l_new_kle_id = -1) THEN
16792: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
16793: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_tbkle_id_tab(l_txl_assets_b_counter));
16794: END IF;
16795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16796: END IF;
16797: l_tbkle_id_tab(l_txl_assets_b_counter) := l_new_kle_id;
16798: END IF;
16799:
16979: END IF;
16980:
16981: EXCEPTION WHEN OTHERS THEN
16982:
16983: x_return_status := OKL_API.G_RET_STS_ERROR;
16984: /*OKL_API.set_message(p_app_name => 'OKL',
16985: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16986: p_token1 => 'ASSET_NUMBER',
16987: p_token1_value => 'insert_okl_txl_assets_b');*/
16980:
16981: EXCEPTION WHEN OTHERS THEN
16982:
16983: x_return_status := OKL_API.G_RET_STS_ERROR;
16984: /*OKL_API.set_message(p_app_name => 'OKL',
16985: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16986: p_token1 => 'ASSET_NUMBER',
16987: p_token1_value => 'insert_okl_txl_assets_b');*/
16988: /* DEBUG */
17246:
17247: END IF;
17248: EXCEPTION WHEN OTHERS THEN
17249:
17250: x_return_status := OKL_API.G_RET_STS_ERROR;
17251: /*OKL_API.set_message(p_app_name => 'OKL',
17252: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
17253: p_token1 => 'ASSET_NUMBER',
17254: p_token1_value => 'insert_okl_trx_assets');*/
17247: END IF;
17248: EXCEPTION WHEN OTHERS THEN
17249:
17250: x_return_status := OKL_API.G_RET_STS_ERROR;
17251: /*OKL_API.set_message(p_app_name => 'OKL',
17252: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
17253: p_token1 => 'ASSET_NUMBER',
17254: p_token1_value => 'insert_okl_trx_assets');*/
17255: /* DEBUG */
17465:
17466: END IF;
17467: EXCEPTION WHEN OTHERS THEN
17468:
17469: x_return_status := OKL_API.G_RET_STS_ERROR;
17470: /*OKL_API.set_message(p_app_name => 'OKL',
17471: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
17472: p_token1 => 'ASSET_NUMBER',
17473: p_token1_value => 'insert_okl_trx_assets_2');*/
17466: END IF;
17467: EXCEPTION WHEN OTHERS THEN
17468:
17469: x_return_status := OKL_API.G_RET_STS_ERROR;
17470: /*OKL_API.set_message(p_app_name => 'OKL',
17471: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
17472: p_token1 => 'ASSET_NUMBER',
17473: p_token1_value => 'insert_okl_trx_assets_2');*/
17474: /* DEBUG */
17515: -- okl_copy_asset_pvt.generate_instance_number_ib instead
17516:
17517: FUNCTION generate_instance_number_ib(x_instance_number_ib OUT NOCOPY OKL_TXL_ITM_INSTS_V.INSTANCE_NUMBER_IB%TYPE)
17518: RETURN VARCHAR2 IS
17519: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
17520: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
17521: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
17522: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
17523: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17516:
17517: FUNCTION generate_instance_number_ib(x_instance_number_ib OUT NOCOPY OKL_TXL_ITM_INSTS_V.INSTANCE_NUMBER_IB%TYPE)
17518: RETURN VARCHAR2 IS
17519: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
17520: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
17521: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
17522: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
17523: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17524: -- cursor to get sequence number for asset number
17529: OPEN c_instance_no_ib;
17530: FETCH c_instance_no_ib INTO x_instance_number_ib;
17531: IF (c_instance_no_ib%NOTFOUND) THEN
17532: x_return_status := OKC_API.G_RET_STS_ERROR;
17533: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
17534: p_msg_name => g_unexpected_error,
17535: p_token1 => g_sqlcode_token,
17536: p_token1_value => SQLCODE,
17537: p_token2 => g_sqlerrm_token,
17544: IF c_instance_no_ib%ISOPEN THEN
17545: CLOSE c_instance_no_ib;
17546: END IF;
17547: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
17548: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
17549: p_msg_name => g_unexpected_error,
17550: p_token1 => g_sqlcode_token,
17551: p_token1_value => SQLCODE,
17552: p_token2 => g_sqlerrm_token,
17689: IF (l_new_kle_id = -1) THEN
17690: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
17691: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_tikle_id_tab(l_txl_itm_insts_counter));
17692: END IF;
17693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17694: END IF;
17695: l_tikle_id_tab(l_txl_itm_insts_counter) := l_new_kle_id;
17696:
17697: l_tital_type_tab(l_txl_itm_insts_counter) := l_tital_type_tab2(i);
17703: --l_new_asset_name := find_aid_mapping_id(l_tiinstance_number_ib_tab(l_txl_itm_insts_counter));
17704: -- To do: expose okl_copy_asset_pvt.generate_instance_number_ib
17705: -- Use the package call instead
17706: l_return_status := generate_instance_number_ib(l_generated_instance_number_ib);
17707: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
17708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17709: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
17710: RAISE OKL_API.G_EXCEPTION_ERROR;
17711: END IF;
17704: -- To do: expose okl_copy_asset_pvt.generate_instance_number_ib
17705: -- Use the package call instead
17706: l_return_status := generate_instance_number_ib(l_generated_instance_number_ib);
17707: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
17708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17709: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
17710: RAISE OKL_API.G_EXCEPTION_ERROR;
17711: END IF;
17712:
17705: -- Use the package call instead
17706: l_return_status := generate_instance_number_ib(l_generated_instance_number_ib);
17707: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
17708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17709: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
17710: RAISE OKL_API.G_EXCEPTION_ERROR;
17711: END IF;
17712:
17713: l_tiinstance_number_ib_tab(l_txl_itm_insts_counter) := l_generated_instance_number_ib;
17706: l_return_status := generate_instance_number_ib(l_generated_instance_number_ib);
17707: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
17708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17709: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
17710: RAISE OKL_API.G_EXCEPTION_ERROR;
17711: END IF;
17712:
17713: l_tiinstance_number_ib_tab(l_txl_itm_insts_counter) := l_generated_instance_number_ib;
17714:
17748: -- Change dnz_cle_id ??? AKP
17749: l_new_dnz_cle_id := find_mapping_id(l_tidnz_cle_id_tab(l_txl_itm_insts_counter));
17750: /*if (l_new_dnz_cle_id = -1) then
17751: print('ERROR : Mapping id not found for ' || l_tidnz_cle_id_tab(l_txl_itm_insts_counter));
17752: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17753: end if;*/
17754: l_tidnz_cle_id_tab(l_txl_itm_insts_counter) := l_new_dnz_cle_id;
17755:
17756: l_tiinstance_id_tab(l_txl_itm_insts_counter) := l_tiinstance_id_tab2(i);
17803: );
17804: END IF;
17805: EXCEPTION WHEN OTHERS THEN
17806:
17807: x_return_status := OKL_API.G_RET_STS_ERROR;
17808: /*OKL_API.set_message(p_app_name => 'OKL',
17809: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
17810: p_token1 => 'ASSET_NUMBER',
17811: p_token1_value => 'insert_okl_txl_itm_insts');*/
17804: END IF;
17805: EXCEPTION WHEN OTHERS THEN
17806:
17807: x_return_status := OKL_API.G_RET_STS_ERROR;
17808: /*OKL_API.set_message(p_app_name => 'OKL',
17809: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
17810: p_token1 => 'ASSET_NUMBER',
17811: p_token1_value => 'insert_okl_txl_itm_insts');*/
17812: /* DEBUG */
17911: p_token3 => 'CONVERSION_TYPE',
17912: p_token3_value => x_currency_conversion_type,
17913: p_token4 => 'CONVERSION_DATE',
17914: p_token4_value => TO_CHAR(x_currency_conversion_date,'DD-MON-YYYY'));
17915: RAISE OKL_API.G_EXCEPTION_ERROR;
17916: END IF;
17917: x_original_cost := l_converted_cost;
17918: x_depreciable_cost := l_converted_cost;
17919: END IF;
18021: p_token3 => 'CONVERSION_TYPE',
18022: p_token3_value => x_currency_conversion_type,
18023: p_token4 => 'CONVERSION_DATE',
18024: p_token4_value => TO_CHAR(x_currency_conversion_date,'DD-MON-YYYY'));
18025: RAISE OKL_API.G_EXCEPTION_ERROR;
18026: END IF;
18027: x_salvage_value := l_salvage_value;
18028: --x_percent_salvage_value := null;
18029: ELSE
18448: IF (l_new_id = -1) THEN
18449: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18450: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_ID_local_tab(l_okl_trx_counter3));
18451: END IF;
18452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18453: END IF;
18454: l_ID_local_tab(l_okl_trx_counter3) := l_new_id;
18455:
18456: l_okl_trx_counter3 := l_okl_trx_counter3 + 1;
18507: IF (c_location_id%NOTFOUND) THEN
18508: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18509: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Location id not found for ' || l_asset_id_tab(i) || ' ' || l_BOOK_TYPE_CODE_tab(i));
18510: END IF;
18511: x_return_status := OKL_API.G_RET_STS_ERROR;
18512: CLOSE c_location_id;
18513: RAISE OKL_API.G_EXCEPTION_ERROR;
18514: END IF;
18515: CLOSE c_location_id;
18509: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Location id not found for ' || l_asset_id_tab(i) || ' ' || l_BOOK_TYPE_CODE_tab(i));
18510: END IF;
18511: x_return_status := OKL_API.G_RET_STS_ERROR;
18512: CLOSE c_location_id;
18513: RAISE OKL_API.G_EXCEPTION_ERROR;
18514: END IF;
18515: CLOSE c_location_id;
18516: l_tb2fa_location_id_tab(l_trx_assets_counter4) := l_location_id;
18517:
18533: IF (l_tmp_okl_42_rec.year_built = OKC_API.G_MISS_NUM ) THEN
18534: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18535: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_id_local_tab(i));
18536: END IF;
18537: RAISE OKL_API.G_EXCEPTION_ERROR;
18538: END IF;
18539:
18540: l_tb2year_manufactured_tab(l_trx_assets_counter4) := l_tmp_okl_42_rec.year_built;
18541: -- Todo AKP
18606: IF (l_new_tal_id = -1) THEN
18607: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18608: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR!!!!Mapping tal_id not found');
18609: END IF;
18610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18611: END IF;
18612: l_db2tal_id_tab(l_txd_assets_b_counter4) := l_new_tal_id;
18613: --print('l_new_tal_id='|| l_new_tal_id);
18614: l_db2asset_number_tab(l_txd_assets_b_counter4) := l_ASSET_NUMBER_tab(i);
18630: IF (l_new_line_number = -1) THEN
18631: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18632: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR!!!!Mapping line_number not found');
18633: END IF;
18634: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18635: END IF;
18636: l_db2line_detail_number_tab(l_txd_assets_b_counter4) := l_new_line_number;
18637:
18638: l_db2quantity_tab(l_txd_assets_b_counter4) := l_CURRENT_UNITS_tab(i);
18686: IF (l_lse_id_tab(i) = 42) THEN
18687: --print('Found 42: l_id_tab(' ||i || ')=' || l_id_tab(i) ||' l_name_tab('||i||')=' || l_name_tab(i));
18688: l_tmp_itm_rec := find_okc_k_items_rec(l_id_tab(i));
18689: --print('l_tmp_itm_rec.id object1_id1 object1_id2= ' || l_tmp_itm_rec.id || ':' || l_tmp_itm_rec.object1_id1 || ':' || l_tmp_itm_rec.object1_id2);
18690: IF (l_tmp_itm_rec.number_of_items = OKL_API.G_MISS_NUM ) THEN
18691: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okc_k_items rec not found for ' || l_id_tab(i));
18693: END IF;
18694: RAISE OKL_API.G_EXCEPTION_ERROR;
18690: IF (l_tmp_itm_rec.number_of_items = OKL_API.G_MISS_NUM ) THEN
18691: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okc_k_items rec not found for ' || l_id_tab(i));
18693: END IF;
18694: RAISE OKL_API.G_EXCEPTION_ERROR;
18695: END IF;
18696: IF ((l_tmp_itm_rec.object1_id1 IS NULL) AND
18697: (l_tmp_itm_rec.object1_id2 IS NULL)) THEN
18698: -- Populate okl_trx_assets
18728: IF (l_cle_id = -1) THEN
18729: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18730: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping cle_id not found for id ' || l_tb2kle_id_tab(l_trx_assets_counter4));
18731: END IF;
18732: RAISE OKL_API.G_EXCEPTION_ERROR;
18733: END IF;
18734:
18735: l_asset_name_old := find_bid_mapping_id(l_cle_id, 33);
18736: IF (l_asset_name_old = '-1') THEN
18736: IF (l_asset_name_old = '-1') THEN
18737: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18738: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping bid_mapping not found for ' || l_cle_id);
18739: END IF;
18740: RAISE OKL_API.G_EXCEPTION_ERROR;
18741: END IF;
18742: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18743: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_asset_name_old=' || l_asset_name_old);
18744: END IF;
18763:
18764: -- Todo AKP
18765: l_tmp_okl_33_rec := find_okl_k_lines_rec(l_cle_id);
18766: --print('Upto 8...l_tmp_okl_33_rec.oec=' || l_tmp_okl_33_rec.oec);
18767: IF (l_tmp_okl_33_rec.oec = OKL_API.G_MISS_NUM ) THEN
18768: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18769: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_cle_id );
18770: END IF;
18771: RAISE OKL_API.G_EXCEPTION_ERROR;
18767: IF (l_tmp_okl_33_rec.oec = OKL_API.G_MISS_NUM ) THEN
18768: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18769: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_cle_id );
18770: END IF;
18771: RAISE OKL_API.G_EXCEPTION_ERROR;
18772: END IF;
18773:
18774: --print('Calling find_cle_lse_mapping with ' || l_cle_id || ':34');
18775: l_new_34_id := find_cle_lse_mapping_id(l_cle_id, 34);
18777: IF (l_new_34_id = -1) THEN
18778: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18779: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping cle_lse_mapping not found for ' || l_cle_id || ':33');
18780: END IF;
18781: RAISE OKL_API.G_EXCEPTION_ERROR;
18782: END IF;
18783: l_tmp_okc_34_rec := find_okc_k_items_rec(l_new_34_id);
18784: --print('Upto 10... l_tmp_okc_34_rec.number_of_items='|| l_tmp_okc_34_rec.number_of_items);
18785: IF (l_tmp_okc_34_rec.number_of_items = OKL_API.G_MISS_NUM) THEN
18781: RAISE OKL_API.G_EXCEPTION_ERROR;
18782: END IF;
18783: l_tmp_okc_34_rec := find_okc_k_items_rec(l_new_34_id);
18784: --print('Upto 10... l_tmp_okc_34_rec.number_of_items='|| l_tmp_okc_34_rec.number_of_items);
18785: IF (l_tmp_okc_34_rec.number_of_items = OKL_API.G_MISS_NUM) THEN
18786: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18787: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_new_34_id );
18788: END IF;
18789: RAISE OKL_API.G_EXCEPTION_ERROR;
18785: IF (l_tmp_okc_34_rec.number_of_items = OKL_API.G_MISS_NUM) THEN
18786: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18787: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_new_34_id );
18788: END IF;
18789: RAISE OKL_API.G_EXCEPTION_ERROR;
18790: END IF;
18791:
18792: --print('Upto 11...');
18793: l_tb2original_cost_tab(l_trx_assets_counter4) := l_tmp_okl_33_rec.oec;
18804: --print('Upto 12...');
18805:
18806: l_tmp_okl_42_rec := find_okl_k_lines_rec(l_id_tab(i));
18807: --print('Upto 13 l_tmp_okl_42_rec.year_built=' || l_tmp_okl_42_rec.year_built);
18808: IF (l_tmp_okl_42_rec.year_built = OKL_API.G_MISS_NUM) THEN
18809: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18810: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_id_tab(i));
18811: END IF;
18812: RAISE OKL_API.G_EXCEPTION_ERROR;
18808: IF (l_tmp_okl_42_rec.year_built = OKL_API.G_MISS_NUM) THEN
18809: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18810: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_id_tab(i));
18811: END IF;
18812: RAISE OKL_API.G_EXCEPTION_ERROR;
18813: END IF;
18814:
18815: l_tb2year_manufactured_tab(l_trx_assets_counter4) := l_tmp_okl_42_rec.year_built;
18816:
18870: -- get the contract number
18871: OPEN contract_num_csr(p_old_id);
18872: FETCH contract_num_csr INTO l_cntrct_number;
18873: CLOSE contract_num_csr;
18874: Okl_Api.set_message(p_app_name => g_app_name,
18875: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
18876: p_token1 => 'CONTRACT_NUMBER',
18877: p_token1_value => l_cntrct_number);
18878: RAISE OKL_API.G_EXCEPTION_ERROR;
18874: Okl_Api.set_message(p_app_name => g_app_name,
18875: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
18876: p_token1 => 'CONTRACT_NUMBER',
18877: p_token1_value => l_cntrct_number);
18878: RAISE OKL_API.G_EXCEPTION_ERROR;
18879: END IF;
18880: forall i IN l_t3id_tab.first..l_t3id_tab.last
18881: INSERT INTO okl_trx_assets (
18882: id, tas_type, object_version_number,
19004:
19005: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19006: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
19007: END IF;
19008: x_return_status := OKL_API.G_RET_STS_ERROR;
19009: /* DEBUG */
19010: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19011: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing okl_trx_assets:l_t3id_tab.count=' || l_t3id_tab.COUNT || ' ...');
19012: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_try_id=' || l_try_id);
19175: IF (l_new_rgp_id = -1) THEN
19176: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19177: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_grgp_id_tab(l_rg_party_roles_counter));
19178: END IF;
19179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19180: END IF;
19181: l_grgp_id_tab(l_rg_party_roles_counter) := l_new_rgp_id;
19182:
19183: l_grrd_id_tab(l_rg_party_roles_counter) := l_grrd_id_tab2(i);
19223: );
19224: END IF;
19225: EXCEPTION WHEN OTHERS THEN
19226:
19227: x_return_status := OKL_API.G_RET_STS_ERROR;
19228: /*OKL_API.set_message(p_app_name => 'OKL',
19229: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19230: p_token1 => 'ASSET_NUMBER',
19231: p_token1_value => 'okc_rg_party_roles');*/
19224: END IF;
19225: EXCEPTION WHEN OTHERS THEN
19226:
19227: x_return_status := OKL_API.G_RET_STS_ERROR;
19228: /*OKL_API.set_message(p_app_name => 'OKL',
19229: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19230: p_token1 => 'ASSET_NUMBER',
19231: p_token1_value => 'okc_rg_party_roles');*/
19232: /* DEBUG */
19412: IF (l_new_cle_id = -1) THEN
19413: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19414: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_oscle_id_tab(l_supp_invoice_dtls_counter));
19415: END IF;
19416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19417: END IF;
19418: l_oscle_id_tab(l_supp_invoice_dtls_counter) := l_new_cle_id;
19419: END IF;
19420:
19491: END IF;
19492:
19493: EXCEPTION WHEN OTHERS THEN
19494:
19495: x_return_status := OKL_API.G_RET_STS_ERROR;
19496: /*OKL_API.set_message(p_app_name => 'OKL',
19497: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19498: p_token1 => 'ASSET_NUMBER',
19499: p_token1_value => 'okl_supp_invoice_dtls');*/
19492:
19493: EXCEPTION WHEN OTHERS THEN
19494:
19495: x_return_status := OKL_API.G_RET_STS_ERROR;
19496: /*OKL_API.set_message(p_app_name => 'OKL',
19497: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19498: p_token1 => 'ASSET_NUMBER',
19499: p_token1_value => 'okl_supp_invoice_dtls');*/
19500: /* DEBUG */
19581: l_address VARCHAR2(80);
19582:
19583: BEGIN
19584: --Logic
19585: IF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_PARTY_SITES','HZ_LOCATIONS') THEN
19586: --Raise Error
19587: OKL_API.Set_Message(p_app_name => 'OKL_COPY_CONTRACT_PVT',
19588: p_msg_name => 'OKL_INVALID_INSTALL_LOC_TYPE',
19589: p_token1 => 'LOCATION_TYPE',
19583: BEGIN
19584: --Logic
19585: IF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_PARTY_SITES','HZ_LOCATIONS') THEN
19586: --Raise Error
19587: OKL_API.Set_Message(p_app_name => 'OKL_COPY_CONTRACT_PVT',
19588: p_msg_name => 'OKL_INVALID_INSTALL_LOC_TYPE',
19589: p_token1 => 'LOCATION_TYPE',
19590: p_token1_value => p_install_location_type_code,
19591: p_token2 => 'LOCATION_TYPE1',
19591: p_token2 => 'LOCATION_TYPE1',
19592: p_token2_value => 'HZ_PARTY_SITES',
19593: p_token3 => 'LOCATION_TYPE2',
19594: p_token3_value => 'HZ_LOCATIONS');
19595: x_return_status := OKL_API.G_RET_STS_ERROR;
19596: RAISE OKL_API.G_EXCEPTION_ERROR;
19597:
19598: ELSIF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
19599:
19592: p_token2_value => 'HZ_PARTY_SITES',
19593: p_token3 => 'LOCATION_TYPE2',
19594: p_token3_value => 'HZ_LOCATIONS');
19595: x_return_status := OKL_API.G_RET_STS_ERROR;
19596: RAISE OKL_API.G_EXCEPTION_ERROR;
19597:
19598: ELSIF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
19599:
19600: OPEN c_get_iti_object_id1(p_install_location_id);
19594: p_token3_value => 'HZ_LOCATIONS');
19595: x_return_status := OKL_API.G_RET_STS_ERROR;
19596: RAISE OKL_API.G_EXCEPTION_ERROR;
19597:
19598: ELSIF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
19599:
19600: OPEN c_get_iti_object_id1(p_install_location_id);
19601: FETCH c_get_iti_object_id1 INTO x_OBJECT_ID1_NEW;
19602: IF c_get_iti_object_id1%NOTFOUND THEN
19603: OPEN l_address_csr(pty_site_id => p_install_location_id);
19604: FETCH l_address_csr INTO l_address;
19605: CLOSE l_address_csr;
19606: --Raise Error : not defined as install_at
19607: OKL_API.Set_Message
19608: (p_app_name => 'OKL_COPY_CONTRACT_PVT',
19609: p_msg_name => 'OKL_INSTALL_LOC_MISSING_USAGE',
19610: p_token1 => 'USAGE_TYPE',
19611: p_token1_value => 'INSTALL_AT',
19612: p_token2 => 'ADDRESS',
19613: p_token2_value => l_address,
19614: p_token3 => 'INSTANCE_NUMBER',
19615: p_token3_value => p_instance_number);
19616: x_return_status := OKL_API.G_RET_STS_ERROR;
19617: RAISE OKL_API.G_EXCEPTION_ERROR;
19618: END IF;
19619: CLOSE c_get_iti_object_id1;
19620:
19613: p_token2_value => l_address,
19614: p_token3 => 'INSTANCE_NUMBER',
19615: p_token3_value => p_instance_number);
19616: x_return_status := OKL_API.G_RET_STS_ERROR;
19617: RAISE OKL_API.G_EXCEPTION_ERROR;
19618: END IF;
19619: CLOSE c_get_iti_object_id1;
19620:
19621: ELSIF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
19617: RAISE OKL_API.G_EXCEPTION_ERROR;
19618: END IF;
19619: CLOSE c_get_iti_object_id1;
19620:
19621: ELSIF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
19622:
19623: OPEN l_site_use_csr(p_install_location_id);
19624: FETCH l_site_use_csr INTO l_site_use_rec;
19625: IF l_site_use_csr%NOTFOUND THEN
19626: OPEN l_address_csr2(loc_id => p_install_location_id);
19627: FETCH l_address_csr2 INTO l_address;
19628: CLOSE l_address_csr2;
19629: --Raise Error : not defined as install_at
19630: OKL_API.Set_Message(p_app_name => 'OKL_COPY_CONTRACT_PVT2',
19631: p_msg_name => 'OKL_INSTALL_LOC_MISSING_USAGE',
19632: p_token1 => 'USAGE_TYPE',
19633: p_token1_value => 'INSTALL_AT',
19634: p_token2 => 'ADDRESS',
19634: p_token2 => 'ADDRESS',
19635: p_token2_value => l_address,
19636: p_token3 => 'INSTANCE_NUMBER',
19637: p_token3_value => p_instance_number);
19638: x_return_status := OKL_API.G_RET_STS_ERROR;
19639: RAISE OKL_API.G_EXCEPTION_ERROR;
19640:
19641: END IF;
19642: x_object_id1_new := l_site_use_rec.party_site_use_id;
19635: p_token2_value => l_address,
19636: p_token3 => 'INSTANCE_NUMBER',
19637: p_token3_value => p_instance_number);
19638: x_return_status := OKL_API.G_RET_STS_ERROR;
19639: RAISE OKL_API.G_EXCEPTION_ERROR;
19640:
19641: END IF;
19642: x_object_id1_new := l_site_use_rec.party_site_use_id;
19643: CLOSE l_site_use_csr;
19792: IF (l_new_kle_id = -1) THEN
19793: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19794: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_ti2kle_id_tab(l_txl_itm_insts_counter2));
19795: END IF;
19796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19797: END IF;
19798: l_ti2kle_id_tab(l_txl_itm_insts_counter2) := l_new_kle_id;
19799:
19800: l_new_cle_id := find_mapping_id(l_cle_id_tab3(i));
19828: IF (l_new_id = -1) THEN
19829: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19830: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: OLD_LINE_ID to NEW_LINE_ID mapping not found');
19831: END IF;
19832: RAISE OKL_API.G_EXCEPTION_ERROR;
19833: END IF;
19834: l_local_cle_id := find_cid_mapping_id(l_new_id);
19835: --print('l_local_cle_id=' || l_local_cle_id);
19836: IF (l_local_cle_id = -1) THEN
19836: IF (l_local_cle_id = -1) THEN
19837: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19838: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: ID to CLE_ID mapping not found');
19839: END IF;
19840: RAISE OKL_API.G_EXCEPTION_ERROR;
19841: END IF;
19842: l_local_cle_id2 := find_cid_mapping_id(l_local_cle_id);
19843: --print('l_local_cle_id2=' || l_local_cle_id2);
19844: IF (l_local_cle_id2 = -1) THEN
19844: IF (l_local_cle_id2 = -1) THEN
19845: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19846: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: ID to CLE_ID mapping not found');
19847: END IF;
19848: RAISE OKL_API.G_EXCEPTION_ERROR;
19849: END IF;
19850:
19851: --l_new_dnz_cle_id := find_mapping_id(l_dnz_cle_id);
19852: l_ti2dnz_cle_id_tab(l_txl_itm_insts_counter2) := l_local_cle_id2;
19920: END IF;
19921:
19922: EXCEPTION WHEN OTHERS THEN
19923:
19924: x_return_status := OKL_API.G_RET_STS_ERROR;
19925: /*OKL_API.set_message(p_app_name => 'OKL',
19926: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19927: p_token1 => 'ASSET_NUMBER',
19928: p_token1_value => 'insert_okl_txl_itm_instst2');*/
19921:
19922: EXCEPTION WHEN OTHERS THEN
19923:
19924: x_return_status := OKL_API.G_RET_STS_ERROR;
19925: /*OKL_API.set_message(p_app_name => 'OKL',
19926: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19927: p_token1 => 'ASSET_NUMBER',
19928: p_token1_value => 'insert_okl_txl_itm_instst2');*/
19929: /* DEBUG */
20114: END LOOP;
20115:
20116: EXCEPTION WHEN OTHERS THEN
20117:
20118: x_return_status := OKL_API.G_RET_STS_ERROR;
20119: /*OKL_API.set_message(p_app_name => 'OKL',
20120: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
20121: p_token1 => 'ASSET_NUMBER',
20122: p_token1_value => 'sort_sid_mapping_tab');*/
20115:
20116: EXCEPTION WHEN OTHERS THEN
20117:
20118: x_return_status := OKL_API.G_RET_STS_ERROR;
20119: /*OKL_API.set_message(p_app_name => 'OKL',
20120: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
20121: p_token1 => 'ASSET_NUMBER',
20122: p_token1_value => 'sort_sid_mapping_tab');*/
20123: /* DEBUG */
20162: --END IF;
20163:
20164: EXCEPTION
20165: WHEN OTHERS THEN
20166: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20168: END raise_business_event_header;
20169:
20170: PROCEDURE raise_business_event(
20163:
20164: EXCEPTION
20165: WHEN OTHERS THEN
20166: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20168: END raise_business_event_header;
20169:
20170: PROCEDURE raise_business_event(
20171: p_api_version IN NUMBER,
20202: p_parameters => l_parameter_list);
20203:
20204: EXCEPTION
20205: WHEN OTHERS THEN
20206: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20208: END raise_business_event;
20209:
20210: PROCEDURE raise_business_event_subsidy(p_api_version IN NUMBER,
20203:
20204: EXCEPTION
20205: WHEN OTHERS THEN
20206: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20208: END raise_business_event;
20209:
20210: PROCEDURE raise_business_event_subsidy(p_api_version IN NUMBER,
20211: p_init_msg_list IN VARCHAR2,
20220: ) IS
20221: l_parameter_list wf_parameter_list_t;
20222: l_contract_process VARCHAR2(20);
20223: BEGIN
20224: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20225:
20226: -- wrapper API to get contract process. this API determines in which status the
20227: -- contract in question is.
20228: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20238: p_event_name => p_event_name,
20239: p_parameters => l_parameter_list);
20240: EXCEPTION
20241: WHEN OTHERS THEN
20242: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20244: END raise_business_event_subsidy;
20245:
20246: PROCEDURE raise_business_event_itm(
20239: p_parameters => l_parameter_list);
20240: EXCEPTION
20241: WHEN OTHERS THEN
20242: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20244: END raise_business_event_subsidy;
20245:
20246: PROCEDURE raise_business_event_itm(
20247: p_api_version IN NUMBER
20269: p_event_name => p_event_name,
20270: p_parameters => l_parameter_list);
20271: EXCEPTION
20272: WHEN OTHERS THEN
20273: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20275: END raise_business_event_itm;
20276:
20277: PROCEDURE raise_business_event_dep(p_api_version IN NUMBER,
20270: p_parameters => l_parameter_list);
20271: EXCEPTION
20272: WHEN OTHERS THEN
20273: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20275: END raise_business_event_itm;
20276:
20277: PROCEDURE raise_business_event_dep(p_api_version IN NUMBER,
20278: p_init_msg_list IN VARCHAR2,
20286: x_msg_data OUT NOCOPY VARCHAR2
20287: ) IS
20288: l_parameter_list wf_parameter_list_t;
20289: BEGIN
20290: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20291:
20292: -- wrapper API to get contract process. this API determines in which status the
20293: -- contract in question is.
20294: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20305: p_parameters => l_parameter_list);
20306:
20307: EXCEPTION
20308: WHEN OTHERS THEN
20309: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20311: END raise_business_event_dep;
20312:
20313:
20306:
20307: EXCEPTION
20308: WHEN OTHERS THEN
20309: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20311: END raise_business_event_dep;
20312:
20313:
20314: PROCEDURE raise_business_event_txd(p_api_version IN NUMBER,
20323: ) IS
20324: l_parameter_list wf_parameter_list_t;
20325: --l_contract_process VARCHAR2(20);
20326: BEGIN
20327: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20328:
20329: -- wrapper API to get contract process. this API determines in which status the
20330: -- contract in question is.
20331: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20341: p_event_name => p_event_name,
20342: p_parameters => l_parameter_list);
20343: EXCEPTION
20344: WHEN OTHERS THEN
20345: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20347: END raise_business_event_txd;
20348:
20349: PROCEDURE raise_business_event_itm
20342: p_parameters => l_parameter_list);
20343: EXCEPTION
20344: WHEN OTHERS THEN
20345: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20347: END raise_business_event_txd;
20348:
20349: PROCEDURE raise_business_event_itm
20350: (p_api_version IN NUMBER,
20359: x_msg_data OUT NOCOPY VARCHAR2
20360: ) IS
20361: l_parameter_list wf_parameter_list_t;
20362: BEGIN
20363: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20364:
20365: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20366: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20367: wf_event.AddParameterToList(G_WF_ITM_SERIAL_NUM, p_ser_num, l_parameter_list);
20375: p_event_name => p_event_name,
20376: p_parameters => l_parameter_list);
20377: EXCEPTION
20378: WHEN OTHERS THEN
20379: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20381: END raise_business_event_itm;
20382:
20383: PROCEDURE raise_business_event_supp
20376: p_parameters => l_parameter_list);
20377: EXCEPTION
20378: WHEN OTHERS THEN
20379: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20381: END raise_business_event_itm;
20382:
20383: PROCEDURE raise_business_event_supp
20384: (p_api_version IN NUMBER,
20393: x_msg_data OUT NOCOPY VARCHAR2
20394: ) IS
20395: l_parameter_list wf_parameter_list_t;
20396: BEGIN
20397: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20398:
20399: -- wrapper API to get contract process. this API determines in which status the
20400: -- contract in question is.
20401: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20412: p_event_name => p_event_name,
20413: p_parameters => l_parameter_list);
20414: EXCEPTION
20415: WHEN OTHERS THEN
20416: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20418: END raise_business_event_supp;
20419:
20420: PROCEDURE raise_business_event_rules
20413: p_parameters => l_parameter_list);
20414: EXCEPTION
20415: WHEN OTHERS THEN
20416: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20418: END raise_business_event_supp;
20419:
20420: PROCEDURE raise_business_event_rules
20421: (p_api_version IN NUMBER,
20429: ) IS
20430: --l_contract_process VARCHAR2(20);
20431: l_event_param_list WF_PARAMETER_LIST_T := p_event_param_list;
20432: BEGIN
20433: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20434:
20435: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_event_param_list);
20436:
20437: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20442: p_event_name => p_event_name,
20443: p_parameters => l_event_param_list);
20444: EXCEPTION
20445: WHEN OTHERS THEN
20446: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20448: END raise_business_event_rules;
20449:
20450: FUNCTION find_ssid_mapping_id(p_id IN NUMBER) RETURN VARCHAR2 IS
20443: p_parameters => l_event_param_list);
20444: EXCEPTION
20445: WHEN OTHERS THEN
20446: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20448: END raise_business_event_rules;
20449:
20450: FUNCTION find_ssid_mapping_id(p_id IN NUMBER) RETURN VARCHAR2 IS
20451: hi NUMBER;
20589: END LOOP;
20590:
20591: EXCEPTION WHEN OTHERS THEN
20592:
20593: x_return_status := OKL_API.G_RET_STS_ERROR;
20594: /*OKL_API.set_message(p_app_name => 'OKL',
20595: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
20596: p_token1 => 'ASSET_NUMBER',
20597: p_token1_value => 'sort_ssid_mapping_tab');*/
20590:
20591: EXCEPTION WHEN OTHERS THEN
20592:
20593: x_return_status := OKL_API.G_RET_STS_ERROR;
20594: /*OKL_API.set_message(p_app_name => 'OKL',
20595: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
20596: p_token1 => 'ASSET_NUMBER',
20597: p_token1_value => 'sort_ssid_mapping_tab');*/
20598: /* DEBUG */
20616: BEGIN
20617:
20618: l_message := 'OKL_NEW_COPY_CHR_ERROR';
20619: l_curr_pos := 'okl_copy_lease_contract:1';
20620: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20621: -- Call start_activity to create savepoint, check compatibility
20622: -- and initialize message list
20623: x_return_status := OKL_API.START_ACTIVITY (
20624: l_api_name
20619: l_curr_pos := 'okl_copy_lease_contract:1';
20620: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20621: -- Call start_activity to create savepoint, check compatibility
20622: -- and initialize message list
20623: x_return_status := OKL_API.START_ACTIVITY (
20624: l_api_name
20625: ,p_init_msg_list
20626: ,'_PVT'
20627: ,x_return_status);
20625: ,p_init_msg_list
20626: ,'_PVT'
20627: ,x_return_status);
20628: -- Check if activity started successfully
20629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20632: RAISE OKL_API.G_EXCEPTION_ERROR;
20633: END IF;
20626: ,'_PVT'
20627: ,x_return_status);
20628: -- Check if activity started successfully
20629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20632: RAISE OKL_API.G_EXCEPTION_ERROR;
20633: END IF;
20634:
20627: ,x_return_status);
20628: -- Check if activity started successfully
20629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20632: RAISE OKL_API.G_EXCEPTION_ERROR;
20633: END IF;
20634:
20635: l_curr_pos := 'okl_copy_lease_contract:2';
20628: -- Check if activity started successfully
20629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20632: RAISE OKL_API.G_EXCEPTION_ERROR;
20633: END IF;
20634:
20635: l_curr_pos := 'okl_copy_lease_contract:2';
20636: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
20696: p_token1 => g_sqlcode_token,
20697: p_token1_value => SQLCODE,
20698: p_token2 => g_sqlerrm_token,
20699: p_token2_value => SQLERRM);
20700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20701: END IF;
20702: ELSE
20703: l_contract_number := p_contract_number;
20704: END IF;
20712: l_contract_exists := TRUE;
20713: END LOOP;
20714: IF ((l_contract_number = c1rec.contract_number) OR
20715: (l_contract_exists) ) THEN
20716: OKL_API.set_message(p_app_name => 'OKC',
20717: p_msg_name => 'OKC_CONTRACT_EXISTS',
20718: p_token1 => 'VALUE1',
20719: p_token1_value => l_contract_number,
20720: p_token2 => 'VALUE2',
20718: p_token1 => 'VALUE1',
20719: p_token1_value => l_contract_number,
20720: p_token2 => 'VALUE2',
20721: p_token2_value => ' ');
20722: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20723: l_api_name,
20724: G_PKG_NAME,
20725: 'OKL_API.G_RET_STS_ERROR',
20726: x_msg_count,
20721: p_token2_value => ' ');
20722: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20723: l_api_name,
20724: G_PKG_NAME,
20725: 'OKL_API.G_RET_STS_ERROR',
20726: x_msg_count,
20727: x_msg_data,
20728: '_PVT');
20729: RETURN;
20737:
20738: -- AKP: need to do all validatations here
20739: validate_currency_code(x_return_status, l_contract_currency );
20740: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
20741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20742: END IF;
20743:
20744: l_curr_pos := 'okl_copy_lease_contract:8';
20745: validate_orig_sys_code(x_return_status, l_orig_system_source_code);
20743:
20744: l_curr_pos := 'okl_copy_lease_contract:8';
20745: validate_orig_sys_code(x_return_status, l_orig_system_source_code);
20746: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
20747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20748: END IF;
20749:
20750: l_curr_pos := 'okl_copy_lease_contract:9';
20751: validate_currency_conv_type(x_return_status, l_conversion_type);
20749:
20750: l_curr_pos := 'okl_copy_lease_contract:9';
20751: validate_currency_conv_type(x_return_status, l_conversion_type);
20752: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
20753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20754: END IF;
20755:
20756: BEGIN
20757: l_curr_pos := 'okl_copy_lease_contract:10';
20834: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
20835: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
20836: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR during insert into okc_k_headers_b...');
20837: END IF;
20838: OKL_API.set_message(p_app_name => 'OKL',
20839: p_msg_name => l_message,
20840: p_token1 => 'CONTRACT_NUMBER',
20841: p_token1_value => l_contract_number);
20842: RAISE OKC_API.G_EXCEPTION_ERROR;
20864: x_msg_data => x_msg_data,
20865: p_hstv_rec => l_hstv_rec,
20866: x_hstv_rec => x_hstv_rec);
20867: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
20868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20869: END IF;
20870: EXCEPTION WHEN OTHERS THEN
20871: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
20872: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
20893: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
20894: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
20895: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR during inser into okc_k_vers_numbers...');
20896: END IF;
20897: OKL_API.set_message(p_app_name => 'OKL',
20898: p_msg_name => l_message,
20899: p_token1 => 'CONTRACT_NUMBER',
20900: p_token1_value => l_contract_number);
20901: RAISE OKC_API.G_EXCEPTION_ERROR;
21289: IF (l_new_id = -1) THEN
21290: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21291: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR!!!!Mapping line id not found');
21292: END IF;
21293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21294: END IF;
21295: l_cle_id_tab(i) := l_new_id;
21296:
21297: l_cle_lse_mapping_tab(l_cle_lse_counter).cle_id := l_cle_id_tab(i);
21521: x_return_status => x_return_status,
21522: x_msg_count => x_msg_count,
21523: x_msg_data => x_msg_data,
21524: p_line_id => l_delete_id_tab(i));
21525: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21526: RAISE G_EXCEPTION_HALT_PROCESS;
21527: END IF;
21528: END IF;
21529:
21579: end if;
21580: */
21581: END IF; /* if copy_lines_yn <> 'N' */
21582: END LOOP; /* for c1rec */
21583: --x_return_status := OKL_API.G_RET_STS_SUCCESS;
21584:
21585: x_chr_id := l_copied_id;
21586: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21587: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After formula execute x_return_status='||x_return_status || ' ' || TO_CHAR(SYSDATE,'HH24:MI:SS'));
21593: END IF;
21594: l_curr_pos := 'okl_copy_lease_contract:52';
21595: raise_business_event_header(p_chr_id => x_chr_id
21596: ,x_return_status => x_return_status);
21597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21599: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21600: RAISE OKL_API.G_EXCEPTION_ERROR;
21601: END IF;
21594: l_curr_pos := 'okl_copy_lease_contract:52';
21595: raise_business_event_header(p_chr_id => x_chr_id
21596: ,x_return_status => x_return_status);
21597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21599: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21600: RAISE OKL_API.G_EXCEPTION_ERROR;
21601: END IF;
21602:
21595: raise_business_event_header(p_chr_id => x_chr_id
21596: ,x_return_status => x_return_status);
21597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21599: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21600: RAISE OKL_API.G_EXCEPTION_ERROR;
21601: END IF;
21602:
21603: -- For Create Top Line and Subsidy
21596: ,x_return_status => x_return_status);
21597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21599: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21600: RAISE OKL_API.G_EXCEPTION_ERROR;
21601: END IF;
21602:
21603: -- For Create Top Line and Subsidy
21604:
21609: l_contract_process := okl_lla_util_pvt.get_contract_process(l_copied_id);
21610:
21611: IF (l_counter > 1) THEN
21612: l_parameter_list := NULL;
21613: l_raise_business_event := OKL_API.G_FALSE;
21614: l_event_name := NULL;
21615: l_curr_pos := 'okl_copy_lease_contract:54';
21616: FOR i IN l_id_tab.first..l_id_tab.last
21617: LOOP
21617: LOOP
21618: IF l_lse_id_tab(i) = 58 THEN
21619: -- raise the business event for create credit limit, if line style code is FREE_FORM
21620: l_event_name := G_WF_EVT_CR_LMT_CREATED;
21621: l_raise_business_event := OKL_API.G_TRUE;
21622: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_copied_id,l_parameter_list);
21623: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_id_tab(i),l_parameter_list);
21624: ELSIF l_lse_id_tab(i) = 33 THEN
21625: -- raise the business event for create asset, if line style code is FREE_FORM1
21643:
21644: -- raise business event only if the contract is a lease contract, the raise_event flag is on and business event
21645: -- name is specified. the event should also be raised if this is a credit limit, in which case is_lease_contract
21646: -- does not hold good
21647: IF(l_raise_business_event = OKL_API.G_TRUE AND l_event_name IS NOT NULL) THEN
21648: raise_business_event(p_api_version => p_api_version,
21649: p_init_msg_list => p_init_msg_list,
21650: x_return_status => x_return_status,
21651: x_msg_count => x_msg_count,
21652: x_msg_data => x_msg_data,
21653: p_event_name => l_event_name,
21654: p_parameter_list => l_parameter_list,
21655: p_contract_process => l_contract_process );
21656: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21659: RAISE OKL_API.G_EXCEPTION_ERROR;
21660: END IF;
21653: p_event_name => l_event_name,
21654: p_parameter_list => l_parameter_list,
21655: p_contract_process => l_contract_process );
21656: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21659: RAISE OKL_API.G_EXCEPTION_ERROR;
21660: END IF;
21661: l_parameter_list := NULL;
21654: p_parameter_list => l_parameter_list,
21655: p_contract_process => l_contract_process );
21656: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21659: RAISE OKL_API.G_EXCEPTION_ERROR;
21660: END IF;
21661: l_parameter_list := NULL;
21662: l_raise_business_event := OKL_API.G_FALSE;
21655: p_contract_process => l_contract_process );
21656: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21659: RAISE OKL_API.G_EXCEPTION_ERROR;
21660: END IF;
21661: l_parameter_list := NULL;
21662: l_raise_business_event := OKL_API.G_FALSE;
21663: l_event_name := NULL;
21658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21659: RAISE OKL_API.G_EXCEPTION_ERROR;
21660: END IF;
21661: l_parameter_list := NULL;
21662: l_raise_business_event := OKL_API.G_FALSE;
21663: l_event_name := NULL;
21664: END IF;
21665:
21666: -- Subsidy
21675: x_return_status => x_return_status,
21676: x_msg_count => x_msg_count,
21677: x_msg_data => x_msg_data
21678: );
21679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21682: RAISE OKL_API.G_EXCEPTION_ERROR;
21683: END IF;
21676: x_msg_count => x_msg_count,
21677: x_msg_data => x_msg_data
21678: );
21679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21682: RAISE OKL_API.G_EXCEPTION_ERROR;
21683: END IF;
21684:
21677: x_msg_data => x_msg_data
21678: );
21679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21682: RAISE OKL_API.G_EXCEPTION_ERROR;
21683: END IF;
21684:
21685: END IF;
21678: );
21679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21682: RAISE OKL_API.G_EXCEPTION_ERROR;
21683: END IF;
21684:
21685: END IF;
21686: END LOOP;
21692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Doing raise_business_event_itm...' );
21693: END IF;
21694: -- For Create Fee Asset and Create Usage Line and Create Usage Asset
21695: l_parameter_list := NULL;
21696: l_raise_business_event := OKL_API.G_FALSE;
21697: l_business_event_name := NULL;
21698: FOR i IN l_id_tab.first..l_id_tab.last
21699: LOOP
21700:
21698: FOR i IN l_id_tab.first..l_id_tab.last
21699: LOOP
21700:
21701: IF(l_lse_id_tab(i) = 53 ) THEN
21702: l_raise_business_event := OKL_API.G_TRUE;
21703: l_business_event_name := G_WF_EVT_ASSET_FEE_CREATED;
21704: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21705: ELSIF(l_lse_id_tab(i) = 49 ) THEN
21706: l_raise_business_event := OKL_API.G_TRUE;
21702: l_raise_business_event := OKL_API.G_TRUE;
21703: l_business_event_name := G_WF_EVT_ASSET_FEE_CREATED;
21704: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21705: ELSIF(l_lse_id_tab(i) = 49 ) THEN
21706: l_raise_business_event := OKL_API.G_TRUE;
21707: l_business_event_name := G_WF_EVT_ASSET_SERV_FEE_CRTD;
21708: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21709: END IF;
21710:
21707: l_business_event_name := G_WF_EVT_ASSET_SERV_FEE_CRTD;
21708: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21709: END IF;
21710:
21711: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL)THEN
21712: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21713: --Ashish ??? Done
21714: --wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_cimv_rec.object1_id1,l_parameter_list);
21715: l_new_object1_id1 := find_oid_mapping_id(l_id_tab(i));
21716: IF (l_new_object1_id1 = '-1') THEN
21717: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21718: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Can not find mapping object1_id1 for ' || l_id_tab(i));
21719: END IF;
21720: RAISE OKL_API.G_EXCEPTION_ERROR;
21721: END IF;
21722: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,l_new_object1_id1,l_parameter_list);
21723:
21724: raise_business_event_itm(p_api_version => p_api_version
21728: ,x_msg_data => x_msg_data
21729: ,p_event_name => l_business_event_name
21730: ,p_event_param_list => l_parameter_list
21731: ,p_contract_process => l_contract_process);
21732: l_raise_business_event := OKL_API.G_FALSE;
21733: l_business_event_name := NULL;
21734: l_parameter_list := NULL;
21735: END IF;
21736:
21742: x_msg_count => x_msg_count,
21743: x_msg_data => x_msg_data,
21744: p_chr_id => l_copied_id,
21745: p_ubb_id => l_id_tab(i));
21746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21749: RAISE OKL_API.G_EXCEPTION_ERROR;
21750: END IF;
21743: x_msg_data => x_msg_data,
21744: p_chr_id => l_copied_id,
21745: p_ubb_id => l_id_tab(i));
21746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21749: RAISE OKL_API.G_EXCEPTION_ERROR;
21750: END IF;
21751: ELSIF (l_lse_id_tab(i) = 57) THEN
21744: p_chr_id => l_copied_id,
21745: p_ubb_id => l_id_tab(i));
21746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21749: RAISE OKL_API.G_EXCEPTION_ERROR;
21750: END IF;
21751: ELSIF (l_lse_id_tab(i) = 57) THEN
21752: okl_ubb_wf_pvt.raise_add_asset_event (
21745: p_ubb_id => l_id_tab(i));
21746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21749: RAISE OKL_API.G_EXCEPTION_ERROR;
21750: END IF;
21751: ELSIF (l_lse_id_tab(i) = 57) THEN
21752: okl_ubb_wf_pvt.raise_add_asset_event (
21753: p_api_version => p_api_version,
21789: ,p_event_name => G_WF_EVT_KHR_PARTY_CREATED
21790: ,p_event_param_list => l_parameter_list
21791: ,p_contract_process => l_contract_process);
21792:
21793: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21796: RAISE OKL_API.G_EXCEPTION_ERROR;
21797: END IF;
21790: ,p_event_param_list => l_parameter_list
21791: ,p_contract_process => l_contract_process);
21792:
21793: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21796: RAISE OKL_API.G_EXCEPTION_ERROR;
21797: END IF;
21798: l_parameter_list := NULL;
21791: ,p_contract_process => l_contract_process);
21792:
21793: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21796: RAISE OKL_API.G_EXCEPTION_ERROR;
21797: END IF;
21798: l_parameter_list := NULL;
21799:
21792:
21793: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21796: RAISE OKL_API.G_EXCEPTION_ERROR;
21797: END IF;
21798: l_parameter_list := NULL;
21799:
21800: END LOOP;
21820: x_return_status => x_return_status,
21821: x_msg_count => x_msg_count,
21822: x_msg_data => x_msg_data
21823: );
21824: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21827: RAISE OKL_API.G_EXCEPTION_ERROR;
21828: END IF;
21821: x_msg_count => x_msg_count,
21822: x_msg_data => x_msg_data
21823: );
21824: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21827: RAISE OKL_API.G_EXCEPTION_ERROR;
21828: END IF;
21829: END IF;
21822: x_msg_data => x_msg_data
21823: );
21824: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21827: RAISE OKL_API.G_EXCEPTION_ERROR;
21828: END IF;
21829: END IF;
21830: END LOOP;
21823: );
21824: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21827: RAISE OKL_API.G_EXCEPTION_ERROR;
21828: END IF;
21829: END IF;
21830: END LOOP;
21831: END IF;
21849: x_return_status => x_return_status,
21850: x_msg_count => x_msg_count,
21851: x_msg_data => x_msg_data
21852: );
21853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21856: RAISE OKL_API.G_EXCEPTION_ERROR;
21857: END IF;
21850: x_msg_count => x_msg_count,
21851: x_msg_data => x_msg_data
21852: );
21853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21856: RAISE OKL_API.G_EXCEPTION_ERROR;
21857: END IF;
21858: END IF;
21851: x_msg_data => x_msg_data
21852: );
21853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21856: RAISE OKL_API.G_EXCEPTION_ERROR;
21857: END IF;
21858: END IF;
21859: END LOOP;
21852: );
21853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21856: RAISE OKL_API.G_EXCEPTION_ERROR;
21857: END IF;
21858: END IF;
21859: END LOOP;
21860: END IF;
21868: IF (l_tal_kle_cle_id = -1) THEN
21869: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21870: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: TAL_ID to KLE_ID to CLE_ID mapping not found');
21871: END IF;
21872: RAISE OKL_API.G_EXCEPTION_ERROR;
21873: END IF;
21874: raise_business_event_txd
21875: ( p_api_version => p_api_version,
21876: p_init_msg_list => p_init_msg_list,
21881: x_return_status => x_return_status,
21882: x_msg_count => x_msg_count,
21883: x_msg_data => x_msg_data
21884: );
21885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21888: RAISE OKL_API.G_EXCEPTION_ERROR;
21889: END IF;
21882: x_msg_count => x_msg_count,
21883: x_msg_data => x_msg_data
21884: );
21885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21888: RAISE OKL_API.G_EXCEPTION_ERROR;
21889: END IF;
21890: END LOOP;
21883: x_msg_data => x_msg_data
21884: );
21885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21888: RAISE OKL_API.G_EXCEPTION_ERROR;
21889: END IF;
21890: END LOOP;
21891: END IF;
21884: );
21885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21888: RAISE OKL_API.G_EXCEPTION_ERROR;
21889: END IF;
21890: END LOOP;
21891: END IF;
21892:
21910: x_return_status => x_return_status,
21911: x_msg_count => x_msg_count,
21912: x_msg_data => x_msg_data
21913: );
21914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21917: RAISE OKL_API.G_EXCEPTION_ERROR;
21918: END IF;
21911: x_msg_count => x_msg_count,
21912: x_msg_data => x_msg_data
21913: );
21914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21917: RAISE OKL_API.G_EXCEPTION_ERROR;
21918: END IF;
21919: END IF;
21912: x_msg_data => x_msg_data
21913: );
21914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21917: RAISE OKL_API.G_EXCEPTION_ERROR;
21918: END IF;
21919: END IF;
21920: END LOOP;
21913: );
21914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21917: RAISE OKL_API.G_EXCEPTION_ERROR;
21918: END IF;
21919: END IF;
21920: END LOOP;
21921: END IF;
21940: x_return_status => x_return_status,
21941: x_msg_count => x_msg_count,
21942: x_msg_data => x_msg_data
21943: );
21944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21947: RAISE OKL_API.G_EXCEPTION_ERROR;
21948: END IF;
21941: x_msg_count => x_msg_count,
21942: x_msg_data => x_msg_data
21943: );
21944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21947: RAISE OKL_API.G_EXCEPTION_ERROR;
21948: END IF;
21949: END IF;
21942: x_msg_data => x_msg_data
21943: );
21944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21947: RAISE OKL_API.G_EXCEPTION_ERROR;
21948: END IF;
21949: END IF;
21950: END LOOP;
21943: );
21944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21947: RAISE OKL_API.G_EXCEPTION_ERROR;
21948: END IF;
21949: END IF;
21950: END LOOP;
21951: END IF;
21970: x_return_status => x_return_status,
21971: x_msg_count => x_msg_count,
21972: x_msg_data => x_msg_data
21973: );
21974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21977: RAISE OKL_API.G_EXCEPTION_ERROR;
21978: END IF;
21971: x_msg_count => x_msg_count,
21972: x_msg_data => x_msg_data
21973: );
21974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21977: RAISE OKL_API.G_EXCEPTION_ERROR;
21978: END IF;
21979: END LOOP;
21972: x_msg_data => x_msg_data
21973: );
21974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21977: RAISE OKL_API.G_EXCEPTION_ERROR;
21978: END IF;
21979: END LOOP;
21980: END IF;
21973: );
21974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21977: RAISE OKL_API.G_EXCEPTION_ERROR;
21978: END IF;
21979: END LOOP;
21980: END IF;
21981:
21980: END IF;
21981:
21982: -- For Rule Groups
21983: IF (l_rule_groups_b_counter > 1) THEN
21984: l_raise_business_event := OKL_API.G_FALSE;
21985: l_business_event_name := NULL;
21986: l_curr_pos := 'okl_copy_lease_contract:63';
21987:
21988: FOR i IN l_rid_tab.first..l_rid_tab.last
21991: l_terms_id := NULL;
21992: IF(l_rrgd_code_tab(i) = 'LAAFLG' AND l_rchr_id_tab(i) IS NOT NULL)
21993: THEN
21994: -- raise business event for the Liens and Title for Terms and Conditions for the Contract
21995: l_raise_business_event := OKL_API.G_TRUE;
21996: l_business_event_name := G_WF_EVT_CONTRACT_TERM_UPDATED;
21997: l_terms_id := find_tid_mapping_id(l_rrgd_code_tab(i));
21998: IF(l_terms_id IS NOT NULL)THEN
21999: wf_event.AddParameterToList(G_WF_ITM_TERMS_ID, l_terms_id, l_parameter_list);
22000: END IF;
22001: ELSIF(l_rrgd_code_tab(i) = 'LAAFLG' AND l_rcle_id_tab(i) IS NOT NULL)
22002: THEN
22003: --raise business event for Liens Title and Registration for the Assets
22004: l_raise_business_event := OKL_API.G_TRUE;
22005: l_business_event_name := G_WF_EVT_ASSET_FILING_UPDATED;
22006: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, l_rcle_id_tab(i), l_parameter_list);
22007: ELSIF(l_rrgd_code_tab(i) = 'LAASTX' AND l_rcle_id_tab(i) IS NOT NULL)
22008: THEN
22006: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, l_rcle_id_tab(i), l_parameter_list);
22007: ELSIF(l_rrgd_code_tab(i) = 'LAASTX' AND l_rcle_id_tab(i) IS NOT NULL)
22008: THEN
22009: -- raise business event for tax, property tax updated.
22010: l_raise_business_event := OKL_API.G_TRUE;
22011: l_business_event_name := G_WF_EVT_ASSET_PROPTAX_UPDATED;
22012: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, l_rcle_id_tab(i), l_parameter_list);
22013: ELSIF(l_rrgd_code_tab(i) = 'LAPSTH' AND l_rcle_id_tab(i) IS NOT NULL)
22014: THEN
22014: THEN
22015: l_line_style := find_sid_mapping_id(l_rcle_id_tab(i));
22016: -- raise business event for service line update passthru
22017: IF(l_line_style IS NOT NULL AND l_line_style = 48)THEN
22018: l_raise_business_event := OKL_API.G_TRUE;
22019: l_business_event_name := G_WF_EVT_SERV_PASS_UPDATED;
22020: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID, l_rcle_id_tab(i), l_parameter_list);
22021: -- check if the service line in context has a service contract associated with it
22022: -- if so, pass the service contract id and service contract line id as parameters
22045: wf_event.AddParameterToList(G_WF_ITM_SERV_CLE_ID, l_service_top_line_id, l_parameter_list);
22046: END IF;
22047: -- raise the business event for update passthrough for Fee Line
22048: ELSIF(l_line_style IS NOT NULL AND l_line_style = 52)THEN
22049: l_raise_business_event := OKL_API.G_TRUE;
22050: l_business_event_name := G_WF_EVT_FEE_PASS_UPDATED;
22051: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID, l_rcle_id_tab(i), l_parameter_list);
22052: END IF;
22053: ELSIF(l_rrgd_code_tab(i) = 'LAFEXP' AND l_rcle_id_tab(i) IS NOT NULL)
22057: FETCH get_line_style INTO l_line_style;
22058: CLOSE get_line_style;*/
22059: -- raise business event for service line update expense
22060: IF(l_line_style IS NOT NULL AND l_line_style = 48)THEN
22061: l_raise_business_event := OKL_API.G_TRUE;
22062: l_business_event_name := G_WF_EVT_SERV_FEXP_UPDATED;
22063: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID, l_rcle_id_tab(i), l_parameter_list);
22064: -- check if the service line in context has a service contract associated with it
22065: -- if so, pass the service contract id and service contract line id as parameters
22093: wf_event.AddParameterToList(G_WF_ITM_SERV_CHR_ID, l_serv_contract_id, l_parameter_list);
22094: wf_event.AddParameterToList(G_WF_ITM_SERV_CLE_ID, l_service_top_line_id, l_parameter_list);
22095: END IF;
22096: ELSIF(l_line_style IS NOT NULL AND l_line_style = 52)THEN
22097: l_raise_business_event := OKL_API.G_TRUE;
22098: l_business_event_name := G_WF_EVT_FEE_EXP_UPDATED;
22099: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID, l_rcle_id_tab(i), l_parameter_list);
22100: END IF;
22101: END IF;
22100: END IF;
22101: END IF;
22102:
22103: -- check if the business event needs to be raised
22104: IF (l_raise_business_event = OKL_API.G_TRUE AND
22105: l_business_event_name IS NOT NULL )THEN
22106: -- since contract id is called as 'CONTRACT_ID' for all the above events, it is being
22107: -- added to the parameter list here, than duplicating it in all the above if conditions
22108:
22116: p_event_name => l_business_event_name,
22117: p_event_param_list => l_parameter_list,
22118: p_contract_process => l_contract_process
22119: );
22120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22121: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22122: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22123: RAISE OKL_API.G_EXCEPTION_ERROR;
22124: END IF;
22117: p_event_param_list => l_parameter_list,
22118: p_contract_process => l_contract_process
22119: );
22120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22121: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22122: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22123: RAISE OKL_API.G_EXCEPTION_ERROR;
22124: END IF;
22125:
22118: p_contract_process => l_contract_process
22119: );
22120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22121: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22122: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22123: RAISE OKL_API.G_EXCEPTION_ERROR;
22124: END IF;
22125:
22126: l_raise_business_event := OKL_API.G_FALSE;
22119: );
22120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22121: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22122: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22123: RAISE OKL_API.G_EXCEPTION_ERROR;
22124: END IF;
22125:
22126: l_raise_business_event := OKL_API.G_FALSE;
22127: l_business_event_name := NULL;
22122: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22123: RAISE OKL_API.G_EXCEPTION_ERROR;
22124: END IF;
22125:
22126: l_raise_business_event := OKL_API.G_FALSE;
22127: l_business_event_name := NULL;
22128:
22129: END IF;
22130:
22133:
22134: -- End of business events processing
22135:
22136: l_curr_pos := 'okl_copy_lease_contract:64';
22137: OKL_API.END_ACTIVITY (x_msg_count,
22138: x_msg_data );
22139: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
22140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Done ' || TO_CHAR(SYSDATE,'HH24:MI:SS'));
22141: END IF;
22139: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
22140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Done ' || TO_CHAR(SYSDATE,'HH24:MI:SS'));
22141: END IF;
22142: EXCEPTION
22143: WHEN OKL_API.G_EXCEPTION_ERROR THEN
22144: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
22145: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
22146: END IF;
22147: OKL_API.set_message(p_app_name => 'OKL',
22143: WHEN OKL_API.G_EXCEPTION_ERROR THEN
22144: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
22145: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
22146: END IF;
22147: OKL_API.set_message(p_app_name => 'OKL',
22148: p_msg_name => l_message,
22149: p_token1 => 'CONTRACT_NUMBER',
22150: p_token1_value => l_contract_number);
22151: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22147: OKL_API.set_message(p_app_name => 'OKL',
22148: p_msg_name => l_message,
22149: p_token1 => 'CONTRACT_NUMBER',
22150: p_token1_value => l_contract_number);
22151: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22152: l_api_name,
22153: G_PKG_NAME,
22154: 'OKL_API.G_RET_STS_ERROR',
22155: x_msg_count,
22150: p_token1_value => l_contract_number);
22151: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22152: l_api_name,
22153: G_PKG_NAME,
22154: 'OKL_API.G_RET_STS_ERROR',
22155: x_msg_count,
22156: x_msg_data,
22157: '_PVT');
22158: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
22168: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'id('||i||')='||l_id_tab(i) || ' cle_id('||i||')=' || l_cle_id_tab(i)||' orig_system_id1('||i||')='||l_orig_system_id1_tab(i));
22169: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lse_id('||i||')='||l_lse_id_tab(i) || ' name_tab('||i||')=' || l_name_tab(i));
22170: END IF;
22171: END LOOP;
22172: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
22173: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
22174: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
22175: END IF;
22176: OKL_API.set_message(p_app_name => 'OKL',
22172: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
22173: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
22174: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
22175: END IF;
22176: OKL_API.set_message(p_app_name => 'OKL',
22177: p_msg_name => l_message,
22178: p_token1 => 'CONTRACT_NUMBER',
22179: p_token1_value => l_contract_number);
22180: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22176: OKL_API.set_message(p_app_name => 'OKL',
22177: p_msg_name => l_message,
22178: p_token1 => 'CONTRACT_NUMBER',
22179: p_token1_value => l_contract_number);
22180: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22181: l_api_name,
22182: G_PKG_NAME,
22183: 'OKL_API.G_RET_STS_UNEXP_ERROR',
22184: x_msg_count,
22179: p_token1_value => l_contract_number);
22180: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22181: l_api_name,
22182: G_PKG_NAME,
22183: 'OKL_API.G_RET_STS_UNEXP_ERROR',
22184: x_msg_count,
22185: x_msg_data,
22186: '_PVT');
22187: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
22201: WHEN OTHERS THEN
22202: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
22203: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
22204: END IF;
22205: OKL_API.set_message(p_app_name => 'OKL',
22206: p_msg_name => l_message,
22207: p_token1 => 'CONTRACT_NUMBER',
22208: p_token1_value => l_contract_number);
22209: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22205: OKL_API.set_message(p_app_name => 'OKL',
22206: p_msg_name => l_message,
22207: p_token1 => 'CONTRACT_NUMBER',
22208: p_token1_value => l_contract_number);
22209: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22210: l_api_name,
22211: G_PKG_NAME,
22212: 'OTHERS',
22213: x_msg_count,
22241: -- End of comments
22242: --------------------------------------------------------------------------------
22243: PROCEDURE copy_lease_contract(
22244: p_api_version IN NUMBER,
22245: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
22246: x_return_status OUT NOCOPY VARCHAR2,
22247: x_msg_count OUT NOCOPY NUMBER,
22248: x_msg_data OUT NOCOPY VARCHAR2,
22249: p_commit IN VARCHAR2 DEFAULT 'F',
22379: lp_khrv_rec Okl_Contract_Pub.khrv_rec_type;
22380: lx_khrv_rec Okl_Contract_Pub.khrv_rec_type;
22381:
22382: BEGIN
22383: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22384: -- Call start_activity to create savepoint, check compatibility
22385: -- and initialize message list
22386: x_return_status := OKL_API.START_ACTIVITY (
22387: l_api_name
22382: BEGIN
22383: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22384: -- Call start_activity to create savepoint, check compatibility
22385: -- and initialize message list
22386: x_return_status := OKL_API.START_ACTIVITY (
22387: l_api_name
22388: ,p_init_msg_list
22389: ,'_PVT'
22390: ,x_return_status);
22388: ,p_init_msg_list
22389: ,'_PVT'
22390: ,x_return_status);
22391: -- Check if activity started successfully
22392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22395: RAISE OKL_API.G_EXCEPTION_ERROR;
22396: END IF;
22389: ,'_PVT'
22390: ,x_return_status);
22391: -- Check if activity started successfully
22392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22395: RAISE OKL_API.G_EXCEPTION_ERROR;
22396: END IF;
22397: -- TO copy the Copy the contract first
22390: ,x_return_status);
22391: -- Check if activity started successfully
22392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22395: RAISE OKL_API.G_EXCEPTION_ERROR;
22396: END IF;
22397: -- TO copy the Copy the contract first
22398: OKL_COPY_CONTRACT_PUB.copy_contract(p_api_version => p_api_version,
22391: -- Check if activity started successfully
22392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22395: RAISE OKL_API.G_EXCEPTION_ERROR;
22396: END IF;
22397: -- TO copy the Copy the contract first
22398: OKL_COPY_CONTRACT_PUB.copy_contract(p_api_version => p_api_version,
22399: p_init_msg_list => p_init_msg_list,
22399: p_init_msg_list => p_init_msg_list,
22400: x_return_status => x_return_status,
22401: x_msg_count => x_msg_count,
22402: x_msg_data => x_msg_data,
22403: p_commit => OKL_API.G_FALSE,
22404: p_chr_id => p_chr_id,
22405: p_contract_number => p_contract_number,
22406: p_contract_number_modifier => p_contract_number_modifier,
22407: p_to_template_yn => p_to_template_yn,
22409: p_copy_lines_yn => 'N',
22410: p_override_org => p_override_org,
22411: x_chr_id => x_chr_id);
22412:
22413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22414: --bug # 2518454
22415: --OKL_API.set_message(p_app_name => G_APP_NAME,
22416: --p_msg_name => G_COPY_HEADER);
22417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22411: x_chr_id => x_chr_id);
22412:
22413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22414: --bug # 2518454
22415: --OKL_API.set_message(p_app_name => G_APP_NAME,
22416: --p_msg_name => G_COPY_HEADER);
22417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22419: --bug # 2518454
22413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22414: --bug # 2518454
22415: --OKL_API.set_message(p_app_name => G_APP_NAME,
22416: --p_msg_name => G_COPY_HEADER);
22417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22419: --bug # 2518454
22420: --OKL_API.set_message(p_app_name => G_APP_NAME,
22421: --p_msg_name => G_COPY_HEADER);
22414: --bug # 2518454
22415: --OKL_API.set_message(p_app_name => G_APP_NAME,
22416: --p_msg_name => G_COPY_HEADER);
22417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22419: --bug # 2518454
22420: --OKL_API.set_message(p_app_name => G_APP_NAME,
22421: --p_msg_name => G_COPY_HEADER);
22422: RAISE OKL_API.G_EXCEPTION_ERROR;
22416: --p_msg_name => G_COPY_HEADER);
22417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22419: --bug # 2518454
22420: --OKL_API.set_message(p_app_name => G_APP_NAME,
22421: --p_msg_name => G_COPY_HEADER);
22422: RAISE OKL_API.G_EXCEPTION_ERROR;
22423: END IF;
22424:
22418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22419: --bug # 2518454
22420: --OKL_API.set_message(p_app_name => G_APP_NAME,
22421: --p_msg_name => G_COPY_HEADER);
22422: RAISE OKL_API.G_EXCEPTION_ERROR;
22423: END IF;
22424:
22425: --to update date signed on copied chr
22426: Open l_date_sig_csr(p_chr_id => p_chr_id,
22442: p_restricted_update => OKC_API.G_FALSE,
22443: p_chrv_rec => l_chrv_rec,
22444: x_chrv_rec => lx_chrv_rec);
22445:
22446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22449: RAISE OKL_API.G_EXCEPTION_ERROR;
22450: End If;
22443: p_chrv_rec => l_chrv_rec,
22444: x_chrv_rec => lx_chrv_rec);
22445:
22446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22449: RAISE OKL_API.G_EXCEPTION_ERROR;
22450: End If;
22451:
22444: x_chrv_rec => lx_chrv_rec);
22445:
22446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22449: RAISE OKL_API.G_EXCEPTION_ERROR;
22450: End If;
22451:
22452: END IF;
22445:
22446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22449: RAISE OKL_API.G_EXCEPTION_ERROR;
22450: End If;
22451:
22452: END IF;
22453: Close l_date_sig_csr;
22459: LOOP
22460: lt_klev_tbl_type(i).id := r_get_old_k_top_line.top_line;
22461: IF c_get_old_k_top_line%NOTFOUND THEN
22462: -- store SQL error message on message stack
22463: --OKL_API.set_message(p_app_name => G_APP_NAME,
22464: -- p_msg_name => G_NO_MATCHING_RECORD,
22465: -- p_token1 => G_COL_NAME_TOKEN,
22466: -- p_token1_value => 'dnz_chr_id');
22467: --x_return_status := OKL_API.G_RET_STS_ERROR;
22463: --OKL_API.set_message(p_app_name => G_APP_NAME,
22464: -- p_msg_name => G_NO_MATCHING_RECORD,
22465: -- p_token1 => G_COL_NAME_TOKEN,
22466: -- p_token1_value => 'dnz_chr_id');
22467: --x_return_status := OKL_API.G_RET_STS_ERROR;
22468: --EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22469: EXIT;
22470: END IF;
22471: i := i + 1;
22464: -- p_msg_name => G_NO_MATCHING_RECORD,
22465: -- p_token1 => G_COL_NAME_TOKEN,
22466: -- p_token1_value => 'dnz_chr_id');
22467: --x_return_status := OKL_API.G_RET_STS_ERROR;
22468: --EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22469: EXIT;
22470: END IF;
22471: i := i + 1;
22472: END LOOP;
22469: EXIT;
22470: END IF;
22471: i := i + 1;
22472: END LOOP;
22473: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22474: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22475: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22476: -- RAISE OKL_API.G_EXCEPTION_ERROR;
22477: --END IF;
22470: END IF;
22471: i := i + 1;
22472: END LOOP;
22473: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22474: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22475: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22476: -- RAISE OKL_API.G_EXCEPTION_ERROR;
22477: --END IF;
22478: If lt_klev_tbl_type.FIRST is NOT NULL Then
22471: i := i + 1;
22472: END LOOP;
22473: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22474: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22475: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22476: -- RAISE OKL_API.G_EXCEPTION_ERROR;
22477: --END IF;
22478: If lt_klev_tbl_type.FIRST is NOT NULL Then
22479: --means contract has some lines then
22472: END LOOP;
22473: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22474: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22475: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22476: -- RAISE OKL_API.G_EXCEPTION_ERROR;
22477: --END IF;
22478: If lt_klev_tbl_type.FIRST is NOT NULL Then
22479: --means contract has some lines then
22480: -- Copy all the lines for the old contract number
22491: p_copy_line_party_yn => 'Y',
22492: p_renew_ref_yn => 'N',
22493: p_trans_type => p_trans_type,
22494: x_cle_id_tbl => ltx_klev_tbl_type);
22495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22496: OKL_API.set_message(p_app_name => G_APP_NAME,
22497: p_msg_name => G_COPY_LINE);
22498: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22499: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22492: p_renew_ref_yn => 'N',
22493: p_trans_type => p_trans_type,
22494: x_cle_id_tbl => ltx_klev_tbl_type);
22495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22496: OKL_API.set_message(p_app_name => G_APP_NAME,
22497: p_msg_name => G_COPY_LINE);
22498: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22499: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22500: OKL_API.set_message(p_app_name => G_APP_NAME,
22494: x_cle_id_tbl => ltx_klev_tbl_type);
22495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22496: OKL_API.set_message(p_app_name => G_APP_NAME,
22497: p_msg_name => G_COPY_LINE);
22498: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22499: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22500: OKL_API.set_message(p_app_name => G_APP_NAME,
22501: p_msg_name => G_COPY_LINE);
22502: RAISE OKL_API.G_EXCEPTION_ERROR;
22495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22496: OKL_API.set_message(p_app_name => G_APP_NAME,
22497: p_msg_name => G_COPY_LINE);
22498: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22499: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22500: OKL_API.set_message(p_app_name => G_APP_NAME,
22501: p_msg_name => G_COPY_LINE);
22502: RAISE OKL_API.G_EXCEPTION_ERROR;
22503: END IF;
22496: OKL_API.set_message(p_app_name => G_APP_NAME,
22497: p_msg_name => G_COPY_LINE);
22498: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22499: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22500: OKL_API.set_message(p_app_name => G_APP_NAME,
22501: p_msg_name => G_COPY_LINE);
22502: RAISE OKL_API.G_EXCEPTION_ERROR;
22503: END IF;
22504: --
22498: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22499: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22500: OKL_API.set_message(p_app_name => G_APP_NAME,
22501: p_msg_name => G_COPY_LINE);
22502: RAISE OKL_API.G_EXCEPTION_ERROR;
22503: END IF;
22504: --
22505: --Bug# 2522268 : Physically delete all the lines with source lines having
22506: -- abandoned status
22509: x_return_status => x_return_Status,
22510: x_msg_count => x_msg_count,
22511: x_msg_data => x_msg_data,
22512: p_chr_id => x_chr_id);
22513: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22514: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22515: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22516: raise OKL_API.G_EXCEPTION_ERROR;
22517: End If;
22510: x_msg_count => x_msg_count,
22511: x_msg_data => x_msg_data,
22512: p_chr_id => x_chr_id);
22513: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22514: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22515: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22516: raise OKL_API.G_EXCEPTION_ERROR;
22517: End If;
22518: --
22511: x_msg_data => x_msg_data,
22512: p_chr_id => x_chr_id);
22513: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22514: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22515: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22516: raise OKL_API.G_EXCEPTION_ERROR;
22517: End If;
22518: --
22519: --Bug# 2522268 End
22512: p_chr_id => x_chr_id);
22513: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22514: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22515: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22516: raise OKL_API.G_EXCEPTION_ERROR;
22517: End If;
22518: --
22519: --Bug# 2522268 End
22520: --
22527: x_return_status => x_return_Status,
22528: x_msg_count => x_msg_count,
22529: x_msg_data => x_msg_data,
22530: p_chr_id => x_chr_id);
22531: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22532: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22533: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22534: raise OKL_API.G_EXCEPTION_ERROR;
22535: End If;
22528: x_msg_count => x_msg_count,
22529: x_msg_data => x_msg_data,
22530: p_chr_id => x_chr_id);
22531: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22532: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22533: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22534: raise OKL_API.G_EXCEPTION_ERROR;
22535: End If;
22536:
22529: x_msg_data => x_msg_data,
22530: p_chr_id => x_chr_id);
22531: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22532: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22533: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22534: raise OKL_API.G_EXCEPTION_ERROR;
22535: End If;
22536:
22537: End If;
22530: p_chr_id => x_chr_id);
22531: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22532: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22533: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22534: raise OKL_API.G_EXCEPTION_ERROR;
22535: End If;
22536:
22537: End If;
22538: --
22569: p_new_lnk_cim_id => l_new_lnk_cim_id,
22570: p_object_code => l_jtot_object1_code,
22571: p_new_chr_id => x_chr_id );
22572:
22573: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22574: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22575: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22576: raise OKL_API.G_EXCEPTION_ERROR;
22577: End If;
22570: p_object_code => l_jtot_object1_code,
22571: p_new_chr_id => x_chr_id );
22572:
22573: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22574: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22575: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22576: raise OKL_API.G_EXCEPTION_ERROR;
22577: End If;
22578: End If;
22571: p_new_chr_id => x_chr_id );
22572:
22573: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22574: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22575: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22576: raise OKL_API.G_EXCEPTION_ERROR;
22577: End If;
22578: End If;
22579: End Loop;
22572:
22573: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22574: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22575: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22576: raise OKL_API.G_EXCEPTION_ERROR;
22577: End If;
22578: End If;
22579: End Loop;
22580: Close l_lnk_csr;
22594: x_msg_data => x_msg_data,
22595: p_from_chr_id => p_chr_id,
22596: p_to_chr_id => x_chr_id);
22597:
22598: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22599: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22600: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22601: raise OKL_API.G_EXCEPTION_ERROR;
22602: End If;
22595: p_from_chr_id => p_chr_id,
22596: p_to_chr_id => x_chr_id);
22597:
22598: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22599: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22600: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22601: raise OKL_API.G_EXCEPTION_ERROR;
22602: End If;
22603:
22596: p_to_chr_id => x_chr_id);
22597:
22598: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22599: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22600: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22601: raise OKL_API.G_EXCEPTION_ERROR;
22602: End If;
22603:
22604: --------------------------------------------------------------------------------
22597:
22598: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22599: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22600: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22601: raise OKL_API.G_EXCEPTION_ERROR;
22602: End If;
22603:
22604: --------------------------------------------------------------------------------
22605: --Bug # 2412839 - Since copy insurance functionality is not supported at this
22616: x_return_status => x_return_status,
22617: x_msg_count => x_msg_count,
22618: x_msg_data => x_msg_data,
22619: p_line_id => l_ins_top_line_id);
22620: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22621: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22622: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22623: raise OKL_API.G_EXCEPTION_ERROR;
22624: End If;
22617: x_msg_count => x_msg_count,
22618: x_msg_data => x_msg_data,
22619: p_line_id => l_ins_top_line_id);
22620: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22621: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22622: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22623: raise OKL_API.G_EXCEPTION_ERROR;
22624: End If;
22625: End Loop;
22618: x_msg_data => x_msg_data,
22619: p_line_id => l_ins_top_line_id);
22620: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22621: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22622: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22623: raise OKL_API.G_EXCEPTION_ERROR;
22624: End If;
22625: End Loop;
22626: Close ins_top_line_csr;
22619: p_line_id => l_ins_top_line_id);
22620: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22621: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22622: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22623: raise OKL_API.G_EXCEPTION_ERROR;
22624: End If;
22625: End Loop;
22626: Close ins_top_line_csr;
22627:
22644: end if;
22645:
22646: --Bug# 3541098 end
22647:
22648: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22649: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22650: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22651: raise OKL_API.G_EXCEPTION_ERROR;
22652: End If;
22645:
22646: --Bug# 3541098 end
22647:
22648: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22649: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22650: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22651: raise OKL_API.G_EXCEPTION_ERROR;
22652: End If;
22653:
22646: --Bug# 3541098 end
22647:
22648: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22649: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22650: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22651: raise OKL_API.G_EXCEPTION_ERROR;
22652: End If;
22653:
22654: --Start Bug# 3621663
22647:
22648: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22649: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22650: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22651: raise OKL_API.G_EXCEPTION_ERROR;
22652: End If;
22653:
22654: --Start Bug# 3621663
22655: -----------------------------------------------------------------------------
22662: null;
22663: end if;
22664: close l_parent_sts_csr;
22665:
22666: If nvl(l_parent_sts_rec.ste_code,OKL_API.G_MISS_CHAR) not in ('ENTERED','SIGNED')
22667: and nvl(l_parent_sts_rec.scs_code,OKL_API.G_MISS_CHAR) = 'LEASE'
22668: and nvl(p_copy_lines_yn,'N') = 'Y' then
22669: If nvl(p_trans_type,OKL_API.G_MISS_CHAR) not in ('CRB','CRL') then
22670: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
22663: end if;
22664: close l_parent_sts_csr;
22665:
22666: If nvl(l_parent_sts_rec.ste_code,OKL_API.G_MISS_CHAR) not in ('ENTERED','SIGNED')
22667: and nvl(l_parent_sts_rec.scs_code,OKL_API.G_MISS_CHAR) = 'LEASE'
22668: and nvl(p_copy_lines_yn,'N') = 'Y' then
22669: If nvl(p_trans_type,OKL_API.G_MISS_CHAR) not in ('CRB','CRL') then
22670: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
22671: i := 0;
22665:
22666: If nvl(l_parent_sts_rec.ste_code,OKL_API.G_MISS_CHAR) not in ('ENTERED','SIGNED')
22667: and nvl(l_parent_sts_rec.scs_code,OKL_API.G_MISS_CHAR) = 'LEASE'
22668: and nvl(p_copy_lines_yn,'N') = 'Y' then
22669: If nvl(p_trans_type,OKL_API.G_MISS_CHAR) not in ('CRB','CRL') then
22670: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
22671: i := 0;
22672: If nvl(l_rep_book_type,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
22673: open l_txd_csr (p_book_type_code => l_rep_book_type,
22668: and nvl(p_copy_lines_yn,'N') = 'Y' then
22669: If nvl(p_trans_type,OKL_API.G_MISS_CHAR) not in ('CRB','CRL') then
22670: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
22671: i := 0;
22672: If nvl(l_rep_book_type,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
22673: open l_txd_csr (p_book_type_code => l_rep_book_type,
22674: p_chr_id => x_chr_id);
22675: Loop
22676: fetch l_txd_csr into l_txd_rec;
22687: x_return_status => x_return_status,
22688: x_msg_count => x_msg_count,
22689: x_msg_data => x_msg_data,
22690: p_adpv_tbl => l_adpv_tbl);
22691: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22692: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22693: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22694: raise OKL_API.G_EXCEPTION_ERROR;
22695: End If;
22688: x_msg_count => x_msg_count,
22689: x_msg_data => x_msg_data,
22690: p_adpv_tbl => l_adpv_tbl);
22691: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22692: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22693: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22694: raise OKL_API.G_EXCEPTION_ERROR;
22695: End If;
22696: End If;
22689: x_msg_data => x_msg_data,
22690: p_adpv_tbl => l_adpv_tbl);
22691: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22692: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22693: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22694: raise OKL_API.G_EXCEPTION_ERROR;
22695: End If;
22696: End If;
22697: End If;
22690: p_adpv_tbl => l_adpv_tbl);
22691: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22692: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22693: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22694: raise OKL_API.G_EXCEPTION_ERROR;
22695: End If;
22696: End If;
22697: End If;
22698: End If;
22720: p_chr_id => x_chr_id,
22721: p_status => 'NEW',
22722: p_cascade_lines => p_copy_lines_yn);
22723:
22724: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22725: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22726: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22727: raise OKL_API.G_EXCEPTION_ERROR;
22728: End If;
22721: p_status => 'NEW',
22722: p_cascade_lines => p_copy_lines_yn);
22723:
22724: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22725: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22726: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22727: raise OKL_API.G_EXCEPTION_ERROR;
22728: End If;
22729:
22722: p_cascade_lines => p_copy_lines_yn);
22723:
22724: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22725: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22726: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22727: raise OKL_API.G_EXCEPTION_ERROR;
22728: End If;
22729:
22730: -- apaul,Bug#4381642
22723:
22724: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22725: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22726: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22727: raise OKL_API.G_EXCEPTION_ERROR;
22728: End If;
22729:
22730: -- apaul,Bug#4381642
22731: -- Reset Securitized Flag
22743: p_khrv_rec => lp_khrv_rec,
22744: x_chrv_rec => lx_chrv_rec,
22745: x_khrv_rec => lx_khrv_rec);
22746:
22747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22750: RAISE OKL_API.G_EXCEPTION_ERROR;
22751: END IF;
22744: x_chrv_rec => lx_chrv_rec,
22745: x_khrv_rec => lx_khrv_rec);
22746:
22747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22750: RAISE OKL_API.G_EXCEPTION_ERROR;
22751: END IF;
22752: -- END,apaul,Bug#4381642
22745: x_khrv_rec => lx_khrv_rec);
22746:
22747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22750: RAISE OKL_API.G_EXCEPTION_ERROR;
22751: END IF;
22752: -- END,apaul,Bug#4381642
22753:
22746:
22747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22750: RAISE OKL_API.G_EXCEPTION_ERROR;
22751: END IF;
22752: -- END,apaul,Bug#4381642
22753:
22754: ElsIf l_scs_code = 'QUOTE' Then
22775: p_chr_id => x_chr_id,
22776: p_status => l_sts_code,
22777: p_cascade_lines => p_copy_lines_yn);
22778:
22779: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22780: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22781: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22782: raise OKL_API.G_EXCEPTION_ERROR;
22783: End If;
22776: p_status => l_sts_code,
22777: p_cascade_lines => p_copy_lines_yn);
22778:
22779: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22780: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22781: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22782: raise OKL_API.G_EXCEPTION_ERROR;
22783: End If;
22784:
22777: p_cascade_lines => p_copy_lines_yn);
22778:
22779: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22780: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22781: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22782: raise OKL_API.G_EXCEPTION_ERROR;
22783: End If;
22784:
22785: /*----Bug# 5591688 : Commenting as okl_quote_plans_pvt is stubbed in R12
22778:
22779: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22780: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22781: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22782: raise OKL_API.G_EXCEPTION_ERROR;
22783: End If;
22784:
22785: /*----Bug# 5591688 : Commenting as okl_quote_plans_pvt is stubbed in R12
22786: -- quotes are no longer copied using copy contract
22788: OKL_QUOTE_PLANS_PVT.modify_quote_structure
22789: ( p_api_version => p_api_version,
22790: p_init_msg_list => p_init_msg_list,
22791: --Bug# 3143522
22792: p_transaction_control => OKL_API.G_FALSE,
22793: p_chr_id => x_chr_id,
22794: p_modify_reason_code => 'COPY_QUOTE',
22795: x_chr_id => l_quote_chr_id,
22796: x_return_status => x_return_status,
22796: x_return_status => x_return_status,
22797: x_msg_count => x_msg_count,
22798: x_msg_data => x_msg_data);
22799:
22800: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22801: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22802: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22803: raise OKL_API.G_EXCEPTION_ERROR;
22804: End If;
22797: x_msg_count => x_msg_count,
22798: x_msg_data => x_msg_data);
22799:
22800: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22801: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22802: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22803: raise OKL_API.G_EXCEPTION_ERROR;
22804: End If;
22805: ------------------------End of commented code----------*/
22798: x_msg_data => x_msg_data);
22799:
22800: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22801: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22802: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22803: raise OKL_API.G_EXCEPTION_ERROR;
22804: End If;
22805: ------------------------End of commented code----------*/
22806:
22799:
22800: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22801: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22802: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22803: raise OKL_API.G_EXCEPTION_ERROR;
22804: End If;
22805: ------------------------End of commented code----------*/
22806:
22807: End If;
22810: -----------------------------------------------------------------------------
22811: --End of resetting the copied contract status to new
22812: -----------------------------------------------------------------------------
22813: --End Bug# 2555692
22814: OKL_API.END_ACTIVITY (x_msg_count,
22815: x_msg_data );
22816: EXCEPTION
22817: WHEN OKL_API.G_EXCEPTION_ERROR THEN
22818: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22813: --End Bug# 2555692
22814: OKL_API.END_ACTIVITY (x_msg_count,
22815: x_msg_data );
22816: EXCEPTION
22817: WHEN OKL_API.G_EXCEPTION_ERROR THEN
22818: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22819: l_api_name,
22820: G_PKG_NAME,
22821: 'OKL_API.G_RET_STS_ERROR',
22814: OKL_API.END_ACTIVITY (x_msg_count,
22815: x_msg_data );
22816: EXCEPTION
22817: WHEN OKL_API.G_EXCEPTION_ERROR THEN
22818: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22819: l_api_name,
22820: G_PKG_NAME,
22821: 'OKL_API.G_RET_STS_ERROR',
22822: x_msg_count,
22817: WHEN OKL_API.G_EXCEPTION_ERROR THEN
22818: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22819: l_api_name,
22820: G_PKG_NAME,
22821: 'OKL_API.G_RET_STS_ERROR',
22822: x_msg_count,
22823: x_msg_data,
22824: '_PVT');
22825: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
22821: 'OKL_API.G_RET_STS_ERROR',
22822: x_msg_count,
22823: x_msg_data,
22824: '_PVT');
22825: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
22826: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22827: l_api_name,
22828: G_PKG_NAME,
22829: 'OKL_API.G_RET_STS_UNEXP_ERROR',
22822: x_msg_count,
22823: x_msg_data,
22824: '_PVT');
22825: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
22826: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22827: l_api_name,
22828: G_PKG_NAME,
22829: 'OKL_API.G_RET_STS_UNEXP_ERROR',
22830: x_msg_count,
22825: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
22826: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22827: l_api_name,
22828: G_PKG_NAME,
22829: 'OKL_API.G_RET_STS_UNEXP_ERROR',
22830: x_msg_count,
22831: x_msg_data,
22832: '_PVT');
22833: WHEN OTHERS THEN
22830: x_msg_count,
22831: x_msg_data,
22832: '_PVT');
22833: WHEN OTHERS THEN
22834: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22835: l_api_name,
22836: G_PKG_NAME,
22837: 'OTHERS',
22838: x_msg_count,