[Home] [Help]
716: l_return_status := OKL_API.G_RET_STS_SUCCESS;
717: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.POPULATE_EC_REC';
718:
719: -- check for logging on PROCEDURE level
720: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
721: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
722: -- check for logging on STATEMENT level
723: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
724:
717: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.POPULATE_EC_REC';
718:
719: -- check for logging on PROCEDURE level
720: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
721: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
722: -- check for logging on STATEMENT level
723: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
724:
725: -- call START_ACTIVITY to create savepoint, check compatibility
719: -- check for logging on PROCEDURE level
720: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
721: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
722: -- check for logging on STATEMENT level
723: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
724:
725: -- call START_ACTIVITY to create savepoint, check compatibility
726: -- and initialize message list
727: l_return_status := OKL_API.START_ACTIVITY(
1099: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1100: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.POPULATE_LEASE_APP';
1101:
1102: -- check for logging on PROCEDURE level
1103: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1104: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1105: -- check for logging on STATEMENT level
1106: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1107:
1100: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.POPULATE_LEASE_APP';
1101:
1102: -- check for logging on PROCEDURE level
1103: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1104: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1105: -- check for logging on STATEMENT level
1106: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1107:
1108: -- call START_ACTIVITY to create savepoint, check compatibility
1102: -- check for logging on PROCEDURE level
1103: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1104: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1105: -- check for logging on STATEMENT level
1106: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1107:
1108: -- call START_ACTIVITY to create savepoint, check compatibility
1109: -- and initialize message list
1110: l_return_status := OKL_API.START_ACTIVITY(
1327: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1328: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.POP_CHECKLIST_ITEM';
1329:
1330: -- check for logging on PROCEDURE level
1331: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1332: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1333: -- check for logging on STATEMENT level
1334: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1335:
1328: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.POP_CHECKLIST_ITEM';
1329:
1330: -- check for logging on PROCEDURE level
1331: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1332: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1333: -- check for logging on STATEMENT level
1334: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1335:
1336: -- call START_ACTIVITY to create savepoint, check compatibility
1330: -- check for logging on PROCEDURE level
1331: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1332: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1333: -- check for logging on STATEMENT level
1334: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1335:
1336: -- call START_ACTIVITY to create savepoint, check compatibility
1337: -- and initialize message list
1338: l_return_status := OKL_API.START_ACTIVITY(
1482: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1483: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SET_IN_PROGRESS_STATUS';
1484:
1485: -- check for logging on PROCEDURE level
1486: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1487: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1488: -- check for logging on STATEMENT level
1489: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1490:
1483: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SET_IN_PROGRESS_STATUS';
1484:
1485: -- check for logging on PROCEDURE level
1486: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1487: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1488: -- check for logging on STATEMENT level
1489: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1490:
1491: -- call START_ACTIVITY to create savepoint, check compatibility
1485: -- check for logging on PROCEDURE level
1486: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1487: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1488: -- check for logging on STATEMENT level
1489: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1490:
1491: -- call START_ACTIVITY to create savepoint, check compatibility
1492: -- and initialize message list
1493: l_return_status := OKL_API.START_ACTIVITY(
1508:
1509: --Populate Lease Application rec with the values from database.
1510: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1511: THEN
1512: OKL_DEBUG_PUB.LOG_DEBUG(
1513: FND_LOG.LEVEL_PROCEDURE
1514: ,L_MODULE
1515: ,'begin debug call POPULATE_LEASE_APP');
1516: END IF;
1526: ,x_lsqv_rec => x_lsqv_rec);
1527:
1528: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1529: THEN
1530: OKL_DEBUG_PUB.LOG_DEBUG(
1531: FND_LOG.LEVEL_PROCEDURE
1532: ,L_MODULE
1533: ,'end debug call POPULATE_LEASE_APP');
1534: END IF;
1534: END IF;
1535:
1536: -- write to log
1537: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
1538: OKL_DEBUG_PUB.LOG_DEBUG(
1539: FND_LOG.LEVEL_STATEMENT
1540: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
1541: ,'l_return_status ' || l_return_status);
1542: END IF; -- end of statement level debug
1558: END IF;
1559:
1560: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1561: THEN
1562: OKL_DEBUG_PUB.LOG_DEBUG(
1563: FND_LOG.LEVEL_PROCEDURE
1564: ,L_MODULE
1565: ,'begin debug call OKL_LAP_PVT.UPDATE_ROW');
1566: END IF;
1575: ,x_lapv_rec => x_lapv_rec);
1576:
1577: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1578: THEN
1579: OKL_DEBUG_PUB.LOG_DEBUG(
1580: FND_LOG.LEVEL_PROCEDURE
1581: ,L_MODULE
1582: ,'end debug call OKL_LAP_PVT.UPDATE_ROW');
1583: END IF;
1583: END IF;
1584:
1585: -- write to log
1586: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
1587: OKL_DEBUG_PUB.LOG_DEBUG(
1588: FND_LOG.LEVEL_STATEMENT
1589: ,L_MODULE || ' Result of OKL_LAP_PVT.UPDATE_ROW'
1590: ,'l_return_status ' || l_return_status);
1591: END IF; -- end of statement level debug
1677: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1678: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.REVERT_TO_ORIG_STATUS';
1679:
1680: -- check for logging on PROCEDURE level
1681: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1682: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1683: -- check for logging on STATEMENT level
1684: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1685:
1678: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.REVERT_TO_ORIG_STATUS';
1679:
1680: -- check for logging on PROCEDURE level
1681: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1682: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1683: -- check for logging on STATEMENT level
1684: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1685:
1686: -- call START_ACTIVITY to create savepoint, check compatibility
1680: -- check for logging on PROCEDURE level
1681: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1682: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1683: -- check for logging on STATEMENT level
1684: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1685:
1686: -- call START_ACTIVITY to create savepoint, check compatibility
1687: -- and initialize message list
1688: l_return_status := OKL_API.START_ACTIVITY(
1710: THEN
1711: --Populate Lease Application rec with the values from database.
1712: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1713: THEN
1714: OKL_DEBUG_PUB.LOG_DEBUG(
1715: FND_LOG.LEVEL_PROCEDURE
1716: ,L_MODULE
1717: ,'begin debug call POPULATE_LEASE_APP');
1718: END IF;
1728: ,x_lsqv_rec => x_lsqv_rec);
1729:
1730: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1731: THEN
1732: OKL_DEBUG_PUB.LOG_DEBUG(
1733: FND_LOG.LEVEL_PROCEDURE
1734: ,L_MODULE
1735: ,'end debug call POPULATE_LEASE_APP');
1736: END IF;
1736: END IF;
1737:
1738: -- write to log
1739: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
1740: OKL_DEBUG_PUB.LOG_DEBUG(
1741: FND_LOG.LEVEL_STATEMENT
1742: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
1743: ,'l_return_status ' || l_return_status);
1744: END IF; -- end of statement level debug
1754: l_lapv_rec.orig_status := NULL;
1755:
1756: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1757: THEN
1758: OKL_DEBUG_PUB.LOG_DEBUG(
1759: FND_LOG.LEVEL_PROCEDURE
1760: ,L_MODULE
1761: ,'begin debug call OKL_LAP_PVT.UPDATE_ROW');
1762: END IF;
1771: ,x_lapv_rec => x_lapv_rec);
1772:
1773: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1774: THEN
1775: OKL_DEBUG_PUB.LOG_DEBUG(
1776: FND_LOG.LEVEL_PROCEDURE
1777: ,L_MODULE
1778: ,'end debug call OKL_LAP_PVT.UPDATE_ROW');
1779: END IF;
1779: END IF;
1780:
1781: -- write to log
1782: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
1783: OKL_DEBUG_PUB.LOG_DEBUG(
1784: FND_LOG.LEVEL_STATEMENT
1785: ,L_MODULE || ' Result of OKL_LAP_PVT.UPDATE_ROW'
1786: ,'l_return_status ' || l_return_status);
1787: END IF; -- end of statement level debug
1948: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1949: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CHECK_LEASE_QUOTE_DEFAULTS';
1950:
1951: -- check for logging on PROCEDURE level
1952: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1953: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1954: -- check for logging on STATEMENT level
1955: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1956:
1949: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CHECK_LEASE_QUOTE_DEFAULTS';
1950:
1951: -- check for logging on PROCEDURE level
1952: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1953: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1954: -- check for logging on STATEMENT level
1955: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1956:
1957: -- call START_ACTIVITY to create savepoint, check compatibility
1951: -- check for logging on PROCEDURE level
1952: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1953: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1954: -- check for logging on STATEMENT level
1955: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1956:
1957: -- call START_ACTIVITY to create savepoint, check compatibility
1958: -- and initialize message list
1959: l_return_status := OKL_API.START_ACTIVITY(
2234: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2235: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CREATE_CREDIT_APP';
2236:
2237: -- check for logging on PROCEDURE level
2238: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2239: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2240: -- check for logging on STATEMENT level
2241: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2242:
2235: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CREATE_CREDIT_APP';
2236:
2237: -- check for logging on PROCEDURE level
2238: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2239: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2240: -- check for logging on STATEMENT level
2241: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2242:
2243: -- call START_ACTIVITY to create savepoint, check compatibility
2237: -- check for logging on PROCEDURE level
2238: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2239: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2240: -- check for logging on STATEMENT level
2241: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2242:
2243: -- call START_ACTIVITY to create savepoint, check compatibility
2244: -- and initialize message list
2245: l_return_status := OKL_API.START_ACTIVITY(
2316:
2317: --Call to create Credit Application
2318: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2319: THEN
2320: OKL_DEBUG_PUB.LOG_DEBUG(
2321: FND_LOG.LEVEL_PROCEDURE
2322: ,L_MODULE
2323: ,'begin debug call AR_CMGT_CREDIT_REQUEST_API.CREATE_CREDIT_REQUEST');
2324: END IF;
2369: p_reco => 'OKL_CR_MGMT_RECOMMENDATION' );
2370:
2371: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2372: THEN
2373: OKL_DEBUG_PUB.LOG_DEBUG(
2374: FND_LOG.LEVEL_PROCEDURE
2375: ,L_MODULE
2376: ,'end debug call AR_CMGT_CREDIT_REQUEST_API.CREATE_CREDIT_REQUEST');
2377: END IF;
2377: END IF;
2378:
2379: -- write to log
2380: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
2381: OKL_DEBUG_PUB.LOG_DEBUG(
2382: FND_LOG.LEVEL_STATEMENT
2383: ,L_MODULE || ' Result of AR_CMGT_CREDIT_REQUEST_API.CREATE_CREDIT_REQUEST'
2384: ,'l_return_status ' || l_return_status);
2385: END IF; -- end of statement level debug
2536: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2537: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CHECKLIST_INST_CRE';
2538:
2539: -- check for logging on PROCEDURE level
2540: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2541: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2542: -- check for logging on STATEMENT level
2543: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2544:
2537: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CHECKLIST_INST_CRE';
2538:
2539: -- check for logging on PROCEDURE level
2540: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2541: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2542: -- check for logging on STATEMENT level
2543: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2544:
2545: -- call START_ACTIVITY to create savepoint, check compatibility
2539: -- check for logging on PROCEDURE level
2540: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2541: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2542: -- check for logging on STATEMENT level
2543: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2544:
2545: -- call START_ACTIVITY to create savepoint, check compatibility
2546: -- and initialize message list
2547: l_return_status := OKL_API.START_ACTIVITY(
2569: --Call to update Checklist Instance header to remove already association
2570: --with lease application
2571: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2572: THEN
2573: OKL_DEBUG_PUB.LOG_DEBUG(
2574: FND_LOG.LEVEL_PROCEDURE
2575: ,L_MODULE
2576: ,'begin debug call OKL_CHECKLIST_PVT.UPDATE_CHECKLIST_INST_HDR');
2577: END IF;
2586: ,x_clhv_rec => x_clhv_rec);
2587:
2588: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2589: THEN
2590: OKL_DEBUG_PUB.LOG_DEBUG(
2591: FND_LOG.LEVEL_PROCEDURE
2592: ,L_MODULE
2593: ,'end debug call OKL_CHECKLIST_PVT.UPDATE_CHECKLIST_INST_HDR');
2594: END IF;
2594: END IF;
2595:
2596: -- write to log
2597: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
2598: OKL_DEBUG_PUB.LOG_DEBUG(
2599: FND_LOG.LEVEL_STATEMENT
2600: ,L_MODULE || ' Result of OKL_CHECKLIST_PVT.UPDATE_CHECKLIST_INST_HDR'
2601: ,'l_return_status ' || l_return_status);
2602: END IF; -- end of statement level debug
2636:
2637: --Call to create Checklist Instance
2638: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2639: THEN
2640: OKL_DEBUG_PUB.LOG_DEBUG(
2641: FND_LOG.LEVEL_PROCEDURE
2642: ,L_MODULE
2643: ,'begin debug call OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_HDR');
2644: END IF;
2653: ,x_clhv_rec => x_clhv_rec);
2654:
2655: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2656: THEN
2657: OKL_DEBUG_PUB.LOG_DEBUG(
2658: FND_LOG.LEVEL_PROCEDURE
2659: ,L_MODULE
2660: ,'end debug call OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_HDR');
2661: END IF;
2661: END IF;
2662:
2663: -- write to log
2664: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
2665: OKL_DEBUG_PUB.LOG_DEBUG(
2666: FND_LOG.LEVEL_STATEMENT
2667: ,L_MODULE || ' Result of OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_HDR'
2668: ,'l_return_status ' || l_return_status);
2669: END IF; -- end of statement level debug
2691: THEN
2692: --Call to create Checklist Instance Details
2693: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2694: THEN
2695: OKL_DEBUG_PUB.LOG_DEBUG(
2696: FND_LOG.LEVEL_PROCEDURE
2697: ,L_MODULE
2698: ,'begin debug call OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_DTL');
2699: END IF;
2708: ,x_cldv_tbl => x_cldv_tbl);
2709:
2710: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2711: THEN
2712: OKL_DEBUG_PUB.LOG_DEBUG(
2713: FND_LOG.LEVEL_PROCEDURE
2714: ,L_MODULE
2715: ,'end debug call OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_DTL');
2716: END IF;
2716: END IF;
2717:
2718: -- write to log
2719: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
2720: OKL_DEBUG_PUB.LOG_DEBUG(
2721: FND_LOG.LEVEL_STATEMENT
2722: ,L_MODULE || ' Result of OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_DTL'
2723: ,'l_return_status ' || l_return_status);
2724: END IF; -- end of statement level debug
2910: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2911: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_CRE';
2912:
2913: -- check for logging on PROCEDURE level
2914: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2915: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2916: -- check for logging on STATEMENT level
2917: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2918:
2911: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_CRE';
2912:
2913: -- check for logging on PROCEDURE level
2914: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2915: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2916: -- check for logging on STATEMENT level
2917: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2918:
2919: l_lapv_rec := p_lapv_rec;
2913: -- check for logging on PROCEDURE level
2914: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2915: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2916: -- check for logging on STATEMENT level
2917: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2918:
2919: l_lapv_rec := p_lapv_rec;
2920: l_lsqv_rec := p_lsqv_rec;
2921:
2945: --Validate VP and LAT association
2946: --Validate Lease Quote
2947: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2948: THEN
2949: OKL_DEBUG_PUB.LOG_DEBUG(
2950: FND_LOG.LEVEL_PROCEDURE
2951: ,L_MODULE
2952: ,'begin debug call LEASE_APP_VAL');
2953: END IF;
2962: ,p_lsqv_rec => l_lsqv_rec);
2963:
2964: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2965: THEN
2966: OKL_DEBUG_PUB.LOG_DEBUG(
2967: FND_LOG.LEVEL_PROCEDURE
2968: ,L_MODULE
2969: ,'end debug call LEASE_APP_VAL');
2970: END IF;
2970: END IF;
2971:
2972: -- write to log
2973: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
2974: OKL_DEBUG_PUB.LOG_DEBUG(
2975: FND_LOG.LEVEL_STATEMENT
2976: ,L_MODULE || ' Result of LEASE_APP_VAL'
2977: ,'l_return_status ' || l_return_status);
2978: END IF; -- end of statement level debug
2993: CLOSE lse_app_src_dtls_csr;
2994:
2995: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2996: THEN
2997: OKL_DEBUG_PUB.LOG_DEBUG(
2998: FND_LOG.LEVEL_PROCEDURE
2999: ,L_MODULE
3000: ,'begin debug call CHECK_LEASE_QUOTE_DEFAULTS');
3001: END IF;
3011: ,p_lsqv_rec => l_lsqv_rec);
3012:
3013: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3014: THEN
3015: OKL_DEBUG_PUB.LOG_DEBUG(
3016: FND_LOG.LEVEL_PROCEDURE
3017: ,L_MODULE
3018: ,'end debug call CHECK_LEASE_QUOTE_DEFAULTS');
3019: END IF;
3020:
3021: -- write to log
3022: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON)
3023: THEN
3024: OKL_DEBUG_PUB.LOG_DEBUG(
3025: FND_LOG.LEVEL_STATEMENT
3026: ,L_MODULE || ' Result of CHECK_LEASE_QUOTE_DEFAULTS'
3027: ,'l_return_status ' || l_return_status);
3028: END IF; -- end of statement level debug
3034: END IF; -- LEASE_OPPORTUNITY_ID check for null and G_MISS_NUM
3035:
3036: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3037: THEN
3038: OKL_DEBUG_PUB.LOG_DEBUG(
3039: FND_LOG.LEVEL_PROCEDURE
3040: ,L_MODULE
3041: ,'begin debug call OKL_LAP_PVT.INSERT_ROW');
3042: END IF;
3052: ,x_lapv_rec => x_lapv_rec);
3053:
3054: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3055: THEN
3056: OKL_DEBUG_PUB.LOG_DEBUG(
3057: FND_LOG.LEVEL_PROCEDURE
3058: ,L_MODULE
3059: ,'end debug call OKL_LAP_PVT.INSERT_ROW');
3060: END IF;
3060: END IF;
3061:
3062: -- write to log
3063: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3064: OKL_DEBUG_PUB.LOG_DEBUG(
3065: FND_LOG.LEVEL_STATEMENT
3066: ,L_MODULE || ' Result of OKL_LAP_PVT.INSERT_ROW'
3067: ,'l_lapv_rec.reference_number ' || to_char(l_lapv_rec.reference_number) ||
3068: ' l_lapv_rec.id '|| l_lapv_rec.id ||
3107: CLOSE lse_app_src_dtls_csr;
3108:
3109: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3110: THEN
3111: OKL_DEBUG_PUB.LOG_DEBUG(
3112: FND_LOG.LEVEL_PROCEDURE
3113: ,L_MODULE
3114: ,'begin debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
3115: END IF;
3127: ,x_msg_data => x_msg_data);
3128:
3129: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3130: THEN
3131: OKL_DEBUG_PUB.LOG_DEBUG(
3132: FND_LOG.LEVEL_PROCEDURE
3133: ,L_MODULE
3134: ,'end debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
3135: END IF;
3135: END IF;
3136:
3137: -- write to log
3138: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3139: OKL_DEBUG_PUB.LOG_DEBUG(
3140: FND_LOG.LEVEL_STATEMENT
3141: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE'
3142: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
3143: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
3155: --App from Lease Quote. Based on qa result Lease App and Lease Quote status
3156: --are updated
3157: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3158: THEN
3159: OKL_DEBUG_PUB.LOG_DEBUG(
3160: FND_LOG.LEVEL_PROCEDURE
3161: ,L_MODULE
3162: ,'begin debug call LEASE_APP_QA_VAL');
3163: END IF;
3173: ,x_qa_result => l_qa_result);
3174:
3175: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3176: THEN
3177: OKL_DEBUG_PUB.LOG_DEBUG(
3178: FND_LOG.LEVEL_PROCEDURE
3179: ,L_MODULE
3180: ,'end debug call LEASE_APP_QA_VAL');
3181: END IF;
3181: END IF;
3182:
3183: -- write to log
3184: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3185: OKL_DEBUG_PUB.LOG_DEBUG(
3186: FND_LOG.LEVEL_STATEMENT
3187: ,L_MODULE
3188: ,' Result of LEASE_APP_QA_VAL' ||
3189: ' Result Status ' || l_return_status ||
3199: IF l_qa_result <> OKL_API.G_RET_STS_SUCCESS
3200: THEN
3201: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3202: THEN
3203: OKL_DEBUG_PUB.LOG_DEBUG(
3204: FND_LOG.LEVEL_PROCEDURE
3205: ,L_MODULE
3206: ,'begin debug call SET_LEASE_APP_STATUS');
3207: END IF;
3217: ,x_msg_data => x_msg_data);
3218:
3219: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3220: THEN
3221: OKL_DEBUG_PUB.LOG_DEBUG(
3222: FND_LOG.LEVEL_PROCEDURE
3223: ,L_MODULE
3224: ,'end debug call SET_LEASE_APP_STATUS');
3225: END IF;
3225: END IF;
3226:
3227: -- write to log
3228: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3229: OKL_DEBUG_PUB.LOG_DEBUG(
3230: FND_LOG.LEVEL_STATEMENT
3231: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
3232: ,'return status ' || l_return_status ||
3233: ' x_msg_data ' || x_msg_data);
3242: l_lsqv_rec := x_lsqv_rec;
3243: l_lsqv_rec.status := 'PR-INCOMPLETE';
3244: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3245: THEN
3246: OKL_DEBUG_PUB.LOG_DEBUG(
3247: FND_LOG.LEVEL_PROCEDURE
3248: ,L_MODULE
3249: ,'begin debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
3250: END IF;
3261: ,x_msg_data => x_msg_data);
3262:
3263: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3264: THEN
3265: OKL_DEBUG_PUB.LOG_DEBUG(
3266: FND_LOG.LEVEL_PROCEDURE
3267: ,L_MODULE
3268: ,'end debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
3269: END IF;
3269: END IF;
3270:
3271: -- write to log
3272: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3273: OKL_DEBUG_PUB.LOG_DEBUG(
3274: FND_LOG.LEVEL_STATEMENT
3275: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE'
3276: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
3277: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
3287: END IF; -- For QA Result Check
3288: ELSE -- if Lease Opportunity Id is null
3289: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3290: THEN
3291: OKL_DEBUG_PUB.LOG_DEBUG(
3292: FND_LOG.LEVEL_PROCEDURE
3293: ,L_MODULE
3294: ,'begin debug call OKL_LEASE_QUOTE_PVT.CREATE_LEASE_QTE');
3295: END IF;
3306: ,x_msg_data => x_msg_data);
3307:
3308: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3309: THEN
3310: OKL_DEBUG_PUB.LOG_DEBUG(
3311: FND_LOG.LEVEL_PROCEDURE
3312: ,L_MODULE
3313: ,'end debug call OKL_LEASE_QUOTE_PVT.CREATE_LEASE_QTE');
3314: END IF;
3314: END IF;
3315:
3316: -- write to log
3317: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3318: OKL_DEBUG_PUB.LOG_DEBUG(
3319: FND_LOG.LEVEL_STATEMENT
3320: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.CREATE_LEASE_QTE'
3321: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
3322: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
3352: -- Bug#4741121 - viselvar - Modified - End
3353:
3354: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3355: THEN
3356: OKL_DEBUG_PUB.LOG_DEBUG(
3357: FND_LOG.LEVEL_PROCEDURE
3358: ,L_MODULE
3359: ,'begin debug call CREATE_CREDIT_APP');
3360: END IF;
3371: ,x_crr_rec => x_crr_rec);
3372:
3373: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3374: THEN
3375: OKL_DEBUG_PUB.LOG_DEBUG(
3376: FND_LOG.LEVEL_PROCEDURE
3377: ,L_MODULE
3378: ,'end debug call CREATE_CREDIT_APP');
3379: END IF;
3379: END IF;
3380:
3381: -- write to log
3382: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3383: OKL_DEBUG_PUB.LOG_DEBUG(
3384: FND_LOG.LEVEL_STATEMENT
3385: ,L_MODULE || ' Result of CREATE_CREDIT_APP'
3386: ,' result status ' || l_return_status);
3387: END IF; -- end of statement level debug
3399: IF(chk_hdr_dtls_rec.checklist_id IS NOT NULL)
3400: THEN
3401: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3402: THEN
3403: OKL_DEBUG_PUB.LOG_DEBUG(
3404: FND_LOG.LEVEL_PROCEDURE
3405: ,L_MODULE
3406: ,'begin debug call CHECKLIST_INST_CRE');
3407: END IF;
3417: ,p_chklst_tmpl_id => chk_hdr_dtls_rec.checklist_id);
3418:
3419: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3420: THEN
3421: OKL_DEBUG_PUB.LOG_DEBUG(
3422: FND_LOG.LEVEL_PROCEDURE
3423: ,L_MODULE
3424: ,'end debug call CHECKLIST_INST_CRE');
3425: END IF;
3425: END IF;
3426:
3427: -- write to log
3428: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3429: OKL_DEBUG_PUB.LOG_DEBUG(
3430: FND_LOG.LEVEL_STATEMENT
3431: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
3432: ,' result status ' || l_return_status);
3433: END IF; -- end of statement level debug
3617: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3618: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_UPD';
3619:
3620: -- check for logging on PROCEDURE level
3621: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
3622: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
3623: -- check for logging on STATEMENT level
3624: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
3625:
3618: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_UPD';
3619:
3620: -- check for logging on PROCEDURE level
3621: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
3622: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
3623: -- check for logging on STATEMENT level
3624: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
3625:
3626: -- call START_ACTIVITY to create savepoint, check compatibility
3620: -- check for logging on PROCEDURE level
3621: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
3622: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
3623: -- check for logging on STATEMENT level
3624: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
3625:
3626: -- call START_ACTIVITY to create savepoint, check compatibility
3627: -- and initialize message list
3628: l_return_status := OKL_API.START_ACTIVITY(
3650: --Validate VP and LAT association
3651: --Validate Lease Quote
3652: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3653: THEN
3654: OKL_DEBUG_PUB.LOG_DEBUG(
3655: FND_LOG.LEVEL_PROCEDURE
3656: ,L_MODULE
3657: ,'begin debug call LEASE_APP_VAL');
3658: END IF;
3667: ,p_lsqv_rec => l_lsqv_rec);
3668:
3669: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3670: THEN
3671: OKL_DEBUG_PUB.LOG_DEBUG(
3672: FND_LOG.LEVEL_PROCEDURE
3673: ,L_MODULE
3674: ,'end debug call LEASE_APP_VAL');
3675: END IF;
3675: END IF;
3676:
3677: -- write to log
3678: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3679: OKL_DEBUG_PUB.LOG_DEBUG(
3680: FND_LOG.LEVEL_STATEMENT
3681: ,L_MODULE || ' Result of LEASE_APP_VAL'
3682: ,'l_return_status ' || l_return_status);
3683: END IF; -- end of statement level debug
3699: --status of Lease App and Lease Quote
3700: l_update_quote := 0;
3701: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3702: THEN
3703: OKL_DEBUG_PUB.LOG_DEBUG(
3704: FND_LOG.LEVEL_PROCEDURE
3705: ,L_MODULE
3706: ,'begin debug call CHECK_LEASE_QUOTE_DEFAULTS');
3707: END IF;
3717: ,p_lsqv_rec => l_lsqv_rec);
3718:
3719: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3720: THEN
3721: OKL_DEBUG_PUB.LOG_DEBUG(
3722: FND_LOG.LEVEL_PROCEDURE
3723: ,L_MODULE
3724: ,'end debug call CHECK_LEASE_QUOTE_DEFAULTS');
3725: END IF;
3726:
3727: -- write to log
3728: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON)
3729: THEN
3730: OKL_DEBUG_PUB.LOG_DEBUG(
3731: FND_LOG.LEVEL_STATEMENT
3732: ,L_MODULE || ' Result of CHECK_LEASE_QUOTE_DEFAULTS'
3733: ,'l_return_status ' || l_return_status);
3734: END IF; -- end of statement level debug
3742: END IF;
3743:
3744: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3745: THEN
3746: OKL_DEBUG_PUB.LOG_DEBUG(
3747: FND_LOG.LEVEL_PROCEDURE
3748: ,L_MODULE
3749: ,'begin debug call OKL_LAP_PVT.UPDATE_ROW');
3750: END IF;
3760: ,x_lapv_rec => x_lapv_rec);
3761:
3762: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3763: THEN
3764: OKL_DEBUG_PUB.LOG_DEBUG(
3765: FND_LOG.LEVEL_PROCEDURE
3766: ,L_MODULE
3767: ,'end debug call OKL_LAP_PVT.UPDATE_ROW');
3768: END IF;
3768: END IF;
3769:
3770: -- write to log
3771: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3772: OKL_DEBUG_PUB.LOG_DEBUG(
3773: FND_LOG.LEVEL_STATEMENT
3774: ,L_MODULE || ' Result of OKL_LAP_PVT.UPDATE_ROW'
3775: ,'l_lapv_rec.reference_number ' || to_char(l_lapv_rec.reference_number) ||
3776: ' expiring lease application with status ' || l_return_status ||
3788: l_lsqv_rec.status := 'PR-INCOMPLETE';
3789:
3790: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3791: THEN
3792: OKL_DEBUG_PUB.LOG_DEBUG(
3793: FND_LOG.LEVEL_PROCEDURE
3794: ,L_MODULE
3795: ,'begin debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
3796: END IF;
3807: ,x_msg_data => x_msg_data);
3808:
3809: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3810: THEN
3811: OKL_DEBUG_PUB.LOG_DEBUG(
3812: FND_LOG.LEVEL_PROCEDURE
3813: ,L_MODULE
3814: ,'end debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
3815: END IF;
3815: END IF;
3816:
3817: -- write to log
3818: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3819: OKL_DEBUG_PUB.LOG_DEBUG(
3820: FND_LOG.LEVEL_STATEMENT
3821: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE'
3822: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
3823: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
3865: CLOSE chk_hdr_dtls_csr;
3866:
3867: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3868: THEN
3869: OKL_DEBUG_PUB.LOG_DEBUG(
3870: FND_LOG.LEVEL_PROCEDURE
3871: ,L_MODULE
3872: ,'begin debug call CHECKLIST_INST_CRE');
3873: END IF;
3883: ,p_chklst_tmpl_id => chk_hdr_dtls_rec.checklist_id);
3884:
3885: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3886: THEN
3887: OKL_DEBUG_PUB.LOG_DEBUG(
3888: FND_LOG.LEVEL_PROCEDURE
3889: ,L_MODULE
3890: ,'end debug call CHECKLIST_INST_CRE');
3891: END IF;
3891: END IF;
3892:
3893: -- write to log
3894: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3895: OKL_DEBUG_PUB.LOG_DEBUG(
3896: FND_LOG.LEVEL_STATEMENT
3897: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
3898: ,' result status ' || l_return_status);
3899: END IF; -- end of statement level debug
3917: OR get_crd_app_data_rec.application_number <> l_lapv_rec.reference_number
3918: THEN
3919: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3920: THEN
3921: OKL_DEBUG_PUB.LOG_DEBUG(
3922: FND_LOG.LEVEL_PROCEDURE
3923: ,L_MODULE
3924: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
3925: END IF;
3931: ,p_credit_request_rec => l_credit_request_rec);
3932:
3933: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3934: THEN
3935: OKL_DEBUG_PUB.LOG_DEBUG(
3936: FND_LOG.LEVEL_PROCEDURE
3937: ,L_MODULE
3938: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
3939: END IF;
3939: END IF;
3940:
3941: -- write to log
3942: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3943: OKL_DEBUG_PUB.LOG_DEBUG(
3944: FND_LOG.LEVEL_STATEMENT
3945: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC'
3946: ,' result status ' || l_return_status);
3947: END IF; -- end of statement level debug
3960: l_credit_request_rec.cust_account_id := x_lapv_rec.cust_acct_id;
3961:
3962: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3963: THEN
3964: OKL_DEBUG_PUB.LOG_DEBUG(
3965: FND_LOG.LEVEL_PROCEDURE
3966: ,L_MODULE
3967: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
3968: END IF;
3978: p_credit_request_rec => l_credit_request_rec);
3979:
3980: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3981: THEN
3982: OKL_DEBUG_PUB.LOG_DEBUG(
3983: FND_LOG.LEVEL_PROCEDURE
3984: ,L_MODULE
3985: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
3986: END IF;
3986: END IF;
3987:
3988: -- write to log
3989: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3990: OKL_DEBUG_PUB.LOG_DEBUG(
3991: FND_LOG.LEVEL_STATEMENT
3992: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST'
3993: ,' result status ' || l_return_status);
3994: END IF; -- end of statement level debug
4270: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4271: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_VAL';
4272:
4273: -- check for logging on PROCEDURE level
4274: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
4275: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
4276: -- check for logging on STATEMENT level
4277: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
4278:
4271: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_VAL';
4272:
4273: -- check for logging on PROCEDURE level
4274: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
4275: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
4276: -- check for logging on STATEMENT level
4277: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
4278:
4279: -- call START_ACTIVITY to create savepoint, check compatibility
4273: -- check for logging on PROCEDURE level
4274: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
4275: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
4276: -- check for logging on STATEMENT level
4277: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
4278:
4279: -- call START_ACTIVITY to create savepoint, check compatibility
4280: -- and initialize message list
4281: l_return_status := OKL_API.START_ACTIVITY(
4686: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4687: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_ACCEPT';
4688:
4689: -- check for logging on PROCEDURE level
4690: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
4691: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
4692: -- check for logging on STATEMENT level
4693: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
4694:
4687: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_ACCEPT';
4688:
4689: -- check for logging on PROCEDURE level
4690: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
4691: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
4692: -- check for logging on STATEMENT level
4693: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
4694:
4695: -- call START_ACTIVITY to create savepoint, check compatibility
4689: -- check for logging on PROCEDURE level
4690: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
4691: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
4692: -- check for logging on STATEMENT level
4693: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
4694:
4695: -- call START_ACTIVITY to create savepoint, check compatibility
4696: -- and initialize message list
4697: l_return_status := OKL_API.START_ACTIVITY(
4735:
4736: --Populate Lease Application rec with the values from database.
4737: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4738: THEN
4739: OKL_DEBUG_PUB.LOG_DEBUG(
4740: FND_LOG.LEVEL_PROCEDURE
4741: ,L_MODULE
4742: ,'begin debug call POPULATE_LEASE_APP');
4743: END IF;
4753: ,x_lsqv_rec => x_lsqv_rec);
4754:
4755: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4756: THEN
4757: OKL_DEBUG_PUB.LOG_DEBUG(
4758: FND_LOG.LEVEL_PROCEDURE
4759: ,L_MODULE
4760: ,'end debug call POPULATE_LEASE_APP');
4761: END IF;
4761: END IF;
4762:
4763: -- write to log
4764: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
4765: OKL_DEBUG_PUB.LOG_DEBUG(
4766: FND_LOG.LEVEL_STATEMENT
4767: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
4768: ,'l_return_status ' || l_return_status);
4769: END IF; -- end of statement level debug
4781: --Validate Lease Application and if valid then update the status to
4782: --Pricing Accepted
4783: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4784: THEN
4785: OKL_DEBUG_PUB.LOG_DEBUG(
4786: FND_LOG.LEVEL_PROCEDURE
4787: ,L_MODULE
4788: ,'begin debug call LEASE_APP_VAL');
4789: END IF;
4798: ,p_lsqv_rec => l_lsqv_rec);
4799:
4800: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4801: THEN
4802: OKL_DEBUG_PUB.LOG_DEBUG(
4803: FND_LOG.LEVEL_PROCEDURE
4804: ,L_MODULE
4805: ,'end debug call LEASE_APP_VAL');
4806: END IF;
4806: END IF;
4807:
4808: -- write to log
4809: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
4810: OKL_DEBUG_PUB.LOG_DEBUG(
4811: FND_LOG.LEVEL_STATEMENT
4812: ,L_MODULE || ' Result of LEASE_APP_VAL'
4813: ,'l_return_status ' || l_return_status);
4814: END IF; -- end of statement level debug
4821:
4822: --Fixed added Bug 5647107 ssdeshpa start
4823: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4824: THEN
4825: OKL_DEBUG_PUB.LOG_DEBUG(
4826: FND_LOG.LEVEL_PROCEDURE
4827: ,L_MODULE
4828: ,'begin debug call VALIDATE_LE_ID');
4829: END IF;
4831: validate_le_id(l_lsqv_rec.legal_entity_id, l_return_status);
4832:
4833: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4834: THEN
4835: OKL_DEBUG_PUB.LOG_DEBUG(
4836: FND_LOG.LEVEL_PROCEDURE
4837: ,L_MODULE
4838: ,'end debug call VALIDATE_LE_ID');
4839: END IF;
4839: END IF;
4840:
4841: -- write to log
4842: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
4843: OKL_DEBUG_PUB.LOG_DEBUG(
4844: FND_LOG.LEVEL_STATEMENT
4845: ,L_MODULE || ' Result of VALIDATE_LE_ID'
4846: ,'l_return_status ' || l_return_status);
4847: END IF; -- end of statement level debug
4854: --Fixed added Bug 5647107 ssdeshpa end
4855:
4856: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4857: THEN
4858: OKL_DEBUG_PUB.LOG_DEBUG(
4859: FND_LOG.LEVEL_PROCEDURE
4860: ,L_MODULE
4861: ,'begin debug call SET_LEASE_APP_STATUS');
4862: END IF;
4871: ,x_msg_data => x_msg_data);
4872:
4873: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4874: THEN
4875: OKL_DEBUG_PUB.LOG_DEBUG(
4876: FND_LOG.LEVEL_PROCEDURE
4877: ,L_MODULE
4878: ,'end debug call SET_LEASE_APP_STATUS');
4879: END IF;
4879: END IF;
4880:
4881: -- write to log
4882: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
4883: OKL_DEBUG_PUB.LOG_DEBUG(
4884: FND_LOG.LEVEL_STATEMENT
4885: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
4886: ,'l_return_status ' || l_return_status);
4887: END IF; -- end of statement level debug
4896: l_lsqv_rec.status := 'CT-ACCEPTED';
4897:
4898: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4899: THEN
4900: OKL_DEBUG_PUB.LOG_DEBUG(
4901: FND_LOG.LEVEL_PROCEDURE
4902: ,L_MODULE
4903: ,'begin debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
4904: END IF;
4915: ,x_msg_data => x_msg_data);
4916:
4917: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4918: THEN
4919: OKL_DEBUG_PUB.LOG_DEBUG(
4920: FND_LOG.LEVEL_PROCEDURE
4921: ,L_MODULE
4922: ,'end debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
4923: END IF;
4923: END IF;
4924:
4925: -- write to log
4926: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
4927: OKL_DEBUG_PUB.LOG_DEBUG(
4928: FND_LOG.LEVEL_STATEMENT
4929: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE'
4930: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
4931: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
5033: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5034: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_WITHDRAW';
5035:
5036: -- check for logging on PROCEDURE level
5037: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
5038: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
5039: -- check for logging on STATEMENT level
5040: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
5041:
5034: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_WITHDRAW';
5035:
5036: -- check for logging on PROCEDURE level
5037: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
5038: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
5039: -- check for logging on STATEMENT level
5040: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
5041:
5042: -- call START_ACTIVITY to create savepoint, check compatibility
5036: -- check for logging on PROCEDURE level
5037: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
5038: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
5039: -- check for logging on STATEMENT level
5040: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
5041:
5042: -- call START_ACTIVITY to create savepoint, check compatibility
5043: -- and initialize message list
5044: l_return_status := OKL_API.START_ACTIVITY(
5066: --credit analyst and change the status to Withdraw Approval Pending
5067: --If approved from credit analyst then change the status to withdrawn
5068: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5069: THEN
5070: OKL_DEBUG_PUB.LOG_DEBUG(
5071: FND_LOG.LEVEL_PROCEDURE
5072: ,L_MODULE
5073: ,'begin debug call POPULATE_LEASE_APP');
5074: END IF;
5084: ,x_lsqv_rec => x_lsqv_rec);
5085:
5086: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5087: THEN
5088: OKL_DEBUG_PUB.LOG_DEBUG(
5089: FND_LOG.LEVEL_PROCEDURE
5090: ,L_MODULE
5091: ,'end debug call POPULATE_LEASE_APP');
5092: END IF;
5092: END IF;
5093:
5094: -- write to log
5095: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5096: OKL_DEBUG_PUB.LOG_DEBUG(
5097: FND_LOG.LEVEL_STATEMENT
5098: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
5099: ,'l_return_status ' || l_return_status);
5100: END IF; -- end of statement level debug
5108: l_lapv_rec := x_lapv_rec;
5109:
5110: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5111: THEN
5112: OKL_DEBUG_PUB.LOG_DEBUG(
5113: FND_LOG.LEVEL_PROCEDURE
5114: ,L_MODULE
5115: ,'begin debug call CHECK_ELIGIBILITY');
5116: END IF;
5126: ,p_action => 'WITHDRAW');
5127:
5128: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5129: THEN
5130: OKL_DEBUG_PUB.LOG_DEBUG(
5131: FND_LOG.LEVEL_PROCEDURE
5132: ,L_MODULE
5133: ,'end debug call CHECK_ELIGIBILITY');
5134: END IF;
5134: END IF;
5135:
5136: -- write to log
5137: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5138: OKL_DEBUG_PUB.LOG_DEBUG(
5139: FND_LOG.LEVEL_STATEMENT
5140: ,L_MODULE || ' Result of CHECK_ELIGIBILITY'
5141: ,'return status ' || l_return_status ||
5142: ' x_msg_data ' || x_msg_data);
5155: l_lapv_rec.application_status := 'WITHDRAWN';
5156:
5157: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5158: THEN
5159: OKL_DEBUG_PUB.LOG_DEBUG(
5160: FND_LOG.LEVEL_PROCEDURE
5161: ,L_MODULE
5162: ,'begin debug call OKL_LAP_PVT.UPDATE_ROW');
5163: END IF;
5172: ,x_lapv_rec => x_lapv_rec);
5173:
5174: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5175: THEN
5176: OKL_DEBUG_PUB.LOG_DEBUG(
5177: FND_LOG.LEVEL_PROCEDURE
5178: ,L_MODULE
5179: ,'end debug call OKL_LAP_PVT.UPDATE_ROW');
5180: END IF;
5180: END IF;
5181:
5182: -- write to log
5183: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5184: OKL_DEBUG_PUB.LOG_DEBUG(
5185: FND_LOG.LEVEL_STATEMENT
5186: ,L_MODULE || ' Result of OKL_LAP_PVT.UPDATE_ROW'
5187: ,'l_return_status ' || l_return_status);
5188: END IF; -- end of statement level debug
5199: THEN
5200: --Call the API to process the lease app subsidy pool
5201: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5202: THEN
5203: OKL_DEBUG_PUB.LOG_DEBUG(
5204: FND_LOG.LEVEL_PROCEDURE
5205: ,L_MODULE
5206: ,'begin debug call OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL');
5207: END IF;
5218: ,x_msg_data => x_msg_data);
5219:
5220: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5221: THEN
5222: OKL_DEBUG_PUB.LOG_DEBUG(
5223: FND_LOG.LEVEL_PROCEDURE
5224: ,L_MODULE
5225: ,'end debug call OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL');
5226: END IF;
5226: END IF;
5227:
5228: -- write to log
5229: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5230: OKL_DEBUG_PUB.LOG_DEBUG(
5231: FND_LOG.LEVEL_STATEMENT
5232: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL'
5233: ,'l_return_status ' || l_return_status);
5234: END IF; -- end of statement level debug
5244: --and in status Appeal/Resubmit in Progress. If yes then restore the status
5245: --of parent to original status
5246: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5247: THEN
5248: OKL_DEBUG_PUB.LOG_DEBUG(
5249: FND_LOG.LEVEL_PROCEDURE
5250: ,L_MODULE
5251: ,'begin debug call REVERT_TO_ORIG_STATUS');
5252: END IF;
5260: ,x_msg_data => x_msg_data);
5261:
5262: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5263: THEN
5264: OKL_DEBUG_PUB.LOG_DEBUG(
5265: FND_LOG.LEVEL_PROCEDURE
5266: ,L_MODULE
5267: ,'end debug call REVERT_TO_ORIG_STATUS');
5268: END IF;
5268: END IF;
5269:
5270: -- write to log
5271: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5272: OKL_DEBUG_PUB.LOG_DEBUG(
5273: FND_LOG.LEVEL_STATEMENT
5274: ,L_MODULE || ' Result of REVERT_TO_ORIG_STATUS'
5275: ,'l_return_status ' || l_return_status);
5276: END IF; -- end of statement level debug
5441: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5442: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_DUP';
5443:
5444: -- check for logging on PROCEDURE level
5445: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
5446: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
5447: -- check for logging on STATEMENT level
5448: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
5449:
5442: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_DUP';
5443:
5444: -- check for logging on PROCEDURE level
5445: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
5446: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
5447: -- check for logging on STATEMENT level
5448: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
5449:
5450: -- call START_ACTIVITY to create savepoint, check compatibility
5444: -- check for logging on PROCEDURE level
5445: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
5446: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
5447: -- check for logging on STATEMENT level
5448: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
5449:
5450: -- call START_ACTIVITY to create savepoint, check compatibility
5451: -- and initialize message list
5452: l_return_status := OKL_API.START_ACTIVITY(
5485: CLOSE src_lse_opp_dtls_csr;
5486:
5487: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5488: THEN
5489: OKL_DEBUG_PUB.LOG_DEBUG(
5490: FND_LOG.LEVEL_PROCEDURE
5491: ,L_MODULE
5492: ,'begin debug call CHECK_LEASE_QUOTE_DEFAULTS');
5493: END IF;
5503: ,p_lsqv_rec => l_lsqv_rec);
5504:
5505: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5506: THEN
5507: OKL_DEBUG_PUB.LOG_DEBUG(
5508: FND_LOG.LEVEL_PROCEDURE
5509: ,L_MODULE
5510: ,'end debug call CHECK_LEASE_QUOTE_DEFAULTS');
5511: END IF;
5512:
5513: -- write to log
5514: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON)
5515: THEN
5516: OKL_DEBUG_PUB.LOG_DEBUG(
5517: FND_LOG.LEVEL_STATEMENT
5518: ,L_MODULE || ' Result of CHECK_LEASE_QUOTE_DEFAULTS'
5519: ,'l_return_status ' || l_return_status);
5520: END IF; -- end of statement level debug
5533: --Validate VP and LAT association
5534: --Validate Lease Quote
5535: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5536: THEN
5537: OKL_DEBUG_PUB.LOG_DEBUG(
5538: FND_LOG.LEVEL_PROCEDURE
5539: ,L_MODULE
5540: ,'begin debug call LEASE_APP_VAL');
5541: END IF;
5550: ,p_lsqv_rec => l_lsqv_rec);
5551:
5552: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5553: THEN
5554: OKL_DEBUG_PUB.LOG_DEBUG(
5555: FND_LOG.LEVEL_PROCEDURE
5556: ,L_MODULE
5557: ,'end debug call LEASE_APP_VAL');
5558: END IF;
5558: END IF;
5559:
5560: -- write to log
5561: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5562: OKL_DEBUG_PUB.LOG_DEBUG(
5563: FND_LOG.LEVEL_STATEMENT
5564: ,L_MODULE || ' Result of LEASE_APP_VAL'
5565: ,'l_return_status ' || l_return_status);
5566: END IF; -- end of statement level debug
5572: END IF;
5573:
5574: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5575: THEN
5576: OKL_DEBUG_PUB.LOG_DEBUG(
5577: FND_LOG.LEVEL_PROCEDURE
5578: ,L_MODULE
5579: ,'begin debug call OKL_LAP_PVT.INSERT_ROW');
5580: END IF;
5590: ,x_lapv_rec => x_lapv_rec);
5591:
5592: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5593: THEN
5594: OKL_DEBUG_PUB.LOG_DEBUG(
5595: FND_LOG.LEVEL_PROCEDURE
5596: ,L_MODULE
5597: ,'end debug call OKL_LAP_PVT.INSERT_ROW');
5598: END IF;
5598: END IF;
5599:
5600: -- write to log
5601: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5602: OKL_DEBUG_PUB.LOG_DEBUG(
5603: FND_LOG.LEVEL_STATEMENT
5604: ,L_MODULE || ' Result of OKL_LAP_PVT.INSERT_ROW'
5605: ,'l_lapv_rec.reference_number ' || to_char(l_lapv_rec.reference_number) ||
5606: ' l_lapv_rec.id '|| l_lapv_rec.id ||
5668: --End-bug#4721142 - varangan- cursor to fetch quote details from opportunity id
5669:
5670: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5671: THEN
5672: OKL_DEBUG_PUB.LOG_DEBUG(
5673: FND_LOG.LEVEL_PROCEDURE
5674: ,L_MODULE
5675: ,'begin debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
5676: END IF;
5688: ,x_msg_data => x_msg_data);
5689:
5690: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5691: THEN
5692: OKL_DEBUG_PUB.LOG_DEBUG(
5693: FND_LOG.LEVEL_PROCEDURE
5694: ,L_MODULE
5695: ,'end debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
5696: END IF;
5696: END IF;
5697:
5698: -- write to log
5699: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5700: OKL_DEBUG_PUB.LOG_DEBUG(
5701: FND_LOG.LEVEL_STATEMENT
5702: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE'
5703: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
5704: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
5719: IF l_lsqv_rec.status = 'CT-ACCEPTED'
5720: THEN
5721: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5722: THEN
5723: OKL_DEBUG_PUB.LOG_DEBUG(
5724: FND_LOG.LEVEL_PROCEDURE
5725: ,L_MODULE
5726: ,'begin debug call LEASE_APP_QA_VAL');
5727: END IF;
5737: ,x_qa_result => l_qa_result);
5738:
5739: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5740: THEN
5741: OKL_DEBUG_PUB.LOG_DEBUG(
5742: FND_LOG.LEVEL_PROCEDURE
5743: ,L_MODULE
5744: ,'end debug call LEASE_APP_QA_VAL');
5745: END IF;
5745: END IF;
5746:
5747: -- write to log
5748: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5749: OKL_DEBUG_PUB.LOG_DEBUG(
5750: FND_LOG.LEVEL_STATEMENT
5751: ,L_MODULE
5752: ,' Result of LEASE_APP_QA_VAL' ||
5753: ' Result Status ' || l_return_status ||
5763: IF l_qa_result <> OKL_API.G_RET_STS_SUCCESS
5764: THEN
5765: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5766: THEN
5767: OKL_DEBUG_PUB.LOG_DEBUG(
5768: FND_LOG.LEVEL_PROCEDURE
5769: ,L_MODULE
5770: ,'begin debug call SET_LEASE_APP_STATUS');
5771: END IF;
5781: ,x_msg_data => x_msg_data);
5782:
5783: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5784: THEN
5785: OKL_DEBUG_PUB.LOG_DEBUG(
5786: FND_LOG.LEVEL_PROCEDURE
5787: ,L_MODULE
5788: ,'end debug call SET_LEASE_APP_STATUS');
5789: END IF;
5789: END IF;
5790:
5791: -- write to log
5792: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5793: OKL_DEBUG_PUB.LOG_DEBUG(
5794: FND_LOG.LEVEL_STATEMENT
5795: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
5796: ,'return status ' || l_return_status ||
5797: ' x_msg_data ' || x_msg_data);
5805:
5806: l_lsqv_rec.status := 'PR-INCOMPLETE';
5807: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5808: THEN
5809: OKL_DEBUG_PUB.LOG_DEBUG(
5810: FND_LOG.LEVEL_PROCEDURE
5811: ,L_MODULE
5812: ,'begin debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
5813: END IF;
5824: ,x_msg_data => x_msg_data);
5825:
5826: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5827: THEN
5828: OKL_DEBUG_PUB.LOG_DEBUG(
5829: FND_LOG.LEVEL_PROCEDURE
5830: ,L_MODULE
5831: ,'end debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
5832: END IF;
5832: END IF;
5833:
5834: -- write to log
5835: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5836: OKL_DEBUG_PUB.LOG_DEBUG(
5837: FND_LOG.LEVEL_STATEMENT
5838: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE'
5839: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
5840: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
5851: END IF;-- Check for Lease Quote status to call QA validation
5852:
5853: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5854: THEN
5855: OKL_DEBUG_PUB.LOG_DEBUG(
5856: FND_LOG.LEVEL_PROCEDURE
5857: ,L_MODULE
5858: ,'begin debug call CREATE_CREDIT_APP');
5859: END IF;
5870: ,x_crr_rec => x_crr_rec);
5871:
5872: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5873: THEN
5874: OKL_DEBUG_PUB.LOG_DEBUG(
5875: FND_LOG.LEVEL_PROCEDURE
5876: ,L_MODULE
5877: ,'end debug call CREATE_CREDIT_APP');
5878: END IF;
5878: END IF;
5879:
5880: -- write to log
5881: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5882: OKL_DEBUG_PUB.LOG_DEBUG(
5883: FND_LOG.LEVEL_STATEMENT
5884: ,L_MODULE || ' Result of CREATE_CREDIT_APP'
5885: ,' result status ' || l_return_status);
5886: END IF; -- end of statement level debug
5898: IF(chk_hdr_dtls_rec.checklist_id IS NOT NULL)
5899: THEN
5900: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5901: THEN
5902: OKL_DEBUG_PUB.LOG_DEBUG(
5903: FND_LOG.LEVEL_PROCEDURE
5904: ,L_MODULE
5905: ,'begin debug call CHECKLIST_INST_CRE');
5906: END IF;
5916: ,p_chklst_tmpl_id => chk_hdr_dtls_rec.checklist_id);
5917:
5918: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5919: THEN
5920: OKL_DEBUG_PUB.LOG_DEBUG(
5921: FND_LOG.LEVEL_PROCEDURE
5922: ,L_MODULE
5923: ,'end debug call CHECKLIST_INST_CRE');
5924: END IF;
5924: END IF;
5925:
5926: -- write to log
5927: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5928: OKL_DEBUG_PUB.LOG_DEBUG(
5929: FND_LOG.LEVEL_STATEMENT
5930: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
5931: ,' result status ' || l_return_status);
5932: END IF; -- end of statement level debug
6072: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6073: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SUBMIT_FOR_PRICING';
6074:
6075: -- check for logging on PROCEDURE level
6076: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
6077: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
6078: -- check for logging on STATEMENT level
6079: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
6080:
6073: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SUBMIT_FOR_PRICING';
6074:
6075: -- check for logging on PROCEDURE level
6076: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
6077: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
6078: -- check for logging on STATEMENT level
6079: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
6080:
6081: -- call START_ACTIVITY to create savepoint, check compatibility
6075: -- check for logging on PROCEDURE level
6076: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
6077: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
6078: -- check for logging on STATEMENT level
6079: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
6080:
6081: -- call START_ACTIVITY to create savepoint, check compatibility
6082: -- and initialize message list
6083: l_return_status := OKL_API.START_ACTIVITY(
6121:
6122: --Populate Lease Application rec with the values from database.
6123: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6124: THEN
6125: OKL_DEBUG_PUB.LOG_DEBUG(
6126: FND_LOG.LEVEL_PROCEDURE
6127: ,L_MODULE
6128: ,'begin debug call POPULATE_LEASE_APP');
6129: END IF;
6139: ,x_lsqv_rec => x_lsqv_rec);
6140:
6141: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6142: THEN
6143: OKL_DEBUG_PUB.LOG_DEBUG(
6144: FND_LOG.LEVEL_PROCEDURE
6145: ,L_MODULE
6146: ,'end debug call POPULATE_LEASE_APP');
6147: END IF;
6147: END IF;
6148:
6149: -- write to log
6150: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6151: OKL_DEBUG_PUB.LOG_DEBUG(
6152: FND_LOG.LEVEL_STATEMENT
6153: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
6154: ,'l_return_status ' || l_return_status);
6155: END IF; -- end of statement level debug
6168: --Validate Lease Application and if valid then update the status to
6169: --Pricing Submitted
6170: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6171: THEN
6172: OKL_DEBUG_PUB.LOG_DEBUG(
6173: FND_LOG.LEVEL_PROCEDURE
6174: ,L_MODULE
6175: ,'begin debug call LEASE_APP_VAL');
6176: END IF;
6185: ,p_lsqv_rec => l_lsqv_rec);
6186:
6187: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6188: THEN
6189: OKL_DEBUG_PUB.LOG_DEBUG(
6190: FND_LOG.LEVEL_PROCEDURE
6191: ,L_MODULE
6192: ,'end debug call LEASE_APP_VAL');
6193: END IF;
6193: END IF;
6194:
6195: -- write to log
6196: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6197: OKL_DEBUG_PUB.LOG_DEBUG(
6198: FND_LOG.LEVEL_STATEMENT
6199: ,L_MODULE || ' Result of LEASE_APP_VAL'
6200: ,'l_return_status ' || l_return_status);
6201: END IF; -- end of statement level debug
6210: l_lapv_rec.application_status := 'PR-SUBMITTED';
6211:
6212: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6213: THEN
6214: OKL_DEBUG_PUB.LOG_DEBUG(
6215: FND_LOG.LEVEL_PROCEDURE
6216: ,L_MODULE
6217: ,'begin debug call SET_LEASE_APP_STATUS');
6218: END IF;
6227: ,x_msg_data => x_msg_data);
6228:
6229: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6230: THEN
6231: OKL_DEBUG_PUB.LOG_DEBUG(
6232: FND_LOG.LEVEL_PROCEDURE
6233: ,L_MODULE
6234: ,'end debug call SET_LEASE_APP_STATUS');
6235: END IF;
6235: END IF;
6236:
6237: -- write to log
6238: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6239: OKL_DEBUG_PUB.LOG_DEBUG(
6240: FND_LOG.LEVEL_STATEMENT
6241: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
6242: ,'l_return_status ' || l_return_status);
6243: END IF; -- end of statement level debug
6255:
6256: --Call the API to submit the lease quote for Pricing Approval
6257: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6258: THEN
6259: OKL_DEBUG_PUB.LOG_DEBUG(
6260: FND_LOG.LEVEL_PROCEDURE
6261: ,L_MODULE
6262: ,'begin debug call OKL_LEASE_QUOTE_PVT.SUBMIT_LEASE_QTE');
6263: END IF;
6272: ,x_msg_data => x_msg_data);
6273:
6274: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6275: THEN
6276: OKL_DEBUG_PUB.LOG_DEBUG(
6277: FND_LOG.LEVEL_PROCEDURE
6278: ,L_MODULE
6279: ,'end debug call OKL_LEASE_QUOTE_PVT.SUBMIT_LEASE_QTE');
6280: END IF;
6280: END IF;
6281:
6282: -- write to log
6283: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6284: OKL_DEBUG_PUB.LOG_DEBUG(
6285: FND_LOG.LEVEL_STATEMENT
6286: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.SUBMIT_LEASE_QTE'
6287: ,'l_return_status ' || l_return_status);
6288: END IF; -- end of statement level debug
6299: THEN
6300: --Call the API to process the lease app subsidy pool
6301: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6302: THEN
6303: OKL_DEBUG_PUB.LOG_DEBUG(
6304: FND_LOG.LEVEL_PROCEDURE
6305: ,L_MODULE
6306: ,'begin debug call OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL');
6307: END IF;
6318: ,x_msg_data => x_msg_data);
6319:
6320: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6321: THEN
6322: OKL_DEBUG_PUB.LOG_DEBUG(
6323: FND_LOG.LEVEL_PROCEDURE
6324: ,L_MODULE
6325: ,'end debug call OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL');
6326: END IF;
6326: END IF;
6327:
6328: -- write to log
6329: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6330: OKL_DEBUG_PUB.LOG_DEBUG(
6331: FND_LOG.LEVEL_STATEMENT
6332: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL'
6333: ,'l_return_status ' || l_return_status);
6334: END IF; -- end of statement level debug
6504: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6505: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SUBMIT_FOR_CREDIT';
6506:
6507: -- check for logging on PROCEDURE level
6508: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
6509: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
6510: -- check for logging on STATEMENT level
6511: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
6512:
6505: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SUBMIT_FOR_CREDIT';
6506:
6507: -- check for logging on PROCEDURE level
6508: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
6509: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
6510: -- check for logging on STATEMENT level
6511: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
6512:
6513: -- call START_ACTIVITY to create savepoint, check compatibility
6507: -- check for logging on PROCEDURE level
6508: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
6509: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
6510: -- check for logging on STATEMENT level
6511: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
6512:
6513: -- call START_ACTIVITY to create savepoint, check compatibility
6514: -- and initialize message list
6515: l_return_status := OKL_API.START_ACTIVITY(
6532:
6533: --Populate Lease Application rec with the values from database.
6534: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6535: THEN
6536: OKL_DEBUG_PUB.LOG_DEBUG(
6537: FND_LOG.LEVEL_PROCEDURE
6538: ,L_MODULE
6539: ,'begin debug call POPULATE_LEASE_APP');
6540: END IF;
6550: ,x_lsqv_rec => x_lsqv_rec);
6551:
6552: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6553: THEN
6554: OKL_DEBUG_PUB.LOG_DEBUG(
6555: FND_LOG.LEVEL_PROCEDURE
6556: ,L_MODULE
6557: ,'end debug call POPULATE_LEASE_APP');
6558: END IF;
6558: END IF;
6559:
6560: -- write to log
6561: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6562: OKL_DEBUG_PUB.LOG_DEBUG(
6563: FND_LOG.LEVEL_STATEMENT
6564: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
6565: ,'l_return_status ' || l_return_status);
6566: END IF; -- end of statement level debug
6628: --Validate Lease Application and if valid then update the status to
6629: --Pricing Accepted
6630: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6631: THEN
6632: OKL_DEBUG_PUB.LOG_DEBUG(
6633: FND_LOG.LEVEL_PROCEDURE
6634: ,L_MODULE
6635: ,'begin debug call LEASE_APP_VAL');
6636: END IF;
6645: ,p_lsqv_rec => l_lsqv_rec);
6646:
6647: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6648: THEN
6649: OKL_DEBUG_PUB.LOG_DEBUG(
6650: FND_LOG.LEVEL_PROCEDURE
6651: ,L_MODULE
6652: ,'end debug call LEASE_APP_VAL');
6653: END IF;
6653: END IF;
6654:
6655: -- write to log
6656: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6657: OKL_DEBUG_PUB.LOG_DEBUG(
6658: FND_LOG.LEVEL_STATEMENT
6659: ,L_MODULE || ' Result of LEASE_APP_VAL'
6660: ,'l_return_status ' || l_return_status);
6661: END IF; -- end of statement level debug
6687: -- Bug 4902717 PAGARG Update the Requested Amount on Credit Application
6688: --before submitting it for approval
6689: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6690: THEN
6691: OKL_DEBUG_PUB.LOG_DEBUG(
6692: FND_LOG.LEVEL_PROCEDURE
6693: ,L_MODULE
6694: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
6695: END IF;
6701: ,p_credit_request_rec => l_crd_req_rec);
6702:
6703: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6704: THEN
6705: OKL_DEBUG_PUB.LOG_DEBUG(
6706: FND_LOG.LEVEL_PROCEDURE
6707: ,L_MODULE
6708: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
6709: END IF;
6709: END IF;
6710:
6711: -- write to log
6712: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6713: OKL_DEBUG_PUB.LOG_DEBUG(
6714: FND_LOG.LEVEL_STATEMENT
6715: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC'
6716: ,' result status ' || l_return_status);
6717: END IF; -- end of statement level debug
6727: l_crd_req_rec.trx_amount := l_req_amt; -- added for bug 6596860
6728:
6729: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6730: THEN
6731: OKL_DEBUG_PUB.LOG_DEBUG(
6732: FND_LOG.LEVEL_PROCEDURE
6733: ,L_MODULE
6734: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
6735: END IF;
6745: p_credit_request_rec => l_crd_req_rec);
6746:
6747: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6748: THEN
6749: OKL_DEBUG_PUB.LOG_DEBUG(
6750: FND_LOG.LEVEL_PROCEDURE
6751: ,L_MODULE
6752: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
6753: END IF;
6753: END IF;
6754:
6755: -- write to log
6756: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6757: OKL_DEBUG_PUB.LOG_DEBUG(
6758: FND_LOG.LEVEL_STATEMENT
6759: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST'
6760: ,' result status ' || l_return_status);
6761: END IF; -- end of statement level debug
6800: ,'SUBMIT');
6801: */
6802: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6803: THEN
6804: OKL_DEBUG_PUB.LOG_DEBUG(
6805: FND_LOG.LEVEL_PROCEDURE
6806: ,L_MODULE
6807: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS');
6808: END IF;
6819: ,p_credit_request_status => 'SUBMIT');
6820:
6821: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6822: THEN
6823: OKL_DEBUG_PUB.LOG_DEBUG(
6824: FND_LOG.LEVEL_PROCEDURE
6825: ,L_MODULE
6826: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS');
6827: END IF;
6827: END IF;
6828:
6829: -- write to log
6830: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6831: OKL_DEBUG_PUB.LOG_DEBUG(
6832: FND_LOG.LEVEL_STATEMENT
6833: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS'
6834: ,'l_return_status ' || l_return_status);
6835: END IF; -- end of statement level debug
6843: l_lapv_rec.application_status := 'CR-SUBMITTED';
6844:
6845: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6846: THEN
6847: OKL_DEBUG_PUB.LOG_DEBUG(
6848: FND_LOG.LEVEL_PROCEDURE
6849: ,L_MODULE
6850: ,'begin debug call SET_LEASE_APP_STATUS');
6851: END IF;
6860: ,x_msg_data => x_msg_data);
6861:
6862: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6863: THEN
6864: OKL_DEBUG_PUB.LOG_DEBUG(
6865: FND_LOG.LEVEL_PROCEDURE
6866: ,L_MODULE
6867: ,'end debug call SET_LEASE_APP_STATUS');
6868: END IF;
6868: END IF;
6869:
6870: -- write to log
6871: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6872: OKL_DEBUG_PUB.LOG_DEBUG(
6873: FND_LOG.LEVEL_STATEMENT
6874: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
6875: ,'l_return_status ' || l_return_status);
6876: END IF; -- end of statement level debug
7049: l_eligible := false;
7050: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.IS_VALID_PROGRAM_AGREEMENT';
7051:
7052: -- check for logging on PROCEDURE level
7053: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7054: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7055: -- check for logging on STATEMENT level
7056: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7057:
7050: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.IS_VALID_PROGRAM_AGREEMENT';
7051:
7052: -- check for logging on PROCEDURE level
7053: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7054: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7055: -- check for logging on STATEMENT level
7056: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7057:
7058: OPEN pgm_agr_dtls_csr(p_pgm_agr_id);
7052: -- check for logging on PROCEDURE level
7053: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7054: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7055: -- check for logging on STATEMENT level
7056: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7057:
7058: OPEN pgm_agr_dtls_csr(p_pgm_agr_id);
7059: FETCH pgm_agr_dtls_csr INTO pgm_agr_dtls_rec;
7060: CLOSE pgm_agr_dtls_csr;
7068: THEN
7069: --Populate the EC rec
7070: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7071: THEN
7072: OKL_DEBUG_PUB.LOG_DEBUG(
7073: FND_LOG.LEVEL_PROCEDURE
7074: ,L_MODULE
7075: ,'begin debug call POPULATE_EC_REC');
7076: END IF;
7085: ,lx_okl_ec_rec => l_okl_ec_rec);
7086:
7087: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7088: THEN
7089: OKL_DEBUG_PUB.LOG_DEBUG(
7090: FND_LOG.LEVEL_PROCEDURE
7091: ,L_MODULE
7092: ,'end debug call POPULATE_EC_REC');
7093: END IF;
7093: END IF;
7094:
7095: -- write to log
7096: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7097: OKL_DEBUG_PUB.LOG_DEBUG(
7098: FND_LOG.LEVEL_STATEMENT
7099: ,L_MODULE || ' Result of POPULATE_EC_REC'
7100: ,'l_return_status ' || l_return_status);
7101: END IF; -- end of statement level debug
7110: END IF;
7111:
7112: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7113: THEN
7114: OKL_DEBUG_PUB.LOG_DEBUG(
7115: FND_LOG.LEVEL_PROCEDURE
7116: ,L_MODULE
7117: ,'begin debug call OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA');
7118: END IF;
7127: ,x_eligible => l_eligible);
7128:
7129: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7130: THEN
7131: OKL_DEBUG_PUB.LOG_DEBUG(
7132: FND_LOG.LEVEL_PROCEDURE
7133: ,L_MODULE
7134: ,'end debug call OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA');
7135: END IF;
7135: END IF;
7136:
7137: -- write to log
7138: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7139: OKL_DEBUG_PUB.LOG_DEBUG(
7140: FND_LOG.LEVEL_STATEMENT
7141: ,L_MODULE || ' Result of OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA'
7142: ,'l_return_status ' || l_return_status);
7143: END IF; -- end of statement level debug
7246: l_eligible := false;
7247: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.IS_VALID_LEASEAPP_TEMPLATE';
7248:
7249: -- check for logging on PROCEDURE level
7250: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7251: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7252: -- check for logging on STATEMENT level
7253: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7254:
7247: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.IS_VALID_LEASEAPP_TEMPLATE';
7248:
7249: -- check for logging on PROCEDURE level
7250: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7251: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7252: -- check for logging on STATEMENT level
7253: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7254:
7255: IF(p_lat_id IS NOT NULL
7249: -- check for logging on PROCEDURE level
7250: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7251: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7252: -- check for logging on STATEMENT level
7253: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7254:
7255: IF(p_lat_id IS NOT NULL
7256: AND p_lat_id <> OKL_API.G_MISS_NUM)
7257: THEN
7269: THEN
7270: --Populate the EC rec
7271: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7272: THEN
7273: OKL_DEBUG_PUB.LOG_DEBUG(
7274: FND_LOG.LEVEL_PROCEDURE
7275: ,L_MODULE
7276: ,'begin debug call POPULATE_EC_REC');
7277: END IF;
7286: ,lx_okl_ec_rec => l_okl_ec_rec);
7287:
7288: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7289: THEN
7290: OKL_DEBUG_PUB.LOG_DEBUG(
7291: FND_LOG.LEVEL_PROCEDURE
7292: ,L_MODULE
7293: ,'end debug call POPULATE_EC_REC');
7294: END IF;
7294: END IF;
7295:
7296: -- write to log
7297: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7298: OKL_DEBUG_PUB.LOG_DEBUG(
7299: FND_LOG.LEVEL_STATEMENT
7300: ,L_MODULE || ' Result of POPULATE_EC_REC'
7301: ,'l_return_status ' || l_return_status);
7302: END IF; -- end of statement level debug
7311: END IF;
7312:
7313: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7314: THEN
7315: OKL_DEBUG_PUB.LOG_DEBUG(
7316: FND_LOG.LEVEL_PROCEDURE
7317: ,L_MODULE
7318: ,'begin debug call OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA');
7319: END IF;
7328: ,x_eligible => l_eligible);
7329:
7330: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7331: THEN
7332: OKL_DEBUG_PUB.LOG_DEBUG(
7333: FND_LOG.LEVEL_PROCEDURE
7334: ,L_MODULE
7335: ,'end debug call OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA');
7336: END IF;
7336: END IF;
7337:
7338: -- write to log
7339: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7340: OKL_DEBUG_PUB.LOG_DEBUG(
7341: FND_LOG.LEVEL_STATEMENT
7342: ,L_MODULE || ' Result of OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA'
7343: ,'l_return_status ' || l_return_status);
7344: END IF; -- end of statement level debug
7433: l_cr_class := NULL;
7434: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.GET_CREDIT_CLASSFICATION';
7435:
7436: -- check for logging on PROCEDURE level
7437: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7438: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7439: -- check for logging on STATEMENT level
7440: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7441:
7434: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.GET_CREDIT_CLASSFICATION';
7435:
7436: -- check for logging on PROCEDURE level
7437: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7438: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7439: -- check for logging on STATEMENT level
7440: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7441:
7442: l_party_id := p_party_id;
7436: -- check for logging on PROCEDURE level
7437: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7438: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7439: -- check for logging on STATEMENT level
7440: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7441:
7442: l_party_id := p_party_id;
7443: l_cust_acct_id := p_cust_acct_id;
7444: l_site_use_id := p_site_use_id;
7549: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7550: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.ACCEPT_COUNTER_OFFER';
7551:
7552: -- check for logging on PROCEDURE level
7553: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7554: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7555: -- check for logging on STATEMENT level
7556: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7557:
7550: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.ACCEPT_COUNTER_OFFER';
7551:
7552: -- check for logging on PROCEDURE level
7553: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7554: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7555: -- check for logging on STATEMENT level
7556: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7557:
7558: -- call START_ACTIVITY to create savepoint, check compatibility
7552: -- check for logging on PROCEDURE level
7553: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7554: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7555: -- check for logging on STATEMENT level
7556: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7557:
7558: -- call START_ACTIVITY to create savepoint, check compatibility
7559: -- and initialize message list
7560: l_return_status := OKL_API.START_ACTIVITY(
7601: l_lsqv_rec.primary_quote := 'N';
7602:
7603: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7604: THEN
7605: OKL_DEBUG_PUB.LOG_DEBUG(
7606: FND_LOG.LEVEL_PROCEDURE
7607: ,L_MODULE
7608: ,'begin debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
7609: END IF;
7620: ,x_msg_data => x_msg_data);
7621:
7622: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7623: THEN
7624: OKL_DEBUG_PUB.LOG_DEBUG(
7625: FND_LOG.LEVEL_PROCEDURE
7626: ,L_MODULE
7627: ,'end debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
7628: END IF;
7628: END IF;
7629:
7630: -- write to log
7631: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7632: OKL_DEBUG_PUB.LOG_DEBUG(
7633: FND_LOG.LEVEL_STATEMENT
7634: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE'
7635: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
7636: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
7649: l_lsqv_rec.primary_quote := 'Y';
7650:
7651: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7652: THEN
7653: OKL_DEBUG_PUB.LOG_DEBUG(
7654: FND_LOG.LEVEL_PROCEDURE
7655: ,L_MODULE
7656: ,'begin debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
7657: END IF;
7668: ,x_msg_data => x_msg_data);
7669:
7670: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7671: THEN
7672: OKL_DEBUG_PUB.LOG_DEBUG(
7673: FND_LOG.LEVEL_PROCEDURE
7674: ,L_MODULE
7675: ,'end debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
7676: END IF;
7676: END IF;
7677:
7678: -- write to log
7679: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7680: OKL_DEBUG_PUB.LOG_DEBUG(
7681: FND_LOG.LEVEL_STATEMENT
7682: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE'
7683: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
7684: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
7820: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7821: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.REVERT_LEASEAPP';
7822:
7823: -- check for logging on PROCEDURE level
7824: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7825: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7826: -- check for logging on STATEMENT level
7827: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7828:
7821: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.REVERT_LEASEAPP';
7822:
7823: -- check for logging on PROCEDURE level
7824: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7825: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7826: -- check for logging on STATEMENT level
7827: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7828:
7829: -- call START_ACTIVITY to create savepoint, check compatibility
7823: -- check for logging on PROCEDURE level
7824: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7825: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7826: -- check for logging on STATEMENT level
7827: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7828:
7829: -- call START_ACTIVITY to create savepoint, check compatibility
7830: -- and initialize message list
7831: l_return_status := OKL_API.START_ACTIVITY(
7881: END IF; --Lease Application Id is null or G_MISS_NUM
7882:
7883: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7884: THEN
7885: OKL_DEBUG_PUB.LOG_DEBUG(
7886: FND_LOG.LEVEL_PROCEDURE
7887: ,L_MODULE
7888: ,'begin debug call SET_LEASE_APP_STATUS');
7889: END IF;
7899: ,x_msg_data => x_msg_data);
7900:
7901: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7902: THEN
7903: OKL_DEBUG_PUB.LOG_DEBUG(
7904: FND_LOG.LEVEL_PROCEDURE
7905: ,L_MODULE
7906: ,'end debug call SET_LEASE_APP_STATUS');
7907: END IF;
7907: END IF;
7908:
7909: -- write to log
7910: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7911: OKL_DEBUG_PUB.LOG_DEBUG(
7912: FND_LOG.LEVEL_STATEMENT
7913: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
7914: ,'return status ' || l_return_status ||
7915: ' x_msg_data ' || x_msg_data);
8051: l_return_status := OKL_API.G_RET_STS_SUCCESS;
8052: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.VALIDATE_CREDIT_RESULTS';
8053:
8054: -- check for logging on PROCEDURE level
8055: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8056: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8057: -- check for logging on STATEMENT level
8058: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8059:
8052: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.VALIDATE_CREDIT_RESULTS';
8053:
8054: -- check for logging on PROCEDURE level
8055: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8056: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8057: -- check for logging on STATEMENT level
8058: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8059:
8060: -- call START_ACTIVITY to create savepoint, check compatibility
8054: -- check for logging on PROCEDURE level
8055: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8056: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8057: -- check for logging on STATEMENT level
8058: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8059:
8060: -- call START_ACTIVITY to create savepoint, check compatibility
8061: -- and initialize message list
8062: l_return_status := OKL_API.START_ACTIVITY(
8129: --If there is no recommendation for Expiration Days then set the expiration
8130: --days value as NULL
8131: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8132: THEN
8133: OKL_DEBUG_PUB.LOG_DEBUG(
8134: FND_LOG.LEVEL_PROCEDURE
8135: ,L_MODULE
8136: ,'begin debug call SET_LEASE_APP_EXPDAYS');
8137: END IF;
8146: ,x_msg_data => x_msg_data);
8147:
8148: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8149: THEN
8150: OKL_DEBUG_PUB.LOG_DEBUG(
8151: FND_LOG.LEVEL_PROCEDURE
8152: ,L_MODULE
8153: ,'end debug call SET_LEASE_APP_EXPDAYS');
8154: END IF;
8154: END IF;
8155:
8156: -- write to log
8157: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8158: OKL_DEBUG_PUB.LOG_DEBUG(
8159: FND_LOG.LEVEL_STATEMENT
8160: ,L_MODULE || ' Result of SET_LEASE_APP_EXPDAYS'
8161: ,'return status ' || l_return_status);
8162: END IF; -- end of statement level debug
8185: l_lsqv_rec.parent_object_id := -1;
8186:
8187: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8188: THEN
8189: OKL_DEBUG_PUB.LOG_DEBUG(
8190: FND_LOG.LEVEL_PROCEDURE
8191: ,L_MODULE
8192: ,'begin debug call OKL_LSQ_PVT.UPDATE_ROW');
8193: END IF;
8203: ,x_msg_data => x_msg_data);
8204:
8205: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8206: THEN
8207: OKL_DEBUG_PUB.LOG_DEBUG(
8208: FND_LOG.LEVEL_PROCEDURE
8209: ,L_MODULE
8210: ,'end debug call OKL_LSQ_PVT.UPDATE_ROW');
8211: END IF;
8211: END IF;
8212:
8213: -- write to log
8214: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8215: OKL_DEBUG_PUB.LOG_DEBUG(
8216: FND_LOG.LEVEL_STATEMENT
8217: ,L_MODULE || ' Result of OKL_LSQ_PVT.UPDATE_ROW'
8218: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
8219: ' result status ' || l_return_status);
8358: l_return_status := OKL_API.G_RET_STS_SUCCESS;
8359: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_RESUBMIT';
8360:
8361: -- check for logging on PROCEDURE level
8362: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8363: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8364: -- check for logging on STATEMENT level
8365: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8366:
8359: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_RESUBMIT';
8360:
8361: -- check for logging on PROCEDURE level
8362: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8363: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8364: -- check for logging on STATEMENT level
8365: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8366:
8367: -- call START_ACTIVITY to create savepoint, check compatibility
8361: -- check for logging on PROCEDURE level
8362: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8363: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8364: -- check for logging on STATEMENT level
8365: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8366:
8367: -- call START_ACTIVITY to create savepoint, check compatibility
8368: -- and initialize message list
8369: l_return_status := OKL_API.START_ACTIVITY(
8394: --Validate VP and LAT association
8395: --Validate Lease Quote
8396: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8397: THEN
8398: OKL_DEBUG_PUB.LOG_DEBUG(
8399: FND_LOG.LEVEL_PROCEDURE
8400: ,L_MODULE
8401: ,'begin debug call LEASE_APP_VAL');
8402: END IF;
8411: ,p_lsqv_rec => l_lsqv_rec);
8412:
8413: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8414: THEN
8415: OKL_DEBUG_PUB.LOG_DEBUG(
8416: FND_LOG.LEVEL_PROCEDURE
8417: ,L_MODULE
8418: ,'end debug call LEASE_APP_VAL');
8419: END IF;
8419: END IF;
8420:
8421: -- write to log
8422: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8423: OKL_DEBUG_PUB.LOG_DEBUG(
8424: FND_LOG.LEVEL_STATEMENT
8425: ,L_MODULE || ' Result of LEASE_APP_VAL'
8426: ,'l_return_status ' || l_return_status);
8427: END IF; -- end of statement level debug
8433: END IF;
8434:
8435: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8436: THEN
8437: OKL_DEBUG_PUB.LOG_DEBUG(
8438: FND_LOG.LEVEL_PROCEDURE
8439: ,L_MODULE
8440: ,'begin debug call OKL_LAP_PVT.INSERT_ROW');
8441: END IF;
8451: ,x_lapv_rec => x_lapv_rec);
8452:
8453: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8454: THEN
8455: OKL_DEBUG_PUB.LOG_DEBUG(
8456: FND_LOG.LEVEL_PROCEDURE
8457: ,L_MODULE
8458: ,'end debug call OKL_LAP_PVT.INSERT_ROW');
8459: END IF;
8459: END IF;
8460:
8461: -- write to log
8462: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8463: OKL_DEBUG_PUB.LOG_DEBUG(
8464: FND_LOG.LEVEL_STATEMENT
8465: ,L_MODULE || ' Result of OKL_LAP_PVT.INSERT_ROW'
8466: ,'l_lapv_rec.reference_number ' || to_char(l_lapv_rec.reference_number) ||
8467: ' l_lapv_rec.id '|| l_lapv_rec.id ||
8494: CLOSE src_lse_app_dtls_csr;
8495:
8496: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8497: THEN
8498: OKL_DEBUG_PUB.LOG_DEBUG(
8499: FND_LOG.LEVEL_PROCEDURE
8500: ,L_MODULE
8501: ,'begin debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
8502: END IF;
8514: ,x_msg_data => x_msg_data);
8515:
8516: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8517: THEN
8518: OKL_DEBUG_PUB.LOG_DEBUG(
8519: FND_LOG.LEVEL_PROCEDURE
8520: ,L_MODULE
8521: ,'end debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
8522: END IF;
8522: END IF;
8523:
8524: -- write to log
8525: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8526: OKL_DEBUG_PUB.LOG_DEBUG(
8527: FND_LOG.LEVEL_STATEMENT
8528: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE'
8529: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
8530: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
8539: END IF;
8540:
8541: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8542: THEN
8543: OKL_DEBUG_PUB.LOG_DEBUG(
8544: FND_LOG.LEVEL_PROCEDURE
8545: ,L_MODULE
8546: ,'begin debug call CREATE_CREDIT_APP');
8547: END IF;
8560: ,x_crr_rec => x_crr_rec);
8561:
8562: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8563: THEN
8564: OKL_DEBUG_PUB.LOG_DEBUG(
8565: FND_LOG.LEVEL_PROCEDURE
8566: ,L_MODULE
8567: ,'end debug call CREATE_CREDIT_APP');
8568: END IF;
8568: END IF;
8569:
8570: -- write to log
8571: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8572: OKL_DEBUG_PUB.LOG_DEBUG(
8573: FND_LOG.LEVEL_STATEMENT
8574: ,L_MODULE || ' Result of CREATE_CREDIT_APP'
8575: ,' result status ' || l_return_status);
8576: END IF; -- end of statement level debug
8588: IF(chk_hdr_dtls_rec.checklist_id IS NOT NULL)
8589: THEN
8590: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8591: THEN
8592: OKL_DEBUG_PUB.LOG_DEBUG(
8593: FND_LOG.LEVEL_PROCEDURE
8594: ,L_MODULE
8595: ,'begin debug call CHECKLIST_INST_CRE');
8596: END IF;
8606: ,p_chklst_tmpl_id => chk_hdr_dtls_rec.checklist_id);
8607:
8608: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8609: THEN
8610: OKL_DEBUG_PUB.LOG_DEBUG(
8611: FND_LOG.LEVEL_PROCEDURE
8612: ,L_MODULE
8613: ,'end debug call CHECKLIST_INST_CRE');
8614: END IF;
8614: END IF;
8615:
8616: -- write to log
8617: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8618: OKL_DEBUG_PUB.LOG_DEBUG(
8619: FND_LOG.LEVEL_STATEMENT
8620: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
8621: ,' result status ' || l_return_status);
8622: END IF; -- end of statement level debug
8630:
8631: --Update the status of Parent Lease Application as in Progress
8632: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8633: THEN
8634: OKL_DEBUG_PUB.LOG_DEBUG(
8635: FND_LOG.LEVEL_PROCEDURE
8636: ,L_MODULE
8637: ,'begin debug call SET_IN_PROGRESS_STATUS');
8638: END IF;
8648: ,x_msg_data => x_msg_data);
8649:
8650: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8651: THEN
8652: OKL_DEBUG_PUB.LOG_DEBUG(
8653: FND_LOG.LEVEL_PROCEDURE
8654: ,L_MODULE
8655: ,'end debug call SET_IN_PROGRESS_STATUS');
8656: END IF;
8656: END IF;
8657:
8658: -- write to log
8659: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8660: OKL_DEBUG_PUB.LOG_DEBUG(
8661: FND_LOG.LEVEL_STATEMENT
8662: ,L_MODULE || ' Result of SET_IN_PROGRESS_STATUS'
8663: ,'return status ' || l_return_status ||
8664: ' x_msg_data ' || x_msg_data);
8796: l_return_status := OKL_API.G_RET_STS_SUCCESS;
8797: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_CANCEL';
8798:
8799: -- check for logging on PROCEDURE level
8800: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8801: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8802: -- check for logging on STATEMENT level
8803: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8804:
8797: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_CANCEL';
8798:
8799: -- check for logging on PROCEDURE level
8800: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8801: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8802: -- check for logging on STATEMENT level
8803: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8804:
8805: -- call START_ACTIVITY to create savepoint, check compatibility
8799: -- check for logging on PROCEDURE level
8800: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8801: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8802: -- check for logging on STATEMENT level
8803: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8804:
8805: -- call START_ACTIVITY to create savepoint, check compatibility
8806: -- and initialize message list
8807: l_return_status := OKL_API.START_ACTIVITY(
8864: RAISE OKL_API.G_EXCEPTION_ERROR;
8865: ELSE
8866: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8867: THEN
8868: OKL_DEBUG_PUB.LOG_DEBUG(
8869: FND_LOG.LEVEL_PROCEDURE
8870: ,L_MODULE
8871: ,'begin debug call CHECK_ELIGIBILITY');
8872: END IF;
8882: ,p_action => 'CANCEL');
8883:
8884: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8885: THEN
8886: OKL_DEBUG_PUB.LOG_DEBUG(
8887: FND_LOG.LEVEL_PROCEDURE
8888: ,L_MODULE
8889: ,'end debug call CHECK_ELIGIBILITY');
8890: END IF;
8890: END IF;
8891:
8892: -- write to log
8893: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8894: OKL_DEBUG_PUB.LOG_DEBUG(
8895: FND_LOG.LEVEL_STATEMENT
8896: ,L_MODULE || ' Result of CHECK_ELIGIBILITY'
8897: ,'return status ' || l_return_status ||
8898: ' x_msg_data ' || x_msg_data);
8905: END IF;
8906:
8907: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8908: THEN
8909: OKL_DEBUG_PUB.LOG_DEBUG(
8910: FND_LOG.LEVEL_PROCEDURE
8911: ,L_MODULE
8912: ,'begin debug call SET_LEASE_APP_STATUS');
8913: END IF;
8923: ,x_msg_data => x_msg_data);
8924:
8925: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8926: THEN
8927: OKL_DEBUG_PUB.LOG_DEBUG(
8928: FND_LOG.LEVEL_PROCEDURE
8929: ,L_MODULE
8930: ,'end debug call SET_LEASE_APP_STATUS');
8931: END IF;
8931: END IF;
8932:
8933: -- write to log
8934: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8935: OKL_DEBUG_PUB.LOG_DEBUG(
8936: FND_LOG.LEVEL_STATEMENT
8937: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
8938: ,'return status ' || l_return_status ||
8939: ' x_msg_data ' || x_msg_data);
8948: -- Added by rravikir for Bug 5001802
8949: -- Call the API to process the lease app subsidy pool
8950: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8951: THEN
8952: OKL_DEBUG_PUB.LOG_DEBUG(
8953: FND_LOG.LEVEL_PROCEDURE
8954: ,L_MODULE
8955: ,'begin debug call OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL');
8956: END IF;
8967: ,x_msg_data => x_msg_data);
8968:
8969: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8970: THEN
8971: OKL_DEBUG_PUB.LOG_DEBUG(
8972: FND_LOG.LEVEL_PROCEDURE
8973: ,L_MODULE
8974: ,'end debug call OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL');
8975: END IF;
8975: END IF;
8976:
8977: -- write to log
8978: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8979: OKL_DEBUG_PUB.LOG_DEBUG(
8980: FND_LOG.LEVEL_STATEMENT
8981: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL'
8982: ,'l_return_status ' || l_return_status);
8983: END IF; -- end of statement level debug
8993: --and in status Appeal/Resubmit in Progress. If yes then restore the status
8994: --of parent to original status
8995: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8996: THEN
8997: OKL_DEBUG_PUB.LOG_DEBUG(
8998: FND_LOG.LEVEL_PROCEDURE
8999: ,L_MODULE
9000: ,'begin debug call REVERT_TO_ORIG_STATUS');
9001: END IF;
9009: ,x_msg_data => x_msg_data);
9010:
9011: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9012: THEN
9013: OKL_DEBUG_PUB.LOG_DEBUG(
9014: FND_LOG.LEVEL_PROCEDURE
9015: ,L_MODULE
9016: ,'end debug call REVERT_TO_ORIG_STATUS');
9017: END IF;
9017: END IF;
9018:
9019: -- write to log
9020: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9021: OKL_DEBUG_PUB.LOG_DEBUG(
9022: FND_LOG.LEVEL_STATEMENT
9023: ,L_MODULE || ' Result of REVERT_TO_ORIG_STATUS'
9024: ,'l_return_status ' || l_return_status);
9025: END IF; -- end of statement level debug
9168: l_return_status := OKL_API.G_RET_STS_SUCCESS;
9169: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_APPEAL';
9170:
9171: -- check for logging on PROCEDURE level
9172: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
9173: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
9174: -- check for logging on STATEMENT level
9175: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
9176:
9169: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_APPEAL';
9170:
9171: -- check for logging on PROCEDURE level
9172: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
9173: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
9174: -- check for logging on STATEMENT level
9175: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
9176:
9177: -- call START_ACTIVITY to create savepoint, check compatibility
9171: -- check for logging on PROCEDURE level
9172: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
9173: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
9174: -- check for logging on STATEMENT level
9175: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
9176:
9177: -- call START_ACTIVITY to create savepoint, check compatibility
9178: -- and initialize message list
9179: l_return_status := OKL_API.START_ACTIVITY(
9203: --Validate VP and LAT association
9204: --Validate Lease Quote
9205: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9206: THEN
9207: OKL_DEBUG_PUB.LOG_DEBUG(
9208: FND_LOG.LEVEL_PROCEDURE
9209: ,L_MODULE
9210: ,'begin debug call LEASE_APP_VAL');
9211: END IF;
9220: ,p_lsqv_rec => l_lsqv_rec);
9221:
9222: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9223: THEN
9224: OKL_DEBUG_PUB.LOG_DEBUG(
9225: FND_LOG.LEVEL_PROCEDURE
9226: ,L_MODULE
9227: ,'end debug call LEASE_APP_VAL');
9228: END IF;
9228: END IF;
9229:
9230: -- write to log
9231: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9232: OKL_DEBUG_PUB.LOG_DEBUG(
9233: FND_LOG.LEVEL_STATEMENT
9234: ,L_MODULE || ' Result of LEASE_APP_VAL'
9235: ,'l_return_status ' || l_return_status);
9236: END IF; -- end of statement level debug
9242: END IF;
9243:
9244: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9245: THEN
9246: OKL_DEBUG_PUB.LOG_DEBUG(
9247: FND_LOG.LEVEL_PROCEDURE
9248: ,L_MODULE
9249: ,'begin debug call OKL_LAP_PVT.INSERT_ROW');
9250: END IF;
9260: ,x_lapv_rec => x_lapv_rec);
9261:
9262: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9263: THEN
9264: OKL_DEBUG_PUB.LOG_DEBUG(
9265: FND_LOG.LEVEL_PROCEDURE
9266: ,L_MODULE
9267: ,'end debug call OKL_LAP_PVT.INSERT_ROW');
9268: END IF;
9268: END IF;
9269:
9270: -- write to log
9271: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9272: OKL_DEBUG_PUB.LOG_DEBUG(
9273: FND_LOG.LEVEL_STATEMENT
9274: ,L_MODULE || ' Result of OKL_LAP_PVT.INSERT_ROW'
9275: ,'l_lapv_rec.reference_number ' || to_char(l_lapv_rec.reference_number) ||
9276: ' l_lapv_rec.id '|| l_lapv_rec.id ||
9304: CLOSE src_lse_app_dtls_csr;
9305:
9306: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9307: THEN
9308: OKL_DEBUG_PUB.LOG_DEBUG(
9309: FND_LOG.LEVEL_PROCEDURE
9310: ,L_MODULE
9311: ,'begin debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
9312: END IF;
9324: ,x_msg_data => x_msg_data);
9325:
9326: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9327: THEN
9328: OKL_DEBUG_PUB.LOG_DEBUG(
9329: FND_LOG.LEVEL_PROCEDURE
9330: ,L_MODULE
9331: ,'end debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
9332: END IF;
9332: END IF;
9333:
9334: -- write to log
9335: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9336: OKL_DEBUG_PUB.LOG_DEBUG(
9337: FND_LOG.LEVEL_STATEMENT
9338: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE'
9339: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
9340: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
9349: END IF;
9350:
9351: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9352: THEN
9353: OKL_DEBUG_PUB.LOG_DEBUG(
9354: FND_LOG.LEVEL_PROCEDURE
9355: ,L_MODULE
9356: ,'begin debug call CREATE_CREDIT_APP');
9357: END IF;
9376: ,x_crr_rec => x_crr_rec);
9377:
9378: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9379: THEN
9380: OKL_DEBUG_PUB.LOG_DEBUG(
9381: FND_LOG.LEVEL_PROCEDURE
9382: ,L_MODULE
9383: ,'end debug call CREATE_CREDIT_APP');
9384: END IF;
9384: END IF;
9385:
9386: -- write to log
9387: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9388: OKL_DEBUG_PUB.LOG_DEBUG(
9389: FND_LOG.LEVEL_STATEMENT
9390: ,L_MODULE || ' Result of CREATE_CREDIT_APP'
9391: ,' result status ' || l_return_status);
9392: END IF; -- end of statement level debug
9404: IF(chk_hdr_dtls_rec.checklist_id IS NOT NULL)
9405: THEN
9406: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9407: THEN
9408: OKL_DEBUG_PUB.LOG_DEBUG(
9409: FND_LOG.LEVEL_PROCEDURE
9410: ,L_MODULE
9411: ,'begin debug call CHECKLIST_INST_CRE');
9412: END IF;
9422: ,p_chklst_tmpl_id => chk_hdr_dtls_rec.checklist_id);
9423:
9424: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9425: THEN
9426: OKL_DEBUG_PUB.LOG_DEBUG(
9427: FND_LOG.LEVEL_PROCEDURE
9428: ,L_MODULE
9429: ,'end debug call CHECKLIST_INST_CRE');
9430: END IF;
9430: END IF;
9431:
9432: -- write to log
9433: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9434: OKL_DEBUG_PUB.LOG_DEBUG(
9435: FND_LOG.LEVEL_STATEMENT
9436: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
9437: ,' result status ' || l_return_status);
9438: END IF; -- end of statement level debug
9446:
9447: --Update the status of Parent Lease Application as in Progress
9448: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9449: THEN
9450: OKL_DEBUG_PUB.LOG_DEBUG(
9451: FND_LOG.LEVEL_PROCEDURE
9452: ,L_MODULE
9453: ,'begin debug call SET_IN_PROGRESS_STATUS');
9454: END IF;
9464: ,x_msg_data => x_msg_data);
9465:
9466: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9467: THEN
9468: OKL_DEBUG_PUB.LOG_DEBUG(
9469: FND_LOG.LEVEL_PROCEDURE
9470: ,L_MODULE
9471: ,'end debug call SET_IN_PROGRESS_STATUS');
9472: END IF;
9472: END IF;
9473:
9474: -- write to log
9475: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9476: OKL_DEBUG_PUB.LOG_DEBUG(
9477: FND_LOG.LEVEL_STATEMENT
9478: ,L_MODULE || ' Result of SET_IN_PROGRESS_STATUS'
9479: ,'return status ' || l_return_status ||
9480: ' x_msg_data ' || x_msg_data);
9668: l_return_status := OKL_API.G_RET_STS_SUCCESS;
9669: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CHECK_ELIGIBILITY';
9670:
9671: -- check for logging on PROCEDURE level
9672: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
9673: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
9674: -- check for logging on STATEMENT level
9675: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
9676:
9669: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CHECK_ELIGIBILITY';
9670:
9671: -- check for logging on PROCEDURE level
9672: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
9673: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
9674: -- check for logging on STATEMENT level
9675: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
9676:
9677: -- call START_ACTIVITY to create savepoint, check compatibility
9671: -- check for logging on PROCEDURE level
9672: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
9673: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
9674: -- check for logging on STATEMENT level
9675: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
9676:
9677: -- call START_ACTIVITY to create savepoint, check compatibility
9678: -- and initialize message list
9679: l_return_status := OKL_API.START_ACTIVITY(
10005: l_return_status := OKL_API.G_RET_STS_SUCCESS;
10006: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_QA_VAL';
10007:
10008: -- check for logging on PROCEDURE level
10009: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10010: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10011: -- check for logging on STATEMENT level
10012: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10013:
10006: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_QA_VAL';
10007:
10008: -- check for logging on PROCEDURE level
10009: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10010: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10011: -- check for logging on STATEMENT level
10012: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10013:
10014: -- call START_ACTIVITY to create savepoint, check compatibility
10008: -- check for logging on PROCEDURE level
10009: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10010: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10011: -- check for logging on STATEMENT level
10012: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10013:
10014: -- call START_ACTIVITY to create savepoint, check compatibility
10015: -- and initialize message list
10016: l_return_status := OKL_API.START_ACTIVITY(
10031:
10032: --QA Checker integration
10033: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10034: THEN
10035: OKL_DEBUG_PUB.LOG_DEBUG(
10036: FND_LOG.LEVEL_PROCEDURE
10037: ,L_MODULE
10038: ,'begin debug call OKL_SALES_QUOTE_QA_PVT.RUN_QA_CHECKER');
10039: END IF;
10049: ,x_msg_data => x_msg_data);
10050:
10051: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10052: THEN
10053: OKL_DEBUG_PUB.LOG_DEBUG(
10054: FND_LOG.LEVEL_PROCEDURE
10055: ,L_MODULE
10056: ,'end debug call OKL_SALES_QUOTE_QA_PVT.RUN_QA_CHECKER');
10057: END IF;
10057: END IF;
10058:
10059: -- write to log
10060: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10061: OKL_DEBUG_PUB.LOG_DEBUG(
10062: FND_LOG.LEVEL_STATEMENT
10063: ,L_MODULE || ' Result of OKL_SALES_QUOTE_QA_PVT.RUN_QA_CHECKER'
10064: ,'l_return_status ' || l_return_status);
10065: END IF; -- end of statement level debug
10151: l_return_status := OKL_API.G_RET_STS_SUCCESS;
10152: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_PRICE';
10153:
10154: -- check for logging on PROCEDURE level
10155: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10156: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10157: -- check for logging on STATEMENT level
10158: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10159:
10152: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_PRICE';
10153:
10154: -- check for logging on PROCEDURE level
10155: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10156: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10157: -- check for logging on STATEMENT level
10158: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10159:
10160: -- call START_ACTIVITY to create savepoint, check compatibility
10154: -- check for logging on PROCEDURE level
10155: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10156: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10157: -- check for logging on STATEMENT level
10158: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10159:
10160: -- call START_ACTIVITY to create savepoint, check compatibility
10161: -- and initialize message list
10162: l_return_status := OKL_API.START_ACTIVITY(
10182:
10183: --Pricing Validation
10184: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10185: THEN
10186: OKL_DEBUG_PUB.LOG_DEBUG(
10187: FND_LOG.LEVEL_PROCEDURE
10188: ,L_MODULE
10189: ,'begin debug call OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE');
10190: END IF;
10198: ,x_msg_data => x_msg_data);
10199:
10200: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10201: THEN
10202: OKL_DEBUG_PUB.LOG_DEBUG(
10203: FND_LOG.LEVEL_PROCEDURE
10204: ,L_MODULE
10205: ,'end debug call OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE');
10206: END IF;
10206: END IF;
10207:
10208: -- write to log
10209: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10210: OKL_DEBUG_PUB.LOG_DEBUG(
10211: FND_LOG.LEVEL_STATEMENT
10212: ,L_MODULE || ' Result of OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE'
10213: ,'l_return_status ' || l_return_status);
10214: END IF; -- end of statement level debug
10221: --End of Pricing API call
10222:
10223: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10224: THEN
10225: OKL_DEBUG_PUB.LOG_DEBUG(
10226: FND_LOG.LEVEL_PROCEDURE
10227: ,L_MODULE
10228: ,'begin debug call SET_LEASE_APP_STATUS');
10229: END IF;
10238: ,x_msg_data => x_msg_data);
10239:
10240: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10241: THEN
10242: OKL_DEBUG_PUB.LOG_DEBUG(
10243: FND_LOG.LEVEL_PROCEDURE
10244: ,L_MODULE
10245: ,'end debug call SET_LEASE_APP_STATUS');
10246: END IF;
10246: END IF;
10247:
10248: -- write to log
10249: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10250: OKL_DEBUG_PUB.LOG_DEBUG(
10251: FND_LOG.LEVEL_STATEMENT
10252: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
10253: ,'l_return_status ' || l_return_status);
10254: END IF; -- end of statement level debug
10366: l_return_status := OKL_API.G_RET_STS_SUCCESS;
10367: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SET_LEASE_APP_STATUS';
10368:
10369: -- check for logging on PROCEDURE level
10370: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10371: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10372: -- check for logging on STATEMENT level
10373: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10374:
10367: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SET_LEASE_APP_STATUS';
10368:
10369: -- check for logging on PROCEDURE level
10370: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10371: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10372: -- check for logging on STATEMENT level
10373: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10374:
10375: -- call START_ACTIVITY to create savepoint, check compatibility
10369: -- check for logging on PROCEDURE level
10370: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10371: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10372: -- check for logging on STATEMENT level
10373: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10374:
10375: -- call START_ACTIVITY to create savepoint, check compatibility
10376: -- and initialize message list
10377: l_return_status := OKL_API.START_ACTIVITY(
10392:
10393: --Populate Lease Application rec with the values from database.
10394: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10395: THEN
10396: OKL_DEBUG_PUB.LOG_DEBUG(
10397: FND_LOG.LEVEL_PROCEDURE
10398: ,L_MODULE
10399: ,'begin debug call POPULATE_LEASE_APP');
10400: END IF;
10410: ,x_lsqv_rec => x_lsqv_rec);
10411:
10412: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10413: THEN
10414: OKL_DEBUG_PUB.LOG_DEBUG(
10415: FND_LOG.LEVEL_PROCEDURE
10416: ,L_MODULE
10417: ,'end debug call POPULATE_LEASE_APP');
10418: END IF;
10418: END IF;
10419:
10420: -- write to log
10421: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10422: OKL_DEBUG_PUB.LOG_DEBUG(
10423: FND_LOG.LEVEL_STATEMENT
10424: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
10425: ,'l_return_status ' || l_return_status);
10426: END IF; -- end of statement level debug
10435: l_lapv_rec.application_status := p_lap_status;
10436:
10437: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10438: THEN
10439: OKL_DEBUG_PUB.LOG_DEBUG(
10440: FND_LOG.LEVEL_PROCEDURE
10441: ,L_MODULE
10442: ,'begin debug call OKL_LAP_PVT.UPDATE_ROW');
10443: END IF;
10452: ,x_lapv_rec => x_lapv_rec);
10453:
10454: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10455: THEN
10456: OKL_DEBUG_PUB.LOG_DEBUG(
10457: FND_LOG.LEVEL_PROCEDURE
10458: ,L_MODULE
10459: ,'end debug call OKL_LAP_PVT.UPDATE_ROW');
10460: END IF;
10460: END IF;
10461:
10462: -- write to log
10463: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10464: OKL_DEBUG_PUB.LOG_DEBUG(
10465: FND_LOG.LEVEL_STATEMENT
10466: ,L_MODULE || ' Result of OKL_LAP_PVT.UPDATE_ROW'
10467: ,'l_return_status ' || l_return_status);
10468: END IF; -- end of statement level debug
10545: l_return_status := OKL_API.G_RET_STS_SUCCESS;
10546: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SET_LEASE_APP_EXPDAYS';
10547:
10548: -- check for logging on PROCEDURE level
10549: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10550: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10551: -- check for logging on STATEMENT level
10552: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10553:
10546: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SET_LEASE_APP_EXPDAYS';
10547:
10548: -- check for logging on PROCEDURE level
10549: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10550: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10551: -- check for logging on STATEMENT level
10552: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10553:
10554: -- call START_ACTIVITY to create savepoint, check compatibility
10548: -- check for logging on PROCEDURE level
10549: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10550: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10551: -- check for logging on STATEMENT level
10552: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10553:
10554: -- call START_ACTIVITY to create savepoint, check compatibility
10555: -- and initialize message list
10556: l_return_status := OKL_API.START_ACTIVITY(
10571:
10572: --Populate Lease Application rec with the values from database.
10573: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10574: THEN
10575: OKL_DEBUG_PUB.LOG_DEBUG(
10576: FND_LOG.LEVEL_PROCEDURE
10577: ,L_MODULE
10578: ,'begin debug call POPULATE_LEASE_APP');
10579: END IF;
10589: ,x_lsqv_rec => x_lsqv_rec);
10590:
10591: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10592: THEN
10593: OKL_DEBUG_PUB.LOG_DEBUG(
10594: FND_LOG.LEVEL_PROCEDURE
10595: ,L_MODULE
10596: ,'end debug call POPULATE_LEASE_APP');
10597: END IF;
10597: END IF;
10598:
10599: -- write to log
10600: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10601: OKL_DEBUG_PUB.LOG_DEBUG(
10602: FND_LOG.LEVEL_STATEMENT
10603: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
10604: ,'l_return_status ' || l_return_status);
10605: END IF; -- end of statement level debug
10614: l_lapv_rec.cr_exp_days := p_lap_expdays;
10615:
10616: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10617: THEN
10618: OKL_DEBUG_PUB.LOG_DEBUG(
10619: FND_LOG.LEVEL_PROCEDURE
10620: ,L_MODULE
10621: ,'begin debug call OKL_LAP_PVT.UPDATE_ROW');
10622: END IF;
10631: ,x_lapv_rec => x_lapv_rec);
10632:
10633: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10634: THEN
10635: OKL_DEBUG_PUB.LOG_DEBUG(
10636: FND_LOG.LEVEL_PROCEDURE
10637: ,L_MODULE
10638: ,'end debug call OKL_LAP_PVT.UPDATE_ROW');
10639: END IF;
10639: END IF;
10640:
10641: -- write to log
10642: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10643: OKL_DEBUG_PUB.LOG_DEBUG(
10644: FND_LOG.LEVEL_STATEMENT
10645: ,L_MODULE || ' Result of OKL_LAP_PVT.UPDATE_ROW'
10646: ,'l_return_status ' || l_return_status);
10647: END IF; -- end of statement level debug
10876: l_return_status := OKL_API.G_RET_STS_SUCCESS;
10877: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_UNACCEPT';
10878:
10879: -- check for logging on PROCEDURE level
10880: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10881: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10882: -- check for logging on STATEMENT level
10883: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10884:
10877: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_UNACCEPT';
10878:
10879: -- check for logging on PROCEDURE level
10880: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10881: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10882: -- check for logging on STATEMENT level
10883: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10884:
10885: -- call START_ACTIVITY to create savepoint, check compatibility
10879: -- check for logging on PROCEDURE level
10880: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10881: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10882: -- check for logging on STATEMENT level
10883: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10884:
10885: -- call START_ACTIVITY to create savepoint, check compatibility
10886: -- and initialize message list
10887: l_return_status := OKL_API.START_ACTIVITY(
10902:
10903: --Populate Lease Application rec with the values from database.
10904: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10905: THEN
10906: OKL_DEBUG_PUB.LOG_DEBUG(
10907: FND_LOG.LEVEL_PROCEDURE
10908: ,L_MODULE
10909: ,'begin debug call POPULATE_LEASE_APP');
10910: END IF;
10920: ,x_lsqv_rec => l_lsqv_rec);
10921:
10922: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10923: THEN
10924: OKL_DEBUG_PUB.LOG_DEBUG(
10925: FND_LOG.LEVEL_PROCEDURE
10926: ,L_MODULE
10927: ,'end debug call POPULATE_LEASE_APP');
10928: END IF;
10928: END IF;
10929:
10930: -- write to log
10931: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10932: OKL_DEBUG_PUB.LOG_DEBUG(
10933: FND_LOG.LEVEL_STATEMENT
10934: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
10935: ,'l_return_status ' || l_return_status);
10936: END IF; -- end of statement level debug
10962: IF(l_lapv_rec.application_status = 'PR-ACCEPTED')
10963: THEN
10964: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10965: THEN
10966: OKL_DEBUG_PUB.LOG_DEBUG(
10967: FND_LOG.LEVEL_PROCEDURE
10968: ,L_MODULE
10969: ,'begin debug call SET_LEASE_APP_STATUS');
10970: END IF;
10979: ,x_msg_data => x_msg_data);
10980:
10981: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10982: THEN
10983: OKL_DEBUG_PUB.LOG_DEBUG(
10984: FND_LOG.LEVEL_PROCEDURE
10985: ,L_MODULE
10986: ,'end debug call SET_LEASE_APP_STATUS');
10987: END IF;
10987: END IF;
10988:
10989: -- write to log
10990: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10991: OKL_DEBUG_PUB.LOG_DEBUG(
10992: FND_LOG.LEVEL_STATEMENT
10993: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
10994: ,'l_return_status ' || l_return_status);
10995: END IF; -- end of statement level debug
11001: END IF;
11002:
11003: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11004: THEN
11005: OKL_DEBUG_PUB.LOG_DEBUG(
11006: FND_LOG.LEVEL_PROCEDURE
11007: ,L_MODULE
11008: ,'begin debug call OKL_LEASE_QUOTE_PVT.UNACCEPT_LEASE_QTE');
11009: END IF;
11019: ,x_msg_data => x_msg_data);
11020:
11021: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11022: THEN
11023: OKL_DEBUG_PUB.LOG_DEBUG(
11024: FND_LOG.LEVEL_PROCEDURE
11025: ,L_MODULE
11026: ,'end debug call OKL_LEASE_QUOTE_PVT.UNACCEPT_LEASE_QTE');
11027: END IF;
11027: END IF;
11028:
11029: -- write to log
11030: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11031: OKL_DEBUG_PUB.LOG_DEBUG(
11032: FND_LOG.LEVEL_STATEMENT
11033: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UNACCEPT_LEASE_QTE'
11034: ,' result status ' || l_return_status);
11035: END IF; -- end of statement level debug
11129: l_return_status := OKL_API.G_RET_STS_SUCCESS;
11130: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CREATE_CONTRACT';
11131:
11132: -- check for logging on PROCEDURE level
11133: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11134: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11135: -- check for logging on STATEMENT level
11136: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11137:
11130: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CREATE_CONTRACT';
11131:
11132: -- check for logging on PROCEDURE level
11133: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11134: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11135: -- check for logging on STATEMENT level
11136: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11137:
11138: -- call START_ACTIVITY to create savepoint, check compatibility
11132: -- check for logging on PROCEDURE level
11133: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11134: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11135: -- check for logging on STATEMENT level
11136: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11137:
11138: -- call START_ACTIVITY to create savepoint, check compatibility
11139: -- and initialize message list
11140: l_return_status := OKL_API.START_ACTIVITY(
11159: CLOSE l_lap_dtls_csr;
11160:
11161: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11162: THEN
11163: OKL_DEBUG_PUB.LOG_DEBUG(
11164: FND_LOG.LEVEL_PROCEDURE
11165: ,L_MODULE
11166: ,'begin debug call OKL_QUOTE_TO_CONTRACT_PVT.CREATE_CONTRACT');
11167: END IF;
11179: ,x_contract_number => x_chr_number);
11180:
11181: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11182: THEN
11183: OKL_DEBUG_PUB.LOG_DEBUG(
11184: FND_LOG.LEVEL_PROCEDURE
11185: ,L_MODULE
11186: ,'end debug call OKL_QUOTE_TO_CONTRACT_PVT.CREATE_CONTRACT');
11187: END IF;
11187: END IF;
11188:
11189: -- write to log
11190: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11191: OKL_DEBUG_PUB.LOG_DEBUG(
11192: FND_LOG.LEVEL_STATEMENT
11193: ,L_MODULE || ' Result of OKL_QUOTE_TO_CONTRACT_PVT.CREATE_CONTRACT'
11194: ,' return status ' || l_return_status);
11195: END IF; -- end of statement level debug
11332: l_return_status := OKL_API.G_RET_STS_SUCCESS;
11333: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.APPEAL_RECOMMENDATIONS';
11334:
11335: -- check for logging on PROCEDURE level
11336: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11337: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11338: -- check for logging on STATEMENT level
11339: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11340:
11333: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.APPEAL_RECOMMENDATIONS';
11334:
11335: -- check for logging on PROCEDURE level
11336: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11337: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11338: -- check for logging on STATEMENT level
11339: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11340:
11341: -- call START_ACTIVITY to create savepoint, check compatibility
11335: -- check for logging on PROCEDURE level
11336: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11337: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11338: -- check for logging on STATEMENT level
11339: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11340:
11341: -- call START_ACTIVITY to create savepoint, check compatibility
11342: -- and initialize message list
11343: l_return_status := OKL_API.START_ACTIVITY(
11366: i := p_cr_conds.FIRST;
11367: LOOP
11368: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11369: THEN
11370: OKL_DEBUG_PUB.LOG_DEBUG(
11371: FND_LOG.LEVEL_PROCEDURE
11372: ,L_MODULE
11373: ,'begin debug call POP_CHECKLIST_ITEM');
11374: END IF;
11383: ,x_msg_data => x_msg_data);
11384:
11385: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11386: THEN
11387: OKL_DEBUG_PUB.LOG_DEBUG(
11388: FND_LOG.LEVEL_PROCEDURE
11389: ,L_MODULE
11390: ,'end debug call POP_CHECKLIST_ITEM');
11391: END IF;
11391: END IF;
11392:
11393: -- write to log
11394: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11395: OKL_DEBUG_PUB.LOG_DEBUG(
11396: FND_LOG.LEVEL_STATEMENT
11397: ,L_MODULE || ' Result of POP_CHECKLIST_ITEM'
11398: ,'l_return_status ' || l_return_status);
11399: END IF; -- end of statement level debug
11415: END LOOP;
11416:
11417: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11418: THEN
11419: OKL_DEBUG_PUB.LOG_DEBUG(
11420: FND_LOG.LEVEL_PROCEDURE
11421: ,L_MODULE
11422: ,'begin debug call OKL_CHECKLIST_PVT.UPD_CHKLST_DTL_APL_FLAG');
11423: END IF;
11432: ,x_cldv_tbl => x_cldv_tbl);
11433:
11434: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11435: THEN
11436: OKL_DEBUG_PUB.LOG_DEBUG(
11437: FND_LOG.LEVEL_PROCEDURE
11438: ,L_MODULE
11439: ,'end debug call OKL_CHECKLIST_PVT.UPD_CHKLST_DTL_APL_FLAG');
11440: END IF;
11440: END IF;
11441:
11442: -- write to log
11443: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11444: OKL_DEBUG_PUB.LOG_DEBUG(
11445: FND_LOG.LEVEL_STATEMENT
11446: ,L_MODULE || ' Result of OKL_CHECKLIST_PVT.UPD_CHKLST_DTL_APL_FLAG'
11447: ,'l_return_status ' || l_return_status);
11448: END IF; -- end of statement level debug
11539: END IF;--If check for additional recommendations table count
11540:
11541: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11542: THEN
11543: OKL_DEBUG_PUB.LOG_DEBUG(
11544: FND_LOG.LEVEL_PROCEDURE
11545: ,L_MODULE
11546: ,'begin debug call OCM_RECOMMENDATIONS_PUB.MARK_APPEAL');
11547: END IF;
11559: ,x_msg_data => x_msg_data);
11560:
11561: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11562: THEN
11563: OKL_DEBUG_PUB.LOG_DEBUG(
11564: FND_LOG.LEVEL_PROCEDURE
11565: ,L_MODULE
11566: ,'end debug call OCM_RECOMMENDATIONS_PUB.MARK_APPEAL');
11567: END IF;
11567: END IF;
11568:
11569: -- write to log
11570: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11571: OKL_DEBUG_PUB.LOG_DEBUG(
11572: FND_LOG.LEVEL_STATEMENT
11573: ,L_MODULE || ' Result of OCM_RECOMMENDATIONS_PUB.MARK_APPEAL'
11574: ,'l_return_status ' || l_return_status);
11575: END IF; -- end of statement level debug
11728: l_return_status := OKL_API.G_RET_STS_SUCCESS;
11729: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CREATE_CONTRACT_VAL';
11730:
11731: -- check for logging on PROCEDURE level
11732: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11733: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11734: -- check for logging on STATEMENT level
11735: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11736:
11729: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CREATE_CONTRACT_VAL';
11730:
11731: -- check for logging on PROCEDURE level
11732: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11733: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11734: -- check for logging on STATEMENT level
11735: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11736:
11737: -- call START_ACTIVITY to create savepoint, check compatibility
11731: -- check for logging on PROCEDURE level
11732: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11733: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11734: -- check for logging on STATEMENT level
11735: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11736:
11737: -- call START_ACTIVITY to create savepoint, check compatibility
11738: -- and initialize message list
11739: l_return_status := OKL_API.START_ACTIVITY(
11798: CLOSE l_uniq_qte_contract_csr;
11799:
11800: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11801: THEN
11802: OKL_DEBUG_PUB.LOG_DEBUG(
11803: FND_LOG.LEVEL_PROCEDURE
11804: ,L_MODULE
11805: ,'begin debug call CHECK_ELIGIBILITY');
11806: END IF;
11816: ,p_action => 'CRECON');
11817:
11818: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11819: THEN
11820: OKL_DEBUG_PUB.LOG_DEBUG(
11821: FND_LOG.LEVEL_PROCEDURE
11822: ,L_MODULE
11823: ,'end debug call CHECK_ELIGIBILITY');
11824: END IF;
11824: END IF;
11825:
11826: -- write to log
11827: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11828: OKL_DEBUG_PUB.LOG_DEBUG(
11829: FND_LOG.LEVEL_STATEMENT
11830: ,L_MODULE || ' Result of CHECK_ELIGIBILITY'
11831: ,'return status ' || l_return_status ||
11832: ' x_msg_data ' || x_msg_data);