[Home] [Help]
1386: l_cspv_rec.last_update_login;
1387: l_no_data_found := OKL_SLCTD_OPTNS_CSR%NOTFOUND;
1388: CLOSE OKL_SLCTD_OPTNS_CSR;
1389:
1390: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1391: IF (l_no_data_found) THEN
1392: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
1393: x_return_status := OKL_API.G_RET_STS_ERROR;
1394: END IF;
1388: CLOSE OKL_SLCTD_OPTNS_CSR;
1389:
1390: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1391: IF (l_no_data_found) THEN
1392: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
1393: x_return_status := OKL_API.G_RET_STS_ERROR;
1394: END IF;
1395:
1396: RETURN(l_cspv_rec);
1389:
1390: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1391: IF (l_no_data_found) THEN
1392: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
1393: x_return_status := OKL_API.G_RET_STS_ERROR;
1394: END IF;
1395:
1396: RETURN(l_cspv_rec);
1397: END get_cspv_rec;
1406: ) RETURN ppydv_rec_type IS
1407: l_ppydv_rec ppydv_rec_type;
1408: l_row_notfound BOOLEAN := TRUE;
1409: BEGIN
1410: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1411: l_ppydv_rec := get_ppydv_rec(p_ppydv_rec, l_row_notfound);
1412: IF (l_row_notfound) THEN
1413: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
1414: x_return_status := OKL_API.G_RET_STS_ERROR;
1409: BEGIN
1410: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1411: l_ppydv_rec := get_ppydv_rec(p_ppydv_rec, l_row_notfound);
1412: IF (l_row_notfound) THEN
1413: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
1414: x_return_status := OKL_API.G_RET_STS_ERROR;
1415: END IF;
1416: RETURN(l_ppydv_rec);
1417: END get_ppydv_rec;
1410: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1411: l_ppydv_rec := get_ppydv_rec(p_ppydv_rec, l_row_notfound);
1412: IF (l_row_notfound) THEN
1413: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
1414: x_return_status := OKL_API.G_RET_STS_ERROR;
1415: END IF;
1416: RETURN(l_ppydv_rec);
1417: END get_ppydv_rec;
1418: -----------------------------------------------------------
1441: l_get_pphv_rec pphv_rec_type;
1442: l_pphv_rec pphv_rec_type;
1443: lx_pphv_rec pphv_rec_type;
1444:
1445: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1446: l_api_name CONSTANT varchar2(30) := 'COPY_PARTY_PYMT_HDR';
1447: l_api_version CONSTANT NUMBER := 1.0;
1448:
1449: Begin
1446: l_api_name CONSTANT varchar2(30) := 'COPY_PARTY_PYMT_HDR';
1447: l_api_version CONSTANT NUMBER := 1.0;
1448:
1449: Begin
1450: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1451: -- Call start_activity to create savepoint, check compatibility
1452: -- and initialize message list
1453: x_return_status := OKL_API.START_ACTIVITY (
1454: l_api_name
1449: Begin
1450: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1451: -- Call start_activity to create savepoint, check compatibility
1452: -- and initialize message list
1453: x_return_status := OKL_API.START_ACTIVITY (
1454: l_api_name
1455: ,p_init_msg_list
1456: ,'_PVT'
1457: ,x_return_status);
1455: ,p_init_msg_list
1456: ,'_PVT'
1457: ,x_return_status);
1458: -- Check if activity started successfully
1459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1462: RAISE OKL_API.G_EXCEPTION_ERROR;
1463: END IF;
1456: ,'_PVT'
1457: ,x_return_status);
1458: -- Check if activity started successfully
1459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1462: RAISE OKL_API.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1457: ,x_return_status);
1458: -- Check if activity started successfully
1459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1462: RAISE OKL_API.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1465: l_get_pphv_rec.id := p_pph_id;
1458: -- Check if activity started successfully
1459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1462: RAISE OKL_API.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1465: l_get_pphv_rec.id := p_pph_id;
1466: l_pphv_rec := get_pphv_rec(p_pphv_rec => l_get_pphv_rec,
1467: x_return_status => x_return_status);
1468: l_pphv_rec.dnz_chr_id := p_chr_id;
1469: l_pphv_rec.cle_id := p_cle_id;
1470:
1471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1474: RAISE OKL_API.G_EXCEPTION_ERROR;
1475: END IF;
1468: l_pphv_rec.dnz_chr_id := p_chr_id;
1469: l_pphv_rec.cle_id := p_cle_id;
1470:
1471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1474: RAISE OKL_API.G_EXCEPTION_ERROR;
1475: END IF;
1476:
1469: l_pphv_rec.cle_id := p_cle_id;
1470:
1471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1474: RAISE OKL_API.G_EXCEPTION_ERROR;
1475: END IF;
1476:
1477: OKL_LDB_PVT.insert_row
1470:
1471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1474: RAISE OKL_API.G_EXCEPTION_ERROR;
1475: END IF;
1476:
1477: OKL_LDB_PVT.insert_row
1478: (p_api_version => p_api_version,
1482: x_msg_data => x_msg_data,
1483: p_pphv_rec => l_pphv_rec,
1484: x_pphv_rec => lx_pphv_rec);
1485:
1486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1489: RAISE OKL_API.G_EXCEPTION_ERROR;
1490: END IF;
1483: p_pphv_rec => l_pphv_rec,
1484: x_pphv_rec => lx_pphv_rec);
1485:
1486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1489: RAISE OKL_API.G_EXCEPTION_ERROR;
1490: END IF;
1491: x_pph_id := lx_pphv_rec.id;
1484: x_pphv_rec => lx_pphv_rec);
1485:
1486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1489: RAISE OKL_API.G_EXCEPTION_ERROR;
1490: END IF;
1491: x_pph_id := lx_pphv_rec.id;
1492:
1485:
1486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1489: RAISE OKL_API.G_EXCEPTION_ERROR;
1490: END IF;
1491: x_pph_id := lx_pphv_rec.id;
1492:
1493: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1489: RAISE OKL_API.G_EXCEPTION_ERROR;
1490: END IF;
1491: x_pph_id := lx_pphv_rec.id;
1492:
1493: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1494:
1495: EXCEPTION
1496:
1497: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1493: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1494:
1495: EXCEPTION
1496:
1497: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1498: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1499: l_api_name,
1500: G_PKG_NAME,
1501: 'OKL_API.G_RET_STS_ERROR',
1494:
1495: EXCEPTION
1496:
1497: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1498: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1499: l_api_name,
1500: G_PKG_NAME,
1501: 'OKL_API.G_RET_STS_ERROR',
1502: x_msg_count,
1497: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1498: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1499: l_api_name,
1500: G_PKG_NAME,
1501: 'OKL_API.G_RET_STS_ERROR',
1502: x_msg_count,
1503: x_msg_data,
1504: '_PVT');
1505: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1501: 'OKL_API.G_RET_STS_ERROR',
1502: x_msg_count,
1503: x_msg_data,
1504: '_PVT');
1505: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1506: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1507: l_api_name,
1508: G_PKG_NAME,
1509: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1502: x_msg_count,
1503: x_msg_data,
1504: '_PVT');
1505: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1506: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1507: l_api_name,
1508: G_PKG_NAME,
1509: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1510: x_msg_count,
1505: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1506: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1507: l_api_name,
1508: G_PKG_NAME,
1509: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1510: x_msg_count,
1511: x_msg_data,
1512: '_PVT');
1513: WHEN OTHERS THEN
1510: x_msg_count,
1511: x_msg_data,
1512: '_PVT');
1513: WHEN OTHERS THEN
1514: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1515: l_api_name,
1516: G_PKG_NAME,
1517: 'OTHERS',
1518: x_msg_count,
1541: x_msg_data OUT NOCOPY VARCHAR2,
1542: p_pyd_id IN NUMBER,
1543: p_cpl_id IN NUMBER,
1544: --furong 4350255
1545: p_pph_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
1546: --furong 4350255
1547: x_pyd_id OUT NOCOPY NUMBER) IS
1548:
1549: l_get_ppydv_rec ppydv_rec_type;
1549: l_get_ppydv_rec ppydv_rec_type;
1550: l_ppydv_rec ppydv_rec_type;
1551: lx_ppydv_rec ppydv_rec_type;
1552:
1553: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1554: l_api_name CONSTANT varchar2(30) := 'COPY_PARTY_PYMT_DTLS';
1555: l_api_version CONSTANT NUMBER := 1.0;
1556:
1557: Begin
1554: l_api_name CONSTANT varchar2(30) := 'COPY_PARTY_PYMT_DTLS';
1555: l_api_version CONSTANT NUMBER := 1.0;
1556:
1557: Begin
1558: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1559: -- Call start_activity to create savepoint, check compatibility
1560: -- and initialize message list
1561: x_return_status := OKL_API.START_ACTIVITY (
1562: l_api_name
1557: Begin
1558: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1559: -- Call start_activity to create savepoint, check compatibility
1560: -- and initialize message list
1561: x_return_status := OKL_API.START_ACTIVITY (
1562: l_api_name
1563: ,p_init_msg_list
1564: ,'_PVT'
1565: ,x_return_status);
1563: ,p_init_msg_list
1564: ,'_PVT'
1565: ,x_return_status);
1566: -- Check if activity started successfully
1567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1570: RAISE OKL_API.G_EXCEPTION_ERROR;
1571: END IF;
1564: ,'_PVT'
1565: ,x_return_status);
1566: -- Check if activity started successfully
1567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1570: RAISE OKL_API.G_EXCEPTION_ERROR;
1571: END IF;
1572:
1565: ,x_return_status);
1566: -- Check if activity started successfully
1567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1570: RAISE OKL_API.G_EXCEPTION_ERROR;
1571: END IF;
1572:
1573: l_get_ppydv_rec.id := p_pyd_id;
1566: -- Check if activity started successfully
1567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1570: RAISE OKL_API.G_EXCEPTION_ERROR;
1571: END IF;
1572:
1573: l_get_ppydv_rec.id := p_pyd_id;
1574: l_ppydv_rec := get_ppydv_rec(p_ppydv_rec => l_get_ppydv_rec,
1573: l_get_ppydv_rec.id := p_pyd_id;
1574: l_ppydv_rec := get_ppydv_rec(p_ppydv_rec => l_get_ppydv_rec,
1575: x_return_status => x_return_status);
1576:
1577: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1580: RAISE OKL_API.G_EXCEPTION_ERROR;
1581: END IF;
1574: l_ppydv_rec := get_ppydv_rec(p_ppydv_rec => l_get_ppydv_rec,
1575: x_return_status => x_return_status);
1576:
1577: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1580: RAISE OKL_API.G_EXCEPTION_ERROR;
1581: END IF;
1582:
1575: x_return_status => x_return_status);
1576:
1577: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1580: RAISE OKL_API.G_EXCEPTION_ERROR;
1581: END IF;
1582:
1583: --create party payment details
1576:
1577: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1580: RAISE OKL_API.G_EXCEPTION_ERROR;
1581: END IF;
1582:
1583: --create party payment details
1584: l_ppydv_rec.cpl_id := p_cpl_id;
1592: x_msg_data => x_msg_data,
1593: p_ppydv_rec => l_ppydv_rec,
1594: x_ppydv_rec => lx_ppydv_rec);
1595:
1596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1599: RAISE OKL_API.G_EXCEPTION_ERROR;
1600: END IF;
1593: p_ppydv_rec => l_ppydv_rec,
1594: x_ppydv_rec => lx_ppydv_rec);
1595:
1596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1599: RAISE OKL_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: x_pyd_id := lx_ppydv_rec.id;
1594: x_ppydv_rec => lx_ppydv_rec);
1595:
1596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1599: RAISE OKL_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: x_pyd_id := lx_ppydv_rec.id;
1602:
1595:
1596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1599: RAISE OKL_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: x_pyd_id := lx_ppydv_rec.id;
1602:
1603: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1599: RAISE OKL_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: x_pyd_id := lx_ppydv_rec.id;
1602:
1603: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1604:
1605: EXCEPTION
1606:
1607: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1603: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1604:
1605: EXCEPTION
1606:
1607: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1608: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1609: l_api_name,
1610: G_PKG_NAME,
1611: 'OKL_API.G_RET_STS_ERROR',
1604:
1605: EXCEPTION
1606:
1607: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1608: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1609: l_api_name,
1610: G_PKG_NAME,
1611: 'OKL_API.G_RET_STS_ERROR',
1612: x_msg_count,
1607: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1608: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1609: l_api_name,
1610: G_PKG_NAME,
1611: 'OKL_API.G_RET_STS_ERROR',
1612: x_msg_count,
1613: x_msg_data,
1614: '_PVT');
1615: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1611: 'OKL_API.G_RET_STS_ERROR',
1612: x_msg_count,
1613: x_msg_data,
1614: '_PVT');
1615: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1616: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1617: l_api_name,
1618: G_PKG_NAME,
1619: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1612: x_msg_count,
1613: x_msg_data,
1614: '_PVT');
1615: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1616: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1617: l_api_name,
1618: G_PKG_NAME,
1619: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1620: x_msg_count,
1615: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1616: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1617: l_api_name,
1618: G_PKG_NAME,
1619: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1620: x_msg_count,
1621: x_msg_data,
1622: '_PVT');
1623: WHEN OTHERS THEN
1620: x_msg_count,
1621: x_msg_data,
1622: '_PVT');
1623: WHEN OTHERS THEN
1624: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1625: l_api_name,
1626: G_PKG_NAME,
1627: 'OTHERS',
1628: x_msg_count,
1644: l_get_kplv_rec kplv_rec_type;
1645: l_kplv_rec kplv_rec_type;
1646: lx_kplv_rec kplv_rec_type;
1647:
1648: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1649: l_api_name CONSTANT varchar2(30) := 'COPY_OKL_K_PARTY_ROLES';
1650: l_api_version CONSTANT NUMBER := 1.0;
1651:
1652: Begin
1649: l_api_name CONSTANT varchar2(30) := 'COPY_OKL_K_PARTY_ROLES';
1650: l_api_version CONSTANT NUMBER := 1.0;
1651:
1652: Begin
1653: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1654: -- Call start_activity to create savepoint, check compatibility
1655: -- and initialize message list
1656: x_return_status := OKL_API.START_ACTIVITY (
1657: l_api_name
1652: Begin
1653: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1654: -- Call start_activity to create savepoint, check compatibility
1655: -- and initialize message list
1656: x_return_status := OKL_API.START_ACTIVITY (
1657: l_api_name
1658: ,p_init_msg_list
1659: ,'_PVT'
1660: ,x_return_status);
1658: ,p_init_msg_list
1659: ,'_PVT'
1660: ,x_return_status);
1661: -- Check if activity started successfully
1662: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1665: RAISE OKL_API.G_EXCEPTION_ERROR;
1666: END IF;
1659: ,'_PVT'
1660: ,x_return_status);
1661: -- Check if activity started successfully
1662: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1665: RAISE OKL_API.G_EXCEPTION_ERROR;
1666: END IF;
1667:
1660: ,x_return_status);
1661: -- Check if activity started successfully
1662: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1665: RAISE OKL_API.G_EXCEPTION_ERROR;
1666: END IF;
1667:
1668: l_get_kplv_rec.id := p_kpl_id;
1661: -- Check if activity started successfully
1662: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1665: RAISE OKL_API.G_EXCEPTION_ERROR;
1666: END IF;
1667:
1668: l_get_kplv_rec.id := p_kpl_id;
1669: l_kplv_rec := get_kplv_rec(p_kplv_rec => l_get_kplv_rec,
1669: l_kplv_rec := get_kplv_rec(p_kplv_rec => l_get_kplv_rec,
1670: x_return_status => x_return_status);
1671: l_kplv_rec.id := p_cpl_id;
1672:
1673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1670: x_return_status => x_return_status);
1671: l_kplv_rec.id := p_cpl_id;
1672:
1673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1678:
1671: l_kplv_rec.id := p_cpl_id;
1672:
1673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1678:
1679: OKL_KPL_PVT.insert_row
1672:
1673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1678:
1679: OKL_KPL_PVT.insert_row
1680: (p_api_version => p_api_version,
1684: x_msg_data => x_msg_data,
1685: p_kplv_rec => l_kplv_rec,
1686: x_kplv_rec => lx_kplv_rec);
1687:
1688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1691: RAISE OKL_API.G_EXCEPTION_ERROR;
1692: END IF;
1685: p_kplv_rec => l_kplv_rec,
1686: x_kplv_rec => lx_kplv_rec);
1687:
1688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1691: RAISE OKL_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: x_kpl_id := lx_kplv_rec.id;
1686: x_kplv_rec => lx_kplv_rec);
1687:
1688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1691: RAISE OKL_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: x_kpl_id := lx_kplv_rec.id;
1694:
1687:
1688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1691: RAISE OKL_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: x_kpl_id := lx_kplv_rec.id;
1694:
1695: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1691: RAISE OKL_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: x_kpl_id := lx_kplv_rec.id;
1694:
1695: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1696:
1697: EXCEPTION
1698:
1699: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1695: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1696:
1697: EXCEPTION
1698:
1699: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1700: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1701: l_api_name,
1702: G_PKG_NAME,
1703: 'OKL_API.G_RET_STS_ERROR',
1696:
1697: EXCEPTION
1698:
1699: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1700: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1701: l_api_name,
1702: G_PKG_NAME,
1703: 'OKL_API.G_RET_STS_ERROR',
1704: x_msg_count,
1699: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1700: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1701: l_api_name,
1702: G_PKG_NAME,
1703: 'OKL_API.G_RET_STS_ERROR',
1704: x_msg_count,
1705: x_msg_data,
1706: '_PVT');
1707: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1703: 'OKL_API.G_RET_STS_ERROR',
1704: x_msg_count,
1705: x_msg_data,
1706: '_PVT');
1707: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1708: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1709: l_api_name,
1710: G_PKG_NAME,
1711: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1704: x_msg_count,
1705: x_msg_data,
1706: '_PVT');
1707: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1708: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1709: l_api_name,
1710: G_PKG_NAME,
1711: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1712: x_msg_count,
1707: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1708: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1709: l_api_name,
1710: G_PKG_NAME,
1711: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1712: x_msg_count,
1713: x_msg_data,
1714: '_PVT');
1715: WHEN OTHERS THEN
1712: x_msg_count,
1713: x_msg_data,
1714: '_PVT');
1715: WHEN OTHERS THEN
1716: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1717: l_api_name,
1718: G_PKG_NAME,
1719: 'OTHERS',
1720: x_msg_count,
1736: -- End of comments
1737: --------------------------------------------------------------------------------
1738: Procedure Catchup_okl_contract_line(
1739: p_api_version IN NUMBER,
1740: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1741: x_return_status OUT NOCOPY VARCHAR2,
1742: x_msg_count OUT NOCOPY NUMBER,
1743: x_msg_data OUT NOCOPY VARCHAR2,
1744: p_clev_id IN NUMBER,
1745: p_klev_id IN NUMBER,
1746: x_clev_rec OUT NOCOPY okl_okc_migration_pvt.clev_rec_type,
1747: x_klev_rec OUT NOCOPY klev_rec_type) is
1748:
1749: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1750: l_api_name CONSTANT VARCHAR2(30) := 'CATCHUP_OKL_CONTRACT_LINE';
1751: l_api_version CONSTANT NUMBER := 1.0;
1752: l_clev_rec clev_rec_type;
1753: l_clev_rec_out clev_rec_type;
1758: -- Catch up shadow for Contract Lines
1759: l_clev_rec := get_clev_rec(p_clev_id => p_klev_id);
1760: -- get the newly created line record
1761: /*
1762: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1764: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1765: RAISE OKL_API.G_EXCEPTION_ERROR;
1766: END IF;
1759: l_clev_rec := get_clev_rec(p_clev_id => p_klev_id);
1760: -- get the newly created line record
1761: /*
1762: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1764: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1765: RAISE OKL_API.G_EXCEPTION_ERROR;
1766: END IF;
1767: */
1760: -- get the newly created line record
1761: /*
1762: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1764: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1765: RAISE OKL_API.G_EXCEPTION_ERROR;
1766: END IF;
1767: */
1768: l_klev_rec := get_klev_rec(p_klev_id => p_clev_id);
1761: /*
1762: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1764: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1765: RAISE OKL_API.G_EXCEPTION_ERROR;
1766: END IF;
1767: */
1768: l_klev_rec := get_klev_rec(p_klev_id => p_clev_id);
1769: --get klev record to copy from
1779: p_klev_rec => l_klev_rec,
1780: x_clev_rec => l_clev_rec_out,
1781: x_klev_rec => x_klev_rec);
1782: -- check return status
1783: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1784: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1785: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1786: raise OKL_API.G_EXCEPTION_ERROR;
1787: End If;
1780: x_clev_rec => l_clev_rec_out,
1781: x_klev_rec => x_klev_rec);
1782: -- check return status
1783: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1784: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1785: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1786: raise OKL_API.G_EXCEPTION_ERROR;
1787: End If;
1788:
1781: x_klev_rec => x_klev_rec);
1782: -- check return status
1783: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1784: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1785: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1786: raise OKL_API.G_EXCEPTION_ERROR;
1787: End If;
1788:
1789: --Call End Activity
1782: -- check return status
1783: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1784: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1785: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1786: raise OKL_API.G_EXCEPTION_ERROR;
1787: End If;
1788:
1789: --Call End Activity
1790: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1786: raise OKL_API.G_EXCEPTION_ERROR;
1787: End If;
1788:
1789: --Call End Activity
1790: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1791: x_msg_data => x_msg_data);
1792: EXCEPTION
1793: when OKL_API.G_EXCEPTION_ERROR then
1794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1789: --Call End Activity
1790: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1791: x_msg_data => x_msg_data);
1792: EXCEPTION
1793: when OKL_API.G_EXCEPTION_ERROR then
1794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1795: p_api_name => l_api_name,
1796: p_pkg_name => g_pkg_name,
1797: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1790: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1791: x_msg_data => x_msg_data);
1792: EXCEPTION
1793: when OKL_API.G_EXCEPTION_ERROR then
1794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1795: p_api_name => l_api_name,
1796: p_pkg_name => g_pkg_name,
1797: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1798: x_msg_count => x_msg_count,
1793: when OKL_API.G_EXCEPTION_ERROR then
1794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1795: p_api_name => l_api_name,
1796: p_pkg_name => g_pkg_name,
1797: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1798: x_msg_count => x_msg_count,
1799: x_msg_data => x_msg_data,
1800: p_api_type => g_api_type);
1801:
1798: x_msg_count => x_msg_count,
1799: x_msg_data => x_msg_data,
1800: p_api_type => g_api_type);
1801:
1802: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1803: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1804: p_api_name => l_api_name,
1805: p_pkg_name => g_pkg_name,
1806: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1799: x_msg_data => x_msg_data,
1800: p_api_type => g_api_type);
1801:
1802: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1803: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1804: p_api_name => l_api_name,
1805: p_pkg_name => g_pkg_name,
1806: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1807: x_msg_count => x_msg_count,
1802: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1803: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1804: p_api_name => l_api_name,
1805: p_pkg_name => g_pkg_name,
1806: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1807: x_msg_count => x_msg_count,
1808: x_msg_data => x_msg_data,
1809: p_api_type => g_api_type);
1810:
1808: x_msg_data => x_msg_data,
1809: p_api_type => g_api_type);
1810:
1811: when OTHERS then
1812: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1813: p_api_name => l_api_name,
1814: p_pkg_name => g_pkg_name,
1815: p_exc_name => 'OTHERS',
1816: x_msg_count => x_msg_count,
1860: -- End of comments
1861: --------------------------------------------------------------------------------
1862: PROCEDURE copy_components(
1863: p_api_version IN NUMBER,
1864: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1865: x_return_status OUT NOCOPY VARCHAR2,
1866: x_msg_count OUT NOCOPY NUMBER,
1867: x_msg_data OUT NOCOPY VARCHAR2,
1868: p_from_chr_id IN NUMBER,
1877: p_prospect IN VARCHAR2,
1878: p_components_tbl IN api_components_tbl,
1879: p_lines_tbl IN api_lines_tbl,
1880: x_chr_id OUT NOCOPY NUMBER) is
1881: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1882: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_COMPONENTS';
1883: l_api_version CONSTANT NUMBER := 1.0;
1884:
1885: l_components_tbl api_components_tbl_okc;
1885: l_components_tbl api_components_tbl_okc;
1886: l_lines_tbl api_lines_tbl_okc;
1887: begin
1888: -----
1889: --Call OKL_API.START_ACTIVITY to set savepoints
1890: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
1891: G_PKG_NAME,
1892: p_init_msg_list,
1893: G_API_VERSION,
1886: l_lines_tbl api_lines_tbl_okc;
1887: begin
1888: -----
1889: --Call OKL_API.START_ACTIVITY to set savepoints
1890: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
1891: G_PKG_NAME,
1892: p_init_msg_list,
1893: G_API_VERSION,
1894: p_api_version,
1894: p_api_version,
1895: G_SCOPE,
1896: x_return_status);
1897:
1898: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1901: RAISE OKL_API.G_EXCEPTION_ERROR;
1902: END IF;
1895: G_SCOPE,
1896: x_return_status);
1897:
1898: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1901: RAISE OKL_API.G_EXCEPTION_ERROR;
1902: END IF;
1903:
1896: x_return_status);
1897:
1898: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1901: RAISE OKL_API.G_EXCEPTION_ERROR;
1902: END IF;
1903:
1904: l_components_tbl := migrate_components_tbl(p_components_tbl);
1897:
1898: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1901: RAISE OKL_API.G_EXCEPTION_ERROR;
1902: END IF;
1903:
1904: l_components_tbl := migrate_components_tbl(p_components_tbl);
1905: l_lines_tbl := migrate_lines_tbl(p_lines_tbl);
1924: p_lines_tbl => l_lines_tbl,
1925: x_chr_id => x_chr_id);
1926:
1927: -- check return status
1928: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1929: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1930: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1931: raise OKL_API.G_EXCEPTION_ERROR;
1932: End If;
1925: x_chr_id => x_chr_id);
1926:
1927: -- check return status
1928: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1929: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1930: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1931: raise OKL_API.G_EXCEPTION_ERROR;
1932: End If;
1933:
1926:
1927: -- check return status
1928: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1929: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1930: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1931: raise OKL_API.G_EXCEPTION_ERROR;
1932: End If;
1933:
1934: --Call End Activity
1927: -- check return status
1928: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1929: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1930: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
1931: raise OKL_API.G_EXCEPTION_ERROR;
1932: End If;
1933:
1934: --Call End Activity
1935: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1931: raise OKL_API.G_EXCEPTION_ERROR;
1932: End If;
1933:
1934: --Call End Activity
1935: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1936: x_msg_data => x_msg_data);
1937: EXCEPTION
1938: when OKL_API.G_EXCEPTION_ERROR then
1939: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1934: --Call End Activity
1935: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1936: x_msg_data => x_msg_data);
1937: EXCEPTION
1938: when OKL_API.G_EXCEPTION_ERROR then
1939: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1940: p_api_name => l_api_name,
1941: p_pkg_name => g_pkg_name,
1942: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1935: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1936: x_msg_data => x_msg_data);
1937: EXCEPTION
1938: when OKL_API.G_EXCEPTION_ERROR then
1939: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1940: p_api_name => l_api_name,
1941: p_pkg_name => g_pkg_name,
1942: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1943: x_msg_count => x_msg_count,
1938: when OKL_API.G_EXCEPTION_ERROR then
1939: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1940: p_api_name => l_api_name,
1941: p_pkg_name => g_pkg_name,
1942: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1943: x_msg_count => x_msg_count,
1944: x_msg_data => x_msg_data,
1945: p_api_type => g_api_type);
1946:
1943: x_msg_count => x_msg_count,
1944: x_msg_data => x_msg_data,
1945: p_api_type => g_api_type);
1946:
1947: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1948: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1949: p_api_name => l_api_name,
1950: p_pkg_name => g_pkg_name,
1951: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1944: x_msg_data => x_msg_data,
1945: p_api_type => g_api_type);
1946:
1947: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1948: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1949: p_api_name => l_api_name,
1950: p_pkg_name => g_pkg_name,
1951: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1952: x_msg_count => x_msg_count,
1947: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1948: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1949: p_api_name => l_api_name,
1950: p_pkg_name => g_pkg_name,
1951: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1952: x_msg_count => x_msg_count,
1953: x_msg_data => x_msg_data,
1954: p_api_type => g_api_type);
1955:
1953: x_msg_data => x_msg_data,
1954: p_api_type => g_api_type);
1955:
1956: when OTHERS then
1957: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1958: p_api_name => l_api_name,
1959: p_pkg_name => g_pkg_name,
1960: p_exc_name => 'OTHERS',
1961: x_msg_count => x_msg_count,
2242: -- Get SLH Rule from OLD Contract
2243: --
2244: Okl_Rule_Apis_Pvt.Get_Contract_Rules(
2245: p_api_version => 1.0,
2246: p_init_msg_list => Okl_Api.G_FALSE,
2247: p_rgpv_rec => l_old_rgpv_rec,
2248: --Bug# 3124577: 11.5.10 Rule Migration
2249: p_rdf_code => 'LASLH',
2250: --p_rdf_code => 'SLH',
2412: p_old_rgp_id => l_old_lalevl_id,
2413: p_new_rgp_id => l_new_lalevl_id
2414: );
2415: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2416: RAISE Okl_Api.G_EXCEPTION_ERROR;
2417: END IF;
2418: END LOOP;
2419:
2420: EXCEPTION
2498: p_old_rgp_id => l_old_lalevl_id,
2499: p_new_rgp_id => l_new_lalevl_id
2500: );
2501: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2502: raise OKL_API.G_EXCEPTION_ERROR;
2503: END IF;
2504: END LOOP;
2505:
2506: EXCEPTION
2557: l_source_cle_id OKC_K_LINES_B.ID%TYPE;
2558: l_chr_id OKC_K_HEADERS_B.ID%TYPE;
2559:
2560: Begin
2561: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2562: l_chr_id := p_chr_id;
2563: OPEN abnd_tls_csr(p_copied_chr_id => l_chr_id);
2564: LOOP
2565: FETCH abnd_tls_csr into l_cle_id, l_source_cle_id;
2570: x_return_status => x_return_status,
2571: x_msg_count => x_msg_count,
2572: x_msg_data => x_msg_data,
2573: p_line_id => l_cle_id);
2574: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
2575: RAISE G_EXCEPTION_HALT_PROCESS;
2576: End If;
2577: END LOOP;
2578: CLOSE abnd_tls_csr;
2587: x_return_status => x_return_status,
2588: x_msg_count => x_msg_count,
2589: x_msg_data => x_msg_data,
2590: p_line_id => l_cle_id);
2591: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
2592: RAISE G_EXCEPTION_HALT_PROCESS;
2593: End If;
2594: END LOOP;
2595: CLOSE abnd_sls_csr;
2609: End If;
2610: If abnd_sls_csr%ISOPEN Then
2611: CLOSE abnd_sls_csr;
2612: End If;
2613: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2614: End cleanup_abandoned_lines;
2615:
2616: --
2617: --Bug# 2522268 End
2655: l_source_cle_id OKC_K_LINES_B.ID%TYPE;
2656: l_chr_id OKC_K_HEADERS_B.ID%TYPE;
2657:
2658: Begin
2659: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2660: l_chr_id := p_chr_id;
2661: OPEN roll_tls_csr(p_copied_chr_id => l_chr_id);
2662: LOOP
2663: FETCH roll_tls_csr into l_cle_id, l_source_cle_id;
2668: x_return_status => x_return_status,
2669: x_msg_count => x_msg_count,
2670: x_msg_data => x_msg_data,
2671: p_line_id => l_cle_id);
2672: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
2673: RAISE G_EXCEPTION_HALT_PROCESS;
2674: End If;
2675: END LOOP;
2676: CLOSE roll_tls_csr;
2685: WHEN OTHERS Then
2686: If roll_tls_csr%ISOPEN Then
2687: CLOSE roll_tls_csr;
2688: End If;
2689: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2690: End cleanup_rollover_lines;
2691:
2692:
2693: -- bug 3630858
2704: -- End of comments
2705: --------------------------------------------------------------------------------
2706: PROCEDURE copy_product_options
2707: (p_api_version IN NUMBER,
2708: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2709: x_return_status OUT NOCOPY VARCHAR2,
2710: x_msg_count OUT NOCOPY NUMBER,
2711: x_msg_data OUT NOCOPY VARCHAR2,
2712: p_new_khr_id IN NUMBER,
2713: p_cspv_id IN NUMBER,
2714: x_cspv_id OUT NOCOPY NUMBER
2715: ) IS
2716: --local variables
2717: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2718: l_api_name CONSTANT VARCHAR2(30) := 'COPY_PRODUCT_OPTIONS';
2719: l_api_version CONSTANT NUMBER := 1.0;
2720: l_cspv_id NUMBER;
2721: p_cspv_rec cspv_rec_type;
2723: lx_cspv_rec cspv_rec_type;
2724:
2725:
2726: Begin
2727: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2728: -- Call start_activity to create savepoint, check compatibility
2729: -- and initialize message list
2730: x_return_status := OKL_API.START_ACTIVITY (
2731: l_api_name
2726: Begin
2727: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2728: -- Call start_activity to create savepoint, check compatibility
2729: -- and initialize message list
2730: x_return_status := OKL_API.START_ACTIVITY (
2731: l_api_name
2732: ,p_init_msg_list
2733: ,'_PVT'
2734: ,x_return_status);
2732: ,p_init_msg_list
2733: ,'_PVT'
2734: ,x_return_status);
2735: -- Check if activity started successfully
2736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2739: RAISE OKL_API.G_EXCEPTION_ERROR;
2740: END IF;
2733: ,'_PVT'
2734: ,x_return_status);
2735: -- Check if activity started successfully
2736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2739: RAISE OKL_API.G_EXCEPTION_ERROR;
2740: END IF;
2741:
2734: ,x_return_status);
2735: -- Check if activity started successfully
2736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2739: RAISE OKL_API.G_EXCEPTION_ERROR;
2740: END IF;
2741:
2742: l_cspv_id := p_cspv_id;
2735: -- Check if activity started successfully
2736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2739: RAISE OKL_API.G_EXCEPTION_ERROR;
2740: END IF;
2741:
2742: l_cspv_id := p_cspv_id;
2743: l_cspv_rec := get_cspv_rec(p_cspv_rec_id => l_cspv_id,
2743: l_cspv_rec := get_cspv_rec(p_cspv_rec_id => l_cspv_id,
2744: x_return_status => x_return_status
2745: );
2746:
2747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2750: RAISE OKL_API.G_EXCEPTION_ERROR;
2751: END IF;
2744: x_return_status => x_return_status
2745: );
2746:
2747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2750: RAISE OKL_API.G_EXCEPTION_ERROR;
2751: END IF;
2752:
2745: );
2746:
2747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2750: RAISE OKL_API.G_EXCEPTION_ERROR;
2751: END IF;
2752:
2753: --create selected product options
2746:
2747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2750: RAISE OKL_API.G_EXCEPTION_ERROR;
2751: END IF;
2752:
2753: --create selected product options
2754: l_cspv_rec.khr_id := p_new_khr_id;
2762: x_msg_data => x_msg_data,
2763: p_cspv_rec => l_cspv_rec,
2764: x_cspv_rec => lx_cspv_rec);
2765:
2766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2769: RAISE OKL_API.G_EXCEPTION_ERROR;
2770: END IF;
2763: p_cspv_rec => l_cspv_rec,
2764: x_cspv_rec => lx_cspv_rec);
2765:
2766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2769: RAISE OKL_API.G_EXCEPTION_ERROR;
2770: END IF;
2771:
2764: x_cspv_rec => lx_cspv_rec);
2765:
2766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2769: RAISE OKL_API.G_EXCEPTION_ERROR;
2770: END IF;
2771:
2772: x_cspv_id := lx_cspv_rec.id;
2765:
2766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2769: RAISE OKL_API.G_EXCEPTION_ERROR;
2770: END IF;
2771:
2772: x_cspv_id := lx_cspv_rec.id;
2773:
2770: END IF;
2771:
2772: x_cspv_id := lx_cspv_rec.id;
2773:
2774: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2775:
2776: EXCEPTION
2777:
2778: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2774: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2775:
2776: EXCEPTION
2777:
2778: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2779: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2780: l_api_name,
2781: G_PKG_NAME,
2782: 'OKL_API.G_RET_STS_ERROR',
2775:
2776: EXCEPTION
2777:
2778: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2779: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2780: l_api_name,
2781: G_PKG_NAME,
2782: 'OKL_API.G_RET_STS_ERROR',
2783: x_msg_count,
2778: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2779: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2780: l_api_name,
2781: G_PKG_NAME,
2782: 'OKL_API.G_RET_STS_ERROR',
2783: x_msg_count,
2784: x_msg_data,
2785: '_PVT');
2786: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2782: 'OKL_API.G_RET_STS_ERROR',
2783: x_msg_count,
2784: x_msg_data,
2785: '_PVT');
2786: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2787: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2788: l_api_name,
2789: G_PKG_NAME,
2790: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2783: x_msg_count,
2784: x_msg_data,
2785: '_PVT');
2786: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2787: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2788: l_api_name,
2789: G_PKG_NAME,
2790: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2791: x_msg_count,
2786: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2787: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2788: l_api_name,
2789: G_PKG_NAME,
2790: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2791: x_msg_count,
2792: x_msg_data,
2793: '_PVT');
2794: WHEN OTHERS THEN
2791: x_msg_count,
2792: x_msg_data,
2793: '_PVT');
2794: WHEN OTHERS THEN
2795: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2796: l_api_name,
2797: G_PKG_NAME,
2798: 'OTHERS',
2799: x_msg_count,
2818: -- End of comments
2819: --------------------------------------------------------------------------------
2820: PROCEDURE copy_contract(
2821: p_api_version IN NUMBER,
2822: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2823: x_return_status OUT NOCOPY VARCHAR2,
2824: x_msg_count OUT NOCOPY NUMBER,
2825: x_msg_data OUT NOCOPY VARCHAR2,
2826: p_commit IN VARCHAR2 DEFAULT 'F',
2832: p_copy_lines_yn IN VARCHAR2,
2833: p_override_org IN VARCHAR2 DEFAULT 'N',
2834: x_chr_id OUT NOCOPY NUMBER) IS
2835: --local variables
2836: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2837: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_CONTRACT';
2838: l_api_version CONSTANT NUMBER := 1.0;
2839: l_chrv_rec chrv_rec_type;
2840: l_chrv_rec_out chrv_rec_type;
2922: --Bug# 3143522
2923: -----------------------
2924: Begin
2925: -----
2926: --Call OKL_API.START_ACTIVITY to set savepoints
2927: --dbms_output.put_line('before call to start activity '||to_char(p_chr_id));
2928: --dbms_output.put_line(l_api_name||G_SCOPE);
2929: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
2930: G_PKG_NAME,
2925: -----
2926: --Call OKL_API.START_ACTIVITY to set savepoints
2927: --dbms_output.put_line('before call to start activity '||to_char(p_chr_id));
2928: --dbms_output.put_line(l_api_name||G_SCOPE);
2929: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
2930: G_PKG_NAME,
2931: p_init_msg_list,
2932: G_API_VERSION,
2933: p_api_version,
2933: p_api_version,
2934: G_SCOPE,
2935: x_return_status);
2936: --dbms_output.put_line('after call to start activity '||to_char(p_chr_id));
2937: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2939: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2940: RAISE OKL_API.G_EXCEPTION_ERROR;
2941: END IF;
2934: G_SCOPE,
2935: x_return_status);
2936: --dbms_output.put_line('after call to start activity '||to_char(p_chr_id));
2937: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2939: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2940: RAISE OKL_API.G_EXCEPTION_ERROR;
2941: END IF;
2942: --Call OKC_COPY_CONTRACT_PUB.Copy_Contract
2935: x_return_status);
2936: --dbms_output.put_line('after call to start activity '||to_char(p_chr_id));
2937: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2939: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2940: RAISE OKL_API.G_EXCEPTION_ERROR;
2941: END IF;
2942: --Call OKC_COPY_CONTRACT_PUB.Copy_Contract
2943: --dbms_output.put_line('before okc_copy p_chr_id '||to_char(p_chr_id));
2936: --dbms_output.put_line('after call to start activity '||to_char(p_chr_id));
2937: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2939: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2940: RAISE OKL_API.G_EXCEPTION_ERROR;
2941: END IF;
2942: --Call OKC_COPY_CONTRACT_PUB.Copy_Contract
2943: --dbms_output.put_line('before okc_copy p_chr_id '||to_char(p_chr_id));
2944: OKC_COPY_CONTRACT_PUB.copy_contract(
2961:
2962: --dbms_output.put_line('Chr id after copy to okc header '||to_char(x_chr_id));
2963: --dbms_output.put_line('Return Status copy to okc header '||l_return_status||' '||x_msg_data);
2964: -- check return status
2965: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2966: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2967: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
2968: raise OKL_API.G_EXCEPTION_ERROR;
2969: End If;
2962: --dbms_output.put_line('Chr id after copy to okc header '||to_char(x_chr_id));
2963: --dbms_output.put_line('Return Status copy to okc header '||l_return_status||' '||x_msg_data);
2964: -- check return status
2965: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2966: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2967: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
2968: raise OKL_API.G_EXCEPTION_ERROR;
2969: End If;
2970: --------------------------------------------------------------------------------
2963: --dbms_output.put_line('Return Status copy to okc header '||l_return_status||' '||x_msg_data);
2964: -- check return status
2965: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2966: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2967: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
2968: raise OKL_API.G_EXCEPTION_ERROR;
2969: End If;
2970: --------------------------------------------------------------------------------
2971: --Catch Up Shadow for Contract Header :
2964: -- check return status
2965: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2966: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2967: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
2968: raise OKL_API.G_EXCEPTION_ERROR;
2969: End If;
2970: --------------------------------------------------------------------------------
2971: --Catch Up Shadow for Contract Header :
2972: l_chr_id_2 := x_chr_id;
2975: --dbms_output.put_line(' chr id after fetch '||l_chrv_rec.id);
2976: --dbms_output.put_line(' khr id after fetch '||l_khrv_rec.id);
2977: --If OKL does not have a shadow do not proceed to
2978: --catchup on shadow
2979: If l_khrv_rec.id = OKL_API.G_MISS_NUM then
2980: null;
2981: Else
2982: l_khrv_rec.id := x_chr_id;
2983: -- Create record into okl_contract_header
2986: p_init_msg_list => p_init_msg_list,
2987: x_return_status => l_return_status,
2988: x_msg_count => x_msg_count,
2989: x_msg_data => x_msg_data,
2990: p_restricted_update => OKL_API.G_FALSE,
2991: p_chrv_rec => l_chrv_rec,
2992: p_khrv_rec => l_khrv_rec,
2993: x_chrv_rec => l_chrv_rec_out,
2994: x_khrv_rec => l_khrv_rec_out);
2994: x_khrv_rec => l_khrv_rec_out);
2995: --dbms_output.put_line('return status '||l_return_status);
2996: --dbms_output.put_line('After create okl record okc hdr id'||to_char(l_chrv_rec_out.id));
2997: -- check return status
2998: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2999: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3000: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3001: raise OKL_API.G_EXCEPTION_ERROR;
3002: End If;
2995: --dbms_output.put_line('return status '||l_return_status);
2996: --dbms_output.put_line('After create okl record okc hdr id'||to_char(l_chrv_rec_out.id));
2997: -- check return status
2998: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2999: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3000: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3001: raise OKL_API.G_EXCEPTION_ERROR;
3002: End If;
3003:
2996: --dbms_output.put_line('After create okl record okc hdr id'||to_char(l_chrv_rec_out.id));
2997: -- check return status
2998: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2999: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3000: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3001: raise OKL_API.G_EXCEPTION_ERROR;
3002: End If;
3003:
3004: --------------------------------------------------------------------------------------
2997: -- check return status
2998: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2999: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3000: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3001: raise OKL_API.G_EXCEPTION_ERROR;
3002: End If;
3003:
3004: --------------------------------------------------------------------------------------
3005: --BUG# 3143522 : 11.5.10 Subsidies - copy party payment details
3024: x_pyd_id => lx_pyd_id);
3025:
3026:
3027:
3028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3031: RAISE OKL_API.G_EXCEPTION_ERROR;
3032: END IF;
3025:
3026:
3027:
3028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3031: RAISE OKL_API.G_EXCEPTION_ERROR;
3032: END IF;
3033:
3026:
3027:
3028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3031: RAISE OKL_API.G_EXCEPTION_ERROR;
3032: END IF;
3033:
3034: End Loop;
3027:
3028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3031: RAISE OKL_API.G_EXCEPTION_ERROR;
3032: END IF;
3033:
3034: End Loop;
3035: Close l_hdrpyd_csr;
3057: x_clev_rec => l_clev_rec_out,
3058: x_klev_rec => l_klev_rec_out
3059: );
3060: -- check return status
3061: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3062: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3063: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3064: raise OKL_API.G_EXCEPTION_ERROR;
3065: End If;
3058: x_klev_rec => l_klev_rec_out
3059: );
3060: -- check return status
3061: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3062: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3063: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3064: raise OKL_API.G_EXCEPTION_ERROR;
3065: End If;
3066:
3059: );
3060: -- check return status
3061: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3062: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3063: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3064: raise OKL_API.G_EXCEPTION_ERROR;
3065: End If;
3066:
3067: --------------------------------------------------------------------------------------
3060: -- check return status
3061: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3062: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3063: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3064: raise OKL_API.G_EXCEPTION_ERROR;
3065: End If;
3066:
3067: --------------------------------------------------------------------------------------
3068: --BUG# 3143522 : 11.5.10 Subsidies - copy party payment details
3089: x_pyd_id => lx_pyd_id);
3090:
3091:
3092:
3093: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3095: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3096: RAISE OKL_API.G_EXCEPTION_ERROR;
3097: END IF;
3090:
3091:
3092:
3093: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3095: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3096: RAISE OKL_API.G_EXCEPTION_ERROR;
3097: END IF;
3098:
3091:
3092:
3093: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3095: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3096: RAISE OKL_API.G_EXCEPTION_ERROR;
3097: END IF;
3098:
3099: End Loop;
3092:
3093: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3095: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3096: RAISE OKL_API.G_EXCEPTION_ERROR;
3097: END IF;
3098:
3099: End Loop;
3100: Close l_clepyd_csr;
3113: x_return_status => x_return_Status,
3114: x_msg_count => x_msg_count,
3115: x_msg_data => x_msg_data,
3116: p_chr_id => x_chr_id);
3117: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3118: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3119: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3120: raise OKL_API.G_EXCEPTION_ERROR;
3121: End If;
3114: x_msg_count => x_msg_count,
3115: x_msg_data => x_msg_data,
3116: p_chr_id => x_chr_id);
3117: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3118: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3119: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3120: raise OKL_API.G_EXCEPTION_ERROR;
3121: End If;
3122: --
3115: x_msg_data => x_msg_data,
3116: p_chr_id => x_chr_id);
3117: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3118: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3119: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3120: raise OKL_API.G_EXCEPTION_ERROR;
3121: End If;
3122: --
3123: --Bug# 2522268 End
3116: p_chr_id => x_chr_id);
3117: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3118: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3119: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3120: raise OKL_API.G_EXCEPTION_ERROR;
3121: End If;
3122: --
3123: --Bug# 2522268 End
3124: --
3139: );
3140:
3141:
3142: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3143: RAISE OKL_API.G_EXCEPTION_ERROR;
3144: END IF;
3145: --Call OKC_COPY_CONTRACT_PUB.Copy_Components
3146: -- do not do this again as this might already be done as part of OKC_COPY_CONTRACT
3147: /*
3164: p_components_tbl => p_components_tbl,
3165: p_lines_tbl => p_lines_tbl,
3166: x_chr_id => l_chr_id);
3167: -- check return status
3168: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3169: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3170: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3171: raise OKL_API.G_EXCEPTION_ERROR;
3172: End If;
3165: p_lines_tbl => p_lines_tbl,
3166: x_chr_id => l_chr_id);
3167: -- check return status
3168: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3169: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3170: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3171: raise OKL_API.G_EXCEPTION_ERROR;
3172: End If;
3173: */
3166: x_chr_id => l_chr_id);
3167: -- check return status
3168: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3169: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3170: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3171: raise OKL_API.G_EXCEPTION_ERROR;
3172: End If;
3173: */
3174:
3167: -- check return status
3168: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3169: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3170: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3171: raise OKL_API.G_EXCEPTION_ERROR;
3172: End If;
3173: */
3174:
3175:
3194: p_cspv_id => l_cspv_id,
3195: x_cspv_id => lx_cspv_id
3196: );
3197:
3198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3201: RAISE OKL_API.G_EXCEPTION_ERROR;
3202: END IF;
3195: x_cspv_id => lx_cspv_id
3196: );
3197:
3198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3201: RAISE OKL_API.G_EXCEPTION_ERROR;
3202: END IF;
3203:
3196: );
3197:
3198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3201: RAISE OKL_API.G_EXCEPTION_ERROR;
3202: END IF;
3203:
3204: End Loop;
3197:
3198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3201: RAISE OKL_API.G_EXCEPTION_ERROR;
3202: END IF;
3203:
3204: End Loop;
3205: Close l_product_options_csr;
3204: End Loop;
3205: Close l_product_options_csr;
3206:
3207: --Call End Activity
3208: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3209: EXCEPTION
3210: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3211: If l_hdrpyd_csr%ISOPEN then
3212: close l_hdrpyd_csr;
3206:
3207: --Call End Activity
3208: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3209: EXCEPTION
3210: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3211: If l_hdrpyd_csr%ISOPEN then
3212: close l_hdrpyd_csr;
3213: End If;
3214: If l_clepyd_csr%ISOPEN then
3214: If l_clepyd_csr%ISOPEN then
3215: close l_clepyd_csr;
3216: End If;
3217: --dbms_output.put_line('identified error');
3218: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3219: (substr(l_api_name,1,26),
3220: G_PKG_NAME,
3221: 'OKL_API.G_RET_STS_ERROR',
3222: x_msg_count,
3217: --dbms_output.put_line('identified error');
3218: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3219: (substr(l_api_name,1,26),
3220: G_PKG_NAME,
3221: 'OKL_API.G_RET_STS_ERROR',
3222: x_msg_count,
3223: x_msg_data,
3224: G_SCOPE);
3225: -- Resetting the global transaction id.
3223: x_msg_data,
3224: G_SCOPE);
3225: -- Resetting the global transaction id.
3226: okc_cvm_pvt.g_trans_id := 'XXX';
3227: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3228: If l_hdrpyd_csr%ISOPEN then
3229: close l_hdrpyd_csr;
3230: End If;
3231: If l_clepyd_csr%ISOPEN then
3233: End If;
3234:
3235:
3236: --dbms_output.put_line('unexpected error :'||l_api_name||G_SCOPE);
3237: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3238: (substr(l_api_name,1,26),
3239: G_PKG_NAME,
3240: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3241: x_msg_count,
3236: --dbms_output.put_line('unexpected error :'||l_api_name||G_SCOPE);
3237: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3238: (substr(l_api_name,1,26),
3239: G_PKG_NAME,
3240: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3241: x_msg_count,
3242: x_msg_data,
3243: G_SCOPE);
3244: -- Resetting the global transaction id.
3257: End If;
3258:
3259: --dbms_output.put_line('when others error');
3260: --dbms_output.put_line('Error '||SQLERRM);
3261: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3262: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3263: (substr(l_api_name,1,26),
3264: G_PKG_NAME,
3265: 'OTHERS',
3258:
3259: --dbms_output.put_line('when others error');
3260: --dbms_output.put_line('Error '||SQLERRM);
3261: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3262: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3263: (substr(l_api_name,1,26),
3264: G_PKG_NAME,
3265: 'OTHERS',
3266: x_msg_count,
3282: -- End of comments
3283: --------------------------------------------------------------------------------
3284: Procedure copy_contract_lines(
3285: p_api_version IN NUMBER,
3286: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3287: x_return_status OUT NOCOPY VARCHAR2,
3288: x_msg_count OUT NOCOPY NUMBER,
3289: x_msg_data OUT NOCOPY VARCHAR2,
3290: p_from_cle_id IN NUMBER,
3295: p_copy_line_party_yn IN VARCHAR2,
3296: p_renew_ref_yn IN VARCHAR2,
3297: x_cle_id OUT NOCOPY NUMBER) is
3298:
3299: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3300: l_cle_id NUMBER := OKL_API.G_MISS_NUM;
3301: l_cle_id_out NUMBER := OKL_API.G_MISS_NUM;
3302: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_CONTRACT_LINES';
3303: l_api_version CONSTANT NUMBER := 1.0;
3296: p_renew_ref_yn IN VARCHAR2,
3297: x_cle_id OUT NOCOPY NUMBER) is
3298:
3299: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3300: l_cle_id NUMBER := OKL_API.G_MISS_NUM;
3301: l_cle_id_out NUMBER := OKL_API.G_MISS_NUM;
3302: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_CONTRACT_LINES';
3303: l_api_version CONSTANT NUMBER := 1.0;
3304: l_clev_rec_out clev_rec_type;
3297: x_cle_id OUT NOCOPY NUMBER) is
3298:
3299: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3300: l_cle_id NUMBER := OKL_API.G_MISS_NUM;
3301: l_cle_id_out NUMBER := OKL_API.G_MISS_NUM;
3302: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_CONTRACT_LINES';
3303: l_api_version CONSTANT NUMBER := 1.0;
3304: l_clev_rec_out clev_rec_type;
3305: x_klev_rec_out klev_rec_type;
3416: Begin
3417: ------
3418: -- call START_ACTIVITY to create savepoint, check compatibility
3419: -- and initialize message list
3420: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
3421: G_PKG_NAME,
3422: p_init_msg_list,
3423: G_API_VERSION,
3424: p_api_version,
3423: G_API_VERSION,
3424: p_api_version,
3425: G_SCOPE,
3426: x_return_status);
3427: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3429: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3430: RAISE OKL_API.G_EXCEPTION_ERROR;
3431: END IF;
3424: p_api_version,
3425: G_SCOPE,
3426: x_return_status);
3427: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3429: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3430: RAISE OKL_API.G_EXCEPTION_ERROR;
3431: END IF;
3432: --Call OKC_COPY_CONTRACT_PUB.copy_contract_lines
3425: G_SCOPE,
3426: x_return_status);
3427: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3429: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3430: RAISE OKL_API.G_EXCEPTION_ERROR;
3431: END IF;
3432: --Call OKC_COPY_CONTRACT_PUB.copy_contract_lines
3433: OKC_COPY_CONTRACT_PUB.copy_contract_lines(p_api_version => P_api_version,
3426: x_return_status);
3427: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3429: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3430: RAISE OKL_API.G_EXCEPTION_ERROR;
3431: END IF;
3432: --Call OKC_COPY_CONTRACT_PUB.copy_contract_lines
3433: OKC_COPY_CONTRACT_PUB.copy_contract_lines(p_api_version => P_api_version,
3434: p_init_msg_list => p_init_msg_list,
3444: p_renew_ref_yn => p_renew_ref_yn,
3445: x_cle_id => x_cle_id);
3446:
3447: -- check return status
3448: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3449: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3450: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3451: raise OKL_API.G_EXCEPTION_ERROR;
3452: End If;
3445: x_cle_id => x_cle_id);
3446:
3447: -- check return status
3448: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3449: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3450: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3451: raise OKL_API.G_EXCEPTION_ERROR;
3452: End If;
3453:
3446:
3447: -- check return status
3448: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3449: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3450: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3451: raise OKL_API.G_EXCEPTION_ERROR;
3452: End If;
3453:
3454: -- Get Old Chr id from New Chr id
3447: -- check return status
3448: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3449: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3450: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3451: raise OKL_API.G_EXCEPTION_ERROR;
3452: End If;
3453:
3454: -- Get Old Chr id from New Chr id
3455: OPEN old_chr_csr(p_from_cle_id);
3454: -- Get Old Chr id from New Chr id
3455: OPEN old_chr_csr(p_from_cle_id);
3456: FETCH old_chr_csr INTO l_old_chr_id;
3457: IF old_chr_csr%NOTFOUND THEN
3458: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3459: END IF;
3460: CLOSE old_chr_csr;
3461:
3462: --Bug# 4899328
3466: IF l_new_chr_id IS NULL AND p_to_cle_id IS NOT NULL THEN
3467: OPEN old_chr_csr(p_to_cle_id);
3468: FETCH old_chr_csr INTO l_new_chr_id;
3469: IF old_chr_csr%NOTFOUND THEN
3470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3471: END IF;
3472: CLOSE old_chr_csr;
3473: END IF;
3474: --Bug# 4899328
3492: x_klev_rec => x_klev_rec_out
3493: );
3494:
3495: -- check return status
3496: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3497: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3498: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3499: raise OKL_API.G_EXCEPTION_ERROR;
3500: End If;
3493: );
3494:
3495: -- check return status
3496: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3497: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3498: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3499: raise OKL_API.G_EXCEPTION_ERROR;
3500: End If;
3501: --------------------------------------------------------------------------------
3494:
3495: -- check return status
3496: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3497: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3498: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3499: raise OKL_API.G_EXCEPTION_ERROR;
3500: End If;
3501: --------------------------------------------------------------------------------
3502: --bug# 3143522 : fixed as part of this -payments can be at subline level
3495: -- check return status
3496: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3497: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3498: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3499: raise OKL_API.G_EXCEPTION_ERROR;
3500: End If;
3501: --------------------------------------------------------------------------------
3502: --bug# 3143522 : fixed as part of this -payments can be at subline level
3503: --------------------------------------------------------------------------------
3510: p_new_cle_id => c_lines_rec.id, -- Bug 2376998
3511: p_new_chr_id => l_new_chr_id --Bug# 4899328
3512: );
3513: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3514: RAISE OKL_API.G_EXCEPTION_ERROR;
3515: END IF;
3516: --------------------------------------------------------------------------------------
3517: --BUG# 3143522 : 11.5.10 Subsidies - copy party payment details
3518: --------------------------------------------------------------------------------------
3537: p_cle_id => c_lines_rec.id,
3538: p_pph_id => l_old_hdr_id,
3539: x_pph_id => l_new_hdr_id);
3540:
3541: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3543: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3544: RAISE OKL_API.G_EXCEPTION_ERROR;
3545: END IF;
3538: p_pph_id => l_old_hdr_id,
3539: x_pph_id => l_new_hdr_id);
3540:
3541: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3543: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3544: RAISE OKL_API.G_EXCEPTION_ERROR;
3545: END IF;
3546:
3539: x_pph_id => l_new_hdr_id);
3540:
3541: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3543: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3544: RAISE OKL_API.G_EXCEPTION_ERROR;
3545: END IF;
3546:
3547: --Check dtls exists for this hdr, if yes, do the copy --
3540:
3541: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3543: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3544: RAISE OKL_API.G_EXCEPTION_ERROR;
3545: END IF;
3546:
3547: --Check dtls exists for this hdr, if yes, do the copy --
3548: OPEN l_clepyd_pt_csr (p_new_chr_id => c_lines_rec.dnz_chr_id,
3565: p_cpl_id => l_pt_cpl_id,
3566: p_pph_id => l_new_hdr_id,
3567: x_pyd_id => lx_pt_pyd_id);
3568:
3569: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3572: RAISE OKL_API.G_EXCEPTION_ERROR;
3573: END IF;
3566: p_pph_id => l_new_hdr_id,
3567: x_pyd_id => lx_pt_pyd_id);
3568:
3569: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3572: RAISE OKL_API.G_EXCEPTION_ERROR;
3573: END IF;
3574:
3567: x_pyd_id => lx_pt_pyd_id);
3568:
3569: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3572: RAISE OKL_API.G_EXCEPTION_ERROR;
3573: END IF;
3574:
3575: END IF; --l_pt_pyd_id IS NOT NULL ...--
3568:
3569: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3572: RAISE OKL_API.G_EXCEPTION_ERROR;
3573: END IF;
3574:
3575: END IF; --l_pt_pyd_id IS NOT NULL ...--
3576:
3603: p_pyd_id => l_pyd_id,
3604: p_cpl_id => l_cpl_id,
3605: x_pyd_id => lx_pyd_id);
3606:
3607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3610: RAISE OKL_API.G_EXCEPTION_ERROR;
3611: END IF;
3604: p_cpl_id => l_cpl_id,
3605: x_pyd_id => lx_pyd_id);
3606:
3607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3610: RAISE OKL_API.G_EXCEPTION_ERROR;
3611: END IF;
3612:
3605: x_pyd_id => lx_pyd_id);
3606:
3607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3610: RAISE OKL_API.G_EXCEPTION_ERROR;
3611: END IF;
3612:
3613: End Loop;
3606:
3607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3610: RAISE OKL_API.G_EXCEPTION_ERROR;
3611: END IF;
3612:
3613: End Loop;
3614: Close l_clepyd_csr;
3631: -- Get Old Chr id from New Chr id
3632: --OPEN old_chr_csr(p_from_cle_id);
3633: --FETCH old_chr_csr INTO l_old_chr_id;
3634: --IF old_chr_csr%NOTFOUND THEN
3635: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: --END IF;
3637: --CLOSE old_chr_csr;
3638:
3639: --link_slh_sll(
3646: --);
3647:
3648:
3649: --IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3650: --RAISE OKL_API.G_EXCEPTION_ERROR;
3651: --END IF;
3652:
3653: ---------Commented as this code has been moved up to run for all sub-lines too-----*/
3654:
3652:
3653: ---------Commented as this code has been moved up to run for all sub-lines too-----*/
3654:
3655: --Call End Activity
3656: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3657: EXCEPTION
3658:
3659: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3660: If l_clepyd_csr%ISOPEN then
3655: --Call End Activity
3656: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3657: EXCEPTION
3658:
3659: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3660: If l_clepyd_csr%ISOPEN then
3661: close l_clepyd_csr;
3662: End If;
3663: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3659: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3660: If l_clepyd_csr%ISOPEN then
3661: close l_clepyd_csr;
3662: End If;
3663: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3664: (substr(l_api_name,1,26),
3665: G_PKG_NAME,
3666: 'OKL_API.G_RET_STS_ERROR',
3667: x_msg_count,
3662: End If;
3663: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3664: (substr(l_api_name,1,26),
3665: G_PKG_NAME,
3666: 'OKL_API.G_RET_STS_ERROR',
3667: x_msg_count,
3668: x_msg_data,
3669: G_SCOPE);
3670: -- Resetting the global transaction id.
3668: x_msg_data,
3669: G_SCOPE);
3670: -- Resetting the global transaction id.
3671: okc_cvm_pvt.g_trans_id := 'XXX';
3672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3673: If l_clepyd_csr%ISOPEN then
3674: close l_clepyd_csr;
3675: End If;
3676:
3673: If l_clepyd_csr%ISOPEN then
3674: close l_clepyd_csr;
3675: End If;
3676:
3677: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3678: (substr(l_api_name,1,26),
3679: G_PKG_NAME,
3680: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3681: x_msg_count,
3676:
3677: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3678: (substr(l_api_name,1,26),
3679: G_PKG_NAME,
3680: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3681: x_msg_count,
3682: x_msg_data,
3683: G_SCOPE);
3684: -- Resetting the global transaction id.
3688: close l_clepyd_csr;
3689: End If;
3690:
3691: -- store SQL error message on message stack for caller
3692: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3693: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3694: (substr(l_api_name,1,26),
3695: G_PKG_NAME,
3696: 'OTHERS',
3689: End If;
3690:
3691: -- store SQL error message on message stack for caller
3692: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3693: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3694: (substr(l_api_name,1,26),
3695: G_PKG_NAME,
3696: 'OTHERS',
3697: x_msg_count,
3714: -- End of comments
3715: --------------------------------------------------------------------------------
3716: PROCEDURE copy_rules(
3717: p_api_version IN NUMBER,
3718: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3719: x_return_status OUT NOCOPY VARCHAR2,
3720: x_msg_count OUT NOCOPY NUMBER,
3721: x_msg_data OUT NOCOPY VARCHAR2,
3722: p_rgp_id IN NUMBER,
3719: x_return_status OUT NOCOPY VARCHAR2,
3720: x_msg_count OUT NOCOPY NUMBER,
3721: x_msg_data OUT NOCOPY VARCHAR2,
3722: p_rgp_id IN NUMBER,
3723: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3724: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3725: p_to_template_yn IN VARCHAR2,
3726: x_rgp_id OUT NOCOPY NUMBER) is
3727: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3720: x_msg_count OUT NOCOPY NUMBER,
3721: x_msg_data OUT NOCOPY VARCHAR2,
3722: p_rgp_id IN NUMBER,
3723: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3724: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3725: p_to_template_yn IN VARCHAR2,
3726: x_rgp_id OUT NOCOPY NUMBER) is
3727: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3728: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_RULES';
3723: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3724: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3725: p_to_template_yn IN VARCHAR2,
3726: x_rgp_id OUT NOCOPY NUMBER) is
3727: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3728: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_RULES';
3729: l_api_version CONSTANT NUMBER := 1.0;
3730: begin
3731: -----
3730: begin
3731: -----
3732: -- call START_ACTIVITY to create savepoint, check compatibility
3733: -- and initialize message list
3734: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
3735: G_PKG_NAME,
3736: p_init_msg_list,
3737: G_API_VERSION,
3738: p_api_version,
3737: G_API_VERSION,
3738: p_api_version,
3739: G_SCOPE,
3740: x_return_status);
3741: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3742: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3743: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3744: RAISE OKL_API.G_EXCEPTION_ERROR;
3745: END IF;
3738: p_api_version,
3739: G_SCOPE,
3740: x_return_status);
3741: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3742: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3743: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3744: RAISE OKL_API.G_EXCEPTION_ERROR;
3745: END IF;
3746: --call OKC_COPY_CONTRACT_PUB.copy_rules
3739: G_SCOPE,
3740: x_return_status);
3741: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3742: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3743: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3744: RAISE OKL_API.G_EXCEPTION_ERROR;
3745: END IF;
3746: --call OKC_COPY_CONTRACT_PUB.copy_rules
3747: OKC_COPY_CONTRACT_PUB.copy_rules(
3740: x_return_status);
3741: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3742: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3743: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3744: RAISE OKL_API.G_EXCEPTION_ERROR;
3745: END IF;
3746: --call OKC_COPY_CONTRACT_PUB.copy_rules
3747: OKC_COPY_CONTRACT_PUB.copy_rules(
3748: p_api_version => p_api_version,
3756: p_to_template_yn => p_to_template_yn,
3757: x_rgp_id => x_rgp_id
3758: );
3759: -- check return status
3760: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3761: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3762: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3763: raise OKL_API.G_EXCEPTION_ERROR;
3764: End If;
3757: x_rgp_id => x_rgp_id
3758: );
3759: -- check return status
3760: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3761: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3762: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3763: raise OKL_API.G_EXCEPTION_ERROR;
3764: End If;
3765: --Call End Activity
3758: );
3759: -- check return status
3760: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3761: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3762: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3763: raise OKL_API.G_EXCEPTION_ERROR;
3764: End If;
3765: --Call End Activity
3766: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3759: -- check return status
3760: If l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3761: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3762: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3763: raise OKL_API.G_EXCEPTION_ERROR;
3764: End If;
3765: --Call End Activity
3766: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3767: EXCEPTION
3762: Elsif l_return_status = OKL_API.G_RET_STS_ERROR Then
3763: raise OKL_API.G_EXCEPTION_ERROR;
3764: End If;
3765: --Call End Activity
3766: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3767: EXCEPTION
3768: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3769: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3770: (substr(l_api_name,1,26),
3764: End If;
3765: --Call End Activity
3766: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3767: EXCEPTION
3768: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3769: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3770: (substr(l_api_name,1,26),
3771: G_PKG_NAME,
3772: 'OKL_API.G_RET_STS_ERROR',
3765: --Call End Activity
3766: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3767: EXCEPTION
3768: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3769: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3770: (substr(l_api_name,1,26),
3771: G_PKG_NAME,
3772: 'OKL_API.G_RET_STS_ERROR',
3773: x_msg_count,
3768: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3769: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3770: (substr(l_api_name,1,26),
3771: G_PKG_NAME,
3772: 'OKL_API.G_RET_STS_ERROR',
3773: x_msg_count,
3774: x_msg_data,
3775: G_SCOPE);
3776: -- Resetting the global transaction id.
3774: x_msg_data,
3775: G_SCOPE);
3776: -- Resetting the global transaction id.
3777: okc_cvm_pvt.g_trans_id := 'XXX';
3778: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3779: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3780: (substr(l_api_name,1,26),
3781: G_PKG_NAME,
3782: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3775: G_SCOPE);
3776: -- Resetting the global transaction id.
3777: okc_cvm_pvt.g_trans_id := 'XXX';
3778: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3779: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3780: (substr(l_api_name,1,26),
3781: G_PKG_NAME,
3782: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3783: x_msg_count,
3778: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3779: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3780: (substr(l_api_name,1,26),
3781: G_PKG_NAME,
3782: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3783: x_msg_count,
3784: x_msg_data,
3785: G_SCOPE);
3786: -- Resetting the global transaction id.
3786: -- Resetting the global transaction id.
3787: okc_cvm_pvt.g_trans_id := 'XXX';
3788: WHEN OTHERS THEN
3789: -- store SQL error message on message stack for caller
3790: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3791: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3792: (substr(l_api_name,1,26),
3793: G_PKG_NAME,
3794: 'OTHERS',
3787: okc_cvm_pvt.g_trans_id := 'XXX';
3788: WHEN OTHERS THEN
3789: -- store SQL error message on message stack for caller
3790: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3791: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3792: (substr(l_api_name,1,26),
3793: G_PKG_NAME,
3794: 'OTHERS',
3795: x_msg_count,
3813: --------------------------------------------------------------------------------
3814:
3815: PROCEDURE copy_party_roles(
3816: p_api_version IN NUMBER,
3817: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3818: x_return_status OUT NOCOPY VARCHAR2,
3819: x_msg_count OUT NOCOPY NUMBER,
3820: x_msg_data OUT NOCOPY VARCHAR2,
3821: p_cpl_id IN NUMBER,
3818: x_return_status OUT NOCOPY VARCHAR2,
3819: x_msg_count OUT NOCOPY NUMBER,
3820: x_msg_data OUT NOCOPY VARCHAR2,
3821: p_cpl_id IN NUMBER,
3822: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3823: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3824: P_rle_code IN VARCHAR2,
3825: x_cpl_id OUT NOCOPY NUMBER) IS
3826:
3819: x_msg_count OUT NOCOPY NUMBER,
3820: x_msg_data OUT NOCOPY VARCHAR2,
3821: p_cpl_id IN NUMBER,
3822: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3823: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3824: P_rle_code IN VARCHAR2,
3825: x_cpl_id OUT NOCOPY NUMBER) IS
3826:
3827: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_PARTY_ROLES';
3824: P_rle_code IN VARCHAR2,
3825: x_cpl_id OUT NOCOPY NUMBER) IS
3826:
3827: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_PARTY_ROLES';
3828: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3829:
3830: -------------------------------------------------------
3831: --Bug# 3143522 : 11.5.10 Subsidies - copy of OKL shadow
3832: -------------------------------------------------------
3851:
3852: lx_kpl_id okl_k_party_roles.ID%TYPE;
3853:
3854: BEGIN
3855: l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
3856: G_PKG_NAME,
3857: p_init_msg_list,
3858: G_API_VERSION,
3859: p_api_version,
3858: G_API_VERSION,
3859: p_api_version,
3860: G_SCOPE,
3861: x_return_status);
3862: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3864: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3865: RAISE OKL_API.G_EXCEPTION_ERROR;
3866: END IF;
3859: p_api_version,
3860: G_SCOPE,
3861: x_return_status);
3862: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3864: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3865: RAISE OKL_API.G_EXCEPTION_ERROR;
3866: END IF;
3867:
3860: G_SCOPE,
3861: x_return_status);
3862: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3864: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3865: RAISE OKL_API.G_EXCEPTION_ERROR;
3866: END IF;
3867:
3868: OKC_COPY_CONTRACT_PUB.copy_party_roles(
3861: x_return_status);
3862: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3864: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3865: RAISE OKL_API.G_EXCEPTION_ERROR;
3866: END IF;
3867:
3868: OKC_COPY_CONTRACT_PUB.copy_party_roles(
3869: p_api_version => p_api_version,
3876: p_chr_id => p_chr_id,
3877: p_rle_code => p_rle_code,
3878: x_cpl_id => x_cpl_id);
3879:
3880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3883: RAISE OKL_API.G_EXCEPTION_ERROR;
3884: END IF;
3877: p_rle_code => p_rle_code,
3878: x_cpl_id => x_cpl_id);
3879:
3880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3883: RAISE OKL_API.G_EXCEPTION_ERROR;
3884: END IF;
3885:
3878: x_cpl_id => x_cpl_id);
3879:
3880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3883: RAISE OKL_API.G_EXCEPTION_ERROR;
3884: END IF;
3885:
3886: -------------------------------------------------------
3879:
3880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3883: RAISE OKL_API.G_EXCEPTION_ERROR;
3884: END IF;
3885:
3886: -------------------------------------------------------
3887: --Bug# 3143522 : 11.5.10 Subsidies - copy of OKL shadow
3905: x_pyd_id => lx_pyd_id);
3906:
3907:
3908:
3909: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3910: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3911: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3912: RAISE OKL_API.G_EXCEPTION_ERROR;
3913: END IF;
3906:
3907:
3908:
3909: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3910: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3911: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3912: RAISE OKL_API.G_EXCEPTION_ERROR;
3913: END IF;
3914: End Loop;
3907:
3908:
3909: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3910: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3911: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3912: RAISE OKL_API.G_EXCEPTION_ERROR;
3913: END IF;
3914: End Loop;
3915: Close l_pyd_csr;
3908:
3909: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3910: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3911: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3912: RAISE OKL_API.G_EXCEPTION_ERROR;
3913: END IF;
3914: End Loop;
3915: Close l_pyd_csr;
3916:
3926: p_kpl_id => l_kpl_rec.id,
3927: p_cpl_id => x_cpl_id,
3928: x_kpl_id => lx_kpl_id);
3929:
3930: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3932: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3933: RAISE OKL_API.G_EXCEPTION_ERROR;
3934: END IF;
3927: p_cpl_id => x_cpl_id,
3928: x_kpl_id => lx_kpl_id);
3929:
3930: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3932: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3933: RAISE OKL_API.G_EXCEPTION_ERROR;
3934: END IF;
3935: End Loop;
3928: x_kpl_id => lx_kpl_id);
3929:
3930: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3932: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3933: RAISE OKL_API.G_EXCEPTION_ERROR;
3934: END IF;
3935: End Loop;
3936: --Bug# 4558486
3929:
3930: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3932: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3933: RAISE OKL_API.G_EXCEPTION_ERROR;
3934: END IF;
3935: End Loop;
3936: --Bug# 4558486
3937:
3934: END IF;
3935: End Loop;
3936: --Bug# 4558486
3937:
3938: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3939:
3940: EXCEPTION
3941: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3942: If l_pyd_csr%ISOPEN then
3937:
3938: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3939:
3940: EXCEPTION
3941: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3942: If l_pyd_csr%ISOPEN then
3943: close l_pyd_csr;
3944: End If;
3945: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3941: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3942: If l_pyd_csr%ISOPEN then
3943: close l_pyd_csr;
3944: End If;
3945: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3946: (substr(l_api_name,1,26),
3947: G_PKG_NAME,
3948: 'OKL_API.G_RET_STS_ERROR',
3949: x_msg_count,
3944: End If;
3945: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3946: (substr(l_api_name,1,26),
3947: G_PKG_NAME,
3948: 'OKL_API.G_RET_STS_ERROR',
3949: x_msg_count,
3950: x_msg_data,
3951: G_SCOPE);
3952: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3948: 'OKL_API.G_RET_STS_ERROR',
3949: x_msg_count,
3950: x_msg_data,
3951: G_SCOPE);
3952: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3953: If l_pyd_csr%ISOPEN then
3954: close l_pyd_csr;
3955: End If;
3956: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3952: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3953: If l_pyd_csr%ISOPEN then
3954: close l_pyd_csr;
3955: End If;
3956: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3957: (substr(l_api_name,1,26),
3958: G_PKG_NAME,
3959: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3960: x_msg_count,
3955: End If;
3956: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3957: (substr(l_api_name,1,26),
3958: G_PKG_NAME,
3959: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3960: x_msg_count,
3961: x_msg_data,
3962: G_SCOPE);
3963: WHEN OTHERS THEN
3964: If l_pyd_csr%ISOPEN then
3965: close l_pyd_csr;
3966: End If;
3967: -- store SQL error message on message stack for caller
3968: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3969: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3970: (substr(l_api_name,1,26),
3971: G_PKG_NAME,
3972: 'OTHERS',
3965: close l_pyd_csr;
3966: End If;
3967: -- store SQL error message on message stack for caller
3968: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3969: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3970: (substr(l_api_name,1,26),
3971: G_PKG_NAME,
3972: 'OTHERS',
3973: x_msg_count,
3988: -- End of comments
3989: --------------------------------------------------------------------------------
3990: PROCEDURE copy_articles(
3991: p_api_version IN NUMBER,
3992: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3993: x_return_status OUT NOCOPY VARCHAR2,
3994: x_msg_count OUT NOCOPY NUMBER,
3995: x_msg_data OUT NOCOPY VARCHAR2,
3996: p_cat_id IN NUMBER,
3993: x_return_status OUT NOCOPY VARCHAR2,
3994: x_msg_count OUT NOCOPY NUMBER,
3995: x_msg_data OUT NOCOPY VARCHAR2,
3996: p_cat_id IN NUMBER,
3997: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3998: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3999: p_sav_sav_release IN VARCHAR2 DEFAULT NULL,
4000: x_cat_id OUT NOCOPY NUMBER) IS
4001:
3994: x_msg_count OUT NOCOPY NUMBER,
3995: x_msg_data OUT NOCOPY VARCHAR2,
3996: p_cat_id IN NUMBER,
3997: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3998: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
3999: p_sav_sav_release IN VARCHAR2 DEFAULT NULL,
4000: x_cat_id OUT NOCOPY NUMBER) IS
4001:
4002:
4000: x_cat_id OUT NOCOPY NUMBER) IS
4001:
4002:
4003: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_ARTICLES';
4004: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4005: BEGIN
4006: l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
4007: G_PKG_NAME,
4008: p_init_msg_list,
4002:
4003: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_ARTICLES';
4004: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4005: BEGIN
4006: l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
4007: G_PKG_NAME,
4008: p_init_msg_list,
4009: G_API_VERSION,
4010: p_api_version,
4009: G_API_VERSION,
4010: p_api_version,
4011: G_SCOPE,
4012: x_return_status);
4013: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4015: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4016: RAISE OKL_API.G_EXCEPTION_ERROR;
4017: END IF;
4010: p_api_version,
4011: G_SCOPE,
4012: x_return_status);
4013: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4015: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4016: RAISE OKL_API.G_EXCEPTION_ERROR;
4017: END IF;
4018:
4011: G_SCOPE,
4012: x_return_status);
4013: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4015: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4016: RAISE OKL_API.G_EXCEPTION_ERROR;
4017: END IF;
4018:
4019: OKC_COPY_CONTRACT_PUB.copy_articles(
4012: x_return_status);
4013: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4015: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4016: RAISE OKL_API.G_EXCEPTION_ERROR;
4017: END IF;
4018:
4019: OKC_COPY_CONTRACT_PUB.copy_articles(
4020: p_api_version => p_api_version,
4027: p_chr_id => p_chr_id,
4028: p_sav_sav_release => p_sav_sav_release,
4029: x_cat_id => x_cat_id);
4030:
4031: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4034: RAISE OKL_API.G_EXCEPTION_ERROR;
4035: END IF;
4028: p_sav_sav_release => p_sav_sav_release,
4029: x_cat_id => x_cat_id);
4030:
4031: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4034: RAISE OKL_API.G_EXCEPTION_ERROR;
4035: END IF;
4036:
4029: x_cat_id => x_cat_id);
4030:
4031: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4034: RAISE OKL_API.G_EXCEPTION_ERROR;
4035: END IF;
4036:
4037: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4030:
4031: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4034: RAISE OKL_API.G_EXCEPTION_ERROR;
4035: END IF;
4036:
4037: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4038:
4033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4034: RAISE OKL_API.G_EXCEPTION_ERROR;
4035: END IF;
4036:
4037: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4038:
4039: EXCEPTION
4040: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4041: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4036:
4037: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4038:
4039: EXCEPTION
4040: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4041: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4042: (substr(l_api_name,1,26),
4043: G_PKG_NAME,
4044: 'OKL_API.G_RET_STS_ERROR',
4037: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4038:
4039: EXCEPTION
4040: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4041: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4042: (substr(l_api_name,1,26),
4043: G_PKG_NAME,
4044: 'OKL_API.G_RET_STS_ERROR',
4045: x_msg_count,
4040: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4041: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4042: (substr(l_api_name,1,26),
4043: G_PKG_NAME,
4044: 'OKL_API.G_RET_STS_ERROR',
4045: x_msg_count,
4046: x_msg_data,
4047: G_SCOPE);
4048: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4044: 'OKL_API.G_RET_STS_ERROR',
4045: x_msg_count,
4046: x_msg_data,
4047: G_SCOPE);
4048: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4049: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4050: (substr(l_api_name,1,26),
4051: G_PKG_NAME,
4052: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4045: x_msg_count,
4046: x_msg_data,
4047: G_SCOPE);
4048: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4049: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4050: (substr(l_api_name,1,26),
4051: G_PKG_NAME,
4052: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4053: x_msg_count,
4048: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4049: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4050: (substr(l_api_name,1,26),
4051: G_PKG_NAME,
4052: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4053: x_msg_count,
4054: x_msg_data,
4055: G_SCOPE);
4056: WHEN OTHERS THEN
4054: x_msg_data,
4055: G_SCOPE);
4056: WHEN OTHERS THEN
4057: -- store SQL error message on message stack for caller
4058: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4059: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4060: (substr(l_api_name,1,26),
4061: G_PKG_NAME,
4062: 'OTHERS',
4055: G_SCOPE);
4056: WHEN OTHERS THEN
4057: -- store SQL error message on message stack for caller
4058: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4059: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4060: (substr(l_api_name,1,26),
4061: G_PKG_NAME,
4062: 'OTHERS',
4063: x_msg_count,
4078: -- End of comments
4079: --------------------------------------------------------------------------------
4080: PROCEDURE copy_latest_articles(
4081: p_api_version IN NUMBER,
4082: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4083: x_return_status OUT NOCOPY VARCHAR2,
4084: x_msg_count OUT NOCOPY NUMBER,
4085: x_msg_data OUT NOCOPY VARCHAR2,
4086: p_cat_id IN NUMBER,
4083: x_return_status OUT NOCOPY VARCHAR2,
4084: x_msg_count OUT NOCOPY NUMBER,
4085: x_msg_data OUT NOCOPY VARCHAR2,
4086: p_cat_id IN NUMBER,
4087: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4088: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4089: x_cat_id OUT NOCOPY NUMBER) IS
4090:
4091:
4084: x_msg_count OUT NOCOPY NUMBER,
4085: x_msg_data OUT NOCOPY VARCHAR2,
4086: p_cat_id IN NUMBER,
4087: p_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4088: p_chr_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4089: x_cat_id OUT NOCOPY NUMBER) IS
4090:
4091:
4092: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_LATEST_ARTICLES';
4089: x_cat_id OUT NOCOPY NUMBER) IS
4090:
4091:
4092: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_LATEST_ARTICLES';
4093: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4094: BEGIN
4095: l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
4096: G_PKG_NAME,
4097: p_init_msg_list,
4091:
4092: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_LATEST_ARTICLES';
4093: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4094: BEGIN
4095: l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
4096: G_PKG_NAME,
4097: p_init_msg_list,
4098: G_API_VERSION,
4099: p_api_version,
4098: G_API_VERSION,
4099: p_api_version,
4100: G_SCOPE,
4101: x_return_status);
4102: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4104: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4105: RAISE OKL_API.G_EXCEPTION_ERROR;
4106: END IF;
4099: p_api_version,
4100: G_SCOPE,
4101: x_return_status);
4102: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4104: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4105: RAISE OKL_API.G_EXCEPTION_ERROR;
4106: END IF;
4107:
4100: G_SCOPE,
4101: x_return_status);
4102: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4104: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4105: RAISE OKL_API.G_EXCEPTION_ERROR;
4106: END IF;
4107:
4108: OKC_COPY_CONTRACT_PUB.copy_latest_articles(
4101: x_return_status);
4102: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4104: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4105: RAISE OKL_API.G_EXCEPTION_ERROR;
4106: END IF;
4107:
4108: OKC_COPY_CONTRACT_PUB.copy_latest_articles(
4109: p_api_version => p_api_version,
4115: p_cle_id => p_cle_id,
4116: p_chr_id => p_chr_id,
4117: x_cat_id => x_cat_id);
4118:
4119: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4121: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4122: RAISE OKL_API.G_EXCEPTION_ERROR;
4123: END IF;
4116: p_chr_id => p_chr_id,
4117: x_cat_id => x_cat_id);
4118:
4119: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4121: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4122: RAISE OKL_API.G_EXCEPTION_ERROR;
4123: END IF;
4124:
4117: x_cat_id => x_cat_id);
4118:
4119: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4121: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4122: RAISE OKL_API.G_EXCEPTION_ERROR;
4123: END IF;
4124:
4125: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4118:
4119: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4121: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4122: RAISE OKL_API.G_EXCEPTION_ERROR;
4123: END IF;
4124:
4125: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4126:
4121: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4122: RAISE OKL_API.G_EXCEPTION_ERROR;
4123: END IF;
4124:
4125: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4126:
4127: EXCEPTION
4128: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4129: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4124:
4125: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4126:
4127: EXCEPTION
4128: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4129: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4130: (substr(l_api_name,1,26),
4131: G_PKG_NAME,
4132: 'OKL_API.G_RET_STS_ERROR',
4125: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4126:
4127: EXCEPTION
4128: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4129: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4130: (substr(l_api_name,1,26),
4131: G_PKG_NAME,
4132: 'OKL_API.G_RET_STS_ERROR',
4133: x_msg_count,
4128: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4129: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4130: (substr(l_api_name,1,26),
4131: G_PKG_NAME,
4132: 'OKL_API.G_RET_STS_ERROR',
4133: x_msg_count,
4134: x_msg_data,
4135: G_SCOPE);
4136: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4132: 'OKL_API.G_RET_STS_ERROR',
4133: x_msg_count,
4134: x_msg_data,
4135: G_SCOPE);
4136: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4137: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4138: (substr(l_api_name,1,26),
4139: G_PKG_NAME,
4140: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4133: x_msg_count,
4134: x_msg_data,
4135: G_SCOPE);
4136: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4137: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4138: (substr(l_api_name,1,26),
4139: G_PKG_NAME,
4140: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4141: x_msg_count,
4136: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4137: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4138: (substr(l_api_name,1,26),
4139: G_PKG_NAME,
4140: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4141: x_msg_count,
4142: x_msg_data,
4143: G_SCOPE);
4144: WHEN OTHERS THEN
4142: x_msg_data,
4143: G_SCOPE);
4144: WHEN OTHERS THEN
4145: -- store SQL error message on message stack for caller
4146: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4147: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4148: (substr(l_api_name,1,26),
4149: G_PKG_NAME,
4150: 'OTHERS',
4143: G_SCOPE);
4144: WHEN OTHERS THEN
4145: -- store SQL error message on message stack for caller
4146: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4147: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4148: (substr(l_api_name,1,26),
4149: G_PKG_NAME,
4150: 'OTHERS',
4151: x_msg_count,
4277: -- to added Syndication 'OKX_LEASE' also
4278: -- This will also be pushed into Copy_Asset_Lines
4279: --------------------------------------------------------------------------------
4280: Procedure link_cov_asst( p_api_version IN NUMBER,
4281: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4282: x_return_status OUT NOCOPY VARCHAR2,
4283: x_msg_count OUT NOCOPY NUMBER,
4284: x_msg_data OUT NOCOPY VARCHAR2,
4285: p_orig_lnk_cle_id IN NUMBER,
4311: l_cimv_rec OKL_OKC_MIGRATION_PVT.cimv_rec_type;
4312: lx_cimv_rec OKL_OKC_MIGRATION_PVT.cimv_rec_type;
4313:
4314: Begin
4315: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4316: l_new_lnk_cim_id := p_new_lnk_cim_id;
4317:
4318: If p_object_code in ('OKL_USAGE','OKX_LEASE') then --for covered usage contract and syndicated contract
4319:
4317:
4318: If p_object_code in ('OKL_USAGE','OKX_LEASE') then --for covered usage contract and syndicated contract
4319:
4320: l_cimv_rec.id := l_new_lnk_cim_id;
4321: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
4322: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
4323: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
4324:
4325: Else --for covered asset
4318: If p_object_code in ('OKL_USAGE','OKX_LEASE') then --for covered usage contract and syndicated contract
4319:
4320: l_cimv_rec.id := l_new_lnk_cim_id;
4321: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
4322: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
4323: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
4324:
4325: Else --for covered asset
4326:
4319:
4320: l_cimv_rec.id := l_new_lnk_cim_id;
4321: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
4322: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
4323: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
4324:
4325: Else --for covered asset
4326:
4327: Open l_orig_ast_csr(p_orig_lnk_cle_id => p_orig_lnk_cle_id,
4329: Fetch l_orig_ast_csr into l_new_cle_id;
4330: IF l_orig_ast_csr%NOTFOUND Then
4331: --null out the new link
4332: l_cimv_rec.id := l_new_lnk_cim_id;
4333: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
4334: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
4335: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
4336: ELSE
4337: --update the new link with new asset
4330: IF l_orig_ast_csr%NOTFOUND Then
4331: --null out the new link
4332: l_cimv_rec.id := l_new_lnk_cim_id;
4333: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
4334: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
4335: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
4336: ELSE
4337: --update the new link with new asset
4338: l_cimv_rec.id := l_new_lnk_cim_id;
4331: --null out the new link
4332: l_cimv_rec.id := l_new_lnk_cim_id;
4333: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
4334: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
4335: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
4336: ELSE
4337: --update the new link with new asset
4338: l_cimv_rec.id := l_new_lnk_cim_id;
4339: l_cimv_rec.object1_id1 := to_char(l_new_cle_id);
4356: When Others then
4357: If l_orig_ast_csr%ISOPEN Then
4358: Close l_orig_ast_csr;
4359: End If;
4360: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4361:
4362: End link_cov_asst;
4363: --------------------------------------------------------------------------------
4364: -- Start of comments
4374: -- End of comments
4375: --------------------------------------------------------------------------------
4376: Procedure reset_contract_status
4377: (p_api_version IN NUMBER,
4378: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4379: x_return_status OUT NOCOPY VARCHAR2,
4380: x_msg_count OUT NOCOPY NUMBER,
4381: x_msg_data OUT NOCOPY VARCHAR2,
4382: p_chr_id IN NUMBER,
4382: p_chr_id IN NUMBER,
4383: p_status IN VARCHAR2,
4384: p_cascade_lines IN VARCHAR2) IS
4385: BEGIN
4386: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4387: -- Now call the stored program to update status of contact
4388: okl_contract_status_pub.update_contract_status
4389: (p_api_version => p_api_version,
4390: p_init_msg_list => p_init_msg_list,
4393: x_msg_data => x_msg_data,
4394: p_khr_status => p_status,
4395: p_chr_id => p_chr_id);
4396:
4397: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) Then
4398: Raise G_EXCEPTION_HALT_PROCESS;
4399: End If;
4400:
4401:
4410: p_chr_id => p_chr_id);
4411: End If;
4412: */
4413:
4414: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) Then
4415: Raise G_EXCEPTION_HALT_PROCESS;
4416: End If;
4417:
4418: EXCEPTION
4418: EXCEPTION
4419: WHEN G_EXCEPTION_HALT_PROCESS Then
4420: Null;
4421: When OTHERS Then
4422: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4423: END reset_contract_status;
4424: --End Bug# 2555692
4425:
4426: --------------------------------------------------------------------------------
4437: -- End of comments
4438: --------------------------------------------------------------------------------
4439: PROCEDURE delete_yields(
4440: p_api_version IN NUMBER,
4441: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4442: x_return_status OUT NOCOPY VARCHAR2,
4443: x_msg_count OUT NOCOPY NUMBER,
4444: x_msg_data OUT NOCOPY VARCHAR2,
4445: p_chr_id IN NUMBER,
4447: p_trans_type IN VARCHAR2
4448: ) IS
4449:
4450: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_YIELDS';
4451: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4452:
4453: l_chrv_rec chrv_rec_type;
4454: l_khrv_rec khrv_rec_type;
4455: l_khrv_qry_rec khrv_rec_type;
4485: and cle.id = kle.id;
4486:
4487: BEGIN
4488:
4489: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4490: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
4491: G_PKG_NAME,
4492: p_init_msg_list,
4493: G_API_VERSION,
4486:
4487: BEGIN
4488:
4489: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4490: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
4491: G_PKG_NAME,
4492: p_init_msg_list,
4493: G_API_VERSION,
4494: p_api_version,
4493: G_API_VERSION,
4494: p_api_version,
4495: G_SCOPE,
4496: x_return_status);
4497: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4498: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4499: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4500: RAISE OKL_API.G_EXCEPTION_ERROR;
4501: END IF;
4494: p_api_version,
4495: G_SCOPE,
4496: x_return_status);
4497: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4498: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4499: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4500: RAISE OKL_API.G_EXCEPTION_ERROR;
4501: END IF;
4502:
4495: G_SCOPE,
4496: x_return_status);
4497: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4498: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4499: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4500: RAISE OKL_API.G_EXCEPTION_ERROR;
4501: END IF;
4502:
4503: l_khrv_qry_rec := get_khrv_rec(p_chr_id);
4496: x_return_status);
4497: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4498: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4499: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4500: RAISE OKL_API.G_EXCEPTION_ERROR;
4501: END IF;
4502:
4503: l_khrv_qry_rec := get_khrv_rec(p_chr_id);
4504:
4555: p_khrv_rec => l_khrv_rec,
4556: x_chrv_rec => lx_chrv_rec,
4557: x_khrv_rec => lx_khrv_rec);
4558:
4559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4562: RAISE OKL_API.G_EXCEPTION_ERROR;
4563: END IF;
4556: x_chrv_rec => lx_chrv_rec,
4557: x_khrv_rec => lx_khrv_rec);
4558:
4559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4562: RAISE OKL_API.G_EXCEPTION_ERROR;
4563: END IF;
4564:
4557: x_khrv_rec => lx_khrv_rec);
4558:
4559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4562: RAISE OKL_API.G_EXCEPTION_ERROR;
4563: END IF;
4564:
4565: END IF;
4558:
4559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4562: RAISE OKL_API.G_EXCEPTION_ERROR;
4563: END IF;
4564:
4565: END IF;
4566:
4617: p_klev_rec => l_klev_rec,
4618: x_clev_rec => lx_clev_rec,
4619: x_klev_rec => lx_klev_rec);
4620:
4621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4624: RAISE OKL_API.G_EXCEPTION_ERROR;
4625: END IF;
4618: x_clev_rec => lx_clev_rec,
4619: x_klev_rec => lx_klev_rec);
4620:
4621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4624: RAISE OKL_API.G_EXCEPTION_ERROR;
4625: END IF;
4626:
4619: x_klev_rec => lx_klev_rec);
4620:
4621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4624: RAISE OKL_API.G_EXCEPTION_ERROR;
4625: END IF;
4626:
4627: END IF;
4620:
4621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4624: RAISE OKL_API.G_EXCEPTION_ERROR;
4625: END IF;
4626:
4627: END IF;
4628: END LOOP;
4626:
4627: END IF;
4628: END LOOP;
4629:
4630: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4631:
4632: EXCEPTION
4633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4629:
4630: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4631:
4632: EXCEPTION
4633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4635: (substr(l_api_name,1,26),
4636: G_PKG_NAME,
4637: 'OKL_API.G_RET_STS_ERROR',
4630: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4631:
4632: EXCEPTION
4633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4635: (substr(l_api_name,1,26),
4636: G_PKG_NAME,
4637: 'OKL_API.G_RET_STS_ERROR',
4638: x_msg_count,
4633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4635: (substr(l_api_name,1,26),
4636: G_PKG_NAME,
4637: 'OKL_API.G_RET_STS_ERROR',
4638: x_msg_count,
4639: x_msg_data,
4640: G_SCOPE);
4641: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4637: 'OKL_API.G_RET_STS_ERROR',
4638: x_msg_count,
4639: x_msg_data,
4640: G_SCOPE);
4641: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4642: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4643: (substr(l_api_name,1,26),
4644: G_PKG_NAME,
4645: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4638: x_msg_count,
4639: x_msg_data,
4640: G_SCOPE);
4641: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4642: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4643: (substr(l_api_name,1,26),
4644: G_PKG_NAME,
4645: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4646: x_msg_count,
4641: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4642: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4643: (substr(l_api_name,1,26),
4644: G_PKG_NAME,
4645: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4646: x_msg_count,
4647: x_msg_data,
4648: G_SCOPE);
4649: WHEN OTHERS THEN
4647: x_msg_data,
4648: G_SCOPE);
4649: WHEN OTHERS THEN
4650: -- store SQL error message on message stack for caller
4651: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4652: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4653: (substr(l_api_name,1,26),
4654: G_PKG_NAME,
4655: 'OTHERS',
4648: G_SCOPE);
4649: WHEN OTHERS THEN
4650: -- store SQL error message on message stack for caller
4651: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4652: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4653: (substr(l_api_name,1,26),
4654: G_PKG_NAME,
4655: 'OTHERS',
4656: x_msg_count,
4850: l_rebook_date := r.date_transaction_occurred;
4851: END LOOP;
4852: print('In copy_var_int_rate_params: l_rebook_date=' || l_rebook_date);
4853: IF (l_rebook_date is NULL) THEN
4854: RAISE OKL_API.G_EXCEPTION_ERROR;
4855: END IF;
4856: END IF;
4857: */
4858: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5061: END IF;
5062:
5063: EXCEPTION WHEN OTHERS THEN
5064:
5065: --x_return_status := OKL_API.G_RET_STS_ERROR;
5066: /* DEBUG */
5067: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5068: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
5069: 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 || ' ...');
5135: -- End of comments
5136: --------------------------------------------------------------------------------
5137: PROCEDURE copy_lease_contract_new(
5138: p_api_version IN NUMBER,
5139: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5140: x_return_status OUT NOCOPY VARCHAR2,
5141: x_msg_count OUT NOCOPY NUMBER,
5142: x_msg_data OUT NOCOPY VARCHAR2,
5143: p_commit IN VARCHAR2 DEFAULT 'F',
5233: l_new_object1_id1 VARCHAR2(40);
5234: l_contract_process VARCHAR2(30);
5235: l_parameter_list wf_parameter_list_t;
5236: l_event_name wf_events.name%TYPE := NULL;
5237: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
5238: l_business_event_name wf_events.name%TYPE := NULL;
5239:
5240: l_contract_number okc_k_headers_b.contract_number%TYPE;
5241: l_copied_id NUMBER;
7583: END LOOP;
7584:
7585: EXCEPTION WHEN OTHERS THEN
7586:
7587: x_return_status := OKL_API.G_RET_STS_ERROR;
7588: /*OKL_API.set_message(p_app_name => 'OKL',
7589: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
7590: p_token1 => 'ASSET_NUMBER',
7591: p_token1_value => 'sort_bid_mapping_tab');*/
7584:
7585: EXCEPTION WHEN OTHERS THEN
7586:
7587: x_return_status := OKL_API.G_RET_STS_ERROR;
7588: /*OKL_API.set_message(p_app_name => 'OKL',
7589: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
7590: p_token1 => 'ASSET_NUMBER',
7591: p_token1_value => 'sort_bid_mapping_tab');*/
7592: /* DEBUG */
7821: end loop;*/
7822:
7823: EXCEPTION WHEN OTHERS THEN
7824:
7825: x_return_status := OKL_API.G_RET_STS_ERROR;
7826: /*OKL_API.set_message(p_app_name => 'OKL',
7827: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
7828: p_token1 => 'ASSET_NUMBER',
7829: p_token1_value => 'sort_cle_lse_mapping_tab');*/
7822:
7823: EXCEPTION WHEN OTHERS THEN
7824:
7825: x_return_status := OKL_API.G_RET_STS_ERROR;
7826: /*OKL_API.set_message(p_app_name => 'OKL',
7827: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
7828: p_token1 => 'ASSET_NUMBER',
7829: p_token1_value => 'sort_cle_lse_mapping_tab');*/
7830: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7987: END LOOP;
7988:
7989: EXCEPTION WHEN OTHERS THEN
7990:
7991: x_return_status := OKL_API.G_RET_STS_ERROR;
7992: /*OKL_API.set_message(p_app_name => 'OKL',
7993: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
7994: p_token1 => 'ASSET_NUMBER',
7995: p_token1_value => 'sort_cid_mapping_tab');*/
7988:
7989: EXCEPTION WHEN OTHERS THEN
7990:
7991: x_return_status := OKL_API.G_RET_STS_ERROR;
7992: /*OKL_API.set_message(p_app_name => 'OKL',
7993: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
7994: p_token1 => 'ASSET_NUMBER',
7995: p_token1_value => 'sort_cid_mapping_tab');*/
7996: /* DEBUG */
8160:
8161:
8162: EXCEPTION WHEN OTHERS THEN
8163:
8164: x_return_status := OKL_API.G_RET_STS_ERROR;
8165: /*OKL_API.set_message(p_app_name => 'OKL',
8166: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8167: p_token1 => 'ASSET_NUMBER',
8168: p_token1_value => 'do_sort');*/
8161:
8162: EXCEPTION WHEN OTHERS THEN
8163:
8164: x_return_status := OKL_API.G_RET_STS_ERROR;
8165: /*OKL_API.set_message(p_app_name => 'OKL',
8166: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8167: p_token1 => 'ASSET_NUMBER',
8168: p_token1_value => 'do_sort');*/
8169: /* DEBUG */
8208: After the spec in okl_copy_asset_pvt spec has been changed to
8209: expose this function */
8210: FUNCTION generate_asset_number(x_asset_number OUT NOCOPY OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE)
8211: RETURN VARCHAR2 IS
8212: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
8213: ln_dummy1 NUMBER := 0;
8214: ln_dummy2 NUMBER := 0;
8215: ln_dummy3 NUMBER := 0;
8216: lv_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE;
8213: ln_dummy1 NUMBER := 0;
8214: ln_dummy2 NUMBER := 0;
8215: ln_dummy3 NUMBER := 0;
8216: lv_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE;
8217: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
8218: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
8219: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
8220: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
8221:
8251: OPEN c_asset_no;
8252: FETCH c_asset_no INTO x_asset_number;
8253: IF (c_asset_no%NOTFOUND) THEN
8254: x_return_status := OKC_API.G_RET_STS_ERROR;
8255: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8256: p_msg_name => g_unexpected_error,
8257: p_token1 => g_sqlcode_token,
8258: p_token1_value => SQLCODE,
8259: p_token2 => g_sqlerrm_token,
8291: OPEN c_asset_no;
8292: FETCH c_asset_no INTO x_asset_number;
8293: IF (c_asset_no%NOTFOUND) THEN
8294: x_return_status := OKC_API.G_RET_STS_ERROR;
8295: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8296: p_msg_name => g_unexpected_error,
8297: p_token1 => g_sqlcode_token,
8298: p_token1_value => SQLCODE,
8299: p_token2 => g_sqlerrm_token,
8320: IF c_okx_assets_v%ISOPEN THEN
8321: CLOSE c_okx_assets_v;
8322: END IF;
8323: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8324: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8325: p_msg_name => g_unexpected_error,
8326: p_token1 => g_sqlcode_token,
8327: p_token1_value => SQLCODE,
8328: p_token2 => g_sqlerrm_token,
8523: end loop; */
8524:
8525: EXCEPTION WHEN OTHERS THEN
8526:
8527: x_return_status := OKL_API.G_RET_STS_ERROR;
8528: /*OKL_API.set_message(p_app_name => 'OKL',
8529: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8530: p_token1 => 'ASSET_NUMBER',
8531: p_token1_value => 'sort_cle_mapping_tab');*/
8524:
8525: EXCEPTION WHEN OTHERS THEN
8526:
8527: x_return_status := OKL_API.G_RET_STS_ERROR;
8528: /*OKL_API.set_message(p_app_name => 'OKL',
8529: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8530: p_token1 => 'ASSET_NUMBER',
8531: p_token1_value => 'sort_cle_mapping_tab');*/
8532: /* DEBUG */
8691: END LOOP;
8692:
8693: EXCEPTION WHEN OTHERS THEN
8694:
8695: x_return_status := OKL_API.G_RET_STS_ERROR;
8696: /*OKL_API.set_message(p_app_name => 'OKL',
8697: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8698: p_token1 => 'ASSET_NUMBER',
8699: p_token1_value => 'sort_aid_mapping_tab');*/
8692:
8693: EXCEPTION WHEN OTHERS THEN
8694:
8695: x_return_status := OKL_API.G_RET_STS_ERROR;
8696: /*OKL_API.set_message(p_app_name => 'OKL',
8697: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8698: p_token1 => 'ASSET_NUMBER',
8699: p_token1_value => 'sort_aid_mapping_tab');*/
8700: /* DEBUG */
8866: END LOOP;
8867:
8868: EXCEPTION WHEN OTHERS THEN
8869:
8870: x_return_status := OKL_API.G_RET_STS_ERROR;
8871: /*OKL_API.set_message(p_app_name => 'OKL',
8872: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8873: p_token1 => 'ASSET_NUMBER',
8874: p_token1_value => 'do_id_mapping_sort');*/
8867:
8868: EXCEPTION WHEN OTHERS THEN
8869:
8870: x_return_status := OKL_API.G_RET_STS_ERROR;
8871: /*OKL_API.set_message(p_app_name => 'OKL',
8872: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
8873: p_token1 => 'ASSET_NUMBER',
8874: p_token1_value => 'do_id_mapping_sort');*/
8875: /* DEBUG */
9067: LOOP
9068: -- Populate l_aid_mapping_tab
9069: l_aid_mapping_tab(l_asset_counter).old_id := l_olname_tab3(i);
9070: l_ret_status := generate_asset_number(l_new_asset_name);
9071: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9073: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9074: RAISE OKL_API.G_EXCEPTION_ERROR;
9075: END IF;
9068: -- Populate l_aid_mapping_tab
9069: l_aid_mapping_tab(l_asset_counter).old_id := l_olname_tab3(i);
9070: l_ret_status := generate_asset_number(l_new_asset_name);
9071: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9073: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9074: RAISE OKL_API.G_EXCEPTION_ERROR;
9075: END IF;
9076:
9069: l_aid_mapping_tab(l_asset_counter).old_id := l_olname_tab3(i);
9070: l_ret_status := generate_asset_number(l_new_asset_name);
9071: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9073: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9074: RAISE OKL_API.G_EXCEPTION_ERROR;
9075: END IF;
9076:
9077: l_aid_mapping_tab(l_asset_counter).new_id := l_new_asset_name;
9070: l_ret_status := generate_asset_number(l_new_asset_name);
9071: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9073: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9074: RAISE OKL_API.G_EXCEPTION_ERROR;
9075: END IF;
9076:
9077: l_aid_mapping_tab(l_asset_counter).new_id := l_new_asset_name;
9078:
9143: END IF;
9144:
9145: EXCEPTION WHEN OTHERS THEN
9146:
9147: x_return_status := OKL_API.G_RET_STS_ERROR;
9148: /*OKL_API.set_message(p_app_name => 'OKL',
9149: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
9150: p_token1 => 'ASSET_NUMBER',
9151: p_token1_value => 'insert_okc_k_lines_tl');*/
9144:
9145: EXCEPTION WHEN OTHERS THEN
9146:
9147: x_return_status := OKL_API.G_RET_STS_ERROR;
9148: /*OKL_API.set_message(p_app_name => 'OKL',
9149: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
9150: p_token1 => 'ASSET_NUMBER',
9151: p_token1_value => 'insert_okc_k_lines_tl');*/
9152: /* DEBUG */
9253: IF (l_new_asset_name = '-1') THEN
9254: l_ret_status := generate_asset_number(
9255: l_new_asset_name
9256: );
9257: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9259: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9260: RAISE OKL_API.G_EXCEPTION_ERROR;
9261: END IF;
9254: l_ret_status := generate_asset_number(
9255: l_new_asset_name
9256: );
9257: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9259: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9260: RAISE OKL_API.G_EXCEPTION_ERROR;
9261: END IF;
9262: END IF;
9255: l_new_asset_name
9256: );
9257: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9259: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9260: RAISE OKL_API.G_EXCEPTION_ERROR;
9261: END IF;
9262: END IF;
9263: ELSE
9256: );
9257: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9259: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9260: RAISE OKL_API.G_EXCEPTION_ERROR;
9261: END IF;
9262: END IF;
9263: ELSE
9264: l_ret_status := generate_asset_number(
9263: ELSE
9264: l_ret_status := generate_asset_number(
9265: l_new_asset_name
9266: );
9267: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9269: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9270: RAISE OKL_API.G_EXCEPTION_ERROR;
9271: END IF;
9264: l_ret_status := generate_asset_number(
9265: l_new_asset_name
9266: );
9267: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9269: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9270: RAISE OKL_API.G_EXCEPTION_ERROR;
9271: END IF;
9272: END IF;
9265: l_new_asset_name
9266: );
9267: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9269: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9270: RAISE OKL_API.G_EXCEPTION_ERROR;
9271: END IF;
9272: END IF;
9273: l_done_generating := TRUE;
9266: );
9267: IF l_ret_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
9268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9269: ELSIF l_ret_status = OKL_API.G_RET_STS_ERROR THEN
9270: RAISE OKL_API.G_EXCEPTION_ERROR;
9271: END IF;
9272: END IF;
9273: l_done_generating := TRUE;
9274: END IF;
9425: END IF;
9426:
9427: EXCEPTION WHEN OTHERS THEN
9428:
9429: x_return_status := OKL_API.G_RET_STS_ERROR;
9430: /*OKL_API.set_message(p_app_name => 'OKL',
9431: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
9432: p_token1 => 'ASSET_NUMBER',
9433: p_token1_value => 'insert_okc_k_headers_tl');*/
9426:
9427: EXCEPTION WHEN OTHERS THEN
9428:
9429: x_return_status := OKL_API.G_RET_STS_ERROR;
9430: /*OKL_API.set_message(p_app_name => 'OKL',
9431: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
9432: p_token1 => 'ASSET_NUMBER',
9433: p_token1_value => 'insert_okc_k_headers_tl');*/
9434: /* DEBUG */
9708: l_id_tab(i) := p_new_id;
9709:
9710: validate_amd_code(x_return_status, l_amd_code_tab(i));
9711: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
9712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9713: END IF;
9714:
9715: END LOOP;
9716:
9779: END IF;
9780:
9781: EXCEPTION WHEN OTHERS THEN
9782:
9783: x_return_status := OKL_API.G_RET_STS_ERROR;
9784: /*OKL_API.set_message(p_app_name => 'OKL',
9785: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
9786: p_token1 => 'ASSET_NUMBER',
9787: p_token1_value => 'insert_okl_k_headers');*/
9780:
9781: EXCEPTION WHEN OTHERS THEN
9782:
9783: x_return_status := OKL_API.G_RET_STS_ERROR;
9784: /*OKL_API.set_message(p_app_name => 'OKL',
9785: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
9786: p_token1 => 'ASSET_NUMBER',
9787: p_token1_value => 'insert_okl_k_headers');*/
9788: /* DEBUG */
10013: /*
10014: okl_quote_plans_pvt.modify_quote_structure(
10015: p_api_version => p_api_version,
10016: p_init_msg_list => p_init_msg_list,
10017: p_transaction_control => OKL_API.G_FALSE,
10018: p_chr_id => p_new_id,
10019: p_modify_reason_code => 'COPY_QUOTE',
10020: x_chr_id => l_quote_chr_id,
10021: x_return_status => l_return_status,
10021: x_return_status => l_return_status,
10022: x_msg_count => x_msg_count,
10023: x_msg_data => x_msg_data
10024: );
10025: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10027: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
10028: RAISE OKL_API.G_EXCEPTION_ERROR;
10029: END IF;
10022: x_msg_count => x_msg_count,
10023: x_msg_data => x_msg_data
10024: );
10025: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10027: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
10028: RAISE OKL_API.G_EXCEPTION_ERROR;
10029: END IF;
10030: */
10023: x_msg_data => x_msg_data
10024: );
10025: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10027: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
10028: RAISE OKL_API.G_EXCEPTION_ERROR;
10029: END IF;
10030: */
10031:
10024: );
10025: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10027: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
10028: RAISE OKL_API.G_EXCEPTION_ERROR;
10029: END IF;
10030: */
10031:
10032: END IF;
10031:
10032: END IF;
10033: EXCEPTION WHEN OTHERS THEN
10034:
10035: x_return_status := OKL_API.G_RET_STS_ERROR;
10036: /*OKL_API.set_message(p_app_name => 'OKL',
10037: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
10038: p_token1 => 'ASSET_NUMBER',
10039: p_token1_value => 'insert_okl_slctd_optns');*/
10032: END IF;
10033: EXCEPTION WHEN OTHERS THEN
10034:
10035: x_return_status := OKL_API.G_RET_STS_ERROR;
10036: /*OKL_API.set_message(p_app_name => 'OKL',
10037: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
10038: p_token1 => 'ASSET_NUMBER',
10039: p_token1_value => 'insert_okl_slctd_optns');*/
10040: /* DEBUG */
10216: END LOOP;
10217:
10218: EXCEPTION WHEN OTHERS THEN
10219:
10220: x_return_status := OKL_API.G_RET_STS_ERROR;
10221: /*OKL_API.set_message(p_app_name => 'OKL',
10222: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
10223: p_token1 => 'ASSET_NUMBER',
10224: p_token1_value => 'sort_osid_mapping_tab');*/
10217:
10218: EXCEPTION WHEN OTHERS THEN
10219:
10220: x_return_status := OKL_API.G_RET_STS_ERROR;
10221: /*OKL_API.set_message(p_app_name => 'OKL',
10222: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
10223: p_token1 => 'ASSET_NUMBER',
10224: p_token1_value => 'sort_osid_mapping_tab');*/
10225: /* DEBUG */
10409: END LOOP;
10410:
10411: EXCEPTION WHEN OTHERS THEN
10412:
10413: x_return_status := OKL_API.G_RET_STS_ERROR;
10414: /*OKL_API.set_message(p_app_name => 'OKL',
10415: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
10416: p_token1 => 'ASSET_NUMBER',
10417: p_token1_value => 'sort_okl_k_lines_rec');*/
10410:
10411: EXCEPTION WHEN OTHERS THEN
10412:
10413: x_return_status := OKL_API.G_RET_STS_ERROR;
10414: /*OKL_API.set_message(p_app_name => 'OKL',
10415: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
10416: p_token1 => 'ASSET_NUMBER',
10417: p_token1_value => 'sort_okl_k_lines_rec');*/
10418: /* DEBUG */
10941: IF (l_new_id = -1) THEN
10942: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10943: 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));
10944: END IF;
10945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10946: --raise_application_error(-20001, 'Can not find mapping id');
10947: END IF;
10948: l_id_tab(l_okl_k_lines_counter) := l_new_id;
10949: l_osid_mapping_tab(l_okl_k_lines_counter).id := l_id_tab(l_okl_k_lines_counter);
10953: /*if (l_kle_id_tab(l_okl_k_lines_counter) is not null) then
10954: l_new_kle_id := find_mapping_id(l_kle_id_tab(l_okl_k_lines_counter));
10955: if (l_new_kle_id = -1) then
10956: print('ERROR : Mapping kle_id not found for ' || l_kle_id_tab(l_okl_k_lines_counter));
10957: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10958: end if;
10959: l_kle_id_tab(l_okl_k_lines_counter) := l_new_kle_id;
10960: end if; */
10961:
11226: END IF;
11227:
11228: EXCEPTION WHEN OTHERS THEN
11229:
11230: x_return_status := OKL_API.G_RET_STS_ERROR;
11231: /*OKL_API.set_message(p_app_name => 'OKL',
11232: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
11233: p_token1 => 'ASSET_NUMBER',
11234: p_token1_value => 'insert_okl_k_lines');*/
11227:
11228: EXCEPTION WHEN OTHERS THEN
11229:
11230: x_return_status := OKL_API.G_RET_STS_ERROR;
11231: /*OKL_API.set_message(p_app_name => 'OKL',
11232: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
11233: p_token1 => 'ASSET_NUMBER',
11234: p_token1_value => 'insert_okl_k_lines');*/
11235: /* DEBUG */
11521: END LOOP;
11522:
11523: EXCEPTION WHEN OTHERS THEN
11524:
11525: x_return_status := OKL_API.G_RET_STS_ERROR;
11526: /*OKL_API.set_message(p_app_name => 'OKL',
11527: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
11528: p_token1 => 'ASSET_NUMBER',
11529: p_token1_value => 'do_sort_party_mapping_id');*/
11522:
11523: EXCEPTION WHEN OTHERS THEN
11524:
11525: x_return_status := OKL_API.G_RET_STS_ERROR;
11526: /*OKL_API.set_message(p_app_name => 'OKL',
11527: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
11528: p_token1 => 'ASSET_NUMBER',
11529: p_token1_value => 'do_sort_party_mapping_id');*/
11530: /* DEBUG */
11676: END IF;
11677:
11678: EXCEPTION WHEN OTHERS THEN
11679:
11680: x_return_status := OKL_API.G_RET_STS_ERROR;
11681: /* DEBUG */
11682: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11683: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
11684: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing prepare_okl_party_roles:l_plid_tab.count=' || l_plid_tab.COUNT || ' ...');
11804: END IF;
11805:
11806: EXCEPTION WHEN OTHERS THEN
11807:
11808: x_return_status := OKL_API.G_RET_STS_ERROR;
11809: /*OKL_API.set_message(p_app_name => 'OKL',
11810: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
11811: p_token1 => 'ASSET_NUMBER',
11812: p_token1_value => 'prepare_party_roles_tl');*/
11805:
11806: EXCEPTION WHEN OTHERS THEN
11807:
11808: x_return_status := OKL_API.G_RET_STS_ERROR;
11809: /*OKL_API.set_message(p_app_name => 'OKL',
11810: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
11811: p_token1 => 'ASSET_NUMBER',
11812: p_token1_value => 'prepare_party_roles_tl');*/
11813: /* DEBUG */
12004: END IF;
12005:
12006: EXCEPTION WHEN OTHERS THEN
12007:
12008: x_return_status := OKL_API.G_RET_STS_ERROR;
12009: /*OKL_API.set_message(p_app_name => 'OKL',
12010: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
12011: p_token1 => 'ASSET_NUMBER',
12012: p_token1_value => 'prepare_contacts');*/
12005:
12006: EXCEPTION WHEN OTHERS THEN
12007:
12008: x_return_status := OKL_API.G_RET_STS_ERROR;
12009: /*OKL_API.set_message(p_app_name => 'OKL',
12010: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
12011: p_token1 => 'ASSET_NUMBER',
12012: p_token1_value => 'prepare_contacts');*/
12013: /* DEBUG */
12198: END LOOP;
12199:
12200: EXCEPTION WHEN OTHERS THEN
12201:
12202: --x_return_status := OKL_API.G_RET_STS_ERROR;
12203: /* DEBUG */
12204: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
12205: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
12206: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing sort_phid_mapping_tab:l_phid_mapping_tab N=' || N || ' ...');
12303: IF (l_new_cle_id = -1) THEN
12304: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
12305: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: CLE_ID to NEW_CLE_ID mapping not found');
12306: END IF;
12307: RAISE OKL_API.G_EXCEPTION_ERROR;
12308: END IF;
12309: l_phcle_id_tab(l_party_payment_hdr_counter) := l_new_cle_id;
12310: END IF;
12311:
12563: END IF;
12564:
12565: EXCEPTION WHEN OTHERS THEN
12566:
12567: x_return_status := OKL_API.G_RET_STS_ERROR;
12568: /*OKL_API.set_message(p_app_name => 'OKL',
12569: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
12570: p_token1 => 'ASSET_NUMBER',
12571: p_token1_value => 'prepare_party_payment_dtls');*/
12564:
12565: EXCEPTION WHEN OTHERS THEN
12566:
12567: x_return_status := OKL_API.G_RET_STS_ERROR;
12568: /*OKL_API.set_message(p_app_name => 'OKL',
12569: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
12570: p_token1 => 'ASSET_NUMBER',
12571: p_token1_value => 'prepare_party_payment_dtls');*/
12572: /* DEBUG */
12763: END LOOP;
12764:
12765: EXCEPTION WHEN OTHERS THEN
12766:
12767: x_return_status := OKL_API.G_RET_STS_ERROR;
12768: /*OKL_API.set_message(p_app_name => 'OKL',
12769: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
12770: p_token1 => 'ASSET_NUMBER',
12771: p_token1_value => 'sort_vid_mapping_tab');*/
12764:
12765: EXCEPTION WHEN OTHERS THEN
12766:
12767: x_return_status := OKL_API.G_RET_STS_ERROR;
12768: /*OKL_API.set_message(p_app_name => 'OKL',
12769: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
12770: p_token1 => 'ASSET_NUMBER',
12771: p_token1_value => 'sort_vid_mapping_tab');*/
12772: /* DEBUG */
13003: IF (l_new_cle_id = -1) THEN
13004: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
13005: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_cle_id_tab(l_loop_counter));
13006: END IF;
13007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13008: END IF;
13009: l_cle_id_tab(l_loop_counter) := l_new_cle_id;
13010: END IF;
13011:
13172: END IF;
13173:
13174: EXCEPTION WHEN OTHERS THEN
13175:
13176: x_return_status := OKL_API.G_RET_STS_ERROR;
13177: /*OKL_API.set_message(p_app_name => 'OKL',
13178: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13179: p_token1 => 'ASSET_NUMBER',
13180: p_token1_value => 'insert_okc_k_party_roles');*/
13173:
13174: EXCEPTION WHEN OTHERS THEN
13175:
13176: x_return_status := OKL_API.G_RET_STS_ERROR;
13177: /*OKL_API.set_message(p_app_name => 'OKL',
13178: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13179: p_token1 => 'ASSET_NUMBER',
13180: p_token1_value => 'insert_okc_k_party_roles');*/
13181: /* DEBUG */
13372: END LOOP;
13373:
13374: EXCEPTION WHEN OTHERS THEN
13375:
13376: x_return_status := OKL_API.G_RET_STS_ERROR;
13377: /*OKL_API.set_message(p_app_name => 'OKL',
13378: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13379: p_token1 => 'ASSET_NUMBER',
13380: p_token1_value => 'sort_rid_mapping_tab');*/
13373:
13374: EXCEPTION WHEN OTHERS THEN
13375:
13376: x_return_status := OKL_API.G_RET_STS_ERROR;
13377: /*OKL_API.set_message(p_app_name => 'OKL',
13378: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13379: p_token1 => 'ASSET_NUMBER',
13380: p_token1_value => 'sort_rid_mapping_tab');*/
13381: /* DEBUG */
13539: END LOOP;
13540:
13541: EXCEPTION WHEN OTHERS THEN
13542:
13543: x_return_status := OKL_API.G_RET_STS_ERROR;
13544: /*OKL_API.set_message(p_app_name => 'OKL',
13545: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13546: p_token1 => 'ASSET_NUMBER',
13547: p_token1_value => 'sort_rrid_mapping_tab');*/
13540:
13541: EXCEPTION WHEN OTHERS THEN
13542:
13543: x_return_status := OKL_API.G_RET_STS_ERROR;
13544: /*OKL_API.set_message(p_app_name => 'OKL',
13545: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13546: p_token1 => 'ASSET_NUMBER',
13547: p_token1_value => 'sort_rrid_mapping_tab');*/
13548: /* DEBUG */
13643: END IF;
13644:
13645: EXCEPTION WHEN OTHERS THEN
13646:
13647: x_return_status := OKL_API.G_RET_STS_ERROR;
13648: /*OKL_API.set_message(p_app_name => 'OKL',
13649: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13650: p_token1 => 'ASSET_NUMBER',
13651: p_token1_value => 'prepare_rule_groups_tl');*/
13644:
13645: EXCEPTION WHEN OTHERS THEN
13646:
13647: x_return_status := OKL_API.G_RET_STS_ERROR;
13648: /*OKL_API.set_message(p_app_name => 'OKL',
13649: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13650: p_token1 => 'ASSET_NUMBER',
13651: p_token1_value => 'prepare_rule_groups_tl');*/
13652: /* DEBUG */
13751: END IF;
13752:
13753: EXCEPTION WHEN OTHERS THEN
13754:
13755: x_return_status := OKL_API.G_RET_STS_ERROR;
13756: /*OKL_API.set_message(p_app_name => 'OKL',
13757: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13758: p_token1 => 'ASSET_NUMBER',
13759: p_token1_value => 'insert_okc_rules_tl');*/
13752:
13753: EXCEPTION WHEN OTHERS THEN
13754:
13755: x_return_status := OKL_API.G_RET_STS_ERROR;
13756: /*OKL_API.set_message(p_app_name => 'OKL',
13757: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
13758: p_token1 => 'ASSET_NUMBER',
13759: p_token1_value => 'insert_okc_rules_tl');*/
13760: /* DEBUG */
14032: l_rrrule_information1_tab(l_rules_b_counter) := l_rrrule_information1_tab2(i);
14033: --gboomina Bug 5362977 - Start
14034: -- Do not set Re-lease asset Flag to 'N' for Rebook and Re-lease copy
14035: -- contracts
14036: IF ( NVL(l_orig_system_source_code,OKL_API.G_MISS_CHAR) IN ('OKL_REBOOK','OKL_RELEASE'))
14037: THEN
14038: NULL;
14039: ELSE
14040: IF ( l_rrrule_information_cate_tab(l_rules_b_counter) = 'LARLES') THEN
14097: IF (l_new_id = -1) THEN
14098: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
14099: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR : Mapping id not found for ' || l_rrobject2_id1_tab(i));
14100: END IF;
14101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14102: END IF;
14103: l_rrobject2_id1_tab(i) := l_new_id;
14104: --print('object2_id1:l_new_id=' || l_new_id);
14105: EXCEPTION WHEN OTHERS THEN
14169: END IF;
14170:
14171: EXCEPTION WHEN OTHERS THEN
14172:
14173: x_return_status := OKL_API.G_RET_STS_ERROR;
14174: /*OKL_API.set_message(p_app_name => 'OKL',
14175: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14176: p_token1 => 'ASSET_NUMBER',
14177: p_token1_value => 'insert_okc_rules_b');*/
14170:
14171: EXCEPTION WHEN OTHERS THEN
14172:
14173: x_return_status := OKL_API.G_RET_STS_ERROR;
14174: /*OKL_API.set_message(p_app_name => 'OKL',
14175: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14176: p_token1 => 'ASSET_NUMBER',
14177: p_token1_value => 'insert_okc_rules_b');*/
14178: /* DEBUG */
14389: END LOOP;
14390:
14391: EXCEPTION WHEN OTHERS THEN
14392:
14393: x_return_status := OKL_API.G_RET_STS_ERROR;
14394: /*OKL_API.set_message(p_app_name => 'OKL',
14395: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14396: p_token1 => 'ASSET_NUMBER',
14397: p_token1_value => 'sort_tid_mapping_tab');*/
14390:
14391: EXCEPTION WHEN OTHERS THEN
14392:
14393: x_return_status := OKL_API.G_RET_STS_ERROR;
14394: /*OKL_API.set_message(p_app_name => 'OKL',
14395: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14396: p_token1 => 'ASSET_NUMBER',
14397: p_token1_value => 'sort_tid_mapping_tab');*/
14398: /* DEBUG */
14518: IF (l_new_cle_id = -1) THEN
14519: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
14520: 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));
14521: END IF;
14522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14523: END IF;
14524: l_rcle_id_tab(l_rule_groups_b_counter) := l_new_cle_id;
14525: END IF;
14526:
14619: END IF;
14620:
14621: EXCEPTION WHEN OTHERS THEN
14622:
14623: x_return_status := OKL_API.G_RET_STS_ERROR;
14624: /*OKL_API.set_message(p_app_name => 'OKL',
14625: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14626: p_token1 => 'ASSET_NUMBER',
14627: p_token1_value => 'insert_okc_rule_groups');*/
14620:
14621: EXCEPTION WHEN OTHERS THEN
14622:
14623: x_return_status := OKL_API.G_RET_STS_ERROR;
14624: /*OKL_API.set_message(p_app_name => 'OKL',
14625: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14626: p_token1 => 'ASSET_NUMBER',
14627: p_token1_value => 'insert_okc_rule_groups');*/
14628: /* DEBUG */
14811: END LOOP;
14812:
14813: EXCEPTION WHEN OTHERS THEN
14814:
14815: x_return_status := OKL_API.G_RET_STS_ERROR;
14816: /*OKL_API.set_message(p_app_name => 'OKL',
14817: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14818: p_token1 => 'ASSET_NUMBER',
14819: p_token1_value => 'sort_oid_mapping_tab');*/
14812:
14813: EXCEPTION WHEN OTHERS THEN
14814:
14815: x_return_status := OKL_API.G_RET_STS_ERROR;
14816: /*OKL_API.set_message(p_app_name => 'OKL',
14817: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
14818: p_token1 => 'ASSET_NUMBER',
14819: p_token1_value => 'sort_oid_mapping_tab');*/
14820: /* DEBUG */
15011:
15012:
15013: EXCEPTION WHEN OTHERS THEN
15014:
15015: x_return_status := OKL_API.G_RET_STS_ERROR;
15016: /*OKL_API.set_message(p_app_name => 'OKL',
15017: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15018: p_token1 => 'ASSET_NUMBER',
15019: p_token1_value => 'sort_okc_k_items_rec');*/
15012:
15013: EXCEPTION WHEN OTHERS THEN
15014:
15015: x_return_status := OKL_API.G_RET_STS_ERROR;
15016: /*OKL_API.set_message(p_app_name => 'OKL',
15017: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15018: p_token1 => 'ASSET_NUMBER',
15019: p_token1_value => 'sort_okc_k_items_rec');*/
15020: /* DEBUG */
15117: IF (l_new_cle_id = -1) THEN
15118: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15119: 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));
15120: END IF;
15121: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15122: END IF;
15123: l_icle_id_tab(l_items_counter) := l_new_cle_id;
15124: END IF;
15125:
15145: IF (l_new_object1_id1 = -1) THEN
15146: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15147: 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));
15148: END IF;
15149: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15150: END IF;
15151: l_iobject1_id1_tab(l_items_counter) := l_new_object1_id1;
15152: END IF;
15153: END IF;
15225: END IF;
15226:
15227: EXCEPTION WHEN OTHERS THEN
15228:
15229: x_return_status := OKL_API.G_RET_STS_ERROR;
15230: /*OKL_API.set_message(p_app_name => 'OKL',
15231: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15232: p_token1 => 'ASSET_NUMBER',
15233: p_token1_value => 'insert_okc_k_items');*/
15226:
15227: EXCEPTION WHEN OTHERS THEN
15228:
15229: x_return_status := OKL_API.G_RET_STS_ERROR;
15230: /*OKL_API.set_message(p_app_name => 'OKL',
15231: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15232: p_token1 => 'ASSET_NUMBER',
15233: p_token1_value => 'insert_okc_k_items');*/
15234: /* DEBUG */
15389: END LOOP;
15390:
15391: EXCEPTION WHEN OTHERS THEN
15392:
15393: x_return_status := OKL_API.G_RET_STS_ERROR;
15394: /*OKL_API.set_message(p_app_name => 'OKL',
15395: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15396: p_token1 => 'ASSET_NUMBER',
15397: p_token1_value => 'sort_trx_id_mapping_tab');*/
15390:
15391: EXCEPTION WHEN OTHERS THEN
15392:
15393: x_return_status := OKL_API.G_RET_STS_ERROR;
15394: /*OKL_API.set_message(p_app_name => 'OKL',
15395: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15396: p_token1 => 'ASSET_NUMBER',
15397: p_token1_value => 'sort_trx_id_mapping_tab');*/
15398: /* DEBUG */
15556: END LOOP;
15557:
15558: EXCEPTION WHEN OTHERS THEN
15559:
15560: x_return_status := OKL_API.G_RET_STS_ERROR;
15561: /*OKL_API.set_message(p_app_name => 'OKL',
15562: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15563: p_token1 => 'ASSET_NUMBER',
15564: p_token1_value => 'sort_trx_id_mapping_tab2');*/
15557:
15558: EXCEPTION WHEN OTHERS THEN
15559:
15560: x_return_status := OKL_API.G_RET_STS_ERROR;
15561: /*OKL_API.set_message(p_app_name => 'OKL',
15562: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15563: p_token1 => 'ASSET_NUMBER',
15564: p_token1_value => 'sort_trx_id_mapping_tab2');*/
15565: /* DEBUG */
15722: END LOOP;
15723:
15724: EXCEPTION WHEN OTHERS THEN
15725:
15726: x_return_status := OKL_API.G_RET_STS_ERROR;
15727: /*OKL_API.set_message(p_app_name => 'OKL',
15728: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15729: p_token1 => 'ASSET_NUMBER',
15730: p_token1_value => 'sort_txl_id_mapping_tab');*/
15723:
15724: EXCEPTION WHEN OTHERS THEN
15725:
15726: x_return_status := OKL_API.G_RET_STS_ERROR;
15727: /*OKL_API.set_message(p_app_name => 'OKL',
15728: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15729: p_token1 => 'ASSET_NUMBER',
15730: p_token1_value => 'sort_txl_id_mapping_tab');*/
15731: /* DEBUG */
15846: END IF;
15847:
15848: EXCEPTION WHEN OTHERS THEN
15849:
15850: x_return_status := OKL_API.G_RET_STS_ERROR;
15851: /*OKL_API.set_message(p_app_name => 'OKL',
15852: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15853: p_token1 => 'ASSET_NUMBER',
15854: p_token1_value => 'insert_okl_txl_assets_tl');*/
15847:
15848: EXCEPTION WHEN OTHERS THEN
15849:
15850: x_return_status := OKL_API.G_RET_STS_ERROR;
15851: /*OKL_API.set_message(p_app_name => 'OKL',
15852: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15853: p_token1 => 'ASSET_NUMBER',
15854: p_token1_value => 'insert_okl_txl_assets_tl');*/
15855: /* DEBUG */
15958: END IF;
15959: END IF;
15960: EXCEPTION WHEN OTHERS THEN
15961:
15962: x_return_status := OKL_API.G_RET_STS_ERROR;
15963: /*OKL_API.set_message(p_app_name => 'OKL',
15964: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15965: p_token1 => 'ASSET_NUMBER',
15966: p_token1_value => 'insert_okl_txd_assets_tl');*/
15959: END IF;
15960: EXCEPTION WHEN OTHERS THEN
15961:
15962: x_return_status := OKL_API.G_RET_STS_ERROR;
15963: /*OKL_API.set_message(p_app_name => 'OKL',
15964: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15965: p_token1 => 'ASSET_NUMBER',
15966: p_token1_value => 'insert_okl_txd_assets_tl');*/
15967: /* DEBUG */
16200: END LOOP;
16201: END IF;
16202: EXCEPTION WHEN OTHERS THEN
16203:
16204: x_return_status := OKL_API.G_RET_STS_ERROR;
16205: /*OKL_API.set_message(p_app_name => 'OKL',
16206: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16207: p_token1 => 'ASSET_NUMBER',
16208: p_token1_value => 'insert_okl_txd_assets_b');*/
16201: END IF;
16202: EXCEPTION WHEN OTHERS THEN
16203:
16204: x_return_status := OKL_API.G_RET_STS_ERROR;
16205: /*OKL_API.set_message(p_app_name => 'OKL',
16206: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16207: p_token1 => 'ASSET_NUMBER',
16208: p_token1_value => 'insert_okl_txd_assets_b');*/
16209: /* DEBUG */
16399: END LOOP;
16400:
16401: EXCEPTION WHEN OTHERS THEN
16402:
16403: x_return_status := OKL_API.G_RET_STS_ERROR;
16404: /*OKL_API.set_message(p_app_name => 'OKL',
16405: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16406: p_token1 => 'ASSET_NUMBER',
16407: p_token1_value => 'sort_dbid_mapping_tab');*/
16400:
16401: EXCEPTION WHEN OTHERS THEN
16402:
16403: x_return_status := OKL_API.G_RET_STS_ERROR;
16404: /*OKL_API.set_message(p_app_name => 'OKL',
16405: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16406: p_token1 => 'ASSET_NUMBER',
16407: p_token1_value => 'sort_dbid_mapping_tab');*/
16408: /* DEBUG */
16598: IF (l_new_tas_id = -1) THEN
16599: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
16600: 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));
16601: END IF;
16602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16603: END IF;
16604: l_tbtas_id_tab(l_txl_assets_b_counter) := l_new_tas_id;
16605:
16606: l_tbilo_id_tab(l_txl_assets_b_counter) := l_tbilo_id_tab2(i);
16614: IF (l_new_kle_id = -1) THEN
16615: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
16616: 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));
16617: END IF;
16618: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16619: END IF;
16620: l_tbkle_id_tab(l_txl_assets_b_counter) := l_new_kle_id;
16621: END IF;
16622:
16802: END IF;
16803:
16804: EXCEPTION WHEN OTHERS THEN
16805:
16806: x_return_status := OKL_API.G_RET_STS_ERROR;
16807: /*OKL_API.set_message(p_app_name => 'OKL',
16808: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16809: p_token1 => 'ASSET_NUMBER',
16810: p_token1_value => 'insert_okl_txl_assets_b');*/
16803:
16804: EXCEPTION WHEN OTHERS THEN
16805:
16806: x_return_status := OKL_API.G_RET_STS_ERROR;
16807: /*OKL_API.set_message(p_app_name => 'OKL',
16808: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
16809: p_token1 => 'ASSET_NUMBER',
16810: p_token1_value => 'insert_okl_txl_assets_b');*/
16811: /* DEBUG */
17069:
17070: END IF;
17071: EXCEPTION WHEN OTHERS THEN
17072:
17073: x_return_status := OKL_API.G_RET_STS_ERROR;
17074: /*OKL_API.set_message(p_app_name => 'OKL',
17075: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
17076: p_token1 => 'ASSET_NUMBER',
17077: p_token1_value => 'insert_okl_trx_assets');*/
17070: END IF;
17071: EXCEPTION WHEN OTHERS THEN
17072:
17073: x_return_status := OKL_API.G_RET_STS_ERROR;
17074: /*OKL_API.set_message(p_app_name => 'OKL',
17075: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
17076: p_token1 => 'ASSET_NUMBER',
17077: p_token1_value => 'insert_okl_trx_assets');*/
17078: /* DEBUG */
17288:
17289: END IF;
17290: EXCEPTION WHEN OTHERS THEN
17291:
17292: x_return_status := OKL_API.G_RET_STS_ERROR;
17293: /*OKL_API.set_message(p_app_name => 'OKL',
17294: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
17295: p_token1 => 'ASSET_NUMBER',
17296: p_token1_value => 'insert_okl_trx_assets_2');*/
17289: END IF;
17290: EXCEPTION WHEN OTHERS THEN
17291:
17292: x_return_status := OKL_API.G_RET_STS_ERROR;
17293: /*OKL_API.set_message(p_app_name => 'OKL',
17294: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
17295: p_token1 => 'ASSET_NUMBER',
17296: p_token1_value => 'insert_okl_trx_assets_2');*/
17297: /* DEBUG */
17338: -- okl_copy_asset_pvt.generate_instance_number_ib instead
17339:
17340: FUNCTION generate_instance_number_ib(x_instance_number_ib OUT NOCOPY OKL_TXL_ITM_INSTS_V.INSTANCE_NUMBER_IB%TYPE)
17341: RETURN VARCHAR2 IS
17342: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
17343: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
17344: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
17345: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
17346: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17339:
17340: FUNCTION generate_instance_number_ib(x_instance_number_ib OUT NOCOPY OKL_TXL_ITM_INSTS_V.INSTANCE_NUMBER_IB%TYPE)
17341: RETURN VARCHAR2 IS
17342: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
17343: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
17344: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
17345: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
17346: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17347: -- cursor to get sequence number for asset number
17352: OPEN c_instance_no_ib;
17353: FETCH c_instance_no_ib INTO x_instance_number_ib;
17354: IF (c_instance_no_ib%NOTFOUND) THEN
17355: x_return_status := OKC_API.G_RET_STS_ERROR;
17356: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
17357: p_msg_name => g_unexpected_error,
17358: p_token1 => g_sqlcode_token,
17359: p_token1_value => SQLCODE,
17360: p_token2 => g_sqlerrm_token,
17367: IF c_instance_no_ib%ISOPEN THEN
17368: CLOSE c_instance_no_ib;
17369: END IF;
17370: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
17371: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
17372: p_msg_name => g_unexpected_error,
17373: p_token1 => g_sqlcode_token,
17374: p_token1_value => SQLCODE,
17375: p_token2 => g_sqlerrm_token,
17512: IF (l_new_kle_id = -1) THEN
17513: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
17514: 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));
17515: END IF;
17516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17517: END IF;
17518: l_tikle_id_tab(l_txl_itm_insts_counter) := l_new_kle_id;
17519:
17520: l_tital_type_tab(l_txl_itm_insts_counter) := l_tital_type_tab2(i);
17526: --l_new_asset_name := find_aid_mapping_id(l_tiinstance_number_ib_tab(l_txl_itm_insts_counter));
17527: -- To do: expose okl_copy_asset_pvt.generate_instance_number_ib
17528: -- Use the package call instead
17529: l_return_status := generate_instance_number_ib(l_generated_instance_number_ib);
17530: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
17531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17532: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
17533: RAISE OKL_API.G_EXCEPTION_ERROR;
17534: END IF;
17527: -- To do: expose okl_copy_asset_pvt.generate_instance_number_ib
17528: -- Use the package call instead
17529: l_return_status := generate_instance_number_ib(l_generated_instance_number_ib);
17530: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
17531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17532: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
17533: RAISE OKL_API.G_EXCEPTION_ERROR;
17534: END IF;
17535:
17528: -- Use the package call instead
17529: l_return_status := generate_instance_number_ib(l_generated_instance_number_ib);
17530: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
17531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17532: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
17533: RAISE OKL_API.G_EXCEPTION_ERROR;
17534: END IF;
17535:
17536: l_tiinstance_number_ib_tab(l_txl_itm_insts_counter) := l_generated_instance_number_ib;
17529: l_return_status := generate_instance_number_ib(l_generated_instance_number_ib);
17530: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
17531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17532: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
17533: RAISE OKL_API.G_EXCEPTION_ERROR;
17534: END IF;
17535:
17536: l_tiinstance_number_ib_tab(l_txl_itm_insts_counter) := l_generated_instance_number_ib;
17537:
17571: -- Change dnz_cle_id ??? AKP
17572: l_new_dnz_cle_id := find_mapping_id(l_tidnz_cle_id_tab(l_txl_itm_insts_counter));
17573: /*if (l_new_dnz_cle_id = -1) then
17574: print('ERROR : Mapping id not found for ' || l_tidnz_cle_id_tab(l_txl_itm_insts_counter));
17575: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17576: end if;*/
17577: l_tidnz_cle_id_tab(l_txl_itm_insts_counter) := l_new_dnz_cle_id;
17578:
17579: l_tiinstance_id_tab(l_txl_itm_insts_counter) := l_tiinstance_id_tab2(i);
17626: );
17627: END IF;
17628: EXCEPTION WHEN OTHERS THEN
17629:
17630: x_return_status := OKL_API.G_RET_STS_ERROR;
17631: /*OKL_API.set_message(p_app_name => 'OKL',
17632: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
17633: p_token1 => 'ASSET_NUMBER',
17634: p_token1_value => 'insert_okl_txl_itm_insts');*/
17627: END IF;
17628: EXCEPTION WHEN OTHERS THEN
17629:
17630: x_return_status := OKL_API.G_RET_STS_ERROR;
17631: /*OKL_API.set_message(p_app_name => 'OKL',
17632: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
17633: p_token1 => 'ASSET_NUMBER',
17634: p_token1_value => 'insert_okl_txl_itm_insts');*/
17635: /* DEBUG */
17734: p_token3 => 'CONVERSION_TYPE',
17735: p_token3_value => x_currency_conversion_type,
17736: p_token4 => 'CONVERSION_DATE',
17737: p_token4_value => TO_CHAR(x_currency_conversion_date,'DD-MON-YYYY'));
17738: RAISE OKL_API.G_EXCEPTION_ERROR;
17739: END IF;
17740: x_original_cost := l_converted_cost;
17741: x_depreciable_cost := l_converted_cost;
17742: END IF;
17844: p_token3 => 'CONVERSION_TYPE',
17845: p_token3_value => x_currency_conversion_type,
17846: p_token4 => 'CONVERSION_DATE',
17847: p_token4_value => TO_CHAR(x_currency_conversion_date,'DD-MON-YYYY'));
17848: RAISE OKL_API.G_EXCEPTION_ERROR;
17849: END IF;
17850: x_salvage_value := l_salvage_value;
17851: --x_percent_salvage_value := null;
17852: ELSE
18271: IF (l_new_id = -1) THEN
18272: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18273: 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));
18274: END IF;
18275: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18276: END IF;
18277: l_ID_local_tab(l_okl_trx_counter3) := l_new_id;
18278:
18279: l_okl_trx_counter3 := l_okl_trx_counter3 + 1;
18330: IF (c_location_id%NOTFOUND) THEN
18331: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18332: 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));
18333: END IF;
18334: x_return_status := OKL_API.G_RET_STS_ERROR;
18335: CLOSE c_location_id;
18336: RAISE OKL_API.G_EXCEPTION_ERROR;
18337: END IF;
18338: CLOSE c_location_id;
18332: 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));
18333: END IF;
18334: x_return_status := OKL_API.G_RET_STS_ERROR;
18335: CLOSE c_location_id;
18336: RAISE OKL_API.G_EXCEPTION_ERROR;
18337: END IF;
18338: CLOSE c_location_id;
18339: l_tb2fa_location_id_tab(l_trx_assets_counter4) := l_location_id;
18340:
18356: IF (l_tmp_okl_42_rec.year_built = OKC_API.G_MISS_NUM ) THEN
18357: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18358: 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));
18359: END IF;
18360: RAISE OKL_API.G_EXCEPTION_ERROR;
18361: END IF;
18362:
18363: l_tb2year_manufactured_tab(l_trx_assets_counter4) := l_tmp_okl_42_rec.year_built;
18364: -- Todo AKP
18429: IF (l_new_tal_id = -1) THEN
18430: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18431: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR!!!!Mapping tal_id not found');
18432: END IF;
18433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18434: END IF;
18435: l_db2tal_id_tab(l_txd_assets_b_counter4) := l_new_tal_id;
18436: --print('l_new_tal_id='|| l_new_tal_id);
18437: l_db2asset_number_tab(l_txd_assets_b_counter4) := l_ASSET_NUMBER_tab(i);
18453: IF (l_new_line_number = -1) THEN
18454: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18455: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR!!!!Mapping line_number not found');
18456: END IF;
18457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18458: END IF;
18459: l_db2line_detail_number_tab(l_txd_assets_b_counter4) := l_new_line_number;
18460:
18461: l_db2quantity_tab(l_txd_assets_b_counter4) := l_CURRENT_UNITS_tab(i);
18509: IF (l_lse_id_tab(i) = 42) THEN
18510: --print('Found 42: l_id_tab(' ||i || ')=' || l_id_tab(i) ||' l_name_tab('||i||')=' || l_name_tab(i));
18511: l_tmp_itm_rec := find_okc_k_items_rec(l_id_tab(i));
18512: --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);
18513: IF (l_tmp_itm_rec.number_of_items = OKL_API.G_MISS_NUM ) THEN
18514: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18515: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okc_k_items rec not found for ' || l_id_tab(i));
18516: END IF;
18517: RAISE OKL_API.G_EXCEPTION_ERROR;
18513: IF (l_tmp_itm_rec.number_of_items = OKL_API.G_MISS_NUM ) THEN
18514: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18515: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okc_k_items rec not found for ' || l_id_tab(i));
18516: END IF;
18517: RAISE OKL_API.G_EXCEPTION_ERROR;
18518: END IF;
18519: IF ((l_tmp_itm_rec.object1_id1 IS NULL) AND
18520: (l_tmp_itm_rec.object1_id2 IS NULL)) THEN
18521: -- Populate okl_trx_assets
18551: IF (l_cle_id = -1) THEN
18552: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18553: 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));
18554: END IF;
18555: RAISE OKL_API.G_EXCEPTION_ERROR;
18556: END IF;
18557:
18558: l_asset_name_old := find_bid_mapping_id(l_cle_id, 33);
18559: IF (l_asset_name_old = '-1') THEN
18559: IF (l_asset_name_old = '-1') THEN
18560: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18561: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping bid_mapping not found for ' || l_cle_id);
18562: END IF;
18563: RAISE OKL_API.G_EXCEPTION_ERROR;
18564: END IF;
18565: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18566: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_asset_name_old=' || l_asset_name_old);
18567: END IF;
18586:
18587: -- Todo AKP
18588: l_tmp_okl_33_rec := find_okl_k_lines_rec(l_cle_id);
18589: --print('Upto 8...l_tmp_okl_33_rec.oec=' || l_tmp_okl_33_rec.oec);
18590: IF (l_tmp_okl_33_rec.oec = OKL_API.G_MISS_NUM ) THEN
18591: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18592: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_cle_id );
18593: END IF;
18594: RAISE OKL_API.G_EXCEPTION_ERROR;
18590: IF (l_tmp_okl_33_rec.oec = OKL_API.G_MISS_NUM ) THEN
18591: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18592: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_cle_id );
18593: END IF;
18594: RAISE OKL_API.G_EXCEPTION_ERROR;
18595: END IF;
18596:
18597: --print('Calling find_cle_lse_mapping with ' || l_cle_id || ':34');
18598: l_new_34_id := find_cle_lse_mapping_id(l_cle_id, 34);
18600: IF (l_new_34_id = -1) THEN
18601: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18602: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping cle_lse_mapping not found for ' || l_cle_id || ':33');
18603: END IF;
18604: RAISE OKL_API.G_EXCEPTION_ERROR;
18605: END IF;
18606: l_tmp_okc_34_rec := find_okc_k_items_rec(l_new_34_id);
18607: --print('Upto 10... l_tmp_okc_34_rec.number_of_items='|| l_tmp_okc_34_rec.number_of_items);
18608: IF (l_tmp_okc_34_rec.number_of_items = OKL_API.G_MISS_NUM) THEN
18604: RAISE OKL_API.G_EXCEPTION_ERROR;
18605: END IF;
18606: l_tmp_okc_34_rec := find_okc_k_items_rec(l_new_34_id);
18607: --print('Upto 10... l_tmp_okc_34_rec.number_of_items='|| l_tmp_okc_34_rec.number_of_items);
18608: IF (l_tmp_okc_34_rec.number_of_items = OKL_API.G_MISS_NUM) THEN
18609: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18610: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_new_34_id );
18611: END IF;
18612: RAISE OKL_API.G_EXCEPTION_ERROR;
18608: IF (l_tmp_okc_34_rec.number_of_items = OKL_API.G_MISS_NUM) THEN
18609: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18610: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_new_34_id );
18611: END IF;
18612: RAISE OKL_API.G_EXCEPTION_ERROR;
18613: END IF;
18614:
18615: --print('Upto 11...');
18616: l_tb2original_cost_tab(l_trx_assets_counter4) := l_tmp_okl_33_rec.oec;
18627: --print('Upto 12...');
18628:
18629: l_tmp_okl_42_rec := find_okl_k_lines_rec(l_id_tab(i));
18630: --print('Upto 13 l_tmp_okl_42_rec.year_built=' || l_tmp_okl_42_rec.year_built);
18631: IF (l_tmp_okl_42_rec.year_built = OKL_API.G_MISS_NUM) THEN
18632: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18633: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_id_tab(i));
18634: END IF;
18635: RAISE OKL_API.G_EXCEPTION_ERROR;
18631: IF (l_tmp_okl_42_rec.year_built = OKL_API.G_MISS_NUM) THEN
18632: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18633: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_id_tab(i));
18634: END IF;
18635: RAISE OKL_API.G_EXCEPTION_ERROR;
18636: END IF;
18637:
18638: l_tb2year_manufactured_tab(l_trx_assets_counter4) := l_tmp_okl_42_rec.year_built;
18639:
18693: -- get the contract number
18694: OPEN contract_num_csr(p_old_id);
18695: FETCH contract_num_csr INTO l_cntrct_number;
18696: CLOSE contract_num_csr;
18697: Okl_Api.set_message(p_app_name => g_app_name,
18698: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
18699: p_token1 => 'CONTRACT_NUMBER',
18700: p_token1_value => l_cntrct_number);
18701: RAISE OKL_API.G_EXCEPTION_ERROR;
18697: Okl_Api.set_message(p_app_name => g_app_name,
18698: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
18699: p_token1 => 'CONTRACT_NUMBER',
18700: p_token1_value => l_cntrct_number);
18701: RAISE OKL_API.G_EXCEPTION_ERROR;
18702: END IF;
18703: forall i IN l_t3id_tab.first..l_t3id_tab.last
18704: INSERT INTO okl_trx_assets (
18705: id, tas_type, object_version_number,
18827:
18828: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
18830: END IF;
18831: x_return_status := OKL_API.G_RET_STS_ERROR;
18832: /* DEBUG */
18833: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18834: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing okl_trx_assets:l_t3id_tab.count=' || l_t3id_tab.COUNT || ' ...');
18835: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_try_id=' || l_try_id);
18998: IF (l_new_rgp_id = -1) THEN
18999: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19000: 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));
19001: END IF;
19002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19003: END IF;
19004: l_grgp_id_tab(l_rg_party_roles_counter) := l_new_rgp_id;
19005:
19006: l_grrd_id_tab(l_rg_party_roles_counter) := l_grrd_id_tab2(i);
19046: );
19047: END IF;
19048: EXCEPTION WHEN OTHERS THEN
19049:
19050: x_return_status := OKL_API.G_RET_STS_ERROR;
19051: /*OKL_API.set_message(p_app_name => 'OKL',
19052: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19053: p_token1 => 'ASSET_NUMBER',
19054: p_token1_value => 'okc_rg_party_roles');*/
19047: END IF;
19048: EXCEPTION WHEN OTHERS THEN
19049:
19050: x_return_status := OKL_API.G_RET_STS_ERROR;
19051: /*OKL_API.set_message(p_app_name => 'OKL',
19052: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19053: p_token1 => 'ASSET_NUMBER',
19054: p_token1_value => 'okc_rg_party_roles');*/
19055: /* DEBUG */
19235: IF (l_new_cle_id = -1) THEN
19236: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19237: 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));
19238: END IF;
19239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19240: END IF;
19241: l_oscle_id_tab(l_supp_invoice_dtls_counter) := l_new_cle_id;
19242: END IF;
19243:
19314: END IF;
19315:
19316: EXCEPTION WHEN OTHERS THEN
19317:
19318: x_return_status := OKL_API.G_RET_STS_ERROR;
19319: /*OKL_API.set_message(p_app_name => 'OKL',
19320: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19321: p_token1 => 'ASSET_NUMBER',
19322: p_token1_value => 'okl_supp_invoice_dtls');*/
19315:
19316: EXCEPTION WHEN OTHERS THEN
19317:
19318: x_return_status := OKL_API.G_RET_STS_ERROR;
19319: /*OKL_API.set_message(p_app_name => 'OKL',
19320: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19321: p_token1 => 'ASSET_NUMBER',
19322: p_token1_value => 'okl_supp_invoice_dtls');*/
19323: /* DEBUG */
19404: l_address VARCHAR2(80);
19405:
19406: BEGIN
19407: --Logic
19408: IF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_PARTY_SITES','HZ_LOCATIONS') THEN
19409: --Raise Error
19410: OKL_API.Set_Message(p_app_name => 'OKL_COPY_CONTRACT_PVT',
19411: p_msg_name => 'OKL_INVALID_INSTALL_LOC_TYPE',
19412: p_token1 => 'LOCATION_TYPE',
19406: BEGIN
19407: --Logic
19408: IF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_PARTY_SITES','HZ_LOCATIONS') THEN
19409: --Raise Error
19410: OKL_API.Set_Message(p_app_name => 'OKL_COPY_CONTRACT_PVT',
19411: p_msg_name => 'OKL_INVALID_INSTALL_LOC_TYPE',
19412: p_token1 => 'LOCATION_TYPE',
19413: p_token1_value => p_install_location_type_code,
19414: p_token2 => 'LOCATION_TYPE1',
19414: p_token2 => 'LOCATION_TYPE1',
19415: p_token2_value => 'HZ_PARTY_SITES',
19416: p_token3 => 'LOCATION_TYPE2',
19417: p_token3_value => 'HZ_LOCATIONS');
19418: x_return_status := OKL_API.G_RET_STS_ERROR;
19419: RAISE OKL_API.G_EXCEPTION_ERROR;
19420:
19421: ELSIF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
19422:
19415: p_token2_value => 'HZ_PARTY_SITES',
19416: p_token3 => 'LOCATION_TYPE2',
19417: p_token3_value => 'HZ_LOCATIONS');
19418: x_return_status := OKL_API.G_RET_STS_ERROR;
19419: RAISE OKL_API.G_EXCEPTION_ERROR;
19420:
19421: ELSIF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
19422:
19423: OPEN c_get_iti_object_id1(p_install_location_id);
19417: p_token3_value => 'HZ_LOCATIONS');
19418: x_return_status := OKL_API.G_RET_STS_ERROR;
19419: RAISE OKL_API.G_EXCEPTION_ERROR;
19420:
19421: ELSIF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
19422:
19423: OPEN c_get_iti_object_id1(p_install_location_id);
19424: FETCH c_get_iti_object_id1 INTO x_OBJECT_ID1_NEW;
19425: IF c_get_iti_object_id1%NOTFOUND THEN
19426: OPEN l_address_csr(pty_site_id => p_install_location_id);
19427: FETCH l_address_csr INTO l_address;
19428: CLOSE l_address_csr;
19429: --Raise Error : not defined as install_at
19430: OKL_API.Set_Message
19431: (p_app_name => 'OKL_COPY_CONTRACT_PVT',
19432: p_msg_name => 'OKL_INSTALL_LOC_MISSING_USAGE',
19433: p_token1 => 'USAGE_TYPE',
19434: p_token1_value => 'INSTALL_AT',
19435: p_token2 => 'ADDRESS',
19436: p_token2_value => l_address,
19437: p_token3 => 'INSTANCE_NUMBER',
19438: p_token3_value => p_instance_number);
19439: x_return_status := OKL_API.G_RET_STS_ERROR;
19440: RAISE OKL_API.G_EXCEPTION_ERROR;
19441: END IF;
19442: CLOSE c_get_iti_object_id1;
19443:
19436: p_token2_value => l_address,
19437: p_token3 => 'INSTANCE_NUMBER',
19438: p_token3_value => p_instance_number);
19439: x_return_status := OKL_API.G_RET_STS_ERROR;
19440: RAISE OKL_API.G_EXCEPTION_ERROR;
19441: END IF;
19442: CLOSE c_get_iti_object_id1;
19443:
19444: ELSIF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
19440: RAISE OKL_API.G_EXCEPTION_ERROR;
19441: END IF;
19442: CLOSE c_get_iti_object_id1;
19443:
19444: ELSIF NVL(p_install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
19445:
19446: OPEN l_site_use_csr(p_install_location_id);
19447: FETCH l_site_use_csr INTO l_site_use_rec;
19448: IF l_site_use_csr%NOTFOUND THEN
19449: OPEN l_address_csr2(loc_id => p_install_location_id);
19450: FETCH l_address_csr2 INTO l_address;
19451: CLOSE l_address_csr2;
19452: --Raise Error : not defined as install_at
19453: OKL_API.Set_Message(p_app_name => 'OKL_COPY_CONTRACT_PVT2',
19454: p_msg_name => 'OKL_INSTALL_LOC_MISSING_USAGE',
19455: p_token1 => 'USAGE_TYPE',
19456: p_token1_value => 'INSTALL_AT',
19457: p_token2 => 'ADDRESS',
19457: p_token2 => 'ADDRESS',
19458: p_token2_value => l_address,
19459: p_token3 => 'INSTANCE_NUMBER',
19460: p_token3_value => p_instance_number);
19461: x_return_status := OKL_API.G_RET_STS_ERROR;
19462: RAISE OKL_API.G_EXCEPTION_ERROR;
19463:
19464: END IF;
19465: x_object_id1_new := l_site_use_rec.party_site_use_id;
19458: p_token2_value => l_address,
19459: p_token3 => 'INSTANCE_NUMBER',
19460: p_token3_value => p_instance_number);
19461: x_return_status := OKL_API.G_RET_STS_ERROR;
19462: RAISE OKL_API.G_EXCEPTION_ERROR;
19463:
19464: END IF;
19465: x_object_id1_new := l_site_use_rec.party_site_use_id;
19466: CLOSE l_site_use_csr;
19615: IF (l_new_kle_id = -1) THEN
19616: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19617: 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));
19618: END IF;
19619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19620: END IF;
19621: l_ti2kle_id_tab(l_txl_itm_insts_counter2) := l_new_kle_id;
19622:
19623: l_new_cle_id := find_mapping_id(l_cle_id_tab3(i));
19651: IF (l_new_id = -1) THEN
19652: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19653: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: OLD_LINE_ID to NEW_LINE_ID mapping not found');
19654: END IF;
19655: RAISE OKL_API.G_EXCEPTION_ERROR;
19656: END IF;
19657: l_local_cle_id := find_cid_mapping_id(l_new_id);
19658: --print('l_local_cle_id=' || l_local_cle_id);
19659: IF (l_local_cle_id = -1) THEN
19659: IF (l_local_cle_id = -1) THEN
19660: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19661: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: ID to CLE_ID mapping not found');
19662: END IF;
19663: RAISE OKL_API.G_EXCEPTION_ERROR;
19664: END IF;
19665: l_local_cle_id2 := find_cid_mapping_id(l_local_cle_id);
19666: --print('l_local_cle_id2=' || l_local_cle_id2);
19667: IF (l_local_cle_id2 = -1) THEN
19667: IF (l_local_cle_id2 = -1) THEN
19668: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
19669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: ID to CLE_ID mapping not found');
19670: END IF;
19671: RAISE OKL_API.G_EXCEPTION_ERROR;
19672: END IF;
19673:
19674: --l_new_dnz_cle_id := find_mapping_id(l_dnz_cle_id);
19675: l_ti2dnz_cle_id_tab(l_txl_itm_insts_counter2) := l_local_cle_id2;
19743: END IF;
19744:
19745: EXCEPTION WHEN OTHERS THEN
19746:
19747: x_return_status := OKL_API.G_RET_STS_ERROR;
19748: /*OKL_API.set_message(p_app_name => 'OKL',
19749: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19750: p_token1 => 'ASSET_NUMBER',
19751: p_token1_value => 'insert_okl_txl_itm_instst2');*/
19744:
19745: EXCEPTION WHEN OTHERS THEN
19746:
19747: x_return_status := OKL_API.G_RET_STS_ERROR;
19748: /*OKL_API.set_message(p_app_name => 'OKL',
19749: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19750: p_token1 => 'ASSET_NUMBER',
19751: p_token1_value => 'insert_okl_txl_itm_instst2');*/
19752: /* DEBUG */
19937: END LOOP;
19938:
19939: EXCEPTION WHEN OTHERS THEN
19940:
19941: x_return_status := OKL_API.G_RET_STS_ERROR;
19942: /*OKL_API.set_message(p_app_name => 'OKL',
19943: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19944: p_token1 => 'ASSET_NUMBER',
19945: p_token1_value => 'sort_sid_mapping_tab');*/
19938:
19939: EXCEPTION WHEN OTHERS THEN
19940:
19941: x_return_status := OKL_API.G_RET_STS_ERROR;
19942: /*OKL_API.set_message(p_app_name => 'OKL',
19943: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
19944: p_token1 => 'ASSET_NUMBER',
19945: p_token1_value => 'sort_sid_mapping_tab');*/
19946: /* DEBUG */
19985: --END IF;
19986:
19987: EXCEPTION
19988: WHEN OTHERS THEN
19989: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
19990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19991: END raise_business_event_header;
19992:
19993: PROCEDURE raise_business_event(
19986:
19987: EXCEPTION
19988: WHEN OTHERS THEN
19989: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
19990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19991: END raise_business_event_header;
19992:
19993: PROCEDURE raise_business_event(
19994: p_api_version IN NUMBER,
20025: p_parameters => l_parameter_list);
20026:
20027: EXCEPTION
20028: WHEN OTHERS THEN
20029: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20031: END raise_business_event;
20032:
20033: PROCEDURE raise_business_event_subsidy(p_api_version IN NUMBER,
20026:
20027: EXCEPTION
20028: WHEN OTHERS THEN
20029: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20031: END raise_business_event;
20032:
20033: PROCEDURE raise_business_event_subsidy(p_api_version IN NUMBER,
20034: p_init_msg_list IN VARCHAR2,
20043: ) IS
20044: l_parameter_list wf_parameter_list_t;
20045: l_contract_process VARCHAR2(20);
20046: BEGIN
20047: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20048:
20049: -- wrapper API to get contract process. this API determines in which status the
20050: -- contract in question is.
20051: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20061: p_event_name => p_event_name,
20062: p_parameters => l_parameter_list);
20063: EXCEPTION
20064: WHEN OTHERS THEN
20065: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20067: END raise_business_event_subsidy;
20068:
20069: PROCEDURE raise_business_event_itm(
20062: p_parameters => l_parameter_list);
20063: EXCEPTION
20064: WHEN OTHERS THEN
20065: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20067: END raise_business_event_subsidy;
20068:
20069: PROCEDURE raise_business_event_itm(
20070: p_api_version IN NUMBER
20092: p_event_name => p_event_name,
20093: p_parameters => l_parameter_list);
20094: EXCEPTION
20095: WHEN OTHERS THEN
20096: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20098: END raise_business_event_itm;
20099:
20100: PROCEDURE raise_business_event_dep(p_api_version IN NUMBER,
20093: p_parameters => l_parameter_list);
20094: EXCEPTION
20095: WHEN OTHERS THEN
20096: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20098: END raise_business_event_itm;
20099:
20100: PROCEDURE raise_business_event_dep(p_api_version IN NUMBER,
20101: p_init_msg_list IN VARCHAR2,
20109: x_msg_data OUT NOCOPY VARCHAR2
20110: ) IS
20111: l_parameter_list wf_parameter_list_t;
20112: BEGIN
20113: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20114:
20115: -- wrapper API to get contract process. this API determines in which status the
20116: -- contract in question is.
20117: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20128: p_parameters => l_parameter_list);
20129:
20130: EXCEPTION
20131: WHEN OTHERS THEN
20132: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20134: END raise_business_event_dep;
20135:
20136:
20129:
20130: EXCEPTION
20131: WHEN OTHERS THEN
20132: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20134: END raise_business_event_dep;
20135:
20136:
20137: PROCEDURE raise_business_event_txd(p_api_version IN NUMBER,
20146: ) IS
20147: l_parameter_list wf_parameter_list_t;
20148: --l_contract_process VARCHAR2(20);
20149: BEGIN
20150: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20151:
20152: -- wrapper API to get contract process. this API determines in which status the
20153: -- contract in question is.
20154: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20164: p_event_name => p_event_name,
20165: p_parameters => l_parameter_list);
20166: EXCEPTION
20167: WHEN OTHERS THEN
20168: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20170: END raise_business_event_txd;
20171:
20172: PROCEDURE raise_business_event_itm
20165: p_parameters => l_parameter_list);
20166: EXCEPTION
20167: WHEN OTHERS THEN
20168: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20170: END raise_business_event_txd;
20171:
20172: PROCEDURE raise_business_event_itm
20173: (p_api_version IN NUMBER,
20182: x_msg_data OUT NOCOPY VARCHAR2
20183: ) IS
20184: l_parameter_list wf_parameter_list_t;
20185: BEGIN
20186: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20187:
20188: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20189: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20190: wf_event.AddParameterToList(G_WF_ITM_SERIAL_NUM, p_ser_num, l_parameter_list);
20198: p_event_name => p_event_name,
20199: p_parameters => l_parameter_list);
20200: EXCEPTION
20201: WHEN OTHERS THEN
20202: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20204: END raise_business_event_itm;
20205:
20206: PROCEDURE raise_business_event_supp
20199: p_parameters => l_parameter_list);
20200: EXCEPTION
20201: WHEN OTHERS THEN
20202: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20204: END raise_business_event_itm;
20205:
20206: PROCEDURE raise_business_event_supp
20207: (p_api_version IN NUMBER,
20216: x_msg_data OUT NOCOPY VARCHAR2
20217: ) IS
20218: l_parameter_list wf_parameter_list_t;
20219: BEGIN
20220: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20221:
20222: -- wrapper API to get contract process. this API determines in which status the
20223: -- contract in question is.
20224: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20235: p_event_name => p_event_name,
20236: p_parameters => l_parameter_list);
20237: EXCEPTION
20238: WHEN OTHERS THEN
20239: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20241: END raise_business_event_supp;
20242:
20243: PROCEDURE raise_business_event_rules
20236: p_parameters => l_parameter_list);
20237: EXCEPTION
20238: WHEN OTHERS THEN
20239: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20241: END raise_business_event_supp;
20242:
20243: PROCEDURE raise_business_event_rules
20244: (p_api_version IN NUMBER,
20252: ) IS
20253: --l_contract_process VARCHAR2(20);
20254: l_event_param_list WF_PARAMETER_LIST_T := p_event_param_list;
20255: BEGIN
20256: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20257:
20258: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_event_param_list);
20259:
20260: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20265: p_event_name => p_event_name,
20266: p_parameters => l_event_param_list);
20267: EXCEPTION
20268: WHEN OTHERS THEN
20269: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20271: END raise_business_event_rules;
20272:
20273: FUNCTION find_ssid_mapping_id(p_id IN NUMBER) RETURN VARCHAR2 IS
20266: p_parameters => l_event_param_list);
20267: EXCEPTION
20268: WHEN OTHERS THEN
20269: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
20270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20271: END raise_business_event_rules;
20272:
20273: FUNCTION find_ssid_mapping_id(p_id IN NUMBER) RETURN VARCHAR2 IS
20274: hi NUMBER;
20412: END LOOP;
20413:
20414: EXCEPTION WHEN OTHERS THEN
20415:
20416: x_return_status := OKL_API.G_RET_STS_ERROR;
20417: /*OKL_API.set_message(p_app_name => 'OKL',
20418: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
20419: p_token1 => 'ASSET_NUMBER',
20420: p_token1_value => 'sort_ssid_mapping_tab');*/
20413:
20414: EXCEPTION WHEN OTHERS THEN
20415:
20416: x_return_status := OKL_API.G_RET_STS_ERROR;
20417: /*OKL_API.set_message(p_app_name => 'OKL',
20418: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
20419: p_token1 => 'ASSET_NUMBER',
20420: p_token1_value => 'sort_ssid_mapping_tab');*/
20421: /* DEBUG */
20439: BEGIN
20440:
20441: l_message := 'OKL_NEW_COPY_CHR_ERROR';
20442: l_curr_pos := 'okl_copy_lease_contract:1';
20443: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20444: -- Call start_activity to create savepoint, check compatibility
20445: -- and initialize message list
20446: x_return_status := OKL_API.START_ACTIVITY (
20447: l_api_name
20442: l_curr_pos := 'okl_copy_lease_contract:1';
20443: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20444: -- Call start_activity to create savepoint, check compatibility
20445: -- and initialize message list
20446: x_return_status := OKL_API.START_ACTIVITY (
20447: l_api_name
20448: ,p_init_msg_list
20449: ,'_PVT'
20450: ,x_return_status);
20448: ,p_init_msg_list
20449: ,'_PVT'
20450: ,x_return_status);
20451: -- Check if activity started successfully
20452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20455: RAISE OKL_API.G_EXCEPTION_ERROR;
20456: END IF;
20449: ,'_PVT'
20450: ,x_return_status);
20451: -- Check if activity started successfully
20452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20455: RAISE OKL_API.G_EXCEPTION_ERROR;
20456: END IF;
20457:
20450: ,x_return_status);
20451: -- Check if activity started successfully
20452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20455: RAISE OKL_API.G_EXCEPTION_ERROR;
20456: END IF;
20457:
20458: l_curr_pos := 'okl_copy_lease_contract:2';
20451: -- Check if activity started successfully
20452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20455: RAISE OKL_API.G_EXCEPTION_ERROR;
20456: END IF;
20457:
20458: l_curr_pos := 'okl_copy_lease_contract:2';
20459: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
20519: p_token1 => g_sqlcode_token,
20520: p_token1_value => SQLCODE,
20521: p_token2 => g_sqlerrm_token,
20522: p_token2_value => SQLERRM);
20523: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20524: END IF;
20525: ELSE
20526: l_contract_number := p_contract_number;
20527: END IF;
20535: l_contract_exists := TRUE;
20536: END LOOP;
20537: IF ((l_contract_number = c1rec.contract_number) OR
20538: (l_contract_exists) ) THEN
20539: OKL_API.set_message(p_app_name => 'OKC',
20540: p_msg_name => 'OKC_CONTRACT_EXISTS',
20541: p_token1 => 'VALUE1',
20542: p_token1_value => l_contract_number,
20543: p_token2 => 'VALUE2',
20541: p_token1 => 'VALUE1',
20542: p_token1_value => l_contract_number,
20543: p_token2 => 'VALUE2',
20544: p_token2_value => ' ');
20545: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20546: l_api_name,
20547: G_PKG_NAME,
20548: 'OKL_API.G_RET_STS_ERROR',
20549: x_msg_count,
20544: p_token2_value => ' ');
20545: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20546: l_api_name,
20547: G_PKG_NAME,
20548: 'OKL_API.G_RET_STS_ERROR',
20549: x_msg_count,
20550: x_msg_data,
20551: '_PVT');
20552: RETURN;
20560:
20561: -- AKP: need to do all validatations here
20562: validate_currency_code(x_return_status, l_contract_currency );
20563: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
20564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20565: END IF;
20566:
20567: l_curr_pos := 'okl_copy_lease_contract:8';
20568: validate_orig_sys_code(x_return_status, l_orig_system_source_code);
20566:
20567: l_curr_pos := 'okl_copy_lease_contract:8';
20568: validate_orig_sys_code(x_return_status, l_orig_system_source_code);
20569: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
20570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20571: END IF;
20572:
20573: l_curr_pos := 'okl_copy_lease_contract:9';
20574: validate_currency_conv_type(x_return_status, l_conversion_type);
20572:
20573: l_curr_pos := 'okl_copy_lease_contract:9';
20574: validate_currency_conv_type(x_return_status, l_conversion_type);
20575: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
20576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20577: END IF;
20578:
20579: BEGIN
20580: l_curr_pos := 'okl_copy_lease_contract:10';
20656: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
20657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
20658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR during insert into okc_k_headers_b...');
20659: END IF;
20660: OKL_API.set_message(p_app_name => 'OKL',
20661: p_msg_name => l_message,
20662: p_token1 => 'CONTRACT_NUMBER',
20663: p_token1_value => l_contract_number);
20664: RAISE OKC_API.G_EXCEPTION_ERROR;
20686: x_msg_data => x_msg_data,
20687: p_hstv_rec => l_hstv_rec,
20688: x_hstv_rec => x_hstv_rec);
20689: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
20690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20691: END IF;
20692: EXCEPTION WHEN OTHERS THEN
20693: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
20694: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
20715: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
20716: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
20717: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR during inser into okc_k_vers_numbers...');
20718: END IF;
20719: OKL_API.set_message(p_app_name => 'OKL',
20720: p_msg_name => l_message,
20721: p_token1 => 'CONTRACT_NUMBER',
20722: p_token1_value => l_contract_number);
20723: RAISE OKC_API.G_EXCEPTION_ERROR;
21111: IF (l_new_id = -1) THEN
21112: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21113: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR!!!!Mapping line id not found');
21114: END IF;
21115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21116: END IF;
21117: l_cle_id_tab(i) := l_new_id;
21118:
21119: l_cle_lse_mapping_tab(l_cle_lse_counter).cle_id := l_cle_id_tab(i);
21343: x_return_status => x_return_status,
21344: x_msg_count => x_msg_count,
21345: x_msg_data => x_msg_data,
21346: p_line_id => l_delete_id_tab(i));
21347: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21348: RAISE G_EXCEPTION_HALT_PROCESS;
21349: END IF;
21350: END IF;
21351:
21401: end if;
21402: */
21403: END IF; /* if copy_lines_yn <> 'N' */
21404: END LOOP; /* for c1rec */
21405: --x_return_status := OKL_API.G_RET_STS_SUCCESS;
21406:
21407: x_chr_id := l_copied_id;
21408: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21409: 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'));
21415: END IF;
21416: l_curr_pos := 'okl_copy_lease_contract:52';
21417: raise_business_event_header(p_chr_id => x_chr_id
21418: ,x_return_status => x_return_status);
21419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21420: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21421: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21422: RAISE OKL_API.G_EXCEPTION_ERROR;
21423: END IF;
21416: l_curr_pos := 'okl_copy_lease_contract:52';
21417: raise_business_event_header(p_chr_id => x_chr_id
21418: ,x_return_status => x_return_status);
21419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21420: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21421: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21422: RAISE OKL_API.G_EXCEPTION_ERROR;
21423: END IF;
21424:
21417: raise_business_event_header(p_chr_id => x_chr_id
21418: ,x_return_status => x_return_status);
21419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21420: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21421: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21422: RAISE OKL_API.G_EXCEPTION_ERROR;
21423: END IF;
21424:
21425: -- For Create Top Line and Subsidy
21418: ,x_return_status => x_return_status);
21419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21420: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21421: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21422: RAISE OKL_API.G_EXCEPTION_ERROR;
21423: END IF;
21424:
21425: -- For Create Top Line and Subsidy
21426:
21431: l_contract_process := okl_lla_util_pvt.get_contract_process(l_copied_id);
21432:
21433: IF (l_counter > 1) THEN
21434: l_parameter_list := NULL;
21435: l_raise_business_event := OKL_API.G_FALSE;
21436: l_event_name := NULL;
21437: l_curr_pos := 'okl_copy_lease_contract:54';
21438: FOR i IN l_id_tab.first..l_id_tab.last
21439: LOOP
21439: LOOP
21440: IF l_lse_id_tab(i) = 58 THEN
21441: -- raise the business event for create credit limit, if line style code is FREE_FORM
21442: l_event_name := G_WF_EVT_CR_LMT_CREATED;
21443: l_raise_business_event := OKL_API.G_TRUE;
21444: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_copied_id,l_parameter_list);
21445: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_id_tab(i),l_parameter_list);
21446: ELSIF l_lse_id_tab(i) = 33 THEN
21447: -- raise the business event for create asset, if line style code is FREE_FORM1
21465:
21466: -- raise business event only if the contract is a lease contract, the raise_event flag is on and business event
21467: -- name is specified. the event should also be raised if this is a credit limit, in which case is_lease_contract
21468: -- does not hold good
21469: IF(l_raise_business_event = OKL_API.G_TRUE AND l_event_name IS NOT NULL) THEN
21470: raise_business_event(p_api_version => p_api_version,
21471: p_init_msg_list => p_init_msg_list,
21472: x_return_status => x_return_status,
21473: x_msg_count => x_msg_count,
21474: x_msg_data => x_msg_data,
21475: p_event_name => l_event_name,
21476: p_parameter_list => l_parameter_list,
21477: p_contract_process => l_contract_process );
21478: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21481: RAISE OKL_API.G_EXCEPTION_ERROR;
21482: END IF;
21475: p_event_name => l_event_name,
21476: p_parameter_list => l_parameter_list,
21477: p_contract_process => l_contract_process );
21478: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21481: RAISE OKL_API.G_EXCEPTION_ERROR;
21482: END IF;
21483: l_parameter_list := NULL;
21476: p_parameter_list => l_parameter_list,
21477: p_contract_process => l_contract_process );
21478: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21481: RAISE OKL_API.G_EXCEPTION_ERROR;
21482: END IF;
21483: l_parameter_list := NULL;
21484: l_raise_business_event := OKL_API.G_FALSE;
21477: p_contract_process => l_contract_process );
21478: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21481: RAISE OKL_API.G_EXCEPTION_ERROR;
21482: END IF;
21483: l_parameter_list := NULL;
21484: l_raise_business_event := OKL_API.G_FALSE;
21485: l_event_name := NULL;
21480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21481: RAISE OKL_API.G_EXCEPTION_ERROR;
21482: END IF;
21483: l_parameter_list := NULL;
21484: l_raise_business_event := OKL_API.G_FALSE;
21485: l_event_name := NULL;
21486: END IF;
21487:
21488: -- Subsidy
21497: x_return_status => x_return_status,
21498: x_msg_count => x_msg_count,
21499: x_msg_data => x_msg_data
21500: );
21501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21504: RAISE OKL_API.G_EXCEPTION_ERROR;
21505: END IF;
21498: x_msg_count => x_msg_count,
21499: x_msg_data => x_msg_data
21500: );
21501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21504: RAISE OKL_API.G_EXCEPTION_ERROR;
21505: END IF;
21506:
21499: x_msg_data => x_msg_data
21500: );
21501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21504: RAISE OKL_API.G_EXCEPTION_ERROR;
21505: END IF;
21506:
21507: END IF;
21500: );
21501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21504: RAISE OKL_API.G_EXCEPTION_ERROR;
21505: END IF;
21506:
21507: END IF;
21508: END LOOP;
21514: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Doing raise_business_event_itm...' );
21515: END IF;
21516: -- For Create Fee Asset and Create Usage Line and Create Usage Asset
21517: l_parameter_list := NULL;
21518: l_raise_business_event := OKL_API.G_FALSE;
21519: l_business_event_name := NULL;
21520: FOR i IN l_id_tab.first..l_id_tab.last
21521: LOOP
21522:
21520: FOR i IN l_id_tab.first..l_id_tab.last
21521: LOOP
21522:
21523: IF(l_lse_id_tab(i) = 53 ) THEN
21524: l_raise_business_event := OKL_API.G_TRUE;
21525: l_business_event_name := G_WF_EVT_ASSET_FEE_CREATED;
21526: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21527: ELSIF(l_lse_id_tab(i) = 49 ) THEN
21528: l_raise_business_event := OKL_API.G_TRUE;
21524: l_raise_business_event := OKL_API.G_TRUE;
21525: l_business_event_name := G_WF_EVT_ASSET_FEE_CREATED;
21526: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21527: ELSIF(l_lse_id_tab(i) = 49 ) THEN
21528: l_raise_business_event := OKL_API.G_TRUE;
21529: l_business_event_name := G_WF_EVT_ASSET_SERV_FEE_CRTD;
21530: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21531: END IF;
21532:
21529: l_business_event_name := G_WF_EVT_ASSET_SERV_FEE_CRTD;
21530: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21531: END IF;
21532:
21533: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL)THEN
21534: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21535: --Ashish ??? Done
21536: --wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_cimv_rec.object1_id1,l_parameter_list);
21537: l_new_object1_id1 := find_oid_mapping_id(l_id_tab(i));
21538: IF (l_new_object1_id1 = '-1') THEN
21539: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21540: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Can not find mapping object1_id1 for ' || l_id_tab(i));
21541: END IF;
21542: RAISE OKL_API.G_EXCEPTION_ERROR;
21543: END IF;
21544: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,l_new_object1_id1,l_parameter_list);
21545:
21546: raise_business_event_itm(p_api_version => p_api_version
21550: ,x_msg_data => x_msg_data
21551: ,p_event_name => l_business_event_name
21552: ,p_event_param_list => l_parameter_list
21553: ,p_contract_process => l_contract_process);
21554: l_raise_business_event := OKL_API.G_FALSE;
21555: l_business_event_name := NULL;
21556: l_parameter_list := NULL;
21557: END IF;
21558:
21564: x_msg_count => x_msg_count,
21565: x_msg_data => x_msg_data,
21566: p_chr_id => l_copied_id,
21567: p_ubb_id => l_id_tab(i));
21568: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21571: RAISE OKL_API.G_EXCEPTION_ERROR;
21572: END IF;
21565: x_msg_data => x_msg_data,
21566: p_chr_id => l_copied_id,
21567: p_ubb_id => l_id_tab(i));
21568: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21571: RAISE OKL_API.G_EXCEPTION_ERROR;
21572: END IF;
21573: ELSIF (l_lse_id_tab(i) = 57) THEN
21566: p_chr_id => l_copied_id,
21567: p_ubb_id => l_id_tab(i));
21568: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21571: RAISE OKL_API.G_EXCEPTION_ERROR;
21572: END IF;
21573: ELSIF (l_lse_id_tab(i) = 57) THEN
21574: okl_ubb_wf_pvt.raise_add_asset_event (
21567: p_ubb_id => l_id_tab(i));
21568: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21571: RAISE OKL_API.G_EXCEPTION_ERROR;
21572: END IF;
21573: ELSIF (l_lse_id_tab(i) = 57) THEN
21574: okl_ubb_wf_pvt.raise_add_asset_event (
21575: p_api_version => p_api_version,
21611: ,p_event_name => G_WF_EVT_KHR_PARTY_CREATED
21612: ,p_event_param_list => l_parameter_list
21613: ,p_contract_process => l_contract_process);
21614:
21615: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21616: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21617: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21618: RAISE OKL_API.G_EXCEPTION_ERROR;
21619: END IF;
21612: ,p_event_param_list => l_parameter_list
21613: ,p_contract_process => l_contract_process);
21614:
21615: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21616: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21617: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21618: RAISE OKL_API.G_EXCEPTION_ERROR;
21619: END IF;
21620: l_parameter_list := NULL;
21613: ,p_contract_process => l_contract_process);
21614:
21615: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21616: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21617: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21618: RAISE OKL_API.G_EXCEPTION_ERROR;
21619: END IF;
21620: l_parameter_list := NULL;
21621:
21614:
21615: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21616: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21617: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21618: RAISE OKL_API.G_EXCEPTION_ERROR;
21619: END IF;
21620: l_parameter_list := NULL;
21621:
21622: END LOOP;
21642: x_return_status => x_return_status,
21643: x_msg_count => x_msg_count,
21644: x_msg_data => x_msg_data
21645: );
21646: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21649: RAISE OKL_API.G_EXCEPTION_ERROR;
21650: END IF;
21643: x_msg_count => x_msg_count,
21644: x_msg_data => x_msg_data
21645: );
21646: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21649: RAISE OKL_API.G_EXCEPTION_ERROR;
21650: END IF;
21651: END IF;
21644: x_msg_data => x_msg_data
21645: );
21646: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21649: RAISE OKL_API.G_EXCEPTION_ERROR;
21650: END IF;
21651: END IF;
21652: END LOOP;
21645: );
21646: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21649: RAISE OKL_API.G_EXCEPTION_ERROR;
21650: END IF;
21651: END IF;
21652: END LOOP;
21653: END IF;
21671: x_return_status => x_return_status,
21672: x_msg_count => x_msg_count,
21673: x_msg_data => x_msg_data
21674: );
21675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21678: RAISE OKL_API.G_EXCEPTION_ERROR;
21679: END IF;
21672: x_msg_count => x_msg_count,
21673: x_msg_data => x_msg_data
21674: );
21675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21678: RAISE OKL_API.G_EXCEPTION_ERROR;
21679: END IF;
21680: END IF;
21673: x_msg_data => x_msg_data
21674: );
21675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21678: RAISE OKL_API.G_EXCEPTION_ERROR;
21679: END IF;
21680: END IF;
21681: END LOOP;
21674: );
21675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21678: RAISE OKL_API.G_EXCEPTION_ERROR;
21679: END IF;
21680: END IF;
21681: END LOOP;
21682: END IF;
21690: IF (l_tal_kle_cle_id = -1) THEN
21691: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: TAL_ID to KLE_ID to CLE_ID mapping not found');
21693: END IF;
21694: RAISE OKL_API.G_EXCEPTION_ERROR;
21695: END IF;
21696: raise_business_event_txd
21697: ( p_api_version => p_api_version,
21698: p_init_msg_list => p_init_msg_list,
21703: x_return_status => x_return_status,
21704: x_msg_count => x_msg_count,
21705: x_msg_data => x_msg_data
21706: );
21707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21710: RAISE OKL_API.G_EXCEPTION_ERROR;
21711: END IF;
21704: x_msg_count => x_msg_count,
21705: x_msg_data => x_msg_data
21706: );
21707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21710: RAISE OKL_API.G_EXCEPTION_ERROR;
21711: END IF;
21712: END LOOP;
21705: x_msg_data => x_msg_data
21706: );
21707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21710: RAISE OKL_API.G_EXCEPTION_ERROR;
21711: END IF;
21712: END LOOP;
21713: END IF;
21706: );
21707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21710: RAISE OKL_API.G_EXCEPTION_ERROR;
21711: END IF;
21712: END LOOP;
21713: END IF;
21714:
21732: x_return_status => x_return_status,
21733: x_msg_count => x_msg_count,
21734: x_msg_data => x_msg_data
21735: );
21736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21739: RAISE OKL_API.G_EXCEPTION_ERROR;
21740: END IF;
21733: x_msg_count => x_msg_count,
21734: x_msg_data => x_msg_data
21735: );
21736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21739: RAISE OKL_API.G_EXCEPTION_ERROR;
21740: END IF;
21741: END IF;
21734: x_msg_data => x_msg_data
21735: );
21736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21739: RAISE OKL_API.G_EXCEPTION_ERROR;
21740: END IF;
21741: END IF;
21742: END LOOP;
21735: );
21736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21739: RAISE OKL_API.G_EXCEPTION_ERROR;
21740: END IF;
21741: END IF;
21742: END LOOP;
21743: END IF;
21762: x_return_status => x_return_status,
21763: x_msg_count => x_msg_count,
21764: x_msg_data => x_msg_data
21765: );
21766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21769: RAISE OKL_API.G_EXCEPTION_ERROR;
21770: END IF;
21763: x_msg_count => x_msg_count,
21764: x_msg_data => x_msg_data
21765: );
21766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21769: RAISE OKL_API.G_EXCEPTION_ERROR;
21770: END IF;
21771: END IF;
21764: x_msg_data => x_msg_data
21765: );
21766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21769: RAISE OKL_API.G_EXCEPTION_ERROR;
21770: END IF;
21771: END IF;
21772: END LOOP;
21765: );
21766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21769: RAISE OKL_API.G_EXCEPTION_ERROR;
21770: END IF;
21771: END IF;
21772: END LOOP;
21773: END IF;
21792: x_return_status => x_return_status,
21793: x_msg_count => x_msg_count,
21794: x_msg_data => x_msg_data
21795: );
21796: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21798: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21799: RAISE OKL_API.G_EXCEPTION_ERROR;
21800: END IF;
21793: x_msg_count => x_msg_count,
21794: x_msg_data => x_msg_data
21795: );
21796: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21798: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21799: RAISE OKL_API.G_EXCEPTION_ERROR;
21800: END IF;
21801: END LOOP;
21794: x_msg_data => x_msg_data
21795: );
21796: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21798: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21799: RAISE OKL_API.G_EXCEPTION_ERROR;
21800: END IF;
21801: END LOOP;
21802: END IF;
21795: );
21796: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21798: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21799: RAISE OKL_API.G_EXCEPTION_ERROR;
21800: END IF;
21801: END LOOP;
21802: END IF;
21803:
21802: END IF;
21803:
21804: -- For Rule Groups
21805: IF (l_rule_groups_b_counter > 1) THEN
21806: l_raise_business_event := OKL_API.G_FALSE;
21807: l_business_event_name := NULL;
21808: l_curr_pos := 'okl_copy_lease_contract:63';
21809:
21810: FOR i IN l_rid_tab.first..l_rid_tab.last
21813: l_terms_id := NULL;
21814: IF(l_rrgd_code_tab(i) = 'LAAFLG' AND l_rchr_id_tab(i) IS NOT NULL)
21815: THEN
21816: -- raise business event for the Liens and Title for Terms and Conditions for the Contract
21817: l_raise_business_event := OKL_API.G_TRUE;
21818: l_business_event_name := G_WF_EVT_CONTRACT_TERM_UPDATED;
21819: l_terms_id := find_tid_mapping_id(l_rrgd_code_tab(i));
21820: IF(l_terms_id IS NOT NULL)THEN
21821: wf_event.AddParameterToList(G_WF_ITM_TERMS_ID, l_terms_id, l_parameter_list);
21822: END IF;
21823: ELSIF(l_rrgd_code_tab(i) = 'LAAFLG' AND l_rcle_id_tab(i) IS NOT NULL)
21824: THEN
21825: --raise business event for Liens Title and Registration for the Assets
21826: l_raise_business_event := OKL_API.G_TRUE;
21827: l_business_event_name := G_WF_EVT_ASSET_FILING_UPDATED;
21828: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, l_rcle_id_tab(i), l_parameter_list);
21829: ELSIF(l_rrgd_code_tab(i) = 'LAASTX' AND l_rcle_id_tab(i) IS NOT NULL)
21830: THEN
21828: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, l_rcle_id_tab(i), l_parameter_list);
21829: ELSIF(l_rrgd_code_tab(i) = 'LAASTX' AND l_rcle_id_tab(i) IS NOT NULL)
21830: THEN
21831: -- raise business event for tax, property tax updated.
21832: l_raise_business_event := OKL_API.G_TRUE;
21833: l_business_event_name := G_WF_EVT_ASSET_PROPTAX_UPDATED;
21834: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, l_rcle_id_tab(i), l_parameter_list);
21835: ELSIF(l_rrgd_code_tab(i) = 'LAPSTH' AND l_rcle_id_tab(i) IS NOT NULL)
21836: THEN
21836: THEN
21837: l_line_style := find_sid_mapping_id(l_rcle_id_tab(i));
21838: -- raise business event for service line update passthru
21839: IF(l_line_style IS NOT NULL AND l_line_style = 48)THEN
21840: l_raise_business_event := OKL_API.G_TRUE;
21841: l_business_event_name := G_WF_EVT_SERV_PASS_UPDATED;
21842: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID, l_rcle_id_tab(i), l_parameter_list);
21843: -- check if the service line in context has a service contract associated with it
21844: -- if so, pass the service contract id and service contract line id as parameters
21867: wf_event.AddParameterToList(G_WF_ITM_SERV_CLE_ID, l_service_top_line_id, l_parameter_list);
21868: END IF;
21869: -- raise the business event for update passthrough for Fee Line
21870: ELSIF(l_line_style IS NOT NULL AND l_line_style = 52)THEN
21871: l_raise_business_event := OKL_API.G_TRUE;
21872: l_business_event_name := G_WF_EVT_FEE_PASS_UPDATED;
21873: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID, l_rcle_id_tab(i), l_parameter_list);
21874: END IF;
21875: ELSIF(l_rrgd_code_tab(i) = 'LAFEXP' AND l_rcle_id_tab(i) IS NOT NULL)
21879: FETCH get_line_style INTO l_line_style;
21880: CLOSE get_line_style;*/
21881: -- raise business event for service line update expense
21882: IF(l_line_style IS NOT NULL AND l_line_style = 48)THEN
21883: l_raise_business_event := OKL_API.G_TRUE;
21884: l_business_event_name := G_WF_EVT_SERV_FEXP_UPDATED;
21885: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID, l_rcle_id_tab(i), l_parameter_list);
21886: -- check if the service line in context has a service contract associated with it
21887: -- if so, pass the service contract id and service contract line id as parameters
21915: wf_event.AddParameterToList(G_WF_ITM_SERV_CHR_ID, l_serv_contract_id, l_parameter_list);
21916: wf_event.AddParameterToList(G_WF_ITM_SERV_CLE_ID, l_service_top_line_id, l_parameter_list);
21917: END IF;
21918: ELSIF(l_line_style IS NOT NULL AND l_line_style = 52)THEN
21919: l_raise_business_event := OKL_API.G_TRUE;
21920: l_business_event_name := G_WF_EVT_FEE_EXP_UPDATED;
21921: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID, l_rcle_id_tab(i), l_parameter_list);
21922: END IF;
21923: END IF;
21922: END IF;
21923: END IF;
21924:
21925: -- check if the business event needs to be raised
21926: IF (l_raise_business_event = OKL_API.G_TRUE AND
21927: l_business_event_name IS NOT NULL )THEN
21928: -- since contract id is called as 'CONTRACT_ID' for all the above events, it is being
21929: -- added to the parameter list here, than duplicating it in all the above if conditions
21930:
21938: p_event_name => l_business_event_name,
21939: p_event_param_list => l_parameter_list,
21940: p_contract_process => l_contract_process
21941: );
21942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21945: RAISE OKL_API.G_EXCEPTION_ERROR;
21946: END IF;
21939: p_event_param_list => l_parameter_list,
21940: p_contract_process => l_contract_process
21941: );
21942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21945: RAISE OKL_API.G_EXCEPTION_ERROR;
21946: END IF;
21947:
21940: p_contract_process => l_contract_process
21941: );
21942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21945: RAISE OKL_API.G_EXCEPTION_ERROR;
21946: END IF;
21947:
21948: l_raise_business_event := OKL_API.G_FALSE;
21941: );
21942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21945: RAISE OKL_API.G_EXCEPTION_ERROR;
21946: END IF;
21947:
21948: l_raise_business_event := OKL_API.G_FALSE;
21949: l_business_event_name := NULL;
21944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21945: RAISE OKL_API.G_EXCEPTION_ERROR;
21946: END IF;
21947:
21948: l_raise_business_event := OKL_API.G_FALSE;
21949: l_business_event_name := NULL;
21950:
21951: END IF;
21952:
21955:
21956: -- End of business events processing
21957:
21958: l_curr_pos := 'okl_copy_lease_contract:64';
21959: OKL_API.END_ACTIVITY (x_msg_count,
21960: x_msg_data );
21961: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21962: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Done ' || TO_CHAR(SYSDATE,'HH24:MI:SS'));
21963: END IF;
21961: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21962: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Done ' || TO_CHAR(SYSDATE,'HH24:MI:SS'));
21963: END IF;
21964: EXCEPTION
21965: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21966: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21967: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
21968: END IF;
21969: OKL_API.set_message(p_app_name => 'OKL',
21965: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21966: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21967: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
21968: END IF;
21969: OKL_API.set_message(p_app_name => 'OKL',
21970: p_msg_name => l_message,
21971: p_token1 => 'CONTRACT_NUMBER',
21972: p_token1_value => l_contract_number);
21973: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
21969: OKL_API.set_message(p_app_name => 'OKL',
21970: p_msg_name => l_message,
21971: p_token1 => 'CONTRACT_NUMBER',
21972: p_token1_value => l_contract_number);
21973: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
21974: l_api_name,
21975: G_PKG_NAME,
21976: 'OKL_API.G_RET_STS_ERROR',
21977: x_msg_count,
21972: p_token1_value => l_contract_number);
21973: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
21974: l_api_name,
21975: G_PKG_NAME,
21976: 'OKL_API.G_RET_STS_ERROR',
21977: x_msg_count,
21978: x_msg_data,
21979: '_PVT');
21980: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21990: 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));
21991: 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));
21992: END IF;
21993: END LOOP;
21994: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
21995: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21996: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
21997: END IF;
21998: OKL_API.set_message(p_app_name => 'OKL',
21994: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
21995: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21996: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
21997: END IF;
21998: OKL_API.set_message(p_app_name => 'OKL',
21999: p_msg_name => l_message,
22000: p_token1 => 'CONTRACT_NUMBER',
22001: p_token1_value => l_contract_number);
22002: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
21998: OKL_API.set_message(p_app_name => 'OKL',
21999: p_msg_name => l_message,
22000: p_token1 => 'CONTRACT_NUMBER',
22001: p_token1_value => l_contract_number);
22002: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22003: l_api_name,
22004: G_PKG_NAME,
22005: 'OKL_API.G_RET_STS_UNEXP_ERROR',
22006: x_msg_count,
22001: p_token1_value => l_contract_number);
22002: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22003: l_api_name,
22004: G_PKG_NAME,
22005: 'OKL_API.G_RET_STS_UNEXP_ERROR',
22006: x_msg_count,
22007: x_msg_data,
22008: '_PVT');
22009: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
22023: WHEN OTHERS THEN
22024: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
22025: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
22026: END IF;
22027: OKL_API.set_message(p_app_name => 'OKL',
22028: p_msg_name => l_message,
22029: p_token1 => 'CONTRACT_NUMBER',
22030: p_token1_value => l_contract_number);
22031: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22027: OKL_API.set_message(p_app_name => 'OKL',
22028: p_msg_name => l_message,
22029: p_token1 => 'CONTRACT_NUMBER',
22030: p_token1_value => l_contract_number);
22031: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22032: l_api_name,
22033: G_PKG_NAME,
22034: 'OTHERS',
22035: x_msg_count,
22063: -- End of comments
22064: --------------------------------------------------------------------------------
22065: PROCEDURE copy_lease_contract(
22066: p_api_version IN NUMBER,
22067: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
22068: x_return_status OUT NOCOPY VARCHAR2,
22069: x_msg_count OUT NOCOPY NUMBER,
22070: x_msg_data OUT NOCOPY VARCHAR2,
22071: p_commit IN VARCHAR2 DEFAULT 'F',
22201: lp_khrv_rec Okl_Contract_Pub.khrv_rec_type;
22202: lx_khrv_rec Okl_Contract_Pub.khrv_rec_type;
22203:
22204: BEGIN
22205: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22206: -- Call start_activity to create savepoint, check compatibility
22207: -- and initialize message list
22208: x_return_status := OKL_API.START_ACTIVITY (
22209: l_api_name
22204: BEGIN
22205: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22206: -- Call start_activity to create savepoint, check compatibility
22207: -- and initialize message list
22208: x_return_status := OKL_API.START_ACTIVITY (
22209: l_api_name
22210: ,p_init_msg_list
22211: ,'_PVT'
22212: ,x_return_status);
22210: ,p_init_msg_list
22211: ,'_PVT'
22212: ,x_return_status);
22213: -- Check if activity started successfully
22214: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22215: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22216: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22217: RAISE OKL_API.G_EXCEPTION_ERROR;
22218: END IF;
22211: ,'_PVT'
22212: ,x_return_status);
22213: -- Check if activity started successfully
22214: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22215: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22216: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22217: RAISE OKL_API.G_EXCEPTION_ERROR;
22218: END IF;
22219: -- TO copy the Copy the contract first
22212: ,x_return_status);
22213: -- Check if activity started successfully
22214: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22215: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22216: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22217: RAISE OKL_API.G_EXCEPTION_ERROR;
22218: END IF;
22219: -- TO copy the Copy the contract first
22220: OKL_COPY_CONTRACT_PUB.copy_contract(p_api_version => p_api_version,
22213: -- Check if activity started successfully
22214: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22215: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22216: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22217: RAISE OKL_API.G_EXCEPTION_ERROR;
22218: END IF;
22219: -- TO copy the Copy the contract first
22220: OKL_COPY_CONTRACT_PUB.copy_contract(p_api_version => p_api_version,
22221: p_init_msg_list => p_init_msg_list,
22221: p_init_msg_list => p_init_msg_list,
22222: x_return_status => x_return_status,
22223: x_msg_count => x_msg_count,
22224: x_msg_data => x_msg_data,
22225: p_commit => OKL_API.G_FALSE,
22226: p_chr_id => p_chr_id,
22227: p_contract_number => p_contract_number,
22228: p_contract_number_modifier => p_contract_number_modifier,
22229: p_to_template_yn => p_to_template_yn,
22231: p_copy_lines_yn => 'N',
22232: p_override_org => p_override_org,
22233: x_chr_id => x_chr_id);
22234:
22235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22236: --bug # 2518454
22237: --OKL_API.set_message(p_app_name => G_APP_NAME,
22238: --p_msg_name => G_COPY_HEADER);
22239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22233: x_chr_id => x_chr_id);
22234:
22235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22236: --bug # 2518454
22237: --OKL_API.set_message(p_app_name => G_APP_NAME,
22238: --p_msg_name => G_COPY_HEADER);
22239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22241: --bug # 2518454
22235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22236: --bug # 2518454
22237: --OKL_API.set_message(p_app_name => G_APP_NAME,
22238: --p_msg_name => G_COPY_HEADER);
22239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22241: --bug # 2518454
22242: --OKL_API.set_message(p_app_name => G_APP_NAME,
22243: --p_msg_name => G_COPY_HEADER);
22236: --bug # 2518454
22237: --OKL_API.set_message(p_app_name => G_APP_NAME,
22238: --p_msg_name => G_COPY_HEADER);
22239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22241: --bug # 2518454
22242: --OKL_API.set_message(p_app_name => G_APP_NAME,
22243: --p_msg_name => G_COPY_HEADER);
22244: RAISE OKL_API.G_EXCEPTION_ERROR;
22238: --p_msg_name => G_COPY_HEADER);
22239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22241: --bug # 2518454
22242: --OKL_API.set_message(p_app_name => G_APP_NAME,
22243: --p_msg_name => G_COPY_HEADER);
22244: RAISE OKL_API.G_EXCEPTION_ERROR;
22245: END IF;
22246:
22240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22241: --bug # 2518454
22242: --OKL_API.set_message(p_app_name => G_APP_NAME,
22243: --p_msg_name => G_COPY_HEADER);
22244: RAISE OKL_API.G_EXCEPTION_ERROR;
22245: END IF;
22246:
22247: --to update date signed on copied chr
22248: Open l_date_sig_csr(p_chr_id => p_chr_id,
22264: p_restricted_update => OKC_API.G_FALSE,
22265: p_chrv_rec => l_chrv_rec,
22266: x_chrv_rec => lx_chrv_rec);
22267:
22268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22271: RAISE OKL_API.G_EXCEPTION_ERROR;
22272: End If;
22265: p_chrv_rec => l_chrv_rec,
22266: x_chrv_rec => lx_chrv_rec);
22267:
22268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22271: RAISE OKL_API.G_EXCEPTION_ERROR;
22272: End If;
22273:
22266: x_chrv_rec => lx_chrv_rec);
22267:
22268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22271: RAISE OKL_API.G_EXCEPTION_ERROR;
22272: End If;
22273:
22274: END IF;
22267:
22268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22271: RAISE OKL_API.G_EXCEPTION_ERROR;
22272: End If;
22273:
22274: END IF;
22275: Close l_date_sig_csr;
22281: LOOP
22282: lt_klev_tbl_type(i).id := r_get_old_k_top_line.top_line;
22283: IF c_get_old_k_top_line%NOTFOUND THEN
22284: -- store SQL error message on message stack
22285: --OKL_API.set_message(p_app_name => G_APP_NAME,
22286: -- p_msg_name => G_NO_MATCHING_RECORD,
22287: -- p_token1 => G_COL_NAME_TOKEN,
22288: -- p_token1_value => 'dnz_chr_id');
22289: --x_return_status := OKL_API.G_RET_STS_ERROR;
22285: --OKL_API.set_message(p_app_name => G_APP_NAME,
22286: -- p_msg_name => G_NO_MATCHING_RECORD,
22287: -- p_token1 => G_COL_NAME_TOKEN,
22288: -- p_token1_value => 'dnz_chr_id');
22289: --x_return_status := OKL_API.G_RET_STS_ERROR;
22290: --EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22291: EXIT;
22292: END IF;
22293: i := i + 1;
22286: -- p_msg_name => G_NO_MATCHING_RECORD,
22287: -- p_token1 => G_COL_NAME_TOKEN,
22288: -- p_token1_value => 'dnz_chr_id');
22289: --x_return_status := OKL_API.G_RET_STS_ERROR;
22290: --EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22291: EXIT;
22292: END IF;
22293: i := i + 1;
22294: END LOOP;
22291: EXIT;
22292: END IF;
22293: i := i + 1;
22294: END LOOP;
22295: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22296: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22297: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22298: -- RAISE OKL_API.G_EXCEPTION_ERROR;
22299: --END IF;
22292: END IF;
22293: i := i + 1;
22294: END LOOP;
22295: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22296: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22297: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22298: -- RAISE OKL_API.G_EXCEPTION_ERROR;
22299: --END IF;
22300: If lt_klev_tbl_type.FIRST is NOT NULL Then
22293: i := i + 1;
22294: END LOOP;
22295: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22296: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22297: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22298: -- RAISE OKL_API.G_EXCEPTION_ERROR;
22299: --END IF;
22300: If lt_klev_tbl_type.FIRST is NOT NULL Then
22301: --means contract has some lines then
22294: END LOOP;
22295: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22296: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22297: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22298: -- RAISE OKL_API.G_EXCEPTION_ERROR;
22299: --END IF;
22300: If lt_klev_tbl_type.FIRST is NOT NULL Then
22301: --means contract has some lines then
22302: -- Copy all the lines for the old contract number
22313: p_copy_line_party_yn => 'Y',
22314: p_renew_ref_yn => 'N',
22315: p_trans_type => p_trans_type,
22316: x_cle_id_tbl => ltx_klev_tbl_type);
22317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22318: OKL_API.set_message(p_app_name => G_APP_NAME,
22319: p_msg_name => G_COPY_LINE);
22320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22321: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22314: p_renew_ref_yn => 'N',
22315: p_trans_type => p_trans_type,
22316: x_cle_id_tbl => ltx_klev_tbl_type);
22317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22318: OKL_API.set_message(p_app_name => G_APP_NAME,
22319: p_msg_name => G_COPY_LINE);
22320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22321: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22322: OKL_API.set_message(p_app_name => G_APP_NAME,
22316: x_cle_id_tbl => ltx_klev_tbl_type);
22317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22318: OKL_API.set_message(p_app_name => G_APP_NAME,
22319: p_msg_name => G_COPY_LINE);
22320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22321: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22322: OKL_API.set_message(p_app_name => G_APP_NAME,
22323: p_msg_name => G_COPY_LINE);
22324: RAISE OKL_API.G_EXCEPTION_ERROR;
22317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22318: OKL_API.set_message(p_app_name => G_APP_NAME,
22319: p_msg_name => G_COPY_LINE);
22320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22321: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22322: OKL_API.set_message(p_app_name => G_APP_NAME,
22323: p_msg_name => G_COPY_LINE);
22324: RAISE OKL_API.G_EXCEPTION_ERROR;
22325: END IF;
22318: OKL_API.set_message(p_app_name => G_APP_NAME,
22319: p_msg_name => G_COPY_LINE);
22320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22321: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22322: OKL_API.set_message(p_app_name => G_APP_NAME,
22323: p_msg_name => G_COPY_LINE);
22324: RAISE OKL_API.G_EXCEPTION_ERROR;
22325: END IF;
22326: --
22320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22321: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22322: OKL_API.set_message(p_app_name => G_APP_NAME,
22323: p_msg_name => G_COPY_LINE);
22324: RAISE OKL_API.G_EXCEPTION_ERROR;
22325: END IF;
22326: --
22327: --Bug# 2522268 : Physically delete all the lines with source lines having
22328: -- abandoned status
22331: x_return_status => x_return_Status,
22332: x_msg_count => x_msg_count,
22333: x_msg_data => x_msg_data,
22334: p_chr_id => x_chr_id);
22335: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22336: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22337: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22338: raise OKL_API.G_EXCEPTION_ERROR;
22339: End If;
22332: x_msg_count => x_msg_count,
22333: x_msg_data => x_msg_data,
22334: p_chr_id => x_chr_id);
22335: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22336: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22337: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22338: raise OKL_API.G_EXCEPTION_ERROR;
22339: End If;
22340: --
22333: x_msg_data => x_msg_data,
22334: p_chr_id => x_chr_id);
22335: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22336: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22337: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22338: raise OKL_API.G_EXCEPTION_ERROR;
22339: End If;
22340: --
22341: --Bug# 2522268 End
22334: p_chr_id => x_chr_id);
22335: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22336: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22337: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22338: raise OKL_API.G_EXCEPTION_ERROR;
22339: End If;
22340: --
22341: --Bug# 2522268 End
22342: --
22349: x_return_status => x_return_Status,
22350: x_msg_count => x_msg_count,
22351: x_msg_data => x_msg_data,
22352: p_chr_id => x_chr_id);
22353: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22354: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22355: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22356: raise OKL_API.G_EXCEPTION_ERROR;
22357: End If;
22350: x_msg_count => x_msg_count,
22351: x_msg_data => x_msg_data,
22352: p_chr_id => x_chr_id);
22353: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22354: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22355: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22356: raise OKL_API.G_EXCEPTION_ERROR;
22357: End If;
22358:
22351: x_msg_data => x_msg_data,
22352: p_chr_id => x_chr_id);
22353: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22354: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22355: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22356: raise OKL_API.G_EXCEPTION_ERROR;
22357: End If;
22358:
22359: End If;
22352: p_chr_id => x_chr_id);
22353: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22354: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22355: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22356: raise OKL_API.G_EXCEPTION_ERROR;
22357: End If;
22358:
22359: End If;
22360: --
22391: p_new_lnk_cim_id => l_new_lnk_cim_id,
22392: p_object_code => l_jtot_object1_code,
22393: p_new_chr_id => x_chr_id );
22394:
22395: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22396: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22397: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22398: raise OKL_API.G_EXCEPTION_ERROR;
22399: End If;
22392: p_object_code => l_jtot_object1_code,
22393: p_new_chr_id => x_chr_id );
22394:
22395: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22396: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22397: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22398: raise OKL_API.G_EXCEPTION_ERROR;
22399: End If;
22400: End If;
22393: p_new_chr_id => x_chr_id );
22394:
22395: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22396: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22397: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22398: raise OKL_API.G_EXCEPTION_ERROR;
22399: End If;
22400: End If;
22401: End Loop;
22394:
22395: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22396: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22397: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22398: raise OKL_API.G_EXCEPTION_ERROR;
22399: End If;
22400: End If;
22401: End Loop;
22402: Close l_lnk_csr;
22416: x_msg_data => x_msg_data,
22417: p_from_chr_id => p_chr_id,
22418: p_to_chr_id => x_chr_id);
22419:
22420: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22421: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22422: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22423: raise OKL_API.G_EXCEPTION_ERROR;
22424: End If;
22417: p_from_chr_id => p_chr_id,
22418: p_to_chr_id => x_chr_id);
22419:
22420: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22421: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22422: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22423: raise OKL_API.G_EXCEPTION_ERROR;
22424: End If;
22425:
22418: p_to_chr_id => x_chr_id);
22419:
22420: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22421: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22422: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22423: raise OKL_API.G_EXCEPTION_ERROR;
22424: End If;
22425:
22426: --------------------------------------------------------------------------------
22419:
22420: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22421: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22422: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22423: raise OKL_API.G_EXCEPTION_ERROR;
22424: End If;
22425:
22426: --------------------------------------------------------------------------------
22427: --Bug # 2412839 - Since copy insurance functionality is not supported at this
22438: x_return_status => x_return_status,
22439: x_msg_count => x_msg_count,
22440: x_msg_data => x_msg_data,
22441: p_line_id => l_ins_top_line_id);
22442: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22443: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22444: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22445: raise OKL_API.G_EXCEPTION_ERROR;
22446: End If;
22439: x_msg_count => x_msg_count,
22440: x_msg_data => x_msg_data,
22441: p_line_id => l_ins_top_line_id);
22442: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22443: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22444: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22445: raise OKL_API.G_EXCEPTION_ERROR;
22446: End If;
22447: End Loop;
22440: x_msg_data => x_msg_data,
22441: p_line_id => l_ins_top_line_id);
22442: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22443: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22444: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22445: raise OKL_API.G_EXCEPTION_ERROR;
22446: End If;
22447: End Loop;
22448: Close ins_top_line_csr;
22441: p_line_id => l_ins_top_line_id);
22442: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22443: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22444: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22445: raise OKL_API.G_EXCEPTION_ERROR;
22446: End If;
22447: End Loop;
22448: Close ins_top_line_csr;
22449:
22466: end if;
22467:
22468: --Bug# 3541098 end
22469:
22470: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22471: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22472: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22473: raise OKL_API.G_EXCEPTION_ERROR;
22474: End If;
22467:
22468: --Bug# 3541098 end
22469:
22470: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22471: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22472: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22473: raise OKL_API.G_EXCEPTION_ERROR;
22474: End If;
22475:
22468: --Bug# 3541098 end
22469:
22470: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22471: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22472: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22473: raise OKL_API.G_EXCEPTION_ERROR;
22474: End If;
22475:
22476: --Start Bug# 3621663
22469:
22470: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22471: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22472: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22473: raise OKL_API.G_EXCEPTION_ERROR;
22474: End If;
22475:
22476: --Start Bug# 3621663
22477: -----------------------------------------------------------------------------
22484: null;
22485: end if;
22486: close l_parent_sts_csr;
22487:
22488: If nvl(l_parent_sts_rec.ste_code,OKL_API.G_MISS_CHAR) not in ('ENTERED','SIGNED')
22489: and nvl(l_parent_sts_rec.scs_code,OKL_API.G_MISS_CHAR) = 'LEASE'
22490: and nvl(p_copy_lines_yn,'N') = 'Y' then
22491: If nvl(p_trans_type,OKL_API.G_MISS_CHAR) not in ('CRB','CRL') then
22492: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
22485: end if;
22486: close l_parent_sts_csr;
22487:
22488: If nvl(l_parent_sts_rec.ste_code,OKL_API.G_MISS_CHAR) not in ('ENTERED','SIGNED')
22489: and nvl(l_parent_sts_rec.scs_code,OKL_API.G_MISS_CHAR) = 'LEASE'
22490: and nvl(p_copy_lines_yn,'N') = 'Y' then
22491: If nvl(p_trans_type,OKL_API.G_MISS_CHAR) not in ('CRB','CRL') then
22492: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
22493: i := 0;
22487:
22488: If nvl(l_parent_sts_rec.ste_code,OKL_API.G_MISS_CHAR) not in ('ENTERED','SIGNED')
22489: and nvl(l_parent_sts_rec.scs_code,OKL_API.G_MISS_CHAR) = 'LEASE'
22490: and nvl(p_copy_lines_yn,'N') = 'Y' then
22491: If nvl(p_trans_type,OKL_API.G_MISS_CHAR) not in ('CRB','CRL') then
22492: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
22493: i := 0;
22494: If nvl(l_rep_book_type,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
22495: open l_txd_csr (p_book_type_code => l_rep_book_type,
22490: and nvl(p_copy_lines_yn,'N') = 'Y' then
22491: If nvl(p_trans_type,OKL_API.G_MISS_CHAR) not in ('CRB','CRL') then
22492: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
22493: i := 0;
22494: If nvl(l_rep_book_type,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
22495: open l_txd_csr (p_book_type_code => l_rep_book_type,
22496: p_chr_id => x_chr_id);
22497: Loop
22498: fetch l_txd_csr into l_txd_rec;
22509: x_return_status => x_return_status,
22510: x_msg_count => x_msg_count,
22511: x_msg_data => x_msg_data,
22512: p_adpv_tbl => l_adpv_tbl);
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_adpv_tbl => l_adpv_tbl);
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: End If;
22511: x_msg_data => x_msg_data,
22512: p_adpv_tbl => l_adpv_tbl);
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: End If;
22519: End If;
22512: p_adpv_tbl => l_adpv_tbl);
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: End If;
22519: End If;
22520: End If;
22542: p_chr_id => x_chr_id,
22543: p_status => 'NEW',
22544: p_cascade_lines => p_copy_lines_yn);
22545:
22546: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22549: raise OKL_API.G_EXCEPTION_ERROR;
22550: End If;
22543: p_status => 'NEW',
22544: p_cascade_lines => p_copy_lines_yn);
22545:
22546: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22549: raise OKL_API.G_EXCEPTION_ERROR;
22550: End If;
22551:
22544: p_cascade_lines => p_copy_lines_yn);
22545:
22546: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22549: raise OKL_API.G_EXCEPTION_ERROR;
22550: End If;
22551:
22552: -- apaul,Bug#4381642
22545:
22546: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22549: raise OKL_API.G_EXCEPTION_ERROR;
22550: End If;
22551:
22552: -- apaul,Bug#4381642
22553: -- Reset Securitized Flag
22565: p_khrv_rec => lp_khrv_rec,
22566: x_chrv_rec => lx_chrv_rec,
22567: x_khrv_rec => lx_khrv_rec);
22568:
22569: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22571: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22572: RAISE OKL_API.G_EXCEPTION_ERROR;
22573: END IF;
22566: x_chrv_rec => lx_chrv_rec,
22567: x_khrv_rec => lx_khrv_rec);
22568:
22569: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22571: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22572: RAISE OKL_API.G_EXCEPTION_ERROR;
22573: END IF;
22574: -- END,apaul,Bug#4381642
22567: x_khrv_rec => lx_khrv_rec);
22568:
22569: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22571: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22572: RAISE OKL_API.G_EXCEPTION_ERROR;
22573: END IF;
22574: -- END,apaul,Bug#4381642
22575:
22568:
22569: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22571: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22572: RAISE OKL_API.G_EXCEPTION_ERROR;
22573: END IF;
22574: -- END,apaul,Bug#4381642
22575:
22576: ElsIf l_scs_code = 'QUOTE' Then
22597: p_chr_id => x_chr_id,
22598: p_status => l_sts_code,
22599: p_cascade_lines => p_copy_lines_yn);
22600:
22601: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22602: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22603: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22604: raise OKL_API.G_EXCEPTION_ERROR;
22605: End If;
22598: p_status => l_sts_code,
22599: p_cascade_lines => p_copy_lines_yn);
22600:
22601: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22602: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22603: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22604: raise OKL_API.G_EXCEPTION_ERROR;
22605: End If;
22606:
22599: p_cascade_lines => p_copy_lines_yn);
22600:
22601: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22602: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22603: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22604: raise OKL_API.G_EXCEPTION_ERROR;
22605: End If;
22606:
22607: /*----Bug# 5591688 : Commenting as okl_quote_plans_pvt is stubbed in R12
22600:
22601: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22602: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22603: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22604: raise OKL_API.G_EXCEPTION_ERROR;
22605: End If;
22606:
22607: /*----Bug# 5591688 : Commenting as okl_quote_plans_pvt is stubbed in R12
22608: -- quotes are no longer copied using copy contract
22610: OKL_QUOTE_PLANS_PVT.modify_quote_structure
22611: ( p_api_version => p_api_version,
22612: p_init_msg_list => p_init_msg_list,
22613: --Bug# 3143522
22614: p_transaction_control => OKL_API.G_FALSE,
22615: p_chr_id => x_chr_id,
22616: p_modify_reason_code => 'COPY_QUOTE',
22617: x_chr_id => l_quote_chr_id,
22618: x_return_status => x_return_status,
22618: x_return_status => x_return_status,
22619: x_msg_count => x_msg_count,
22620: x_msg_data => x_msg_data);
22621:
22622: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22624: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22625: raise OKL_API.G_EXCEPTION_ERROR;
22626: End If;
22619: x_msg_count => x_msg_count,
22620: x_msg_data => x_msg_data);
22621:
22622: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22624: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22625: raise OKL_API.G_EXCEPTION_ERROR;
22626: End If;
22627: ------------------------End of commented code----------*/
22620: x_msg_data => x_msg_data);
22621:
22622: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22624: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22625: raise OKL_API.G_EXCEPTION_ERROR;
22626: End If;
22627: ------------------------End of commented code----------*/
22628:
22621:
22622: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
22623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22624: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
22625: raise OKL_API.G_EXCEPTION_ERROR;
22626: End If;
22627: ------------------------End of commented code----------*/
22628:
22629: End If;
22632: -----------------------------------------------------------------------------
22633: --End of resetting the copied contract status to new
22634: -----------------------------------------------------------------------------
22635: --End Bug# 2555692
22636: OKL_API.END_ACTIVITY (x_msg_count,
22637: x_msg_data );
22638: EXCEPTION
22639: WHEN OKL_API.G_EXCEPTION_ERROR THEN
22640: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22635: --End Bug# 2555692
22636: OKL_API.END_ACTIVITY (x_msg_count,
22637: x_msg_data );
22638: EXCEPTION
22639: WHEN OKL_API.G_EXCEPTION_ERROR THEN
22640: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22641: l_api_name,
22642: G_PKG_NAME,
22643: 'OKL_API.G_RET_STS_ERROR',
22636: OKL_API.END_ACTIVITY (x_msg_count,
22637: x_msg_data );
22638: EXCEPTION
22639: WHEN OKL_API.G_EXCEPTION_ERROR THEN
22640: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22641: l_api_name,
22642: G_PKG_NAME,
22643: 'OKL_API.G_RET_STS_ERROR',
22644: x_msg_count,
22639: WHEN OKL_API.G_EXCEPTION_ERROR THEN
22640: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22641: l_api_name,
22642: G_PKG_NAME,
22643: 'OKL_API.G_RET_STS_ERROR',
22644: x_msg_count,
22645: x_msg_data,
22646: '_PVT');
22647: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
22643: 'OKL_API.G_RET_STS_ERROR',
22644: x_msg_count,
22645: x_msg_data,
22646: '_PVT');
22647: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
22648: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22649: l_api_name,
22650: G_PKG_NAME,
22651: 'OKL_API.G_RET_STS_UNEXP_ERROR',
22644: x_msg_count,
22645: x_msg_data,
22646: '_PVT');
22647: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
22648: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22649: l_api_name,
22650: G_PKG_NAME,
22651: 'OKL_API.G_RET_STS_UNEXP_ERROR',
22652: x_msg_count,
22647: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
22648: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22649: l_api_name,
22650: G_PKG_NAME,
22651: 'OKL_API.G_RET_STS_UNEXP_ERROR',
22652: x_msg_count,
22653: x_msg_data,
22654: '_PVT');
22655: WHEN OTHERS THEN
22652: x_msg_count,
22653: x_msg_data,
22654: '_PVT');
22655: WHEN OTHERS THEN
22656: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22657: l_api_name,
22658: G_PKG_NAME,
22659: 'OTHERS',
22660: x_msg_count,