[Home] [Help]
4: G_WF_EVT_LEASE_APP_WDW_PENDING CONSTANT wf_events.name%TYPE DEFAULT 'oracle.apps.okl.sales.leaseapplication.withdrawn';
5: G_WF_LEASE_APP_ID CONSTANT VARCHAR2(50) := 'LA_ID';
6: -- Bug#4741121 - smadhava - Modified - Start
7:
8: L_MODULE FND_LOG_MESSAGES.MODULE%TYPE;
9: L_DEBUG_ENABLED VARCHAR2(10);
10: IS_DEBUG_PROCEDURE_ON BOOLEAN;
11: IS_DEBUG_STATEMENT_ON BOOLEAN;
12:
759: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.POPULATE_EC_REC';
760:
761: -- check for logging on PROCEDURE level
762: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
763: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
764: -- check for logging on STATEMENT level
765: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
766:
767: -- call START_ACTIVITY to create savepoint, check compatibility
761: -- check for logging on PROCEDURE level
762: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
763: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
764: -- check for logging on STATEMENT level
765: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
766:
767: -- call START_ACTIVITY to create savepoint, check compatibility
768: -- and initialize message list
769: l_return_status := OKL_API.START_ACTIVITY(
1142: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.POPULATE_LEASE_APP';
1143:
1144: -- check for logging on PROCEDURE level
1145: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1146: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1147: -- check for logging on STATEMENT level
1148: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1149:
1150: -- call START_ACTIVITY to create savepoint, check compatibility
1144: -- check for logging on PROCEDURE level
1145: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1146: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1147: -- check for logging on STATEMENT level
1148: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1149:
1150: -- call START_ACTIVITY to create savepoint, check compatibility
1151: -- and initialize message list
1152: l_return_status := OKL_API.START_ACTIVITY(
1370: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.POP_CHECKLIST_ITEM';
1371:
1372: -- check for logging on PROCEDURE level
1373: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1374: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1375: -- check for logging on STATEMENT level
1376: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1377:
1378: -- call START_ACTIVITY to create savepoint, check compatibility
1372: -- check for logging on PROCEDURE level
1373: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1374: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1375: -- check for logging on STATEMENT level
1376: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1377:
1378: -- call START_ACTIVITY to create savepoint, check compatibility
1379: -- and initialize message list
1380: l_return_status := OKL_API.START_ACTIVITY(
1525: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SET_IN_PROGRESS_STATUS';
1526:
1527: -- check for logging on PROCEDURE level
1528: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1529: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1530: -- check for logging on STATEMENT level
1531: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1532:
1533: -- call START_ACTIVITY to create savepoint, check compatibility
1527: -- check for logging on PROCEDURE level
1528: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1529: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1530: -- check for logging on STATEMENT level
1531: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1532:
1533: -- call START_ACTIVITY to create savepoint, check compatibility
1534: -- and initialize message list
1535: l_return_status := OKL_API.START_ACTIVITY(
1551: --Populate Lease Application rec with the values from database.
1552: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1553: THEN
1554: OKL_DEBUG_PUB.LOG_DEBUG(
1555: FND_LOG.LEVEL_PROCEDURE
1556: ,L_MODULE
1557: ,'begin debug call POPULATE_LEASE_APP');
1558: END IF;
1559:
1569:
1570: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1571: THEN
1572: OKL_DEBUG_PUB.LOG_DEBUG(
1573: FND_LOG.LEVEL_PROCEDURE
1574: ,L_MODULE
1575: ,'end debug call POPULATE_LEASE_APP');
1576: END IF;
1577:
1577:
1578: -- write to log
1579: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
1580: OKL_DEBUG_PUB.LOG_DEBUG(
1581: FND_LOG.LEVEL_STATEMENT
1582: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
1583: ,'l_return_status ' || l_return_status);
1584: END IF; -- end of statement level debug
1585:
1601:
1602: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1603: THEN
1604: OKL_DEBUG_PUB.LOG_DEBUG(
1605: FND_LOG.LEVEL_PROCEDURE
1606: ,L_MODULE
1607: ,'begin debug call OKL_LAP_PVT.UPDATE_ROW');
1608: END IF;
1609:
1618:
1619: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1620: THEN
1621: OKL_DEBUG_PUB.LOG_DEBUG(
1622: FND_LOG.LEVEL_PROCEDURE
1623: ,L_MODULE
1624: ,'end debug call OKL_LAP_PVT.UPDATE_ROW');
1625: END IF;
1626:
1626:
1627: -- write to log
1628: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
1629: OKL_DEBUG_PUB.LOG_DEBUG(
1630: FND_LOG.LEVEL_STATEMENT
1631: ,L_MODULE || ' Result of OKL_LAP_PVT.UPDATE_ROW'
1632: ,'l_return_status ' || l_return_status);
1633: END IF; -- end of statement level debug
1634:
1720: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.REVERT_TO_ORIG_STATUS';
1721:
1722: -- check for logging on PROCEDURE level
1723: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1724: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1725: -- check for logging on STATEMENT level
1726: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1727:
1728: -- call START_ACTIVITY to create savepoint, check compatibility
1722: -- check for logging on PROCEDURE level
1723: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1724: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1725: -- check for logging on STATEMENT level
1726: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1727:
1728: -- call START_ACTIVITY to create savepoint, check compatibility
1729: -- and initialize message list
1730: l_return_status := OKL_API.START_ACTIVITY(
1753: --Populate Lease Application rec with the values from database.
1754: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1755: THEN
1756: OKL_DEBUG_PUB.LOG_DEBUG(
1757: FND_LOG.LEVEL_PROCEDURE
1758: ,L_MODULE
1759: ,'begin debug call POPULATE_LEASE_APP');
1760: END IF;
1761:
1771:
1772: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1773: THEN
1774: OKL_DEBUG_PUB.LOG_DEBUG(
1775: FND_LOG.LEVEL_PROCEDURE
1776: ,L_MODULE
1777: ,'end debug call POPULATE_LEASE_APP');
1778: END IF;
1779:
1779:
1780: -- write to log
1781: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
1782: OKL_DEBUG_PUB.LOG_DEBUG(
1783: FND_LOG.LEVEL_STATEMENT
1784: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
1785: ,'l_return_status ' || l_return_status);
1786: END IF; -- end of statement level debug
1787:
1797:
1798: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1799: THEN
1800: OKL_DEBUG_PUB.LOG_DEBUG(
1801: FND_LOG.LEVEL_PROCEDURE
1802: ,L_MODULE
1803: ,'begin debug call OKL_LAP_PVT.UPDATE_ROW');
1804: END IF;
1805:
1814:
1815: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1816: THEN
1817: OKL_DEBUG_PUB.LOG_DEBUG(
1818: FND_LOG.LEVEL_PROCEDURE
1819: ,L_MODULE
1820: ,'end debug call OKL_LAP_PVT.UPDATE_ROW');
1821: END IF;
1822:
1822:
1823: -- write to log
1824: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
1825: OKL_DEBUG_PUB.LOG_DEBUG(
1826: FND_LOG.LEVEL_STATEMENT
1827: ,L_MODULE || ' Result of OKL_LAP_PVT.UPDATE_ROW'
1828: ,'l_return_status ' || l_return_status);
1829: END IF; -- end of statement level debug
1830:
1991: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CHECK_LEASE_QUOTE_DEFAULTS';
1992:
1993: -- check for logging on PROCEDURE level
1994: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1995: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1996: -- check for logging on STATEMENT level
1997: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1998:
1999: -- call START_ACTIVITY to create savepoint, check compatibility
1993: -- check for logging on PROCEDURE level
1994: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
1995: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
1996: -- check for logging on STATEMENT level
1997: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
1998:
1999: -- call START_ACTIVITY to create savepoint, check compatibility
2000: -- and initialize message list
2001: l_return_status := OKL_API.START_ACTIVITY(
2277: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CREATE_CREDIT_APP';
2278:
2279: -- check for logging on PROCEDURE level
2280: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2281: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2282: -- check for logging on STATEMENT level
2283: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2284:
2285: -- call START_ACTIVITY to create savepoint, check compatibility
2279: -- check for logging on PROCEDURE level
2280: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2281: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2282: -- check for logging on STATEMENT level
2283: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2284:
2285: -- call START_ACTIVITY to create savepoint, check compatibility
2286: -- and initialize message list
2287: l_return_status := OKL_API.START_ACTIVITY(
2359: --Call to create Credit Application
2360: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2361: THEN
2362: OKL_DEBUG_PUB.LOG_DEBUG(
2363: FND_LOG.LEVEL_PROCEDURE
2364: ,L_MODULE
2365: ,'begin debug call AR_CMGT_CREDIT_REQUEST_API.CREATE_CREDIT_REQUEST');
2366: END IF;
2367:
2412:
2413: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2414: THEN
2415: OKL_DEBUG_PUB.LOG_DEBUG(
2416: FND_LOG.LEVEL_PROCEDURE
2417: ,L_MODULE
2418: ,'end debug call AR_CMGT_CREDIT_REQUEST_API.CREATE_CREDIT_REQUEST');
2419: END IF;
2420:
2420:
2421: -- write to log
2422: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
2423: OKL_DEBUG_PUB.LOG_DEBUG(
2424: FND_LOG.LEVEL_STATEMENT
2425: ,L_MODULE || ' Result of AR_CMGT_CREDIT_REQUEST_API.CREATE_CREDIT_REQUEST'
2426: ,'l_return_status ' || l_return_status);
2427: END IF; -- end of statement level debug
2428:
2579: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CHECKLIST_INST_CRE';
2580:
2581: -- check for logging on PROCEDURE level
2582: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2583: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2584: -- check for logging on STATEMENT level
2585: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2586:
2587: -- call START_ACTIVITY to create savepoint, check compatibility
2581: -- check for logging on PROCEDURE level
2582: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2583: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2584: -- check for logging on STATEMENT level
2585: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2586:
2587: -- call START_ACTIVITY to create savepoint, check compatibility
2588: -- and initialize message list
2589: l_return_status := OKL_API.START_ACTIVITY(
2612: --with lease application
2613: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2614: THEN
2615: OKL_DEBUG_PUB.LOG_DEBUG(
2616: FND_LOG.LEVEL_PROCEDURE
2617: ,L_MODULE
2618: ,'begin debug call OKL_CHECKLIST_PVT.UPDATE_CHECKLIST_INST_HDR');
2619: END IF;
2620:
2629:
2630: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2631: THEN
2632: OKL_DEBUG_PUB.LOG_DEBUG(
2633: FND_LOG.LEVEL_PROCEDURE
2634: ,L_MODULE
2635: ,'end debug call OKL_CHECKLIST_PVT.UPDATE_CHECKLIST_INST_HDR');
2636: END IF;
2637:
2637:
2638: -- write to log
2639: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
2640: OKL_DEBUG_PUB.LOG_DEBUG(
2641: FND_LOG.LEVEL_STATEMENT
2642: ,L_MODULE || ' Result of OKL_CHECKLIST_PVT.UPDATE_CHECKLIST_INST_HDR'
2643: ,'l_return_status ' || l_return_status);
2644: END IF; -- end of statement level debug
2645:
2679: --Call to create Checklist Instance
2680: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2681: THEN
2682: OKL_DEBUG_PUB.LOG_DEBUG(
2683: FND_LOG.LEVEL_PROCEDURE
2684: ,L_MODULE
2685: ,'begin debug call OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_HDR');
2686: END IF;
2687:
2696:
2697: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2698: THEN
2699: OKL_DEBUG_PUB.LOG_DEBUG(
2700: FND_LOG.LEVEL_PROCEDURE
2701: ,L_MODULE
2702: ,'end debug call OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_HDR');
2703: END IF;
2704:
2704:
2705: -- write to log
2706: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
2707: OKL_DEBUG_PUB.LOG_DEBUG(
2708: FND_LOG.LEVEL_STATEMENT
2709: ,L_MODULE || ' Result of OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_HDR'
2710: ,'l_return_status ' || l_return_status);
2711: END IF; -- end of statement level debug
2712:
2734: --Call to create Checklist Instance Details
2735: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2736: THEN
2737: OKL_DEBUG_PUB.LOG_DEBUG(
2738: FND_LOG.LEVEL_PROCEDURE
2739: ,L_MODULE
2740: ,'begin debug call OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_DTL');
2741: END IF;
2742:
2751:
2752: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2753: THEN
2754: OKL_DEBUG_PUB.LOG_DEBUG(
2755: FND_LOG.LEVEL_PROCEDURE
2756: ,L_MODULE
2757: ,'end debug call OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_DTL');
2758: END IF;
2759:
2759:
2760: -- write to log
2761: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
2762: OKL_DEBUG_PUB.LOG_DEBUG(
2763: FND_LOG.LEVEL_STATEMENT
2764: ,L_MODULE || ' Result of OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_DTL'
2765: ,'l_return_status ' || l_return_status);
2766: END IF; -- end of statement level debug
2767:
2953: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_CRE';
2954:
2955: -- check for logging on PROCEDURE level
2956: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2957: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2958: -- check for logging on STATEMENT level
2959: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2960:
2961: l_lapv_rec := p_lapv_rec;
2955: -- check for logging on PROCEDURE level
2956: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
2957: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
2958: -- check for logging on STATEMENT level
2959: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
2960:
2961: l_lapv_rec := p_lapv_rec;
2962: l_lsqv_rec := p_lsqv_rec;
2963:
2988: --Validate Lease Quote
2989: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
2990: THEN
2991: OKL_DEBUG_PUB.LOG_DEBUG(
2992: FND_LOG.LEVEL_PROCEDURE
2993: ,L_MODULE
2994: ,'begin debug call LEASE_APP_VAL');
2995: END IF;
2996:
3005:
3006: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3007: THEN
3008: OKL_DEBUG_PUB.LOG_DEBUG(
3009: FND_LOG.LEVEL_PROCEDURE
3010: ,L_MODULE
3011: ,'end debug call LEASE_APP_VAL');
3012: END IF;
3013:
3013:
3014: -- write to log
3015: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3016: OKL_DEBUG_PUB.LOG_DEBUG(
3017: FND_LOG.LEVEL_STATEMENT
3018: ,L_MODULE || ' Result of LEASE_APP_VAL'
3019: ,'l_return_status ' || l_return_status);
3020: END IF; -- end of statement level debug
3021:
3036:
3037: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3038: THEN
3039: OKL_DEBUG_PUB.LOG_DEBUG(
3040: FND_LOG.LEVEL_PROCEDURE
3041: ,L_MODULE
3042: ,'begin debug call CHECK_LEASE_QUOTE_DEFAULTS');
3043: END IF;
3044:
3054:
3055: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3056: THEN
3057: OKL_DEBUG_PUB.LOG_DEBUG(
3058: FND_LOG.LEVEL_PROCEDURE
3059: ,L_MODULE
3060: ,'end debug call CHECK_LEASE_QUOTE_DEFAULTS');
3061: END IF;
3062:
3063: -- write to log
3064: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON)
3065: THEN
3066: OKL_DEBUG_PUB.LOG_DEBUG(
3067: FND_LOG.LEVEL_STATEMENT
3068: ,L_MODULE || ' Result of CHECK_LEASE_QUOTE_DEFAULTS'
3069: ,'l_return_status ' || l_return_status);
3070: END IF; -- end of statement level debug
3071:
3077:
3078: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3079: THEN
3080: OKL_DEBUG_PUB.LOG_DEBUG(
3081: FND_LOG.LEVEL_PROCEDURE
3082: ,L_MODULE
3083: ,'begin debug call OKL_LAP_PVT.INSERT_ROW');
3084: END IF;
3085:
3095:
3096: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3097: THEN
3098: OKL_DEBUG_PUB.LOG_DEBUG(
3099: FND_LOG.LEVEL_PROCEDURE
3100: ,L_MODULE
3101: ,'end debug call OKL_LAP_PVT.INSERT_ROW');
3102: END IF;
3103:
3103:
3104: -- write to log
3105: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3106: OKL_DEBUG_PUB.LOG_DEBUG(
3107: FND_LOG.LEVEL_STATEMENT
3108: ,L_MODULE || ' Result of OKL_LAP_PVT.INSERT_ROW'
3109: ,'l_lapv_rec.reference_number ' || to_char(l_lapv_rec.reference_number) ||
3110: ' l_lapv_rec.id '|| l_lapv_rec.id ||
3111: ' result status ' || l_return_status ||
3150:
3151: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3152: THEN
3153: OKL_DEBUG_PUB.LOG_DEBUG(
3154: FND_LOG.LEVEL_PROCEDURE
3155: ,L_MODULE
3156: ,'begin debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
3157: END IF;
3158:
3170:
3171: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3172: THEN
3173: OKL_DEBUG_PUB.LOG_DEBUG(
3174: FND_LOG.LEVEL_PROCEDURE
3175: ,L_MODULE
3176: ,'end debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
3177: END IF;
3178:
3178:
3179: -- write to log
3180: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3181: OKL_DEBUG_PUB.LOG_DEBUG(
3182: FND_LOG.LEVEL_STATEMENT
3183: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE'
3184: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
3185: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
3186: ' result status ' || l_return_status ||
3198: --are updated
3199: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3200: THEN
3201: OKL_DEBUG_PUB.LOG_DEBUG(
3202: FND_LOG.LEVEL_PROCEDURE
3203: ,L_MODULE
3204: ,'begin debug call LEASE_APP_QA_VAL');
3205: END IF;
3206:
3216:
3217: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3218: THEN
3219: OKL_DEBUG_PUB.LOG_DEBUG(
3220: FND_LOG.LEVEL_PROCEDURE
3221: ,L_MODULE
3222: ,'end debug call LEASE_APP_QA_VAL');
3223: END IF;
3224:
3224:
3225: -- write to log
3226: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3227: OKL_DEBUG_PUB.LOG_DEBUG(
3228: FND_LOG.LEVEL_STATEMENT
3229: ,L_MODULE
3230: ,' Result of LEASE_APP_QA_VAL' ||
3231: ' Result Status ' || l_return_status ||
3232: ' QA Result Status ' || l_qa_result);
3242: THEN
3243: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3244: THEN
3245: OKL_DEBUG_PUB.LOG_DEBUG(
3246: FND_LOG.LEVEL_PROCEDURE
3247: ,L_MODULE
3248: ,'begin debug call SET_LEASE_APP_STATUS');
3249: END IF;
3250:
3260:
3261: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3262: THEN
3263: OKL_DEBUG_PUB.LOG_DEBUG(
3264: FND_LOG.LEVEL_PROCEDURE
3265: ,L_MODULE
3266: ,'end debug call SET_LEASE_APP_STATUS');
3267: END IF;
3268:
3268:
3269: -- write to log
3270: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3271: OKL_DEBUG_PUB.LOG_DEBUG(
3272: FND_LOG.LEVEL_STATEMENT
3273: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
3274: ,'return status ' || l_return_status ||
3275: ' x_msg_data ' || x_msg_data);
3276: END IF; -- end of statement level debug
3285: l_lsqv_rec.status := 'PR-INCOMPLETE';
3286: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3287: THEN
3288: OKL_DEBUG_PUB.LOG_DEBUG(
3289: FND_LOG.LEVEL_PROCEDURE
3290: ,L_MODULE
3291: ,'begin debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
3292: END IF;
3293:
3304:
3305: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3306: THEN
3307: OKL_DEBUG_PUB.LOG_DEBUG(
3308: FND_LOG.LEVEL_PROCEDURE
3309: ,L_MODULE
3310: ,'end debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
3311: END IF;
3312:
3312:
3313: -- write to log
3314: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3315: OKL_DEBUG_PUB.LOG_DEBUG(
3316: FND_LOG.LEVEL_STATEMENT
3317: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE'
3318: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
3319: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
3320: ' result status ' || l_return_status ||
3334: --Start Pricing API call
3335: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3336: THEN
3337: OKL_DEBUG_PUB.LOG_DEBUG(
3338: FND_LOG.LEVEL_PROCEDURE
3339: ,L_MODULE
3340: ,'begin debug call OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE');
3341: END IF;
3342:
3350:
3351: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3352: THEN
3353: OKL_DEBUG_PUB.LOG_DEBUG(
3354: FND_LOG.LEVEL_PROCEDURE
3355: ,L_MODULE
3356: ,'end debug call OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE');
3357: END IF;
3358:
3358:
3359: -- write to log
3360: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3361: OKL_DEBUG_PUB.LOG_DEBUG(
3362: FND_LOG.LEVEL_STATEMENT
3363: ,L_MODULE || ' Result of OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE'
3364: ,'l_return_status ' || l_return_status);
3365: END IF; -- end of statement level debug
3366:
3376: ELSE -- if Lease Opportunity Id is null
3377: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3378: THEN
3379: OKL_DEBUG_PUB.LOG_DEBUG(
3380: FND_LOG.LEVEL_PROCEDURE
3381: ,L_MODULE
3382: ,'begin debug call OKL_LEASE_QUOTE_PVT.CREATE_LEASE_QTE');
3383: END IF;
3384:
3395:
3396: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3397: THEN
3398: OKL_DEBUG_PUB.LOG_DEBUG(
3399: FND_LOG.LEVEL_PROCEDURE
3400: ,L_MODULE
3401: ,'end debug call OKL_LEASE_QUOTE_PVT.CREATE_LEASE_QTE');
3402: END IF;
3403:
3403:
3404: -- write to log
3405: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3406: OKL_DEBUG_PUB.LOG_DEBUG(
3407: FND_LOG.LEVEL_STATEMENT
3408: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.CREATE_LEASE_QTE'
3409: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
3410: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
3411: ' result status ' || l_return_status ||
3441:
3442: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3443: THEN
3444: OKL_DEBUG_PUB.LOG_DEBUG(
3445: FND_LOG.LEVEL_PROCEDURE
3446: ,L_MODULE
3447: ,'begin debug call CREATE_CREDIT_APP');
3448: END IF;
3449:
3460:
3461: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3462: THEN
3463: OKL_DEBUG_PUB.LOG_DEBUG(
3464: FND_LOG.LEVEL_PROCEDURE
3465: ,L_MODULE
3466: ,'end debug call CREATE_CREDIT_APP');
3467: END IF;
3468:
3468:
3469: -- write to log
3470: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3471: OKL_DEBUG_PUB.LOG_DEBUG(
3472: FND_LOG.LEVEL_STATEMENT
3473: ,L_MODULE || ' Result of CREATE_CREDIT_APP'
3474: ,' result status ' || l_return_status);
3475: END IF; -- end of statement level debug
3476:
3488: THEN
3489: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3490: THEN
3491: OKL_DEBUG_PUB.LOG_DEBUG(
3492: FND_LOG.LEVEL_PROCEDURE
3493: ,L_MODULE
3494: ,'begin debug call CHECKLIST_INST_CRE');
3495: END IF;
3496:
3506:
3507: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3508: THEN
3509: OKL_DEBUG_PUB.LOG_DEBUG(
3510: FND_LOG.LEVEL_PROCEDURE
3511: ,L_MODULE
3512: ,'end debug call CHECKLIST_INST_CRE');
3513: END IF;
3514:
3514:
3515: -- write to log
3516: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3517: OKL_DEBUG_PUB.LOG_DEBUG(
3518: FND_LOG.LEVEL_STATEMENT
3519: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
3520: ,' result status ' || l_return_status);
3521: END IF; -- end of statement level debug
3522:
3706: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_UPD';
3707:
3708: -- check for logging on PROCEDURE level
3709: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
3710: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
3711: -- check for logging on STATEMENT level
3712: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
3713:
3714: -- call START_ACTIVITY to create savepoint, check compatibility
3708: -- check for logging on PROCEDURE level
3709: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
3710: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
3711: -- check for logging on STATEMENT level
3712: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
3713:
3714: -- call START_ACTIVITY to create savepoint, check compatibility
3715: -- and initialize message list
3716: l_return_status := OKL_API.START_ACTIVITY(
3739: --Validate Lease Quote
3740: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3741: THEN
3742: OKL_DEBUG_PUB.LOG_DEBUG(
3743: FND_LOG.LEVEL_PROCEDURE
3744: ,L_MODULE
3745: ,'begin debug call LEASE_APP_VAL');
3746: END IF;
3747:
3756:
3757: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3758: THEN
3759: OKL_DEBUG_PUB.LOG_DEBUG(
3760: FND_LOG.LEVEL_PROCEDURE
3761: ,L_MODULE
3762: ,'end debug call LEASE_APP_VAL');
3763: END IF;
3764:
3764:
3765: -- write to log
3766: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3767: OKL_DEBUG_PUB.LOG_DEBUG(
3768: FND_LOG.LEVEL_STATEMENT
3769: ,L_MODULE || ' Result of LEASE_APP_VAL'
3770: ,'l_return_status ' || l_return_status);
3771: END IF; -- end of statement level debug
3772:
3788: l_update_quote := 0;
3789: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3790: THEN
3791: OKL_DEBUG_PUB.LOG_DEBUG(
3792: FND_LOG.LEVEL_PROCEDURE
3793: ,L_MODULE
3794: ,'begin debug call CHECK_LEASE_QUOTE_DEFAULTS');
3795: END IF;
3796:
3806:
3807: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3808: THEN
3809: OKL_DEBUG_PUB.LOG_DEBUG(
3810: FND_LOG.LEVEL_PROCEDURE
3811: ,L_MODULE
3812: ,'end debug call CHECK_LEASE_QUOTE_DEFAULTS');
3813: END IF;
3814:
3815: -- write to log
3816: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON)
3817: THEN
3818: OKL_DEBUG_PUB.LOG_DEBUG(
3819: FND_LOG.LEVEL_STATEMENT
3820: ,L_MODULE || ' Result of CHECK_LEASE_QUOTE_DEFAULTS'
3821: ,'l_return_status ' || l_return_status);
3822: END IF; -- end of statement level debug
3823:
3831:
3832: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3833: THEN
3834: OKL_DEBUG_PUB.LOG_DEBUG(
3835: FND_LOG.LEVEL_PROCEDURE
3836: ,L_MODULE
3837: ,'begin debug call OKL_LAP_PVT.UPDATE_ROW');
3838: END IF;
3839:
3849:
3850: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3851: THEN
3852: OKL_DEBUG_PUB.LOG_DEBUG(
3853: FND_LOG.LEVEL_PROCEDURE
3854: ,L_MODULE
3855: ,'end debug call OKL_LAP_PVT.UPDATE_ROW');
3856: END IF;
3857:
3857:
3858: -- write to log
3859: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3860: OKL_DEBUG_PUB.LOG_DEBUG(
3861: FND_LOG.LEVEL_STATEMENT
3862: ,L_MODULE || ' Result of OKL_LAP_PVT.UPDATE_ROW'
3863: ,'l_lapv_rec.reference_number ' || to_char(l_lapv_rec.reference_number) ||
3864: ' expiring lease application with status ' || l_return_status ||
3865: ' x_msg_data ' || x_msg_data);
3877:
3878: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3879: THEN
3880: OKL_DEBUG_PUB.LOG_DEBUG(
3881: FND_LOG.LEVEL_PROCEDURE
3882: ,L_MODULE
3883: ,'begin debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
3884: END IF;
3885:
3896:
3897: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3898: THEN
3899: OKL_DEBUG_PUB.LOG_DEBUG(
3900: FND_LOG.LEVEL_PROCEDURE
3901: ,L_MODULE
3902: ,'end debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
3903: END IF;
3904:
3904:
3905: -- write to log
3906: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3907: OKL_DEBUG_PUB.LOG_DEBUG(
3908: FND_LOG.LEVEL_STATEMENT
3909: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE'
3910: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
3911: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
3912: ' result status ' || l_return_status ||
3954:
3955: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3956: THEN
3957: OKL_DEBUG_PUB.LOG_DEBUG(
3958: FND_LOG.LEVEL_PROCEDURE
3959: ,L_MODULE
3960: ,'begin debug call CHECKLIST_INST_CRE');
3961: END IF;
3962:
3972:
3973: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3974: THEN
3975: OKL_DEBUG_PUB.LOG_DEBUG(
3976: FND_LOG.LEVEL_PROCEDURE
3977: ,L_MODULE
3978: ,'end debug call CHECKLIST_INST_CRE');
3979: END IF;
3980:
3980:
3981: -- write to log
3982: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3983: OKL_DEBUG_PUB.LOG_DEBUG(
3984: FND_LOG.LEVEL_STATEMENT
3985: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
3986: ,' result status ' || l_return_status);
3987: END IF; -- end of statement level debug
3988:
4006: THEN
4007: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4008: THEN
4009: OKL_DEBUG_PUB.LOG_DEBUG(
4010: FND_LOG.LEVEL_PROCEDURE
4011: ,L_MODULE
4012: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
4013: END IF;
4014: --get the existing credit request data
4020:
4021: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4022: THEN
4023: OKL_DEBUG_PUB.LOG_DEBUG(
4024: FND_LOG.LEVEL_PROCEDURE
4025: ,L_MODULE
4026: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
4027: END IF;
4028:
4028:
4029: -- write to log
4030: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
4031: OKL_DEBUG_PUB.LOG_DEBUG(
4032: FND_LOG.LEVEL_STATEMENT
4033: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC'
4034: ,' result status ' || l_return_status);
4035: END IF; -- end of statement level debug
4036:
4049:
4050: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4051: THEN
4052: OKL_DEBUG_PUB.LOG_DEBUG(
4053: FND_LOG.LEVEL_PROCEDURE
4054: ,L_MODULE
4055: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
4056: END IF;
4057: --update the credit application data
4067:
4068: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4069: THEN
4070: OKL_DEBUG_PUB.LOG_DEBUG(
4071: FND_LOG.LEVEL_PROCEDURE
4072: ,L_MODULE
4073: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
4074: END IF;
4075:
4075:
4076: -- write to log
4077: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
4078: OKL_DEBUG_PUB.LOG_DEBUG(
4079: FND_LOG.LEVEL_STATEMENT
4080: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST'
4081: ,' result status ' || l_return_status);
4082: END IF; -- end of statement level debug
4083:
4359: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_VAL';
4360:
4361: -- check for logging on PROCEDURE level
4362: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
4363: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
4364: -- check for logging on STATEMENT level
4365: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
4366:
4367: -- call START_ACTIVITY to create savepoint, check compatibility
4361: -- check for logging on PROCEDURE level
4362: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
4363: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
4364: -- check for logging on STATEMENT level
4365: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
4366:
4367: -- call START_ACTIVITY to create savepoint, check compatibility
4368: -- and initialize message list
4369: l_return_status := OKL_API.START_ACTIVITY(
4775: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_ACCEPT';
4776:
4777: -- check for logging on PROCEDURE level
4778: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
4779: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
4780: -- check for logging on STATEMENT level
4781: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
4782:
4783: -- call START_ACTIVITY to create savepoint, check compatibility
4777: -- check for logging on PROCEDURE level
4778: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
4779: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
4780: -- check for logging on STATEMENT level
4781: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
4782:
4783: -- call START_ACTIVITY to create savepoint, check compatibility
4784: -- and initialize message list
4785: l_return_status := OKL_API.START_ACTIVITY(
4824: --Populate Lease Application rec with the values from database.
4825: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4826: THEN
4827: OKL_DEBUG_PUB.LOG_DEBUG(
4828: FND_LOG.LEVEL_PROCEDURE
4829: ,L_MODULE
4830: ,'begin debug call POPULATE_LEASE_APP');
4831: END IF;
4832:
4842:
4843: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4844: THEN
4845: OKL_DEBUG_PUB.LOG_DEBUG(
4846: FND_LOG.LEVEL_PROCEDURE
4847: ,L_MODULE
4848: ,'end debug call POPULATE_LEASE_APP');
4849: END IF;
4850:
4850:
4851: -- write to log
4852: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
4853: OKL_DEBUG_PUB.LOG_DEBUG(
4854: FND_LOG.LEVEL_STATEMENT
4855: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
4856: ,'l_return_status ' || l_return_status);
4857: END IF; -- end of statement level debug
4858:
4870: --Pricing Accepted
4871: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4872: THEN
4873: OKL_DEBUG_PUB.LOG_DEBUG(
4874: FND_LOG.LEVEL_PROCEDURE
4875: ,L_MODULE
4876: ,'begin debug call LEASE_APP_VAL');
4877: END IF;
4878:
4887:
4888: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4889: THEN
4890: OKL_DEBUG_PUB.LOG_DEBUG(
4891: FND_LOG.LEVEL_PROCEDURE
4892: ,L_MODULE
4893: ,'end debug call LEASE_APP_VAL');
4894: END IF;
4895:
4895:
4896: -- write to log
4897: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
4898: OKL_DEBUG_PUB.LOG_DEBUG(
4899: FND_LOG.LEVEL_STATEMENT
4900: ,L_MODULE || ' Result of LEASE_APP_VAL'
4901: ,'l_return_status ' || l_return_status);
4902: END IF; -- end of statement level debug
4903:
4910: --Fixed added Bug 5647107 ssdeshpa start
4911: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4912: THEN
4913: OKL_DEBUG_PUB.LOG_DEBUG(
4914: FND_LOG.LEVEL_PROCEDURE
4915: ,L_MODULE
4916: ,'begin debug call VALIDATE_LE_ID');
4917: END IF;
4918:
4920:
4921: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4922: THEN
4923: OKL_DEBUG_PUB.LOG_DEBUG(
4924: FND_LOG.LEVEL_PROCEDURE
4925: ,L_MODULE
4926: ,'end debug call VALIDATE_LE_ID');
4927: END IF;
4928:
4928:
4929: -- write to log
4930: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
4931: OKL_DEBUG_PUB.LOG_DEBUG(
4932: FND_LOG.LEVEL_STATEMENT
4933: ,L_MODULE || ' Result of VALIDATE_LE_ID'
4934: ,'l_return_status ' || l_return_status);
4935: END IF; -- end of statement level debug
4936:
4943:
4944: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4945: THEN
4946: OKL_DEBUG_PUB.LOG_DEBUG(
4947: FND_LOG.LEVEL_PROCEDURE
4948: ,L_MODULE
4949: ,'begin debug call SET_LEASE_APP_STATUS');
4950: END IF;
4951:
4960:
4961: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4962: THEN
4963: OKL_DEBUG_PUB.LOG_DEBUG(
4964: FND_LOG.LEVEL_PROCEDURE
4965: ,L_MODULE
4966: ,'end debug call SET_LEASE_APP_STATUS');
4967: END IF;
4968:
4968:
4969: -- write to log
4970: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
4971: OKL_DEBUG_PUB.LOG_DEBUG(
4972: FND_LOG.LEVEL_STATEMENT
4973: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
4974: ,'l_return_status ' || l_return_status);
4975: END IF; -- end of statement level debug
4976:
4985:
4986: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4987: THEN
4988: OKL_DEBUG_PUB.LOG_DEBUG(
4989: FND_LOG.LEVEL_PROCEDURE
4990: ,L_MODULE
4991: ,'begin debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
4992: END IF;
4993:
5004:
5005: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5006: THEN
5007: OKL_DEBUG_PUB.LOG_DEBUG(
5008: FND_LOG.LEVEL_PROCEDURE
5009: ,L_MODULE
5010: ,'end debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
5011: END IF;
5012:
5012:
5013: -- write to log
5014: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5015: OKL_DEBUG_PUB.LOG_DEBUG(
5016: FND_LOG.LEVEL_STATEMENT
5017: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE'
5018: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
5019: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
5020: ' result status ' || l_return_status ||
5122: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_WITHDRAW';
5123:
5124: -- check for logging on PROCEDURE level
5125: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
5126: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
5127: -- check for logging on STATEMENT level
5128: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
5129:
5130: -- call START_ACTIVITY to create savepoint, check compatibility
5124: -- check for logging on PROCEDURE level
5125: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
5126: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
5127: -- check for logging on STATEMENT level
5128: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
5129:
5130: -- call START_ACTIVITY to create savepoint, check compatibility
5131: -- and initialize message list
5132: l_return_status := OKL_API.START_ACTIVITY(
5155: --If approved from credit analyst then change the status to withdrawn
5156: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5157: THEN
5158: OKL_DEBUG_PUB.LOG_DEBUG(
5159: FND_LOG.LEVEL_PROCEDURE
5160: ,L_MODULE
5161: ,'begin debug call POPULATE_LEASE_APP');
5162: END IF;
5163:
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 POPULATE_LEASE_APP');
5180: END IF;
5181:
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 POPULATE_LEASE_APP'
5187: ,'l_return_status ' || l_return_status);
5188: END IF; -- end of statement level debug
5189:
5197:
5198: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5199: THEN
5200: OKL_DEBUG_PUB.LOG_DEBUG(
5201: FND_LOG.LEVEL_PROCEDURE
5202: ,L_MODULE
5203: ,'begin debug call CHECK_ELIGIBILITY');
5204: END IF;
5205:
5215:
5216: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5217: THEN
5218: OKL_DEBUG_PUB.LOG_DEBUG(
5219: FND_LOG.LEVEL_PROCEDURE
5220: ,L_MODULE
5221: ,'end debug call CHECK_ELIGIBILITY');
5222: END IF;
5223:
5223:
5224: -- write to log
5225: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5226: OKL_DEBUG_PUB.LOG_DEBUG(
5227: FND_LOG.LEVEL_STATEMENT
5228: ,L_MODULE || ' Result of CHECK_ELIGIBILITY'
5229: ,'return status ' || l_return_status ||
5230: ' x_msg_data ' || x_msg_data);
5231: END IF; -- end of statement level debug
5244:
5245: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5246: THEN
5247: OKL_DEBUG_PUB.LOG_DEBUG(
5248: FND_LOG.LEVEL_PROCEDURE
5249: ,L_MODULE
5250: ,'begin debug call OKL_LAP_PVT.UPDATE_ROW');
5251: END IF;
5252:
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 OKL_LAP_PVT.UPDATE_ROW');
5268: END IF;
5269:
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 OKL_LAP_PVT.UPDATE_ROW'
5275: ,'l_return_status ' || l_return_status);
5276: END IF; -- end of statement level debug
5277:
5288: --Call the API to process the lease app subsidy pool
5289: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5290: THEN
5291: OKL_DEBUG_PUB.LOG_DEBUG(
5292: FND_LOG.LEVEL_PROCEDURE
5293: ,L_MODULE
5294: ,'begin debug call OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL');
5295: END IF;
5296:
5307:
5308: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5309: THEN
5310: OKL_DEBUG_PUB.LOG_DEBUG(
5311: FND_LOG.LEVEL_PROCEDURE
5312: ,L_MODULE
5313: ,'end debug call OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL');
5314: END IF;
5315:
5315:
5316: -- write to log
5317: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5318: OKL_DEBUG_PUB.LOG_DEBUG(
5319: FND_LOG.LEVEL_STATEMENT
5320: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL'
5321: ,'l_return_status ' || l_return_status);
5322: END IF; -- end of statement level debug
5323:
5333: --of parent to original status
5334: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5335: THEN
5336: OKL_DEBUG_PUB.LOG_DEBUG(
5337: FND_LOG.LEVEL_PROCEDURE
5338: ,L_MODULE
5339: ,'begin debug call REVERT_TO_ORIG_STATUS');
5340: END IF;
5341:
5349:
5350: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5351: THEN
5352: OKL_DEBUG_PUB.LOG_DEBUG(
5353: FND_LOG.LEVEL_PROCEDURE
5354: ,L_MODULE
5355: ,'end debug call REVERT_TO_ORIG_STATUS');
5356: END IF;
5357:
5357:
5358: -- write to log
5359: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5360: OKL_DEBUG_PUB.LOG_DEBUG(
5361: FND_LOG.LEVEL_STATEMENT
5362: ,L_MODULE || ' Result of REVERT_TO_ORIG_STATUS'
5363: ,'l_return_status ' || l_return_status);
5364: END IF; -- end of statement level debug
5365:
5530: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_DUP';
5531:
5532: -- check for logging on PROCEDURE level
5533: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
5534: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
5535: -- check for logging on STATEMENT level
5536: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
5537:
5538: -- call START_ACTIVITY to create savepoint, check compatibility
5532: -- check for logging on PROCEDURE level
5533: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
5534: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
5535: -- check for logging on STATEMENT level
5536: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
5537:
5538: -- call START_ACTIVITY to create savepoint, check compatibility
5539: -- and initialize message list
5540: l_return_status := OKL_API.START_ACTIVITY(
5574:
5575: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5576: THEN
5577: OKL_DEBUG_PUB.LOG_DEBUG(
5578: FND_LOG.LEVEL_PROCEDURE
5579: ,L_MODULE
5580: ,'begin debug call CHECK_LEASE_QUOTE_DEFAULTS');
5581: END IF;
5582:
5592:
5593: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5594: THEN
5595: OKL_DEBUG_PUB.LOG_DEBUG(
5596: FND_LOG.LEVEL_PROCEDURE
5597: ,L_MODULE
5598: ,'end debug call CHECK_LEASE_QUOTE_DEFAULTS');
5599: END IF;
5600:
5601: -- write to log
5602: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON)
5603: THEN
5604: OKL_DEBUG_PUB.LOG_DEBUG(
5605: FND_LOG.LEVEL_STATEMENT
5606: ,L_MODULE || ' Result of CHECK_LEASE_QUOTE_DEFAULTS'
5607: ,'l_return_status ' || l_return_status);
5608: END IF; -- end of statement level debug
5609:
5622: --Validate Lease Quote
5623: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5624: THEN
5625: OKL_DEBUG_PUB.LOG_DEBUG(
5626: FND_LOG.LEVEL_PROCEDURE
5627: ,L_MODULE
5628: ,'begin debug call LEASE_APP_VAL');
5629: END IF;
5630:
5639:
5640: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5641: THEN
5642: OKL_DEBUG_PUB.LOG_DEBUG(
5643: FND_LOG.LEVEL_PROCEDURE
5644: ,L_MODULE
5645: ,'end debug call LEASE_APP_VAL');
5646: END IF;
5647:
5647:
5648: -- write to log
5649: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5650: OKL_DEBUG_PUB.LOG_DEBUG(
5651: FND_LOG.LEVEL_STATEMENT
5652: ,L_MODULE || ' Result of LEASE_APP_VAL'
5653: ,'l_return_status ' || l_return_status);
5654: END IF; -- end of statement level debug
5655:
5661:
5662: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5663: THEN
5664: OKL_DEBUG_PUB.LOG_DEBUG(
5665: FND_LOG.LEVEL_PROCEDURE
5666: ,L_MODULE
5667: ,'begin debug call OKL_LAP_PVT.INSERT_ROW');
5668: END IF;
5669:
5679:
5680: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5681: THEN
5682: OKL_DEBUG_PUB.LOG_DEBUG(
5683: FND_LOG.LEVEL_PROCEDURE
5684: ,L_MODULE
5685: ,'end debug call OKL_LAP_PVT.INSERT_ROW');
5686: END IF;
5687:
5687:
5688: -- write to log
5689: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5690: OKL_DEBUG_PUB.LOG_DEBUG(
5691: FND_LOG.LEVEL_STATEMENT
5692: ,L_MODULE || ' Result of OKL_LAP_PVT.INSERT_ROW'
5693: ,'l_lapv_rec.reference_number ' || to_char(l_lapv_rec.reference_number) ||
5694: ' l_lapv_rec.id '|| l_lapv_rec.id ||
5695: ' result status ' || l_return_status ||
5757:
5758: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5759: THEN
5760: OKL_DEBUG_PUB.LOG_DEBUG(
5761: FND_LOG.LEVEL_PROCEDURE
5762: ,L_MODULE
5763: ,'begin debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
5764: END IF;
5765:
5777:
5778: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5779: THEN
5780: OKL_DEBUG_PUB.LOG_DEBUG(
5781: FND_LOG.LEVEL_PROCEDURE
5782: ,L_MODULE
5783: ,'end debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
5784: END IF;
5785:
5785:
5786: -- write to log
5787: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5788: OKL_DEBUG_PUB.LOG_DEBUG(
5789: FND_LOG.LEVEL_STATEMENT
5790: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE'
5791: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
5792: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
5793: ' result status ' || l_return_status ||
5808: THEN
5809: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5810: THEN
5811: OKL_DEBUG_PUB.LOG_DEBUG(
5812: FND_LOG.LEVEL_PROCEDURE
5813: ,L_MODULE
5814: ,'begin debug call LEASE_APP_QA_VAL');
5815: END IF;
5816:
5826:
5827: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5828: THEN
5829: OKL_DEBUG_PUB.LOG_DEBUG(
5830: FND_LOG.LEVEL_PROCEDURE
5831: ,L_MODULE
5832: ,'end debug call LEASE_APP_QA_VAL');
5833: END IF;
5834:
5834:
5835: -- write to log
5836: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5837: OKL_DEBUG_PUB.LOG_DEBUG(
5838: FND_LOG.LEVEL_STATEMENT
5839: ,L_MODULE
5840: ,' Result of LEASE_APP_QA_VAL' ||
5841: ' Result Status ' || l_return_status ||
5842: ' QA Result Status ' || l_qa_result);
5852: THEN
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 SET_LEASE_APP_STATUS');
5859: END IF;
5860:
5870:
5871: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5872: THEN
5873: OKL_DEBUG_PUB.LOG_DEBUG(
5874: FND_LOG.LEVEL_PROCEDURE
5875: ,L_MODULE
5876: ,'end debug call SET_LEASE_APP_STATUS');
5877: END IF;
5878:
5878:
5879: -- write to log
5880: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5881: OKL_DEBUG_PUB.LOG_DEBUG(
5882: FND_LOG.LEVEL_STATEMENT
5883: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
5884: ,'return status ' || l_return_status ||
5885: ' x_msg_data ' || x_msg_data);
5886: END IF; -- end of statement level debug
5894: l_lsqv_rec.status := 'PR-INCOMPLETE';
5895: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5896: THEN
5897: OKL_DEBUG_PUB.LOG_DEBUG(
5898: FND_LOG.LEVEL_PROCEDURE
5899: ,L_MODULE
5900: ,'begin debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
5901: END IF;
5902:
5913:
5914: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5915: THEN
5916: OKL_DEBUG_PUB.LOG_DEBUG(
5917: FND_LOG.LEVEL_PROCEDURE
5918: ,L_MODULE
5919: ,'end debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
5920: END IF;
5921:
5921:
5922: -- write to log
5923: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5924: OKL_DEBUG_PUB.LOG_DEBUG(
5925: FND_LOG.LEVEL_STATEMENT
5926: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE'
5927: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
5928: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
5929: ' result status ' || l_return_status ||
5941: --Start Pricing API call
5942: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5943: THEN
5944: OKL_DEBUG_PUB.LOG_DEBUG(
5945: FND_LOG.LEVEL_PROCEDURE
5946: ,L_MODULE
5947: ,'begin debug call OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE');
5948: END IF;
5949:
5957:
5958: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5959: THEN
5960: OKL_DEBUG_PUB.LOG_DEBUG(
5961: FND_LOG.LEVEL_PROCEDURE
5962: ,L_MODULE
5963: ,'end debug call OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE');
5964: END IF;
5965:
5965:
5966: -- write to log
5967: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
5968: OKL_DEBUG_PUB.LOG_DEBUG(
5969: FND_LOG.LEVEL_STATEMENT
5970: ,L_MODULE || ' Result of OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE'
5971: ,'l_return_status ' || l_return_status);
5972: END IF; -- end of statement level debug
5973:
5983:
5984: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5985: THEN
5986: OKL_DEBUG_PUB.LOG_DEBUG(
5987: FND_LOG.LEVEL_PROCEDURE
5988: ,L_MODULE
5989: ,'begin debug call CREATE_CREDIT_APP');
5990: END IF;
5991:
6002:
6003: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6004: THEN
6005: OKL_DEBUG_PUB.LOG_DEBUG(
6006: FND_LOG.LEVEL_PROCEDURE
6007: ,L_MODULE
6008: ,'end debug call CREATE_CREDIT_APP');
6009: END IF;
6010:
6010:
6011: -- write to log
6012: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6013: OKL_DEBUG_PUB.LOG_DEBUG(
6014: FND_LOG.LEVEL_STATEMENT
6015: ,L_MODULE || ' Result of CREATE_CREDIT_APP'
6016: ,' result status ' || l_return_status);
6017: END IF; -- end of statement level debug
6018:
6030: THEN
6031: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6032: THEN
6033: OKL_DEBUG_PUB.LOG_DEBUG(
6034: FND_LOG.LEVEL_PROCEDURE
6035: ,L_MODULE
6036: ,'begin debug call CHECKLIST_INST_CRE');
6037: END IF;
6038:
6048:
6049: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6050: THEN
6051: OKL_DEBUG_PUB.LOG_DEBUG(
6052: FND_LOG.LEVEL_PROCEDURE
6053: ,L_MODULE
6054: ,'end debug call CHECKLIST_INST_CRE');
6055: END IF;
6056:
6056:
6057: -- write to log
6058: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6059: OKL_DEBUG_PUB.LOG_DEBUG(
6060: FND_LOG.LEVEL_STATEMENT
6061: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
6062: ,' result status ' || l_return_status);
6063: END IF; -- end of statement level debug
6064:
6204: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SUBMIT_FOR_PRICING';
6205:
6206: -- check for logging on PROCEDURE level
6207: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
6208: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
6209: -- check for logging on STATEMENT level
6210: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
6211:
6212: -- call START_ACTIVITY to create savepoint, check compatibility
6206: -- check for logging on PROCEDURE level
6207: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
6208: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
6209: -- check for logging on STATEMENT level
6210: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
6211:
6212: -- call START_ACTIVITY to create savepoint, check compatibility
6213: -- and initialize message list
6214: l_return_status := OKL_API.START_ACTIVITY(
6253: --Populate Lease Application rec with the values from database.
6254: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6255: THEN
6256: OKL_DEBUG_PUB.LOG_DEBUG(
6257: FND_LOG.LEVEL_PROCEDURE
6258: ,L_MODULE
6259: ,'begin debug call POPULATE_LEASE_APP');
6260: END IF;
6261:
6271:
6272: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6273: THEN
6274: OKL_DEBUG_PUB.LOG_DEBUG(
6275: FND_LOG.LEVEL_PROCEDURE
6276: ,L_MODULE
6277: ,'end debug call POPULATE_LEASE_APP');
6278: END IF;
6279:
6279:
6280: -- write to log
6281: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6282: OKL_DEBUG_PUB.LOG_DEBUG(
6283: FND_LOG.LEVEL_STATEMENT
6284: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
6285: ,'l_return_status ' || l_return_status);
6286: END IF; -- end of statement level debug
6287:
6300: --Pricing Submitted
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 LEASE_APP_VAL');
6307: END IF;
6308:
6317:
6318: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6319: THEN
6320: OKL_DEBUG_PUB.LOG_DEBUG(
6321: FND_LOG.LEVEL_PROCEDURE
6322: ,L_MODULE
6323: ,'end debug call LEASE_APP_VAL');
6324: END IF;
6325:
6325:
6326: -- write to log
6327: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6328: OKL_DEBUG_PUB.LOG_DEBUG(
6329: FND_LOG.LEVEL_STATEMENT
6330: ,L_MODULE || ' Result of LEASE_APP_VAL'
6331: ,'l_return_status ' || l_return_status);
6332: END IF; -- end of statement level debug
6333:
6342:
6343: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6344: THEN
6345: OKL_DEBUG_PUB.LOG_DEBUG(
6346: FND_LOG.LEVEL_PROCEDURE
6347: ,L_MODULE
6348: ,'begin debug call SET_LEASE_APP_STATUS');
6349: END IF;
6350:
6359:
6360: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6361: THEN
6362: OKL_DEBUG_PUB.LOG_DEBUG(
6363: FND_LOG.LEVEL_PROCEDURE
6364: ,L_MODULE
6365: ,'end debug call SET_LEASE_APP_STATUS');
6366: END IF;
6367:
6367:
6368: -- write to log
6369: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6370: OKL_DEBUG_PUB.LOG_DEBUG(
6371: FND_LOG.LEVEL_STATEMENT
6372: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
6373: ,'l_return_status ' || l_return_status);
6374: END IF; -- end of statement level debug
6375:
6387: --Call the API to submit the lease quote for Pricing Approval
6388: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6389: THEN
6390: OKL_DEBUG_PUB.LOG_DEBUG(
6391: FND_LOG.LEVEL_PROCEDURE
6392: ,L_MODULE
6393: ,'begin debug call OKL_LEASE_QUOTE_PVT.SUBMIT_LEASE_QTE');
6394: END IF;
6395:
6404:
6405: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6406: THEN
6407: OKL_DEBUG_PUB.LOG_DEBUG(
6408: FND_LOG.LEVEL_PROCEDURE
6409: ,L_MODULE
6410: ,'end debug call OKL_LEASE_QUOTE_PVT.SUBMIT_LEASE_QTE');
6411: END IF;
6412:
6412:
6413: -- write to log
6414: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6415: OKL_DEBUG_PUB.LOG_DEBUG(
6416: FND_LOG.LEVEL_STATEMENT
6417: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.SUBMIT_LEASE_QTE'
6418: ,'l_return_status ' || l_return_status);
6419: END IF; -- end of statement level debug
6420:
6431: --Call the API to process the lease app subsidy pool
6432: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6433: THEN
6434: OKL_DEBUG_PUB.LOG_DEBUG(
6435: FND_LOG.LEVEL_PROCEDURE
6436: ,L_MODULE
6437: ,'begin debug call OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL');
6438: END IF;
6439:
6450:
6451: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6452: THEN
6453: OKL_DEBUG_PUB.LOG_DEBUG(
6454: FND_LOG.LEVEL_PROCEDURE
6455: ,L_MODULE
6456: ,'end debug call OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL');
6457: END IF;
6458:
6458:
6459: -- write to log
6460: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6461: OKL_DEBUG_PUB.LOG_DEBUG(
6462: FND_LOG.LEVEL_STATEMENT
6463: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL'
6464: ,'l_return_status ' || l_return_status);
6465: END IF; -- end of statement level debug
6466:
6636: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SUBMIT_FOR_CREDIT';
6637:
6638: -- check for logging on PROCEDURE level
6639: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
6640: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
6641: -- check for logging on STATEMENT level
6642: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
6643:
6644: -- call START_ACTIVITY to create savepoint, check compatibility
6638: -- check for logging on PROCEDURE level
6639: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
6640: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
6641: -- check for logging on STATEMENT level
6642: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
6643:
6644: -- call START_ACTIVITY to create savepoint, check compatibility
6645: -- and initialize message list
6646: l_return_status := OKL_API.START_ACTIVITY(
6664: --Populate Lease Application rec with the values from database.
6665: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6666: THEN
6667: OKL_DEBUG_PUB.LOG_DEBUG(
6668: FND_LOG.LEVEL_PROCEDURE
6669: ,L_MODULE
6670: ,'begin debug call POPULATE_LEASE_APP');
6671: END IF;
6672:
6682:
6683: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6684: THEN
6685: OKL_DEBUG_PUB.LOG_DEBUG(
6686: FND_LOG.LEVEL_PROCEDURE
6687: ,L_MODULE
6688: ,'end debug call POPULATE_LEASE_APP');
6689: END IF;
6690:
6690:
6691: -- write to log
6692: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6693: OKL_DEBUG_PUB.LOG_DEBUG(
6694: FND_LOG.LEVEL_STATEMENT
6695: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
6696: ,'l_return_status ' || l_return_status);
6697: END IF; -- end of statement level debug
6698:
6760: --Pricing Accepted
6761: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6762: THEN
6763: OKL_DEBUG_PUB.LOG_DEBUG(
6764: FND_LOG.LEVEL_PROCEDURE
6765: ,L_MODULE
6766: ,'begin debug call LEASE_APP_VAL');
6767: END IF;
6768:
6777:
6778: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6779: THEN
6780: OKL_DEBUG_PUB.LOG_DEBUG(
6781: FND_LOG.LEVEL_PROCEDURE
6782: ,L_MODULE
6783: ,'end debug call LEASE_APP_VAL');
6784: END IF;
6785:
6785:
6786: -- write to log
6787: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6788: OKL_DEBUG_PUB.LOG_DEBUG(
6789: FND_LOG.LEVEL_STATEMENT
6790: ,L_MODULE || ' Result of LEASE_APP_VAL'
6791: ,'l_return_status ' || l_return_status);
6792: END IF; -- end of statement level debug
6793:
6819: --before submitting it for approval
6820: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6821: THEN
6822: OKL_DEBUG_PUB.LOG_DEBUG(
6823: FND_LOG.LEVEL_PROCEDURE
6824: ,L_MODULE
6825: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
6826: END IF;
6827: --get the existing credit request data
6833:
6834: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6835: THEN
6836: OKL_DEBUG_PUB.LOG_DEBUG(
6837: FND_LOG.LEVEL_PROCEDURE
6838: ,L_MODULE
6839: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
6840: END IF;
6841:
6841:
6842: -- write to log
6843: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6844: OKL_DEBUG_PUB.LOG_DEBUG(
6845: FND_LOG.LEVEL_STATEMENT
6846: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC'
6847: ,' result status ' || l_return_status);
6848: END IF; -- end of statement level debug
6849:
6859:
6860: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6861: THEN
6862: OKL_DEBUG_PUB.LOG_DEBUG(
6863: FND_LOG.LEVEL_PROCEDURE
6864: ,L_MODULE
6865: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
6866: END IF;
6867: --update the credit application data
6877:
6878: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6879: THEN
6880: OKL_DEBUG_PUB.LOG_DEBUG(
6881: FND_LOG.LEVEL_PROCEDURE
6882: ,L_MODULE
6883: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
6884: END IF;
6885:
6885:
6886: -- write to log
6887: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6888: OKL_DEBUG_PUB.LOG_DEBUG(
6889: FND_LOG.LEVEL_STATEMENT
6890: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST'
6891: ,' result status ' || l_return_status);
6892: END IF; -- end of statement level debug
6893:
6932: */
6933: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6934: THEN
6935: OKL_DEBUG_PUB.LOG_DEBUG(
6936: FND_LOG.LEVEL_PROCEDURE
6937: ,L_MODULE
6938: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS');
6939: END IF;
6940:
6951:
6952: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6953: THEN
6954: OKL_DEBUG_PUB.LOG_DEBUG(
6955: FND_LOG.LEVEL_PROCEDURE
6956: ,L_MODULE
6957: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS');
6958: END IF;
6959:
6959:
6960: -- write to log
6961: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6962: OKL_DEBUG_PUB.LOG_DEBUG(
6963: FND_LOG.LEVEL_STATEMENT
6964: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS'
6965: ,'l_return_status ' || l_return_status);
6966: END IF; -- end of statement level debug
6967:
6975:
6976: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6977: THEN
6978: OKL_DEBUG_PUB.LOG_DEBUG(
6979: FND_LOG.LEVEL_PROCEDURE
6980: ,L_MODULE
6981: ,'begin debug call SET_LEASE_APP_STATUS');
6982: END IF;
6983:
6992:
6993: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
6994: THEN
6995: OKL_DEBUG_PUB.LOG_DEBUG(
6996: FND_LOG.LEVEL_PROCEDURE
6997: ,L_MODULE
6998: ,'end debug call SET_LEASE_APP_STATUS');
6999: END IF;
7000:
7000:
7001: -- write to log
7002: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7003: OKL_DEBUG_PUB.LOG_DEBUG(
7004: FND_LOG.LEVEL_STATEMENT
7005: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
7006: ,'l_return_status ' || l_return_status);
7007: END IF; -- end of statement level debug
7008:
7181: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.IS_VALID_PROGRAM_AGREEMENT';
7182:
7183: -- check for logging on PROCEDURE level
7184: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7185: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7186: -- check for logging on STATEMENT level
7187: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7188:
7189: OPEN pgm_agr_dtls_csr(p_pgm_agr_id);
7183: -- check for logging on PROCEDURE level
7184: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7185: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7186: -- check for logging on STATEMENT level
7187: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7188:
7189: OPEN pgm_agr_dtls_csr(p_pgm_agr_id);
7190: FETCH pgm_agr_dtls_csr INTO pgm_agr_dtls_rec;
7191: CLOSE pgm_agr_dtls_csr;
7200: --Populate the EC rec
7201: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7202: THEN
7203: OKL_DEBUG_PUB.LOG_DEBUG(
7204: FND_LOG.LEVEL_PROCEDURE
7205: ,L_MODULE
7206: ,'begin debug call POPULATE_EC_REC');
7207: END IF;
7208:
7217:
7218: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7219: THEN
7220: OKL_DEBUG_PUB.LOG_DEBUG(
7221: FND_LOG.LEVEL_PROCEDURE
7222: ,L_MODULE
7223: ,'end debug call POPULATE_EC_REC');
7224: END IF;
7225:
7225:
7226: -- write to log
7227: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7228: OKL_DEBUG_PUB.LOG_DEBUG(
7229: FND_LOG.LEVEL_STATEMENT
7230: ,L_MODULE || ' Result of POPULATE_EC_REC'
7231: ,'l_return_status ' || l_return_status);
7232: END IF; -- end of statement level debug
7233:
7242:
7243: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7244: THEN
7245: OKL_DEBUG_PUB.LOG_DEBUG(
7246: FND_LOG.LEVEL_PROCEDURE
7247: ,L_MODULE
7248: ,'begin debug call OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA');
7249: END IF;
7250:
7259:
7260: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7261: THEN
7262: OKL_DEBUG_PUB.LOG_DEBUG(
7263: FND_LOG.LEVEL_PROCEDURE
7264: ,L_MODULE
7265: ,'end debug call OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA');
7266: END IF;
7267:
7267:
7268: -- write to log
7269: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7270: OKL_DEBUG_PUB.LOG_DEBUG(
7271: FND_LOG.LEVEL_STATEMENT
7272: ,L_MODULE || ' Result of OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA'
7273: ,'l_return_status ' || l_return_status);
7274: END IF; -- end of statement level debug
7275:
7378: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.IS_VALID_LEASEAPP_TEMPLATE';
7379:
7380: -- check for logging on PROCEDURE level
7381: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7382: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7383: -- check for logging on STATEMENT level
7384: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7385:
7386: IF(p_lat_id IS NOT NULL
7380: -- check for logging on PROCEDURE level
7381: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7382: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7383: -- check for logging on STATEMENT level
7384: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7385:
7386: IF(p_lat_id IS NOT NULL
7387: AND p_lat_id <> OKL_API.G_MISS_NUM)
7388: THEN
7401: --Populate the EC rec
7402: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7403: THEN
7404: OKL_DEBUG_PUB.LOG_DEBUG(
7405: FND_LOG.LEVEL_PROCEDURE
7406: ,L_MODULE
7407: ,'begin debug call POPULATE_EC_REC');
7408: END IF;
7409:
7418:
7419: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7420: THEN
7421: OKL_DEBUG_PUB.LOG_DEBUG(
7422: FND_LOG.LEVEL_PROCEDURE
7423: ,L_MODULE
7424: ,'end debug call POPULATE_EC_REC');
7425: END IF;
7426:
7426:
7427: -- write to log
7428: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7429: OKL_DEBUG_PUB.LOG_DEBUG(
7430: FND_LOG.LEVEL_STATEMENT
7431: ,L_MODULE || ' Result of POPULATE_EC_REC'
7432: ,'l_return_status ' || l_return_status);
7433: END IF; -- end of statement level debug
7434:
7443:
7444: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7445: THEN
7446: OKL_DEBUG_PUB.LOG_DEBUG(
7447: FND_LOG.LEVEL_PROCEDURE
7448: ,L_MODULE
7449: ,'begin debug call OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA');
7450: END IF;
7451:
7460:
7461: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7462: THEN
7463: OKL_DEBUG_PUB.LOG_DEBUG(
7464: FND_LOG.LEVEL_PROCEDURE
7465: ,L_MODULE
7466: ,'end debug call OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA');
7467: END IF;
7468:
7468:
7469: -- write to log
7470: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7471: OKL_DEBUG_PUB.LOG_DEBUG(
7472: FND_LOG.LEVEL_STATEMENT
7473: ,L_MODULE || ' Result of OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA'
7474: ,'l_return_status ' || l_return_status);
7475: END IF; -- end of statement level debug
7476:
7565: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.GET_CREDIT_CLASSFICATION';
7566:
7567: -- check for logging on PROCEDURE level
7568: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7569: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7570: -- check for logging on STATEMENT level
7571: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7572:
7573: l_party_id := p_party_id;
7567: -- check for logging on PROCEDURE level
7568: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7569: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7570: -- check for logging on STATEMENT level
7571: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7572:
7573: l_party_id := p_party_id;
7574: l_cust_acct_id := p_cust_acct_id;
7575: l_site_use_id := p_site_use_id;
7681: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.ACCEPT_COUNTER_OFFER';
7682:
7683: -- check for logging on PROCEDURE level
7684: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7685: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7686: -- check for logging on STATEMENT level
7687: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7688:
7689: -- call START_ACTIVITY to create savepoint, check compatibility
7683: -- check for logging on PROCEDURE level
7684: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7685: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7686: -- check for logging on STATEMENT level
7687: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7688:
7689: -- call START_ACTIVITY to create savepoint, check compatibility
7690: -- and initialize message list
7691: l_return_status := OKL_API.START_ACTIVITY(
7733:
7734: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7735: THEN
7736: OKL_DEBUG_PUB.LOG_DEBUG(
7737: FND_LOG.LEVEL_PROCEDURE
7738: ,L_MODULE
7739: ,'begin debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
7740: END IF;
7741:
7752:
7753: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7754: THEN
7755: OKL_DEBUG_PUB.LOG_DEBUG(
7756: FND_LOG.LEVEL_PROCEDURE
7757: ,L_MODULE
7758: ,'end debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
7759: END IF;
7760:
7760:
7761: -- write to log
7762: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7763: OKL_DEBUG_PUB.LOG_DEBUG(
7764: FND_LOG.LEVEL_STATEMENT
7765: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE'
7766: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
7767: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
7768: ' result status ' || l_return_status ||
7781:
7782: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7783: THEN
7784: OKL_DEBUG_PUB.LOG_DEBUG(
7785: FND_LOG.LEVEL_PROCEDURE
7786: ,L_MODULE
7787: ,'begin debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
7788: END IF;
7789:
7800:
7801: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7802: THEN
7803: OKL_DEBUG_PUB.LOG_DEBUG(
7804: FND_LOG.LEVEL_PROCEDURE
7805: ,L_MODULE
7806: ,'end debug call OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE');
7807: END IF;
7808:
7808:
7809: -- write to log
7810: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
7811: OKL_DEBUG_PUB.LOG_DEBUG(
7812: FND_LOG.LEVEL_STATEMENT
7813: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE'
7814: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
7815: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
7816: ' result status ' || l_return_status ||
7952: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.REVERT_LEASEAPP';
7953:
7954: -- check for logging on PROCEDURE level
7955: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7956: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7957: -- check for logging on STATEMENT level
7958: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7959:
7960: -- call START_ACTIVITY to create savepoint, check compatibility
7954: -- check for logging on PROCEDURE level
7955: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
7956: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
7957: -- check for logging on STATEMENT level
7958: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
7959:
7960: -- call START_ACTIVITY to create savepoint, check compatibility
7961: -- and initialize message list
7962: l_return_status := OKL_API.START_ACTIVITY(
8013:
8014: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8015: THEN
8016: OKL_DEBUG_PUB.LOG_DEBUG(
8017: FND_LOG.LEVEL_PROCEDURE
8018: ,L_MODULE
8019: ,'begin debug call SET_LEASE_APP_STATUS');
8020: END IF;
8021:
8031:
8032: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8033: THEN
8034: OKL_DEBUG_PUB.LOG_DEBUG(
8035: FND_LOG.LEVEL_PROCEDURE
8036: ,L_MODULE
8037: ,'end debug call SET_LEASE_APP_STATUS');
8038: END IF;
8039:
8039:
8040: -- write to log
8041: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8042: OKL_DEBUG_PUB.LOG_DEBUG(
8043: FND_LOG.LEVEL_STATEMENT
8044: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
8045: ,'return status ' || l_return_status ||
8046: ' x_msg_data ' || x_msg_data);
8047: END IF; -- end of statement level debug
8183: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.VALIDATE_CREDIT_RESULTS';
8184:
8185: -- check for logging on PROCEDURE level
8186: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8187: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8188: -- check for logging on STATEMENT level
8189: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8190:
8191: -- call START_ACTIVITY to create savepoint, check compatibility
8185: -- check for logging on PROCEDURE level
8186: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8187: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8188: -- check for logging on STATEMENT level
8189: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8190:
8191: -- call START_ACTIVITY to create savepoint, check compatibility
8192: -- and initialize message list
8193: l_return_status := OKL_API.START_ACTIVITY(
8261: --days value as NULL
8262: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8263: THEN
8264: OKL_DEBUG_PUB.LOG_DEBUG(
8265: FND_LOG.LEVEL_PROCEDURE
8266: ,L_MODULE
8267: ,'begin debug call SET_LEASE_APP_EXPDAYS');
8268: END IF;
8269:
8278:
8279: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8280: THEN
8281: OKL_DEBUG_PUB.LOG_DEBUG(
8282: FND_LOG.LEVEL_PROCEDURE
8283: ,L_MODULE
8284: ,'end debug call SET_LEASE_APP_EXPDAYS');
8285: END IF;
8286:
8286:
8287: -- write to log
8288: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8289: OKL_DEBUG_PUB.LOG_DEBUG(
8290: FND_LOG.LEVEL_STATEMENT
8291: ,L_MODULE || ' Result of SET_LEASE_APP_EXPDAYS'
8292: ,'return status ' || l_return_status);
8293: END IF; -- end of statement level debug
8294:
8317:
8318: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8319: THEN
8320: OKL_DEBUG_PUB.LOG_DEBUG(
8321: FND_LOG.LEVEL_PROCEDURE
8322: ,L_MODULE
8323: ,'begin debug call OKL_LSQ_PVT.UPDATE_ROW');
8324: END IF;
8325:
8335:
8336: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8337: THEN
8338: OKL_DEBUG_PUB.LOG_DEBUG(
8339: FND_LOG.LEVEL_PROCEDURE
8340: ,L_MODULE
8341: ,'end debug call OKL_LSQ_PVT.UPDATE_ROW');
8342: END IF;
8343:
8343:
8344: -- write to log
8345: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8346: OKL_DEBUG_PUB.LOG_DEBUG(
8347: FND_LOG.LEVEL_STATEMENT
8348: ,L_MODULE || ' Result of OKL_LSQ_PVT.UPDATE_ROW'
8349: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
8350: ' result status ' || l_return_status);
8351: END IF; -- end of statement level debug
8490: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_RESUBMIT';
8491:
8492: -- check for logging on PROCEDURE level
8493: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8494: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8495: -- check for logging on STATEMENT level
8496: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8497:
8498: -- call START_ACTIVITY to create savepoint, check compatibility
8492: -- check for logging on PROCEDURE level
8493: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8494: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8495: -- check for logging on STATEMENT level
8496: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8497:
8498: -- call START_ACTIVITY to create savepoint, check compatibility
8499: -- and initialize message list
8500: l_return_status := OKL_API.START_ACTIVITY(
8526: --Validate Lease Quote
8527: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8528: THEN
8529: OKL_DEBUG_PUB.LOG_DEBUG(
8530: FND_LOG.LEVEL_PROCEDURE
8531: ,L_MODULE
8532: ,'begin debug call LEASE_APP_VAL');
8533: END IF;
8534:
8543:
8544: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8545: THEN
8546: OKL_DEBUG_PUB.LOG_DEBUG(
8547: FND_LOG.LEVEL_PROCEDURE
8548: ,L_MODULE
8549: ,'end debug call LEASE_APP_VAL');
8550: END IF;
8551:
8551:
8552: -- write to log
8553: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8554: OKL_DEBUG_PUB.LOG_DEBUG(
8555: FND_LOG.LEVEL_STATEMENT
8556: ,L_MODULE || ' Result of LEASE_APP_VAL'
8557: ,'l_return_status ' || l_return_status);
8558: END IF; -- end of statement level debug
8559:
8565:
8566: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8567: THEN
8568: OKL_DEBUG_PUB.LOG_DEBUG(
8569: FND_LOG.LEVEL_PROCEDURE
8570: ,L_MODULE
8571: ,'begin debug call OKL_LAP_PVT.INSERT_ROW');
8572: END IF;
8573:
8583:
8584: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8585: THEN
8586: OKL_DEBUG_PUB.LOG_DEBUG(
8587: FND_LOG.LEVEL_PROCEDURE
8588: ,L_MODULE
8589: ,'end debug call OKL_LAP_PVT.INSERT_ROW');
8590: END IF;
8591:
8591:
8592: -- write to log
8593: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8594: OKL_DEBUG_PUB.LOG_DEBUG(
8595: FND_LOG.LEVEL_STATEMENT
8596: ,L_MODULE || ' Result of OKL_LAP_PVT.INSERT_ROW'
8597: ,'l_lapv_rec.reference_number ' || to_char(l_lapv_rec.reference_number) ||
8598: ' l_lapv_rec.id '|| l_lapv_rec.id ||
8599: ' result status ' || l_return_status ||
8626:
8627: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8628: THEN
8629: OKL_DEBUG_PUB.LOG_DEBUG(
8630: FND_LOG.LEVEL_PROCEDURE
8631: ,L_MODULE
8632: ,'begin debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
8633: END IF;
8634:
8646:
8647: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8648: THEN
8649: OKL_DEBUG_PUB.LOG_DEBUG(
8650: FND_LOG.LEVEL_PROCEDURE
8651: ,L_MODULE
8652: ,'end debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
8653: END IF;
8654:
8654:
8655: -- write to log
8656: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8657: OKL_DEBUG_PUB.LOG_DEBUG(
8658: FND_LOG.LEVEL_STATEMENT
8659: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE'
8660: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
8661: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
8662: ' result status ' || l_return_status ||
8671:
8672: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8673: THEN
8674: OKL_DEBUG_PUB.LOG_DEBUG(
8675: FND_LOG.LEVEL_PROCEDURE
8676: ,L_MODULE
8677: ,'begin debug call CREATE_CREDIT_APP');
8678: END IF;
8679:
8692:
8693: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8694: THEN
8695: OKL_DEBUG_PUB.LOG_DEBUG(
8696: FND_LOG.LEVEL_PROCEDURE
8697: ,L_MODULE
8698: ,'end debug call CREATE_CREDIT_APP');
8699: END IF;
8700:
8700:
8701: -- write to log
8702: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8703: OKL_DEBUG_PUB.LOG_DEBUG(
8704: FND_LOG.LEVEL_STATEMENT
8705: ,L_MODULE || ' Result of CREATE_CREDIT_APP'
8706: ,' result status ' || l_return_status);
8707: END IF; -- end of statement level debug
8708:
8720: THEN
8721: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8722: THEN
8723: OKL_DEBUG_PUB.LOG_DEBUG(
8724: FND_LOG.LEVEL_PROCEDURE
8725: ,L_MODULE
8726: ,'begin debug call CHECKLIST_INST_CRE');
8727: END IF;
8728:
8738:
8739: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8740: THEN
8741: OKL_DEBUG_PUB.LOG_DEBUG(
8742: FND_LOG.LEVEL_PROCEDURE
8743: ,L_MODULE
8744: ,'end debug call CHECKLIST_INST_CRE');
8745: END IF;
8746:
8746:
8747: -- write to log
8748: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8749: OKL_DEBUG_PUB.LOG_DEBUG(
8750: FND_LOG.LEVEL_STATEMENT
8751: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
8752: ,' result status ' || l_return_status);
8753: END IF; -- end of statement level debug
8754:
8762: --Update the status of Parent Lease Application as in Progress
8763: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8764: THEN
8765: OKL_DEBUG_PUB.LOG_DEBUG(
8766: FND_LOG.LEVEL_PROCEDURE
8767: ,L_MODULE
8768: ,'begin debug call SET_IN_PROGRESS_STATUS');
8769: END IF;
8770:
8780:
8781: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8782: THEN
8783: OKL_DEBUG_PUB.LOG_DEBUG(
8784: FND_LOG.LEVEL_PROCEDURE
8785: ,L_MODULE
8786: ,'end debug call SET_IN_PROGRESS_STATUS');
8787: END IF;
8788:
8788:
8789: -- write to log
8790: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
8791: OKL_DEBUG_PUB.LOG_DEBUG(
8792: FND_LOG.LEVEL_STATEMENT
8793: ,L_MODULE || ' Result of SET_IN_PROGRESS_STATUS'
8794: ,'return status ' || l_return_status ||
8795: ' x_msg_data ' || x_msg_data);
8796: END IF; -- end of statement level debug
8928: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_CANCEL';
8929:
8930: -- check for logging on PROCEDURE level
8931: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8932: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8933: -- check for logging on STATEMENT level
8934: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8935:
8936: -- call START_ACTIVITY to create savepoint, check compatibility
8930: -- check for logging on PROCEDURE level
8931: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
8932: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
8933: -- check for logging on STATEMENT level
8934: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
8935:
8936: -- call START_ACTIVITY to create savepoint, check compatibility
8937: -- and initialize message list
8938: l_return_status := OKL_API.START_ACTIVITY(
8996: ELSE
8997: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8998: THEN
8999: OKL_DEBUG_PUB.LOG_DEBUG(
9000: FND_LOG.LEVEL_PROCEDURE
9001: ,L_MODULE
9002: ,'begin debug call CHECK_ELIGIBILITY');
9003: END IF;
9004:
9014:
9015: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9016: THEN
9017: OKL_DEBUG_PUB.LOG_DEBUG(
9018: FND_LOG.LEVEL_PROCEDURE
9019: ,L_MODULE
9020: ,'end debug call CHECK_ELIGIBILITY');
9021: END IF;
9022:
9022:
9023: -- write to log
9024: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9025: OKL_DEBUG_PUB.LOG_DEBUG(
9026: FND_LOG.LEVEL_STATEMENT
9027: ,L_MODULE || ' Result of CHECK_ELIGIBILITY'
9028: ,'return status ' || l_return_status ||
9029: ' x_msg_data ' || x_msg_data);
9030: END IF; -- end of statement level debug
9037:
9038: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9039: THEN
9040: OKL_DEBUG_PUB.LOG_DEBUG(
9041: FND_LOG.LEVEL_PROCEDURE
9042: ,L_MODULE
9043: ,'begin debug call SET_LEASE_APP_STATUS');
9044: END IF;
9045:
9055:
9056: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9057: THEN
9058: OKL_DEBUG_PUB.LOG_DEBUG(
9059: FND_LOG.LEVEL_PROCEDURE
9060: ,L_MODULE
9061: ,'end debug call SET_LEASE_APP_STATUS');
9062: END IF;
9063:
9063:
9064: -- write to log
9065: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9066: OKL_DEBUG_PUB.LOG_DEBUG(
9067: FND_LOG.LEVEL_STATEMENT
9068: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
9069: ,'return status ' || l_return_status ||
9070: ' x_msg_data ' || x_msg_data);
9071: END IF; -- end of statement level debug
9080: -- Call the API to process the lease app subsidy pool
9081: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9082: THEN
9083: OKL_DEBUG_PUB.LOG_DEBUG(
9084: FND_LOG.LEVEL_PROCEDURE
9085: ,L_MODULE
9086: ,'begin debug call OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL');
9087: END IF;
9088:
9099:
9100: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9101: THEN
9102: OKL_DEBUG_PUB.LOG_DEBUG(
9103: FND_LOG.LEVEL_PROCEDURE
9104: ,L_MODULE
9105: ,'end debug call OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL');
9106: END IF;
9107:
9107:
9108: -- write to log
9109: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9110: OKL_DEBUG_PUB.LOG_DEBUG(
9111: FND_LOG.LEVEL_STATEMENT
9112: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL'
9113: ,'l_return_status ' || l_return_status);
9114: END IF; -- end of statement level debug
9115:
9125: --of parent to original status
9126: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9127: THEN
9128: OKL_DEBUG_PUB.LOG_DEBUG(
9129: FND_LOG.LEVEL_PROCEDURE
9130: ,L_MODULE
9131: ,'begin debug call REVERT_TO_ORIG_STATUS');
9132: END IF;
9133:
9141:
9142: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9143: THEN
9144: OKL_DEBUG_PUB.LOG_DEBUG(
9145: FND_LOG.LEVEL_PROCEDURE
9146: ,L_MODULE
9147: ,'end debug call REVERT_TO_ORIG_STATUS');
9148: END IF;
9149:
9149:
9150: -- write to log
9151: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9152: OKL_DEBUG_PUB.LOG_DEBUG(
9153: FND_LOG.LEVEL_STATEMENT
9154: ,L_MODULE || ' Result of REVERT_TO_ORIG_STATUS'
9155: ,'l_return_status ' || l_return_status);
9156: END IF; -- end of statement level debug
9157:
9300: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_APPEAL';
9301:
9302: -- check for logging on PROCEDURE level
9303: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
9304: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
9305: -- check for logging on STATEMENT level
9306: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
9307:
9308: -- call START_ACTIVITY to create savepoint, check compatibility
9302: -- check for logging on PROCEDURE level
9303: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
9304: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
9305: -- check for logging on STATEMENT level
9306: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
9307:
9308: -- call START_ACTIVITY to create savepoint, check compatibility
9309: -- and initialize message list
9310: l_return_status := OKL_API.START_ACTIVITY(
9335: --Validate Lease Quote
9336: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9337: THEN
9338: OKL_DEBUG_PUB.LOG_DEBUG(
9339: FND_LOG.LEVEL_PROCEDURE
9340: ,L_MODULE
9341: ,'begin debug call LEASE_APP_VAL');
9342: END IF;
9343:
9352:
9353: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9354: THEN
9355: OKL_DEBUG_PUB.LOG_DEBUG(
9356: FND_LOG.LEVEL_PROCEDURE
9357: ,L_MODULE
9358: ,'end debug call LEASE_APP_VAL');
9359: END IF;
9360:
9360:
9361: -- write to log
9362: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9363: OKL_DEBUG_PUB.LOG_DEBUG(
9364: FND_LOG.LEVEL_STATEMENT
9365: ,L_MODULE || ' Result of LEASE_APP_VAL'
9366: ,'l_return_status ' || l_return_status);
9367: END IF; -- end of statement level debug
9368:
9374:
9375: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9376: THEN
9377: OKL_DEBUG_PUB.LOG_DEBUG(
9378: FND_LOG.LEVEL_PROCEDURE
9379: ,L_MODULE
9380: ,'begin debug call OKL_LAP_PVT.INSERT_ROW');
9381: END IF;
9382:
9392:
9393: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9394: THEN
9395: OKL_DEBUG_PUB.LOG_DEBUG(
9396: FND_LOG.LEVEL_PROCEDURE
9397: ,L_MODULE
9398: ,'end debug call OKL_LAP_PVT.INSERT_ROW');
9399: END IF;
9400:
9400:
9401: -- write to log
9402: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9403: OKL_DEBUG_PUB.LOG_DEBUG(
9404: FND_LOG.LEVEL_STATEMENT
9405: ,L_MODULE || ' Result of OKL_LAP_PVT.INSERT_ROW'
9406: ,'l_lapv_rec.reference_number ' || to_char(l_lapv_rec.reference_number) ||
9407: ' l_lapv_rec.id '|| l_lapv_rec.id ||
9408: ' result status ' || l_return_status ||
9436:
9437: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9438: THEN
9439: OKL_DEBUG_PUB.LOG_DEBUG(
9440: FND_LOG.LEVEL_PROCEDURE
9441: ,L_MODULE
9442: ,'begin debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
9443: END IF;
9444:
9456:
9457: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9458: THEN
9459: OKL_DEBUG_PUB.LOG_DEBUG(
9460: FND_LOG.LEVEL_PROCEDURE
9461: ,L_MODULE
9462: ,'end debug call OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE');
9463: END IF;
9464:
9464:
9465: -- write to log
9466: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9467: OKL_DEBUG_PUB.LOG_DEBUG(
9468: FND_LOG.LEVEL_STATEMENT
9469: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE'
9470: ,'l_lsqv_rec.reference_number ' || to_char(l_lsqv_rec.reference_number) ||
9471: ' l_lsqv_rec.id '|| l_lsqv_rec.id ||
9472: ' result status ' || l_return_status ||
9481:
9482: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9483: THEN
9484: OKL_DEBUG_PUB.LOG_DEBUG(
9485: FND_LOG.LEVEL_PROCEDURE
9486: ,L_MODULE
9487: ,'begin debug call CREATE_CREDIT_APP');
9488: END IF;
9489:
9508:
9509: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9510: THEN
9511: OKL_DEBUG_PUB.LOG_DEBUG(
9512: FND_LOG.LEVEL_PROCEDURE
9513: ,L_MODULE
9514: ,'end debug call CREATE_CREDIT_APP');
9515: END IF;
9516:
9516:
9517: -- write to log
9518: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9519: OKL_DEBUG_PUB.LOG_DEBUG(
9520: FND_LOG.LEVEL_STATEMENT
9521: ,L_MODULE || ' Result of CREATE_CREDIT_APP'
9522: ,' result status ' || l_return_status);
9523: END IF; -- end of statement level debug
9524:
9536: THEN
9537: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9538: THEN
9539: OKL_DEBUG_PUB.LOG_DEBUG(
9540: FND_LOG.LEVEL_PROCEDURE
9541: ,L_MODULE
9542: ,'begin debug call CHECKLIST_INST_CRE');
9543: END IF;
9544:
9554:
9555: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9556: THEN
9557: OKL_DEBUG_PUB.LOG_DEBUG(
9558: FND_LOG.LEVEL_PROCEDURE
9559: ,L_MODULE
9560: ,'end debug call CHECKLIST_INST_CRE');
9561: END IF;
9562:
9562:
9563: -- write to log
9564: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9565: OKL_DEBUG_PUB.LOG_DEBUG(
9566: FND_LOG.LEVEL_STATEMENT
9567: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
9568: ,' result status ' || l_return_status);
9569: END IF; -- end of statement level debug
9570:
9578: --Update the status of Parent Lease Application as in Progress
9579: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9580: THEN
9581: OKL_DEBUG_PUB.LOG_DEBUG(
9582: FND_LOG.LEVEL_PROCEDURE
9583: ,L_MODULE
9584: ,'begin debug call SET_IN_PROGRESS_STATUS');
9585: END IF;
9586:
9596:
9597: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9598: THEN
9599: OKL_DEBUG_PUB.LOG_DEBUG(
9600: FND_LOG.LEVEL_PROCEDURE
9601: ,L_MODULE
9602: ,'end debug call SET_IN_PROGRESS_STATUS');
9603: END IF;
9604:
9604:
9605: -- write to log
9606: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
9607: OKL_DEBUG_PUB.LOG_DEBUG(
9608: FND_LOG.LEVEL_STATEMENT
9609: ,L_MODULE || ' Result of SET_IN_PROGRESS_STATUS'
9610: ,'return status ' || l_return_status ||
9611: ' x_msg_data ' || x_msg_data);
9612: END IF; -- end of statement level debug
9800: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CHECK_ELIGIBILITY';
9801:
9802: -- check for logging on PROCEDURE level
9803: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
9804: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
9805: -- check for logging on STATEMENT level
9806: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
9807:
9808: -- call START_ACTIVITY to create savepoint, check compatibility
9802: -- check for logging on PROCEDURE level
9803: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
9804: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
9805: -- check for logging on STATEMENT level
9806: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
9807:
9808: -- call START_ACTIVITY to create savepoint, check compatibility
9809: -- and initialize message list
9810: l_return_status := OKL_API.START_ACTIVITY(
10158: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_QA_VAL';
10159:
10160: -- check for logging on PROCEDURE level
10161: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10162: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10163: -- check for logging on STATEMENT level
10164: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10165:
10166: -- call START_ACTIVITY to create savepoint, check compatibility
10160: -- check for logging on PROCEDURE level
10161: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10162: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10163: -- check for logging on STATEMENT level
10164: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10165:
10166: -- call START_ACTIVITY to create savepoint, check compatibility
10167: -- and initialize message list
10168: l_return_status := OKL_API.START_ACTIVITY(
10184: --QA Checker integration
10185: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10186: THEN
10187: OKL_DEBUG_PUB.LOG_DEBUG(
10188: FND_LOG.LEVEL_PROCEDURE
10189: ,L_MODULE
10190: ,'begin debug call OKL_SALES_QUOTE_QA_PVT.RUN_QA_CHECKER');
10191: END IF;
10192:
10202:
10203: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10204: THEN
10205: OKL_DEBUG_PUB.LOG_DEBUG(
10206: FND_LOG.LEVEL_PROCEDURE
10207: ,L_MODULE
10208: ,'end debug call OKL_SALES_QUOTE_QA_PVT.RUN_QA_CHECKER');
10209: END IF;
10210:
10210:
10211: -- write to log
10212: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10213: OKL_DEBUG_PUB.LOG_DEBUG(
10214: FND_LOG.LEVEL_STATEMENT
10215: ,L_MODULE || ' Result of OKL_SALES_QUOTE_QA_PVT.RUN_QA_CHECKER'
10216: ,'l_return_status ' || l_return_status);
10217: END IF; -- end of statement level debug
10218:
10304: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_PRICE';
10305:
10306: -- check for logging on PROCEDURE level
10307: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10308: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10309: -- check for logging on STATEMENT level
10310: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10311:
10312: -- call START_ACTIVITY to create savepoint, check compatibility
10306: -- check for logging on PROCEDURE level
10307: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10308: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10309: -- check for logging on STATEMENT level
10310: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10311:
10312: -- call START_ACTIVITY to create savepoint, check compatibility
10313: -- and initialize message list
10314: l_return_status := OKL_API.START_ACTIVITY(
10335: --Pricing Validation
10336: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10337: THEN
10338: OKL_DEBUG_PUB.LOG_DEBUG(
10339: FND_LOG.LEVEL_PROCEDURE
10340: ,L_MODULE
10341: ,'begin debug call OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE');
10342: END IF;
10343:
10351:
10352: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10353: THEN
10354: OKL_DEBUG_PUB.LOG_DEBUG(
10355: FND_LOG.LEVEL_PROCEDURE
10356: ,L_MODULE
10357: ,'end debug call OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE');
10358: END IF;
10359:
10359:
10360: -- write to log
10361: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10362: OKL_DEBUG_PUB.LOG_DEBUG(
10363: FND_LOG.LEVEL_STATEMENT
10364: ,L_MODULE || ' Result of OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE'
10365: ,'l_return_status ' || l_return_status);
10366: END IF; -- end of statement level debug
10367:
10374:
10375: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10376: THEN
10377: OKL_DEBUG_PUB.LOG_DEBUG(
10378: FND_LOG.LEVEL_PROCEDURE
10379: ,L_MODULE
10380: ,'begin debug call SET_LEASE_APP_STATUS');
10381: END IF;
10382:
10391:
10392: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10393: THEN
10394: OKL_DEBUG_PUB.LOG_DEBUG(
10395: FND_LOG.LEVEL_PROCEDURE
10396: ,L_MODULE
10397: ,'end debug call SET_LEASE_APP_STATUS');
10398: END IF;
10399:
10399:
10400: -- write to log
10401: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10402: OKL_DEBUG_PUB.LOG_DEBUG(
10403: FND_LOG.LEVEL_STATEMENT
10404: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
10405: ,'l_return_status ' || l_return_status);
10406: END IF; -- end of statement level debug
10407:
10519: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SET_LEASE_APP_STATUS';
10520:
10521: -- check for logging on PROCEDURE level
10522: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10523: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10524: -- check for logging on STATEMENT level
10525: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10526:
10527: -- call START_ACTIVITY to create savepoint, check compatibility
10521: -- check for logging on PROCEDURE level
10522: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10523: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10524: -- check for logging on STATEMENT level
10525: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10526:
10527: -- call START_ACTIVITY to create savepoint, check compatibility
10528: -- and initialize message list
10529: l_return_status := OKL_API.START_ACTIVITY(
10545: --Populate Lease Application rec with the values from database.
10546: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10547: THEN
10548: OKL_DEBUG_PUB.LOG_DEBUG(
10549: FND_LOG.LEVEL_PROCEDURE
10550: ,L_MODULE
10551: ,'begin debug call POPULATE_LEASE_APP');
10552: END IF;
10553:
10563:
10564: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10565: THEN
10566: OKL_DEBUG_PUB.LOG_DEBUG(
10567: FND_LOG.LEVEL_PROCEDURE
10568: ,L_MODULE
10569: ,'end debug call POPULATE_LEASE_APP');
10570: END IF;
10571:
10571:
10572: -- write to log
10573: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10574: OKL_DEBUG_PUB.LOG_DEBUG(
10575: FND_LOG.LEVEL_STATEMENT
10576: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
10577: ,'l_return_status ' || l_return_status);
10578: END IF; -- end of statement level debug
10579:
10588:
10589: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10590: THEN
10591: OKL_DEBUG_PUB.LOG_DEBUG(
10592: FND_LOG.LEVEL_PROCEDURE
10593: ,L_MODULE
10594: ,'begin debug call OKL_LAP_PVT.UPDATE_ROW');
10595: END IF;
10596:
10605:
10606: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10607: THEN
10608: OKL_DEBUG_PUB.LOG_DEBUG(
10609: FND_LOG.LEVEL_PROCEDURE
10610: ,L_MODULE
10611: ,'end debug call OKL_LAP_PVT.UPDATE_ROW');
10612: END IF;
10613:
10613:
10614: -- write to log
10615: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10616: OKL_DEBUG_PUB.LOG_DEBUG(
10617: FND_LOG.LEVEL_STATEMENT
10618: ,L_MODULE || ' Result of OKL_LAP_PVT.UPDATE_ROW'
10619: ,'l_return_status ' || l_return_status);
10620: END IF; -- end of statement level debug
10621:
10698: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.SET_LEASE_APP_EXPDAYS';
10699:
10700: -- check for logging on PROCEDURE level
10701: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10702: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10703: -- check for logging on STATEMENT level
10704: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10705:
10706: -- call START_ACTIVITY to create savepoint, check compatibility
10700: -- check for logging on PROCEDURE level
10701: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
10702: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
10703: -- check for logging on STATEMENT level
10704: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
10705:
10706: -- call START_ACTIVITY to create savepoint, check compatibility
10707: -- and initialize message list
10708: l_return_status := OKL_API.START_ACTIVITY(
10724: --Populate Lease Application rec with the values from database.
10725: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10726: THEN
10727: OKL_DEBUG_PUB.LOG_DEBUG(
10728: FND_LOG.LEVEL_PROCEDURE
10729: ,L_MODULE
10730: ,'begin debug call POPULATE_LEASE_APP');
10731: END IF;
10732:
10742:
10743: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10744: THEN
10745: OKL_DEBUG_PUB.LOG_DEBUG(
10746: FND_LOG.LEVEL_PROCEDURE
10747: ,L_MODULE
10748: ,'end debug call POPULATE_LEASE_APP');
10749: END IF;
10750:
10750:
10751: -- write to log
10752: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10753: OKL_DEBUG_PUB.LOG_DEBUG(
10754: FND_LOG.LEVEL_STATEMENT
10755: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
10756: ,'l_return_status ' || l_return_status);
10757: END IF; -- end of statement level debug
10758:
10767:
10768: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10769: THEN
10770: OKL_DEBUG_PUB.LOG_DEBUG(
10771: FND_LOG.LEVEL_PROCEDURE
10772: ,L_MODULE
10773: ,'begin debug call OKL_LAP_PVT.UPDATE_ROW');
10774: END IF;
10775:
10784:
10785: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10786: THEN
10787: OKL_DEBUG_PUB.LOG_DEBUG(
10788: FND_LOG.LEVEL_PROCEDURE
10789: ,L_MODULE
10790: ,'end debug call OKL_LAP_PVT.UPDATE_ROW');
10791: END IF;
10792:
10792:
10793: -- write to log
10794: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
10795: OKL_DEBUG_PUB.LOG_DEBUG(
10796: FND_LOG.LEVEL_STATEMENT
10797: ,L_MODULE || ' Result of OKL_LAP_PVT.UPDATE_ROW'
10798: ,'l_return_status ' || l_return_status);
10799: END IF; -- end of statement level debug
10800:
11029: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.LEASE_APP_UNACCEPT';
11030:
11031: -- check for logging on PROCEDURE level
11032: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11033: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11034: -- check for logging on STATEMENT level
11035: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11036:
11037: -- call START_ACTIVITY to create savepoint, check compatibility
11031: -- check for logging on PROCEDURE level
11032: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11033: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11034: -- check for logging on STATEMENT level
11035: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11036:
11037: -- call START_ACTIVITY to create savepoint, check compatibility
11038: -- and initialize message list
11039: l_return_status := OKL_API.START_ACTIVITY(
11055: --Populate Lease Application rec with the values from database.
11056: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11057: THEN
11058: OKL_DEBUG_PUB.LOG_DEBUG(
11059: FND_LOG.LEVEL_PROCEDURE
11060: ,L_MODULE
11061: ,'begin debug call POPULATE_LEASE_APP');
11062: END IF;
11063:
11073:
11074: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11075: THEN
11076: OKL_DEBUG_PUB.LOG_DEBUG(
11077: FND_LOG.LEVEL_PROCEDURE
11078: ,L_MODULE
11079: ,'end debug call POPULATE_LEASE_APP');
11080: END IF;
11081:
11081:
11082: -- write to log
11083: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11084: OKL_DEBUG_PUB.LOG_DEBUG(
11085: FND_LOG.LEVEL_STATEMENT
11086: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
11087: ,'l_return_status ' || l_return_status);
11088: END IF; -- end of statement level debug
11089:
11115: THEN
11116: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11117: THEN
11118: OKL_DEBUG_PUB.LOG_DEBUG(
11119: FND_LOG.LEVEL_PROCEDURE
11120: ,L_MODULE
11121: ,'begin debug call SET_LEASE_APP_STATUS');
11122: END IF;
11123:
11132:
11133: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11134: THEN
11135: OKL_DEBUG_PUB.LOG_DEBUG(
11136: FND_LOG.LEVEL_PROCEDURE
11137: ,L_MODULE
11138: ,'end debug call SET_LEASE_APP_STATUS');
11139: END IF;
11140:
11140:
11141: -- write to log
11142: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11143: OKL_DEBUG_PUB.LOG_DEBUG(
11144: FND_LOG.LEVEL_STATEMENT
11145: ,L_MODULE || ' Result of SET_LEASE_APP_STATUS'
11146: ,'l_return_status ' || l_return_status);
11147: END IF; -- end of statement level debug
11148:
11154:
11155: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11156: THEN
11157: OKL_DEBUG_PUB.LOG_DEBUG(
11158: FND_LOG.LEVEL_PROCEDURE
11159: ,L_MODULE
11160: ,'begin debug call OKL_LEASE_QUOTE_PVT.UNACCEPT_LEASE_QTE');
11161: END IF;
11162:
11172:
11173: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11174: THEN
11175: OKL_DEBUG_PUB.LOG_DEBUG(
11176: FND_LOG.LEVEL_PROCEDURE
11177: ,L_MODULE
11178: ,'end debug call OKL_LEASE_QUOTE_PVT.UNACCEPT_LEASE_QTE');
11179: END IF;
11180:
11180:
11181: -- write to log
11182: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11183: OKL_DEBUG_PUB.LOG_DEBUG(
11184: FND_LOG.LEVEL_STATEMENT
11185: ,L_MODULE || ' Result of OKL_LEASE_QUOTE_PVT.UNACCEPT_LEASE_QTE'
11186: ,' result status ' || l_return_status);
11187: END IF; -- end of statement level debug
11188:
11282: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CREATE_CONTRACT';
11283:
11284: -- check for logging on PROCEDURE level
11285: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11286: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11287: -- check for logging on STATEMENT level
11288: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11289:
11290: -- call START_ACTIVITY to create savepoint, check compatibility
11284: -- check for logging on PROCEDURE level
11285: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11286: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11287: -- check for logging on STATEMENT level
11288: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11289:
11290: -- call START_ACTIVITY to create savepoint, check compatibility
11291: -- and initialize message list
11292: l_return_status := OKL_API.START_ACTIVITY(
11312:
11313: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11314: THEN
11315: OKL_DEBUG_PUB.LOG_DEBUG(
11316: FND_LOG.LEVEL_PROCEDURE
11317: ,L_MODULE
11318: ,'begin debug call OKL_QUOTE_TO_CONTRACT_PVT.CREATE_CONTRACT');
11319: END IF;
11320:
11332:
11333: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11334: THEN
11335: OKL_DEBUG_PUB.LOG_DEBUG(
11336: FND_LOG.LEVEL_PROCEDURE
11337: ,L_MODULE
11338: ,'end debug call OKL_QUOTE_TO_CONTRACT_PVT.CREATE_CONTRACT');
11339: END IF;
11340:
11340:
11341: -- write to log
11342: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11343: OKL_DEBUG_PUB.LOG_DEBUG(
11344: FND_LOG.LEVEL_STATEMENT
11345: ,L_MODULE || ' Result of OKL_QUOTE_TO_CONTRACT_PVT.CREATE_CONTRACT'
11346: ,' return status ' || l_return_status);
11347: END IF; -- end of statement level debug
11348:
11485: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.APPEAL_RECOMMENDATIONS';
11486:
11487: -- check for logging on PROCEDURE level
11488: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11489: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11490: -- check for logging on STATEMENT level
11491: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11492:
11493: -- call START_ACTIVITY to create savepoint, check compatibility
11487: -- check for logging on PROCEDURE level
11488: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11489: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11490: -- check for logging on STATEMENT level
11491: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11492:
11493: -- call START_ACTIVITY to create savepoint, check compatibility
11494: -- and initialize message list
11495: l_return_status := OKL_API.START_ACTIVITY(
11519: LOOP
11520: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11521: THEN
11522: OKL_DEBUG_PUB.LOG_DEBUG(
11523: FND_LOG.LEVEL_PROCEDURE
11524: ,L_MODULE
11525: ,'begin debug call POP_CHECKLIST_ITEM');
11526: END IF;
11527:
11536:
11537: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11538: THEN
11539: OKL_DEBUG_PUB.LOG_DEBUG(
11540: FND_LOG.LEVEL_PROCEDURE
11541: ,L_MODULE
11542: ,'end debug call POP_CHECKLIST_ITEM');
11543: END IF;
11544:
11544:
11545: -- write to log
11546: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11547: OKL_DEBUG_PUB.LOG_DEBUG(
11548: FND_LOG.LEVEL_STATEMENT
11549: ,L_MODULE || ' Result of POP_CHECKLIST_ITEM'
11550: ,'l_return_status ' || l_return_status);
11551: END IF; -- end of statement level debug
11552:
11568:
11569: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11570: THEN
11571: OKL_DEBUG_PUB.LOG_DEBUG(
11572: FND_LOG.LEVEL_PROCEDURE
11573: ,L_MODULE
11574: ,'begin debug call OKL_CHECKLIST_PVT.UPD_CHKLST_DTL_APL_FLAG');
11575: END IF;
11576:
11585:
11586: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11587: THEN
11588: OKL_DEBUG_PUB.LOG_DEBUG(
11589: FND_LOG.LEVEL_PROCEDURE
11590: ,L_MODULE
11591: ,'end debug call OKL_CHECKLIST_PVT.UPD_CHKLST_DTL_APL_FLAG');
11592: END IF;
11593:
11593:
11594: -- write to log
11595: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11596: OKL_DEBUG_PUB.LOG_DEBUG(
11597: FND_LOG.LEVEL_STATEMENT
11598: ,L_MODULE || ' Result of OKL_CHECKLIST_PVT.UPD_CHKLST_DTL_APL_FLAG'
11599: ,'l_return_status ' || l_return_status);
11600: END IF; -- end of statement level debug
11601:
11692:
11693: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11694: THEN
11695: OKL_DEBUG_PUB.LOG_DEBUG(
11696: FND_LOG.LEVEL_PROCEDURE
11697: ,L_MODULE
11698: ,'begin debug call OCM_RECOMMENDATIONS_PUB.MARK_APPEAL');
11699: END IF;
11700:
11712:
11713: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11714: THEN
11715: OKL_DEBUG_PUB.LOG_DEBUG(
11716: FND_LOG.LEVEL_PROCEDURE
11717: ,L_MODULE
11718: ,'end debug call OCM_RECOMMENDATIONS_PUB.MARK_APPEAL');
11719: END IF;
11720:
11720:
11721: -- write to log
11722: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11723: OKL_DEBUG_PUB.LOG_DEBUG(
11724: FND_LOG.LEVEL_STATEMENT
11725: ,L_MODULE || ' Result of OCM_RECOMMENDATIONS_PUB.MARK_APPEAL'
11726: ,'l_return_status ' || l_return_status);
11727: END IF; -- end of statement level debug
11728:
11881: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.CREATE_CONTRACT_VAL';
11882:
11883: -- check for logging on PROCEDURE level
11884: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11885: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11886: -- check for logging on STATEMENT level
11887: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11888:
11889: -- call START_ACTIVITY to create savepoint, check compatibility
11883: -- check for logging on PROCEDURE level
11884: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
11885: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
11886: -- check for logging on STATEMENT level
11887: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
11888:
11889: -- call START_ACTIVITY to create savepoint, check compatibility
11890: -- and initialize message list
11891: l_return_status := OKL_API.START_ACTIVITY(
11962:
11963: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11964: THEN
11965: OKL_DEBUG_PUB.LOG_DEBUG(
11966: FND_LOG.LEVEL_PROCEDURE
11967: ,L_MODULE
11968: ,'begin debug call CHECK_ELIGIBILITY');
11969: END IF;
11970:
11980:
11981: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11982: THEN
11983: OKL_DEBUG_PUB.LOG_DEBUG(
11984: FND_LOG.LEVEL_PROCEDURE
11985: ,L_MODULE
11986: ,'end debug call CHECK_ELIGIBILITY');
11987: END IF;
11988:
11988:
11989: -- write to log
11990: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
11991: OKL_DEBUG_PUB.LOG_DEBUG(
11992: FND_LOG.LEVEL_STATEMENT
11993: ,L_MODULE || ' Result of CHECK_ELIGIBILITY'
11994: ,'return status ' || l_return_status ||
11995: ' x_msg_data ' || x_msg_data);
11996: END IF; -- end of statement level debug